[Home] [Help]
PACKAGE BODY: APPS.POS_HZ_UTIL_PKG
Source
1 PACKAGE BODY POS_HZ_UTIL_PKG AS
2 /*$Header: POSHZUTB.pls 120.3 2005/10/11 13:38:16 bitang noship $ */
3
4 procedure pos_create_hz_location
5 (p_country_code in VARCHAR2,
6 p_address1 in VARCHAR2,
7 p_address2 in VARCHAR2,
8 p_address3 in VARCHAR2,
9 p_address4 in VARCHAR2,
10 p_city in VARCHAR2,
11 p_postal_code in VARCHAR2,
12 p_county IN VARCHAR2,
13 p_state in VARCHAR2,
14 p_province in VARCHAR2,
15 x_location_id out nocopy NUMBER,
16 x_return_status OUT nocopy VARCHAR2,
17 x_msg_count OUT nocopy NUMBER,
18 x_msg_data OUT nocopy VARCHAR2
19 )
20 IS
21 l_location_rec hz_location_v2pub.location_rec_type;
22 BEGIN
23
24 l_location_rec.country := p_country_code;
25 l_location_rec.address1 := p_address1;
26 l_location_rec.address2 := p_address2;
27 l_location_rec.address3 := p_address3;
28 l_location_rec.address4 := p_address4;
29 l_location_rec.city := p_city;
30 l_location_rec.postal_code := p_postal_code;
31 l_location_rec.state := p_state;
32 l_location_rec.province := p_province;
33 l_location_rec.created_by_module := 'POS_SUPPLIER_MGMT';
34 l_location_rec.application_id := 177;
35 l_location_rec.county := p_county;
36
37 hz_location_v2pub.create_location
38 ( p_init_msg_list => fnd_api.g_true,
39 p_location_rec => l_location_rec,
40 x_location_id => x_location_id,
41 x_return_status => x_return_status,
42 x_msg_count => x_msg_count,
43 x_msg_data => x_msg_data
44 );
45
46 END pos_create_hz_location;
47
48 procedure pos_create_party_site
49 (p_party_id in NUMBER,
50 p_location_id in NUMBER,
51 p_party_site_name IN VARCHAR2,
52 x_party_site_id out nocopy NUMBER,
53 x_party_site_number out nocopy NUMBER,
54 x_return_status OUT nocopy VARCHAR2,
55 x_msg_count OUT nocopy NUMBER,
56 x_msg_data OUT nocopy VARCHAR2
57 )
58 IS
59 l_party_site_rec hz_party_site_v2pub.party_site_rec_type ;
60
61 BEGIN
62
63 l_party_site_rec.party_id := p_party_id;
64 l_party_site_rec.location_id := p_location_id;
65 l_party_site_rec.created_by_module :='POS_SUPPLIER_MGMT';
66 l_party_site_rec.application_id := 177;
67 l_party_site_rec.party_site_name := p_party_site_name;
68
69 hz_party_site_v2pub.create_party_site
70 ( p_init_msg_list => FND_API.G_TRUE,
71 p_party_site_rec => l_party_site_rec,
72 x_party_site_id => x_party_site_id,
73 x_party_site_number => x_party_site_number,
74 x_return_status => x_return_status,
75 x_msg_count => x_msg_count,
76 x_msg_data => x_msg_data
77 );
78
79 END pos_create_party_site;
80
81 -- to be obsolete
82 procedure pos_create_hz_location
83 (p_country_code in VARCHAR2,
84 p_address1 in VARCHAR2,
85 p_address2 in VARCHAR2,
86 p_address3 in VARCHAR2,
87 p_address4 in VARCHAR2,
88 p_city in VARCHAR2,
89 p_postal_code in VARCHAR2,
90 p_county IN VARCHAR2,
91 p_state in VARCHAR2,
92 p_province in VARCHAR2,
93 x_location_id out nocopy NUMBER
94 )
95 IS
96 l_return_status VARCHAR2(1);
97 l_msg_count NUMBER;
98 l_msg_data VARCHAR2(2000);
99 BEGIN
100 pos_create_hz_location
101 (p_country_code => p_country_code,
102 p_address1 => p_address1 ,
103 p_address2 => p_address2 ,
104 p_address3 => p_address3 ,
105 p_address4 => p_address4 ,
106 p_city => p_city ,
107 p_postal_code => p_postal_code ,
108 p_county => p_county ,
109 p_state => p_state ,
110 p_province => p_province ,
111 x_location_id => x_location_id ,
112 x_return_status => l_return_status,
113 x_msg_count => l_msg_count,
114 x_msg_data => l_msg_data
115 );
116 IF l_return_status IS NULL
117 OR l_return_status <> fnd_api.g_ret_sts_success THEN
118 raise_application_error(-20001, l_msg_data, TRUE);
119 END IF;
120 END pos_create_hz_location;
121
122 -- to be obsolete
123 procedure pos_create_party_site
124 (p_party_id in NUMBER,
125 p_location_id in NUMBER,
126 p_party_site_name IN VARCHAR2,
127 x_party_site_id out nocopy NUMBER,
128 x_party_site_number out nocopy NUMBER
129 )
130 IS
131 l_return_status VARCHAR2(1);
132 l_msg_count NUMBER;
133 l_msg_data VARCHAR2(2000);
134 BEGIN
135 pos_create_party_site
136 (p_party_id => p_party_id,
137 p_location_id => p_location_id,
138 p_party_site_name => p_party_site_name,
139 x_party_site_id => x_party_site_id,
140 x_party_site_number => x_party_site_number,
141 x_return_status => l_return_status,
142 x_msg_count => l_msg_count,
143 x_msg_data => l_msg_data
144 );
145 IF l_return_status IS NULL
146 OR l_return_status <> fnd_api.g_ret_sts_success THEN
147 raise_application_error(-20001, l_msg_data, TRUE);
148 END IF;
149 END pos_create_party_site;
150
151 END POS_HZ_UTIL_PKG;