[Home] [Help]
1: package body pv_ge_chklst_resp_pvt_w as
2: /* $Header: pvxwgcrb.pls 115.2 2002/11/21 08:47:15 anubhavk ship $ */
3: rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4: rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5:
18: if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
19: return d;
20: end;
21:
22: procedure rosetta_table_copy_in_p2(t out nocopy pv_ge_chklst_resp_pvt.ge_chklst_resp_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_NUMBER_TABLE
24: , a2 JTF_NUMBER_TABLE
25: , a3 JTF_VARCHAR2_TABLE_100
26: , a4 JTF_VARCHAR2_TABLE_100
57: end loop;
58: end if;
59: end if;
60: end rosetta_table_copy_in_p2;
61: procedure rosetta_table_copy_out_p2(t pv_ge_chklst_resp_pvt.ge_chklst_resp_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
62: , a1 out nocopy JTF_NUMBER_TABLE
63: , a2 out nocopy JTF_NUMBER_TABLE
64: , a3 out nocopy JTF_VARCHAR2_TABLE_100
65: , a4 out nocopy JTF_VARCHAR2_TABLE_100
153: , p7_a10 NUMBER := 0-1962.0724
154: )
155:
156: as
157: ddp_ge_chklst_resp_rec pv_ge_chklst_resp_pvt.ge_chklst_resp_rec_type;
158: ddindx binary_integer; indx binary_integer;
159: begin
160:
161: -- copy data to the local IN or IN-OUT args, if any
179: ddp_ge_chklst_resp_rec.last_update_login := rosetta_g_miss_num_map(p7_a10);
180:
181:
182: -- here's the delegated call to the old PL/SQL routine
183: pv_ge_chklst_resp_pvt.create_ge_chklst_resp(p_api_version_number,
184: p_init_msg_list,
185: p_commit,
186: p_validation_level,
187: x_return_status,
221: , p7_a10 NUMBER := 0-1962.0724
222: )
223:
224: as
225: ddp_ge_chklst_resp_rec pv_ge_chklst_resp_pvt.ge_chklst_resp_rec_type;
226: ddindx binary_integer; indx binary_integer;
227: begin
228:
229: -- copy data to the local IN or IN-OUT args, if any
246: ddp_ge_chklst_resp_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a9);
247: ddp_ge_chklst_resp_rec.last_update_login := rosetta_g_miss_num_map(p7_a10);
248:
249: -- here's the delegated call to the old PL/SQL routine
250: pv_ge_chklst_resp_pvt.update_ge_chklst_resp(p_api_version_number,
251: p_init_msg_list,
252: p_commit,
253: p_validation_level,
254: x_return_status,
286: , p3_a10 NUMBER := 0-1962.0724
287: )
288:
289: as
290: ddp_ge_chklst_resp_rec pv_ge_chklst_resp_pvt.ge_chklst_resp_rec_type;
291: ddindx binary_integer; indx binary_integer;
292: begin
293:
294: -- copy data to the local IN or IN-OUT args, if any
311:
312:
313:
314: -- here's the delegated call to the old PL/SQL routine
315: pv_ge_chklst_resp_pvt.validate_ge_chklst_resp(p_api_version_number,
316: p_init_msg_list,
317: p_validation_level,
318: ddp_ge_chklst_resp_rec,
319: p_validation_mode,
346: , p0_a10 NUMBER := 0-1962.0724
347: )
348:
349: as
350: ddp_ge_chklst_resp_rec pv_ge_chklst_resp_pvt.ge_chklst_resp_rec_type;
351: ddindx binary_integer; indx binary_integer;
352: begin
353:
354: -- copy data to the local IN or IN-OUT args, if any
366:
367:
368:
369: -- here's the delegated call to the old PL/SQL routine
370: pv_ge_chklst_resp_pvt.check_ge_chklst_resp_items(ddp_ge_chklst_resp_rec,
371: p_validation_mode,
372: x_return_status);
373:
374: -- copy data back from the local variables to OUT or IN-OUT args, if any
394: , p5_a10 NUMBER := 0-1962.0724
395: )
396:
397: as
398: ddp_ge_chklst_resp_rec pv_ge_chklst_resp_pvt.ge_chklst_resp_rec_type;
399: ddindx binary_integer; indx binary_integer;
400: begin
401:
402: -- copy data to the local IN or IN-OUT args, if any
417: ddp_ge_chklst_resp_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a9);
418: ddp_ge_chklst_resp_rec.last_update_login := rosetta_g_miss_num_map(p5_a10);
419:
420: -- here's the delegated call to the old PL/SQL routine
421: pv_ge_chklst_resp_pvt.validate_ge_chklst_resp_rec(p_api_version_number,
422: p_init_msg_list,
423: x_return_status,
424: x_msg_count,
425: x_msg_data,
432:
433:
434: end;
435:
436: end pv_ge_chklst_resp_pvt_w;