[Home] [Help]
PACKAGE BODY: APPS.EAM_CREATEUPDATE_SAFETY_PVT_W
Source
1 package body eam_createupdate_safety_pvt_w as
2 /* $Header: EAMVWPCB.pls 120.0.12010000.2 2010/03/23 00:36:56 mashah noship $ */
3 procedure create_update_permit(p_commit VARCHAR2
4 , p1_a0 NUMBER
5 , p1_a1 NUMBER
6 , p1_a2 NUMBER
7 , p1_a3 NUMBER
8 , p1_a4 NUMBER
9 , p1_a5 VARCHAR2
10 , p1_a6 NUMBER
11 , p1_a7 VARCHAR2
12 , p1_a8 NUMBER
13 , p1_a9 NUMBER
14 , p1_a10 DATE
15 , p1_a11 DATE
16 , p1_a12 VARCHAR2
17 , p1_a13 DATE
18 , p1_a14 NUMBER
19 , p1_a15 VARCHAR2
20 , p1_a16 VARCHAR2
21 , p1_a17 VARCHAR2
22 , p1_a18 VARCHAR2
23 , p1_a19 VARCHAR2
24 , p1_a20 VARCHAR2
25 , p1_a21 VARCHAR2
26 , p1_a22 VARCHAR2
27 , p1_a23 VARCHAR2
28 , p1_a24 VARCHAR2
29 , p1_a25 VARCHAR2
30 , p1_a26 VARCHAR2
31 , p1_a27 VARCHAR2
32 , p1_a28 VARCHAR2
33 , p1_a29 VARCHAR2
34 , p1_a30 VARCHAR2
35 , p1_a31 VARCHAR2
36 , p1_a32 VARCHAR2
37 , p1_a33 VARCHAR2
38 , p1_a34 VARCHAR2
39 , p1_a35 VARCHAR2
40 , p1_a36 VARCHAR2
41 , p1_a37 VARCHAR2
42 , p1_a38 VARCHAR2
43 , p1_a39 VARCHAR2
44 , p1_a40 VARCHAR2
45 , p1_a41 VARCHAR2
46 , p1_a42 VARCHAR2
47 , p1_a43 VARCHAR2
48 , p1_a44 VARCHAR2
49 , p1_a45 VARCHAR2
50 , p1_a46 NUMBER
51 , p1_a47 NUMBER
52 , p1_a48 DATE
53 , p1_a49 NUMBER
54 , p1_a50 NUMBER
55 , p2_a0 JTF_NUMBER_TABLE
56 , p2_a1 JTF_NUMBER_TABLE
57 , p2_a2 JTF_NUMBER_TABLE
58 , p2_a3 JTF_NUMBER_TABLE
59 , p2_a4 JTF_NUMBER_TABLE
60 , p2_a5 JTF_NUMBER_TABLE
61 , p2_a6 JTF_NUMBER_TABLE
62 , p2_a7 JTF_NUMBER_TABLE
63 , p2_a8 JTF_VARCHAR2_TABLE_100
64 , p2_a9 JTF_VARCHAR2_TABLE_300
65 , p2_a10 JTF_VARCHAR2_TABLE_300
66 , p2_a11 JTF_VARCHAR2_TABLE_300
67 , p2_a12 JTF_VARCHAR2_TABLE_300
68 , p2_a13 JTF_VARCHAR2_TABLE_300
69 , p2_a14 JTF_VARCHAR2_TABLE_300
70 , p2_a15 JTF_VARCHAR2_TABLE_300
71 , p2_a16 JTF_VARCHAR2_TABLE_300
72 , p2_a17 JTF_VARCHAR2_TABLE_300
73 , p2_a18 JTF_VARCHAR2_TABLE_300
74 , p2_a19 JTF_VARCHAR2_TABLE_300
75 , p2_a20 JTF_VARCHAR2_TABLE_300
76 , p2_a21 JTF_VARCHAR2_TABLE_300
77 , p2_a22 JTF_VARCHAR2_TABLE_300
78 , p2_a23 JTF_VARCHAR2_TABLE_300
79 , p2_a24 JTF_VARCHAR2_TABLE_300
80 , p2_a25 JTF_VARCHAR2_TABLE_300
81 , p2_a26 JTF_VARCHAR2_TABLE_300
82 , p2_a27 JTF_VARCHAR2_TABLE_300
83 , p2_a28 JTF_VARCHAR2_TABLE_300
84 , p2_a29 JTF_VARCHAR2_TABLE_300
85 , p2_a30 JTF_VARCHAR2_TABLE_300
86 , p2_a31 JTF_VARCHAR2_TABLE_300
87 , p2_a32 JTF_VARCHAR2_TABLE_300
88 , p2_a33 JTF_VARCHAR2_TABLE_300
89 , p2_a34 JTF_VARCHAR2_TABLE_300
90 , p2_a35 JTF_VARCHAR2_TABLE_300
91 , p2_a36 JTF_VARCHAR2_TABLE_300
92 , p2_a37 JTF_VARCHAR2_TABLE_300
93 , p2_a38 JTF_VARCHAR2_TABLE_300
94 , p2_a39 JTF_NUMBER_TABLE
95 , p2_a40 JTF_DATE_TABLE
96 , x_permit_id out nocopy NUMBER
97 , x_return_status out nocopy VARCHAR2
98 , x_msg_count out nocopy NUMBER
99 )
100
101 as
102 ddp_work_permit_header_rec eam_process_permit_pub.eam_wp_header_rec_type;
103 ddp_permit_wo_association_tbl eam_process_permit_pub.eam_wp_association_tbl_type;
104 ddindx binary_integer; indx binary_integer;
105 begin
106
107 -- copy data to the local IN or IN-OUT args, if any
108
109 ddp_work_permit_header_rec.header_id := p1_a0;
110 ddp_work_permit_header_rec.batch_id := p1_a1;
111 ddp_work_permit_header_rec.row_id := p1_a2;
112 ddp_work_permit_header_rec.transaction_type := p1_a3;
113 ddp_work_permit_header_rec.permit_id := p1_a4;
114 ddp_work_permit_header_rec.permit_name := p1_a5;
115 ddp_work_permit_header_rec.permit_type := p1_a6;
116 ddp_work_permit_header_rec.description := p1_a7;
117 ddp_work_permit_header_rec.organization_id := p1_a8;
118 ddp_work_permit_header_rec.status_type := p1_a9;
119 ddp_work_permit_header_rec.valid_from := p1_a10;
120 ddp_work_permit_header_rec.valid_to := p1_a11;
121 ddp_work_permit_header_rec.pending_flag := p1_a12;
122 ddp_work_permit_header_rec.completion_date := p1_a13;
123 ddp_work_permit_header_rec.user_defined_status_id := p1_a14;
124 ddp_work_permit_header_rec.attribute_category := p1_a15;
125 ddp_work_permit_header_rec.attribute1 := p1_a16;
126 ddp_work_permit_header_rec.attribute2 := p1_a17;
127 ddp_work_permit_header_rec.attribute3 := p1_a18;
128 ddp_work_permit_header_rec.attribute4 := p1_a19;
129 ddp_work_permit_header_rec.attribute5 := p1_a20;
130 ddp_work_permit_header_rec.attribute6 := p1_a21;
131 ddp_work_permit_header_rec.attribute7 := p1_a22;
132 ddp_work_permit_header_rec.attribute8 := p1_a23;
133 ddp_work_permit_header_rec.attribute9 := p1_a24;
134 ddp_work_permit_header_rec.attribute10 := p1_a25;
135 ddp_work_permit_header_rec.attribute11 := p1_a26;
136 ddp_work_permit_header_rec.attribute12 := p1_a27;
137 ddp_work_permit_header_rec.attribute13 := p1_a28;
138 ddp_work_permit_header_rec.attribute14 := p1_a29;
139 ddp_work_permit_header_rec.attribute15 := p1_a30;
140 ddp_work_permit_header_rec.attribute16 := p1_a31;
141 ddp_work_permit_header_rec.attribute17 := p1_a32;
142 ddp_work_permit_header_rec.attribute18 := p1_a33;
143 ddp_work_permit_header_rec.attribute19 := p1_a34;
144 ddp_work_permit_header_rec.attribute20 := p1_a35;
145 ddp_work_permit_header_rec.attribute21 := p1_a36;
146 ddp_work_permit_header_rec.attribute22 := p1_a37;
147 ddp_work_permit_header_rec.attribute23 := p1_a38;
148 ddp_work_permit_header_rec.attribute24 := p1_a39;
149 ddp_work_permit_header_rec.attribute25 := p1_a40;
150 ddp_work_permit_header_rec.attribute26 := p1_a41;
151 ddp_work_permit_header_rec.attribute27 := p1_a42;
152 ddp_work_permit_header_rec.attribute28 := p1_a43;
153 ddp_work_permit_header_rec.attribute29 := p1_a44;
154 ddp_work_permit_header_rec.attribute30 := p1_a45;
155 ddp_work_permit_header_rec.approved_by := p1_a46;
156 ddp_work_permit_header_rec.created_by := p1_a47;
157 ddp_work_permit_header_rec.creation_date := p1_a48;
158 ddp_work_permit_header_rec.user_id := p1_a49;
159 ddp_work_permit_header_rec.responsibility_id := p1_a50;
160
161 eam_process_permit_pub_w.rosetta_table_copy_in_p3(ddp_permit_wo_association_tbl, p2_a0
162 , p2_a1
163 , p2_a2
164 , p2_a3
165 , p2_a4
166 , p2_a5
167 , p2_a6
168 , p2_a7
169 , p2_a8
170 , p2_a9
171 , p2_a10
172 , p2_a11
173 , p2_a12
174 , p2_a13
175 , p2_a14
176 , p2_a15
177 , p2_a16
178 , p2_a17
179 , p2_a18
180 , p2_a19
181 , p2_a20
182 , p2_a21
183 , p2_a22
184 , p2_a23
185 , p2_a24
186 , p2_a25
187 , p2_a26
188 , p2_a27
189 , p2_a28
190 , p2_a29
191 , p2_a30
192 , p2_a31
193 , p2_a32
194 , p2_a33
195 , p2_a34
196 , p2_a35
197 , p2_a36
198 , p2_a37
199 , p2_a38
200 , p2_a39
201 , p2_a40
202 );
203
204
205
206
207 -- here's the delegated call to the old PL/SQL routine
208 eam_createupdate_safety_pvt.create_update_permit(p_commit,
209 ddp_work_permit_header_rec,
210 ddp_permit_wo_association_tbl,
211 x_permit_id,
212 x_return_status,
213 x_msg_count);
214
215 -- copy data back from the local variables to OUT or IN-OUT args, if any
216
217
218
219
220
221 end;
222
223 end eam_createupdate_safety_pvt_w;
224