[Home] [Help]
PACKAGE BODY: APPS.OKS_HZ_CUSTOMER_ACCOUNTS_PVT
Source
1 package body OKS_HZ_CUSTOMER_ACCOUNTS_PVT AS
2 /* $Header: OKSSCOTB.pls 120.2 2006/04/13 05:39:04 npalepu noship $ */
3
4 procedure init (p_account_rec OUT NOCOPY hz_cust_account_v2pub.cust_account_rec_type,
5 p_cust_prof_rec OUT NOCOPY hz_customer_profile_v2pub.customer_profile_rec_type)
6 IS
7 G_MISS_NUM CONSTANT NUMBER := 9.99E125;
8 G_MISS_CHAR CONSTANT VARCHAR2(1) := chr(0);
9 G_MISS_DATE CONSTANT DATE := to_date('1','j');
10 BEGIN
11 p_account_rec.cust_account_id := G_MISS_NUM;
12 p_account_rec.account_number := G_MISS_CHAR;
13 -- p_account_rec.wh_update_date := G_MISS_DATE;
14 p_account_rec.attribute_category := G_MISS_CHAR;
15 p_account_rec.attribute1 := G_MISS_CHAR;
16 p_account_rec.attribute2 := G_MISS_CHAR;
17 p_account_rec.attribute3 := G_MISS_CHAR;
18 p_account_rec.attribute4 := G_MISS_CHAR;
19 p_account_rec.attribute5 := G_MISS_CHAR;
20 p_account_rec.attribute6 := G_MISS_CHAR;
21 p_account_rec.attribute7 := G_MISS_CHAR;
22 p_account_rec.attribute8 := G_MISS_CHAR;
23 p_account_rec.attribute9 := G_MISS_CHAR;
24 p_account_rec.attribute10 := G_MISS_CHAR;
25 p_account_rec.attribute11 := G_MISS_CHAR;
26 p_account_rec.attribute12 := G_MISS_CHAR;
27 p_account_rec.attribute13 := G_MISS_CHAR;
28 p_account_rec.attribute14 := G_MISS_CHAR;
29 p_account_rec.attribute15 := G_MISS_CHAR;
30 p_account_rec.attribute16 := G_MISS_CHAR;
31 p_account_rec.attribute17 := G_MISS_CHAR;
32 p_account_rec.attribute18 := G_MISS_CHAR;
33 p_account_rec.attribute19 := G_MISS_CHAR;
34 p_account_rec.attribute20 := G_MISS_CHAR;
35 p_account_rec.global_attribute_category := G_MISS_CHAR;
36 p_account_rec.global_attribute1 := G_MISS_CHAR;
37 p_account_rec.global_attribute2 := G_MISS_CHAR;
38 p_account_rec.global_attribute3 := G_MISS_CHAR;
39 p_account_rec.global_attribute4 := G_MISS_CHAR;
40 p_account_rec.global_attribute5 := G_MISS_CHAR;
41 p_account_rec.global_attribute6 := G_MISS_CHAR;
42 p_account_rec.global_attribute7 := G_MISS_CHAR;
43 p_account_rec.global_attribute8 := G_MISS_CHAR;
44 p_account_rec.global_attribute9 := G_MISS_CHAR;
45 p_account_rec.global_attribute10 := G_MISS_CHAR;
46 p_account_rec.global_attribute11 := G_MISS_CHAR;
47 p_account_rec.global_attribute12 := G_MISS_CHAR;
48 p_account_rec.global_attribute13 := G_MISS_CHAR;
49 p_account_rec.global_attribute14 := G_MISS_CHAR;
50 p_account_rec.global_attribute15 := G_MISS_CHAR;
51 p_account_rec.global_attribute16 := G_MISS_CHAR;
52 p_account_rec.global_attribute17 := G_MISS_CHAR;
53 p_account_rec.global_attribute18 := G_MISS_CHAR;
54 p_account_rec.global_attribute19 := G_MISS_CHAR;
55 p_account_rec.global_attribute20 := G_MISS_CHAR;
56 p_account_rec.orig_system_reference := G_MISS_CHAR;
57 p_account_rec.status := G_MISS_CHAR;
58 p_account_rec.customer_type := G_MISS_CHAR;
59 p_account_rec.customer_class_code := G_MISS_CHAR;
60 p_account_rec.primary_salesrep_id := G_MISS_NUM;
61 p_account_rec.sales_channel_code := G_MISS_CHAR;
62 p_account_rec.order_type_id := G_MISS_NUM;
63 p_account_rec.price_list_id := G_MISS_NUM;
64 -- p_account_rec.category_code := G_MISS_CHAR;
65 -- p_account_rec.reference_use_flag := G_MISS_CHAR;
66 -- p_account_rec.subcategory_code := G_MISS_CHAR;
67 p_account_rec.tax_code := G_MISS_CHAR;
68 -- p_account_rec.third_party_flag := G_MISS_CHAR;
69 -- p_account_rec.competitor_flag := G_MISS_CHAR;
70 p_account_rec.fob_point := G_MISS_CHAR;
71 p_account_rec.freight_term := G_MISS_CHAR;
72 p_account_rec.ship_partial := G_MISS_CHAR;
73 p_account_rec.ship_via := G_MISS_CHAR;
74 p_account_rec.warehouse_id := G_MISS_NUM;
75 -- p_account_rec.payment_term_id := G_MISS_NUM;
76 p_account_rec.tax_header_level_flag := G_MISS_CHAR;
77 p_account_rec.tax_rounding_rule := G_MISS_CHAR;
78 p_account_rec.coterminate_day_month := G_MISS_CHAR;
79 p_account_rec.primary_specialist_id := G_MISS_NUM;
80 p_account_rec.secondary_specialist_id := G_MISS_NUM;
81 p_account_rec.account_liable_flag := G_MISS_CHAR;
82 -- p_account_rec.restriction_limit_amount := G_MISS_NUM;
83 p_account_rec.current_balance := G_MISS_NUM;
84 -- p_account_rec.password_text := G_MISS_CHAR;
85 -- p_account_rec.high_priority_indicator := G_MISS_CHAR;
86 p_account_rec.account_established_date := G_MISS_DATE;
87 p_account_rec.account_termination_date := G_MISS_DATE;
88 p_account_rec.account_activation_date := G_MISS_DATE;
89 -- p_account_rec.credit_classification_code := G_MISS_CHAR;
90 p_account_rec.department := G_MISS_CHAR;
91 -- p_account_rec.major_account_number := G_MISS_CHAR;
92 -- p_account_rec.hotwatch_service_flag := G_MISS_CHAR;
93 -- p_account_rec.hotwatch_svc_bal_ind := G_MISS_CHAR;
94 p_account_rec.held_bill_expiration_date := G_MISS_DATE;
95 p_account_rec.hold_bill_flag := G_MISS_CHAR;
96 -- p_account_rec.high_priority_remarks := G_MISS_CHAR;
97 -- p_account_rec.po_effective_date := G_MISS_DATE;
98 -- p_account_rec.po_expiration_date := G_MISS_DATE;
99 p_account_rec.realtime_rate_flag := G_MISS_CHAR;
100 -- p_account_rec.single_user_flag := G_MISS_CHAR;
101 -- p_account_rec.watch_account_flag := G_MISS_CHAR;
102 -- p_account_rec.watch_balance_indicator := G_MISS_CHAR;
103 -- p_account_rec.geo_code := G_MISS_CHAR;
104 p_account_rec.acct_life_cycle_status := G_MISS_CHAR;
105 p_account_rec.account_name := G_MISS_CHAR;
106 p_account_rec.deposit_refund_method := G_MISS_CHAR;
107 p_account_rec.dormant_account_flag := G_MISS_CHAR;
108 p_account_rec.npa_number := G_MISS_CHAR;
109 -- p_account_rec.pin_number := G_MISS_NUM;
110 p_account_rec.suspension_date := G_MISS_DATE;
111 -- p_account_rec.write_off_adjustment_amount := G_MISS_NUM;
112 -- p_account_rec.write_off_payment_amount := G_MISS_NUM;
113 -- p_account_rec.write_off_amount := G_MISS_NUM;
114 p_account_rec.source_code := G_MISS_CHAR;
115 -- p_account_rec.competitor_type := G_MISS_CHAR;
116 p_account_rec.comments := G_MISS_CHAR;
117 p_account_rec.dates_negative_tolerance := G_MISS_NUM;
118 p_account_rec.dates_positive_tolerance := G_MISS_NUM;
119 p_account_rec.date_type_preference := G_MISS_CHAR;
120 p_account_rec.over_shipment_tolerance := G_MISS_NUM;
121 p_account_rec.under_shipment_tolerance := G_MISS_NUM;
122 p_account_rec.over_return_tolerance := G_MISS_NUM;
123 p_account_rec.under_return_tolerance := G_MISS_NUM;
124 p_account_rec.item_cross_ref_pref := G_MISS_CHAR;
125 p_account_rec.ship_sets_include_lines_flag := G_MISS_CHAR;
126 p_account_rec.arrivalsets_include_lines_flag := G_MISS_CHAR;
127 p_account_rec.sched_date_push_flag := G_MISS_CHAR;
128 p_account_rec.invoice_quantity_rule := G_MISS_CHAR;
129 p_account_rec.pricing_event := G_MISS_CHAR;
130 -- p_account_rec.account_replication_key := G_MISS_NUM;
131 p_account_rec.status_update_date := G_MISS_DATE;
132 p_account_rec.autopay_flag := G_MISS_CHAR;
133 p_account_rec.notify_flag := G_MISS_CHAR;
134 p_account_rec.last_batch_id := G_MISS_NUM;
135
136 --
137 p_cust_prof_rec.cust_account_profile_id := G_MISS_NUM;
138 p_cust_prof_rec.cust_account_id := G_MISS_NUM;
139 p_cust_prof_rec.status := G_MISS_CHAR;
140 p_cust_prof_rec.collector_id := G_MISS_NUM;
141 p_cust_prof_rec.credit_analyst_id := G_MISS_NUM;
142 p_cust_prof_rec.credit_checking := G_MISS_CHAR;
143 p_cust_prof_rec.next_credit_review_date := G_MISS_DATE;
144 p_cust_prof_rec.tolerance := G_MISS_NUM;
145 p_cust_prof_rec.discount_terms := G_MISS_CHAR;
146 p_cust_prof_rec.dunning_letters := G_MISS_CHAR;
147 p_cust_prof_rec.interest_charges := G_MISS_CHAR;
148 p_cust_prof_rec.send_statements := G_MISS_CHAR;
149 p_cust_prof_rec.credit_balance_statements := G_MISS_CHAR;
150 p_cust_prof_rec.credit_hold := G_MISS_CHAR;
151 p_cust_prof_rec.profile_class_id := G_MISS_NUM;
152 p_cust_prof_rec.site_use_id := G_MISS_NUM;
153 p_cust_prof_rec.credit_rating := G_MISS_CHAR;
154 p_cust_prof_rec.risk_code := G_MISS_CHAR;
155 p_cust_prof_rec.standard_terms := G_MISS_NUM;
156 p_cust_prof_rec.override_terms := G_MISS_CHAR;
157 p_cust_prof_rec.dunning_letter_set_id := G_MISS_NUM;
158 p_cust_prof_rec.interest_period_days := G_MISS_NUM;
159 p_cust_prof_rec.payment_grace_days := G_MISS_NUM;
160 p_cust_prof_rec.discount_grace_days := G_MISS_NUM;
161 p_cust_prof_rec.statement_cycle_id := G_MISS_NUM;
162 p_cust_prof_rec.account_status := G_MISS_CHAR;
163 p_cust_prof_rec.percent_collectable := G_MISS_NUM;
164 p_cust_prof_rec.autocash_hierarchy_id := G_MISS_NUM;
165 p_cust_prof_rec.attribute_category := G_MISS_CHAR;
166 p_cust_prof_rec.attribute1 := G_MISS_CHAR;
167 p_cust_prof_rec.attribute2 := G_MISS_CHAR;
168 p_cust_prof_rec.attribute3 := G_MISS_CHAR;
169 p_cust_prof_rec.attribute4 := G_MISS_CHAR;
170 p_cust_prof_rec.attribute5 := G_MISS_CHAR;
171 p_cust_prof_rec.attribute6 := G_MISS_CHAR;
172 p_cust_prof_rec.attribute7 := G_MISS_CHAR;
173 p_cust_prof_rec.attribute8 := G_MISS_CHAR;
174 p_cust_prof_rec.attribute9 := G_MISS_CHAR;
175 p_cust_prof_rec.attribute10 := G_MISS_CHAR;
176 p_cust_prof_rec.attribute11 := G_MISS_CHAR;
177 p_cust_prof_rec.attribute12 := G_MISS_CHAR;
178 p_cust_prof_rec.attribute13 := G_MISS_CHAR;
179 p_cust_prof_rec.attribute14 := G_MISS_CHAR;
180 p_cust_prof_rec.attribute15 := G_MISS_CHAR;
181 -- p_cust_prof_rec.wh_update_date := G_MISS_DATE;
182 p_cust_prof_rec.auto_rec_incl_disputed_flag := G_MISS_CHAR;
183 p_cust_prof_rec.tax_printing_option := G_MISS_CHAR;
184 p_cust_prof_rec.charge_on_finance_charge_flag := G_MISS_CHAR;
185 p_cust_prof_rec.grouping_rule_id := G_MISS_NUM;
186 p_cust_prof_rec.clearing_days := G_MISS_NUM;
187 p_cust_prof_rec.jgzz_attribute_category := G_MISS_CHAR;
188 p_cust_prof_rec.jgzz_attribute1 := G_MISS_CHAR;
189 p_cust_prof_rec.jgzz_attribute2 := G_MISS_CHAR;
190 p_cust_prof_rec.jgzz_attribute3 := G_MISS_CHAR;
191 p_cust_prof_rec.jgzz_attribute4 := G_MISS_CHAR;
192 p_cust_prof_rec.jgzz_attribute5 := G_MISS_CHAR;
193 p_cust_prof_rec.jgzz_attribute6 := G_MISS_CHAR;
194 p_cust_prof_rec.jgzz_attribute7 := G_MISS_CHAR;
195 p_cust_prof_rec.jgzz_attribute8 := G_MISS_CHAR;
196 p_cust_prof_rec.jgzz_attribute9 := G_MISS_CHAR;
197 p_cust_prof_rec.jgzz_attribute10 := G_MISS_CHAR;
198 p_cust_prof_rec.jgzz_attribute11 := G_MISS_CHAR;
199 p_cust_prof_rec.jgzz_attribute12 := G_MISS_CHAR;
200 p_cust_prof_rec.jgzz_attribute13 := G_MISS_CHAR;
201 p_cust_prof_rec.jgzz_attribute14 := G_MISS_CHAR;
202 p_cust_prof_rec.jgzz_attribute15 := G_MISS_CHAR;
203 p_cust_prof_rec.global_attribute1 := G_MISS_CHAR;
204 p_cust_prof_rec.global_attribute2 := G_MISS_CHAR;
205 p_cust_prof_rec.global_attribute3 := G_MISS_CHAR;
206 p_cust_prof_rec.global_attribute4 := G_MISS_CHAR;
207 p_cust_prof_rec.global_attribute5 := G_MISS_CHAR;
208 p_cust_prof_rec.global_attribute6 := G_MISS_CHAR;
209 p_cust_prof_rec.global_attribute7 := G_MISS_CHAR;
210 p_cust_prof_rec.global_attribute8 := G_MISS_CHAR;
211 p_cust_prof_rec.global_attribute9 := G_MISS_CHAR;
212 p_cust_prof_rec.global_attribute10 := G_MISS_CHAR;
213 p_cust_prof_rec.global_attribute11 := G_MISS_CHAR;
214 p_cust_prof_rec.global_attribute12 := G_MISS_CHAR;
215 p_cust_prof_rec.global_attribute13 := G_MISS_CHAR;
216 p_cust_prof_rec.global_attribute14 := G_MISS_CHAR;
217 p_cust_prof_rec.global_attribute15 := G_MISS_CHAR;
218 p_cust_prof_rec.global_attribute16 := G_MISS_CHAR;
219 p_cust_prof_rec.global_attribute17 := G_MISS_CHAR;
220 p_cust_prof_rec.global_attribute18 := G_MISS_CHAR;
221 p_cust_prof_rec.global_attribute19 := G_MISS_CHAR;
222 p_cust_prof_rec.global_attribute20 := G_MISS_CHAR;
223 p_cust_prof_rec.global_attribute_category := G_MISS_CHAR;
224 p_cust_prof_rec.cons_inv_flag := G_MISS_CHAR;
225 p_cust_prof_rec.cons_inv_type := G_MISS_CHAR;
226 p_cust_prof_rec.autocash_hierarchy_id_for_adr := G_MISS_NUM;
227 p_cust_prof_rec.lockbox_matching_option := G_MISS_CHAR;
228 end;
229
230
231 procedure UPDATE_ROW (p_cust_account_id IN number,
232 p_coterm_day_month IN varchar2)
233 is
234
235 cursor cu_last_update(cp_cust_account_id IN NUMBER)
236 is
237 --npalepu modified on 4/13/2006 for bug # 5139425
238 /* SELECT last_update_date */
239 SELECT last_update_date,object_version_number
240 --end npalepu
241 FROM HZ_CUST_ACCOUNTS
242 WHERE cust_account_id= cp_cust_account_id;
243
244 cr_last_update cu_last_update%ROWTYPE;
245
246 l_account_rec HZ_CUST_ACCOUNT_V2PUB.cust_account_rec_type;
247 l_cust_rec HZ_CUSTOMER_PROFILE_V2PUB.customer_profile_rec_type;
248 l_return_status VARCHAR2(100);
249 l_msg_count NUMBER;
250 l_msg_data VARCHAR2(2000);
251 l_main_id NUMBER;
252 l_nested1_id NUMBER;
253 l_nested2_id NUMBER;
254 l_validation_level NUMBER;
255 --
256 l_last_update_date1 DATE;
257 l_last_update_date2 DATE;
258 --
259 -- New Parameter for Update_cust_account api
260 l_object_version_number NUMBER;
261 BEGIN
262
263 --npalepu commented this call for bug # 5139425 on 4/13/2006
264 /* init (l_account_rec,
265 l_cust_rec); */
266 --end npalepu
267
268
269 l_account_rec.cust_account_id := p_cust_account_id;
270 l_account_rec.coterminate_day_month := p_coterm_day_month ;
271 --
272 open cu_last_update(p_cust_account_id);
273 fetch cu_last_update into cr_last_update;
274 close cu_last_update;
275
276 l_last_update_date1 := cr_last_update.last_update_date;
277 --npalepu added for bug # 5139425 on 4/13/2006
278 l_object_version_number := cr_last_update.object_version_number;
279 --end npalepu
280
281 HZ_CUST_ACCOUNT_V2PUB.update_cust_account
282 -- ( p_api_version => 1
283 ( p_init_msg_list => 'T'
284 -- , p_commit => 'F'
285 , p_cust_account_rec => l_account_rec
286 -- , p_cust_profile_rec => l_cust_rec
287 -- , p_acct_last_update_date => l_last_update_date1
288 -- , p_prof_last_update_date => l_last_update_date2
289 , p_object_version_number => l_object_version_number -- New parameter
290 , x_return_status => l_return_status
291 , x_msg_count => l_msg_count
292 , x_msg_data => l_msg_data
293 -- , p_validation_level => l_validation_level
294 );
295
296 FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
297 arp_util.debug(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ));
298 END LOOP;
299 --
300 END;
301 END OKS_HZ_CUSTOMER_ACCOUNTS_PVT ;