1: package body lns_participants_pub_w as
2: /* $Header: LNS_PART_PUBJ_B.pls 120.4 2006/01/18 20:30 karamach noship $ */
3: procedure validateparticipant(p0_a0 NUMBER
4: , p0_a1 NUMBER
5: , p0_a2 NUMBER
42: , x_msg_data out nocopy VARCHAR2
43: )
44:
45: as
46: ddp_loan_participant_rec lns_participants_pub.loan_participant_rec_type;
47: ddindx binary_integer; indx binary_integer;
48: begin
49:
50: -- copy data to the local IN or IN-OUT args, if any
89:
90:
91:
92: -- here's the delegated call to the old PL/SQL routine
93: lns_participants_pub.validateparticipant(ddp_loan_participant_rec,
94: p_mode,
95: x_return_status,
96: x_msg_count,
97: x_msg_data);
147: , x_msg_data out nocopy VARCHAR2
148: )
149:
150: as
151: ddp_loan_participant_rec lns_participants_pub.loan_participant_rec_type;
152: ddindx binary_integer; indx binary_integer;
153: begin
154:
155: -- copy data to the local IN or IN-OUT args, if any
196:
197:
198:
199: -- here's the delegated call to the old PL/SQL routine
200: lns_participants_pub.createparticipant(p_init_msg_list,
201: p_validation_level,
202: ddp_loan_participant_rec,
203: x_participant_id,
204: x_return_status,
258: , x_msg_data out nocopy VARCHAR2
259: )
260:
261: as
262: ddp_loan_participant_rec lns_participants_pub.loan_participant_rec_type;
263: ddindx binary_integer; indx binary_integer;
264: begin
265:
266: -- copy data to the local IN or IN-OUT args, if any
307:
308:
309:
310: -- here's the delegated call to the old PL/SQL routine
311: lns_participants_pub.updateparticipant(p_init_msg_list,
312: p_validation_level,
313: ddp_loan_participant_rec,
314: x_object_version_number,
315: x_return_status,
324:
325:
326: end;
327:
328: end lns_participants_pub_w;