1: PACKAGE BODY JTF_CAL_ADDR_PVT_W AS
2: /* $Header: jtfwcab.pls 115.2 2002/04/09 10:57:48 pkm ship $ */
3:
4: rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
5: rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
70: , p7_a40 NUMBER
71: , x_address_id out NUMBER
72: )
73: as
74: ddp_adr_rec jtf_cal_addr_pvt.addrrec;
75: ddindx binary_integer; indx binary_integer;
76: begin
77:
78: -- copy data to the local IN or IN-OUT args, if any
126: ddp_adr_rec.object_version_number := p7_a40;
127:
128:
129: -- here's the delegated call to the old PL/SQL routine
130: jtf_cal_addr_pvt.insert_row(p_api_version,
131: p_init_msg_list,
132: p_commit,
133: p_validation_level,
134: x_return_status,
198: , p7_a40 NUMBER
199: , x_object_version_number out NUMBER
200: )
201: as
202: ddp_adr_rec jtf_cal_addr_pvt.addrrec;
203: ddindx binary_integer; indx binary_integer;
204: begin
205:
206: -- copy data to the local IN or IN-OUT args, if any
254: ddp_adr_rec.object_version_number := p7_a40;
255:
256:
257: -- here's the delegated call to the old PL/SQL routine
258: jtf_cal_addr_pvt.update_row(p_api_version,
259: p_init_msg_list,
260: p_commit,
261: p_validation_level,
262: x_return_status,
275:
276:
277: end;
278:
279: end jtf_cal_addr_pvt_w;