[Home] [Help]
PACKAGE BODY: APPS.AHL_UMP_SR_PVT_W
Source
1 package body ahl_ump_sr_pvt_w as
2 /* $Header: AHLWUSRB.pls 120.0 2005/07/21 00:07 tamdas noship $ */
3 procedure rosetta_table_copy_in_p1(t out nocopy ahl_ump_sr_pvt.sr_mr_association_tbl_type, a0 JTF_VARCHAR2_TABLE_100
4 , a1 JTF_VARCHAR2_TABLE_100
5 , a2 JTF_NUMBER_TABLE
6 , a3 JTF_NUMBER_TABLE
7 , a4 JTF_NUMBER_TABLE
8 , a5 JTF_NUMBER_TABLE
9 , a6 JTF_NUMBER_TABLE
10 , a7 JTF_VARCHAR2_TABLE_100
11 , a8 JTF_NUMBER_TABLE
12 , a9 JTF_VARCHAR2_TABLE_100
13 ) as
14 ddindx binary_integer; indx binary_integer;
15 begin
16 if a0 is not null and a0.count > 0 then
17 if a0.count > 0 then
18 indx := a0.first;
19 ddindx := 1;
20 while true loop
21 t(ddindx).operation_flag := a0(indx);
22 t(ddindx).mr_title := a1(indx);
23 t(ddindx).mr_version := a2(indx);
24 t(ddindx).mr_header_id := a3(indx);
25 t(ddindx).ue_relationship_id := a4(indx);
26 t(ddindx).unit_effectivity_id := a5(indx);
27 t(ddindx).object_version_number := a6(indx);
28 t(ddindx).relationship_code := a7(indx);
29 t(ddindx).csi_instance_id := a8(indx);
30 t(ddindx).csi_instance_number := a9(indx);
31 ddindx := ddindx+1;
32 if a0.last =indx
33 then exit;
34 end if;
35 indx := a0.next(indx);
36 end loop;
37 end if;
38 end if;
39 end rosetta_table_copy_in_p1;
40 procedure rosetta_table_copy_out_p1(t ahl_ump_sr_pvt.sr_mr_association_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
41 , a1 out nocopy JTF_VARCHAR2_TABLE_100
42 , a2 out nocopy JTF_NUMBER_TABLE
43 , a3 out nocopy JTF_NUMBER_TABLE
44 , a4 out nocopy JTF_NUMBER_TABLE
45 , a5 out nocopy JTF_NUMBER_TABLE
46 , a6 out nocopy JTF_NUMBER_TABLE
47 , a7 out nocopy JTF_VARCHAR2_TABLE_100
48 , a8 out nocopy JTF_NUMBER_TABLE
49 , a9 out nocopy JTF_VARCHAR2_TABLE_100
50 ) as
51 ddindx binary_integer; indx binary_integer;
52 begin
53 if t is null or t.count = 0 then
54 a0 := JTF_VARCHAR2_TABLE_100();
55 a1 := JTF_VARCHAR2_TABLE_100();
56 a2 := JTF_NUMBER_TABLE();
57 a3 := JTF_NUMBER_TABLE();
58 a4 := JTF_NUMBER_TABLE();
59 a5 := JTF_NUMBER_TABLE();
60 a6 := JTF_NUMBER_TABLE();
61 a7 := JTF_VARCHAR2_TABLE_100();
62 a8 := JTF_NUMBER_TABLE();
63 a9 := JTF_VARCHAR2_TABLE_100();
64 else
65 a0 := JTF_VARCHAR2_TABLE_100();
66 a1 := JTF_VARCHAR2_TABLE_100();
67 a2 := JTF_NUMBER_TABLE();
68 a3 := JTF_NUMBER_TABLE();
69 a4 := JTF_NUMBER_TABLE();
70 a5 := JTF_NUMBER_TABLE();
71 a6 := JTF_NUMBER_TABLE();
72 a7 := JTF_VARCHAR2_TABLE_100();
73 a8 := JTF_NUMBER_TABLE();
74 a9 := JTF_VARCHAR2_TABLE_100();
75 if t.count > 0 then
76 a0.extend(t.count);
77 a1.extend(t.count);
78 a2.extend(t.count);
79 a3.extend(t.count);
80 a4.extend(t.count);
81 a5.extend(t.count);
82 a6.extend(t.count);
83 a7.extend(t.count);
84 a8.extend(t.count);
85 a9.extend(t.count);
86 ddindx := t.first;
87 indx := 1;
88 while true loop
89 a0(indx) := t(ddindx).operation_flag;
90 a1(indx) := t(ddindx).mr_title;
91 a2(indx) := t(ddindx).mr_version;
92 a3(indx) := t(ddindx).mr_header_id;
93 a4(indx) := t(ddindx).ue_relationship_id;
94 a5(indx) := t(ddindx).unit_effectivity_id;
95 a6(indx) := t(ddindx).object_version_number;
96 a7(indx) := t(ddindx).relationship_code;
97 a8(indx) := t(ddindx).csi_instance_id;
98 a9(indx) := t(ddindx).csi_instance_number;
99 indx := indx+1;
100 if t.last =ddindx
101 then exit;
102 end if;
103 ddindx := t.next(ddindx);
104 end loop;
105 end if;
106 end if;
107 end rosetta_table_copy_out_p1;
108
109 procedure process_sr_mr_associations(p_api_version NUMBER
110 , p_init_msg_list VARCHAR2
111 , p_commit VARCHAR2
112 , p_validation_level NUMBER
113 , x_return_status out nocopy VARCHAR2
114 , x_msg_count out nocopy NUMBER
115 , x_msg_data out nocopy VARCHAR2
116 , p_user_id NUMBER
117 , p_login_id NUMBER
118 , p_request_id NUMBER
119 , p_object_version_number NUMBER
120 , p_request_number VARCHAR2
121 , p12_a0 in out nocopy JTF_VARCHAR2_TABLE_100
122 , p12_a1 in out nocopy JTF_VARCHAR2_TABLE_100
123 , p12_a2 in out nocopy JTF_NUMBER_TABLE
124 , p12_a3 in out nocopy JTF_NUMBER_TABLE
125 , p12_a4 in out nocopy JTF_NUMBER_TABLE
126 , p12_a5 in out nocopy JTF_NUMBER_TABLE
127 , p12_a6 in out nocopy JTF_NUMBER_TABLE
128 , p12_a7 in out nocopy JTF_VARCHAR2_TABLE_100
129 , p12_a8 in out nocopy JTF_NUMBER_TABLE
130 , p12_a9 in out nocopy JTF_VARCHAR2_TABLE_100
131 )
132
133 as
134 ddp_x_sr_mr_association_tbl ahl_ump_sr_pvt.sr_mr_association_tbl_type;
135 ddindx binary_integer; indx binary_integer;
136 begin
137
138 -- copy data to the local IN or IN-OUT args, if any
139
140
141
142
143
144
145
146
147
148
149
150
151 ahl_ump_sr_pvt_w.rosetta_table_copy_in_p1(ddp_x_sr_mr_association_tbl, p12_a0
152 , p12_a1
153 , p12_a2
154 , p12_a3
155 , p12_a4
156 , p12_a5
157 , p12_a6
158 , p12_a7
159 , p12_a8
160 , p12_a9
161 );
162
163 -- here's the delegated call to the old PL/SQL routine
164 ahl_ump_sr_pvt.process_sr_mr_associations(p_api_version,
165 p_init_msg_list,
166 p_commit,
167 p_validation_level,
168 x_return_status,
169 x_msg_count,
170 x_msg_data,
171 p_user_id,
172 p_login_id,
173 p_request_id,
174 p_object_version_number,
175 p_request_number,
176 ddp_x_sr_mr_association_tbl);
177
178 -- copy data back from the local variables to OUT or IN-OUT args, if any
179
180
181
182
183
184
185
186
187
188
189
190
191 ahl_ump_sr_pvt_w.rosetta_table_copy_out_p1(ddp_x_sr_mr_association_tbl, p12_a0
192 , p12_a1
193 , p12_a2
194 , p12_a3
195 , p12_a4
196 , p12_a5
197 , p12_a6
198 , p12_a7
199 , p12_a8
200 , p12_a9
201 );
202 end;
203
204 end ahl_ump_sr_pvt_w;