PACKAGE BODY: APPS.PV_PARTNER_ACCNT_MGMT_PVT_W

Source

1 package body pv_partner_accnt_mgmt_pvt_w as
2   /* $Header: pvxwpamb.pls 120.1 2005/09/08 13:14 appldev 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 
6   -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7   function rosetta_g_miss_date_in_map(d date) return date as
8   begin
9     if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10     return d;
11   end;
12 
13   procedure create_party_site(p_api_version  NUMBER
14     , p_init_msg_list  VARCHAR2
15     , p_commit  VARCHAR2
16     , p3_a0  NUMBER
17     , p3_a1  NUMBER
18     , p3_a2  NUMBER
19     , p3_a3  VARCHAR2
20     , p3_a4  VARCHAR2
21     , p3_a5  NUMBER
22     , p3_a6  VARCHAR2
23     , p3_a7  VARCHAR2
24     , p3_a8  VARCHAR2
25     , p3_a9  VARCHAR2
26     , p3_a10  VARCHAR2
27     , p3_a11  VARCHAR2
28     , p3_a12  VARCHAR2
29     , p3_a13  VARCHAR2
30     , p3_a14  VARCHAR2
31     , p3_a15  VARCHAR2
32     , p3_a16  VARCHAR2
33     , p3_a17  DATE
34     , p3_a18  DATE
35     , p3_a19  DATE
36     , x_return_status out nocopy  VARCHAR2
37     , x_party_site_id out nocopy  NUMBER
38     , x_msg_count out nocopy  NUMBER
39     , x_msg_data out nocopy  VARCHAR2
40   )
41 
42   as
43     ddp_party_site_rec pv_partner_accnt_mgmt_pvt.party_site_rec_type;
44     ddindx binary_integer; indx binary_integer;
45   begin
46 
47     -- copy data to the local IN or IN-OUT args, if any
48 
49 
50 
51     ddp_party_site_rec.party_site_use_id := p3_a0;
52     ddp_party_site_rec.party_site_id := p3_a1;
53     ddp_party_site_rec.party_id := p3_a2;
54     ddp_party_site_rec.party_site_use_type := p3_a3;
55     ddp_party_site_rec.primary_flag := p3_a4;
56     ddp_party_site_rec.location.location_id := p3_a5;
57     ddp_party_site_rec.location.address1 := p3_a6;
58     ddp_party_site_rec.location.address2 := p3_a7;
59     ddp_party_site_rec.location.address3 := p3_a8;
60     ddp_party_site_rec.location.address4 := p3_a9;
61     ddp_party_site_rec.location.country_code := p3_a10;
62     ddp_party_site_rec.location.country := p3_a11;
63     ddp_party_site_rec.location.city := p3_a12;
64     ddp_party_site_rec.location.postal_code := p3_a13;
65     ddp_party_site_rec.location.state := p3_a14;
66     ddp_party_site_rec.location.province := p3_a15;
67     ddp_party_site_rec.location.county := p3_a16;
68     ddp_party_site_rec.location.last_update_date := rosetta_g_miss_date_in_map(p3_a17);
69     ddp_party_site_rec.last_update_date := rosetta_g_miss_date_in_map(p3_a18);
70     ddp_party_site_rec.party_site_last_update_date := rosetta_g_miss_date_in_map(p3_a19);
71 
72 
73 
74 
75 
76     -- here's the delegated call to the old PL/SQL routine
77     pv_partner_accnt_mgmt_pvt.create_party_site(p_api_version,
78       p_init_msg_list,
79       p_commit,
80       ddp_party_site_rec,
81       x_return_status,
82       x_party_site_id,
83       x_msg_count,
84       x_msg_data);
85 
86     -- copy data back from the local variables to OUT or IN-OUT args, if any
87 
88 
89 
90 
91 
92 
93 
94   end;
95 
96 end pv_partner_accnt_mgmt_pvt_w;