1: package body pv_k_rel_objs_pvt_w as
2: /* $Header: pvxwkrob.pls 115.0 2002/12/04 01:40:03 ktsao 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:
29: , p6_a5 out nocopy VARCHAR2
30: )
31:
32: as
33: ddp_crj_rel_hdr_full_rec pv_k_rel_objs_pvt.crj_rel_hdr_full_rec_type;
34: ddx_crj_rel_hdr_full_rec pv_k_rel_objs_pvt.crj_rel_hdr_full_rec_type;
35: ddindx binary_integer; indx binary_integer;
36: begin
37:
30: )
31:
32: as
33: ddp_crj_rel_hdr_full_rec pv_k_rel_objs_pvt.crj_rel_hdr_full_rec_type;
34: ddx_crj_rel_hdr_full_rec pv_k_rel_objs_pvt.crj_rel_hdr_full_rec_type;
35: ddindx binary_integer; indx binary_integer;
36: begin
37:
38: -- copy data to the local IN or IN-OUT args, if any
49: ddp_crj_rel_hdr_full_rec.rty_code := p5_a5;
50:
51:
52: -- here's the delegated call to the old PL/SQL routine
53: pv_k_rel_objs_pvt.create_k_rel_obj(p_api_version_number,
54: p_init_msg_list,
55: x_return_status,
56: x_msg_count,
57: x_msg_data,
72: p6_a4 := ddx_crj_rel_hdr_full_rec.line_jtot_object1_code;
73: p6_a5 := ddx_crj_rel_hdr_full_rec.rty_code;
74: end;
75:
76: end pv_k_rel_objs_pvt_w;