
   --  Record @_TYPE_NAME_@

@@IF@@ not @_IS_EMPTY:NAME_SPACE_PACKAGE_@
   @_NAME_SPACE_@_Name_Space : SOAP.Name_Space.Object
     renames @_NAME_SPACE_PACKAGE_@.Name_Space;
@@END_IF@@

@@IF@@ @_IS_EMPTY:TYPE_SPEC_@ or @_SIMPLE_WRAPPED_PARAMETER_@
   subtype @_TYPE_NAME_@
     is @_UNIT_NAME_@.@_TYPE_NAME_@;
@@ELSE@@
   subtype @_TYPE_NAME_@
     is @_TYPE_SPEC_@.@_TYPE_REF_@;
@@END_IF@@

   function To_@_TYPE_NAME_@
     (O : SOAP.Types.Object'Class)
      return @_TYPE_NAME_@
      renames @_UNIT_NAME_@.To_@_TYPE_NAME_@;

   function To_@_TYPE_NAME_@
     (P_List : SOAP.Parameters.List)
      return @_TYPE_NAME_@
      renames @_UNIT_NAME_@.To_@_TYPE_NAME_@;

   function To_@_TYPE_NAME_@_W
     (R : SOAP.Parameters.List)
      return @_TYPE_NAME_@
      renames @_UNIT_NAME_@.To_@_TYPE_NAME_@_W;

   function To_SOAP_Object
     (R         : @_TYPE_NAME_@;
      Name      : String := "item";
      Type_Name : String := @_UNIT_NAME_@.Q_Type_Name;
      NS        : SOAP.Name_Space.Object := @_NAME_SPACE_@_Name_Space)
      return SOAP.Types.SOAP_Record
      renames @_UNIT_NAME_@.To_SOAP_Object;

   function To_Parameter_List
     (R : @_TYPE_NAME_@)
      return SOAP.Parameters.List
      renames @_UNIT_NAME_@.To_Parameter_List;

@@--
