67: , a2 JTF_VARCHAR2_TABLE_300
68: , a3 JTF_NUMBER_TABLE
69: , a4 JTF_VARCHAR2_TABLE_100
70: , a5 JTF_NUMBER_TABLE
71: , a6 JTF_DATE_TABLE
72: , a7 JTF_DATE_TABLE
73: ) as
74: ddindx binary_integer; indx binary_integer;
75: begin
68: , a3 JTF_NUMBER_TABLE
69: , a4 JTF_VARCHAR2_TABLE_100
70: , a5 JTF_NUMBER_TABLE
71: , a6 JTF_DATE_TABLE
72: , a7 JTF_DATE_TABLE
73: ) as
74: ddindx binary_integer; indx binary_integer;
75: begin
76: if a0 is not null and a0.count > 0 then
100: , a2 OUT NOCOPY JTF_VARCHAR2_TABLE_300
101: , a3 OUT NOCOPY JTF_NUMBER_TABLE
102: , a4 OUT NOCOPY JTF_VARCHAR2_TABLE_100
103: , a5 OUT NOCOPY JTF_NUMBER_TABLE
104: , a6 OUT NOCOPY JTF_DATE_TABLE
105: , a7 OUT NOCOPY JTF_DATE_TABLE
106: ) as
107: ddindx binary_integer; indx binary_integer;
108: begin
101: , a3 OUT NOCOPY JTF_NUMBER_TABLE
102: , a4 OUT NOCOPY JTF_VARCHAR2_TABLE_100
103: , a5 OUT NOCOPY JTF_NUMBER_TABLE
104: , a6 OUT NOCOPY JTF_DATE_TABLE
105: , a7 OUT NOCOPY JTF_DATE_TABLE
106: ) as
107: ddindx binary_integer; indx binary_integer;
108: begin
109: if t is null or t.count = 0 then
112: a2 := JTF_VARCHAR2_TABLE_300();
113: a3 := JTF_NUMBER_TABLE();
114: a4 := JTF_VARCHAR2_TABLE_100();
115: a5 := JTF_NUMBER_TABLE();
116: a6 := JTF_DATE_TABLE();
117: a7 := JTF_DATE_TABLE();
118: else
119: a0 := JTF_NUMBER_TABLE();
120: a1 := JTF_VARCHAR2_TABLE_2000();
113: a3 := JTF_NUMBER_TABLE();
114: a4 := JTF_VARCHAR2_TABLE_100();
115: a5 := JTF_NUMBER_TABLE();
116: a6 := JTF_DATE_TABLE();
117: a7 := JTF_DATE_TABLE();
118: else
119: a0 := JTF_NUMBER_TABLE();
120: a1 := JTF_VARCHAR2_TABLE_2000();
121: a2 := JTF_VARCHAR2_TABLE_300();
121: a2 := JTF_VARCHAR2_TABLE_300();
122: a3 := JTF_NUMBER_TABLE();
123: a4 := JTF_VARCHAR2_TABLE_100();
124: a5 := JTF_NUMBER_TABLE();
125: a6 := JTF_DATE_TABLE();
126: a7 := JTF_DATE_TABLE();
127: if t.count > 0 then
128: a0.extend(t.count);
129: a1.extend(t.count);
122: a3 := JTF_NUMBER_TABLE();
123: a4 := JTF_VARCHAR2_TABLE_100();
124: a5 := JTF_NUMBER_TABLE();
125: a6 := JTF_DATE_TABLE();
126: a7 := JTF_DATE_TABLE();
127: if t.count > 0 then
128: a0.extend(t.count);
129: a1.extend(t.count);
130: a2.extend(t.count);
212: , p8_a2 OUT NOCOPY JTF_VARCHAR2_TABLE_300
213: , p8_a3 OUT NOCOPY JTF_NUMBER_TABLE
214: , p8_a4 OUT NOCOPY JTF_VARCHAR2_TABLE_100
215: , p8_a5 OUT NOCOPY JTF_NUMBER_TABLE
216: , p8_a6 OUT NOCOPY JTF_DATE_TABLE
217: , p8_a7 OUT NOCOPY JTF_DATE_TABLE
218: )
219: as
220: ddx_warranty_tbl aso_service_contracts_int.war_tbl_type;
213: , p8_a3 OUT NOCOPY JTF_NUMBER_TABLE
214: , p8_a4 OUT NOCOPY JTF_VARCHAR2_TABLE_100
215: , p8_a5 OUT NOCOPY JTF_NUMBER_TABLE
216: , p8_a6 OUT NOCOPY JTF_DATE_TABLE
217: , p8_a7 OUT NOCOPY JTF_DATE_TABLE
218: )
219: as
220: ddx_warranty_tbl aso_service_contracts_int.war_tbl_type;
221: ddindx binary_integer; indx binary_integer;
255:
256: PROCEDURE GET_SERVICES (
257: x_item_number_tbl OUT NOCOPY JTF_VARCHAR2_TABLE_2000,
258: x_item_desc_tbl OUT NOCOPY JTF_VARCHAR2_TABLE_2000,
259: x_start_date_tbl OUT NOCOPY JTF_DATE_TABLE,
260: x_duration_tbl OUT NOCOPY JTF_NUMBER_TABLE,
261: x_period_code_tbl OUT NOCOPY JTF_VARCHAR2_TABLE_100,
262: x_warranty_flag_tbl OUT NOCOPY JTF_VARCHAR2_TABLE_100,
263: p_source IN VARCHAR2,
383:
384:
385: x_item_number_tbl := JTF_VARCHAR2_TABLE_2000();
386: x_item_desc_tbl := JTF_VARCHAR2_TABLE_2000();
387: x_start_date_tbl := JTF_DATE_TABLE();
388: x_duration_tbl := JTF_NUMBER_TABLE();
389: x_period_code_tbl := JTF_VARCHAR2_TABLE_100();
390: x_warranty_flag_tbl := JTF_VARCHAR2_TABLE_100();
391: