93: , p10_a3 JTF_VARCHAR2_TABLE_4000
94: , x_sdp_order_id OUT NOCOPY NUMBER
95: )
96: as
97: ddp_order_header xdp_types.order_header;
98: ddp_order_parameter xdp_types.order_parameter_list;
99: ddp_order_line_list xdp_types.order_line_list;
100: ddp_line_parameter_list xdp_types.line_param_list;
101: ddindx binary_integer; indx binary_integer;
94: , x_sdp_order_id OUT NOCOPY NUMBER
95: )
96: as
97: ddp_order_header xdp_types.order_header;
98: ddp_order_parameter xdp_types.order_parameter_list;
99: ddp_order_line_list xdp_types.order_line_list;
100: ddp_line_parameter_list xdp_types.line_param_list;
101: ddindx binary_integer; indx binary_integer;
102: begin
95: )
96: as
97: ddp_order_header xdp_types.order_header;
98: ddp_order_parameter xdp_types.order_parameter_list;
99: ddp_order_line_list xdp_types.order_line_list;
100: ddp_line_parameter_list xdp_types.line_param_list;
101: ddindx binary_integer; indx binary_integer;
102: begin
103:
96: as
97: ddp_order_header xdp_types.order_header;
98: ddp_order_parameter xdp_types.order_parameter_list;
99: ddp_order_line_list xdp_types.order_line_list;
100: ddp_line_parameter_list xdp_types.line_param_list;
101: ddindx binary_integer; indx binary_integer;
102: begin
103:
104: -- copy data to the local IN or IN-OUT args, if any
136: ddp_order_header.order_ref_value := p7_a24;
137: ddp_order_header.sp_order_number := p7_a25;
138: ddp_order_header.sp_userid := p7_a26;
139:
140: xdp_types_w.rosetta_table_copy_in_p3(ddp_order_parameter, p8_a0
141: , p8_a1
142: );
143:
144: xdp_types_w.rosetta_table_copy_in_p5(ddp_order_line_list, p9_a0
140: xdp_types_w.rosetta_table_copy_in_p3(ddp_order_parameter, p8_a0
141: , p8_a1
142: );
143:
144: xdp_types_w.rosetta_table_copy_in_p5(ddp_order_line_list, p9_a0
145: , p9_a1
146: , p9_a2
147: , p9_a3
148: , p9_a4
165: , p9_a21
166: , p9_a22
167: );
168:
169: xdp_types_w.rosetta_table_copy_in_p7(ddp_line_parameter_list, p10_a0
170: , p10_a1
171: , p10_a2
172: , p10_a3
173: );
317: , p11_a3 JTF_VARCHAR2_TABLE_4000
318: , x_order_id OUT NOCOPY NUMBER
319: )
320: as
321: ddp_order_header xdp_types.service_order_header;
322: ddp_order_param_list xdp_types.service_order_param_list;
323: ddp_order_line_list xdp_types.service_order_line_list;
324: ddp_line_param_list xdp_types.service_line_param_list;
325: ddindx binary_integer; indx binary_integer;
318: , x_order_id OUT NOCOPY NUMBER
319: )
320: as
321: ddp_order_header xdp_types.service_order_header;
322: ddp_order_param_list xdp_types.service_order_param_list;
323: ddp_order_line_list xdp_types.service_order_line_list;
324: ddp_line_param_list xdp_types.service_line_param_list;
325: ddindx binary_integer; indx binary_integer;
326: begin
319: )
320: as
321: ddp_order_header xdp_types.service_order_header;
322: ddp_order_param_list xdp_types.service_order_param_list;
323: ddp_order_line_list xdp_types.service_order_line_list;
324: ddp_line_param_list xdp_types.service_line_param_list;
325: ddindx binary_integer; indx binary_integer;
326: begin
327:
320: as
321: ddp_order_header xdp_types.service_order_header;
322: ddp_order_param_list xdp_types.service_order_param_list;
323: ddp_order_line_list xdp_types.service_order_line_list;
324: ddp_line_param_list xdp_types.service_line_param_list;
325: ddindx binary_integer; indx binary_integer;
326: begin
327:
328: -- copy data to the local IN or IN-OUT args, if any
383: ddp_order_header.attribute18 := p8_a46;
384: ddp_order_header.attribute19 := p8_a47;
385: ddp_order_header.attribute20 := p8_a48;
386:
387: xdp_types_w.rosetta_table_copy_in_p15(ddp_order_param_list, p9_a0
388: , p9_a1
389: );
390:
391: xdp_types_w.rosetta_table_copy_in_p11(ddp_order_line_list, p10_a0
387: xdp_types_w.rosetta_table_copy_in_p15(ddp_order_param_list, p9_a0
388: , p9_a1
389: );
390:
391: xdp_types_w.rosetta_table_copy_in_p11(ddp_order_line_list, p10_a0
392: , p10_a1
393: , p10_a2
394: , p10_a3
395: , p10_a4
440: , p10_a49
441: , p10_a50
442: );
443:
444: xdp_types_w.rosetta_table_copy_in_p19(ddp_line_param_list, p11_a0
445: , p11_a1
446: , p11_a2
447: , p11_a3
448: );
596: , p14_a2 OUT NOCOPY JTF_VARCHAR2_TABLE_4000
597: , p14_a3 OUT NOCOPY JTF_VARCHAR2_TABLE_4000
598: )
599: as
600: ddx_order_header xdp_types.service_order_header;
601: ddx_order_param_list xdp_types.service_order_param_list;
602: ddx_line_item_list xdp_types.service_order_line_list;
603: ddx_line_param_list xdp_types.service_line_param_list;
604: ddindx binary_integer; indx binary_integer;
597: , p14_a3 OUT NOCOPY JTF_VARCHAR2_TABLE_4000
598: )
599: as
600: ddx_order_header xdp_types.service_order_header;
601: ddx_order_param_list xdp_types.service_order_param_list;
602: ddx_line_item_list xdp_types.service_order_line_list;
603: ddx_line_param_list xdp_types.service_line_param_list;
604: ddindx binary_integer; indx binary_integer;
605: begin
598: )
599: as
600: ddx_order_header xdp_types.service_order_header;
601: ddx_order_param_list xdp_types.service_order_param_list;
602: ddx_line_item_list xdp_types.service_order_line_list;
603: ddx_line_param_list xdp_types.service_line_param_list;
604: ddindx binary_integer; indx binary_integer;
605: begin
606:
599: as
600: ddx_order_header xdp_types.service_order_header;
601: ddx_order_param_list xdp_types.service_order_param_list;
602: ddx_line_item_list xdp_types.service_order_line_list;
603: ddx_line_param_list xdp_types.service_line_param_list;
604: ddindx binary_integer; indx binary_integer;
605: begin
606:
607: -- copy data to the local IN or IN-OUT args, if any
698: p11_a46 := ddx_order_header.attribute18;
699: p11_a47 := ddx_order_header.attribute19;
700: p11_a48 := ddx_order_header.attribute20;
701:
702: xdp_types_w.rosetta_table_copy_out_p15(ddx_order_param_list, p12_a0
703: , p12_a1
704: );
705:
706: xdp_types_w.rosetta_table_copy_out_p11(ddx_line_item_list, p13_a0
702: xdp_types_w.rosetta_table_copy_out_p15(ddx_order_param_list, p12_a0
703: , p12_a1
704: );
705:
706: xdp_types_w.rosetta_table_copy_out_p11(ddx_line_item_list, p13_a0
707: , p13_a1
708: , p13_a2
709: , p13_a3
710: , p13_a4
755: , p13_a49
756: , p13_a50
757: );
758:
759: xdp_types_w.rosetta_table_copy_out_p19(ddx_line_param_list, p14_a0
760: , p14_a1
761: , p14_a2
762: , p14_a3
763: );
783: , p11_a6 OUT NOCOPY DATE
784: , p11_a7 OUT NOCOPY DATE
785: )
786: as
787: ddx_order_status xdp_types.service_order_status;
788: ddindx binary_integer; indx binary_integer;
789: begin
790:
791: -- copy data to the local IN or IN-OUT args, if any
895: END IF;
896: RETURN l_first_str;
897: END GET_STR_IN_CLOB;
898:
899: FUNCTION GET_ORDER_PARAM(l_encoded_str IN OUT NOCOPY VARCHAR2) RETURN xdp_types.SERVICE_ORDER_PARAM
900: AS
901: l_order_param xdp_types.SERVICE_ORDER_PARAM;
902: l_param_pair VARCHAR2(32000);
903: l_clob CLOB;
897: END GET_STR_IN_CLOB;
898:
899: FUNCTION GET_ORDER_PARAM(l_encoded_str IN OUT NOCOPY VARCHAR2) RETURN xdp_types.SERVICE_ORDER_PARAM
900: AS
901: l_order_param xdp_types.SERVICE_ORDER_PARAM;
902: l_param_pair VARCHAR2(32000);
903: l_clob CLOB;
904: l_index number := 1;
905: BEGIN
908: l_order_param.parameter_value := get_first_str(l_param_pair,lg_inline_delimiter);
909: RETURN l_order_param;
910: END GET_ORDER_PARAM;
911:
912: FUNCTION GET_ORDER_PARAM(p_clob IN CLOB, p_index in OUT NOCOPY NUMBER) RETURN xdp_types.SERVICE_ORDER_PARAM
913: AS
914: l_order_param xdp_types.SERVICE_ORDER_PARAM;
915: l_param_pair VARCHAR2(32024);
916: l_index number := 1;
910: END GET_ORDER_PARAM;
911:
912: FUNCTION GET_ORDER_PARAM(p_clob IN CLOB, p_index in OUT NOCOPY NUMBER) RETURN xdp_types.SERVICE_ORDER_PARAM
913: AS
914: l_order_param xdp_types.SERVICE_ORDER_PARAM;
915: l_param_pair VARCHAR2(32024);
916: l_index number := 1;
917: BEGIN
918: l_param_pair := GET_STR_IN_CLOB(p_clob,p_index,lg_delimiter);
923: l_order_param.parameter_value := get_first_str(l_param_pair,lg_inline_delimiter);
924: RETURN l_order_param;
925: END GET_ORDER_PARAM;
926:
927: FUNCTION GET_ORDER_LINE_PARAM(p_clob IN CLOB, p_index in OUT NOCOPY NUMBER) RETURN xdp_types.SERVICE_LINE_PARAM
928: AS
929: l_line_param xdp_types.SERVICE_LINE_PARAM;
930: l_param_pair VARCHAR2(32000);
931: BEGIN
925: END GET_ORDER_PARAM;
926:
927: FUNCTION GET_ORDER_LINE_PARAM(p_clob IN CLOB, p_index in OUT NOCOPY NUMBER) RETURN xdp_types.SERVICE_LINE_PARAM
928: AS
929: l_line_param xdp_types.SERVICE_LINE_PARAM;
930: l_param_pair VARCHAR2(32000);
931: BEGIN
932: l_param_pair := GET_STR_IN_CLOB(p_clob,p_index,lg_delimiter);
933: IF (l_param_pair) is NULL THEN
939: l_line_param.parameter_ref_value := get_first_str(l_param_pair,lg_inline_delimiter);
940: RETURN l_line_param;
941: END;
942:
943: FUNCTION get_order_line_param(l_encoded_str IN OUT NOCOPY varchar2) RETURN xdp_types.SERVICE_LINE_PARAM
944: AS
945: l_line_param xdp_types.SERVICE_LINE_PARAM;
946: l_param_pair VARCHAR2(32000);
947: BEGIN
941: END;
942:
943: FUNCTION get_order_line_param(l_encoded_str IN OUT NOCOPY varchar2) RETURN xdp_types.SERVICE_LINE_PARAM
944: AS
945: l_line_param xdp_types.SERVICE_LINE_PARAM;
946: l_param_pair VARCHAR2(32000);
947: BEGIN
948: l_param_pair := get_first_str(l_encoded_str,lg_delimiter);
949: IF (l_param_pair) is NULL THEN
955: l_line_param.parameter_ref_value := get_first_str(l_param_pair,lg_inline_delimiter);
956: RETURN l_line_param;
957: END;
958:
959: FUNCTION CREATE_ORDER_LINE(l_line_details IN OUT NOCOPY VARCHAR2) RETURN xdp_types.SERVICE_LINE_ITEM
960: AS
961: l_line_item xdp_types.SERVICE_LINE_ITEM;
962: BEGIN
963: l_line_item.line_number := get_first_str(l_line_details,lg_inline_delimiter);
957: END;
958:
959: FUNCTION CREATE_ORDER_LINE(l_line_details IN OUT NOCOPY VARCHAR2) RETURN xdp_types.SERVICE_LINE_ITEM
960: AS
961: l_line_item xdp_types.SERVICE_LINE_ITEM;
962: BEGIN
963: l_line_item.line_number := get_first_str(l_line_details,lg_inline_delimiter);
964: l_line_item.line_source := get_first_str(l_line_details,lg_inline_delimiter);
965: l_line_item.inventory_item_id := get_first_str(l_line_details,lg_inline_delimiter);
1013: l_line_item.attribute20 := get_first_str(l_line_details,lg_inline_delimiter);
1014: RETURN l_line_item;
1015: END CREATE_ORDER_LINE;
1016:
1017: FUNCTION CREATE_ORDER(l_encoded_str IN OUT NOCOPY VARCHAR2) RETURN XDP_TYPES.SERVICE_ORDER_HEADER
1018: AS
1019: ddp_order_header XDP_TYPES.SERVICE_ORDER_HEADER;
1020: BEGIN
1021: ddp_order_header.order_number := get_first_str(l_encoded_str,lg_inline_delimiter);
1015: END CREATE_ORDER_LINE;
1016:
1017: FUNCTION CREATE_ORDER(l_encoded_str IN OUT NOCOPY VARCHAR2) RETURN XDP_TYPES.SERVICE_ORDER_HEADER
1018: AS
1019: ddp_order_header XDP_TYPES.SERVICE_ORDER_HEADER;
1020: BEGIN
1021: ddp_order_header.order_number := get_first_str(l_encoded_str,lg_inline_delimiter);
1022: ddp_order_header.order_version := get_first_str(l_encoded_str,lg_inline_delimiter);
1023: ddp_order_header.required_fulfillment_date := STR2DATE(get_first_str(l_encoded_str,lg_inline_delimiter));
1070: RETURN ddp_order_header;
1071: END CREATE_ORDER;
1072:
1073:
1074: FUNCTION GET_ORDER_LINE(l_encoded_str IN OUT NOCOPY VARCHAR2) RETURN xdp_types.SERVICE_LINE_ITEM
1075: AS
1076: l_line_item xdp_types.SERVICE_LINE_ITEM;
1077: l_line_details VARCHAR2(32000);
1078: BEGIN
1072:
1073:
1074: FUNCTION GET_ORDER_LINE(l_encoded_str IN OUT NOCOPY VARCHAR2) RETURN xdp_types.SERVICE_LINE_ITEM
1075: AS
1076: l_line_item xdp_types.SERVICE_LINE_ITEM;
1077: l_line_details VARCHAR2(32000);
1078: BEGIN
1079: l_line_details := get_first_str(l_encoded_str,lg_delimiter);
1080: IF(l_line_details IS NULL) THEN
1083:
1084: RETURN CREATE_ORDER_LINE(l_line_details);
1085: END GET_ORDER_LINE;
1086:
1087: FUNCTION GET_ORDER_LINE(p_clob IN CLOB, p_index in OUT NOCOPY NUMBER) RETURN xdp_types.SERVICE_LINE_ITEM
1088: AS
1089: l_line_item xdp_types.SERVICE_LINE_ITEM;
1090: l_line_details VARCHAR2(32000);
1091: BEGIN
1085: END GET_ORDER_LINE;
1086:
1087: FUNCTION GET_ORDER_LINE(p_clob IN CLOB, p_index in OUT NOCOPY NUMBER) RETURN xdp_types.SERVICE_LINE_ITEM
1088: AS
1089: l_line_item xdp_types.SERVICE_LINE_ITEM;
1090: l_line_details VARCHAR2(32000);
1091: BEGIN
1092: l_line_details := GET_STR_IN_CLOB(p_clob,p_index,lg_delimiter);
1093: IF (l_line_details) is NULL THEN
1111: , p_order_line_params in VARCHAR2
1112: , x_order_id OUT NOCOPY NUMBER
1113: )
1114: AS
1115: ddp_order_header xdp_types.service_order_header;
1116: ddp_order_param_list xdp_types.service_order_param_list;
1117: ddp_order_line_list xdp_types.service_order_line_list;
1118: ddp_line_param_list xdp_types.service_line_param_list;
1119: ddindx BINARY_INTEGER;
1112: , x_order_id OUT NOCOPY NUMBER
1113: )
1114: AS
1115: ddp_order_header xdp_types.service_order_header;
1116: ddp_order_param_list xdp_types.service_order_param_list;
1117: ddp_order_line_list xdp_types.service_order_line_list;
1118: ddp_line_param_list xdp_types.service_line_param_list;
1119: ddindx BINARY_INTEGER;
1120: indx BINARY_INTEGER;
1113: )
1114: AS
1115: ddp_order_header xdp_types.service_order_header;
1116: ddp_order_param_list xdp_types.service_order_param_list;
1117: ddp_order_line_list xdp_types.service_order_line_list;
1118: ddp_line_param_list xdp_types.service_line_param_list;
1119: ddindx BINARY_INTEGER;
1120: indx BINARY_INTEGER;
1121: l_pointer BINARY_INTEGER := 1;
1114: AS
1115: ddp_order_header xdp_types.service_order_header;
1116: ddp_order_param_list xdp_types.service_order_param_list;
1117: ddp_order_line_list xdp_types.service_order_line_list;
1118: ddp_line_param_list xdp_types.service_line_param_list;
1119: ddindx BINARY_INTEGER;
1120: indx BINARY_INTEGER;
1121: l_pointer BINARY_INTEGER := 1;
1122: l_index number := 1;
1247: , p_order_line_params in CLOB
1248: , x_order_id OUT NOCOPY NUMBER
1249: )
1250: AS
1251: ddp_order_header xdp_types.service_order_header;
1252: ddp_order_param_list xdp_types.service_order_param_list;
1253: ddp_order_line_list xdp_types.service_order_line_list;
1254: ddp_line_param_list xdp_types.service_line_param_list;
1255: ddindx BINARY_INTEGER;
1248: , x_order_id OUT NOCOPY NUMBER
1249: )
1250: AS
1251: ddp_order_header xdp_types.service_order_header;
1252: ddp_order_param_list xdp_types.service_order_param_list;
1253: ddp_order_line_list xdp_types.service_order_line_list;
1254: ddp_line_param_list xdp_types.service_line_param_list;
1255: ddindx BINARY_INTEGER;
1256: indx BINARY_INTEGER;
1249: )
1250: AS
1251: ddp_order_header xdp_types.service_order_header;
1252: ddp_order_param_list xdp_types.service_order_param_list;
1253: ddp_order_line_list xdp_types.service_order_line_list;
1254: ddp_line_param_list xdp_types.service_line_param_list;
1255: ddindx BINARY_INTEGER;
1256: indx BINARY_INTEGER;
1257: l_pointer BINARY_INTEGER := 1;
1250: AS
1251: ddp_order_header xdp_types.service_order_header;
1252: ddp_order_param_list xdp_types.service_order_param_list;
1253: ddp_order_line_list xdp_types.service_order_line_list;
1254: ddp_line_param_list xdp_types.service_line_param_list;
1255: ddindx BINARY_INTEGER;
1256: indx BINARY_INTEGER;
1257: l_pointer BINARY_INTEGER := 1;
1258: l_clob CLOB;