[Home] [Help]
PACKAGE BODY: APPS.LNS_FEE_ASSIGNMENT_PUB_W
Source
1 package body lns_fee_assignment_pub_w as
2 /* $Header: LNS_FASGM_PUBJ_B.pls 120.5 2010/06/28 10:36:26 gparuchu ship $ */
3 procedure create_fee_assignment(p_init_msg_list VARCHAR2
4 , p1_a0 NUMBER
5 , p1_a1 NUMBER
6 , p1_a2 NUMBER
7 , p1_a3 NUMBER
8 , p1_a4 VARCHAR2
9 , p1_a5 VARCHAR2
10 , p1_a6 NUMBER
11 , p1_a7 VARCHAR2
12 , p1_a8 VARCHAR2
13 , p1_a9 NUMBER
14 , p1_a10 NUMBER
15 , p1_a11 NUMBER
16 , p1_a12 VARCHAR2
17 , p1_a13 NUMBER
18 , p1_a14 DATE
19 , p1_a15 NUMBER
20 , p1_a16 DATE
21 , p1_a17 NUMBER
22 , p1_a18 NUMBER
23 , p1_a19 DATE
24 , p1_a20 DATE
25 , p1_a21 NUMBER
26 , p1_a22 VARCHAR2
27 , p1_a23 VARCHAR2
28 , p1_a24 VARCHAR2
29 , p1_a25 VARCHAR2
30 , x_fee_assignment_id out nocopy NUMBER
31 , x_return_status out nocopy VARCHAR2
32 , x_msg_count out nocopy NUMBER
33 , x_msg_data out nocopy VARCHAR2
34 )
35
36 as
37 ddp_fee_assignment_rec lns_fee_assignment_pub.fee_assignment_rec_type;
38 ddindx binary_integer; indx binary_integer;
39 begin
40
41 -- copy data to the local IN or IN-OUT args, if any
42
43 ddp_fee_assignment_rec.fee_assignment_id := p1_a0;
44 ddp_fee_assignment_rec.loan_id := p1_a1;
45 ddp_fee_assignment_rec.fee_id := p1_a2;
46 ddp_fee_assignment_rec.fee := p1_a3;
47 ddp_fee_assignment_rec.fee_type := p1_a4;
48 ddp_fee_assignment_rec.fee_basis := p1_a5;
49 ddp_fee_assignment_rec.number_grace_days := p1_a6;
50 ddp_fee_assignment_rec.collected_third_party_flag := p1_a7;
51 ddp_fee_assignment_rec.rate_type := p1_a8;
52 ddp_fee_assignment_rec.begin_installment_number := p1_a9;
53 ddp_fee_assignment_rec.end_installment_number := p1_a10;
54 ddp_fee_assignment_rec.number_of_payments := p1_a11;
55 ddp_fee_assignment_rec.billing_option := p1_a12;
56 ddp_fee_assignment_rec.created_by := p1_a13;
57 ddp_fee_assignment_rec.creation_date := p1_a14;
58 ddp_fee_assignment_rec.last_updated_by := p1_a15;
59 ddp_fee_assignment_rec.last_update_date := p1_a16;
60 ddp_fee_assignment_rec.last_update_login := p1_a17;
61 ddp_fee_assignment_rec.object_version_number := p1_a18;
62 ddp_fee_assignment_rec.start_date_active := p1_a19;
63 ddp_fee_assignment_rec.end_date_active := p1_a20;
64 ddp_fee_assignment_rec.disb_header_id := p1_a21;
65 ddp_fee_assignment_rec.delete_disabled_flag := p1_a22;
66 ddp_fee_assignment_rec.open_phase_flag := p1_a23;
67 ddp_fee_assignment_rec.phase := p1_a24;
68 ddp_fee_assignment_rec.custom_procedure := p1_a25;
69
70
71
72
73
74 -- here's the delegated call to the old PL/SQL routine
75 lns_fee_assignment_pub.create_fee_assignment(p_init_msg_list,
76 ddp_fee_assignment_rec,
77 x_fee_assignment_id,
78 x_return_status,
79 x_msg_count,
80 x_msg_data);
81
82 -- copy data back from the local variables to OUT or IN-OUT args, if any
83
84
85
86
87
88 end;
89
90 procedure update_fee_assignment(p_init_msg_list VARCHAR2
91 , p1_a0 NUMBER
92 , p1_a1 NUMBER
93 , p1_a2 NUMBER
94 , p1_a3 NUMBER
95 , p1_a4 VARCHAR2
96 , p1_a5 VARCHAR2
97 , p1_a6 NUMBER
98 , p1_a7 VARCHAR2
99 , p1_a8 VARCHAR2
100 , p1_a9 NUMBER
101 , p1_a10 NUMBER
102 , p1_a11 NUMBER
103 , p1_a12 VARCHAR2
104 , p1_a13 NUMBER
105 , p1_a14 DATE
106 , p1_a15 NUMBER
107 , p1_a16 DATE
108 , p1_a17 NUMBER
109 , p1_a18 NUMBER
110 , p1_a19 DATE
111 , p1_a20 DATE
112 , p1_a21 NUMBER
113 , p1_a22 VARCHAR2
114 , p1_a23 VARCHAR2
115 , p1_a24 VARCHAR2
116 , p1_a25 VARCHAR2
117 , p_object_version_number in out nocopy NUMBER
118 , x_return_status out nocopy VARCHAR2
119 , x_msg_count out nocopy NUMBER
120 , x_msg_data out nocopy VARCHAR2
121 )
122
123 as
124 ddp_fee_assignment_rec lns_fee_assignment_pub.fee_assignment_rec_type;
125 ddindx binary_integer; indx binary_integer;
126 begin
127
128 -- copy data to the local IN or IN-OUT args, if any
129
130 ddp_fee_assignment_rec.fee_assignment_id := p1_a0;
131 ddp_fee_assignment_rec.loan_id := p1_a1;
132 ddp_fee_assignment_rec.fee_id := p1_a2;
133 ddp_fee_assignment_rec.fee := p1_a3;
134 ddp_fee_assignment_rec.fee_type := p1_a4;
135 ddp_fee_assignment_rec.fee_basis := p1_a5;
136 ddp_fee_assignment_rec.number_grace_days := p1_a6;
137 ddp_fee_assignment_rec.collected_third_party_flag := p1_a7;
138 ddp_fee_assignment_rec.rate_type := p1_a8;
139 ddp_fee_assignment_rec.begin_installment_number := p1_a9;
140 ddp_fee_assignment_rec.end_installment_number := p1_a10;
141 ddp_fee_assignment_rec.number_of_payments := p1_a11;
142 ddp_fee_assignment_rec.billing_option := p1_a12;
143 ddp_fee_assignment_rec.created_by := p1_a13;
144 ddp_fee_assignment_rec.creation_date := p1_a14;
145 ddp_fee_assignment_rec.last_updated_by := p1_a15;
146 ddp_fee_assignment_rec.last_update_date := p1_a16;
147 ddp_fee_assignment_rec.last_update_login := p1_a17;
148 ddp_fee_assignment_rec.object_version_number := p1_a18;
149 ddp_fee_assignment_rec.start_date_active := p1_a19;
150 ddp_fee_assignment_rec.end_date_active := p1_a20;
151 ddp_fee_assignment_rec.disb_header_id := p1_a21;
152 ddp_fee_assignment_rec.delete_disabled_flag := p1_a22;
153 ddp_fee_assignment_rec.open_phase_flag := p1_a23;
154 ddp_fee_assignment_rec.phase := p1_a24;
155 ddp_fee_assignment_rec.custom_procedure := p1_a25;
156
157
158
159
160
161 -- here's the delegated call to the old PL/SQL routine
162 lns_fee_assignment_pub.update_fee_assignment(p_init_msg_list,
163 ddp_fee_assignment_rec,
164 p_object_version_number,
165 x_return_status,
166 x_msg_count,
167 x_msg_data);
168
169 -- copy data back from the local variables to OUT or IN-OUT args, if any
170
171
172
173
174
175 end;
176
177 end lns_fee_assignment_pub_w;