1: package body cn_ruleattribute_pvt_w as
2: /* $Header: cnwratrb.pls 120.1 2005/06/16 03:29 appldev $ */
3: procedure create_ruleattribute(p_api_version NUMBER
4: , p_init_msg_list VARCHAR2
5: , p_commit VARCHAR2
20: , p8_a9 in out nocopy NUMBER
21: )
22:
23: as
24: ddp_ruleattribute_rec cn_ruleattribute_pvt.ruleattribute_rec_type;
25: ddindx binary_integer; indx binary_integer;
26: begin
27:
28: -- copy data to the local IN or IN-OUT args, if any
45: ddp_ruleattribute_rec.data_flag := p8_a8;
46: ddp_ruleattribute_rec.object_version_number := p8_a9;
47:
48: -- here's the delegated call to the old PL/SQL routine
49: cn_ruleattribute_pvt.create_ruleattribute(p_api_version,
50: p_init_msg_list,
51: p_commit,
52: p_validation_level,
53: x_return_status,
107: , p9_a9 in out nocopy NUMBER
108: )
109:
110: as
111: ddp_old_ruleattribute_rec cn_ruleattribute_pvt.ruleattribute_rec_type;
112: ddp_ruleattribute_rec cn_ruleattribute_pvt.ruleattribute_rec_type;
113: ddindx binary_integer; indx binary_integer;
114: begin
115:
108: )
109:
110: as
111: ddp_old_ruleattribute_rec cn_ruleattribute_pvt.ruleattribute_rec_type;
112: ddp_ruleattribute_rec cn_ruleattribute_pvt.ruleattribute_rec_type;
113: ddindx binary_integer; indx binary_integer;
114: begin
115:
116: -- copy data to the local IN or IN-OUT args, if any
144: ddp_ruleattribute_rec.data_flag := p9_a8;
145: ddp_ruleattribute_rec.object_version_number := p9_a9;
146:
147: -- here's the delegated call to the old PL/SQL routine
148: cn_ruleattribute_pvt.update_ruleattribute(p_api_version,
149: p_init_msg_list,
150: p_commit,
151: p_validation_level,
152: x_return_status,
187: p9_a8 := ddp_ruleattribute_rec.data_flag;
188: p9_a9 := ddp_ruleattribute_rec.object_version_number;
189: end;
190:
191: end cn_ruleattribute_pvt_w;