[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.2 2005/08/22 05:40:38 hikumar noship $ */
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 , x_fee_assignment_id out nocopy NUMBER
28 , x_return_status out nocopy VARCHAR2
29 , x_msg_count out nocopy NUMBER
30 , x_msg_data out nocopy VARCHAR2
31 )
32
33 as
34 ddp_fee_assignment_rec lns_fee_assignment_pub.fee_assignment_rec_type;
35 ddindx binary_integer; indx binary_integer;
36 begin
37
38 -- copy data to the local IN or IN-OUT args, if any
39
40 ddp_fee_assignment_rec.fee_assignment_id := p1_a0;
41 ddp_fee_assignment_rec.loan_id := p1_a1;
42 ddp_fee_assignment_rec.fee_id := p1_a2;
43 ddp_fee_assignment_rec.fee := p1_a3;
44 ddp_fee_assignment_rec.fee_type := p1_a4;
45 ddp_fee_assignment_rec.fee_basis := p1_a5;
46 ddp_fee_assignment_rec.number_grace_days := p1_a6;
47 ddp_fee_assignment_rec.collected_third_party_flag := p1_a7;
48 ddp_fee_assignment_rec.rate_type := p1_a8;
49 ddp_fee_assignment_rec.begin_installment_number := p1_a9;
50 ddp_fee_assignment_rec.end_installment_number := p1_a10;
51 ddp_fee_assignment_rec.number_of_payments := p1_a11;
52 ddp_fee_assignment_rec.billing_option := p1_a12;
53 ddp_fee_assignment_rec.created_by := p1_a13;
54 ddp_fee_assignment_rec.creation_date := p1_a14;
55 ddp_fee_assignment_rec.last_updated_by := p1_a15;
56 ddp_fee_assignment_rec.last_update_date := p1_a16;
57 ddp_fee_assignment_rec.last_update_login := p1_a17;
58 ddp_fee_assignment_rec.object_version_number := p1_a18;
59 ddp_fee_assignment_rec.start_date_active := p1_a19;
60 ddp_fee_assignment_rec.end_date_active := p1_a20;
61 ddp_fee_assignment_rec.disb_header_id := p1_a21;
62 ddp_fee_assignment_rec.delete_disabled_flag := p1_a22;
63
64
65
66
67
68 -- here's the delegated call to the old PL/SQL routine
69 lns_fee_assignment_pub.create_fee_assignment(p_init_msg_list,
70 ddp_fee_assignment_rec,
71 x_fee_assignment_id,
72 x_return_status,
73 x_msg_count,
74 x_msg_data);
75
76 -- copy data back from the local variables to OUT or IN-OUT args, if any
77
78
79
80
81
82 end;
83
84 procedure update_fee_assignment(p_init_msg_list VARCHAR2
85 , p1_a0 NUMBER
86 , p1_a1 NUMBER
87 , p1_a2 NUMBER
88 , p1_a3 NUMBER
89 , p1_a4 VARCHAR2
90 , p1_a5 VARCHAR2
91 , p1_a6 NUMBER
92 , p1_a7 VARCHAR2
93 , p1_a8 VARCHAR2
94 , p1_a9 NUMBER
95 , p1_a10 NUMBER
96 , p1_a11 NUMBER
97 , p1_a12 VARCHAR2
98 , p1_a13 NUMBER
99 , p1_a14 DATE
100 , p1_a15 NUMBER
101 , p1_a16 DATE
102 , p1_a17 NUMBER
103 , p1_a18 NUMBER
104 , p1_a19 DATE
105 , p1_a20 DATE
106 , p1_a21 NUMBER
107 , p1_a22 VARCHAR2
108 , p_object_version_number in out nocopy NUMBER
109 , x_return_status out nocopy VARCHAR2
110 , x_msg_count out nocopy NUMBER
111 , x_msg_data out nocopy VARCHAR2
112 )
113
114 as
115 ddp_fee_assignment_rec lns_fee_assignment_pub.fee_assignment_rec_type;
116 ddindx binary_integer; indx binary_integer;
117 begin
118
119 -- copy data to the local IN or IN-OUT args, if any
120
121 ddp_fee_assignment_rec.fee_assignment_id := p1_a0;
122 ddp_fee_assignment_rec.loan_id := p1_a1;
123 ddp_fee_assignment_rec.fee_id := p1_a2;
124 ddp_fee_assignment_rec.fee := p1_a3;
125 ddp_fee_assignment_rec.fee_type := p1_a4;
126 ddp_fee_assignment_rec.fee_basis := p1_a5;
127 ddp_fee_assignment_rec.number_grace_days := p1_a6;
128 ddp_fee_assignment_rec.collected_third_party_flag := p1_a7;
129 ddp_fee_assignment_rec.rate_type := p1_a8;
130 ddp_fee_assignment_rec.begin_installment_number := p1_a9;
131 ddp_fee_assignment_rec.end_installment_number := p1_a10;
132 ddp_fee_assignment_rec.number_of_payments := p1_a11;
133 ddp_fee_assignment_rec.billing_option := p1_a12;
134 ddp_fee_assignment_rec.created_by := p1_a13;
135 ddp_fee_assignment_rec.creation_date := p1_a14;
136 ddp_fee_assignment_rec.last_updated_by := p1_a15;
137 ddp_fee_assignment_rec.last_update_date := p1_a16;
138 ddp_fee_assignment_rec.last_update_login := p1_a17;
139 ddp_fee_assignment_rec.object_version_number := p1_a18;
140 ddp_fee_assignment_rec.start_date_active := p1_a19;
141 ddp_fee_assignment_rec.end_date_active := p1_a20;
142 ddp_fee_assignment_rec.disb_header_id := p1_a21;
143 ddp_fee_assignment_rec.delete_disabled_flag := p1_a22;
144
145
146
147
148
149 -- here's the delegated call to the old PL/SQL routine
150 lns_fee_assignment_pub.update_fee_assignment(p_init_msg_list,
151 ddp_fee_assignment_rec,
152 p_object_version_number,
153 x_return_status,
154 x_msg_count,
155 x_msg_data);
156
157 -- copy data back from the local variables to OUT or IN-OUT args, if any
158
159
160
161
162
163 end;
164
165 end lns_fee_assignment_pub_w;