1: package body ahl_appr_dept_shifts_pub_w as
2: /* $Header: AHLWDSHB.pls 120.2 2007/12/24 22:41:55 rbhavsar 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: rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
61: , p9_a36 in out nocopy VARCHAR2
62: )
63:
64: as
65: ddp_x_appr_deptshift_rec ahl_appr_dept_shifts_pub.appr_deptshift_rec;
66: ddindx binary_integer; indx binary_integer;
67: begin
68:
69: -- copy data to the local IN or IN-OUT args, if any
114: ddp_x_appr_deptshift_rec.attribute15 := p9_a35;
115: ddp_x_appr_deptshift_rec.dml_operation := p9_a36;
116:
117: -- here's the delegated call to the old PL/SQL routine
118: ahl_appr_dept_shifts_pub.create_appr_dept_shifts(p_api_version,
119: p_init_msg_list,
120: p_commit,
121: p_validation_level,
122: p_default,
223: , p9_a36 in out nocopy VARCHAR2
224: )
225:
226: as
227: ddp_x_appr_deptshift_rec ahl_appr_dept_shifts_pub.appr_deptshift_rec;
228: ddindx binary_integer; indx binary_integer;
229: begin
230:
231: -- copy data to the local IN or IN-OUT args, if any
276: ddp_x_appr_deptshift_rec.attribute15 := p9_a35;
277: ddp_x_appr_deptshift_rec.dml_operation := p9_a36;
278:
279: -- here's the delegated call to the old PL/SQL routine
280: ahl_appr_dept_shifts_pub.delete_appr_dept_shifts(p_api_version,
281: p_init_msg_list,
282: p_commit,
283: p_validation_level,
284: p_default,
336: p9_a35 := ddp_x_appr_deptshift_rec.attribute15;
337: p9_a36 := ddp_x_appr_deptshift_rec.dml_operation;
338: end;
339:
340: end ahl_appr_dept_shifts_pub_w;