[Home] [Help]
PACKAGE BODY: APPS.PV_TAP_BES_PKG
Source
1 PACKAGE BODY PV_TAP_BES_PKG AS
2 /* $Header: pvxtbesb.pls 120.4 2006/05/12 04:16:51 rdsharma ship $ */
3 -- ===============================================================
4 -- Start of Comments
5 -- Package name
6 -- PV_TAP_BES_PKG
7 -- Purpose
8 --
9 -- History
10 --
11 -- NOTE
12 --
13 -- This package includes all the PRM related Territory Assignment
14 -- subscriptions for following modules -
15 -- * Organization Update
16 -- * Party Site Update
17 -- * Location Update
18 -- * Contact Point Update
19 -- ===============================================================
20
21
22 /*******************************************************************
23 * Comments:
24 * This package has been modified to delete the reference of
25 * hz_param_pkg.param_tab_t variable which is no longer supported
26 * by TCA in R12 release.
27 * This issue reported by TCA in bug# 4528865. By removing the
28 * reference we are going to ignore whether the change were in any
29 * Territory related transaction qualifier or not. We will insert
30 * that organization record in PV_TAP_BATCH_CHG_PARTNERS table
31 * for Channel team assignment.
32 *
33 *******************************************************************/
34
35 /***********************COMMENTS - STARTED ***************************
36 ------------------------
37 -- The Nullify routines
38 ------------------------
39 -- PROCEDURE Nullify_location_rec
40 -- PROCEDURE Nullify_contact_point_rec
41 -- PROCEDURE Nullify_organization_rec
42 -- PROCEDURE Nullify_party_site_rec
43 -------------------------
44
45 PROCEDURE Nullify_location_rec
46 ( p_location_rec IN OUT NOCOPY hz_location_v2pub.location_rec_type )
47 IS
48 BEGIN
49 p_location_rec.location_id := null;
50 p_location_rec.orig_system_reference := null;
51 p_location_rec.country := null;
52 p_location_rec.address1 := null;
53 p_location_rec.address2 := null;
54 p_location_rec.address3 := null;
55 p_location_rec.address4 := null;
56 p_location_rec.city := null;
57 p_location_rec.postal_code := null;
58 p_location_rec.state := null;
59 p_location_rec.province := null;
60 p_location_rec.county := null;
61 p_location_rec.address_key := null;
62 p_location_rec.address_style := null;
63 p_location_rec.validated_flag := null;
64 p_location_rec.address_lines_phonetic := null;
65 p_location_rec.po_box_number := null;
66 p_location_rec.house_number := null;
67 p_location_rec.street_suffix := null;
68 p_location_rec.street := null;
69 p_location_rec.street_number := null;
70 p_location_rec.floor := null;
71 p_location_rec.suite := null;
72 p_location_rec.postal_plus4_code := null;
73 p_location_rec.position := null;
74 p_location_rec.location_directions := null;
75 p_location_rec.address_effective_date := null;
76 p_location_rec.address_expiration_date := null;
77 p_location_rec.clli_code := null;
78 p_location_rec.language := null;
79 p_location_rec.short_description := null;
80 p_location_rec.description := null;
81 p_location_rec.loc_hierarchy_id := null;
82 p_location_rec.sales_tax_geocode := null;
83 p_location_rec.sales_tax_inside_city_limits := null;
84 p_location_rec.fa_location_id := null;
85 p_location_rec.content_source_type := null;
86 p_location_rec.attribute_category := null;
87 p_location_rec.attribute1 := null;
88 p_location_rec.attribute2 := null;
89 p_location_rec.attribute3 := null;
90 p_location_rec.attribute4 := null;
91 p_location_rec.attribute5 := null;
92 p_location_rec.attribute6 := null;
93 p_location_rec.attribute7 := null;
94 p_location_rec.attribute8 := null;
95 p_location_rec.attribute9 := null;
96 p_location_rec.attribute10 := null;
97 p_location_rec.attribute11 := null;
98 p_location_rec.attribute12 := null;
99 p_location_rec.attribute13 := null;
100 p_location_rec.attribute14 := null;
101 p_location_rec.attribute15 := null;
102 p_location_rec.attribute16 := null;
103 p_location_rec.attribute17 := null;
104 p_location_rec.attribute18 := null;
105 p_location_rec.attribute19 := null;
106 p_location_rec.attribute20 := null;
107 p_location_rec.timezone_id := null;
108 END;
109
110 PROCEDURE Nullify_contact_point_rec
111 ( p_contact_point_rec IN OUT NOCOPY hz_contact_point_v2pub.contact_point_rec_type )
112 IS
113 BEGIN
114 p_contact_point_rec.contact_point_id := null;
115 p_contact_point_rec.contact_point_type := null;
116 p_contact_point_rec.status := null;
117 p_contact_point_rec.owner_table_name := null;
118 p_contact_point_rec.owner_table_id := null;
119 p_contact_point_rec.primary_flag := null;
120 p_contact_point_rec.orig_system_reference := null;
121 p_contact_point_rec.attribute_category := null;
122 p_contact_point_rec.attribute1 := null;
123 p_contact_point_rec.attribute2 := null;
124 p_contact_point_rec.attribute3 := null;
125 p_contact_point_rec.attribute4 := null;
126 p_contact_point_rec.attribute5 := null;
127 p_contact_point_rec.attribute6 := null;
128 p_contact_point_rec.attribute7 := null;
129 p_contact_point_rec.attribute8 := null;
130 p_contact_point_rec.attribute9 := null;
131 p_contact_point_rec.attribute10 := null;
132 p_contact_point_rec.attribute11 := null;
133 p_contact_point_rec.attribute12 := null;
134 p_contact_point_rec.attribute13 := null;
135 p_contact_point_rec.attribute14 := null;
136 p_contact_point_rec.attribute15 := null;
137 p_contact_point_rec.attribute16 := null;
138 p_contact_point_rec.attribute17 := null;
139 p_contact_point_rec.attribute18 := null;
140 p_contact_point_rec.attribute19 := null;
141 p_contact_point_rec.attribute20 := null;
142 END;
143
144 PROCEDURE Nullify_edi_rec
145 ( p_edi_rec IN OUT NOCOPY hz_contact_point_v2pub.edi_rec_type )
146 IS
147 BEGIN
148 p_edi_rec.edi_transaction_handling := null;
149 p_edi_rec.edi_id_number := null;
150 p_edi_rec.edi_payment_method := null;
151 p_edi_rec.edi_payment_format := null;
152 p_edi_rec.edi_remittance_method := null;
153 p_edi_rec.edi_remittance_instruction := null;
154 p_edi_rec.edi_tp_header_id := null;
155 p_edi_rec.edi_ece_tp_location_code := null;
156 END;
157
158
159 PROCEDURE Nullify_email_rec
160 ( p_email_rec IN OUT NOCOPY hz_contact_point_v2pub.email_rec_type )
161 IS
162 BEGIN
163 p_email_rec.email_format := null;
164 p_email_rec.email_address := null;
165 END;
166
167
168 PROCEDURE Nullify_phone_rec
169 ( p_phone_rec IN OUT NOCOPY hz_contact_point_v2pub.phone_rec_type )
170 IS
171 BEGIN
172 p_phone_rec.phone_calling_calendar := null;
173 p_phone_rec.last_contact_dt_time := null;
174 p_phone_rec.timezone_id := null;
175 p_phone_rec.phone_area_code := null;
176 p_phone_rec.phone_country_code := null;
177 p_phone_rec.phone_number := null;
178 p_phone_rec.phone_extension := null;
179 p_phone_rec.phone_line_type := null;
180 END;
181
182
183 PROCEDURE Nullify_telex_rec
184 ( p_telex_rec IN OUT NOCOPY hz_contact_point_v2pub.telex_rec_type )
185 IS
186 BEGIN
187 p_telex_rec.telex_number := null;
188 END;
189
190 PROCEDURE Nullify_web_rec
191 ( p_web_rec IN OUT NOCOPY hz_contact_point_v2pub.web_rec_type )
192 IS
193 BEGIN
194 p_web_rec.web_type := null;
195 p_web_rec.url := null;
196 END;
197
198 PROCEDURE Nullify_party_rec
199 ( p_party_rec IN OUT NOCOPY hz_party_v2pub.party_rec_type )
200 IS
201 BEGIN
202 p_party_rec.party_id := NULL;
203 p_party_rec.party_number := NULL;
204 p_party_rec.validated_flag := NULL;
205 p_party_rec.orig_system_reference := NULL;
206 p_party_rec.status := NULL;
207 p_party_rec.category_code := NULL;
208 p_party_rec.salutation := NULL;
209 p_party_rec.attribute_category := NULL;
210 p_party_rec.attribute1 := NULL;
211 p_party_rec.attribute2 := NULL;
212 p_party_rec.attribute3 := NULL;
213 p_party_rec.attribute4 := NULL;
214 p_party_rec.attribute5 := NULL;
215 p_party_rec.attribute6 := NULL;
216 p_party_rec.attribute7 := NULL;
217 p_party_rec.attribute8 := NULL;
218 p_party_rec.attribute9 := NULL;
219 p_party_rec.attribute10 := NULL;
220 p_party_rec.attribute11 := NULL;
221 p_party_rec.attribute12 := NULL;
222 p_party_rec.attribute13 := NULL;
223 p_party_rec.attribute14 := NULL;
224 p_party_rec.attribute15 := NULL;
225 p_party_rec.attribute16 := NULL;
226 p_party_rec.attribute17 := NULL;
227 p_party_rec.attribute18 := NULL;
228 p_party_rec.attribute19 := NULL;
229 p_party_rec.attribute20 := NULL;
230 p_party_rec.attribute21 := NULL;
231 p_party_rec.attribute22 := NULL;
232 p_party_rec.attribute23 := NULL;
233 p_party_rec.attribute24 := NULL;
234
235 -- p_party_rec.global_attribute_category := NULL;
236 -- p_party_rec.global_attribute1 := NULL;
237 -- p_party_rec.global_attribute2 := NULL;
238 -- p_party_rec.global_attribute3 := NULL;
239 -- p_party_rec.global_attribute4 := NULL;
240 -- p_party_rec.global_attribute5 := NULL;
241 -- p_party_rec.global_attribute6 := NULL;
242 -- p_party_rec.global_attribute7 := NULL;
243 -- p_party_rec.global_attribute8 := NULL;
244 -- p_party_rec.global_attribute9 := NULL;
245 -- p_party_rec.global_attribute10 := NULL;
246 -- p_party_rec.global_attribute11 := NULL;
247 -- p_party_rec.global_attribute12 := NULL;
248 -- p_party_rec.global_attribute13 := NULL;
249 -- p_party_rec.global_attribute14 := NULL;
250 -- p_party_rec.global_attribute15 := NULL;
251 -- p_party_rec.global_attribute16 := NULL;
252 -- p_party_rec.global_attribute17 := NULL;
253 -- p_party_rec.global_attribute18 := NULL;
254 -- p_party_rec.global_attribute19 := NULL;
255 -- p_party_rec.global_attribute20 := NULL;
256
257 -- p_party_rec.wh_update_date := NULL;
258
259 END;
260
261 PROCEDURE Nullify_organization_rec
262 ( p_organization_rec IN OUT NOCOPY hz_party_v2pub.organization_rec_type )
263 IS
264 BEGIN
265 p_organization_rec.organization_name := null;
266 p_organization_rec.duns_number_c := null;
267 p_organization_rec.enquiry_duns := null;
268 p_organization_rec.ceo_name := null;
269 p_organization_rec.ceo_title := null;
270 p_organization_rec.principal_name := null;
271 p_organization_rec.principal_title := null;
272 p_organization_rec.legal_status := null;
273 p_organization_rec.control_yr := null;
274 p_organization_rec.employees_total := null;
275 p_organization_rec.hq_branch_ind := null;
276 p_organization_rec.branch_flag := null;
277 p_organization_rec.oob_ind := null;
278 p_organization_rec.line_of_business := null;
279 p_organization_rec.cong_dist_code := null;
280 p_organization_rec.sic_code := null;
281 p_organization_rec.import_ind := null;
282 p_organization_rec.export_ind := null;
283 p_organization_rec.labor_surplus_ind := null;
284 p_organization_rec.debarment_ind := null;
285 p_organization_rec.minority_owned_ind := null;
286 p_organization_rec.minority_owned_type := null;
287 p_organization_rec.woman_owned_ind := null;
288 p_organization_rec.disadv_8a_ind := null;
289 p_organization_rec.small_bus_ind := null;
290 p_organization_rec.rent_own_ind := null;
291 p_organization_rec.debarments_count := null;
292 p_organization_rec.debarments_date := null;
293 p_organization_rec.failure_score := null;
294 p_organization_rec.failure_score_override_code := null;
295 p_organization_rec.failure_score_commentary := null;
296 p_organization_rec.global_failure_score := null;
297 p_organization_rec.db_rating := null;
298 p_organization_rec.credit_score := null;
299 p_organization_rec.credit_score_commentary := null;
300 p_organization_rec.paydex_score := null;
301 p_organization_rec.paydex_three_months_ago := null;
302 p_organization_rec.paydex_norm := null;
303 p_organization_rec.best_time_contact_begin := null;
304 p_organization_rec.best_time_contact_end := null;
305 p_organization_rec.organization_name_phonetic:= null;
306 p_organization_rec.tax_reference := null;
307 p_organization_rec.gsa_indicator_flag := null;
308 p_organization_rec.jgzz_fiscal_code := null;
309 p_organization_rec.analysis_fy := null;
310 p_organization_rec.fiscal_yearend_month := null;
311 p_organization_rec.curr_fy_potential_revenue := null;
312 p_organization_rec.next_fy_potential_revenue := null;
313 p_organization_rec.year_established := null;
314 p_organization_rec.mission_statement := null;
315 p_organization_rec.organization_type := null;
316 p_organization_rec.business_scope := null;
317 p_organization_rec.corporation_class := null;
318 p_organization_rec.known_as := null;
319 p_organization_rec.known_as2 := null;
320 p_organization_rec.known_as3 := null;
321 p_organization_rec.known_as4 := null;
322 p_organization_rec.known_as5 := null;
323 p_organization_rec.local_bus_iden_type := null;
324 p_organization_rec.local_bus_identifier := null;
325 p_organization_rec.pref_functional_currency := null;
326 p_organization_rec.registration_type := null;
327 p_organization_rec.total_employees_text := null;
328 p_organization_rec.total_employees_ind := null;
329 p_organization_rec.total_emp_est_ind := null;
330 p_organization_rec.total_emp_min_ind := null;
331 p_organization_rec.parent_sub_ind := null;
332 p_organization_rec.incorp_year := null;
333 p_organization_rec.sic_code_type := null;
334 p_organization_rec.public_private_ownership_flag := null;
335 p_organization_rec.internal_flag := null;
336 p_organization_rec.local_activity_code_type := null;
337 p_organization_rec.local_activity_code := null;
338 p_organization_rec.emp_at_primary_adr := null;
339 p_organization_rec.emp_at_primary_adr_text := null;
340 p_organization_rec.emp_at_primary_adr_est_ind:= null;
341 p_organization_rec.emp_at_primary_adr_min_ind:= null;
342 p_organization_rec.high_credit := null;
343 p_organization_rec.avg_high_credit := null;
344 p_organization_rec.total_payments := null;
345 p_organization_rec.credit_score_class := null;
346 p_organization_rec.credit_score_natl_percentile:= null;
347 p_organization_rec.credit_score_incd_default := null;
348 p_organization_rec.credit_score_age := null;
349 p_organization_rec.credit_score_date := null;
350 p_organization_rec.credit_score_commentary2 := null;
351 p_organization_rec.credit_score_commentary3 := null;
352 p_organization_rec.credit_score_commentary4 := null;
353 p_organization_rec.credit_score_commentary5 := null;
354 p_organization_rec.credit_score_commentary6 := null;
355 p_organization_rec.credit_score_commentary7 := null;
356 p_organization_rec.credit_score_commentary8 := null;
357 p_organization_rec.credit_score_commentary9 := null;
358 p_organization_rec.credit_score_commentary10 := null;
359 p_organization_rec.failure_score_class := null;
360 p_organization_rec.failure_score_incd_default := null;
361 p_organization_rec.failure_score_age := null;
362 p_organization_rec.failure_score_date := null;
363 p_organization_rec.failure_score_commentary2 := null;
364 p_organization_rec.failure_score_commentary3 := null;
365 p_organization_rec.failure_score_commentary4 := null;
366 p_organization_rec.failure_score_commentary5 := null;
367 p_organization_rec.failure_score_commentary6 := null;
368 p_organization_rec.failure_score_commentary7 := null;
369 p_organization_rec.failure_score_commentary8 := null;
370 p_organization_rec.failure_score_commentary9 := null;
371 p_organization_rec.failure_score_commentary10 := null;
372 p_organization_rec.maximum_credit_recommendation := null;
373 p_organization_rec.maximum_credit_currency_code := null;
374 p_organization_rec.displayed_duns_party_id := null;
375 p_organization_rec.content_source_type := null;
376 p_organization_rec.content_source_number := null;
377
378 -- p_organization_rec.attribute_category := null;
379 -- p_organization_rec.attribute1 := null;
380 -- p_organization_rec.attribute2 := null;
381 -- p_organization_rec.attribute3 := null;
382 -- p_organization_rec.attribute4 := null;
383 -- p_organization_rec.attribute5 := null;
384 -- p_organization_rec.attribute6 := null;
385 -- p_organization_rec.attribute7 := null;
386 -- p_organization_rec.attribute8 := null;
387 -- p_organization_rec.attribute9 := null;
388 -- p_organization_rec.attribute10 := null;
389 -- p_organization_rec.attribute11 := null;
390 -- p_organization_rec.attribute12 := null;
391 -- p_organization_rec.attribute13 := null;
392 -- p_organization_rec.attribute14 := null;
393 -- p_organization_rec.attribute15 := null;
394 -- p_organization_rec.attribute16 := null;
395 -- p_organization_rec.attribute17 := null;
396 -- p_organization_rec.attribute18 := null;
397 -- p_organization_rec.attribute19 := null;
398 -- p_organization_rec.attribute20 := null;
399 -- p_organization_rec.global_attribute_category := null;
400 -- p_organization_rec.global_attribute1 := null;
401 -- p_organization_rec.global_attribute2 := null;
402 -- p_organization_rec.global_attribute3 := null;
403 -- p_organization_rec.global_attribute4 := null;
404 -- p_organization_rec.global_attribute5 := null;
405 -- p_organization_rec.global_attribute6 := null;
406 -- p_organization_rec.global_attribute7 := null;
407 -- p_organization_rec.global_attribute8 := null;
408 -- p_organization_rec.global_attribute9 := null;
409 -- p_organization_rec.global_attribute10 := null;
410 -- p_organization_rec.global_attribute11 := null;
411 -- p_organization_rec.global_attribute12 := null;
412 -- p_organization_rec.global_attribute13 := null;
413 -- p_organization_rec.global_attribute14 := null;
414 -- p_organization_rec.global_attribute15 := null;
415 -- p_organization_rec.global_attribute16 := null;
416 -- p_organization_rec.global_attribute17 := null;
417 -- p_organization_rec.global_attribute18 := null;
418 -- p_organization_rec.global_attribute19 := null;
419 -- p_organization_rec.global_attribute20 := null;
420 -- p_organization_rec.wh_update_date := null;
421
422 nullify_party_rec(p_organization_rec.party_rec);
423 END;
424
425
426 PROCEDURE Nullify_party_site_rec
427 ( p_party_site_rec IN OUT NOCOPY hz_party_site_v2pub.party_site_rec_type )
428 IS
429 BEGIN
430 p_party_site_rec.party_site_id := NULL;
431 p_party_site_rec.party_id := NULL;
432 p_party_site_rec.location_id := NULL;
433 p_party_site_rec.party_site_number := NULL;
434 p_party_site_rec.orig_system_reference := NULL;
435 p_party_site_rec.mailstop := NULL;
436 p_party_site_rec.identifying_address_flag := NULL;
437 p_party_site_rec.language := NULL;
438 p_party_site_rec.status := NULL;
439 p_party_site_rec.party_site_name := NULL;
440 p_party_site_rec.attribute_category := NULL;
441 p_party_site_rec.attribute1 := NULL;
442 p_party_site_rec.attribute2 := NULL;
443 p_party_site_rec.attribute3 := NULL;
444 p_party_site_rec.attribute4 := NULL;
445 p_party_site_rec.attribute5 := NULL;
446 p_party_site_rec.attribute6 := NULL;
447 p_party_site_rec.attribute7 := NULL;
448 p_party_site_rec.attribute8 := NULL;
449 p_party_site_rec.attribute9 := NULL;
450 p_party_site_rec.attribute10 := NULL;
451 p_party_site_rec.attribute11 := NULL;
452 p_party_site_rec.attribute12 := NULL;
453 p_party_site_rec.attribute13 := NULL;
454 p_party_site_rec.attribute14 := NULL;
455 p_party_site_rec.attribute15 := NULL;
456 p_party_site_rec.attribute16 := NULL;
457 p_party_site_rec.attribute17 := NULL;
458 p_party_site_rec.attribute18 := NULL;
459 p_party_site_rec.attribute19 := NULL;
460 p_party_site_rec.attribute20 := NULL;
461
462 -- p_party_site_rec.global_attribute_category := NULL;
463 -- p_party_site_rec.global_attribute1 := NULL;
464 -- p_party_site_rec.global_attribute2 := NULL;
465 -- p_party_site_rec.global_attribute3 := NULL;
466 -- p_party_site_rec.global_attribute4 := NULL;
467 -- p_party_site_rec.global_attribute5 := NULL;
468 -- p_party_site_rec.global_attribute6 := NULL;
469 -- p_party_site_rec.global_attribute7 := NULL;
470 -- p_party_site_rec.global_attribute8 := NULL;
471 -- p_party_site_rec.global_attribute9 := NULL;
472 -- p_party_site_rec.global_attribute10 := NULL;
473 -- p_party_site_rec.global_attribute11 := NULL;
474 -- p_party_site_rec.global_attribute12 := NULL;
475 -- p_party_site_rec.global_attribute13 := NULL;
476 -- p_party_site_rec.global_attribute14 := NULL;
477 -- p_party_site_rec.global_attribute15 := NULL;
478 -- p_party_site_rec.global_attribute16 := NULL;
479 -- p_party_site_rec.global_attribute17 := NULL;
480 -- p_party_site_rec.global_attribute18 := NULL;
481 -- p_party_site_rec.global_attribute19 := NULL;
482 -- p_party_site_rec.global_attribute20 := NULL;
483 -- p_party_site_rec.wh_update_date := NULL;
484
485 p_party_site_rec.ADDRESSEE := NULL;
486 END Nullify_party_site_rec;
487
488 -----------------------------
489 -- Fill_rec_Routine
490 -----------------------------
491 -- PROCEDURE contact_point_rec_fill
492 -- PROCEDURE location_rec_fill
493 -- PROCEDURE party_site_rec_fill
494 -- PROCEDURE organization_rec_fill
495 ------------------------------
496 PROCEDURE contact_point_rec_fill
497 ( p_contact_point_rec IN OUT NOCOPY hz_contact_point_v2pub.contact_point_rec_type,
498 l_tab IN hz_param_pkg.param_tab_t,
499 p_ind IN VARCHAR2 )
500 IS
501 l_count NUMBER;
502 BEGIN
503 l_count := l_tab.count;
504 IF l_count > 0 THEN
505 FOR i in 1 .. l_count LOOP
506 IF l_tab(i).param_indicator = p_ind THEN
507 IF l_tab(i).param_name = 'P_CONTACT_POINT_REC.CONTACT_POINT_ID' THEN
508 P_CONTACT_POINT_REC.CONTACT_POINT_ID := l_tab(i).param_num;
509 ELSIF l_tab(i).param_name = 'P_CONTACT_POINT_REC.CONTACT_POINT_TYPE' THEN
510 P_CONTACT_POINT_REC.CONTACT_POINT_TYPE := l_tab(i).param_char;
511 ELSIF l_tab(i).param_name = 'P_CONTACT_POINT_REC.STATUS' THEN
512 P_CONTACT_POINT_REC.STATUS := l_tab(i).param_char;
513 ELSIF l_tab(i).param_name = 'P_CONTACT_POINT_REC.OWNER_TABLE_NAME' THEN
514 P_CONTACT_POINT_REC.OWNER_TABLE_NAME := l_tab(i).param_char;
515 ELSIF l_tab(i).param_name = 'P_CONTACT_POINT_REC.OWNER_TABLE_ID' THEN
516 P_CONTACT_POINT_REC.OWNER_TABLE_ID := l_tab(i).param_num;
517 ELSIF l_tab(i).param_name = 'P_CONTACT_POINT_REC.PRIMARY_FLAG' THEN
518 P_CONTACT_POINT_REC.PRIMARY_FLAG := l_tab(i).param_char;
519 ELSIF l_tab(i).param_name = 'P_CONTACT_POINT_REC.ORIG_SYSTEM_REFERENCE' THEN
520 P_CONTACT_POINT_REC.ORIG_SYSTEM_REFERENCE := l_tab(i).param_char;
521 ELSIF l_tab(i).param_name = 'P_CONTACT_POINT_REC.CONTENT_SOURCE_TYPE' THEN
522 P_CONTACT_POINT_REC.CONTENT_SOURCE_TYPE := l_tab(i).param_char;
523 ELSIF l_tab(i).param_name = 'P_CONTACT_POINT_REC.ATTRIBUTE_CATEGORY' THEN
524 P_CONTACT_POINT_REC.ATTRIBUTE_CATEGORY := l_tab(i).param_char;
525 ELSIF l_tab(i).param_name = 'P_CONTACT_POINT_REC.ATTRIBUTE1' THEN
526 P_CONTACT_POINT_REC.ATTRIBUTE1 := l_tab(i).param_char;
527 ELSIF l_tab(i).param_name = 'P_CONTACT_POINT_REC.ATTRIBUTE2' THEN
528 P_CONTACT_POINT_REC.ATTRIBUTE2 := l_tab(i).param_char;
529 ELSIF l_tab(i).param_name = 'P_CONTACT_POINT_REC.ATTRIBUTE3' THEN
530 P_CONTACT_POINT_REC.ATTRIBUTE3 := l_tab(i).param_char;
531 ELSIF l_tab(i).param_name = 'P_CONTACT_POINT_REC.ATTRIBUTE4' THEN
532 P_CONTACT_POINT_REC.ATTRIBUTE4 := l_tab(i).param_char;
533 ELSIF l_tab(i).param_name = 'P_CONTACT_POINT_REC.ATTRIBUTE5' THEN
534 P_CONTACT_POINT_REC.ATTRIBUTE5 := l_tab(i).param_char;
535 ELSIF l_tab(i).param_name = 'P_CONTACT_POINT_REC.ATTRIBUTE6' THEN
536 P_CONTACT_POINT_REC.ATTRIBUTE6 := l_tab(i).param_char;
537 ELSIF l_tab(i).param_name = 'P_CONTACT_POINT_REC.ATTRIBUTE7' THEN
538 P_CONTACT_POINT_REC.ATTRIBUTE7 := l_tab(i).param_char;
539 ELSIF l_tab(i).param_name = 'P_CONTACT_POINT_REC.ATTRIBUTE8' THEN
540 P_CONTACT_POINT_REC.ATTRIBUTE8 := l_tab(i).param_char;
541 ELSIF l_tab(i).param_name = 'P_CONTACT_POINT_REC.ATTRIBUTE9' THEN
542 P_CONTACT_POINT_REC.ATTRIBUTE9 := l_tab(i).param_char;
543 ELSIF l_tab(i).param_name = 'P_CONTACT_POINT_REC.ATTRIBUTE10' THEN
544 P_CONTACT_POINT_REC.ATTRIBUTE10 := l_tab(i).param_char;
545 ELSIF l_tab(i).param_name = 'P_CONTACT_POINT_REC.ATTRIBUTE11' THEN
546 P_CONTACT_POINT_REC.ATTRIBUTE11 := l_tab(i).param_char;
547 ELSIF l_tab(i).param_name = 'P_CONTACT_POINT_REC.ATTRIBUTE12' THEN
548 P_CONTACT_POINT_REC.ATTRIBUTE12 := l_tab(i).param_char;
549 ELSIF l_tab(i).param_name = 'P_CONTACT_POINT_REC.ATTRIBUTE13' THEN
550 P_CONTACT_POINT_REC.ATTRIBUTE13 := l_tab(i).param_char;
551 ELSIF l_tab(i).param_name = 'P_CONTACT_POINT_REC.ATTRIBUTE14' THEN
552 P_CONTACT_POINT_REC.ATTRIBUTE14 := l_tab(i).param_char;
553 ELSIF l_tab(i).param_name = 'P_CONTACT_POINT_REC.ATTRIBUTE15' THEN
554 P_CONTACT_POINT_REC.ATTRIBUTE15 := l_tab(i).param_char;
555 ELSIF l_tab(i).param_name = 'P_CONTACT_POINT_REC.ATTRIBUTE16' THEN
556 P_CONTACT_POINT_REC.ATTRIBUTE16 := l_tab(i).param_char;
557 ELSIF l_tab(i).param_name = 'P_CONTACT_POINT_REC.ATTRIBUTE17' THEN
558 P_CONTACT_POINT_REC.ATTRIBUTE17 := l_tab(i).param_char;
559 ELSIF l_tab(i).param_name = 'P_CONTACT_POINT_REC.ATTRIBUTE18' THEN
560 P_CONTACT_POINT_REC.ATTRIBUTE18 := l_tab(i).param_char;
561 ELSIF l_tab(i).param_name = 'P_CONTACT_POINT_REC.ATTRIBUTE19' THEN
562 P_CONTACT_POINT_REC.ATTRIBUTE19 := l_tab(i).param_char;
563 ELSIF l_tab(i).param_name = 'P_CONTACT_POINT_REC.ATTRIBUTE20' THEN
564 P_CONTACT_POINT_REC.ATTRIBUTE20 := l_tab(i).param_char;
565 END IF;
566 END IF;
567 END LOOP;
568 END IF;
569 END contact_point_rec_fill;
570
571 PROCEDURE edi_rec_fill
572 ( p_edi_rec IN OUT NOCOPY hz_contact_point_v2pub.edi_rec_type,
573 l_tab IN hz_param_pkg.param_tab_t,
574 p_ind IN VARCHAR2 )
575 IS
576 l_count NUMBER;
577 BEGIN
578 l_count := l_tab.count;
579 IF l_count > 0 THEN
580 FOR i in 1 .. l_count LOOP
581 IF l_tab(i).param_indicator = p_ind THEN
582 IF l_tab(i).param_name = 'P_EDI_REC.EDI_TRANSACTION_HANDLING' THEN
583 P_EDI_REC.EDI_TRANSACTION_HANDLING := l_tab(i).param_char;
584 ELSIF l_tab(i).param_name = 'P_EDI_REC.EDI_ID_NUMBER' THEN
585 P_EDI_REC.EDI_ID_NUMBER := l_tab(i).param_char;
586 ELSIF l_tab(i).param_name = 'P_EDI_REC.EDI_PAYMENT_METHOD' THEN
587 P_EDI_REC.EDI_PAYMENT_METHOD := l_tab(i).param_char;
588 ELSIF l_tab(i).param_name = 'P_EDI_REC.EDI_PAYMENT_FORMAT' THEN
589 P_EDI_REC.EDI_PAYMENT_FORMAT := l_tab(i).param_char;
590 ELSIF l_tab(i).param_name = 'P_EDI_REC.EDI_REMITTANCE_METHOD' THEN
591 P_EDI_REC.EDI_REMITTANCE_METHOD := l_tab(i).param_char;
592 ELSIF l_tab(i).param_name = 'P_EDI_REC.EDI_REMITTANCE_INSTRUCTION' THEN
593 P_EDI_REC.EDI_REMITTANCE_INSTRUCTION := l_tab(i).param_char;
594 ELSIF l_tab(i).param_name = 'P_EDI_REC.EDI_TP_HEADER_ID' THEN
595 P_EDI_REC.EDI_TP_HEADER_ID := l_tab(i).param_num;
596 ELSIF l_tab(i).param_name = 'P_EDI_REC.EDI_ECE_TP_LOCATION_CODE' THEN
597 P_EDI_REC.EDI_ECE_TP_LOCATION_CODE := l_tab(i).param_char;
598 END IF;
599 END IF;
600 END LOOP;
601 END IF;
602 END;
603
604
605 PROCEDURE email_rec_fill
606 ( p_email_rec IN OUT NOCOPY hz_contact_point_v2pub.email_rec_type,
607 l_tab IN hz_param_pkg.param_tab_t,
608 p_ind IN VARCHAR2 )
609 IS
610 l_count NUMBER;
611 BEGIN
612 l_count := l_tab.count;
613 IF l_count > 0 THEN
614 FOR i in 1 .. l_count LOOP
615 IF l_tab(i).param_indicator = p_ind THEN
616 IF l_tab(i).param_name = 'P_EMAIL_REC.EMAIL_FORMAT' THEN
617 P_EMAIL_REC.EMAIL_FORMAT := l_tab(i).param_char;
618 ELSIF l_tab(i).param_name = 'P_EMAIL_REC.EMAIL_ADDRESS' THEN
619 P_EMAIL_REC.EMAIL_ADDRESS := l_tab(i).param_char;
620 END IF;
621 END IF;
622 END LOOP;
623 END IF;
624 END;
625
626 PROCEDURE phone_rec_fill
627 ( p_phone_rec IN OUT NOCOPY hz_contact_point_v2pub.phone_rec_type,
628 l_tab IN hz_param_pkg.param_tab_t,
629 p_ind IN VARCHAR2 )
630 IS
631 l_count NUMBER;
632 BEGIN
633 l_count := l_tab.count;
634 IF l_count > 0 THEN
635 FOR i in 1 .. l_count LOOP
636 IF l_tab(i).param_indicator = p_ind THEN
637 IF l_tab(i).param_name = 'P_PHONE_REC.PHONE_CALLING_CALENDAR' THEN
638 P_PHONE_REC.PHONE_CALLING_CALENDAR := l_tab(i).param_char;
639 ELSIF l_tab(i).param_name = 'P_PHONE_REC.LAST_CONTACT_DT_TIME' THEN
640 P_PHONE_REC.LAST_CONTACT_DT_TIME := l_tab(i).param_date;
641 ELSIF l_tab(i).param_name = 'P_PHONE_REC.TIMEZONE_ID' THEN
642 P_PHONE_REC.TIMEZONE_ID := l_tab(i).param_num;
643 ELSIF l_tab(i).param_name = 'P_PHONE_REC.PHONE_AREA_CODE' THEN
644 P_PHONE_REC.PHONE_AREA_CODE := l_tab(i).param_char;
645 ELSIF l_tab(i).param_name = 'P_PHONE_REC.PHONE_COUNTRY_CODE' THEN
646 P_PHONE_REC.PHONE_COUNTRY_CODE := l_tab(i).param_char;
647 ELSIF l_tab(i).param_name = 'P_PHONE_REC.PHONE_NUMBER' THEN
648 P_PHONE_REC.PHONE_NUMBER := l_tab(i).param_char;
649 ELSIF l_tab(i).param_name = 'P_PHONE_REC.PHONE_EXTENSION' THEN
650 P_PHONE_REC.PHONE_EXTENSION := l_tab(i).param_char;
651 ELSIF l_tab(i).param_name = 'P_PHONE_REC.PHONE_LINE_TYPE' THEN
652 P_PHONE_REC.PHONE_LINE_TYPE := l_tab(i).param_char;
653 ELSIF l_tab(i).param_name = 'P_PHONE_REC.RAW_PHONE_NUMBER' THEN
654 P_PHONE_REC.RAW_PHONE_NUMBER := l_tab(i).param_char;
655 END IF;
656 END IF;
657 END LOOP;
658 END IF;
659 END;
660
661
662 PROCEDURE telex_rec_fill
663 ( p_telex_rec IN OUT NOCOPY hz_contact_point_v2pub.telex_rec_type,
664 l_tab IN hz_param_pkg.param_tab_t,
665 p_ind IN VARCHAR2 )
666 IS
667 l_count NUMBER;
668 BEGIN
669 l_count := l_tab.count;
670 IF l_count > 0 THEN
671 FOR i in 1 .. l_count LOOP
672 IF l_tab(i).param_indicator = p_ind THEN
673 IF l_tab(i).param_name = 'P_TELEX_REC.TELEX_NUMBER' THEN
674 P_TELEX_REC.TELEX_NUMBER := l_tab(i).param_char;
675 END IF;
676 END IF;
677 END LOOP;
678 END IF;
679 END;
680
681 PROCEDURE web_rec_fill
682 ( p_web_rec IN OUT NOCOPY hz_contact_point_v2pub.web_rec_type,
683 l_tab IN hz_param_pkg.param_tab_t,
684 p_ind IN VARCHAR2 )
685 IS
686 l_count NUMBER;
687 BEGIN
688 l_count := l_tab.count;
689 IF l_count > 0 THEN
690 FOR i in 1 .. l_count LOOP
691 IF l_tab(i).param_indicator = p_ind THEN
692 IF l_tab(i).param_name = 'P_WEB_REC.WEB_TYPE' THEN
693 P_WEB_REC.WEB_TYPE := l_tab(i).param_char;
694 ELSIF l_tab(i).param_name = 'P_WEB_REC.URL' THEN
695 P_WEB_REC.URL := l_tab(i).param_char;
696 END IF;
697 END IF;
698 END LOOP;
699 END IF;
700 END;
701
702 procedure location_rec_fill
703 ( p_location_rec IN OUT NOCOPY hz_location_v2pub.location_rec_type,
704 l_tab IN hz_param_pkg.param_tab_t,
705 p_ind IN VARCHAR2 )
706 IS
707 l_count NUMBER;
708 BEGIN
709 l_count := l_tab.count;
710 IF l_count > 0 THEN
711 FOR i in 1 .. l_count LOOP
712 IF l_tab(i).param_indicator = p_ind THEN
713 IF l_tab(i).param_name = 'P_LOCATION_REC.LOCATION_ID' THEN
714 P_LOCATION_REC.LOCATION_ID := l_tab(i).param_num;
715 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.ORIG_SYSTEM_REFERENCE' THEN
716 P_LOCATION_REC.ORIG_SYSTEM_REFERENCE := l_tab(i).param_char;
717 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.COUNTRY' THEN
718 P_LOCATION_REC.COUNTRY := l_tab(i).param_char;
719 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.ADDRESS1' THEN
720 P_LOCATION_REC.ADDRESS1 := l_tab(i).param_char;
721 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.ADDRESS2' THEN
722 P_LOCATION_REC.ADDRESS2 := l_tab(i).param_char;
723 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.ADDRESS3' THEN
724 P_LOCATION_REC.ADDRESS3 := l_tab(i).param_char;
725 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.ADDRESS4' THEN
726 P_LOCATION_REC.ADDRESS4 := l_tab(i).param_char;
727 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.CITY' THEN
728 P_LOCATION_REC.CITY := l_tab(i).param_char;
729 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.POSTAL_CODE' THEN
730 P_LOCATION_REC.POSTAL_CODE := l_tab(i).param_char;
731 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.STATE' THEN
732 P_LOCATION_REC.STATE := l_tab(i).param_char;
733 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.PROVINCE' THEN
734 P_LOCATION_REC.PROVINCE := l_tab(i).param_char;
735 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.COUNTY' THEN
736 P_LOCATION_REC.COUNTY := l_tab(i).param_char;
737 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.ADDRESS_KEY' THEN
738 P_LOCATION_REC.ADDRESS_KEY := l_tab(i).param_char;
739 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.ADDRESS_STYLE' THEN
740 P_LOCATION_REC.ADDRESS_STYLE := l_tab(i).param_char;
741 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.VALIDATED_FLAG' THEN
742 P_LOCATION_REC.VALIDATED_FLAG := l_tab(i).param_char;
743 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.ADDRESS_LINES_PHONETIC' THEN
744 P_LOCATION_REC.ADDRESS_LINES_PHONETIC := l_tab(i).param_char;
745 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.PO_BOX_NUMBER' THEN
746 P_LOCATION_REC.PO_BOX_NUMBER := l_tab(i).param_char;
747 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.HOUSE_NUMBER' THEN
748 P_LOCATION_REC.HOUSE_NUMBER := l_tab(i).param_char;
749 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.STREET_SUFFIX' THEN
750 P_LOCATION_REC.STREET_SUFFIX := l_tab(i).param_char;
751 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.STREET' THEN
752 P_LOCATION_REC.STREET := l_tab(i).param_char;
753 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.STREET_NUMBER' THEN
754 P_LOCATION_REC.STREET_NUMBER := l_tab(i).param_char;
755 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.FLOOR' THEN
756 P_LOCATION_REC.FLOOR := l_tab(i).param_char;
757 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.SUITE' THEN
758 P_LOCATION_REC.SUITE := l_tab(i).param_char;
759 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.POSTAL_PLUS4_CODE' THEN
760 P_LOCATION_REC.POSTAL_PLUS4_CODE := l_tab(i).param_char;
761 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.POSITION' THEN
762 P_LOCATION_REC.POSITION := l_tab(i).param_char;
763 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.LOCATION_DIRECTIONS' THEN
764 P_LOCATION_REC.LOCATION_DIRECTIONS := l_tab(i).param_char;
765 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.ADDRESS_EFFECTIVE_DATE' THEN
766 P_LOCATION_REC.ADDRESS_EFFECTIVE_DATE := l_tab(i).param_date;
767 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.ADDRESS_EXPIRATION_DATE' THEN
768 P_LOCATION_REC.ADDRESS_EXPIRATION_DATE := l_tab(i).param_date;
769 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.CLLI_CODE' THEN
770 P_LOCATION_REC.CLLI_CODE := l_tab(i).param_char;
771 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.LANGUAGE' THEN
772 P_LOCATION_REC.LANGUAGE := l_tab(i).param_char;
773 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.SHORT_DESCRIPTION' THEN
774 P_LOCATION_REC.SHORT_DESCRIPTION := l_tab(i).param_char;
775 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.DESCRIPTION' THEN
776 P_LOCATION_REC.DESCRIPTION := l_tab(i).param_char;
777 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.LOC_HIERARCHY_ID' THEN
778 P_LOCATION_REC.LOC_HIERARCHY_ID := l_tab(i).param_num;
779 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.SALES_TAX_GEOCODE' THEN
780 P_LOCATION_REC.SALES_TAX_GEOCODE := l_tab(i).param_char;
781 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.SALES_TAX_INSIDE_CITY_LIMITS' THEN
782 P_LOCATION_REC.SALES_TAX_INSIDE_CITY_LIMITS := l_tab(i).param_char;
783 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.FA_LOCATION_ID' THEN
784 P_LOCATION_REC.FA_LOCATION_ID := l_tab(i).param_num;
785 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.CONTENT_SOURCE_TYPE' THEN
786 P_LOCATION_REC.CONTENT_SOURCE_TYPE := l_tab(i).param_char;
787 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.ATTRIBUTE_CATEGORY' THEN
788 P_LOCATION_REC.ATTRIBUTE_CATEGORY := l_tab(i).param_char;
789 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.ATTRIBUTE1' THEN
790 P_LOCATION_REC.ATTRIBUTE1 := l_tab(i).param_char;
791 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.ATTRIBUTE2' THEN
792 P_LOCATION_REC.ATTRIBUTE2 := l_tab(i).param_char;
793 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.ATTRIBUTE3' THEN
794 P_LOCATION_REC.ATTRIBUTE3 := l_tab(i).param_char;
795 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.ATTRIBUTE4' THEN
796 P_LOCATION_REC.ATTRIBUTE4 := l_tab(i).param_char;
797 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.ATTRIBUTE5' THEN
798 P_LOCATION_REC.ATTRIBUTE5 := l_tab(i).param_char;
799 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.ATTRIBUTE6' THEN
800 P_LOCATION_REC.ATTRIBUTE6 := l_tab(i).param_char;
801 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.ATTRIBUTE7' THEN
802 P_LOCATION_REC.ATTRIBUTE7 := l_tab(i).param_char;
803 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.ATTRIBUTE8' THEN
804 P_LOCATION_REC.ATTRIBUTE8 := l_tab(i).param_char;
805 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.ATTRIBUTE9' THEN
806 P_LOCATION_REC.ATTRIBUTE9 := l_tab(i).param_char;
807 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.ATTRIBUTE10' THEN
808 P_LOCATION_REC.ATTRIBUTE10 := l_tab(i).param_char;
809 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.ATTRIBUTE11' THEN
810 P_LOCATION_REC.ATTRIBUTE11 := l_tab(i).param_char;
811 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.ATTRIBUTE12' THEN
812 P_LOCATION_REC.ATTRIBUTE12 := l_tab(i).param_char;
813 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.ATTRIBUTE13' THEN
814 P_LOCATION_REC.ATTRIBUTE13 := l_tab(i).param_char;
815 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.ATTRIBUTE14' THEN
816 P_LOCATION_REC.ATTRIBUTE14 := l_tab(i).param_char;
817 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.ATTRIBUTE15' THEN
818 P_LOCATION_REC.ATTRIBUTE15 := l_tab(i).param_char;
819 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.ATTRIBUTE16' THEN
820 P_LOCATION_REC.ATTRIBUTE16 := l_tab(i).param_char;
821 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.ATTRIBUTE17' THEN
822 P_LOCATION_REC.ATTRIBUTE17 := l_tab(i).param_char;
823 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.ATTRIBUTE18' THEN
824 P_LOCATION_REC.ATTRIBUTE18 := l_tab(i).param_char;
825 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.ATTRIBUTE19' THEN
826 P_LOCATION_REC.ATTRIBUTE19 := l_tab(i).param_char;
827 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.ATTRIBUTE20' THEN
828 P_LOCATION_REC.ATTRIBUTE20 := l_tab(i).param_char;
829 ELSIF l_tab(i).param_name = 'P_LOCATION_REC.TIMEZONE_ID' THEN
830 P_LOCATION_REC.TIMEZONE_ID := l_tab(i).param_num;
831 END IF;
832 END IF;
833 END LOOP;
834 END IF;
835 END location_rec_fill;
836
837 PROCEDURE organization_rec_fill
838 ( p_organization_rec IN OUT NOCOPY HZ_PARTY_V2PUB.ORGANIZATION_REC_TYPE,
839 l_tab IN hz_param_pkg.param_tab_t,
840 p_ind IN VARCHAR2 )
841 IS
842 l_count NUMBER;
843 BEGIN
844 l_count := l_tab.count;
845 IF l_count > 0 THEN
846 FOR i in 1 .. l_count LOOP
847 IF l_tab(i).param_indicator = p_ind THEN
848 IF l_tab(i).param_name = 'P_ORGANIZATION_REC.ORGANIZATION_NAME' THEN
849 P_ORGANIZATION_REC.ORGANIZATION_NAME := l_tab(i).param_char;
850 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.DUNS_NUMBER_C' THEN
851 P_ORGANIZATION_REC.DUNS_NUMBER_C := l_tab(i).param_char;
852 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.ENQUIRY_DUNS' THEN
853 P_ORGANIZATION_REC.ENQUIRY_DUNS := l_tab(i).param_char;
854 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.CEO_NAME' THEN
855 P_ORGANIZATION_REC.CEO_NAME := l_tab(i).param_char;
856 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.CEO_TITLE' THEN
857 P_ORGANIZATION_REC.CEO_TITLE := l_tab(i).param_char;
858 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.PRINCIPAL_NAME' THEN
859 P_ORGANIZATION_REC.PRINCIPAL_NAME := l_tab(i).param_char;
860 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.PRINCIPAL_TITLE' THEN
861 P_ORGANIZATION_REC.PRINCIPAL_TITLE := l_tab(i).param_char;
862 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.LEGAL_STATUS' THEN
863 P_ORGANIZATION_REC.LEGAL_STATUS := l_tab(i).param_char;
864 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.CONTROL_YR' THEN
865 P_ORGANIZATION_REC.CONTROL_YR := l_tab(i).param_num;
866 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.EMPLOYEES_TOTAL' THEN
867 P_ORGANIZATION_REC.EMPLOYEES_TOTAL := l_tab(i).param_num;
868 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.HQ_BRANCH_IND' THEN
869 P_ORGANIZATION_REC.HQ_BRANCH_IND := l_tab(i).param_char;
870 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.BRANCH_FLAG' THEN
871 P_ORGANIZATION_REC.BRANCH_FLAG := l_tab(i).param_char;
872 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.OOB_IND' THEN
873 P_ORGANIZATION_REC.OOB_IND := l_tab(i).param_char;
874 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.LINE_OF_BUSINESS' THEN
875 P_ORGANIZATION_REC.LINE_OF_BUSINESS := l_tab(i).param_char;
876 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.CONG_DIST_CODE' THEN
877 P_ORGANIZATION_REC.CONG_DIST_CODE := l_tab(i).param_char;
878 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.SIC_CODE' THEN
879 P_ORGANIZATION_REC.SIC_CODE := l_tab(i).param_char;
880 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.IMPORT_IND' THEN
881 P_ORGANIZATION_REC.IMPORT_IND := l_tab(i).param_char;
882 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.EXPORT_IND' THEN
883 P_ORGANIZATION_REC.EXPORT_IND := l_tab(i).param_char;
884 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.LABOR_SURPLUS_IND' THEN
885 P_ORGANIZATION_REC.LABOR_SURPLUS_IND := l_tab(i).param_char;
886 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.DEBARMENT_IND' THEN
887 P_ORGANIZATION_REC.DEBARMENT_IND := l_tab(i).param_char;
888 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.MINORITY_OWNED_IND' THEN
889 P_ORGANIZATION_REC.MINORITY_OWNED_IND := l_tab(i).param_char;
890 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.MINORITY_OWNED_TYPE' THEN
891 P_ORGANIZATION_REC.MINORITY_OWNED_TYPE := l_tab(i).param_char;
892 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.WOMAN_OWNED_IND' THEN
893 P_ORGANIZATION_REC.WOMAN_OWNED_IND := l_tab(i).param_char;
894 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.DISADV_8A_IND' THEN
895 P_ORGANIZATION_REC.DISADV_8A_IND := l_tab(i).param_char;
896 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.SMALL_BUS_IND' THEN
897 P_ORGANIZATION_REC.SMALL_BUS_IND := l_tab(i).param_char;
898 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.RENT_OWN_IND' THEN
899 P_ORGANIZATION_REC.RENT_OWN_IND := l_tab(i).param_char;
900 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.DEBARMENTS_COUNT' THEN
901 P_ORGANIZATION_REC.DEBARMENTS_COUNT := l_tab(i).param_num;
902 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.DEBARMENTS_DATE' THEN
903 P_ORGANIZATION_REC.DEBARMENTS_DATE := l_tab(i).param_date;
904 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.FAILURE_SCORE' THEN
905 P_ORGANIZATION_REC.FAILURE_SCORE := l_tab(i).param_char;
906 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.FAILURE_SCORE_NATNL_PERCENTILE' THEN
907 P_ORGANIZATION_REC.FAILURE_SCORE_NATNL_PERCENTILE := l_tab(i).param_num;
908 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.FAILURE_SCORE_OVERRIDE_CODE' THEN
909 P_ORGANIZATION_REC.FAILURE_SCORE_OVERRIDE_CODE := l_tab(i).param_char;
910 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.FAILURE_SCORE_COMMENTARY' THEN
911 P_ORGANIZATION_REC.FAILURE_SCORE_COMMENTARY := l_tab(i).param_char;
912 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.GLOBAL_FAILURE_SCORE' THEN
913 P_ORGANIZATION_REC.GLOBAL_FAILURE_SCORE := l_tab(i).param_char;
914 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.DB_RATING' THEN
915 P_ORGANIZATION_REC.DB_RATING := l_tab(i).param_char;
916 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.CREDIT_SCORE' THEN
917 P_ORGANIZATION_REC.CREDIT_SCORE := l_tab(i).param_char;
918 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.CREDIT_SCORE_COMMENTARY' THEN
919 P_ORGANIZATION_REC.CREDIT_SCORE_COMMENTARY := l_tab(i).param_char;
920 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.PAYDEX_SCORE' THEN
921 P_ORGANIZATION_REC.PAYDEX_SCORE := l_tab(i).param_char;
922 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.PAYDEX_THREE_MONTHS_AGO' THEN
923 P_ORGANIZATION_REC.PAYDEX_THREE_MONTHS_AGO := l_tab(i).param_char;
924 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.PAYDEX_NORM' THEN
925 P_ORGANIZATION_REC.PAYDEX_NORM := l_tab(i).param_char;
926 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.BEST_TIME_CONTACT_BEGIN' THEN
927 P_ORGANIZATION_REC.BEST_TIME_CONTACT_BEGIN := l_tab(i).param_date;
928 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.BEST_TIME_CONTACT_END' THEN
929 P_ORGANIZATION_REC.BEST_TIME_CONTACT_END := l_tab(i).param_date;
930 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.ORGANIZATION_NAME_PHONETIC' THEN
931 P_ORGANIZATION_REC.ORGANIZATION_NAME_PHONETIC := l_tab(i).param_char;
932 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.TAX_REFERENCE' THEN
933 P_ORGANIZATION_REC.TAX_REFERENCE := l_tab(i).param_char;
934 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.GSA_INDICATOR_FLAG' THEN
935 P_ORGANIZATION_REC.GSA_INDICATOR_FLAG := l_tab(i).param_char;
936 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.JGZZ_FISCAL_CODE' THEN
937 P_ORGANIZATION_REC.JGZZ_FISCAL_CODE := l_tab(i).param_char;
938 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.ANALYSIS_FY' THEN
939 P_ORGANIZATION_REC.ANALYSIS_FY := l_tab(i).param_char;
940 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.FISCAL_YEAREND_MONTH' THEN
941 P_ORGANIZATION_REC.FISCAL_YEAREND_MONTH := l_tab(i).param_char;
942 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.CURR_FY_POTENTIAL_REVENUE' THEN
943 P_ORGANIZATION_REC.CURR_FY_POTENTIAL_REVENUE := l_tab(i).param_num;
944 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.NEXT_FY_POTENTIAL_REVENUE' THEN
945 P_ORGANIZATION_REC.NEXT_FY_POTENTIAL_REVENUE := l_tab(i).param_num;
946 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.YEAR_ESTABLISHED' THEN
947 P_ORGANIZATION_REC.YEAR_ESTABLISHED := l_tab(i).param_num;
948 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.MISSION_STATEMENT' THEN
949 P_ORGANIZATION_REC.MISSION_STATEMENT := l_tab(i).param_char;
950 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.ORGANIZATION_TYPE' THEN
951 P_ORGANIZATION_REC.ORGANIZATION_TYPE := l_tab(i).param_char;
952 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.BUSINESS_SCOPE' THEN
953 P_ORGANIZATION_REC.BUSINESS_SCOPE := l_tab(i).param_char;
954 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.CORPORATION_CLASS' THEN
955 P_ORGANIZATION_REC.CORPORATION_CLASS := l_tab(i).param_char;
956 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.KNOWN_AS' THEN
957 P_ORGANIZATION_REC.KNOWN_AS := l_tab(i).param_char;
958 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.KNOWN_AS2' THEN
959 P_ORGANIZATION_REC.KNOWN_AS2 := l_tab(i).param_char;
960 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.KNOWN_AS3' THEN
961 P_ORGANIZATION_REC.KNOWN_AS3 := l_tab(i).param_char;
962 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.KNOWN_AS4' THEN
963 P_ORGANIZATION_REC.KNOWN_AS4 := l_tab(i).param_char;
964 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.KNOWN_AS5' THEN
965 P_ORGANIZATION_REC.KNOWN_AS5 := l_tab(i).param_char;
966 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.LOCAL_BUS_IDEN_TYPE' THEN
967 P_ORGANIZATION_REC.LOCAL_BUS_IDEN_TYPE := l_tab(i).param_char;
968 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.LOCAL_BUS_IDENTIFIER' THEN
969 P_ORGANIZATION_REC.LOCAL_BUS_IDENTIFIER := l_tab(i).param_char;
970 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.PREF_FUNCTIONAL_CURRENCY' THEN
971 P_ORGANIZATION_REC.PREF_FUNCTIONAL_CURRENCY := l_tab(i).param_char;
972 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.REGISTRATION_TYPE' THEN
973 P_ORGANIZATION_REC.REGISTRATION_TYPE := l_tab(i).param_char;
974 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.TOTAL_EMPLOYEES_TEXT' THEN
975 P_ORGANIZATION_REC.TOTAL_EMPLOYEES_TEXT := l_tab(i).param_char;
976 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.TOTAL_EMPLOYEES_IND' THEN
977 P_ORGANIZATION_REC.TOTAL_EMPLOYEES_IND := l_tab(i).param_char;
978 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.TOTAL_EMP_EST_IND' THEN
979 P_ORGANIZATION_REC.TOTAL_EMP_EST_IND := l_tab(i).param_char;
980 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.TOTAL_EMP_MIN_IND' THEN
981 P_ORGANIZATION_REC.TOTAL_EMP_MIN_IND := l_tab(i).param_char;
982 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.PARENT_SUB_IND' THEN
983 P_ORGANIZATION_REC.PARENT_SUB_IND := l_tab(i).param_char;
984 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.INCORP_YEAR' THEN
985 P_ORGANIZATION_REC.INCORP_YEAR := l_tab(i).param_num;
986 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.SIC_CODE_TYPE' THEN
987 P_ORGANIZATION_REC.SIC_CODE_TYPE := l_tab(i).param_char;
988 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.PUBLIC_PRIVATE_OWNERSHIP_FLAG' THEN
989 P_ORGANIZATION_REC.PUBLIC_PRIVATE_OWNERSHIP_FLAG := l_tab(i).param_char;
990 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.INTERNAL_FLAG' THEN
991 P_ORGANIZATION_REC.INTERNAL_FLAG := l_tab(i).param_char;
992 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.LOCAL_ACTIVITY_CODE_TYPE' THEN
993 P_ORGANIZATION_REC.LOCAL_ACTIVITY_CODE_TYPE := l_tab(i).param_char;
994 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.LOCAL_ACTIVITY_CODE' THEN
995 P_ORGANIZATION_REC.LOCAL_ACTIVITY_CODE := l_tab(i).param_char;
996 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.EMP_AT_PRIMARY_ADR' THEN
997 P_ORGANIZATION_REC.EMP_AT_PRIMARY_ADR := l_tab(i).param_char;
998 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.EMP_AT_PRIMARY_ADR_TEXT' THEN
999 P_ORGANIZATION_REC.EMP_AT_PRIMARY_ADR_TEXT := l_tab(i).param_char;
1000 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.EMP_AT_PRIMARY_ADR_EST_IND' THEN
1001 P_ORGANIZATION_REC.EMP_AT_PRIMARY_ADR_EST_IND := l_tab(i).param_char;
1002 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.EMP_AT_PRIMARY_ADR_MIN_IND' THEN
1003 P_ORGANIZATION_REC.EMP_AT_PRIMARY_ADR_MIN_IND := l_tab(i).param_char;
1004 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.HIGH_CREDIT' THEN
1005 P_ORGANIZATION_REC.HIGH_CREDIT := l_tab(i).param_num;
1006 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.AVG_HIGH_CREDIT' THEN
1007 P_ORGANIZATION_REC.AVG_HIGH_CREDIT := l_tab(i).param_num;
1008 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.TOTAL_PAYMENTS' THEN
1009 P_ORGANIZATION_REC.TOTAL_PAYMENTS := l_tab(i).param_num;
1010 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.CREDIT_SCORE_CLASS' THEN
1011 P_ORGANIZATION_REC.CREDIT_SCORE_CLASS := l_tab(i).param_num;
1012 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.CREDIT_SCORE_NATL_PERCENTILE' THEN
1013 P_ORGANIZATION_REC.CREDIT_SCORE_NATL_PERCENTILE := l_tab(i).param_num;
1014 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.CREDIT_SCORE_INCD_DEFAULT' THEN
1015 P_ORGANIZATION_REC.CREDIT_SCORE_INCD_DEFAULT := l_tab(i).param_num;
1016 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.CREDIT_SCORE_AGE' THEN
1017 P_ORGANIZATION_REC.CREDIT_SCORE_AGE := l_tab(i).param_num;
1018 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.CREDIT_SCORE_DATE' THEN
1019 P_ORGANIZATION_REC.CREDIT_SCORE_DATE := l_tab(i).param_date;
1020 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.CREDIT_SCORE_COMMENTARY2' THEN
1021 P_ORGANIZATION_REC.CREDIT_SCORE_COMMENTARY2 := l_tab(i).param_char;
1022 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.CREDIT_SCORE_COMMENTARY3' THEN
1023 P_ORGANIZATION_REC.CREDIT_SCORE_COMMENTARY3 := l_tab(i).param_char;
1024 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.CREDIT_SCORE_COMMENTARY4' THEN
1025 P_ORGANIZATION_REC.CREDIT_SCORE_COMMENTARY4 := l_tab(i).param_char;
1026 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.CREDIT_SCORE_COMMENTARY5' THEN
1027 P_ORGANIZATION_REC.CREDIT_SCORE_COMMENTARY5 := l_tab(i).param_char;
1028 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.CREDIT_SCORE_COMMENTARY6' THEN
1029 P_ORGANIZATION_REC.CREDIT_SCORE_COMMENTARY6 := l_tab(i).param_char;
1030 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.CREDIT_SCORE_COMMENTARY7' THEN
1031 P_ORGANIZATION_REC.CREDIT_SCORE_COMMENTARY7 := l_tab(i).param_char;
1032 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.CREDIT_SCORE_COMMENTARY8' THEN
1033 P_ORGANIZATION_REC.CREDIT_SCORE_COMMENTARY8 := l_tab(i).param_char;
1034 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.CREDIT_SCORE_COMMENTARY9' THEN
1035 P_ORGANIZATION_REC.CREDIT_SCORE_COMMENTARY9 := l_tab(i).param_char;
1036 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.CREDIT_SCORE_COMMENTARY10' THEN
1037 P_ORGANIZATION_REC.CREDIT_SCORE_COMMENTARY10 := l_tab(i).param_char;
1038 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.FAILURE_SCORE_CLASS' THEN
1039 P_ORGANIZATION_REC.FAILURE_SCORE_CLASS := l_tab(i).param_num;
1040 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.FAILURE_SCORE_INCD_DEFAULT' THEN
1041 P_ORGANIZATION_REC.FAILURE_SCORE_INCD_DEFAULT := l_tab(i).param_num;
1042 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.FAILURE_SCORE_AGE' THEN
1043 P_ORGANIZATION_REC.FAILURE_SCORE_AGE := l_tab(i).param_num;
1044 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.FAILURE_SCORE_DATE' THEN
1045 P_ORGANIZATION_REC.FAILURE_SCORE_DATE := l_tab(i).param_date;
1046 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.FAILURE_SCORE_COMMENTARY2' THEN
1047 P_ORGANIZATION_REC.FAILURE_SCORE_COMMENTARY2 := l_tab(i).param_char;
1048 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.FAILURE_SCORE_COMMENTARY3' THEN
1049 P_ORGANIZATION_REC.FAILURE_SCORE_COMMENTARY3 := l_tab(i).param_char;
1050 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.FAILURE_SCORE_COMMENTARY4' THEN
1051 P_ORGANIZATION_REC.FAILURE_SCORE_COMMENTARY4 := l_tab(i).param_char;
1052 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.FAILURE_SCORE_COMMENTARY5' THEN
1053 P_ORGANIZATION_REC.FAILURE_SCORE_COMMENTARY5 := l_tab(i).param_char;
1054 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.FAILURE_SCORE_COMMENTARY6' THEN
1055 P_ORGANIZATION_REC.FAILURE_SCORE_COMMENTARY6 := l_tab(i).param_char;
1056 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.FAILURE_SCORE_COMMENTARY7' THEN
1057 P_ORGANIZATION_REC.FAILURE_SCORE_COMMENTARY7 := l_tab(i).param_char;
1058 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.FAILURE_SCORE_COMMENTARY8' THEN
1059 P_ORGANIZATION_REC.FAILURE_SCORE_COMMENTARY8 := l_tab(i).param_char;
1060 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.FAILURE_SCORE_COMMENTARY9' THEN
1061 P_ORGANIZATION_REC.FAILURE_SCORE_COMMENTARY9 := l_tab(i).param_char;
1062 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.FAILURE_SCORE_COMMENTARY10' THEN
1063 P_ORGANIZATION_REC.FAILURE_SCORE_COMMENTARY10 := l_tab(i).param_char;
1064 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.MAXIMUM_CREDIT_RECOMMENDATION' THEN
1065 P_ORGANIZATION_REC.MAXIMUM_CREDIT_RECOMMENDATION := l_tab(i).param_num;
1066 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.MAXIMUM_CREDIT_CURRENCY_CODE' THEN
1067 P_ORGANIZATION_REC.MAXIMUM_CREDIT_CURRENCY_CODE := l_tab(i).param_char;
1068 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.DISPLAYED_DUNS_PARTY_ID' THEN
1069 P_ORGANIZATION_REC.DISPLAYED_DUNS_PARTY_ID := l_tab(i).param_num;
1070 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.CONTENT_SOURCE_TYPE' THEN
1071 P_ORGANIZATION_REC.CONTENT_SOURCE_TYPE := l_tab(i).param_char;
1072 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.CONTENT_SOURCE_NUMBER' THEN
1073 P_ORGANIZATION_REC.CONTENT_SOURCE_NUMBER := l_tab(i).param_char;
1074 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.ATTRIBUTE_CATEGORY' THEN
1075 P_ORGANIZATION_REC.ATTRIBUTE_CATEGORY := l_tab(i).param_char;
1076 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.ATTRIBUTE1' THEN
1077 P_ORGANIZATION_REC.ATTRIBUTE1 := l_tab(i).param_char;
1078 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.ATTRIBUTE2' THEN
1079 P_ORGANIZATION_REC.ATTRIBUTE2 := l_tab(i).param_char;
1080 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.ATTRIBUTE3' THEN
1081 P_ORGANIZATION_REC.ATTRIBUTE3 := l_tab(i).param_char;
1082 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.ATTRIBUTE4' THEN
1083 P_ORGANIZATION_REC.ATTRIBUTE4 := l_tab(i).param_char;
1084 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.ATTRIBUTE5' THEN
1085 P_ORGANIZATION_REC.ATTRIBUTE5 := l_tab(i).param_char;
1086 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.ATTRIBUTE6' THEN
1087 P_ORGANIZATION_REC.ATTRIBUTE6 := l_tab(i).param_char;
1088 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.ATTRIBUTE7' THEN
1089 P_ORGANIZATION_REC.ATTRIBUTE7 := l_tab(i).param_char;
1090 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.ATTRIBUTE8' THEN
1091 P_ORGANIZATION_REC.ATTRIBUTE8 := l_tab(i).param_char;
1092 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.ATTRIBUTE9' THEN
1093 P_ORGANIZATION_REC.ATTRIBUTE9 := l_tab(i).param_char;
1094 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.ATTRIBUTE10' THEN
1095 P_ORGANIZATION_REC.ATTRIBUTE10 := l_tab(i).param_char;
1096 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.ATTRIBUTE11' THEN
1097 P_ORGANIZATION_REC.ATTRIBUTE11 := l_tab(i).param_char;
1098 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.ATTRIBUTE12' THEN
1099 P_ORGANIZATION_REC.ATTRIBUTE12 := l_tab(i).param_char;
1100 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.ATTRIBUTE13' THEN
1101 P_ORGANIZATION_REC.ATTRIBUTE13 := l_tab(i).param_char;
1102 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.ATTRIBUTE14' THEN
1103 P_ORGANIZATION_REC.ATTRIBUTE14 := l_tab(i).param_char;
1104 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.ATTRIBUTE15' THEN
1105 P_ORGANIZATION_REC.ATTRIBUTE15 := l_tab(i).param_char;
1106 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.ATTRIBUTE16' THEN
1107 P_ORGANIZATION_REC.ATTRIBUTE16 := l_tab(i).param_char;
1108 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.ATTRIBUTE17' THEN
1109 P_ORGANIZATION_REC.ATTRIBUTE17 := l_tab(i).param_char;
1110 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.ATTRIBUTE18' THEN
1111 P_ORGANIZATION_REC.ATTRIBUTE18 := l_tab(i).param_char;
1112 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.ATTRIBUTE19' THEN
1113 P_ORGANIZATION_REC.ATTRIBUTE19 := l_tab(i).param_char;
1114 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.ATTRIBUTE20' THEN
1115 P_ORGANIZATION_REC.ATTRIBUTE20 := l_tab(i).param_char;
1116 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.PARTY_REC.PARTY_ID' THEN
1117 P_ORGANIZATION_REC.PARTY_REC.PARTY_ID := l_tab(i).param_num;
1118 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.PARTY_REC.PARTY_NUMBER' THEN
1119 P_ORGANIZATION_REC.PARTY_REC.PARTY_NUMBER := l_tab(i).param_char;
1120 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.PARTY_REC.VALIDATED_FLAG' THEN
1121 P_ORGANIZATION_REC.PARTY_REC.VALIDATED_FLAG := l_tab(i).param_char;
1122 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.PARTY_REC.ORIG_SYSTEM_REFERENCE' THEN
1123 P_ORGANIZATION_REC.PARTY_REC.ORIG_SYSTEM_REFERENCE := l_tab(i).param_char;
1124 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.PARTY_REC.STATUS' THEN
1125 P_ORGANIZATION_REC.PARTY_REC.STATUS := l_tab(i).param_char;
1126 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.PARTY_REC.CATEGORY_CODE' THEN
1127 P_ORGANIZATION_REC.PARTY_REC.CATEGORY_CODE := l_tab(i).param_char;
1128 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.PARTY_REC.SALUTATION' THEN
1129 P_ORGANIZATION_REC.PARTY_REC.SALUTATION := l_tab(i).param_char;
1130 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE_CATEGORY' THEN
1131 P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE_CATEGORY := l_tab(i).param_char;
1132 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE1' THEN
1133 P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE1 := l_tab(i).param_char;
1134 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE2' THEN
1135 P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE2 := l_tab(i).param_char;
1136 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE3' THEN
1137 P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE3 := l_tab(i).param_char;
1138 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE4' THEN
1139 P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE4 := l_tab(i).param_char;
1140 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE5' THEN
1141 P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE5 := l_tab(i).param_char;
1142 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE6' THEN
1143 P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE6 := l_tab(i).param_char;
1144 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE7' THEN
1145 P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE7 := l_tab(i).param_char;
1146 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE8' THEN
1147 P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE8 := l_tab(i).param_char;
1148 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE9' THEN
1149 P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE9 := l_tab(i).param_char;
1150 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE10' THEN
1151 P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE10 := l_tab(i).param_char;
1152 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE11' THEN
1153 P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE11 := l_tab(i).param_char;
1154 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE12' THEN
1155 P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE12 := l_tab(i).param_char;
1156 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE13' THEN
1157 P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE13 := l_tab(i).param_char;
1158 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE14' THEN
1159 P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE14 := l_tab(i).param_char;
1160 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE15' THEN
1161 P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE15 := l_tab(i).param_char;
1162 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE16' THEN
1163 P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE16 := l_tab(i).param_char;
1164 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE17' THEN
1165 P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE17 := l_tab(i).param_char;
1166 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE18' THEN
1167 P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE18 := l_tab(i).param_char;
1168 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE19' THEN
1169 P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE19 := l_tab(i).param_char;
1170 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE20' THEN
1171 P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE20 := l_tab(i).param_char;
1172 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE21' THEN
1173 P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE21 := l_tab(i).param_char;
1174 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE22' THEN
1175 P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE22 := l_tab(i).param_char;
1176 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE23' THEN
1177 P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE23 := l_tab(i).param_char;
1178 ELSIF l_tab(i).param_name = 'P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE24' THEN
1179 P_ORGANIZATION_REC.PARTY_REC.ATTRIBUTE24 := l_tab(i).param_char;
1180 END IF;
1181 END IF;
1182 END LOOP;
1183 END IF;
1184 END organization_rec_fill;
1185
1186 PROCEDURE party_site_rec_fill
1187 ( p_party_site_rec IN OUT NOCOPY hz_party_site_v2pub.party_site_rec_type,
1188 l_tab IN hz_param_pkg.param_tab_t,
1189 p_ind IN VARCHAR2 )
1190 IS
1191 l_count NUMBER;
1192 BEGIN
1193 l_count := l_tab.count;
1194 IF l_count > 0 THEN
1195 FOR i in 1 .. l_count LOOP
1196 IF l_tab(i).param_indicator = p_ind THEN
1197 IF l_tab(i).param_name = 'P_PARTY_SITE_REC.PARTY_SITE_ID' THEN
1198 P_PARTY_SITE_REC.PARTY_SITE_ID := l_tab(i).param_num;
1199 ELSIF l_tab(i).param_name = 'P_PARTY_SITE_REC.PARTY_ID' THEN
1200 P_PARTY_SITE_REC.PARTY_ID := l_tab(i).param_num;
1201 ELSIF l_tab(i).param_name = 'P_PARTY_SITE_REC.LOCATION_ID' THEN
1202 P_PARTY_SITE_REC.LOCATION_ID := l_tab(i).param_num;
1203 ELSIF l_tab(i).param_name = 'P_PARTY_SITE_REC.PARTY_SITE_NUMBER' THEN
1204 P_PARTY_SITE_REC.PARTY_SITE_NUMBER := l_tab(i).param_char;
1205 ELSIF l_tab(i).param_name = 'P_PARTY_SITE_REC.ORIG_SYSTEM_REFERENCE' THEN
1206 P_PARTY_SITE_REC.ORIG_SYSTEM_REFERENCE := l_tab(i).param_char;
1207 ELSIF l_tab(i).param_name = 'P_PARTY_SITE_REC.MAILSTOP' THEN
1208 P_PARTY_SITE_REC.MAILSTOP := l_tab(i).param_char;
1209 ELSIF l_tab(i).param_name = 'P_PARTY_SITE_REC.IDENTIFYING_ADDRESS_FLAG' THEN
1210 P_PARTY_SITE_REC.IDENTIFYING_ADDRESS_FLAG := l_tab(i).param_char;
1211 ELSIF l_tab(i).param_name = 'P_PARTY_SITE_REC.STATUS' THEN
1212 P_PARTY_SITE_REC.STATUS := l_tab(i).param_char;
1213 ELSIF l_tab(i).param_name = 'P_PARTY_SITE_REC.PARTY_SITE_NAME' THEN
1214 P_PARTY_SITE_REC.PARTY_SITE_NAME := l_tab(i).param_char;
1215 ELSIF l_tab(i).param_name = 'P_PARTY_SITE_REC.ATTRIBUTE_CATEGORY' THEN
1216 P_PARTY_SITE_REC.ATTRIBUTE_CATEGORY := l_tab(i).param_char;
1217 ELSIF l_tab(i).param_name = 'P_PARTY_SITE_REC.ATTRIBUTE1' THEN
1218 P_PARTY_SITE_REC.ATTRIBUTE1 := l_tab(i).param_char;
1219 ELSIF l_tab(i).param_name = 'P_PARTY_SITE_REC.ATTRIBUTE2' THEN
1220 P_PARTY_SITE_REC.ATTRIBUTE2 := l_tab(i).param_char;
1221 ELSIF l_tab(i).param_name = 'P_PARTY_SITE_REC.ATTRIBUTE3' THEN
1222 P_PARTY_SITE_REC.ATTRIBUTE3 := l_tab(i).param_char;
1223 ELSIF l_tab(i).param_name = 'P_PARTY_SITE_REC.ATTRIBUTE4' THEN
1224 P_PARTY_SITE_REC.ATTRIBUTE4 := l_tab(i).param_char;
1225 ELSIF l_tab(i).param_name = 'P_PARTY_SITE_REC.ATTRIBUTE5' THEN
1226 P_PARTY_SITE_REC.ATTRIBUTE5 := l_tab(i).param_char;
1227 ELSIF l_tab(i).param_name = 'P_PARTY_SITE_REC.ATTRIBUTE6' THEN
1228 P_PARTY_SITE_REC.ATTRIBUTE6 := l_tab(i).param_char;
1229 ELSIF l_tab(i).param_name = 'P_PARTY_SITE_REC.ATTRIBUTE7' THEN
1230 P_PARTY_SITE_REC.ATTRIBUTE7 := l_tab(i).param_char;
1231 ELSIF l_tab(i).param_name = 'P_PARTY_SITE_REC.ATTRIBUTE8' THEN
1232 P_PARTY_SITE_REC.ATTRIBUTE8 := l_tab(i).param_char;
1233 ELSIF l_tab(i).param_name = 'P_PARTY_SITE_REC.ATTRIBUTE9' THEN
1234 P_PARTY_SITE_REC.ATTRIBUTE9 := l_tab(i).param_char;
1235 ELSIF l_tab(i).param_name = 'P_PARTY_SITE_REC.ATTRIBUTE10' THEN
1236 P_PARTY_SITE_REC.ATTRIBUTE10 := l_tab(i).param_char;
1237 ELSIF l_tab(i).param_name = 'P_PARTY_SITE_REC.ATTRIBUTE11' THEN
1238 P_PARTY_SITE_REC.ATTRIBUTE11 := l_tab(i).param_char;
1239 ELSIF l_tab(i).param_name = 'P_PARTY_SITE_REC.ATTRIBUTE12' THEN
1240 P_PARTY_SITE_REC.ATTRIBUTE12 := l_tab(i).param_char;
1241 ELSIF l_tab(i).param_name = 'P_PARTY_SITE_REC.ATTRIBUTE13' THEN
1242 P_PARTY_SITE_REC.ATTRIBUTE13 := l_tab(i).param_char;
1243 ELSIF l_tab(i).param_name = 'P_PARTY_SITE_REC.ATTRIBUTE14' THEN
1244 P_PARTY_SITE_REC.ATTRIBUTE14 := l_tab(i).param_char;
1245 ELSIF l_tab(i).param_name = 'P_PARTY_SITE_REC.ATTRIBUTE15' THEN
1246 P_PARTY_SITE_REC.ATTRIBUTE15 := l_tab(i).param_char;
1247 ELSIF l_tab(i).param_name = 'P_PARTY_SITE_REC.ATTRIBUTE16' THEN
1248 P_PARTY_SITE_REC.ATTRIBUTE16 := l_tab(i).param_char;
1249 ELSIF l_tab(i).param_name = 'P_PARTY_SITE_REC.ATTRIBUTE17' THEN
1250 P_PARTY_SITE_REC.ATTRIBUTE17 := l_tab(i).param_char;
1251 ELSIF l_tab(i).param_name = 'P_PARTY_SITE_REC.ATTRIBUTE18' THEN
1252 P_PARTY_SITE_REC.ATTRIBUTE18 := l_tab(i).param_char;
1253 ELSIF l_tab(i).param_name = 'P_PARTY_SITE_REC.ATTRIBUTE19' THEN
1254 P_PARTY_SITE_REC.ATTRIBUTE19 := l_tab(i).param_char;
1255 ELSIF l_tab(i).param_name = 'P_PARTY_SITE_REC.ATTRIBUTE20' THEN
1256 P_PARTY_SITE_REC.ATTRIBUTE20 := l_tab(i).param_char;
1257 ELSIF l_tab(i).param_name = 'P_PARTY_SITE_REC.LANGUAGE' THEN
1258 P_PARTY_SITE_REC.LANGUAGE := l_tab(i).param_char;
1259 ELSIF l_tab(i).param_name = 'P_PARTY_SITE_REC.ADDRESSEE' THEN
1260 P_PARTY_SITE_REC.ADDRESSEE := l_tab(i).param_char;
1261 END IF;
1262 END IF;
1263 END LOOP;
1264 END IF;
1265 END party_site_rec_fill;
1266
1267 FUNCTION Is_Same_Value( old VARCHAR2, new VARCHAR2 ) Return BOOLEAN IS
1268 BEGIN
1269 if( old = new ) then
1270 return TRUE;
1271 elsif( old is NULL and new is NULL ) then
1272 return TRUE;
1273 else
1274 return FALSE;
1275 end if;
1276 END Is_Same_Value;
1277
1278
1279 FUNCTION Is_Same_Value( old NUMBER, new NUMBER ) Return BOOLEAN IS
1280 BEGIN
1281 if( old = new ) then
1282 return TRUE;
1283 elsif( old is NULL and new is NULL ) then
1284 return TRUE;
1285 else
1286 return FALSE;
1287 end if;
1288 END Is_Same_Value;
1289 *************************COMMENTS END ***************************************/
1290
1291 -- Start of Comments
1292 --
1293 -- API name : CTeam_Org_Update
1294 -- Type : Private
1295 -- Function : This procedure is used to create a partner record in PV_TAP_BATCH_CHG_PARTNERS
1296 -- table, if any of the Organization related partner qualifier change. The Org.
1297 -- related partner qualifiers are as follows -
1298 -- * Organization Name
1299 -- * Customer Category Code
1300 -- * Number of Employee
1301 -- * Annual Revenue
1302 --
1303 -- Pre-reqs :
1304 --
1305 -- Paramaeters :
1306 -- IN :
1307 -- p_organization_rec IN OUT HZ_PARTY_V2PUB.ORGANIZATION_REC_TYPE,
1308 -- p_old_organization_rec IN HZ_PARTY_V2PUB.ORGANIZATION_REC_TYPE,
1309 -- OUT
1310 -- x_return_status OUT VARCHAR2,
1311 -- x_msg_count OUT NOCOPY NUMBER,
1312 -- x_msg_data OUT NOCOPY VARCHAR2
1313 --
1314 -- Version :
1315 -- Initial version 1.0
1316 --
1317 -- Notes:
1318 --
1319 --
1320 -- End of Comments
1321
1322 /****************** Commented out for bug # 4528865 *****************************
1323 PROCEDURE CTeam_Org_Update (
1324 p_organization_rec IN OUT NOCOPY HZ_PARTY_V2PUB.ORGANIZATION_REC_TYPE,
1325 p_old_organization_rec IN HZ_PARTY_V2PUB.ORGANIZATION_REC_TYPE,
1326 x_return_status OUT NOCOPY VARCHAR2,
1327 x_msg_count OUT NOCOPY NUMBER,
1328 x_msg_data OUT NOCOPY VARCHAR2
1329 )
1330 *********************************************************************************/
1331 PROCEDURE CTeam_Org_Update (
1332 p_party_id IN NUMBER,
1333 x_return_status OUT NOCOPY VARCHAR2,
1334 x_msg_count OUT NOCOPY NUMBER,
1335 x_msg_data OUT NOCOPY VARCHAR2
1336 ) IS
1337
1338 l_partner_id NUMBER;
1339 -- l_chng_partner_exist VARCHAR2(1) := 'N';
1340 l_return_status VARCHAR2(1);
1341 l_msg_count NUMBER;
1342 l_msg_data VARCHAR(2000);
1343 l_processed_flag VARCHAR2(1);
1344 l_object_version NUMBER;
1345
1346 -- l_batch_chg_prtnrs_rec PV_BATCH_CHG_PRTNR_PVT.Batch_Chg_Prtnrs_Rec_Type:= PV_BATCH_CHG_PRTNR_PVT.g_miss_Batch_Chg_Prtnrs_rec;
1347 l_batch_chg_prtnrs_rec PV_BATCH_CHG_PRTNR_PVT.Batch_Chg_Prtnrs_Rec_Type;
1348
1349 -- Cursor l_cust_is_partner_csr.
1350 CURSOR l_cust_is_partner_csr (cv_partner_party_id NUMBER) IS
1351 SELECT partner_id
1352 FROM pv_partner_profiles
1353 WHERE partner_party_id = cv_partner_party_id
1354 AND status = 'A';
1355
1356 -- Cursor l_chng_partner_exist_csr.
1357 CURSOR l_chng_partner_exist_csr(cv_partner_id NUMBER) IS
1358 SELECT processed_flag, object_version_number
1359 FROM pv_tap_batch_chg_partners
1360 WHERE partner_id = cv_partner_id;
1361
1362 BEGIN
1363
1364 -- Initialize API return status to SUCCESS
1365 x_return_status := FND_API.G_RET_STS_SUCCESS;
1366
1367 -- Check if the supplied party_id point to a Partner or a Customer.
1368 -- If it's point to a PARTNER Org, then there should be a record exists in
1369 -- PV_PARTNER_PROFILES table.
1370
1371 OPEN l_cust_is_partner_csr(p_party_id );
1372 FETCH l_cust_is_partner_csr INTO l_partner_id;
1373
1374 IF l_cust_is_partner_csr%FOUND THEN
1375 CLOSE l_cust_is_partner_csr;
1376
1377 -- Check any of the Organization qualifier enabled.
1378 IF ( (PV_TERR_ASSIGN_PUB.chk_prtnr_qflr_enabled(PV_TERR_ASSIGN_PUB.g_partner_name)= 'Y') OR
1379 (PV_TERR_ASSIGN_PUB.chk_prtnr_qflr_enabled(PV_TERR_ASSIGN_PUB.g_cust_catgy_code)= 'Y') OR
1380 (PV_TERR_ASSIGN_PUB.chk_prtnr_qflr_enabled(PV_TERR_ASSIGN_PUB.g_number_of_employee)= 'Y') OR
1381 (PV_TERR_ASSIGN_PUB.chk_prtnr_qflr_enabled(PV_TERR_ASSIGN_PUB.g_Annual_Revenue)= 'Y') ) THEN
1382
1383 OPEN l_chng_partner_exist_csr(l_partner_id);
1384 FETCH l_chng_partner_exist_csr INTO l_processed_flag, l_object_version;
1385 l_batch_chg_prtnrs_rec.partner_id := l_partner_id;
1386 l_batch_chg_prtnrs_rec.processed_flag := 'P';
1387 IF l_chng_partner_exist_csr%NOTFOUND THEN
1388
1389 CLOSE l_chng_partner_exist_csr;
1390
1391 -- Store this partner_id in PV_TAP_BATCH_CHG_PARTNERS table for later processing
1392 -- for channel team assignment.
1393 PV_BATCH_CHG_PRTNR_PVT.Create_Batch_Chg_Partners(
1394 p_api_version_number => 1.0 ,
1395 p_init_msg_list => FND_API.G_FALSE,
1396 p_commit => FND_API.G_FALSE,
1397 p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1398 x_return_status => l_return_status,
1399 x_msg_count => l_msg_count,
1400 x_msg_data => l_msg_data,
1401 p_batch_chg_prtnrs_rec => l_batch_chg_prtnrs_rec,
1402 x_partner_id => l_partner_id );
1403
1404 IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1405 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1406 RAISE FND_API.G_EXC_ERROR;
1407 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1408 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1409 END IF;
1410 END IF;
1411 ELSE
1412 CLOSE l_chng_partner_exist_csr;
1413 IF (l_processed_flag <> 'P') THEN
1414 l_batch_chg_prtnrs_rec.object_version_number := l_object_version;
1415 PV_BATCH_CHG_PRTNR_PVT.Update_Batch_Chg_Partners(
1416 p_api_version_number => 1.0
1417 ,p_init_msg_list => FND_API.G_FALSE
1418 ,p_commit => FND_API.G_FALSE
1419 ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1420 ,x_return_status => l_return_status
1421 ,x_msg_count => l_msg_count
1422 ,x_msg_data => l_msg_data
1423 ,p_batch_chg_prtnrs_rec => l_batch_chg_prtnrs_rec);
1424
1425 IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1426 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1427 RAISE FND_API.G_EXC_ERROR;
1428 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1429 FND_MESSAGE.SET_NAME('PV', 'PV_API_FAILED');
1430 FND_MESSAGE.SET_TOKEN('API_NAME', 'PV_BATCH_CHG_PRTNR_PVT.Update_Batch_Chg_Partners');
1431 FND_MSG_PUB.Add;
1432 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1433 END IF;
1434 END IF;
1435
1436 END IF; --l_processed_flag <> 'P'
1437 END IF; -- l_chng_partner_exist_csr%NOTFOUND
1438 END IF; -- Check any of the Organization qualifier enabled.
1439
1440 ELSE
1441 CLOSE l_cust_is_partner_csr;
1442 END IF; -- l_cust_is_partner_csr%FOUND
1443 EXCEPTION
1444 WHEN FND_API.g_exc_error THEN
1445 ROLLBACK TO Update_Channel_Team_pub;
1446 x_return_status := FND_API.g_ret_sts_error;
1447
1448 FND_MSG_PUB.count_and_get (
1449 p_encoded => FND_API.g_false
1450 ,p_count => x_msg_count
1451 ,p_data => x_msg_data
1452 );
1453
1454 -- Debug Message
1455 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1456 hz_utility_v2pub.debug_return_messages (
1457 x_msg_count, x_msg_data, 'ERROR');
1458 hz_utility_v2pub.debug('Update_Channel_Team (-)');
1459 END IF;
1460
1461 WHEN FND_API.g_exc_unexpected_error THEN
1462 ROLLBACK TO Update_Channel_Team_pub;
1463 x_return_status := FND_API.g_ret_sts_unexp_error ;
1464
1465 FND_MSG_PUB.count_and_get (
1466 p_encoded => FND_API.g_false
1467 ,p_count => x_msg_count
1468 ,p_data => x_msg_data
1469 );
1470 -- Debug Message
1471 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1472 hz_utility_v2pub.debug_return_messages (
1473 x_msg_count, x_msg_data, 'UNEXPECTED ERROR');
1474 hz_utility_v2pub.debug('Update_Channel_Team (-)');
1475 END IF;
1476
1477 WHEN OTHERS THEN
1478 ROLLBACK TO Update_Channel_Team_pub;
1479 x_return_status := FND_API.g_ret_sts_unexp_error ;
1480
1481 FND_MSG_PUB.count_and_get(
1482 p_encoded => FND_API.g_false
1483 ,p_count => x_msg_count
1484 ,p_data => x_msg_data
1485 );
1486
1487 -- Debug Message
1488 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1489 hz_utility_v2pub.debug_return_messages (
1490 x_msg_count, x_msg_data, 'SQL ERROR');
1491 hz_utility_v2pub.debug('Update_Channel_Team (-)');
1492 END IF;
1493 END CTeam_Org_Update;
1494
1495 -- Start of Comments
1496 --
1497 -- API name : CTeam_PartySite_Update
1498 -- Type : Private
1499 -- Function : This procedure is used to create a partner record in PV_TAP_BATCH_CHG_PARTNERS
1500 -- table, if any of the Party Site related partner qualifier change. The Party Site
1501 -- related partner qualifiers is as follows -
1502 -- * Identifying_address_flag
1503 --
1504 -- Pre-reqs :
1505 --
1506 -- Paramaeters :
1507 -- IN :
1508 -- p_party_site_rec IN OUT HZ_PARTY_SITE_V2PUB.PARTY_SITE_REC_TYPE,
1509 -- p_old_party_site_rec IN HZ_PARTY_SITE_V2PUB.PARTY_SITE_REC_TYPE,
1510 -- OUT
1511 -- x_return_status IN OUT VARCHAR2,
1512 -- x_msg_count OUT NOCOPY NUMBER,
1513 -- x_msg_data OUT NOCOPY VARCHAR2
1514 --
1515 -- Version :
1516 -- Initial version 1.0
1517 --
1518 -- Notes:
1519 --
1520 --
1521 -- End of Comments
1522 /****************** Commented out for bug # 4528865 *****************************
1523 PROCEDURE CTeam_PartySite_Update (
1524 p_party_site_rec IN OUT NOCOPY HZ_PARTY_SITE_V2PUB.PARTY_SITE_REC_TYPE,
1525 p_old_party_site_rec IN HZ_PARTY_SITE_V2PUB.PARTY_SITE_REC_TYPE,
1526 x_return_status IN OUT NOCOPY VARCHAR2,
1527 x_msg_count OUT NOCOPY NUMBER,
1528 x_msg_data OUT NOCOPY VARCHAR2
1529 )
1530 *********************************************************************************/
1531 PROCEDURE CTeam_PartySite_Update (
1532 p_party_site_id IN NUMBER,
1533 x_return_status IN OUT NOCOPY VARCHAR2,
1534 x_msg_count OUT NOCOPY NUMBER,
1535 x_msg_data OUT NOCOPY VARCHAR2
1536 ) IS
1537
1538 l_partner_id NUMBER;
1539 l_return_status VARCHAR2(1);
1540 l_msg_count NUMBER;
1541 l_msg_data VARCHAR(2000);
1542 l_processed_flag VARCHAR2(1);
1543 l_object_version NUMBER;
1544
1545 -- l_batch_chg_prtnrs_rec PV_BATCH_CHG_PRTNR_PVT.Batch_Chg_Prtnrs_Rec_Type:= PV_BATCH_CHG_PRTNR_PVT.g_miss_Batch_Chg_Prtnrs_rec;
1546 l_batch_chg_prtnrs_rec PV_BATCH_CHG_PRTNR_PVT.Batch_Chg_Prtnrs_Rec_Type;
1547
1548 -- Cursor l_cust_is_partner_csr.
1549 CURSOR l_cust_is_partner_csr (cv_party_site_id NUMBER) IS
1550 SELECT partner_id
1551 FROM hz_party_sites hzps,
1552 pv_partner_profiles ppp
1553 WHERE hzps.party_site_id = cv_party_site_id
1554 AND hzps.status = 'A'
1555 AND ppp.partner_party_id = hzps.party_id
1556 AND ppp.status = 'A';
1557
1558 -- Cursor l_chng_partner_exist_csr.
1559 CURSOR l_chng_partner_exist_csr(cv_partner_id NUMBER) IS
1560 SELECT processed_flag, object_version_number
1561 FROM pv_tap_batch_chg_partners
1562 WHERE partner_id = cv_partner_id;
1563
1564 BEGIN
1565
1566 -- Standard Start of API savepoint
1567 SAVEPOINT CTeam_PartySite_Update_pub;
1568
1569 -- Initialize API return status to SUCCESS
1570 x_return_status := FND_API.G_RET_STS_SUCCESS;
1571
1572 -- Check if the supplied party_site_id point to a Partner or a Customer.
1573 -- If it's point to a PARTNER Org, then there should be a record exists in
1574 -- PV_PARTNER_PROFILES table.
1575
1576 OPEN l_cust_is_partner_csr(p_party_site_id );
1577 FETCH l_cust_is_partner_csr INTO l_partner_id;
1578
1579 IF l_cust_is_partner_csr%FOUND THEN
1580 CLOSE l_cust_is_partner_csr;
1581
1582 OPEN l_chng_partner_exist_csr(l_partner_id);
1583 FETCH l_chng_partner_exist_csr INTO l_processed_flag, l_object_version;
1584 l_batch_chg_prtnrs_rec.partner_id := l_partner_id;
1585 l_batch_chg_prtnrs_rec.processed_flag := 'P';
1586 IF l_chng_partner_exist_csr%NOTFOUND THEN
1587 CLOSE l_chng_partner_exist_csr;
1588
1589 -- Call Channel_Team_Organization_Update to re-assign the Channel team
1590 PV_BATCH_CHG_PRTNR_PVT.Create_Batch_Chg_Partners(
1591 p_api_version_number => 1.0 ,
1592 p_init_msg_list => FND_API.G_FALSE,
1593 p_commit => FND_API.G_FALSE,
1594 p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1595 x_return_status => l_return_status,
1596 x_msg_count => l_msg_count,
1597 x_msg_data => l_msg_data,
1598 p_batch_chg_prtnrs_rec => l_batch_chg_prtnrs_rec,
1599 x_partner_id => l_partner_id );
1600
1601 IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1602 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1603 RAISE FND_API.G_EXC_ERROR;
1604 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1605 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1606 END IF;
1607 END IF;
1608 ELSE
1609 CLOSE l_chng_partner_exist_csr;
1610 IF (l_processed_flag <> 'P') THEN
1611 l_batch_chg_prtnrs_rec.object_version_number := l_object_version;
1612 PV_BATCH_CHG_PRTNR_PVT.Update_Batch_Chg_Partners(
1613 p_api_version_number => 1.0
1614 ,p_init_msg_list => FND_API.G_FALSE
1615 ,p_commit => FND_API.G_FALSE
1616 ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1617 ,x_return_status => l_return_status
1618 ,x_msg_count => l_msg_count
1619 ,x_msg_data => l_msg_data
1620 ,p_batch_chg_prtnrs_rec => l_batch_chg_prtnrs_rec);
1621
1622 IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1623 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1624 RAISE FND_API.G_EXC_ERROR;
1625 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1626 FND_MESSAGE.SET_NAME('PV', 'PV_API_FAILED');
1627 FND_MESSAGE.SET_TOKEN('API_NAME', 'PV_BATCH_CHG_PRTNR_PVT.Update_Batch_Chg_Partners');
1628 FND_MSG_PUB.Add;
1629 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1630 END IF;
1631 END IF;
1632
1633 END IF; --l_processed_flag <> 'P'
1634 END IF; -- l_chng_partner_exist_csr%NOTFOUND
1635 ELSE
1636 CLOSE l_cust_is_partner_csr;
1637 END IF; -- l_cust_is_partner_csr%FOUND
1638
1639 EXCEPTION
1640 WHEN FND_API.g_exc_error THEN
1641 ROLLBACK TO CTeam_PartySite_Update_pub;
1642 x_return_status := FND_API.g_ret_sts_error;
1643
1644 FND_MSG_PUB.count_and_get (
1645 p_encoded => FND_API.g_false
1646 ,p_count => x_msg_count
1647 ,p_data => x_msg_data
1648 );
1649
1650 -- Debug Message
1651 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1652 hz_utility_v2pub.debug_return_messages (
1653 x_msg_count, x_msg_data, 'ERROR');
1654 hz_utility_v2pub.debug('CTeam_PartySite_Update (-)');
1655 END IF;
1656
1657 WHEN FND_API.g_exc_unexpected_error THEN
1658 ROLLBACK TO CTeam_PartySite_Update_pub;
1659 x_return_status := FND_API.g_ret_sts_unexp_error ;
1660
1661 FND_MSG_PUB.count_and_get (
1662 p_encoded => FND_API.g_false
1663 ,p_count => x_msg_count
1664 ,p_data => x_msg_data
1665 );
1666 -- Debug Message
1667 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1668 hz_utility_v2pub.debug_return_messages (
1669 x_msg_count, x_msg_data, 'UNEXPECTED ERROR');
1670 hz_utility_v2pub.debug('CTeam_PartySite_Update (-)');
1671 END IF;
1672
1673 WHEN OTHERS THEN
1674 ROLLBACK TO Update_Channel_Team_pub;
1675 x_return_status := FND_API.g_ret_sts_unexp_error ;
1676
1677 FND_MSG_PUB.count_and_get(
1678 p_encoded => FND_API.g_false
1679 ,p_count => x_msg_count
1680 ,p_data => x_msg_data
1681 );
1682
1683 -- Debug Message
1684 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1685 hz_utility_v2pub.debug_return_messages (
1686 x_msg_count, x_msg_data, 'SQL ERROR');
1687 hz_utility_v2pub.debug('CTeam_PartySite_Update (-)');
1688 END IF;
1689 END CTeam_PartySite_Update;
1690
1691 -- Start of Comments
1692 --
1693 -- API name : CTeam_Location_Update
1694 -- Type : Private
1695 -- Function : This procedure is used to create a partner record in PV_TAP_BATCH_CHG_PARTNERS
1696 -- table, if any of the Location related partner qualifier change. The location
1697 -- related partner qualifiers are as follows -
1698 -- * City
1699 -- * State
1700 -- * Postal Code
1701 -- * County
1702 -- * Province
1703 -- * Country
1704 --
1705 -- Pre-reqs :
1706 --
1707 -- Paramaeters :
1708 -- IN :
1709 -- p_location_id IN NUMBER,
1710 -- OUT
1711 -- x_return_status IN OUT VARCHAR2,
1712 -- x_msg_count OUT NOCOPY NUMBER,
1713 -- x_msg_data OUT NOCOPY VARCHAR2
1714 --
1715 -- Version :
1716 -- Initial version 1.0
1717 --
1718 -- Notes:
1719 --
1720 --
1721 -- End of Comments
1722 /****************** Commented out for bug # 4528865 *****************************
1723 PROCEDURE CTeam_Location_Update (
1724 p_location_rec IN OUT NOCOPY HZ_LOCATION_V2PUB.LOCATION_REC_TYPE,
1725 p_old_location_rec IN HZ_LOCATION_V2PUB.LOCATION_REC_TYPE,
1726 x_return_status IN OUT NOCOPY VARCHAR2,
1727 x_msg_count OUT NOCOPY NUMBER,
1728 x_msg_data OUT NOCOPY VARCHAR2
1729 *********************************************************************************/
1730 PROCEDURE CTeam_Location_Update (
1731 p_location_id IN NUMBER,
1732 x_return_status IN OUT NOCOPY VARCHAR2,
1733 x_msg_count OUT NOCOPY NUMBER,
1734 x_msg_data OUT NOCOPY VARCHAR2
1735 ) IS
1736
1737 l_partner_id NUMBER;
1738 l_return_status VARCHAR2(1);
1739 l_msg_count NUMBER;
1740 l_msg_data VARCHAR(2000);
1741 l_processed_flag VARCHAR2(1);
1742 l_object_version NUMBER;
1743
1744 --l_batch_chg_prtnrs_rec PV_BATCH_CHG_PRTNR_PVT.Batch_Chg_Prtnrs_Rec_Type:= PV_BATCH_CHG_PRTNR_PVT.g_miss_Batch_Chg_Prtnrs_rec;
1745 l_batch_chg_prtnrs_rec PV_BATCH_CHG_PRTNR_PVT.Batch_Chg_Prtnrs_Rec_Type;
1746
1747 -- Cursor l_cust_is_partner_csr.
1748 CURSOR l_cust_is_partner_csr (cv_location_id NUMBER) IS
1749 SELECT ppp.partner_id
1750 FROM hz_party_sites hps,
1751 pv_partner_profiles ppp
1752 -- Fixed the isse by pointing the LOCATION_ID to partner's party.
1753 -- WHERE ppp.partner_id = hps.party_id
1754 WHERE ppp.partner_party_id = hps.party_id
1755 AND ppp.status = 'A'
1756 AND hps.location_id = cv_location_id
1757 AND hps.identifying_address_flag = 'Y'
1758 AND hps.status = 'A';
1759
1760 -- Cursor l_chng_partner_exist_csr.
1761 CURSOR l_chng_partner_exist_csr(cv_partner_id NUMBER) IS
1762 SELECT processed_flag, object_version_number
1763 FROM pv_tap_batch_chg_partners
1764 WHERE partner_id = cv_partner_id;
1765
1766 BEGIN
1767
1768 -- Initialize API return status to SUCCESS
1769 x_return_status := FND_API.G_RET_STS_SUCCESS;
1770
1771 -- Check if the supplied party_id point to a Partner or a Customer.
1772 -- If it's point to a PARTNER Org, then there should be a record exists in
1773 -- PV_PARTNER_PROFILES table.
1774
1775 OPEN l_cust_is_partner_csr(p_location_id );
1776 FETCH l_cust_is_partner_csr INTO l_partner_id;
1777
1778 IF l_cust_is_partner_csr%FOUND THEN
1779 CLOSE l_cust_is_partner_csr;
1780
1781 -- Check any of the Location qualifier enabled.
1782 IF ( (PV_TERR_ASSIGN_PUB.chk_prtnr_qflr_enabled(PV_TERR_ASSIGN_PUB.g_city)= 'Y') OR
1783 (PV_TERR_ASSIGN_PUB.chk_prtnr_qflr_enabled(PV_TERR_ASSIGN_PUB.g_county)= 'Y') OR
1784 (PV_TERR_ASSIGN_PUB.chk_prtnr_qflr_enabled(PV_TERR_ASSIGN_PUB.g_country)= 'Y') OR
1785 (PV_TERR_ASSIGN_PUB.chk_prtnr_qflr_enabled(PV_TERR_ASSIGN_PUB.g_state)= 'Y') OR
1786 (PV_TERR_ASSIGN_PUB.chk_prtnr_qflr_enabled(PV_TERR_ASSIGN_PUB.g_postal_code)= 'Y') OR
1787 (PV_TERR_ASSIGN_PUB.chk_prtnr_qflr_enabled(PV_TERR_ASSIGN_PUB.g_province)= 'Y') ) THEN
1788
1789 OPEN l_chng_partner_exist_csr(l_partner_id);
1790 FETCH l_chng_partner_exist_csr INTO l_processed_flag, l_object_version;
1791 l_batch_chg_prtnrs_rec.partner_id := l_partner_id;
1792 l_batch_chg_prtnrs_rec.processed_flag := 'P';
1793 IF l_chng_partner_exist_csr%NOTFOUND THEN
1794
1795 CLOSE l_chng_partner_exist_csr;
1796
1797 -- Call Channel_Team_Organization_Update to re-assign the Channel team
1798 PV_BATCH_CHG_PRTNR_PVT.Create_Batch_Chg_Partners(
1799 p_api_version_number => 1.0 ,
1800 p_init_msg_list => FND_API.G_FALSE,
1801 p_commit => FND_API.G_FALSE,
1802 p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1803 x_return_status => l_return_status,
1804 x_msg_count => l_msg_count,
1805 x_msg_data => l_msg_data,
1806 p_batch_chg_prtnrs_rec => l_batch_chg_prtnrs_rec,
1807 x_partner_id => l_partner_id );
1808
1809 IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1810 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1811 RAISE FND_API.G_EXC_ERROR;
1812 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1813 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1814 END IF;
1815 END IF;
1816 ELSE
1817 CLOSE l_chng_partner_exist_csr;
1818 IF (l_processed_flag <> 'P') THEN
1819 l_batch_chg_prtnrs_rec.object_version_number := l_object_version;
1820 PV_BATCH_CHG_PRTNR_PVT.Update_Batch_Chg_Partners(
1821 p_api_version_number => 1.0
1822 ,p_init_msg_list => FND_API.G_FALSE
1823 ,p_commit => FND_API.G_FALSE
1824 ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1825 ,x_return_status => l_return_status
1826 ,x_msg_count => l_msg_count
1827 ,x_msg_data => l_msg_data
1828 ,p_batch_chg_prtnrs_rec => l_batch_chg_prtnrs_rec);
1829
1830 IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1831 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1832 RAISE FND_API.G_EXC_ERROR;
1833 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1834 FND_MESSAGE.SET_NAME('PV', 'PV_API_FAILED');
1835 FND_MESSAGE.SET_TOKEN('API_NAME', 'PV_BATCH_CHG_PRTNR_PVT.Update_Batch_Chg_Partners');
1836 FND_MSG_PUB.Add;
1837 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1838 END IF;
1839 END IF;
1840
1841 END IF; --l_processed_flag <> 'P'
1842 END IF; -- l_chng_partner_exist_csr%NOTFOUND
1843 END IF; -- Check any of the Location related partner qualifier enabled.
1844 ELSE
1845 CLOSE l_cust_is_partner_csr;
1846 END IF; -- l_cust_is_partner_csr%FOUND
1847 EXCEPTION
1848 WHEN FND_API.g_exc_error THEN
1849 ROLLBACK TO Update_Channel_Team_pub;
1850 x_return_status := FND_API.g_ret_sts_error;
1851
1852 FND_MSG_PUB.count_and_get (
1853 p_encoded => FND_API.g_false
1854 ,p_count => x_msg_count
1855 ,p_data => x_msg_data
1856 );
1857
1858 -- Debug Message
1859 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1860 hz_utility_v2pub.debug_return_messages (
1861 x_msg_count, x_msg_data, 'ERROR');
1862 hz_utility_v2pub.debug('CTeam_Location_Update (-)');
1863 END IF;
1864
1865 WHEN FND_API.g_exc_unexpected_error THEN
1866 ROLLBACK TO Update_Channel_Team_pub;
1867 x_return_status := FND_API.g_ret_sts_unexp_error ;
1868
1869 FND_MSG_PUB.count_and_get (
1870 p_encoded => FND_API.g_false
1871 ,p_count => x_msg_count
1872 ,p_data => x_msg_data
1873 );
1874 -- Debug Message
1875 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1876 hz_utility_v2pub.debug_return_messages (
1877 x_msg_count, x_msg_data, 'UNEXPECTED ERROR');
1878 hz_utility_v2pub.debug('CTeam_Location_Update (-)');
1879 END IF;
1880
1881 WHEN OTHERS THEN
1882 ROLLBACK TO Update_Channel_Team_pub;
1883 x_return_status := FND_API.g_ret_sts_unexp_error ;
1884
1885 FND_MSG_PUB.count_and_get(
1886 p_encoded => FND_API.g_false
1887 ,p_count => x_msg_count
1888 ,p_data => x_msg_data
1889 );
1890
1891 -- Debug Message
1892 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1893 hz_utility_v2pub.debug_return_messages (
1894 x_msg_count, x_msg_data, 'SQL ERROR');
1895 hz_utility_v2pub.debug('CTeam_Location_Update (-)');
1896 END IF;
1897 END CTeam_Location_Update;
1898
1899 --
1900 -- API name : CTeam_ContPoint_Update
1901 -- Type : Private
1902 -- Function : This procedure is used to create a partner record in PV_TAP_BATCH_CHG_PARTNERS
1903 -- table, if any of the Contact Point related partner qualifier change. The contact
1904 -- point related partner qualifiers are as follows -
1905 -- * Area code
1906 --
1907 -- Pre-reqs :
1908 --
1909 -- Paramaeters :
1910 -- IN :
1911 -- p_contact_point_id IN NUMBER,
1912 -- OUT
1913 -- x_return_status IN OUT VARCHAR2,
1914 -- x_msg_count OUT NOCOPY NUMBER,
1915 -- x_msg_data OUT NOCOPY VARCHAR2
1916 --
1917 -- Version :
1918 -- Initial version 1.0
1919 --
1920 -- Notes:
1921 --
1922 --
1923 -- End of Comments
1924 /****************** Commented out for bug # 4528865 *****************************
1925 PROCEDURE CTeam_ContPoint_Update (
1926 p_contact_points_rec IN OUT NOCOPY HZ_CONTACT_POINT_V2PUB.CONTACT_POINT_REC_TYPE,
1927 p_old_contact_points_rec IN HZ_CONTACT_POINT_V2PUB.CONTACT_POINT_REC_TYPE,
1928 p_edi_rec IN OUT NOCOPY HZ_CONTACT_POINT_V2PUB.EDI_REC_TYPE,
1929 p_old_edi_rec IN HZ_CONTACT_POINT_V2PUB.EDI_REC_TYPE,
1930 p_email_rec IN OUT NOCOPY HZ_CONTACT_POINT_V2PUB.EMAIL_REC_TYPE,
1931 p_old_email_rec IN HZ_CONTACT_POINT_V2PUB.EMAIL_REC_TYPE,
1932 p_phone_rec IN OUT NOCOPY HZ_CONTACT_POINT_V2PUB.PHONE_REC_TYPE,
1933 p_old_phone_rec IN HZ_CONTACT_POINT_V2PUB.PHONE_REC_TYPE,
1934 p_telex_rec IN OUT NOCOPY HZ_CONTACT_POINT_V2PUB.TELEX_REC_TYPE,
1935 p_old_telex_rec IN HZ_CONTACT_POINT_V2PUB.TELEX_REC_TYPE,
1936 p_web_rec IN OUT NOCOPY HZ_CONTACT_POINT_V2PUB.WEB_REC_TYPE,
1937 p_old_web_rec IN HZ_CONTACT_POINT_V2PUB.WEB_REC_TYPE,
1938 x_return_status IN OUT NOCOPY VARCHAR2,
1939 x_msg_count OUT NOCOPY NUMBER,
1940 x_msg_data OUT NOCOPY VARCHAR2
1941 *********************************************************************************/
1942
1943 PROCEDURE CTeam_ContPoint_Update (
1944 p_contact_point_id IN NUMBER,
1945 x_return_status IN OUT NOCOPY VARCHAR2,
1946 x_msg_count OUT NOCOPY NUMBER,
1947 x_msg_data OUT NOCOPY VARCHAR2
1948 ) IS
1949
1950 l_partner_id NUMBER;
1951 -- l_chng_partner_exist VARCHAR2(1) := 'N';
1952 l_return_status VARCHAR2(1);
1953 l_msg_count NUMBER;
1954 l_msg_data VARCHAR(2000);
1955 l_processed_flag VARCHAR2(1);
1956 l_object_version NUMBER;
1957
1958 -- l_batch_chg_prtnrs_rec PV_BATCH_CHG_PRTNR_PVT.Batch_Chg_Prtnrs_Rec_Type:= PV_BATCH_CHG_PRTNR_PVT.g_miss_Batch_Chg_Prtnrs_rec;
1959 l_batch_chg_prtnrs_rec PV_BATCH_CHG_PRTNR_PVT.Batch_Chg_Prtnrs_Rec_Type;
1960
1961 -- Cursor l_cust_is_partner_csr.
1962 CURSOR l_cust_is_partner_csr (cv_contact_point_id NUMBER) IS
1963 SELECT /*+ index(p) */ partner_id
1964 FROM HZ_CONTACT_POINTS CP,
1965 HZ_PARTIES PARTY,
1966 pv_partner_profiles p
1967 WHERE CP.CONTACT_POINT_ID = cv_contact_Point_id
1968 AND CP.owner_table_id = p.partner_party_id
1969 AND CP.owner_table_name(+) = 'HZ_PARTIES'
1970 AND CP.status(+) = 'A'
1971 AND CP.primary_flag(+) = 'Y'
1972 AND CP.contact_point_type(+) = 'PHONE'
1973 AND CP.owner_table_id(+) = PARTY.party_id
1974 AND PARTY.party_type = 'ORGANIZATION'
1975 AND PARTY.status = 'A'
1976 AND p.status = 'A';
1977
1978
1979 -- Commented for the bug fix # 4141409.
1980 -- SELECT /*+ index(p) */ partner_id
1981 -- FROM pv_partner_profiles p
1982 -- WHERE exists ( SELECT 'Y'
1983 -- FROM HZ_CONTACT_POINTS CP,
1984 -- HZ_PARTIES PARTY
1985 -- WHERE CP.CONTACT_POINT_ID = cv_contact_Point_id
1986 -- AND CP.owner_table_id = p.partner_party_id
1987 -- AND CP.owner_table_name(+) = 'HZ_PARTIES'
1988 -- AND CP.status(+) = 'A'
1989 -- AND CP.primary_flag(+) = 'Y'
1990 -- AND CP.contact_point_type(+) = 'PHONE'
1991 -- AND CP.owner_table_id(+) = PARTY.party_id
1992 -- AND PARTY.party_type = 'ORGANIZATION'
1993 -- AND PARTY.status = 'A')
1994 -- AND status = 'A';
1995
1996 -- Cursor l_chng_partner_exist_csr.
1997 CURSOR l_chng_partner_exist_csr(cv_partner_id NUMBER) IS
1998 SELECT processed_flag, object_version_number
1999 FROM pv_tap_batch_chg_partners
2000 WHERE partner_id = cv_partner_id;
2001
2002 BEGIN
2003
2004 -- Initialize API return status to SUCCESS
2005 x_return_status := FND_API.G_RET_STS_SUCCESS;
2006
2007 -- Check if the supplied party_id point to a Partner or a Customer.
2008 -- If it's point to a PARTNER Org, then there should be a record exists in
2009 -- PV_PARTNER_PROFILES table.
2010
2011 OPEN l_cust_is_partner_csr(p_contact_point_id );
2012 FETCH l_cust_is_partner_csr INTO l_partner_id;
2013 IF l_cust_is_partner_csr%FOUND THEN
2014 CLOSE l_cust_is_partner_csr;
2015
2016 -- Check any of the Contact Point qualifier enabled.
2017 IF ( (PV_TERR_ASSIGN_PUB.chk_prtnr_qflr_enabled(PV_TERR_ASSIGN_PUB.g_area_code )= 'Y') ) THEN
2018
2019 OPEN l_chng_partner_exist_csr(l_partner_id);
2020 FETCH l_chng_partner_exist_csr INTO l_processed_flag, l_object_version;
2021 l_batch_chg_prtnrs_rec.partner_id := l_partner_id;
2022 l_batch_chg_prtnrs_rec.processed_flag := 'P';
2023 IF l_chng_partner_exist_csr%NOTFOUND THEN
2024 CLOSE l_chng_partner_exist_csr;
2025
2026 -- Call Channel_Team_Organization_Update to re-assign the Channel team
2027 PV_BATCH_CHG_PRTNR_PVT.Create_Batch_Chg_Partners(
2028 p_api_version_number => 1.0 ,
2029 p_init_msg_list => FND_API.G_FALSE,
2030 p_commit => FND_API.G_FALSE,
2031 p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2032 x_return_status => l_return_status,
2033 x_msg_count => l_msg_count,
2034 x_msg_data => l_msg_data,
2035 p_batch_chg_prtnrs_rec => l_batch_chg_prtnrs_rec,
2036 x_partner_id => l_partner_id );
2037
2038 IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2039 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2040 RAISE FND_API.G_EXC_ERROR;
2041 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2042 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2043 END IF;
2044 END IF;
2045 ELSE
2046 CLOSE l_chng_partner_exist_csr;
2047
2048 IF (l_processed_flag <> 'P') THEN
2049 l_batch_chg_prtnrs_rec.object_version_number := l_object_version;
2050
2051 PV_BATCH_CHG_PRTNR_PVT.Update_Batch_Chg_Partners(
2052 p_api_version_number => 1.0
2053 ,p_init_msg_list => FND_API.G_FALSE
2054 ,p_commit => FND_API.G_FALSE
2055 ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2056 ,x_return_status => l_return_status
2057 ,x_msg_count => l_msg_count
2058 ,x_msg_data => l_msg_data
2059 ,p_batch_chg_prtnrs_rec => l_batch_chg_prtnrs_rec);
2060
2061 IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2062 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2063 RAISE FND_API.G_EXC_ERROR;
2064 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2065 FND_MESSAGE.SET_NAME('PV', 'PV_API_FAILED');
2066 FND_MESSAGE.SET_TOKEN('API_NAME', 'PV_BATCH_CHG_PRTNR_PVT.Update_Batch_Chg_Partners');
2067 FND_MSG_PUB.Add;
2068 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2069 END IF;
2070 END IF;
2071
2072 END IF; --l_processed_flag <> 'P'
2073 END IF; -- l_chng_partner_exist_csr%NOTFOUND
2074
2075 END IF; -- Check any of the Contact Point related partner qualifier enabled.
2076
2077 ELSE
2078 CLOSE l_cust_is_partner_csr;
2079 END IF; -- l_cust_is_partner_csr%FOUND
2080 EXCEPTION
2081 WHEN FND_API.g_exc_error THEN
2082 ROLLBACK TO Update_Channel_Team_pub;
2083 x_return_status := FND_API.g_ret_sts_error;
2084
2085 FND_MSG_PUB.count_and_get (
2086 p_encoded => FND_API.g_false
2087 ,p_count => x_msg_count
2088 ,p_data => x_msg_data
2089 );
2090
2091 -- Debug Message
2092 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
2093 hz_utility_v2pub.debug_return_messages (
2094 x_msg_count, x_msg_data, 'ERROR');
2095 hz_utility_v2pub.debug('CTeam_ContPoint_Update (-)');
2096 END IF;
2097
2098 WHEN FND_API.g_exc_unexpected_error THEN
2099 ROLLBACK TO Update_Channel_Team_pub;
2100 x_return_status := FND_API.g_ret_sts_unexp_error ;
2101
2102 FND_MSG_PUB.count_and_get (
2103 p_encoded => FND_API.g_false
2104 ,p_count => x_msg_count
2105 ,p_data => x_msg_data
2106 );
2107 -- Debug Message
2108 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
2109 hz_utility_v2pub.debug_return_messages (
2110 x_msg_count, x_msg_data, 'UNEXPECTED ERROR');
2111 hz_utility_v2pub.debug('CTeam_ContPoint_Update (-)');
2112 END IF;
2113
2114 WHEN OTHERS THEN
2115 ROLLBACK TO Update_Channel_Team_pub;
2116 x_return_status := FND_API.g_ret_sts_unexp_error ;
2117
2118 FND_MSG_PUB.count_and_get(
2119 p_encoded => FND_API.g_false
2120 ,p_count => x_msg_count
2121 ,p_data => x_msg_data
2122 );
2123
2124 -- Debug Message
2125 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
2126 hz_utility_v2pub.debug_return_messages (
2127 x_msg_count, x_msg_data, 'SQL ERROR');
2128 hz_utility_v2pub.debug('CTeam_ContPoint_Update (-)');
2129 END IF;
2130 END CTeam_ContPoint_Update;
2131
2132 -- Start of Comments
2133 --
2134 -- API name : organization_update_post
2135 -- Type : Public
2136 -- Function : This function is used as a subscription for Organization
2137 -- update business event attached to following event -
2138 -- - oracle.apps.ar.hz.Organization.update
2139 --
2140 -- Pre-reqs :
2141 --
2142 -- Paramaeters :
2143 -- IN :
2144 -- p_subscription_guid IN raw
2145 -- p_event IN out NOCOPY wf_event_t
2146 -- OUT :
2147 --
2148 -- Version :
2149 -- Initial version 1.0
2150 --
2151 -- Notes: Subscription attach to 'oracle.apps.ar.hz.Organization.update'
2152 -- event.
2153 --
2154 --
2155 -- End of Comments
2156 FUNCTION organization_update_post
2157 ( p_subscription_guid in raw,
2158 p_event in out NOCOPY wf_event_t)
2159 RETURN VARCHAR2
2160 IS
2161 -- Declaration of local variables
2162 l_party_id NUMBER;
2163 l_count NUMBER;
2164 x_return_status VARCHAR2(10) ;
2165 x_msg_count NUMBER;
2166 x_msg_data VARCHAR2(2000);
2167 exc EXCEPTION;
2168
2169 begin
2170
2171
2172 -- Get the value for the party_id
2173 l_party_id := p_event.GetValueForParameter('PARTY_ID');
2174
2175 -- Set the value of the x_return_status
2176 x_return_status := 'S';
2177
2178 /****************** Commented out for bug # 4528865 ********
2179 CTeam_Org_Update(
2180 p_organization_rec => p_organization_rec,
2181 p_old_organization_rec => p_old_organization_rec,
2182 x_return_status => x_return_status,
2183 x_msg_count => x_msg_count,
2184 x_msg_data => x_msg_data );
2185 ***********************************************************/
2186
2187 IF ( l_party_id is not NULL ) THEN
2188 CTeam_Org_Update(
2189 p_party_id => l_party_id,
2190 x_return_status => x_return_status,
2191 x_msg_count => x_msg_count,
2192 x_msg_data => x_msg_data );
2193
2194 IF x_return_status <> 'S' THEN
2195 RAISE EXC;
2196 END IF;
2197 END IF;
2198 -- FND_MSG_PUB.initialize;
2199 RETURN 'SUCCESS';
2200
2201 EXCEPTION
2202 WHEN EXC THEN
2203 WF_CORE.CONTEXT('PV_TAP_BES_PKG', 'Organization_Update_Post', p_event.getEventName(), p_subscription_guid);
2204 WF_EVENT.setErrorInfo(p_event, 'ERROR');
2205 RETURN 'ERROR';
2206 WHEN OTHERS THEN
2207 WF_CORE.CONTEXT('PV_TAP_BES_PKG', 'Organization_Update_Post', p_event.getEventName(), p_subscription_guid);
2208 WF_EVENT.setErrorInfo(p_event, 'ERROR');
2209 RETURN 'ERROR';
2210 END Organization_Update_Post;
2211
2212
2213 -- Start of Comments
2214 --
2215 -- API name : partysite_update_post
2216 -- Type : Public
2217 -- Function : This function is used as a subscription for Party Site
2218 -- update business event attached to following event -
2219 -- - oracle.apps.ar.hz.PartySite.update
2220 --
2221 -- Pre-reqs :
2222 --
2223 -- Paramaeters :
2224 -- IN :
2225 -- p_subscription_guid IN raw
2226 -- p_event IN out NOCOPY wf_event_t
2227 -- OUT :
2228 --
2229 -- Version :
2230 -- Initial version 1.0
2231 --
2232 -- Notes: Subscription attach to 'oracle.apps.ar.hz.PartySite.update'
2233 -- event.
2234 --
2235 --
2236 -- End of Comments
2237 FUNCTION partysite_update_post
2238 ( p_subscription_guid in raw,
2239 p_event in out NOCOPY wf_event_t)
2240 RETURN VARCHAR2
2241 IS
2242
2243 -- Declaration of local variables
2244 l_party_site_id NUMBER;
2245 x_return_status VARCHAR2(10);
2246 x_msg_count NUMBER;
2247 x_msg_data VARCHAR2(2000);
2248 exc EXCEPTION;
2249
2250 begin
2251
2252 -- Get the value for the party_site_id
2253 l_party_site_id := p_event.GetValueForParameter('PARTY_SITE_ID');
2254
2255 -- Set the value of the x_return_status
2256 x_return_status := 'S';
2257
2258 /****************** Commented out for bug # 4528865 ********
2259 CTeam_PartySite_Update (
2260 p_party_site_rec => p_party_site_rec,
2261 p_old_party_site_rec => p_old_party_site_rec,
2262 x_return_status => x_return_status,
2263 x_msg_count => x_msg_count,
2264 x_msg_data => x_msg_data );
2265 ***********************************************************/
2266 IF ( l_party_site_id is NOT NULL ) THEN
2267
2268 CTeam_PartySite_Update (
2269 p_party_site_id => l_party_site_id,
2270 x_return_status => x_return_status,
2271 x_msg_count => x_msg_count,
2272 x_msg_data => x_msg_data );
2273
2274 IF x_return_status <> 'S' THEN
2275 RAISE EXC;
2276 END IF;
2277 END IF;
2278 -- FND_MSG_PUB.initialize;
2279 RETURN 'SUCCESS';
2280
2281 EXCEPTION
2282 WHEN EXC THEN
2283 WF_CORE.CONTEXT('PV_TAP_BES_PKG', 'partysite_Update_Post', p_event.getEventName(), p_subscription_guid);
2284 WF_EVENT.setErrorInfo(p_event, 'ERROR');
2285 RETURN 'ERROR';
2286 WHEN OTHERS THEN
2287 WF_CORE.CONTEXT('PV_TAP_BES_PKG', 'partysite_Update_Post', p_event.getEventName(), p_subscription_guid);
2288 WF_EVENT.setErrorInfo(p_event, 'ERROR');
2289 RETURN 'ERROR';
2290 END partysite_Update_Post;
2291
2292 -- Start of Comments
2293 --
2294 -- API name : location_update_post
2295 -- Type : Public
2296 -- Function : This function is used as a subscription for location
2297 -- update business event attached to following event -
2298 -- - oracle.apps.ar.hz.Location.update
2299 --
2300 -- Pre-reqs :
2301 --
2302 -- Paramaeters :
2303 -- IN :
2304 -- p_subscription_guid IN raw
2305 -- p_event IN out NOCOPY wf_event_t
2306 -- OUT :
2307 --
2308 -- Version :
2309 -- Initial version 1.0
2310 --
2311 -- Notes: Subscription attach to 'oracle.apps.ar.hz.Location.update'
2312 -- event.
2313 --
2314 --
2315 -- End of Comments
2316 FUNCTION location_update_post
2317 ( p_subscription_guid in raw,
2318 p_event in out NOCOPY wf_event_t)
2319 RETURN VARCHAR2
2320 IS
2321
2322
2323 l_location_id NUMBER;
2324 l_count NUMBER;
2325 x_return_status VARCHAR2(10) ;
2326 x_msg_count NUMBER;
2327 x_msg_data VARCHAR2(2000);
2328 exc EXCEPTION;
2329
2330 begin
2331
2332 -- Get the value for the location_id
2333 l_location_id := p_event.GetValueForParameter('LOCATION_ID');
2334
2335 -- Set the value of the x_return_status
2336 x_return_status := 'S';
2337
2338 /****************** Commented out for bug # 4528865 ********
2339 CTeam_Location_Update (
2340 p_location_rec => p_location_rec,
2341 p_old_location_rec => p_old_location_rec,
2342 x_return_status => x_return_status,
2343 x_msg_count => x_msg_count,
2344 x_msg_data => x_msg_data );
2345 ***********************************************************/
2346 CTeam_Location_Update (
2347 p_location_id => l_location_id,
2348 x_return_status => x_return_status,
2349 x_msg_count => x_msg_count,
2350 x_msg_data => x_msg_data );
2351
2352
2353 IF x_return_status <> 'S' THEN
2354 RAISE EXC;
2355 END IF;
2356 -- FND_MSG_PUB.initialize;
2357 RETURN 'SUCCESS';
2358
2359 EXCEPTION
2360 WHEN EXC THEN
2361 WF_CORE.CONTEXT('PV_TAP_BES_PKG', 'location_Update_Post', p_event.getEventName(), p_subscription_guid);
2362 WF_EVENT.setErrorInfo(p_event, 'ERROR');
2363 RETURN 'ERROR';
2364 WHEN OTHERS THEN
2365 WF_CORE.CONTEXT('PV_TAP_BES_PKG', 'location_Update_Post', p_event.getEventName(), p_subscription_guid);
2366 WF_EVENT.setErrorInfo(p_event, 'ERROR');
2367 RETURN 'ERROR';
2368 END location_Update_Post;
2369
2370 --
2371 -- API name : contactpoint_update_post
2372 -- Type : Public
2373 -- Function : This function is used as a subscription for Contact point
2374 -- update business event attached to following event -
2375 -- - oracle.apps.ar.hz.ContactPoint.update
2376 --
2377 -- Pre-reqs :
2378 --
2379 -- Paramaeters :
2380 -- IN :
2381 -- p_subscription_guid IN raw
2382 -- p_event IN out NOCOPY wf_event_t
2383 -- OUT :
2384 --
2385 -- Version :
2386 -- Initial version 1.0
2387 --
2388 -- Notes: Subscription attach to 'oracle.apps.ar.hz.ContactPoint.update'
2389 -- event.
2390 --
2391 --
2392 -- End of Comments
2393 FUNCTION contactpoint_update_post
2394 ( p_subscription_guid in raw,
2395 p_event in out NOCOPY wf_event_t)
2396 RETURN VARCHAR2
2397 IS
2398
2399 l_contact_point_id NUMBER;
2400 l_count NUMBER;
2401 x_return_status VARCHAR2(10) ;
2402 x_msg_count NUMBER;
2403 x_msg_data VARCHAR2(2000);
2404 exc EXCEPTION;
2405
2406 begin
2407
2408 -- Get the value for the contact_point_id
2409 l_contact_point_id := p_event.GetValueForParameter('CONTACT_POINT_ID');
2410
2411 -- Set the value of the x_return_status
2412 x_return_status := 'S';
2413
2414 CTeam_ContPoint_Update (
2415 p_contact_point_id => l_contact_point_id,
2416 x_return_status => x_return_status,
2417 x_msg_count => x_msg_count,
2418 x_msg_data => x_msg_data );
2419
2420 IF x_return_status <> 'S' THEN
2421 RAISE EXC;
2422 END IF;
2423 -- FND_MSG_PUB.initialize;
2424 RETURN 'SUCCESS';
2425
2426 EXCEPTION
2427 WHEN EXC THEN
2428 WF_CORE.CONTEXT('PV_TAP_BES_PKG', 'contactpoint_Update_Post', p_event.getEventName(), p_subscription_guid);
2429 WF_EVENT.setErrorInfo(p_event, 'ERROR');
2430 RETURN 'ERROR';
2431 WHEN OTHERS THEN
2432 WF_CORE.CONTEXT('PV_TAP_BES_PKG', 'contactpoint_Update_Post', p_event.getEventName(), p_subscription_guid);
2433 WF_EVENT.setErrorInfo(p_event, 'ERROR');
2434 RETURN 'ERROR';
2435 END contactpoint_Update_Post;
2436
2437 END PV_TAP_BES_PKG;