1: package body ams_listsourcetype_pvt_w as
2: /* $Header: amswlstb.pls 115.11 2002/11/22 08:57:43 jieli 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:
48: , p7_a18 VARCHAR2 := fnd_api.g_miss_char
49: , p7_a19 VARCHAR2 := fnd_api.g_miss_char
50: )
51: as
52: ddp_listsrctype_rec ams_listsourcetype_pvt.listsourcetype_rec_type;
53: ddindx binary_integer; indx binary_integer;
54: begin
55:
56: -- copy data to the local IN or IN-OUT args, if any
83: ddp_listsrctype_rec.source_category := p7_a19;
84:
85:
86: -- here's the delegated call to the old PL/SQL routine
87: ams_listsourcetype_pvt.create_listsourcetype(p_api_version,
88: p_init_msg_list,
89: p_commit,
90: p_validation_level,
91: x_return_status,
133: , p7_a18 VARCHAR2 := fnd_api.g_miss_char
134: , p7_a19 VARCHAR2 := fnd_api.g_miss_char
135: )
136: as
137: ddp_listsrctype_rec ams_listsourcetype_pvt.listsourcetype_rec_type;
138: ddindx binary_integer; indx binary_integer;
139: begin
140:
141: -- copy data to the local IN or IN-OUT args, if any
167: ddp_listsrctype_rec.arc_act_src_used_by := p7_a18;
168: ddp_listsrctype_rec.source_category := p7_a19;
169:
170: -- here's the delegated call to the old PL/SQL routine
171: ams_listsourcetype_pvt.update_listsourcetype(p_api_version,
172: p_init_msg_list,
173: p_commit,
174: p_validation_level,
175: x_return_status,
215: , p7_a18 VARCHAR2 := fnd_api.g_miss_char
216: , p7_a19 VARCHAR2 := fnd_api.g_miss_char
217: )
218: as
219: ddp_listsrctype_rec ams_listsourcetype_pvt.listsourcetype_rec_type;
220: ddindx binary_integer; indx binary_integer;
221: begin
222:
223: -- copy data to the local IN or IN-OUT args, if any
249: ddp_listsrctype_rec.arc_act_src_used_by := p7_a18;
250: ddp_listsrctype_rec.source_category := p7_a19;
251:
252: -- here's the delegated call to the old PL/SQL routine
253: ams_listsourcetype_pvt.validate_listsourcetype(p_api_version,
254: p_init_msg_list,
255: p_commit,
256: p_validation_level,
257: x_return_status,
292: , p0_a18 VARCHAR2 := fnd_api.g_miss_char
293: , p0_a19 VARCHAR2 := fnd_api.g_miss_char
294: )
295: as
296: ddp_listsrctype_rec ams_listsourcetype_pvt.listsourcetype_rec_type;
297: ddindx binary_integer; indx binary_integer;
298: begin
299:
300: -- copy data to the local IN or IN-OUT args, if any
321:
322:
323:
324: -- here's the delegated call to the old PL/SQL routine
325: ams_listsourcetype_pvt.check_listsourcetype_items(ddp_listsrctype_rec,
326: p_validation_mode,
327: x_return_status);
328:
329: -- copy data back from the local OUT or IN-OUT args, if any
373: , p1_a18 VARCHAR2 := fnd_api.g_miss_char
374: , p1_a19 VARCHAR2 := fnd_api.g_miss_char
375: )
376: as
377: ddp_listsrctype_rec ams_listsourcetype_pvt.listsourcetype_rec_type;
378: ddp_complete_rec ams_listsourcetype_pvt.listsourcetype_rec_type;
379: ddindx binary_integer; indx binary_integer;
380: begin
381:
374: , p1_a19 VARCHAR2 := fnd_api.g_miss_char
375: )
376: as
377: ddp_listsrctype_rec ams_listsourcetype_pvt.listsourcetype_rec_type;
378: ddp_complete_rec ams_listsourcetype_pvt.listsourcetype_rec_type;
379: ddindx binary_integer; indx binary_integer;
380: begin
381:
382: -- copy data to the local IN or IN-OUT args, if any
423: ddp_complete_rec.source_category := p1_a19;
424:
425:
426: -- here's the delegated call to the old PL/SQL routine
427: ams_listsourcetype_pvt.check_listsourcetype_record(ddp_listsrctype_rec,
428: ddp_complete_rec,
429: x_return_status);
430:
431: -- copy data back from the local OUT or IN-OUT args, if any
454: , p0_a18 OUT NOCOPY VARCHAR2
455: , p0_a19 OUT NOCOPY VARCHAR2
456: )
457: as
458: ddx_listsrctype_rec ams_listsourcetype_pvt.listsourcetype_rec_type;
459: ddindx binary_integer; indx binary_integer;
460: begin
461:
462: -- copy data to the local IN or IN-OUT args, if any
461:
462: -- copy data to the local IN or IN-OUT args, if any
463:
464: -- here's the delegated call to the old PL/SQL routine
465: ams_listsourcetype_pvt.init_listsourcetype_rec(ddx_listsrctype_rec);
466:
467: -- copy data back from the local OUT or IN-OUT args, if any
468: p0_a0 := rosetta_g_miss_num_map(ddx_listsrctype_rec.list_source_type_id);
469: p0_a1 := ddx_listsrctype_rec.last_update_date;
528: , p0_a18 VARCHAR2 := fnd_api.g_miss_char
529: , p0_a19 VARCHAR2 := fnd_api.g_miss_char
530: )
531: as
532: ddp_listsrctype_rec ams_listsourcetype_pvt.listsourcetype_rec_type;
533: ddx_complete_rec ams_listsourcetype_pvt.listsourcetype_rec_type;
534: ddindx binary_integer; indx binary_integer;
535: begin
536:
529: , p0_a19 VARCHAR2 := fnd_api.g_miss_char
530: )
531: as
532: ddp_listsrctype_rec ams_listsourcetype_pvt.listsourcetype_rec_type;
533: ddx_complete_rec ams_listsourcetype_pvt.listsourcetype_rec_type;
534: ddindx binary_integer; indx binary_integer;
535: begin
536:
537: -- copy data to the local IN or IN-OUT args, if any
557: ddp_listsrctype_rec.source_category := p0_a19;
558:
559:
560: -- here's the delegated call to the old PL/SQL routine
561: ams_listsourcetype_pvt.complete_listsourcetype_rec(ddp_listsrctype_rec,
562: ddx_complete_rec);
563:
564: -- copy data back from the local OUT or IN-OUT args, if any
565:
584: p1_a18 := ddx_complete_rec.arc_act_src_used_by;
585: p1_a19 := ddx_complete_rec.source_category;
586: end;
587:
588: end ams_listsourcetype_pvt_w;