1: package body ahl_mel_cdl_headers_pvt_w as
2: /* $Header: AHLWMEHB.pls 120.0 2005/07/04 03:56 tamdas noship $ */
3: procedure create_mel_cdl(p_api_version NUMBER
4: , p_init_msg_list VARCHAR2
5: , p_commit VARCHAR2
38: , p9_a26 in out nocopy VARCHAR2
39: )
40:
41: as
42: ddp_x_mel_cdl_header_rec ahl_mel_cdl_headers_pvt.header_rec_type;
43: ddindx binary_integer; indx binary_integer;
44: begin
45:
46: -- copy data to the local IN or IN-OUT args, if any
81: ddp_x_mel_cdl_header_rec.attribute14 := p9_a25;
82: ddp_x_mel_cdl_header_rec.attribute15 := p9_a26;
83:
84: -- here's the delegated call to the old PL/SQL routine
85: ahl_mel_cdl_headers_pvt.create_mel_cdl(p_api_version,
86: p_init_msg_list,
87: p_commit,
88: p_validation_level,
89: p_default,
170: , p9_a26 in out nocopy VARCHAR2
171: )
172:
173: as
174: ddp_x_mel_cdl_header_rec ahl_mel_cdl_headers_pvt.header_rec_type;
175: ddindx binary_integer; indx binary_integer;
176: begin
177:
178: -- copy data to the local IN or IN-OUT args, if any
213: ddp_x_mel_cdl_header_rec.attribute14 := p9_a25;
214: ddp_x_mel_cdl_header_rec.attribute15 := p9_a26;
215:
216: -- here's the delegated call to the old PL/SQL routine
217: ahl_mel_cdl_headers_pvt.update_mel_cdl(p_api_version,
218: p_init_msg_list,
219: p_commit,
220: p_validation_level,
221: p_default,
263: p9_a25 := ddp_x_mel_cdl_header_rec.attribute14;
264: p9_a26 := ddp_x_mel_cdl_header_rec.attribute15;
265: end;
266:
267: end ahl_mel_cdl_headers_pvt_w;