1: package body pvx_prtnr_prfls_pvt_w as
2: /* $Header: pvxwppfb.pls 115.14 2003/11/19 07:39:23 rdsharma ship $ */
3: procedure create_prtnr_prfls(p_api_version NUMBER
4: , p_init_msg_list VARCHAR2
5: , p_commit VARCHAR2
46: , x_partner_profile_id out nocopy NUMBER
47: )
48:
49: as
50: ddp_prtnr_prfls_rec pvx_prtnr_prfls_pvt.prtnr_prfls_rec_type;
51: ddindx binary_integer; indx binary_integer;
52: begin
53:
54: -- copy data to the local IN or IN-OUT args, if any
97: ddp_prtnr_prfls_rec.status := p7_a35;
98:
99:
100: -- here's the delegated call to the old PL/SQL routine
101: pvx_prtnr_prfls_pvt.create_prtnr_prfls(p_api_version,
102: p_init_msg_list,
103: p_commit,
104: p_validation_level,
105: x_return_status,
164: , p7_a35 VARCHAR2
165: )
166:
167: as
168: ddp_prtnr_prfls_rec pvx_prtnr_prfls_pvt.prtnr_prfls_rec_type;
169: ddindx binary_integer; indx binary_integer;
170: begin
171:
172: -- copy data to the local IN or IN-OUT args, if any
214: ddp_prtnr_prfls_rec.partner_party_id := p7_a34;
215: ddp_prtnr_prfls_rec.status := p7_a35;
216:
217: -- here's the delegated call to the old PL/SQL routine
218: pvx_prtnr_prfls_pvt.update_prtnr_prfls(p_api_version,
219: p_init_msg_list,
220: p_commit,
221: p_validation_level,
222: x_return_status,
278: , p6_a35 VARCHAR2
279: )
280:
281: as
282: ddp_prtnr_prfls_rec pvx_prtnr_prfls_pvt.prtnr_prfls_rec_type;
283: ddindx binary_integer; indx binary_integer;
284: begin
285:
286: -- copy data to the local IN or IN-OUT args, if any
327: ddp_prtnr_prfls_rec.partner_party_id := p6_a34;
328: ddp_prtnr_prfls_rec.status := p6_a35;
329:
330: -- here's the delegated call to the old PL/SQL routine
331: pvx_prtnr_prfls_pvt.validate_prtnr_prfls(p_api_version,
332: p_init_msg_list,
333: p_validation_level,
334: x_return_status,
335: x_msg_count,
385: , p2_a35 VARCHAR2
386: )
387:
388: as
389: ddp_prtnr_prfls_rec pvx_prtnr_prfls_pvt.prtnr_prfls_rec_type;
390: ddindx binary_integer; indx binary_integer;
391: begin
392:
393: -- copy data to the local IN or IN-OUT args, if any
430: ddp_prtnr_prfls_rec.partner_party_id := p2_a34;
431: ddp_prtnr_prfls_rec.status := p2_a35;
432:
433: -- here's the delegated call to the old PL/SQL routine
434: pvx_prtnr_prfls_pvt.check_prtnr_prfls_items(p_validation_mode,
435: x_return_status,
436: ddp_prtnr_prfls_rec);
437:
438: -- copy data back from the local variables to OUT or IN-OUT args, if any
516: , x_return_status out nocopy VARCHAR2
517: )
518:
519: as
520: ddp_prtnr_prfls_rec pvx_prtnr_prfls_pvt.prtnr_prfls_rec_type;
521: ddp_complete_rec pvx_prtnr_prfls_pvt.prtnr_prfls_rec_type;
522: ddindx binary_integer; indx binary_integer;
523: begin
524:
517: )
518:
519: as
520: ddp_prtnr_prfls_rec pvx_prtnr_prfls_pvt.prtnr_prfls_rec_type;
521: ddp_complete_rec pvx_prtnr_prfls_pvt.prtnr_prfls_rec_type;
522: ddindx binary_integer; indx binary_integer;
523: begin
524:
525: -- copy data to the local IN or IN-OUT args, if any
599:
600:
601:
602: -- here's the delegated call to the old PL/SQL routine
603: pvx_prtnr_prfls_pvt.check_prtnr_prfls_record(ddp_prtnr_prfls_rec,
604: ddp_complete_rec,
605: p_mode,
606: x_return_status);
607:
649: , p0_a35 out nocopy VARCHAR2
650: )
651:
652: as
653: ddx_prtnr_prfls_rec pvx_prtnr_prfls_pvt.prtnr_prfls_rec_type;
654: ddindx binary_integer; indx binary_integer;
655: begin
656:
657: -- copy data to the local IN or IN-OUT args, if any
656:
657: -- copy data to the local IN or IN-OUT args, if any
658:
659: -- here's the delegated call to the old PL/SQL routine
660: pvx_prtnr_prfls_pvt.init_prtnr_prfls_rec(ddx_prtnr_prfls_rec);
661:
662: -- copy data back from the local variables to OUT or IN-OUT args, if any
663: p0_a0 := ddx_prtnr_prfls_rec.partner_profile_id;
664: p0_a1 := ddx_prtnr_prfls_rec.last_update_date;
772: , p1_a35 out nocopy VARCHAR2
773: )
774:
775: as
776: ddp_prtnr_prfls_rec pvx_prtnr_prfls_pvt.prtnr_prfls_rec_type;
777: ddx_complete_rec pvx_prtnr_prfls_pvt.prtnr_prfls_rec_type;
778: ddindx binary_integer; indx binary_integer;
779: begin
780:
773: )
774:
775: as
776: ddp_prtnr_prfls_rec pvx_prtnr_prfls_pvt.prtnr_prfls_rec_type;
777: ddx_complete_rec pvx_prtnr_prfls_pvt.prtnr_prfls_rec_type;
778: ddindx binary_integer; indx binary_integer;
779: begin
780:
781: -- copy data to the local IN or IN-OUT args, if any
817: ddp_prtnr_prfls_rec.status := p0_a35;
818:
819:
820: -- here's the delegated call to the old PL/SQL routine
821: pvx_prtnr_prfls_pvt.complete_prtnr_prfls_rec(ddp_prtnr_prfls_rec,
822: ddx_complete_rec);
823:
824: -- copy data back from the local variables to OUT or IN-OUT args, if any
825:
900: , x_partner_status out nocopy VARCHAR2
901: )
902:
903: as
904: ddp_prtnr_prfls_rec pvx_prtnr_prfls_pvt.prtnr_prfls_rec_type;
905: ddindx binary_integer; indx binary_integer;
906: begin
907:
908: -- copy data to the local IN or IN-OUT args, if any
944: ddp_prtnr_prfls_rec.status := p0_a35;
945:
946:
947: -- here's the delegated call to the old PL/SQL routine
948: pvx_prtnr_prfls_pvt.determine_partner_status(ddp_prtnr_prfls_rec,
949: x_partner_status);
950:
951: -- copy data back from the local variables to OUT or IN-OUT args, if any
952:
951: -- copy data back from the local variables to OUT or IN-OUT args, if any
952:
953: end;
954:
955: end pvx_prtnr_prfls_pvt_w;