[Home] [Help]
PACKAGE BODY: APPS.LNS_COND_ASSIGNMENT_PUB_W
Source
1 package body lns_cond_assignment_pub_w as
2 /* $Header: LNS_CASGM_PUBJ_B.pls 120.2 2005/08/22 05:41:00 hikumar noship $ */
3 procedure create_cond_assignment(p_init_msg_list VARCHAR2
4 , p1_a0 NUMBER
5 , p1_a1 NUMBER
6 , p1_a2 NUMBER
7 , p1_a3 VARCHAR2
8 , p1_a4 VARCHAR2
9 , p1_a5 DATE
10 , p1_a6 NUMBER
11 , p1_a7 VARCHAR2
12 , p1_a8 NUMBER
13 , p1_a9 DATE
14 , p1_a10 NUMBER
15 , p1_a11 DATE
16 , p1_a12 NUMBER
17 , p1_a13 NUMBER
18 , p1_a14 NUMBER
19 , p1_a15 VARCHAR2
20 , x_cond_assignment_id out nocopy NUMBER
21 , x_return_status out nocopy VARCHAR2
22 , x_msg_count out nocopy NUMBER
23 , x_msg_data out nocopy VARCHAR2
24 )
25
26 as
27 ddp_cond_assignment_rec lns_cond_assignment_pub.cond_assignment_rec_type;
28 ddindx binary_integer; indx binary_integer;
29 begin
30
31 -- copy data to the local IN or IN-OUT args, if any
32
33 ddp_cond_assignment_rec.cond_assignment_id := p1_a0;
34 ddp_cond_assignment_rec.loan_id := p1_a1;
35 ddp_cond_assignment_rec.condition_id := p1_a2;
36 ddp_cond_assignment_rec.condition_description := p1_a3;
37 ddp_cond_assignment_rec.condition_met_flag := p1_a4;
38 ddp_cond_assignment_rec.fulfillment_date := p1_a5;
39 ddp_cond_assignment_rec.fulfillment_updated_by := p1_a6;
40 ddp_cond_assignment_rec.mandatory_flag := p1_a7;
41 ddp_cond_assignment_rec.created_by := p1_a8;
42 ddp_cond_assignment_rec.creation_date := p1_a9;
43 ddp_cond_assignment_rec.last_updated_by := p1_a10;
44 ddp_cond_assignment_rec.last_update_date := p1_a11;
45 ddp_cond_assignment_rec.last_update_login := p1_a12;
46 ddp_cond_assignment_rec.object_version_number := p1_a13;
47 ddp_cond_assignment_rec.disb_header_id := p1_a14;
48 ddp_cond_assignment_rec.delete_disabled_flag := p1_a15;
49
50
51
52
53
54 -- here's the delegated call to the old PL/SQL routine
55 lns_cond_assignment_pub.create_cond_assignment(p_init_msg_list,
56 ddp_cond_assignment_rec,
57 x_cond_assignment_id,
58 x_return_status,
59 x_msg_count,
60 x_msg_data);
61
62 -- copy data back from the local variables to OUT or IN-OUT args, if any
63
64
65
66
67
68 end;
69
70 procedure update_cond_assignment(p_init_msg_list VARCHAR2
71 , p1_a0 NUMBER
72 , p1_a1 NUMBER
73 , p1_a2 NUMBER
74 , p1_a3 VARCHAR2
75 , p1_a4 VARCHAR2
76 , p1_a5 DATE
77 , p1_a6 NUMBER
78 , p1_a7 VARCHAR2
79 , p1_a8 NUMBER
80 , p1_a9 DATE
81 , p1_a10 NUMBER
82 , p1_a11 DATE
83 , p1_a12 NUMBER
84 , p1_a13 NUMBER
85 , p1_a14 NUMBER
86 , p1_a15 VARCHAR2
87 , p_object_version_number in out nocopy NUMBER
88 , x_return_status out nocopy VARCHAR2
89 , x_msg_count out nocopy NUMBER
90 , x_msg_data out nocopy VARCHAR2
91 )
92
93 as
94 ddp_cond_assignment_rec lns_cond_assignment_pub.cond_assignment_rec_type;
95 ddindx binary_integer; indx binary_integer;
96 begin
97
98 -- copy data to the local IN or IN-OUT args, if any
99
100 ddp_cond_assignment_rec.cond_assignment_id := p1_a0;
101 ddp_cond_assignment_rec.loan_id := p1_a1;
102 ddp_cond_assignment_rec.condition_id := p1_a2;
103 ddp_cond_assignment_rec.condition_description := p1_a3;
104 ddp_cond_assignment_rec.condition_met_flag := p1_a4;
105 ddp_cond_assignment_rec.fulfillment_date := p1_a5;
106 ddp_cond_assignment_rec.fulfillment_updated_by := p1_a6;
107 ddp_cond_assignment_rec.mandatory_flag := p1_a7;
108 ddp_cond_assignment_rec.created_by := p1_a8;
109 ddp_cond_assignment_rec.creation_date := p1_a9;
110 ddp_cond_assignment_rec.last_updated_by := p1_a10;
111 ddp_cond_assignment_rec.last_update_date := p1_a11;
112 ddp_cond_assignment_rec.last_update_login := p1_a12;
113 ddp_cond_assignment_rec.object_version_number := p1_a13;
114 ddp_cond_assignment_rec.disb_header_id := p1_a14;
115 ddp_cond_assignment_rec.delete_disabled_flag := p1_a15;
116
117
118
119
120
121 -- here's the delegated call to the old PL/SQL routine
122 lns_cond_assignment_pub.update_cond_assignment(p_init_msg_list,
123 ddp_cond_assignment_rec,
124 p_object_version_number,
125 x_return_status,
126 x_msg_count,
127 x_msg_data);
128
129 -- copy data back from the local variables to OUT or IN-OUT args, if any
130
131
132
133
134
135 end;
136
137 end lns_cond_assignment_pub_w;