[Home] [Help]
PACKAGE BODY: APPS.PV_TAP_BES_PKG
Source
1 PACKAGE BODY PV_TAP_BES_PKG AS
2 /* $Header: pvxtbesb.pls 120.8 2011/01/17 09:20:35 kansari 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 : CResource_Org_Update
1498 -- Type : Private
1499 -- Function : This procedure is used to update the Resource details and Group details when
1500 -- any of the Organization is updated
1501 -- Pre-reqs :
1502 --
1503 -- Paramaeters :
1504 -- IN :
1505 -- p_organization_rec IN OUT HZ_PARTY_V2PUB.ORGANIZATION_REC_TYPE,
1506 -- p_old_organization_rec IN HZ_PARTY_V2PUB.ORGANIZATION_REC_TYPE,
1507 -- OUT
1508 -- x_return_status OUT VARCHAR2,
1509 -- x_msg_count OUT NOCOPY NUMBER,
1510 -- x_msg_data OUT NOCOPY VARCHAR2
1511 --
1512 -- Version :
1513 -- Initial version 1.0
1514 --
1515 -- Notes:
1516 --
1517 --
1518 -- End of Comments
1519 PROCEDURE CResource_Org_Update (
1520 p_party_id IN NUMBER,
1521 x_return_status OUT NOCOPY VARCHAR2,
1522 x_msg_count OUT NOCOPY NUMBER,
1523 x_msg_data OUT NOCOPY VARCHAR2
1524 ) IS
1525
1526 l_partner_id NUMBER;
1527 l_chng_partner_exist VARCHAR2(1) := 'N';
1528 l_return_status VARCHAR2(1);
1529 l_msg_count NUMBER;
1530 l_msg_data VARCHAR(2000);
1531 l_processed_flag VARCHAR2(1);
1532 l_object_version NUMBER;
1533 l_old_group_name_len NUMBER;
1534 l_old_group_name VARCHAR2(2000);
1535
1536
1537 -- Cursor l_cust_is_partner_csr.
1538 CURSOR l_cust_is_partner_csr (cv_partner_party_id NUMBER) IS
1539 SELECT ppp.partner_id,
1540 jrr.resource_id,
1541 jrr.category,
1542 jrr.resource_number,
1543 jrr.object_version_number,
1544 jrr.source_name,
1545 hzp.party_name,
1546 hzpr.party_name party_name_r
1547 FROM pv_partner_profiles ppp,
1548 jtf_rs_resource_extns jrr,
1549 hz_parties hzp,
1550 hz_parties hzpr,
1551 hz_party_relationship_v hzprv
1552 WHERE ppp.partner_party_id = cv_partner_party_id
1553 AND ppp.partner_id = hzp.party_id
1554 AND ppp.status = 'A'
1555 AND jrr.source_id = ppp.partner_id
1556 AND hzpr.party_id = hzprv.subject_id
1557 AND hzprv.party_id = hzp.party_id;
1558
1559 CURSOR l_group_csr(cv_resource_id NUMBER,cv_group_name VARCHAR2) IS
1560 SELECT jrg.group_id,
1561 jrg.group_name,
1562 jrg.group_number,
1563 jrg.object_version_number
1564 from jtf_rs_groups_vl jrg,
1565 jtf_rs_group_members jrm
1566 where jrg.group_name = cv_group_name
1567 and jrm.resource_id = cv_resource_id
1568 and jrm.group_id = jrg.group_id;
1569
1570 l_cust_partner_rec l_cust_is_partner_csr%ROWTYPE;
1571 l_group_rec l_group_csr%ROWTYPE;
1572 l_module VARCHAR2(50) := 'pv.plsql.PV_TAP_BES_PKG.UpdateResource';
1573
1574
1575 BEGIN
1576
1577 -- Initialize API return status to SUCCESS
1578 x_return_status := FND_API.G_RET_STS_SUCCESS;
1579
1580 IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1581 FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,l_module,'Party Id: ' || p_party_id);
1582 END IF;
1583
1584 OPEN l_cust_is_partner_csr(p_party_id);
1585
1586 LOOP
1587
1588 FETCH l_cust_is_partner_csr INTO l_cust_partner_rec;
1589 EXIT WHEN l_cust_is_partner_csr%NOTFOUND;
1590
1591
1592 JTF_RS_RESOURCE_PUB.Update_Resource(
1593 p_api_version => 1.0
1594 ,p_init_msg_list => FND_API.g_true
1595 ,p_resource_id => l_cust_partner_rec.resource_id
1596 ,p_resource_number => l_cust_partner_rec.resource_number
1597 ,p_resource_name => l_cust_partner_rec.PARTY_NAME -- resource_name
1598 ,p_source_name => l_cust_partner_rec.PARTY_NAME -- source_name
1599 -- ,p_source_org_id => l_admin_complete_rec.source_org_id -- source_org_id
1600 -- ,p_source_first_name => l_admin_complete_rec.source_first_name
1601 -- ,p_source_last_name => l_admin_complete_rec.source_last_name
1602 -- ,p_source_middle_name => l_admin_complete_rec.source_middle_name
1603 ,p_object_version_num => l_cust_partner_rec.object_version_number
1604 ,x_return_status => x_return_status
1605 ,x_msg_count => x_msg_count
1606 ,x_msg_data => x_msg_data
1607
1608 );
1609
1610
1611 IF x_return_status = FND_API.g_ret_sts_error THEN
1612 IF(FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1613 FND_LOG.STRING(FND_LOG.LEVEL_ERROR,l_module,x_msg_data);
1614 END IF;
1615 RAISE FND_API.g_exc_error;
1616 ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1617 IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1618 FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,l_module,x_msg_data);
1619 END IF;
1620 RAISE FND_API.g_exc_unexpected_error;
1621 END IF;
1622
1623 l_old_group_name_len := length(l_cust_partner_rec.SOURCE_NAME) - length(SUBSTR(l_cust_partner_rec.PARTY_NAME,length(l_cust_partner_rec.PARTY_NAME_R)+1));
1624 l_old_group_name := SUBSTR(l_cust_partner_rec.SOURCE_NAME, 0,l_old_group_name_len);
1625
1626 OPEN l_group_csr(l_cust_partner_rec.resource_id,SUBSTR(l_old_group_name,1,44)||'('||p_party_id||')');
1627
1628 LOOP
1629
1630 FETCH l_group_csr INTO l_group_rec;
1631 EXIT WHEN l_group_csr%NOTFOUND;
1632
1633 jtf_rs_groups_pub.update_resource_group
1634 (P_API_VERSION => 1.0,
1635 P_GROUP_ID => l_group_rec.group_id,
1636 P_GROUP_NUMBER => l_group_rec.group_number,
1637 P_GROUP_NAME => SUBSTR(l_cust_partner_rec.PARTY_NAME_R,1,44)||'('||p_party_id||')',
1638 P_GROUP_DESC => SUBSTR(l_cust_partner_rec.PARTY_NAME,1,80),
1639 P_OBJECT_VERSION_NUM => l_group_rec.object_version_number,
1640 X_RETURN_STATUS => x_return_status,
1641 X_MSG_COUNT => x_msg_count,
1642 X_MSG_DATA => x_msg_data
1643 );
1644
1645 IF x_return_status = FND_API.g_ret_sts_error THEN
1646 IF(FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1647 FND_LOG.STRING(FND_LOG.LEVEL_ERROR,l_module,x_msg_data);
1648 END IF;
1649 RAISE FND_API.g_exc_error;
1650 ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1651 IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1652 FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,l_module,x_msg_data);
1653 END IF;
1654 RAISE FND_API.g_exc_unexpected_error;
1655 END IF;
1656 END LOOP;
1657
1658 END LOOP;
1659
1660
1661
1662 End CResource_Org_Update;
1663
1664
1665
1666 -- Start of Comments
1667 --
1668 -- API name : CTeam_PartySite_Update
1669 -- Type : Private
1670 -- Function : This procedure is used to create a partner record in PV_TAP_BATCH_CHG_PARTNERS
1671 -- table, if any of the Party Site related partner qualifier change. The Party Site
1672 -- related partner qualifiers is as follows -
1673 -- * Identifying_address_flag
1674 --
1675 -- Pre-reqs :
1676 --
1677 -- Paramaeters :
1678 -- IN :
1679 -- p_party_site_rec IN OUT HZ_PARTY_SITE_V2PUB.PARTY_SITE_REC_TYPE,
1680 -- p_old_party_site_rec IN HZ_PARTY_SITE_V2PUB.PARTY_SITE_REC_TYPE,
1681 -- OUT
1682 -- x_return_status IN OUT VARCHAR2,
1683 -- x_msg_count OUT NOCOPY NUMBER,
1684 -- x_msg_data OUT NOCOPY VARCHAR2
1685 --
1686 -- Version :
1687 -- Initial version 1.0
1688 --
1689 -- Notes:
1690 --
1691 --
1692 -- End of Comments
1693 /****************** Commented out for bug # 4528865 *****************************
1694 PROCEDURE CTeam_PartySite_Update (
1695 p_party_site_rec IN OUT NOCOPY HZ_PARTY_SITE_V2PUB.PARTY_SITE_REC_TYPE,
1696 p_old_party_site_rec IN HZ_PARTY_SITE_V2PUB.PARTY_SITE_REC_TYPE,
1697 x_return_status IN OUT NOCOPY VARCHAR2,
1698 x_msg_count OUT NOCOPY NUMBER,
1699 x_msg_data OUT NOCOPY VARCHAR2
1700 )
1701 *********************************************************************************/
1702 PROCEDURE CTeam_PartySite_Update (
1703 p_party_site_id IN NUMBER,
1704 x_return_status IN OUT NOCOPY VARCHAR2,
1705 x_msg_count OUT NOCOPY NUMBER,
1706 x_msg_data OUT NOCOPY VARCHAR2
1707 ) IS
1708
1709 l_partner_id NUMBER;
1710 l_return_status VARCHAR2(1);
1711 l_msg_count NUMBER;
1712 l_msg_data VARCHAR(2000);
1713 l_processed_flag VARCHAR2(1);
1714 l_object_version NUMBER;
1715
1716 -- 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;
1717 l_batch_chg_prtnrs_rec PV_BATCH_CHG_PRTNR_PVT.Batch_Chg_Prtnrs_Rec_Type;
1718
1719 -- Cursor l_cust_is_partner_csr.
1720 CURSOR l_cust_is_partner_csr (cv_party_site_id NUMBER) IS
1721 SELECT partner_id
1722 FROM hz_party_sites hzps,
1723 pv_partner_profiles ppp
1724 WHERE hzps.party_site_id = cv_party_site_id
1725 AND hzps.status = 'A'
1726 AND ppp.partner_party_id = hzps.party_id
1727 AND ppp.status = 'A';
1728
1729 -- Cursor l_chng_partner_exist_csr.
1730 CURSOR l_chng_partner_exist_csr(cv_partner_id NUMBER) IS
1731 SELECT processed_flag, object_version_number
1732 FROM pv_tap_batch_chg_partners
1733 WHERE partner_id = cv_partner_id;
1734
1735 BEGIN
1736
1737 -- Standard Start of API savepoint
1738 SAVEPOINT CTeam_PartySite_Update_pub;
1739
1740 -- Initialize API return status to SUCCESS
1741 x_return_status := FND_API.G_RET_STS_SUCCESS;
1742
1743 -- Check if the supplied party_site_id point to a Partner or a Customer.
1744 -- If it's point to a PARTNER Org, then there should be a record exists in
1745 -- PV_PARTNER_PROFILES table.
1746
1747 OPEN l_cust_is_partner_csr(p_party_site_id );
1748 FETCH l_cust_is_partner_csr INTO l_partner_id;
1749
1750 IF l_cust_is_partner_csr%FOUND THEN
1751 CLOSE l_cust_is_partner_csr;
1752
1753 OPEN l_chng_partner_exist_csr(l_partner_id);
1754 FETCH l_chng_partner_exist_csr INTO l_processed_flag, l_object_version;
1755 l_batch_chg_prtnrs_rec.partner_id := l_partner_id;
1756 l_batch_chg_prtnrs_rec.processed_flag := 'P';
1757 IF l_chng_partner_exist_csr%NOTFOUND THEN
1758 CLOSE l_chng_partner_exist_csr;
1759
1760 -- Call Channel_Team_Organization_Update to re-assign the Channel team
1761 PV_BATCH_CHG_PRTNR_PVT.Create_Batch_Chg_Partners(
1762 p_api_version_number => 1.0 ,
1763 p_init_msg_list => FND_API.G_FALSE,
1764 p_commit => FND_API.G_FALSE,
1765 p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1766 x_return_status => l_return_status,
1767 x_msg_count => l_msg_count,
1768 x_msg_data => l_msg_data,
1769 p_batch_chg_prtnrs_rec => l_batch_chg_prtnrs_rec,
1770 x_partner_id => l_partner_id );
1771
1772 IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1773 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1774 RAISE FND_API.G_EXC_ERROR;
1775 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1776 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1777 END IF;
1778 END IF;
1779 ELSE
1780 CLOSE l_chng_partner_exist_csr;
1781 IF (l_processed_flag <> 'P') THEN
1782 l_batch_chg_prtnrs_rec.object_version_number := l_object_version;
1783 PV_BATCH_CHG_PRTNR_PVT.Update_Batch_Chg_Partners(
1784 p_api_version_number => 1.0
1785 ,p_init_msg_list => FND_API.G_FALSE
1786 ,p_commit => FND_API.G_FALSE
1787 ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1788 ,x_return_status => l_return_status
1789 ,x_msg_count => l_msg_count
1790 ,x_msg_data => l_msg_data
1791 ,p_batch_chg_prtnrs_rec => l_batch_chg_prtnrs_rec);
1792
1793 IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1794 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1795 RAISE FND_API.G_EXC_ERROR;
1796 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1797 FND_MESSAGE.SET_NAME('PV', 'PV_API_FAILED');
1798 FND_MESSAGE.SET_TOKEN('API_NAME', 'PV_BATCH_CHG_PRTNR_PVT.Update_Batch_Chg_Partners');
1799 FND_MSG_PUB.Add;
1800 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1801 END IF;
1802 END IF;
1803
1804 END IF; --l_processed_flag <> 'P'
1805 END IF; -- l_chng_partner_exist_csr%NOTFOUND
1806 ELSE
1807 CLOSE l_cust_is_partner_csr;
1808 END IF; -- l_cust_is_partner_csr%FOUND
1809
1810 EXCEPTION
1811 WHEN FND_API.g_exc_error THEN
1812 ROLLBACK TO CTeam_PartySite_Update_pub;
1813 x_return_status := FND_API.g_ret_sts_error;
1814
1815 FND_MSG_PUB.count_and_get (
1816 p_encoded => FND_API.g_false
1817 ,p_count => x_msg_count
1818 ,p_data => x_msg_data
1819 );
1820
1821 -- Debug Message
1822 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1823 hz_utility_v2pub.debug_return_messages (
1824 x_msg_count, x_msg_data, 'ERROR');
1825 hz_utility_v2pub.debug('CTeam_PartySite_Update (-)');
1826 END IF;
1827
1828 WHEN FND_API.g_exc_unexpected_error THEN
1829 ROLLBACK TO CTeam_PartySite_Update_pub;
1830 x_return_status := FND_API.g_ret_sts_unexp_error ;
1831
1832 FND_MSG_PUB.count_and_get (
1833 p_encoded => FND_API.g_false
1834 ,p_count => x_msg_count
1835 ,p_data => x_msg_data
1836 );
1837 -- Debug Message
1838 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1839 hz_utility_v2pub.debug_return_messages (
1840 x_msg_count, x_msg_data, 'UNEXPECTED ERROR');
1841 hz_utility_v2pub.debug('CTeam_PartySite_Update (-)');
1842 END IF;
1843
1844 WHEN OTHERS THEN
1845 ROLLBACK TO Update_Channel_Team_pub;
1846 x_return_status := FND_API.g_ret_sts_unexp_error ;
1847
1848 FND_MSG_PUB.count_and_get(
1849 p_encoded => FND_API.g_false
1850 ,p_count => x_msg_count
1851 ,p_data => x_msg_data
1852 );
1853
1854 -- Debug Message
1855 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1856 hz_utility_v2pub.debug_return_messages (
1857 x_msg_count, x_msg_data, 'SQL ERROR');
1858 hz_utility_v2pub.debug('CTeam_PartySite_Update (-)');
1859 END IF;
1860 END CTeam_PartySite_Update;
1861
1862 -- Start of Comments
1863 --
1864 -- API name : CTeam_Location_Update
1865 -- Type : Private
1866 -- Function : This procedure is used to create a partner record in PV_TAP_BATCH_CHG_PARTNERS
1867 -- table, if any of the Location related partner qualifier change. The location
1868 -- related partner qualifiers are as follows -
1869 -- * City
1870 -- * State
1871 -- * Postal Code
1872 -- * County
1873 -- * Province
1874 -- * Country
1875 --
1876 -- Pre-reqs :
1877 --
1878 -- Paramaeters :
1879 -- IN :
1880 -- p_location_id IN NUMBER,
1881 -- OUT
1882 -- x_return_status IN OUT VARCHAR2,
1883 -- x_msg_count OUT NOCOPY NUMBER,
1884 -- x_msg_data OUT NOCOPY VARCHAR2
1885 --
1886 -- Version :
1887 -- Initial version 1.0
1888 --
1889 -- Notes:
1890 --
1891 --
1892 -- End of Comments
1893 /****************** Commented out for bug # 4528865 *****************************
1894 PROCEDURE CTeam_Location_Update (
1895 p_location_rec IN OUT NOCOPY HZ_LOCATION_V2PUB.LOCATION_REC_TYPE,
1896 p_old_location_rec IN HZ_LOCATION_V2PUB.LOCATION_REC_TYPE,
1897 x_return_status IN OUT NOCOPY VARCHAR2,
1898 x_msg_count OUT NOCOPY NUMBER,
1899 x_msg_data OUT NOCOPY VARCHAR2
1900 *********************************************************************************/
1901 PROCEDURE CTeam_Location_Update (
1902 p_location_id IN NUMBER,
1903 x_return_status IN OUT NOCOPY VARCHAR2,
1904 x_msg_count OUT NOCOPY NUMBER,
1905 x_msg_data OUT NOCOPY VARCHAR2
1906 ) IS
1907
1908 l_partner_id NUMBER;
1909 l_return_status VARCHAR2(1);
1910 l_msg_count NUMBER;
1911 l_msg_data VARCHAR(2000);
1912 l_processed_flag VARCHAR2(1);
1913 l_object_version NUMBER;
1914
1915 --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;
1916 l_batch_chg_prtnrs_rec PV_BATCH_CHG_PRTNR_PVT.Batch_Chg_Prtnrs_Rec_Type;
1917
1918 -- Cursor l_cust_is_partner_csr.
1919 CURSOR l_cust_is_partner_csr (cv_location_id NUMBER) IS
1920 SELECT ppp.partner_id
1921 FROM hz_party_sites hps,
1922 pv_partner_profiles ppp
1923 -- Fixed the isse by pointing the LOCATION_ID to partner's party.
1924 -- WHERE ppp.partner_id = hps.party_id
1925 WHERE ppp.partner_party_id = hps.party_id
1926 AND ppp.status = 'A'
1927 AND hps.location_id = cv_location_id
1928 AND hps.identifying_address_flag = 'Y'
1929 AND hps.status = 'A';
1930
1931 -- Cursor l_chng_partner_exist_csr.
1932 CURSOR l_chng_partner_exist_csr(cv_partner_id NUMBER) IS
1933 SELECT processed_flag, object_version_number
1934 FROM pv_tap_batch_chg_partners
1935 WHERE partner_id = cv_partner_id;
1936
1937 BEGIN
1938
1939 -- Initialize API return status to SUCCESS
1940 x_return_status := FND_API.G_RET_STS_SUCCESS;
1941
1942 -- Check if the supplied party_id point to a Partner or a Customer.
1943 -- If it's point to a PARTNER Org, then there should be a record exists in
1944 -- PV_PARTNER_PROFILES table.
1945
1946 OPEN l_cust_is_partner_csr(p_location_id );
1947 FETCH l_cust_is_partner_csr INTO l_partner_id;
1948
1949 IF l_cust_is_partner_csr%FOUND THEN
1950 CLOSE l_cust_is_partner_csr;
1951
1952 -- Check any of the Location qualifier enabled.
1953 IF ( (PV_TERR_ASSIGN_PUB.chk_prtnr_qflr_enabled(PV_TERR_ASSIGN_PUB.g_city)= 'Y') OR
1954 (PV_TERR_ASSIGN_PUB.chk_prtnr_qflr_enabled(PV_TERR_ASSIGN_PUB.g_county)= 'Y') OR
1955 (PV_TERR_ASSIGN_PUB.chk_prtnr_qflr_enabled(PV_TERR_ASSIGN_PUB.g_country)= 'Y') OR
1956 (PV_TERR_ASSIGN_PUB.chk_prtnr_qflr_enabled(PV_TERR_ASSIGN_PUB.g_state)= 'Y') OR
1957 (PV_TERR_ASSIGN_PUB.chk_prtnr_qflr_enabled(PV_TERR_ASSIGN_PUB.g_postal_code)= 'Y') OR
1958 (PV_TERR_ASSIGN_PUB.chk_prtnr_qflr_enabled(PV_TERR_ASSIGN_PUB.g_province)= 'Y') ) THEN
1959
1960 OPEN l_chng_partner_exist_csr(l_partner_id);
1961 FETCH l_chng_partner_exist_csr INTO l_processed_flag, l_object_version;
1962 l_batch_chg_prtnrs_rec.partner_id := l_partner_id;
1963 l_batch_chg_prtnrs_rec.processed_flag := 'P';
1964 IF l_chng_partner_exist_csr%NOTFOUND THEN
1965
1966 CLOSE l_chng_partner_exist_csr;
1967
1968 -- Call Channel_Team_Organization_Update to re-assign the Channel team
1969 PV_BATCH_CHG_PRTNR_PVT.Create_Batch_Chg_Partners(
1970 p_api_version_number => 1.0 ,
1971 p_init_msg_list => FND_API.G_FALSE,
1972 p_commit => FND_API.G_FALSE,
1973 p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1974 x_return_status => l_return_status,
1975 x_msg_count => l_msg_count,
1976 x_msg_data => l_msg_data,
1977 p_batch_chg_prtnrs_rec => l_batch_chg_prtnrs_rec,
1978 x_partner_id => l_partner_id );
1979
1980 IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1981 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1982 RAISE FND_API.G_EXC_ERROR;
1983 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1984 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1985 END IF;
1986 END IF;
1987 ELSE
1988 CLOSE l_chng_partner_exist_csr;
1989 IF (l_processed_flag <> 'P') THEN
1990 l_batch_chg_prtnrs_rec.object_version_number := l_object_version;
1991 PV_BATCH_CHG_PRTNR_PVT.Update_Batch_Chg_Partners(
1992 p_api_version_number => 1.0
1993 ,p_init_msg_list => FND_API.G_FALSE
1994 ,p_commit => FND_API.G_FALSE
1995 ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1996 ,x_return_status => l_return_status
1997 ,x_msg_count => l_msg_count
1998 ,x_msg_data => l_msg_data
1999 ,p_batch_chg_prtnrs_rec => l_batch_chg_prtnrs_rec);
2000
2001 IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2002 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2003 RAISE FND_API.G_EXC_ERROR;
2004 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2005 FND_MESSAGE.SET_NAME('PV', 'PV_API_FAILED');
2006 FND_MESSAGE.SET_TOKEN('API_NAME', 'PV_BATCH_CHG_PRTNR_PVT.Update_Batch_Chg_Partners');
2007 FND_MSG_PUB.Add;
2008 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2009 END IF;
2010 END IF;
2011
2012 END IF; --l_processed_flag <> 'P'
2013 END IF; -- l_chng_partner_exist_csr%NOTFOUND
2014 END IF; -- Check any of the Location related partner qualifier enabled.
2015 ELSE
2016 CLOSE l_cust_is_partner_csr;
2017 END IF; -- l_cust_is_partner_csr%FOUND
2018 EXCEPTION
2019 WHEN FND_API.g_exc_error THEN
2020 ROLLBACK TO Update_Channel_Team_pub;
2021 x_return_status := FND_API.g_ret_sts_error;
2022
2023 FND_MSG_PUB.count_and_get (
2024 p_encoded => FND_API.g_false
2025 ,p_count => x_msg_count
2026 ,p_data => x_msg_data
2027 );
2028
2029 -- Debug Message
2030 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
2031 hz_utility_v2pub.debug_return_messages (
2032 x_msg_count, x_msg_data, 'ERROR');
2033 hz_utility_v2pub.debug('CTeam_Location_Update (-)');
2034 END IF;
2035
2036 WHEN FND_API.g_exc_unexpected_error THEN
2037 ROLLBACK TO Update_Channel_Team_pub;
2038 x_return_status := FND_API.g_ret_sts_unexp_error ;
2039
2040 FND_MSG_PUB.count_and_get (
2041 p_encoded => FND_API.g_false
2042 ,p_count => x_msg_count
2043 ,p_data => x_msg_data
2044 );
2045 -- Debug Message
2046 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
2047 hz_utility_v2pub.debug_return_messages (
2048 x_msg_count, x_msg_data, 'UNEXPECTED ERROR');
2049 hz_utility_v2pub.debug('CTeam_Location_Update (-)');
2050 END IF;
2051
2052 WHEN OTHERS THEN
2053 ROLLBACK TO Update_Channel_Team_pub;
2054 x_return_status := FND_API.g_ret_sts_unexp_error ;
2055
2056 FND_MSG_PUB.count_and_get(
2057 p_encoded => FND_API.g_false
2058 ,p_count => x_msg_count
2059 ,p_data => x_msg_data
2060 );
2061
2062 -- Debug Message
2063 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
2064 hz_utility_v2pub.debug_return_messages (
2065 x_msg_count, x_msg_data, 'SQL ERROR');
2066 hz_utility_v2pub.debug('CTeam_Location_Update (-)');
2067 END IF;
2068 END CTeam_Location_Update;
2069
2070 --
2071 -- API name : CTeam_ContPoint_Update
2072 -- Type : Private
2073 -- Function : This procedure is used to create a partner record in PV_TAP_BATCH_CHG_PARTNERS
2074 -- table, if any of the Contact Point related partner qualifier change. The contact
2075 -- point related partner qualifiers are as follows -
2076 -- * Area code
2077 --
2078 -- Pre-reqs :
2079 --
2080 -- Paramaeters :
2081 -- IN :
2082 -- p_contact_point_id IN NUMBER,
2083 -- OUT
2084 -- x_return_status IN OUT VARCHAR2,
2085 -- x_msg_count OUT NOCOPY NUMBER,
2086 -- x_msg_data OUT NOCOPY VARCHAR2
2087 --
2088 -- Version :
2089 -- Initial version 1.0
2090 --
2091 -- Notes:
2092 --
2093 --
2094 -- End of Comments
2095 /****************** Commented out for bug # 4528865 *****************************
2096 PROCEDURE CTeam_ContPoint_Update (
2097 p_contact_points_rec IN OUT NOCOPY HZ_CONTACT_POINT_V2PUB.CONTACT_POINT_REC_TYPE,
2098 p_old_contact_points_rec IN HZ_CONTACT_POINT_V2PUB.CONTACT_POINT_REC_TYPE,
2099 p_edi_rec IN OUT NOCOPY HZ_CONTACT_POINT_V2PUB.EDI_REC_TYPE,
2100 p_old_edi_rec IN HZ_CONTACT_POINT_V2PUB.EDI_REC_TYPE,
2101 p_email_rec IN OUT NOCOPY HZ_CONTACT_POINT_V2PUB.EMAIL_REC_TYPE,
2102 p_old_email_rec IN HZ_CONTACT_POINT_V2PUB.EMAIL_REC_TYPE,
2103 p_phone_rec IN OUT NOCOPY HZ_CONTACT_POINT_V2PUB.PHONE_REC_TYPE,
2104 p_old_phone_rec IN HZ_CONTACT_POINT_V2PUB.PHONE_REC_TYPE,
2105 p_telex_rec IN OUT NOCOPY HZ_CONTACT_POINT_V2PUB.TELEX_REC_TYPE,
2106 p_old_telex_rec IN HZ_CONTACT_POINT_V2PUB.TELEX_REC_TYPE,
2107 p_web_rec IN OUT NOCOPY HZ_CONTACT_POINT_V2PUB.WEB_REC_TYPE,
2108 p_old_web_rec IN HZ_CONTACT_POINT_V2PUB.WEB_REC_TYPE,
2109 x_return_status IN OUT NOCOPY VARCHAR2,
2110 x_msg_count OUT NOCOPY NUMBER,
2111 x_msg_data OUT NOCOPY VARCHAR2
2112 *********************************************************************************/
2113
2114 PROCEDURE CTeam_ContPoint_Update (
2115 p_contact_point_id IN NUMBER,
2116 x_return_status IN OUT NOCOPY VARCHAR2,
2117 x_msg_count OUT NOCOPY NUMBER,
2118 x_msg_data OUT NOCOPY VARCHAR2
2119 ) IS
2120
2121 l_partner_id NUMBER;
2122 -- l_chng_partner_exist VARCHAR2(1) := 'N';
2123 l_return_status VARCHAR2(1);
2124 l_msg_count NUMBER;
2125 l_msg_data VARCHAR(2000);
2126 l_processed_flag VARCHAR2(1);
2127 l_object_version NUMBER;
2128
2129 -- 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;
2130 l_batch_chg_prtnrs_rec PV_BATCH_CHG_PRTNR_PVT.Batch_Chg_Prtnrs_Rec_Type;
2131
2132 -- Cursor l_cust_is_partner_csr.
2133 CURSOR l_cust_is_partner_csr (cv_contact_point_id NUMBER) IS
2134 SELECT /*+ index(p) */ partner_id
2135 FROM HZ_CONTACT_POINTS CP,
2136 HZ_PARTIES PARTY,
2137 pv_partner_profiles p
2138 WHERE CP.CONTACT_POINT_ID = cv_contact_Point_id
2139 AND CP.owner_table_id = p.partner_party_id
2140 AND CP.owner_table_name(+) = 'HZ_PARTIES'
2141 AND CP.status(+) = 'A'
2142 AND CP.primary_flag(+) = 'Y'
2143 AND CP.contact_point_type(+) = 'PHONE'
2144 AND CP.owner_table_id(+) = PARTY.party_id
2145 AND PARTY.party_type = 'ORGANIZATION'
2146 AND PARTY.status = 'A'
2147 AND p.status = 'A';
2148
2149
2150 -- Commented for the bug fix # 4141409.
2151 -- SELECT /*+ index(p) */ partner_id
2152 -- FROM pv_partner_profiles p
2153 -- WHERE exists ( SELECT 'Y'
2154 -- FROM HZ_CONTACT_POINTS CP,
2155 -- HZ_PARTIES PARTY
2156 -- WHERE CP.CONTACT_POINT_ID = cv_contact_Point_id
2157 -- AND CP.owner_table_id = p.partner_party_id
2158 -- AND CP.owner_table_name(+) = 'HZ_PARTIES'
2159 -- AND CP.status(+) = 'A'
2160 -- AND CP.primary_flag(+) = 'Y'
2161 -- AND CP.contact_point_type(+) = 'PHONE'
2162 -- AND CP.owner_table_id(+) = PARTY.party_id
2163 -- AND PARTY.party_type = 'ORGANIZATION'
2164 -- AND PARTY.status = 'A')
2165 -- AND status = 'A';
2166
2167 -- Cursor l_chng_partner_exist_csr.
2168 CURSOR l_chng_partner_exist_csr(cv_partner_id NUMBER) IS
2169 SELECT processed_flag, object_version_number
2170 FROM pv_tap_batch_chg_partners
2171 WHERE partner_id = cv_partner_id;
2172
2173 BEGIN
2174
2175 -- Initialize API return status to SUCCESS
2176 x_return_status := FND_API.G_RET_STS_SUCCESS;
2177
2178 -- Check if the supplied party_id point to a Partner or a Customer.
2179 -- If it's point to a PARTNER Org, then there should be a record exists in
2180 -- PV_PARTNER_PROFILES table.
2181
2182 OPEN l_cust_is_partner_csr(p_contact_point_id );
2183 FETCH l_cust_is_partner_csr INTO l_partner_id;
2184 IF l_cust_is_partner_csr%FOUND THEN
2185 CLOSE l_cust_is_partner_csr;
2186
2187 -- Check any of the Contact Point qualifier enabled.
2188 IF ( (PV_TERR_ASSIGN_PUB.chk_prtnr_qflr_enabled(PV_TERR_ASSIGN_PUB.g_area_code )= 'Y') ) THEN
2189
2190 OPEN l_chng_partner_exist_csr(l_partner_id);
2191 FETCH l_chng_partner_exist_csr INTO l_processed_flag, l_object_version;
2192 l_batch_chg_prtnrs_rec.partner_id := l_partner_id;
2193 l_batch_chg_prtnrs_rec.processed_flag := 'P';
2194 IF l_chng_partner_exist_csr%NOTFOUND THEN
2195 CLOSE l_chng_partner_exist_csr;
2196
2197 -- Call Channel_Team_Organization_Update to re-assign the Channel team
2198 PV_BATCH_CHG_PRTNR_PVT.Create_Batch_Chg_Partners(
2199 p_api_version_number => 1.0 ,
2200 p_init_msg_list => FND_API.G_FALSE,
2201 p_commit => FND_API.G_FALSE,
2202 p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2203 x_return_status => l_return_status,
2204 x_msg_count => l_msg_count,
2205 x_msg_data => l_msg_data,
2206 p_batch_chg_prtnrs_rec => l_batch_chg_prtnrs_rec,
2207 x_partner_id => l_partner_id );
2208
2209 IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2210 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2211 RAISE FND_API.G_EXC_ERROR;
2212 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2213 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2214 END IF;
2215 END IF;
2216 ELSE
2217 CLOSE l_chng_partner_exist_csr;
2218
2219 IF (l_processed_flag <> 'P') THEN
2220 l_batch_chg_prtnrs_rec.object_version_number := l_object_version;
2221
2222 PV_BATCH_CHG_PRTNR_PVT.Update_Batch_Chg_Partners(
2223 p_api_version_number => 1.0
2224 ,p_init_msg_list => FND_API.G_FALSE
2225 ,p_commit => FND_API.G_FALSE
2226 ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2227 ,x_return_status => l_return_status
2228 ,x_msg_count => l_msg_count
2229 ,x_msg_data => l_msg_data
2230 ,p_batch_chg_prtnrs_rec => l_batch_chg_prtnrs_rec);
2231
2232 IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2233 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2234 RAISE FND_API.G_EXC_ERROR;
2235 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2236 FND_MESSAGE.SET_NAME('PV', 'PV_API_FAILED');
2237 FND_MESSAGE.SET_TOKEN('API_NAME', 'PV_BATCH_CHG_PRTNR_PVT.Update_Batch_Chg_Partners');
2238 FND_MSG_PUB.Add;
2239 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2240 END IF;
2241 END IF;
2242
2243 END IF; --l_processed_flag <> 'P'
2244 END IF; -- l_chng_partner_exist_csr%NOTFOUND
2245
2246 END IF; -- Check any of the Contact Point related partner qualifier enabled.
2247
2248 ELSE
2249 CLOSE l_cust_is_partner_csr;
2250 END IF; -- l_cust_is_partner_csr%FOUND
2251 EXCEPTION
2252 WHEN FND_API.g_exc_error THEN
2253 ROLLBACK TO Update_Channel_Team_pub;
2254 x_return_status := FND_API.g_ret_sts_error;
2255
2256 FND_MSG_PUB.count_and_get (
2257 p_encoded => FND_API.g_false
2258 ,p_count => x_msg_count
2259 ,p_data => x_msg_data
2260 );
2261
2262 -- Debug Message
2263 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
2264 hz_utility_v2pub.debug_return_messages (
2265 x_msg_count, x_msg_data, 'ERROR');
2266 hz_utility_v2pub.debug('CTeam_ContPoint_Update (-)');
2267 END IF;
2268
2269 WHEN FND_API.g_exc_unexpected_error THEN
2270 ROLLBACK TO Update_Channel_Team_pub;
2271 x_return_status := FND_API.g_ret_sts_unexp_error ;
2272
2273 FND_MSG_PUB.count_and_get (
2274 p_encoded => FND_API.g_false
2275 ,p_count => x_msg_count
2276 ,p_data => x_msg_data
2277 );
2278 -- Debug Message
2279 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
2280 hz_utility_v2pub.debug_return_messages (
2281 x_msg_count, x_msg_data, 'UNEXPECTED ERROR');
2282 hz_utility_v2pub.debug('CTeam_ContPoint_Update (-)');
2283 END IF;
2284
2285 WHEN OTHERS THEN
2286 ROLLBACK TO Update_Channel_Team_pub;
2287 x_return_status := FND_API.g_ret_sts_unexp_error ;
2288
2289 FND_MSG_PUB.count_and_get(
2290 p_encoded => FND_API.g_false
2291 ,p_count => x_msg_count
2292 ,p_data => x_msg_data
2293 );
2294
2295 -- Debug Message
2296 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
2297 hz_utility_v2pub.debug_return_messages (
2298 x_msg_count, x_msg_data, 'SQL ERROR');
2299 hz_utility_v2pub.debug('CTeam_ContPoint_Update (-)');
2300 END IF;
2301 END CTeam_ContPoint_Update;
2302
2303 -- Start of Comments
2304 --
2305 -- API name : organization_update_post
2306 -- Type : Public
2307 -- Function : This function is used as a subscription for Organization
2308 -- update business event attached to following event -
2309 -- - oracle.apps.ar.hz.Organization.update
2310 --
2311 -- Pre-reqs :
2312 --
2313 -- Paramaeters :
2314 -- IN :
2315 -- p_subscription_guid IN raw
2316 -- p_event IN out NOCOPY wf_event_t
2317 -- OUT :
2318 --
2319 -- Version :
2320 -- Initial version 1.0
2321 --
2322 -- Notes: Subscription attach to 'oracle.apps.ar.hz.Organization.update'
2323 -- event.
2324 --
2325 --
2326 -- End of Comments
2327 FUNCTION organization_update_post
2328 ( p_subscription_guid in raw,
2329 p_event in out NOCOPY wf_event_t)
2330 RETURN VARCHAR2
2331 IS
2332 -- Declaration of local variables
2333 l_party_id NUMBER;
2334 l_count NUMBER;
2335 x_return_status VARCHAR2(10) ;
2336 x_msg_count NUMBER;
2337 x_msg_data VARCHAR2(2000);
2338 exc EXCEPTION;
2339
2340 begin
2341
2342
2343 -- Get the value for the party_id
2344 l_party_id := p_event.GetValueForParameter('PARTY_ID');
2345
2346 -- Set the value of the x_return_status
2347 x_return_status := 'S';
2348
2349 /****************** Commented out for bug # 4528865 ********
2350 CTeam_Org_Update(
2351 p_organization_rec => p_organization_rec,
2352 p_old_organization_rec => p_old_organization_rec,
2353 x_return_status => x_return_status,
2354 x_msg_count => x_msg_count,
2355 x_msg_data => x_msg_data );
2356 ***********************************************************/
2357
2358 IF ( l_party_id is not NULL ) THEN
2359 CTeam_Org_Update(
2360 p_party_id => l_party_id,
2361 x_return_status => x_return_status,
2362 x_msg_count => x_msg_count,
2363 x_msg_data => x_msg_data );
2364
2365 CResource_Org_Update (
2366 p_party_id => l_party_id,
2367 x_return_status => x_return_status,
2368 x_msg_count => x_msg_count,
2369 x_msg_data => x_msg_data );
2370
2371 IF x_return_status <> 'S' THEN
2372 RAISE EXC;
2373 END IF;
2374 END IF;
2375 -- FND_MSG_PUB.initialize;
2376 RETURN 'SUCCESS';
2377
2378 EXCEPTION
2379 WHEN EXC THEN
2380 WF_CORE.CONTEXT('PV_TAP_BES_PKG', 'Organization_Update_Post', p_event.getEventName(), p_subscription_guid);
2381 WF_EVENT.setErrorInfo(p_event, 'ERROR');
2382 RETURN 'ERROR';
2383 WHEN OTHERS THEN
2384 WF_CORE.CONTEXT('PV_TAP_BES_PKG', 'Organization_Update_Post', p_event.getEventName(), p_subscription_guid);
2385 WF_EVENT.setErrorInfo(p_event, 'ERROR');
2386 RETURN 'ERROR';
2387 END Organization_Update_Post;
2388
2389
2390 -- Start of Comments
2391 --
2392 -- API name : partysite_update_post
2393 -- Type : Public
2394 -- Function : This function is used as a subscription for Party Site
2395 -- update business event attached to following event -
2396 -- - oracle.apps.ar.hz.PartySite.update
2397 --
2398 -- Pre-reqs :
2399 --
2400 -- Paramaeters :
2401 -- IN :
2402 -- p_subscription_guid IN raw
2403 -- p_event IN out NOCOPY wf_event_t
2404 -- OUT :
2405 --
2406 -- Version :
2407 -- Initial version 1.0
2408 --
2409 -- Notes: Subscription attach to 'oracle.apps.ar.hz.PartySite.update'
2410 -- event.
2411 --
2412 --
2413 -- End of Comments
2414 FUNCTION partysite_update_post
2415 ( p_subscription_guid in raw,
2416 p_event in out NOCOPY wf_event_t)
2417 RETURN VARCHAR2
2418 IS
2419
2420 -- Declaration of local variables
2421 l_party_site_id NUMBER;
2422 x_return_status VARCHAR2(10);
2423 x_msg_count NUMBER;
2424 x_msg_data VARCHAR2(2000);
2425 exc EXCEPTION;
2426
2427 begin
2428
2429 -- Get the value for the party_site_id
2430 l_party_site_id := p_event.GetValueForParameter('PARTY_SITE_ID');
2431
2432 -- Set the value of the x_return_status
2433 x_return_status := 'S';
2434
2435 /****************** Commented out for bug # 4528865 ********
2436 CTeam_PartySite_Update (
2437 p_party_site_rec => p_party_site_rec,
2438 p_old_party_site_rec => p_old_party_site_rec,
2439 x_return_status => x_return_status,
2440 x_msg_count => x_msg_count,
2441 x_msg_data => x_msg_data );
2442 ***********************************************************/
2443 IF ( l_party_site_id is NOT NULL ) THEN
2444
2445 CTeam_PartySite_Update (
2446 p_party_site_id => l_party_site_id,
2447 x_return_status => x_return_status,
2448 x_msg_count => x_msg_count,
2449 x_msg_data => x_msg_data );
2450
2451 IF x_return_status <> 'S' THEN
2452 RAISE EXC;
2453 END IF;
2454 END IF;
2455 -- FND_MSG_PUB.initialize;
2456 RETURN 'SUCCESS';
2457
2458 EXCEPTION
2459 WHEN EXC THEN
2460 WF_CORE.CONTEXT('PV_TAP_BES_PKG', 'partysite_Update_Post', p_event.getEventName(), p_subscription_guid);
2461 WF_EVENT.setErrorInfo(p_event, 'ERROR');
2462 RETURN 'ERROR';
2463 WHEN OTHERS THEN
2464 WF_CORE.CONTEXT('PV_TAP_BES_PKG', 'partysite_Update_Post', p_event.getEventName(), p_subscription_guid);
2465 WF_EVENT.setErrorInfo(p_event, 'ERROR');
2466 RETURN 'ERROR';
2467 END partysite_Update_Post;
2468
2469 -- Start of Comments
2470 --
2471 -- API name : location_update_post
2472 -- Type : Public
2473 -- Function : This function is used as a subscription for location
2474 -- update business event attached to following event -
2475 -- - oracle.apps.ar.hz.Location.update
2476 --
2477 -- Pre-reqs :
2478 --
2479 -- Paramaeters :
2480 -- IN :
2481 -- p_subscription_guid IN raw
2482 -- p_event IN out NOCOPY wf_event_t
2483 -- OUT :
2484 --
2485 -- Version :
2486 -- Initial version 1.0
2487 --
2488 -- Notes: Subscription attach to 'oracle.apps.ar.hz.Location.update'
2489 -- event.
2490 --
2491 --
2492 -- End of Comments
2493 FUNCTION location_update_post
2494 ( p_subscription_guid in raw,
2495 p_event in out NOCOPY wf_event_t)
2496 RETURN VARCHAR2
2497 IS
2498
2499
2500 l_location_id NUMBER;
2501 l_count NUMBER;
2502 x_return_status VARCHAR2(10) ;
2503 x_msg_count NUMBER;
2504 x_msg_data VARCHAR2(2000);
2505 exc EXCEPTION;
2506
2507 begin
2508
2509 -- Get the value for the location_id
2510 l_location_id := p_event.GetValueForParameter('LOCATION_ID');
2511
2512 -- Set the value of the x_return_status
2513 x_return_status := 'S';
2514
2515 /****************** Commented out for bug # 4528865 ********
2516 CTeam_Location_Update (
2517 p_location_rec => p_location_rec,
2518 p_old_location_rec => p_old_location_rec,
2519 x_return_status => x_return_status,
2520 x_msg_count => x_msg_count,
2521 x_msg_data => x_msg_data );
2522 ***********************************************************/
2523 CTeam_Location_Update (
2524 p_location_id => l_location_id,
2525 x_return_status => x_return_status,
2526 x_msg_count => x_msg_count,
2527 x_msg_data => x_msg_data );
2528
2529
2530 IF x_return_status <> 'S' THEN
2531 RAISE EXC;
2532 END IF;
2533 -- FND_MSG_PUB.initialize;
2534 RETURN 'SUCCESS';
2535
2536 EXCEPTION
2537 WHEN EXC THEN
2538 WF_CORE.CONTEXT('PV_TAP_BES_PKG', 'location_Update_Post', p_event.getEventName(), p_subscription_guid);
2539 WF_EVENT.setErrorInfo(p_event, 'ERROR');
2540 RETURN 'ERROR';
2541 WHEN OTHERS THEN
2542 WF_CORE.CONTEXT('PV_TAP_BES_PKG', 'location_Update_Post', p_event.getEventName(), p_subscription_guid);
2543 WF_EVENT.setErrorInfo(p_event, 'ERROR');
2544 RETURN 'ERROR';
2545 END location_Update_Post;
2546
2547 --
2548 -- API name : contactpoint_update_post
2549 -- Type : Public
2550 -- Function : This function is used as a subscription for Contact point
2551 -- update business event attached to following event -
2552 -- - oracle.apps.ar.hz.ContactPoint.update
2553 --
2554 -- Pre-reqs :
2555 --
2556 -- Paramaeters :
2557 -- IN :
2558 -- p_subscription_guid IN raw
2559 -- p_event IN out NOCOPY wf_event_t
2560 -- OUT :
2561 --
2562 -- Version :
2563 -- Initial version 1.0
2564 --
2565 -- Notes: Subscription attach to 'oracle.apps.ar.hz.ContactPoint.update'
2566 -- event.
2567 --
2568 --
2569 -- End of Comments
2570 FUNCTION contactpoint_update_post
2571 ( p_subscription_guid in raw,
2572 p_event in out NOCOPY wf_event_t)
2573 RETURN VARCHAR2
2574 IS
2575
2576 l_contact_point_id NUMBER;
2577 l_count NUMBER;
2578 x_return_status VARCHAR2(10) ;
2579 x_msg_count NUMBER;
2580 x_msg_data VARCHAR2(2000);
2581 exc EXCEPTION;
2582
2583 begin
2584
2585 -- Get the value for the contact_point_id
2586 l_contact_point_id := p_event.GetValueForParameter('CONTACT_POINT_ID');
2587
2588 -- Set the value of the x_return_status
2589 x_return_status := 'S';
2590
2591 CTeam_ContPoint_Update (
2592 p_contact_point_id => l_contact_point_id,
2593 x_return_status => x_return_status,
2594 x_msg_count => x_msg_count,
2595 x_msg_data => x_msg_data );
2596
2597 IF x_return_status <> 'S' THEN
2598 RAISE EXC;
2599 END IF;
2600 -- FND_MSG_PUB.initialize;
2601 RETURN 'SUCCESS';
2602
2603 EXCEPTION
2604 WHEN EXC THEN
2605 WF_CORE.CONTEXT('PV_TAP_BES_PKG', 'contactpoint_Update_Post', p_event.getEventName(), p_subscription_guid);
2606 WF_EVENT.setErrorInfo(p_event, 'ERROR');
2607 RETURN 'ERROR';
2608 WHEN OTHERS THEN
2609 WF_CORE.CONTEXT('PV_TAP_BES_PKG', 'contactpoint_Update_Post', p_event.getEventName(), p_subscription_guid);
2610 WF_EVENT.setErrorInfo(p_event, 'ERROR');
2611 RETURN 'ERROR';
2612 END contactpoint_Update_Post;
2613
2614 END PV_TAP_BES_PKG;