[Home] [Help]
PACKAGE BODY: APPS.LNS_APPROVAL_ACTION_PUB_W
Source
1 package body lns_approval_action_pub_w as
2 /* $Header: LNS_APACT_PUBJ_B.pls 120.0.12010000.3 2010/04/08 08:41:38 gparuchu ship $ */
3 procedure create_approval_action(p_init_msg_list VARCHAR2
4 , p1_a0 NUMBER
5 , p1_a1 NUMBER
6 , p1_a2 DATE
7 , p1_a3 NUMBER
8 , p1_a4 DATE
9 , p1_a5 NUMBER
10 , p1_a6 NUMBER
11 , p1_a7 NUMBER
12 , p1_a8 VARCHAR2
13 , p1_a9 NUMBER
14 , p1_a10 VARCHAR2
15 , p1_a11 VARCHAR2
16 , p1_a12 VARCHAR2
17 , p1_a13 VARCHAR2
18 , p1_a14 VARCHAR2
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 , x_action_id out nocopy NUMBER
37 , x_return_status out nocopy VARCHAR2
38 , x_msg_count out nocopy NUMBER
39 , x_msg_data out nocopy VARCHAR2
40 )
41
42 as
43 ddp_approval_action_rec lns_approval_action_pub.approval_action_rec_type;
44 ddindx binary_integer; indx binary_integer;
45 begin
46
47 -- copy data to the local IN or IN-OUT args, if any
48
49 ddp_approval_action_rec.action_id := p1_a0;
50 ddp_approval_action_rec.created_by := p1_a1;
51 ddp_approval_action_rec.creation_date := p1_a2;
52 ddp_approval_action_rec.last_updated_by := p1_a3;
53 ddp_approval_action_rec.last_update_date := p1_a4;
54 ddp_approval_action_rec.last_update_login := p1_a5;
55 ddp_approval_action_rec.object_version_number := p1_a6;
56 ddp_approval_action_rec.loan_id := p1_a7;
57 ddp_approval_action_rec.action_type := p1_a8;
58 ddp_approval_action_rec.amount := p1_a9;
59 ddp_approval_action_rec.reason_code := p1_a10;
60 ddp_approval_action_rec.attribute_category := p1_a11;
61 ddp_approval_action_rec.attribute1 := p1_a12;
62 ddp_approval_action_rec.attribute2 := p1_a13;
63 ddp_approval_action_rec.attribute3 := p1_a14;
64 ddp_approval_action_rec.attribute4 := p1_a15;
65 ddp_approval_action_rec.attribute5 := p1_a16;
66 ddp_approval_action_rec.attribute6 := p1_a17;
67 ddp_approval_action_rec.attribute7 := p1_a18;
68 ddp_approval_action_rec.attribute8 := p1_a19;
69 ddp_approval_action_rec.attribute9 := p1_a20;
70 ddp_approval_action_rec.attribute10 := p1_a21;
71 ddp_approval_action_rec.attribute11 := p1_a22;
72 ddp_approval_action_rec.attribute12 := p1_a23;
73 ddp_approval_action_rec.attribute13 := p1_a24;
74 ddp_approval_action_rec.attribute14 := p1_a25;
75 ddp_approval_action_rec.attribute15 := p1_a26;
76 ddp_approval_action_rec.attribute16 := p1_a27;
77 ddp_approval_action_rec.attribute17 := p1_a28;
78 ddp_approval_action_rec.attribute18 := p1_a29;
79 ddp_approval_action_rec.attribute19 := p1_a30;
80 ddp_approval_action_rec.attribute20 := p1_a31;
81
82
83
84
85
86 -- here's the delegated call to the old PL/SQL routine
87 lns_approval_action_pub.create_approval_action(p_init_msg_list,
88 ddp_approval_action_rec,
89 x_action_id,
90 x_return_status,
91 x_msg_count,
92 x_msg_data);
93
94 -- copy data back from the local variables to OUT or IN-OUT args, if any
95
96
97
98
99
100 end;
101
102 procedure update_approval_action(p_init_msg_list VARCHAR2
103 , p1_a0 NUMBER
104 , p1_a1 NUMBER
105 , p1_a2 DATE
106 , p1_a3 NUMBER
107 , p1_a4 DATE
108 , p1_a5 NUMBER
109 , p1_a6 NUMBER
110 , p1_a7 NUMBER
111 , p1_a8 VARCHAR2
112 , p1_a9 NUMBER
113 , p1_a10 VARCHAR2
114 , p1_a11 VARCHAR2
115 , p1_a12 VARCHAR2
116 , p1_a13 VARCHAR2
117 , p1_a14 VARCHAR2
118 , p1_a15 VARCHAR2
119 , p1_a16 VARCHAR2
120 , p1_a17 VARCHAR2
121 , p1_a18 VARCHAR2
122 , p1_a19 VARCHAR2
123 , p1_a20 VARCHAR2
124 , p1_a21 VARCHAR2
125 , p1_a22 VARCHAR2
126 , p1_a23 VARCHAR2
127 , p1_a24 VARCHAR2
128 , p1_a25 VARCHAR2
129 , p1_a26 VARCHAR2
130 , p1_a27 VARCHAR2
131 , p1_a28 VARCHAR2
132 , p1_a29 VARCHAR2
133 , p1_a30 VARCHAR2
134 , p1_a31 VARCHAR2
135 , p_object_version_number in out nocopy NUMBER
136 , x_return_status out nocopy VARCHAR2
137 , x_msg_count out nocopy NUMBER
138 , x_msg_data out nocopy VARCHAR2
139 )
140
141 as
142 ddp_approval_action_rec lns_approval_action_pub.approval_action_rec_type;
143 ddindx binary_integer; indx binary_integer;
144 begin
145
146 -- copy data to the local IN or IN-OUT args, if any
147
148 ddp_approval_action_rec.action_id := p1_a0;
149 ddp_approval_action_rec.created_by := p1_a1;
150 ddp_approval_action_rec.creation_date := p1_a2;
151 ddp_approval_action_rec.last_updated_by := p1_a3;
152 ddp_approval_action_rec.last_update_date := p1_a4;
153 ddp_approval_action_rec.last_update_login := p1_a5;
154 ddp_approval_action_rec.object_version_number := p1_a6;
155 ddp_approval_action_rec.loan_id := p1_a7;
156 ddp_approval_action_rec.action_type := p1_a8;
157 ddp_approval_action_rec.amount := p1_a9;
158 ddp_approval_action_rec.reason_code := p1_a10;
159 ddp_approval_action_rec.attribute_category := p1_a11;
160 ddp_approval_action_rec.attribute1 := p1_a12;
161 ddp_approval_action_rec.attribute2 := p1_a13;
162 ddp_approval_action_rec.attribute3 := p1_a14;
163 ddp_approval_action_rec.attribute4 := p1_a15;
164 ddp_approval_action_rec.attribute5 := p1_a16;
165 ddp_approval_action_rec.attribute6 := p1_a17;
166 ddp_approval_action_rec.attribute7 := p1_a18;
167 ddp_approval_action_rec.attribute8 := p1_a19;
168 ddp_approval_action_rec.attribute9 := p1_a20;
169 ddp_approval_action_rec.attribute10 := p1_a21;
170 ddp_approval_action_rec.attribute11 := p1_a22;
171 ddp_approval_action_rec.attribute12 := p1_a23;
172 ddp_approval_action_rec.attribute13 := p1_a24;
173 ddp_approval_action_rec.attribute14 := p1_a25;
174 ddp_approval_action_rec.attribute15 := p1_a26;
175 ddp_approval_action_rec.attribute16 := p1_a27;
176 ddp_approval_action_rec.attribute17 := p1_a28;
177 ddp_approval_action_rec.attribute18 := p1_a29;
178 ddp_approval_action_rec.attribute19 := p1_a30;
179 ddp_approval_action_rec.attribute20 := p1_a31;
180
181
182
183
184
185 -- here's the delegated call to the old PL/SQL routine
186 lns_approval_action_pub.update_approval_action(p_init_msg_list,
187 ddp_approval_action_rec,
188 p_object_version_number,
189 x_return_status,
190 x_msg_count,
191 x_msg_data);
192
193 -- copy data back from the local variables to OUT or IN-OUT args, if any
194
195
196
197
198
199 end;
200
201 end lns_approval_action_pub_w;