99: --------------------------------------------------------------------
100: l_debug_info := 'In debug mode, log we have entered this procedure';
101: --------------------------------------------------------------------
102: IF (PG_DEBUG = 'Y') THEN
103: arp_standard.debug(G_PKG_NAME || l_procedure_name || '+');
104: END IF;
105:
106: --------------------------------------------------------------------------
107: l_debug_info := 'Calling OpenCustAcctCur';
106: --------------------------------------------------------------------------
107: l_debug_info := 'Calling OpenCustAcctCur';
108: ---------------------------------------------------------------------------
109: IF (PG_DEBUG = 'Y') THEN
110: arp_standard.debug(l_debug_info);
111: END IF;
112: OpenCustAcctCur(p_customer_id => p_customer_id,
113: p_cust_acct_cur => l_cust_acct_cur);
114:
115: ------------------------------------------------------------------------
116: l_debug_info := 'Fetching the results of the cursor';
117: ------------------------------------------------------------------------
118: IF (PG_DEBUG = 'Y') THEN
119: arp_standard.debug(l_debug_info);
120: END IF;
121: ------------------------------------------------------------------------
122: LOOP
123: FETCH l_cust_acct_cur INTO l_cust_acct_id,
132: ----------------------------------------------------------------
133: l_debug_info := 'Exact match on customer_id provided';
134: ----------------------------------------------------------------
135: IF (PG_DEBUG = 'Y') THEN
136: arp_standard.debug(l_debug_info);
137: END IF;
138:
139: x_result_code := G_EXACT_MATCH;
140:
148: ----------------------------------------------------------------------
149: l_debug_info := 'Non-unique match on customer_id provided';
150: ----------------------------------------------------------------------
151: IF (PG_DEBUG = 'Y') THEN
152: arp_standard.debug(l_debug_info);
153: END IF;
154: x_result_code := G_NOT_UNIQUE;
155:
156: ELSE
157: -------------------------------------------------------------------------
158: l_debug_info := 'No record found based on customer_id provided';
159: -------------------------------------------------------------------------
160: IF (PG_DEBUG = 'Y') THEN
161: arp_standard.debug(l_debug_info);
162: END IF;
163: x_result_code := G_NO_ROWS;
164:
165: END IF;
167: ------------------------------------------------------------------------
168: l_debug_info := 'Close Cust Account Cursor';
169: ------------------------------------------------------------------------
170: IF (PG_DEBUG = 'Y') THEN
171: arp_standard.debug(l_debug_info);
172: END IF;
173: CLOSE l_cust_acct_cur;
174:
175: --------------------------------------------------------------------
175: --------------------------------------------------------------------
176: l_debug_info := 'In debug mode, log we have exited this procedure';
177: --------------------------------------------------------------------
178: IF (PG_DEBUG = 'Y') THEN
179: arp_standard.debug(G_PKG_NAME || l_procedure_name || '-');
180: END IF;
181:
182: EXCEPTION
183: WHEN OTHERS THEN
182: EXCEPTION
183: WHEN OTHERS THEN
184: IF (SQLCODE <> -20001) THEN
185: IF (PG_DEBUG = 'Y') THEN
186: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
187: arp_standard.debug('Debug Info: ' || l_debug_info);
188: arp_standard.debug(SQLERRM);
189: END IF;
190: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
183: WHEN OTHERS THEN
184: IF (SQLCODE <> -20001) THEN
185: IF (PG_DEBUG = 'Y') THEN
186: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
187: arp_standard.debug('Debug Info: ' || l_debug_info);
188: arp_standard.debug(SQLERRM);
189: END IF;
190: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
191: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
184: IF (SQLCODE <> -20001) THEN
185: IF (PG_DEBUG = 'Y') THEN
186: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
187: arp_standard.debug('Debug Info: ' || l_debug_info);
188: arp_standard.debug(SQLERRM);
189: END IF;
190: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
191: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
192: FND_MESSAGE.SET_TOKEN('PROCEDURE', G_PKG_NAME || l_procedure_name);
247: --------------------------------------------------------------------
248: l_debug_info := 'In debug mode, log we have entered this procedure';
249: --------------------------------------------------------------------
250: IF (PG_DEBUG = 'Y') THEN
251: arp_standard.debug(G_PKG_NAME || l_procedure_name || '+');
252: END IF;
253:
254: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
255: -----------------------------------------------------------------------
369: ----------------------------------------------------------------------------
370: l_debug_info := 'In debug mode, log that we have exited this procedure';
371: ----------------------------------------------------------------------------
372: IF (PG_DEBUG = 'Y') THEN
373: arp_standard.debug(G_PKG_NAME || l_procedure_name || '-');
374: END IF;
375:
376: EXCEPTION
377: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
381: WHEN OTHERS THEN
382: x_return_status := FND_API.G_RET_STS_ERROR;
383: IF (SQLCODE <> -20001) THEN
384: IF (PG_DEBUG = 'Y') THEN
385: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
386: arp_standard.debug('Debug Info: ' || l_debug_info);
387: arp_standard.debug(SQLERRM);
388: END IF;
389: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
382: x_return_status := FND_API.G_RET_STS_ERROR;
383: IF (SQLCODE <> -20001) THEN
384: IF (PG_DEBUG = 'Y') THEN
385: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
386: arp_standard.debug('Debug Info: ' || l_debug_info);
387: arp_standard.debug(SQLERRM);
388: END IF;
389: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
390: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
383: IF (SQLCODE <> -20001) THEN
384: IF (PG_DEBUG = 'Y') THEN
385: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
386: arp_standard.debug('Debug Info: ' || l_debug_info);
387: arp_standard.debug(SQLERRM);
388: END IF;
389: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
390: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
391: FND_MESSAGE.SET_TOKEN('PROCEDURE', G_PKG_NAME || l_procedure_name);
420: --------------------------------------------------------------------
421: l_debug_info := 'In debug mode, log we have entered this procedure';
422: --------------------------------------------------------------------
423: IF (PG_DEBUG = 'Y') THEN
424: arp_standard.debug(G_PKG_NAME || l_procedure_name || '+');
425: END IF;
426:
427: --------------------------------------------------------------------
428: l_debug_info := 'Open p_cust_acct_cur';
440: --------------------------------------------------------------------
441: l_debug_info := 'In debug mode, log we have exited this procedure';
442: --------------------------------------------------------------------
443: IF (PG_DEBUG = 'Y') THEN
444: arp_standard.debug(G_PKG_NAME || l_procedure_name || '-');
445: END IF;
446:
447: EXCEPTION
448: WHEN OTHERS THEN
447: EXCEPTION
448: WHEN OTHERS THEN
449: IF (SQLCODE <> -20001) THEN
450: IF (PG_DEBUG = 'Y') THEN
451: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
452: arp_standard.debug('Debug Info: ' || l_debug_info);
453: arp_standard.debug(SQLERRM);
454: END IF;
455: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
448: WHEN OTHERS THEN
449: IF (SQLCODE <> -20001) THEN
450: IF (PG_DEBUG = 'Y') THEN
451: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
452: arp_standard.debug('Debug Info: ' || l_debug_info);
453: arp_standard.debug(SQLERRM);
454: END IF;
455: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
456: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
449: IF (SQLCODE <> -20001) THEN
450: IF (PG_DEBUG = 'Y') THEN
451: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
452: arp_standard.debug('Debug Info: ' || l_debug_info);
453: arp_standard.debug(SQLERRM);
454: END IF;
455: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
456: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
457: FND_MESSAGE.SET_TOKEN('PROCEDURE', G_PKG_NAME || l_procedure_name);
491: EXCEPTION
492: WHEN OTHERS THEN
493: IF (SQLCODE <> -20001) THEN
494: IF (PG_DEBUG = 'Y') THEN
495: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
496: arp_standard.debug('Debug Info: ' || l_debug_info);
497: arp_standard.debug(SQLERRM);
498: END IF;
499: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
492: WHEN OTHERS THEN
493: IF (SQLCODE <> -20001) THEN
494: IF (PG_DEBUG = 'Y') THEN
495: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
496: arp_standard.debug('Debug Info: ' || l_debug_info);
497: arp_standard.debug(SQLERRM);
498: END IF;
499: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
500: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
493: IF (SQLCODE <> -20001) THEN
494: IF (PG_DEBUG = 'Y') THEN
495: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
496: arp_standard.debug('Debug Info: ' || l_debug_info);
497: arp_standard.debug(SQLERRM);
498: END IF;
499: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
500: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
501: FND_MESSAGE.SET_TOKEN('PROCEDURE', G_PKG_NAME || l_procedure_name);
536: ----------------------------------------------------------------------------
537: l_debug_info := 'In debug mode, log we have entered this procedure';
538: ----------------------------------------------------------------------------
539: IF (PG_DEBUG = 'Y') THEN
540: arp_standard.debug(G_PKG_NAME || l_procedure_name || '+');
541: END IF;
542:
543: ----------------------------------------------------------------------------
544: l_debug_info := 'Insert Row, reg_id = ' || to_char(p_registration_id) || ',ip_addr= ' ||
545: p_client_ip_address || 'customer_id = ' || to_char(p_customer_id) || ',customer_site_id = ' ||
546: to_char(p_customer_site_use_id);
547: ----------------------------------------------------------------------------
548: IF (PG_DEBUG = 'Y') THEN
549: arp_standard.debug(l_debug_info);
550: END IF;
551:
552: --If customer site id is -1, pass null to ARI_SELF_REG_CONFIG
553: IF (p_customer_site_use_id <> -1) THEN
585:
586: COMMIT;
587:
588: IF (PG_DEBUG = 'Y') THEN
589: arp_standard.debug('after insert row');
590: END IF;
591: ----------------------------------------------------------------------------
592: l_debug_info := 'In debug mode, log that we have exited this procedure';
593: ----------------------------------------------------------------------------
591: ----------------------------------------------------------------------------
592: l_debug_info := 'In debug mode, log that we have exited this procedure';
593: ----------------------------------------------------------------------------
594: IF (PG_DEBUG = 'Y') THEN
595: arp_standard.debug(G_PKG_NAME || l_procedure_name || '-');
596: END IF;
597:
598: EXCEPTION
599: WHEN OTHERS THEN
598: EXCEPTION
599: WHEN OTHERS THEN
600: IF (SQLCODE <> -20001) THEN
601: IF (PG_DEBUG = 'Y') THEN
602: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
603: arp_standard.debug('Debug Info: ' || l_debug_info);
604: arp_standard.debug(SQLERRM);
605: END IF;
606: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
599: WHEN OTHERS THEN
600: IF (SQLCODE <> -20001) THEN
601: IF (PG_DEBUG = 'Y') THEN
602: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
603: arp_standard.debug('Debug Info: ' || l_debug_info);
604: arp_standard.debug(SQLERRM);
605: END IF;
606: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
607: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
600: IF (SQLCODE <> -20001) THEN
601: IF (PG_DEBUG = 'Y') THEN
602: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
603: arp_standard.debug('Debug Info: ' || l_debug_info);
604: arp_standard.debug(SQLERRM);
605: END IF;
606: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
607: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
608: FND_MESSAGE.SET_TOKEN('PROCEDURE', G_PKG_NAME || l_procedure_name);
637: ----------------------------------------------------------------------------------------
638: l_debug_info := 'Delete all records in Registration GT';
639: -----------------------------------------------------------------------------------------
640: IF (PG_DEBUG = 'Y') THEN
641: arp_standard.debug(l_debug_info);
642: END IF;
643:
644: DELETE FROM ARI_REG_VERIFICATIONS_GT;
645:
648: ----------------------------------------------------------------------------------------
649: l_debug_info := 'All records in Registration GT deleted';
650: -----------------------------------------------------------------------------------------
651: IF (PG_DEBUG = 'Y') THEN
652: arp_standard.debug(l_debug_info);
653: END IF;
654:
655: EXCEPTION
656: WHEN OTHERS THEN
654:
655: EXCEPTION
656: WHEN OTHERS THEN
657: IF (PG_DEBUG = 'Y') THEN
658: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
659: arp_standard.debug('ERROR =>'|| SQLERRM);
660: END IF;
661:
662: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
655: EXCEPTION
656: WHEN OTHERS THEN
657: IF (PG_DEBUG = 'Y') THEN
658: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
659: arp_standard.debug('ERROR =>'|| SQLERRM);
660: END IF;
661:
662: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
663: FND_MESSAGE.SET_TOKEN('PROCEDURE', G_PKG_NAME || l_procedure_name);
696: ----------------------------------------------------------------------------
697: l_debug_info := 'In debug mode, log we have entered this procedure';
698: ----------------------------------------------------------------------------
699: IF (PG_DEBUG = 'Y') THEN
700: arp_standard.debug(G_PKG_NAME || l_procedure_name || '+');
701: END IF;
702: ----------------------------------------------------------------------------
703: l_debug_info := 'Insert Row,ip_addr= ' || p_client_ip_address || 'customer_id = ' || to_char(p_customer_id);
704: ----------------------------------------------------------------------------
702: ----------------------------------------------------------------------------
703: l_debug_info := 'Insert Row,ip_addr= ' || p_client_ip_address || 'customer_id = ' || to_char(p_customer_id);
704: ----------------------------------------------------------------------------
705: IF (PG_DEBUG = 'Y') THEN
706: arp_standard.debug(l_debug_info);
707: END IF;
708:
709: ARI_SELF_REG_CONFIG.validate_cust_detail_access(p_customer_id => p_customer_id,
710: x_verify_access => l_verify_access,
736:
737: COMMIT;
738:
739: IF (PG_DEBUG = 'Y') THEN
740: arp_standard.debug('after insert row');
741: END IF;
742: ----------------------------------------------------------------------------
743: l_debug_info := 'In debug mode, log that we have exited this procedure';
744: ----------------------------------------------------------------------------
742: ----------------------------------------------------------------------------
743: l_debug_info := 'In debug mode, log that we have exited this procedure';
744: ----------------------------------------------------------------------------
745: IF (PG_DEBUG = 'Y') THEN
746: arp_standard.debug(G_PKG_NAME || l_procedure_name || '-');
747: END IF;
748:
749: EXCEPTION
750: WHEN OTHERS THEN
749: EXCEPTION
750: WHEN OTHERS THEN
751: IF (SQLCODE <> -20001) THEN
752: IF (PG_DEBUG = 'Y') THEN
753: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
754: arp_standard.debug('Debug Info: ' || l_debug_info);
755: arp_standard.debug(SQLERRM);
756: END IF;
757: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
750: WHEN OTHERS THEN
751: IF (SQLCODE <> -20001) THEN
752: IF (PG_DEBUG = 'Y') THEN
753: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
754: arp_standard.debug('Debug Info: ' || l_debug_info);
755: arp_standard.debug(SQLERRM);
756: END IF;
757: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
758: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
751: IF (SQLCODE <> -20001) THEN
752: IF (PG_DEBUG = 'Y') THEN
753: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
754: arp_standard.debug('Debug Info: ' || l_debug_info);
755: arp_standard.debug(SQLERRM);
756: END IF;
757: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
758: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
759: FND_MESSAGE.SET_TOKEN('PROCEDURE', G_PKG_NAME || l_procedure_name);
852: ----------------------------------------------------------------------------
853: l_debug_info := 'In debug mode, log we have entered this procedure';
854: ----------------------------------------------------------------------------
855: IF (PG_DEBUG = 'Y') THEN
856: arp_standard.debug(G_PKG_NAME || l_procedure_name || '+');
857: END IF;
858: /* Added the below queries to fetch the user name and site_use_id for deleting
859: the record from ari_reg_verifications when access is removed for the selected location for Bug 13869981 */
860: ---------------------------------------------------------------------
893: ----------------------------------------------------------------------------
894: l_debug_info := 'Update Cust Account Role';
895: ----------------------------------------------------------------------------
896: IF (PG_DEBUG = 'Y') THEN
897: arp_standard.debug(l_debug_info);
898: END IF;
899:
900: FOR role_record IN cust_acct_role_cur(p_person_party_id,
901: p_customer_id,
1101: ----------------------------------------------------------------------------
1102: l_debug_info := 'In debug mode, log we have entered this procedure';
1103: ----------------------------------------------------------------------------
1104: IF (PG_DEBUG = 'Y') THEN
1105: arp_standard.debug(G_PKG_NAME || l_procedure_name || '+');
1106: END IF;
1107:
1108: ----------------------------------------------------------------------------
1109: l_debug_info := 'Read values from the event';
1108: ----------------------------------------------------------------------------
1109: l_debug_info := 'Read values from the event';
1110: ----------------------------------------------------------------------------
1111: IF (PG_DEBUG = 'Y') THEN
1112: arp_standard.debug(l_debug_info);
1113: END IF;
1114: l_first_name := p_event.getvalueforparameter('FIRST_NAME');
1115:
1116: l_last_name := p_event.getvalueforparameter('LAST_NAME');
1121: l_debug_info := 'In CreatePersonPartyInternal l_first_name: '||l_first_name||' l_last_name:'||l_last_name||
1122: ' l_middle_name: '||l_middle_name||' l_pre_name_adjunct:'||l_pre_name_adjunct||' l_person_name_suffix: '||l_person_name_suffix;
1123: ----------------------------------------------------------------------------
1124: IF (PG_DEBUG = 'Y') THEN
1125: arp_standard.debug(l_debug_info);
1126: END IF;
1127: ----------------------------------------------------------------------------
1128: l_debug_info := 'Populate person record';
1129: ----------------------------------------------------------------------------
1127: ----------------------------------------------------------------------------
1128: l_debug_info := 'Populate person record';
1129: ----------------------------------------------------------------------------
1130: IF (PG_DEBUG = 'Y') THEN
1131: arp_standard.debug(l_debug_info);
1132: END IF;
1133:
1134: l_person_rec.person_first_name := l_first_name;
1135: l_person_rec.person_middle_name := l_middle_name;
1151: ----------------------------------------------------------------------------
1152: l_debug_info := 'Completed Hz_party_v2_pub.createperson: Status'||x_return_status;
1153: ----------------------------------------------------------------------------
1154: IF (PG_DEBUG = 'Y') THEN
1155: arp_standard.debug(l_debug_info);
1156: END IF;
1157:
1158: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
1159: ----------------------------------------------------------------------------
1159: ----------------------------------------------------------------------------
1160: l_debug_info := 'Completed Hz_party_v2_pub.createperson: Message'||X_Msg_Data;
1161: ----------------------------------------------------------------------------
1162: IF (PG_DEBUG = 'Y') THEN
1163: arp_standard.debug(l_debug_info);
1164: END IF;
1165: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1166: end if;
1167:
1169: l_debug_info := 'After creating person party, if this is an Additional Access flow,
1170: associate the created person party id with the user';
1171: ----------------------------------------------------------------------------
1172: IF (PG_DEBUG = 'Y') THEN
1173: arp_standard.debug(l_debug_info);
1174: END IF;
1175:
1176: l_reg_type := p_event.getvalueforparameter('REG_SERVICE_TYPE');
1177:
1177:
1178: l_debug_info := 'In CreatePersonPartyInternal REG_SERVICE_TYPE is '||l_reg_type;
1179: ----------------------------------------------------------------------------
1180: IF (PG_DEBUG = 'Y') THEN
1181: arp_standard.debug(l_debug_info);
1182: END IF;
1183: IF (l_reg_type = 'ADDITIONAL_ACCESS' OR l_reg_type ='ARI_ADD_CUST_ACCESS') THEN
1184: --Requested User Name is populated with the user name of the user requesting
1185: --In case of this scenario, admin will not be able to request additional access
1191: ----------------------------------------------------------------------------
1192: l_debug_info := 'Call FND_USER_PKG to update user with person party id';
1193: ----------------------------------------------------------------------------
1194: IF (PG_DEBUG = 'Y') THEN
1195: arp_standard.debug(l_debug_info);
1196: END IF;
1197:
1198: FND_USER_PKG.UpdateUser (
1199: x_user_name => l_reg_user_name,
1207: ----------------------------------------------------------------------------
1208: l_debug_info := 'In debug mode, log that we have exited this procedure';
1209: ----------------------------------------------------------------------------
1210: IF (PG_DEBUG = 'Y') THEN
1211: arp_standard.debug(G_PKG_NAME || l_procedure_name || '-');
1212: END IF;
1213:
1214: EXCEPTION
1215: WHEN OTHERS THEN
1215: WHEN OTHERS THEN
1216:
1217: IF (SQLCODE <> -20001) THEN
1218: IF (PG_DEBUG = 'Y') THEN
1219: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
1220: arp_standard.debug('Debug Info: ' || l_debug_info);
1221: arp_standard.debug(SQLERRM);
1222: END IF;
1223: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
1216:
1217: IF (SQLCODE <> -20001) THEN
1218: IF (PG_DEBUG = 'Y') THEN
1219: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
1220: arp_standard.debug('Debug Info: ' || l_debug_info);
1221: arp_standard.debug(SQLERRM);
1222: END IF;
1223: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
1224: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
1217: IF (SQLCODE <> -20001) THEN
1218: IF (PG_DEBUG = 'Y') THEN
1219: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
1220: arp_standard.debug('Debug Info: ' || l_debug_info);
1221: arp_standard.debug(SQLERRM);
1222: END IF;
1223: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
1224: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
1225: FND_MESSAGE.SET_TOKEN('PROCEDURE', G_PKG_NAME || l_procedure_name);
1279: BEGIN
1280: l_debug_info := 'In GetPartySiteId MO global value: '||MO_GLOBAL.get_current_org_id;
1281:
1282: IF (PG_DEBUG = 'Y') THEN
1283: arp_standard.debug(l_debug_info);
1284: END IF;
1285:
1286:
1287: select hcas.party_site_id
1292:
1293: l_debug_info := 'In GetPartySiteId l_party_site_id value: '||l_party_site_id;
1294:
1295: IF (PG_DEBUG = 'Y') THEN
1296: arp_standard.debug(l_debug_info);
1297: END IF;
1298:
1299: return l_party_site_id;
1300:
1301: EXCEPTION
1302: WHEN OTHERS THEN
1303: l_debug_info := 'In GetPartySiteId Exception'||SQLERRM;
1304: IF (PG_DEBUG = 'Y') THEN
1305: arp_standard.debug(l_debug_info);
1306: END IF;
1307:
1308:
1309: return null;
1328: BEGIN
1329:
1330: l_debug_info:='Entered GetCustAcctSiteId MO global value: '||MO_GLOBAL.get_current_org_id;
1331: IF (PG_DEBUG = 'Y') THEN
1332: arp_standard.debug(l_debug_info);
1333: END IF;
1334:
1335: select cust_acct_site_id
1336: into l_cust_acct_site_id
1338: where site_use_id = p_cust_site_use_id;
1339:
1340: l_debug_info:='In GetCustAcctSiteId'||l_cust_acct_site_id;
1341: IF (PG_DEBUG = 'Y') THEN
1342: arp_standard.debug(l_debug_info);
1343: END IF;
1344: return l_cust_acct_site_id;
1345:
1346: EXCEPTION
1346: EXCEPTION
1347: WHEN OTHERS THEN
1348: l_debug_info := 'Exception in GetCustAcctSiteId'||SQLERRM;
1349: IF (PG_DEBUG = 'Y') THEN
1350: arp_standard.debug(l_debug_info);
1351: END IF;
1352:
1353:
1354: return null;
1396: ----------------------------------------------------------------------------
1397: l_debug_info := 'In debug mode, log we have entered this procedure';
1398: ----------------------------------------------------------------------------
1399: IF (PG_DEBUG = 'Y') THEN
1400: arp_standard.debug(G_PKG_NAME || l_procedure_name || '+');
1401: END IF;
1402:
1403: l_customer_id := p_event.getvalueforparameter('CUSTOMER_ID');
1404: l_cust_site_use_id := p_event.getvalueforparameter('CUSTOMER_SITE_USE_ID');
1405: ----------------------------------------------------------------------------
1406: l_debug_info := 'In CreateOrgContactInternal l_customer_id: '||l_customer_id||'l_cust_site_use_id: '||l_cust_site_use_id;
1407: ----------------------------------------------------------------------------
1408: IF (PG_DEBUG = 'Y') THEN
1409: arp_standard.debug(l_debug_info);
1410: END IF;
1411: l_org_party_id := GetOrgPartyId(p_customer_id => l_customer_id);
1412: l_party_site_id := GetPartySiteId(p_cust_site_use_id => l_cust_site_use_id);
1413:
1415: ----------------------------------------------------------------------------
1416: l_debug_info := 'In CreateOrgContactInternal l_org_party_id: '||l_org_party_id||'l_party_site_id: '||l_party_site_id||' l_cust_acct_type: '||l_cust_acct_type;
1417: ----------------------------------------------------------------------------
1418: IF (PG_DEBUG = 'Y') THEN
1419: arp_standard.debug(l_debug_info);
1420: END IF;
1421: ----------------------------------------------------------------------------
1422: l_debug_info := 'Check if relationship already exists';
1423: ----------------------------------------------------------------------------
1421: ----------------------------------------------------------------------------
1422: l_debug_info := 'Check if relationship already exists';
1423: ----------------------------------------------------------------------------
1424: IF (PG_DEBUG = 'Y') THEN
1425: arp_standard.debug(l_debug_info);
1426: END IF;
1427: BEGIN
1428: --Bug 4764121: Storing the value of party_id (even when relationship exists)
1429: SELECT 'Y',party_id
1447: ----------------------------------------------------------------------------
1448: l_debug_info := 'In CreateOrgContactInternal l_already_exists: '||l_already_exists;
1449: ----------------------------------------------------------------------------
1450: IF (PG_DEBUG = 'Y') THEN
1451: arp_standard.debug(l_debug_info);
1452: END IF;
1453: IF l_already_exists = 'N' THEN
1454:
1455: ----------------------------------------------------------------------------
1455: ----------------------------------------------------------------------------
1456: l_debug_info := 'Create the org contact relationship';
1457: ----------------------------------------------------------------------------
1458: IF (PG_DEBUG = 'Y') THEN
1459: arp_standard.debug(l_debug_info);
1460: END IF;
1461:
1462: l_party_rel_rec.subject_id := p_person_party_id;
1463: l_party_rel_rec.subject_type := 'PERSON';
1499: ----------------------------------------------------------------------------
1500: l_debug_info := 'In debug mode, log that we have exited this procedure';
1501: ----------------------------------------------------------------------------
1502: IF (PG_DEBUG = 'Y') THEN
1503: arp_standard.debug(G_PKG_NAME || l_procedure_name || '-');
1504: END IF;
1505:
1506: EXCEPTION
1507: WHEN OTHERS THEN
1507: WHEN OTHERS THEN
1508:
1509: IF (SQLCODE <> -20001) THEN
1510: IF (PG_DEBUG = 'Y') THEN
1511: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
1512: arp_standard.debug('Debug Info: ' || l_debug_info);
1513: arp_standard.debug(SQLERRM);
1514: END IF;
1515: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
1508:
1509: IF (SQLCODE <> -20001) THEN
1510: IF (PG_DEBUG = 'Y') THEN
1511: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
1512: arp_standard.debug('Debug Info: ' || l_debug_info);
1513: arp_standard.debug(SQLERRM);
1514: END IF;
1515: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
1516: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
1509: IF (SQLCODE <> -20001) THEN
1510: IF (PG_DEBUG = 'Y') THEN
1511: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
1512: arp_standard.debug('Debug Info: ' || l_debug_info);
1513: arp_standard.debug(SQLERRM);
1514: END IF;
1515: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
1516: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
1517: FND_MESSAGE.SET_TOKEN('PROCEDURE', G_PKG_NAME || l_procedure_name);
1569: ----------------------------------------------------------------------------
1570: l_debug_info := 'In debug mode, log we have entered this procedure';
1571: ----------------------------------------------------------------------------
1572: IF (PG_DEBUG = 'Y') THEN
1573: arp_standard.debug(G_PKG_NAME || l_procedure_name || '+');
1574: END IF;
1575:
1576: ----------------------------------------------------------------------------
1577: l_debug_info := 'In CreateContactPointInternal IN Value of p_contact_party_id: '||p_contact_party_id;
1576: ----------------------------------------------------------------------------
1577: l_debug_info := 'In CreateContactPointInternal IN Value of p_contact_party_id: '||p_contact_party_id;
1578: ----------------------------------------------------------------------------
1579: IF (PG_DEBUG = 'Y') THEN
1580: arp_standard.debug(l_debug_info);
1581: END IF;
1582: -- get the values from event object
1583: l_email_address := p_event.getvalueforparameter('EMAIL_ADDRESS');
1584: l_email_format := p_event.getvalueforparameter('EMAIL_PREFERENCE');
1593: ' l_email_format:'||l_email_format||' l_primary_phone:'||l_primary_phone||' l_area_code:'||l_area_code||' l_country_code:'||l_country_code||
1594: ' l_phone_purpose:'||l_phone_purpose||' l_phone_extension:'||l_phone_extension;
1595: ----------------------------------------------------------------------------
1596: IF (PG_DEBUG = 'Y') THEN
1597: arp_standard.debug(l_debug_info);
1598: END IF;
1599: --populate the record
1600: l_contact_point_rec.status := 'A';
1601: l_contact_point_rec.owner_table_name := 'HZ_PARTIES';
1608: ----------------------------------------------------------------------------
1609: l_debug_info := 'Email Address not null - create/update email contact point';
1610: ----------------------------------------------------------------------------
1611: IF (PG_DEBUG = 'Y') THEN
1612: arp_standard.debug(l_debug_info);
1613: END IF;
1614:
1615: l_contact_point_rec.contact_point_type := 'EMAIL';
1616:
1620: ----------------------------------------------------------------------------
1621: l_debug_info := 'Check if an email record already exists';
1622: ----------------------------------------------------------------------------
1623: IF (PG_DEBUG = 'Y') THEN
1624: arp_standard.debug(l_debug_info);
1625: END IF;
1626: BEGIN
1627: l_contact_point_id := null;
1628:
1645: ----------------------------------------------------------------------------
1646: l_debug_info := 'In CreateContactPointInternal l_contact_point_id:'||l_contact_point_id;
1647: ----------------------------------------------------------------------------
1648: IF (PG_DEBUG = 'Y') THEN
1649: arp_standard.debug(l_debug_info);
1650: END IF;
1651: IF (l_contact_point_id IS NULL) THEN
1652:
1653: ----------------------------------------------------------------------------
1653: ----------------------------------------------------------------------------
1654: l_debug_info := 'Create email contact point';
1655: ----------------------------------------------------------------------------
1656: IF (PG_DEBUG = 'Y') THEN
1657: arp_standard.debug(l_debug_info);
1658: END IF;
1659:
1660: HZ_CONTACT_POINT_V2PUB.create_contact_point (
1661: p_contact_point_rec => l_contact_point_rec,
1669: ----------------------------------------------------------------------------
1670: l_debug_info := 'Update email contact point';
1671: ----------------------------------------------------------------------------
1672: IF (PG_DEBUG = 'Y') THEN
1673: arp_standard.debug(l_debug_info);
1674: END IF;
1675:
1676: SELECT object_version_number
1677: INTO l_object_version_number
1680: ----------------------------------------------------------------------------
1681: l_debug_info := 'In CreateContactPointInternal l_object_version_number:'||l_object_version_number;
1682: ----------------------------------------------------------------------------
1683: IF (PG_DEBUG = 'Y') THEN
1684: arp_standard.debug(l_debug_info);
1685: END IF;
1686:
1687: HZ_CONTACT_POINT_V2PUB.update_contact_point (
1688: p_contact_point_rec => l_contact_point_rec,
1696: ----------------------------------------------------------------------------
1697: l_debug_info := 'Contact point done: Status' || X_Return_Status;
1698: ----------------------------------------------------------------------------
1699: IF (PG_DEBUG = 'Y') THEN
1700: arp_standard.debug(l_debug_info);
1701: END IF;
1702:
1703: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
1704: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1712: ----------------------------------------------------------------------------
1713: l_debug_info := 'Primary Phone not null - create/update phone contact point';
1714: ----------------------------------------------------------------------------
1715: IF (PG_DEBUG = 'Y') THEN
1716: arp_standard.debug(l_debug_info);
1717: END IF;
1718:
1719: l_contact_point_rec.contact_point_type := 'PHONE';
1720: l_contact_point_rec.contact_point_purpose := l_phone_purpose;
1728: ----------------------------------------------------------------------------
1729: l_debug_info := 'Check if a phone record already exists';
1730: ----------------------------------------------------------------------------
1731: IF (PG_DEBUG = 'Y') THEN
1732: arp_standard.debug(l_debug_info);
1733: END IF;
1734: BEGIN
1735: l_contact_point_id := null;
1736:
1755: ----------------------------------------------------------------------------
1756: l_debug_info := 'Create phone contact point';
1757: ----------------------------------------------------------------------------
1758: IF (PG_DEBUG = 'Y') THEN
1759: arp_standard.debug(l_debug_info);
1760: END IF;
1761:
1762: HZ_CONTACT_POINT_V2PUB.create_contact_point (
1763: p_contact_point_rec => l_contact_point_rec,
1771: ----------------------------------------------------------------------------
1772: l_debug_info := 'Update phone contact point';
1773: ----------------------------------------------------------------------------
1774: IF (PG_DEBUG = 'Y') THEN
1775: arp_standard.debug(l_debug_info);
1776: END IF;
1777:
1778: SELECT object_version_number
1779: INTO l_object_version_number
1782: ----------------------------------------------------------------------------
1783: l_debug_info := 'In CreateContactPointInternal l_object_version_number:' || l_object_version_number;
1784: ----------------------------------------------------------------------------
1785: IF (PG_DEBUG = 'Y') THEN
1786: arp_standard.debug(l_debug_info);
1787: END IF;
1788: HZ_CONTACT_POINT_V2PUB.update_contact_point (
1789: p_contact_point_rec => l_contact_point_rec,
1790: p_phone_rec => l_phone_rec,
1801: ----------------------------------------------------------------------------
1802: l_debug_info := 'Contact point done: Status' || X_Return_Status;
1803: ----------------------------------------------------------------------------
1804: IF (PG_DEBUG = 'Y') THEN
1805: arp_standard.debug(l_debug_info);
1806: END IF;
1807:
1808: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
1809: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1814: ----------------------------------------------------------------------------
1815: l_debug_info := 'In debug mode, log that we have exited this procedure';
1816: ----------------------------------------------------------------------------
1817: IF (PG_DEBUG = 'Y') THEN
1818: arp_standard.debug(G_PKG_NAME || l_procedure_name || '-');
1819: END IF;
1820:
1821: EXCEPTION
1822: WHEN OTHERS THEN
1822: WHEN OTHERS THEN
1823:
1824: IF (SQLCODE <> -20001) THEN
1825: IF (PG_DEBUG = 'Y') THEN
1826: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
1827: arp_standard.debug('Debug Info: ' || l_debug_info);
1828: arp_standard.debug(SQLERRM);
1829: END IF;
1830: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
1823:
1824: IF (SQLCODE <> -20001) THEN
1825: IF (PG_DEBUG = 'Y') THEN
1826: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
1827: arp_standard.debug('Debug Info: ' || l_debug_info);
1828: arp_standard.debug(SQLERRM);
1829: END IF;
1830: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
1831: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
1824: IF (SQLCODE <> -20001) THEN
1825: IF (PG_DEBUG = 'Y') THEN
1826: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
1827: arp_standard.debug('Debug Info: ' || l_debug_info);
1828: arp_standard.debug(SQLERRM);
1829: END IF;
1830: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
1831: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
1832: FND_MESSAGE.SET_TOKEN('PROCEDURE', G_PKG_NAME || l_procedure_name);
1874: ----------------------------------------------------------------------------
1875: l_debug_info := 'In debug mode, log we have entered this procedure';
1876: ----------------------------------------------------------------------------
1877: IF (PG_DEBUG = 'Y') THEN
1878: arp_standard.debug(G_PKG_NAME || l_procedure_name || '+');
1879: END IF;
1880: ----------------------------------------------------------------------------
1881: l_debug_info := 'In CreateCustAcctRoleFor IN PARAMETERS p_party_id: '||p_party_id;
1882: ----------------------------------------------------------------------------
1880: ----------------------------------------------------------------------------
1881: l_debug_info := 'In CreateCustAcctRoleFor IN PARAMETERS p_party_id: '||p_party_id;
1882: ----------------------------------------------------------------------------
1883: IF (PG_DEBUG = 'Y') THEN
1884: arp_standard.debug(l_debug_info);
1885: END IF;
1886:
1887: l_customer_id := p_event.getvalueforparameter('CUSTOMER_ID');
1888: l_cust_site_use_id := p_event.getvalueforparameter('CUSTOMER_SITE_USE_ID');
1894: ----------------------------------------------------------------------------
1895: l_debug_info := 'In CreateCustAcctRoleFor event parameters l_customer_id: '||l_customer_id||'l_cust_site_use_id: '||l_cust_site_use_id||'l_cust_acct_site_id: '||l_cust_acct_site_id;
1896: ----------------------------------------------------------------------------
1897: IF (PG_DEBUG = 'Y') THEN
1898: arp_standard.debug(l_debug_info);
1899: END IF;
1900:
1901:
1902: ----------------------------------------------------------------------------
1902: ----------------------------------------------------------------------------
1903: l_debug_info := 'Check if role already exists';
1904: ----------------------------------------------------------------------------
1905: IF (PG_DEBUG = 'Y') THEN
1906: arp_standard.debug(l_debug_info);
1907: END IF;
1908:
1909: BEGIN
1910: l_already_exists := 'N';
1925: l_debug_info := 'In CreateCustAcctRoleFor l_already_exists:'||l_already_exists||' p_cust_acct_role_id:'||p_cust_acct_role_id||
1926: ' l_status'||l_status||' l_version_number:'||l_version_number;
1927: ----------------------------------------------------------------------------
1928: IF (PG_DEBUG = 'Y') THEN
1929: arp_standard.debug(l_debug_info);
1930: END IF;
1931: IF l_status='I' THEN
1932: ----------------------------------------------------------------------------
1933: l_debug_info := 'Role exists but is Inactive.Trying to activate it.Role Id= '||p_cust_acct_role_id;
1932: ----------------------------------------------------------------------------
1933: l_debug_info := 'Role exists but is Inactive.Trying to activate it.Role Id= '||p_cust_acct_role_id;
1934: ----------------------------------------------------------------------------
1935: IF (PG_DEBUG = 'Y') THEN
1936: arp_standard.debug(l_debug_info);
1937: END IF;
1938:
1939: l_cust_acct_roles_rec.party_id := p_party_id;
1940: l_cust_acct_roles_rec.cust_account_id := l_customer_id;
1957: ----------------------------------------------------------------------
1958: l_debug_info := 'Error Calling HZ Update Cust Acct Roles API: ' || l_msg_data;
1959: ----------------------------------------------------------------------
1960: IF (PG_DEBUG = 'Y') THEN
1961: arp_standard.debug(l_debug_info);
1962: END IF;
1963: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1964:
1965: END IF;
1977: ----------------------------------------------------------------------------
1978: l_debug_info := 'Create customer account role';
1979: ----------------------------------------------------------------------------
1980: IF (PG_DEBUG = 'Y') THEN
1981: arp_standard.debug(l_debug_info);
1982: END IF;
1983:
1984: l_cust_acct_roles_rec.party_id := p_party_id;
1985: l_cust_acct_roles_rec.cust_account_id := l_customer_id;
1990: ------------------------------------------------------------------------
1991: l_debug_info := 'Call hz_cust_account_v2pub.Create_Cust_Acct_Roles';
1992: ------------------------------------------------------------------------
1993: IF (PG_DEBUG = 'Y') THEN
1994: arp_standard.debug(l_debug_info);
1995: END IF;
1996: HZ_CUST_ACCOUNT_ROLE_V2PUB.Create_Cust_Account_Role(
1997: p_init_msg_list => FND_API.G_TRUE,
1998: p_cust_account_role_rec => l_cust_acct_roles_rec,
2005: ----------------------------------------------------------------------
2006: l_debug_info := 'Return cust acct role id';
2007: ----------------------------------------------------------------------
2008: IF (PG_DEBUG = 'Y') THEN
2009: arp_standard.debug(l_debug_info);
2010: END IF;
2011: p_cust_acct_role_id := l_cust_acct_role_id;
2012: ----------------------------------------------------------------------------
2013: l_debug_info := 'In CreateCustAcctRoleFor p_cust_acct_role_id: '||p_cust_acct_role_id;
2012: ----------------------------------------------------------------------------
2013: l_debug_info := 'In CreateCustAcctRoleFor p_cust_acct_role_id: '||p_cust_acct_role_id;
2014: ----------------------------------------------------------------------------
2015: IF (PG_DEBUG = 'Y') THEN
2016: arp_standard.debug(l_debug_info);
2017: END IF;
2018: ELSE
2019:
2020: ----------------------------------------------------------------------
2020: ----------------------------------------------------------------------
2021: l_debug_info := 'Error Calling HZ Create Cust Acct Roles API: ' || l_msg_data;
2022: ----------------------------------------------------------------------
2023: IF (PG_DEBUG = 'Y') THEN
2024: arp_standard.debug(l_debug_info);
2025: END IF;
2026: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2027:
2028: END IF;
2032: ----------------------------------------------------------------------------
2033: l_debug_info := 'In debug mode, log that we have exited this procedure';
2034: ----------------------------------------------------------------------------
2035: IF (PG_DEBUG = 'Y') THEN
2036: arp_standard.debug(G_PKG_NAME || l_procedure_name || '-');
2037: END IF;
2038:
2039: EXCEPTION
2040: WHEN OTHERS THEN
2039: EXCEPTION
2040: WHEN OTHERS THEN
2041: IF (SQLCODE <> -20001) THEN
2042: IF (PG_DEBUG = 'Y') THEN
2043: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
2044: arp_standard.debug('Debug Info: ' || l_debug_info);
2045: arp_standard.debug(SQLERRM);
2046: END IF;
2047: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
2040: WHEN OTHERS THEN
2041: IF (SQLCODE <> -20001) THEN
2042: IF (PG_DEBUG = 'Y') THEN
2043: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
2044: arp_standard.debug('Debug Info: ' || l_debug_info);
2045: arp_standard.debug(SQLERRM);
2046: END IF;
2047: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
2048: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
2041: IF (SQLCODE <> -20001) THEN
2042: IF (PG_DEBUG = 'Y') THEN
2043: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
2044: arp_standard.debug('Debug Info: ' || l_debug_info);
2045: arp_standard.debug(SQLERRM);
2046: END IF;
2047: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
2048: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
2049: FND_MESSAGE.SET_TOKEN('PROCEDURE', G_PKG_NAME || l_procedure_name);
2085: ----------------------------------------------------------------------------
2086: l_debug_info := 'In debug mode, log we have entered this procedure';
2087: ----------------------------------------------------------------------------
2088: IF (PG_DEBUG = 'Y') THEN
2089: arp_standard.debug(G_PKG_NAME || l_procedure_name || '+');
2090: END IF;
2091:
2092: ----------------------------------------------------------------------------
2093: l_debug_info := 'Check if role responsbility already exists';
2092: ----------------------------------------------------------------------------
2093: l_debug_info := 'Check if role responsbility already exists';
2094: ----------------------------------------------------------------------------
2095: IF (PG_DEBUG = 'Y') THEN
2096: arp_standard.debug(l_debug_info);
2097: END IF;
2098:
2099: BEGIN
2100: l_already_exists := 'N';
2107: ----------------------------------------------------------------------------
2108: l_debug_info := 'In CreateRoleRespFor l_already_exists:'||l_already_exists;
2109: ----------------------------------------------------------------------------
2110: IF (PG_DEBUG = 'Y') THEN
2111: arp_standard.debug(l_debug_info);
2112: END IF;
2113: EXCEPTION
2114: WHEN TOO_MANY_ROWS THEN
2115: --Role exists
2127: --------------------------------------------------------------------
2128: l_debug_info := 'Call HZ_CUST_ACCOUNT_ROLE_V2PUB.create_role_responsibility';
2129: --------------------------------------------------------------------
2130: IF (PG_DEBUG = 'Y') THEN
2131: arp_standard.debug(l_debug_info);
2132: END IF;
2133: HZ_CUST_ACCOUNT_ROLE_V2PUB.create_role_responsibility(
2134: p_init_msg_list => FND_API.G_TRUE,
2135: p_role_responsibility_rec => l_role_resp_rec,
2142: ----------------------------------------------------------------------
2143: l_debug_info := 'Return role responsibility id';
2144: ----------------------------------------------------------------------
2145: IF (PG_DEBUG = 'Y') THEN
2146: arp_standard.debug(l_debug_info);
2147: END IF;
2148: p_role_resp_id := l_responsibility_id;
2149: ----------------------------------------------------------------------------
2150: l_debug_info := 'In CreateRoleRespFor p_role_resp_id:'||p_role_resp_id;
2149: ----------------------------------------------------------------------------
2150: l_debug_info := 'In CreateRoleRespFor p_role_resp_id:'||p_role_resp_id;
2151: ----------------------------------------------------------------------------
2152: IF (PG_DEBUG = 'Y') THEN
2153: arp_standard.debug(l_debug_info);
2154: END IF;
2155: ELSE
2156: ----------------------------------------------------------------------
2157: l_debug_info := 'Error Calling HZ Create Role Resp API: ' || l_msg_data;
2156: ----------------------------------------------------------------------
2157: l_debug_info := 'Error Calling HZ Create Role Resp API: ' || l_msg_data;
2158: ----------------------------------------------------------------------
2159: IF (PG_DEBUG = 'Y') THEN
2160: arp_standard.debug(l_debug_info);
2161: END IF;
2162: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2163:
2164: END IF;
2168: ----------------------------------------------------------------------------
2169: l_debug_info := 'In debug mode, log that we have exited this procedure';
2170: ----------------------------------------------------------------------------
2171: IF (PG_DEBUG = 'Y') THEN
2172: arp_standard.debug(G_PKG_NAME || l_procedure_name || '-');
2173: END IF;
2174:
2175: EXCEPTION
2176: WHEN OTHERS THEN
2176: WHEN OTHERS THEN
2177:
2178: IF (SQLCODE <> -20001) THEN
2179: IF (PG_DEBUG = 'Y') THEN
2180: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
2181: arp_standard.debug('Debug Info: ' || l_debug_info);
2182: arp_standard.debug(SQLERRM);
2183: END IF;
2184: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
2177:
2178: IF (SQLCODE <> -20001) THEN
2179: IF (PG_DEBUG = 'Y') THEN
2180: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
2181: arp_standard.debug('Debug Info: ' || l_debug_info);
2182: arp_standard.debug(SQLERRM);
2183: END IF;
2184: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
2185: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
2178: IF (SQLCODE <> -20001) THEN
2179: IF (PG_DEBUG = 'Y') THEN
2180: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
2181: arp_standard.debug('Debug Info: ' || l_debug_info);
2182: arp_standard.debug(SQLERRM);
2183: END IF;
2184: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
2185: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
2186: FND_MESSAGE.SET_TOKEN('PROCEDURE', G_PKG_NAME || l_procedure_name);
2223: ----------------------------------------------------------------------------
2224: l_debug_info := 'In debug mode, log we have entered this procedure';
2225: ----------------------------------------------------------------------------
2226: IF (PG_DEBUG = 'Y') THEN
2227: arp_standard.debug(G_PKG_NAME || l_procedure_name || '+');
2228: END IF;
2229:
2230: IF (p_person_party_id IS NULL) THEN
2231: CreatePersonPartyInternal(p_event,p_person_party_id);
2238: ----------------------------------------------------------------------------
2239: l_debug_info := 'In debug mode, log that we have exited this procedure';
2240: ----------------------------------------------------------------------------
2241: IF (PG_DEBUG = 'Y') THEN
2242: arp_standard.debug(G_PKG_NAME || l_procedure_name || '-');
2243: END IF;
2244:
2245: END RegisterB2BUser;
2246:
2280: ----------------------------------------------------------------------------
2281: l_debug_info := 'In debug mode, log we have entered this procedure';
2282: ----------------------------------------------------------------------------
2283: IF (PG_DEBUG = 'Y') THEN
2284: arp_standard.debug(G_PKG_NAME || l_procedure_name || '+');
2285: END IF;
2286:
2287: IF (p_person_party_id IS NULL) THEN
2288: l_new_user := 'Y';
2313: ----------------------------------------------------------------------------
2314: l_debug_info := 'Create contact preference';
2315: ----------------------------------------------------------------------------
2316: IF (PG_DEBUG = 'Y') THEN
2317: arp_standard.debug(l_debug_info);
2318: END IF;
2319:
2320: HZ_CONTACT_PREFERENCE_V2PUB.create_contact_preference(
2321: p_contact_preference_rec => l_contact_preference_rec,
2333: ----------------------------------------------------------------------------
2334: l_debug_info := 'In debug mode, log that we have exited this procedure';
2335: ----------------------------------------------------------------------------
2336: IF (PG_DEBUG = 'Y') THEN
2337: arp_standard.debug(G_PKG_NAME || l_procedure_name || '-');
2338: END IF;
2339:
2340: END RegisterB2CUser;
2341:
2365: l_debug_info := 'In debug mode, log we have entered this procedure';
2366: ----------------------------------------------------------------------------
2367:
2368: IF (PG_DEBUG = 'Y') THEN
2369: arp_standard.debug(G_PKG_NAME || l_procedure_name || '+');
2370: END IF;
2371:
2372: ----------------------------------------------------------------------------
2373: l_debug_info := 'In RegisterUser p_person_party_id IN is '||p_person_party_id;
2372: ----------------------------------------------------------------------------
2373: l_debug_info := 'In RegisterUser p_person_party_id IN is '||p_person_party_id;
2374: ----------------------------------------------------------------------------
2375: IF (PG_DEBUG = 'Y') THEN
2376: arp_standard.debug(l_debug_info);
2377: END IF;
2378: -- Start :Added below statements for Bug#13856182
2379: l_responsibility_id := to_number(p_event.getvalueforparameter('RESPONSIBILITY_ID'));
2380:
2381: ----------------------------------------------------------------------------
2382: l_debug_info := 'In RegisterUser l_responsibility_id is'||l_responsibility_id;
2383: ----------------------------------------------------------------------------
2384: IF (PG_DEBUG = 'Y') THEN
2385: arp_standard.debug(l_debug_info);
2386: END IF;
2387: begin
2388: select fnd.user_id into l_user_id
2389: from fnd_user fnd
2403: ----------------------------------------------------------------------------
2404: l_debug_info := 'In RegisterUser apps_initialize values '||l_user_id||' '||l_responsibility_id||' '||l_application_id;
2405: ----------------------------------------------------------------------------
2406: IF (PG_DEBUG = 'Y') THEN
2407: arp_standard.debug(l_debug_info);
2408: END IF;
2409:
2410: if(l_user_id is not null) then
2411: ----------------------------------------------------------------------------
2411: ----------------------------------------------------------------------------
2412: l_debug_info := 'Setting the apps initialize with the above values of user id, resp id';
2413: ----------------------------------------------------------------------------
2414: IF (PG_DEBUG = 'Y') THEN
2415: arp_standard.debug(l_debug_info);
2416: END IF;
2417: fnd_global.apps_initialize(l_user_id, l_responsibility_id, l_application_id);
2418: end if;
2419: mo_global.init('AR');
2422: ----------------------------------------------------------------------------
2423: l_debug_info := 'In RegisterUser Check if the customer access requested if of BUSINESS or CONSUMER type';
2424: ----------------------------------------------------------------------------
2425: IF (PG_DEBUG = 'Y') THEN
2426: arp_standard.debug(l_debug_info);
2427: END IF;
2428:
2429: l_cust_acct_type := p_event.getvalueforparameter('CUST_ACCT_TYPE');
2430: ----------------------------------------------------------------------------
2430: ----------------------------------------------------------------------------
2431: l_debug_info := 'In RegisterUser CUST_ACCT_TYPE is'||l_cust_acct_type;
2432: ----------------------------------------------------------------------------
2433: IF (PG_DEBUG = 'Y') THEN
2434: arp_standard.debug(l_debug_info);
2435: END IF;
2436: IF (l_cust_acct_type = G_BUSINESS) THEN
2437: RegisterB2BUser(p_event, p_person_party_id);
2438: ELSIF (l_cust_acct_type = G_CONSUMER) THEN
2442: ----------------------------------------------------------------------------
2443: l_debug_info := 'In debug mode, log we have entered this procedure';
2444: ----------------------------------------------------------------------------
2445: IF (PG_DEBUG = 'Y') THEN
2446: arp_standard.debug(G_PKG_NAME || l_procedure_name || '-');
2447: END IF;
2448:
2449: END RegisterUser;
2450:
2478: ----------------------------------------------------------------------------
2479: l_debug_info := 'In debug mode, log we have entered this procedure';
2480: ----------------------------------------------------------------------------
2481: IF (PG_DEBUG = 'Y') THEN
2482: arp_standard.debug(G_PKG_NAME || l_procedure_name || '+');
2483: END IF;
2484:
2485: -- This function is called on the event 'oracle.apps.fnd.umx.requestapproved'
2486: -- To ensure that the code to add access gets executed only for Add Access flow
2496: ----------------------------------------------------------------------------
2497: l_debug_info := 'Add access for the user';
2498: ----------------------------------------------------------------------------
2499: IF (PG_DEBUG = 'Y') THEN
2500: arp_standard.debug(l_debug_info);
2501: END IF;
2502: l_person_party_id := p_event.getvalueforparameter('PERSON_PARTY_ID');
2503:
2504: RegisterUser(p_event, l_person_party_id);
2520: ----------------------------------------------------------------------------
2521: l_debug_info := 'In debug mode, log we have entered this procedure';
2522: ----------------------------------------------------------------------------
2523: IF (PG_DEBUG = 'Y') THEN
2524: arp_standard.debug(G_PKG_NAME || l_procedure_name || '-');
2525: END IF;
2526:
2527: l_success:='SUCCESS';
2528:
2579: ----------------------------------------------------------------------------
2580: l_debug_info := 'In debug mode, log we have entered this procedure';
2581: ----------------------------------------------------------------------------
2582: IF (PG_DEBUG = 'Y') THEN
2583: arp_standard.debug(G_PKG_NAME || l_procedure_name || '+');
2584: END IF;
2585:
2586: ----------------------------------------------------------------------------
2587: l_debug_info := 'Create B2C party and populate the event object back to main workflow';
2586: ----------------------------------------------------------------------------
2587: l_debug_info := 'Create B2C party and populate the event object back to main workflow';
2588: ----------------------------------------------------------------------------
2589: IF (PG_DEBUG = 'Y') THEN
2590: arp_standard.debug(l_debug_info);
2591: END IF;
2592:
2593: ----------------------------------------------------------------------------
2594: l_debug_info := 'In CreatePersonParty UMX_CUSTOM_EVENT_CONTEXT : '||p_event.getValueForParameter('UMX_CUSTOM_EVENT_CONTEXT');
2593: ----------------------------------------------------------------------------
2594: l_debug_info := 'In CreatePersonParty UMX_CUSTOM_EVENT_CONTEXT : '||p_event.getValueForParameter('UMX_CUSTOM_EVENT_CONTEXT');
2595: ----------------------------------------------------------------------------
2596: IF (PG_DEBUG = 'Y') THEN
2597: arp_standard.debug(l_debug_info);
2598: END IF;
2599:
2600: if(p_event.getValueForParameter('UMX_CUSTOM_EVENT_CONTEXT') =
2601: UMX_PUB.BEFORE_ACT_ACTIVATION) then
2605: ----------------------------------------------------------------------------
2606: l_debug_info := 'Person Party Created:' || p_person_party_id;
2607: ----------------------------------------------------------------------------
2608: IF (PG_DEBUG = 'Y') THEN
2609: arp_standard.debug(l_debug_info);
2610: END IF;
2611:
2612: l_success := UMX_REGISTRATION_UTIL.set_event_object(p_event,'PERSON_PARTY_ID',p_person_party_id);
2613:
2614: ----------------------------------------------------------------------------
2615: l_debug_info := 'After Calling UMX_REGISTRATION_UTIL.set_event_object l_success: '||l_success;
2616: ----------------------------------------------------------------------------
2617: IF (PG_DEBUG = 'Y') THEN
2618: arp_standard.debug(l_debug_info);
2619: END IF;
2620: end if;
2621:
2622: ----------------------------------------------------------------------------
2622: ----------------------------------------------------------------------------
2623: l_debug_info := 'In debug mode, log that we have exited this procedure';
2624: ----------------------------------------------------------------------------
2625: IF (PG_DEBUG = 'Y') THEN
2626: arp_standard.debug(G_PKG_NAME || l_procedure_name || '-');
2627: END IF;
2628:
2629: -- To match with UMX patch 10133712
2630: IF upper(l_success) <> 'SUCCESS' THEN
2636: l_success := 'SUCCESS';
2637: END IF;
2638:
2639: IF (PG_DEBUG = 'Y') THEN
2640: arp_standard.debug(G_PKG_NAME || l_procedure_name || '-'||'Return status ::'||upper(l_success));
2641: END IF;
2642: --To avoid child error workflows, should return 'SUCCESS' and not 'success'.
2643: return upper(l_success);
2644:
2861: ----------------------------------------------------------------------------------------
2862: l_debug_info := 'Start Additional Access Approval request Workflow';
2863: -----------------------------------------------------------------------------------------
2864: IF (PG_DEBUG = 'Y') THEN
2865: arp_standard.debug(l_debug_info);
2866: END IF;
2867: WF_ENGINE.STARTPROCESS('ARIADDAC',
2868: l_item_key);
2869:
3156: ----------------------------------------------------------------------------
3157: l_debug_info := 'In debug mode, log we have entered this procedure';
3158: ----------------------------------------------------------------------------
3159: IF (PG_DEBUG = 'Y') THEN
3160: arp_standard.debug(G_PKG_NAME || l_procedure_name || '+');
3161: END IF;
3162:
3163: ----------------------------------------------------------------------------
3164: l_debug_info := 'Retrieve value of RegHoldDomain profile' ||
3175: ----------------------------------------------------------------------------
3176: l_debug_info := 'OpenRegistrationCur checking for holds';
3177: ----------------------------------------------------------------------------
3178: IF (PG_DEBUG = 'Y') THEN
3179: arp_standard.debug(l_debug_info);
3180: END IF;
3181:
3182: if(l_profile_reg_hold_type is null OR '' = l_profile_reg_hold_type) then
3183: l_profile_reg_hold_type := 'USER';
3187: l_profile_reg_hold_days := 0;
3188: end if;
3189:
3190: IF (PG_DEBUG = 'Y') THEN
3191: arp_standard.debug('l_profile_reg_hold_type '||l_profile_reg_hold_type||' l_profile_reg_hold_days '||l_profile_reg_hold_days);
3192: END IF;
3193:
3194: l_access_domain_cust_id := ARI_SELF_REG_CONFIG.get_customer_id(p_access_domain_search_type,p_access_domain_search_number);
3195:
3203: ----------------------------------------------------------------------------
3204: l_debug_info := 'Retrieve registration records from cursor';
3205: ----------------------------------------------------------------------------
3206: IF (PG_DEBUG = 'Y') THEN
3207: arp_standard.debug(l_debug_info);
3208: END IF;
3209: LOOP
3210: FETCH l_registration_cur INTO l_days_since_latest_hold_date;
3211: EXIT WHEN l_registration_cur%NOTFOUND;
3222: ----------------------------------------------------------------------------
3223: l_debug_info := 'OpenRegistrationCur To Check User Registration Count';
3224: ----------------------------------------------------------------------------
3225: IF (PG_DEBUG = 'Y') THEN
3226: arp_standard.debug(l_debug_info);
3227: END IF;
3228: OpenRegistrationCur(p_cust_account_id => l_access_domain_cust_id,
3229: p_billto_id => p_access_domain_billto_id,
3230: p_user_name => p_user_name,
3236: ----------------------------------------------------------------------------
3237: l_debug_info := 'OpenRegistrationCur To Check current Registration Status';
3238: ----------------------------------------------------------------------------
3239: IF (PG_DEBUG = 'Y') THEN
3240: arp_standard.debug(l_debug_info);
3241: END IF;
3242: OpenRegistrationCur(p_cust_account_id => l_access_domain_cust_id,
3243: p_billto_id => p_access_domain_billto_id,
3244: p_user_name => p_user_name,
3249: ----------------------------------------------------------------------------
3250: l_debug_info := 'Retrieve registration records from cursor in User Mode';
3251: ----------------------------------------------------------------------------
3252: IF (PG_DEBUG = 'Y') THEN
3253: arp_standard.debug(l_debug_info);
3254: END IF;
3255: LOOP
3256: FETCH l_registration_cur INTO l_registration_id, l_access_domain_search_type,
3257: l_access_domain_cust_id, l_registration_status,
3257: l_access_domain_cust_id, l_registration_status,
3258: l_company_id, l_days_since_last_update;
3259: EXIT WHEN l_registration_cur%NOTFOUND;
3260: IF (PG_DEBUG = 'Y') THEN
3261: arp_standard.debug(to_char(l_registration_id));
3262: END IF;
3263: END LOOP;
3264:
3265: IF (l_registration_cur%ROWCOUNT = 1) THEN
3267: --------------------------------------------------------------------------
3268: l_debug_info := 'One record returned by registration cursor';
3269: --------------------------------------------------------------------------
3270: IF (PG_DEBUG = 'Y') THEN
3271: arp_standard.debug(l_debug_info);
3272: END IF;
3273:
3274: IF (l_registration_status IS NULL) THEN
3275:
3279: l_debug_info := 'Existing registration did not complete, so this is a' ||
3280: 'add access retry';
3281: --------------------------------------------------------------------------
3282: IF (PG_DEBUG = 'Y') THEN
3283: arp_standard.debug(l_debug_info);
3284: END IF;
3285: p_past_reg_status := G_NEW_ACCESS_RETRY;
3286:
3287: ELSE
3289: l_debug_info := 'Existing registration did not complete, so this is a' ||
3290: 'retry';
3291: --------------------------------------------------------------------------
3292: IF (PG_DEBUG = 'Y') THEN
3293: arp_standard.debug(l_debug_info);
3294: END IF;
3295: p_past_reg_status := G_RETRY;
3296:
3297: END IF;
3316: l_debug_info := 'Return not null past reg status for pre-existing ' ||
3317: 'registration';
3318: ------------------------------------------------------------------------
3319: IF (PG_DEBUG = 'Y') THEN
3320: arp_standard.debug(l_debug_info);
3321: END IF;
3322: p_past_reg_status := l_registration_status;
3323:
3324: END IF; -- l_registration_status IS NOT NULL
3326: ------------------------------------------------------------------------
3327: l_debug_info := 'Pass back previous registration id';
3328: ------------------------------------------------------------------------
3329: IF (PG_DEBUG = 'Y') THEN
3330: arp_standard.debug(l_debug_info);
3331: END IF;
3332: p_registration_id := l_registration_id;
3333:
3334: ELSIF (l_registration_cur%ROWCOUNT = 0) THEN
3338: l_debug_info := 'User has pre-existing registrations returned by registration ' ||
3339: 'cursor';
3340: --------------------------------------------------------------------------
3341: IF (PG_DEBUG = 'Y') THEN
3342: arp_standard.debug(l_debug_info);
3343: END IF;
3344: p_registration_id := NULL;
3345: p_past_reg_status := G_NEW_ACCESS;
3346:
3349: l_debug_info := 'No pre-existing registrations returned by registration ' ||
3350: 'cursor';
3351: --------------------------------------------------------------------------
3352: IF (PG_DEBUG = 'Y') THEN
3353: arp_standard.debug(l_debug_info);
3354: END IF;
3355: p_registration_id := NULL;
3356: p_past_reg_status := G_NEW;
3357:
3361: ----------------------------------------------------------------------------
3362: l_debug_info := 'CLOSE registration_cur';
3363: ----------------------------------------------------------------------------
3364: IF (PG_DEBUG = 'Y') THEN
3365: arp_standard.debug(l_debug_info);
3366: END IF;
3367: CLOSE l_registration_cur;
3368:
3369: ----------------------------------------------------------------------------
3369: ----------------------------------------------------------------------------
3370: l_debug_info := 'In debug mode, log that we have exited this procedure';
3371: ----------------------------------------------------------------------------
3372: IF (PG_DEBUG = 'Y') THEN
3373: arp_standard.debug(G_PKG_NAME || l_procedure_name || '-');
3374: END IF;
3375:
3376: EXCEPTION
3377: WHEN OTHERS THEN
3376: EXCEPTION
3377: WHEN OTHERS THEN
3378: IF (SQLCODE <> -20001) THEN
3379: IF (PG_DEBUG = 'Y') THEN
3380: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
3381: arp_standard.debug('Debug Info: ' || l_debug_info);
3382: arp_standard.debug(SQLERRM);
3383: END IF;
3384: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
3377: WHEN OTHERS THEN
3378: IF (SQLCODE <> -20001) THEN
3379: IF (PG_DEBUG = 'Y') THEN
3380: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
3381: arp_standard.debug('Debug Info: ' || l_debug_info);
3382: arp_standard.debug(SQLERRM);
3383: END IF;
3384: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
3385: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
3378: IF (SQLCODE <> -20001) THEN
3379: IF (PG_DEBUG = 'Y') THEN
3380: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
3381: arp_standard.debug('Debug Info: ' || l_debug_info);
3382: arp_standard.debug(SQLERRM);
3383: END IF;
3384: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
3385: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
3386: FND_MESSAGE.SET_TOKEN('PROCEDURE', G_PKG_NAME || l_procedure_name);
3407: --------------------------------------------------------------------
3408: l_debug_info := 'In debug mode, log we have entered this procedure';
3409: --------------------------------------------------------------------
3410: IF (PG_DEBUG = 'Y') THEN
3411: arp_standard.debug(G_PKG_NAME || l_procedure_name || '+');
3412: END IF;
3413: --------------------------------------------------------------------
3414: l_debug_info := 'OpenRegistrationCur, mode = ' || p_mode;
3415: --------------------------------------------------------------------
3474: --------------------------------------------------------------------
3475: l_debug_info := 'In debug mode, log we have exited this procedure';
3476: --------------------------------------------------------------------
3477: IF (PG_DEBUG = 'Y') THEN
3478: arp_standard.debug(G_PKG_NAME || l_procedure_name || '-');
3479: END IF;
3480:
3481: EXCEPTION
3482: WHEN OTHERS THEN
3481: EXCEPTION
3482: WHEN OTHERS THEN
3483: IF (SQLCODE <> -20001) THEN
3484: IF (PG_DEBUG = 'Y') THEN
3485: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
3486: arp_standard.debug('Debug Info: ' || l_debug_info);
3487: arp_standard.debug(SQLERRM);
3488: END IF;
3489: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
3482: WHEN OTHERS THEN
3483: IF (SQLCODE <> -20001) THEN
3484: IF (PG_DEBUG = 'Y') THEN
3485: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
3486: arp_standard.debug('Debug Info: ' || l_debug_info);
3487: arp_standard.debug(SQLERRM);
3488: END IF;
3489: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
3490: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
3483: IF (SQLCODE <> -20001) THEN
3484: IF (PG_DEBUG = 'Y') THEN
3485: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
3486: arp_standard.debug('Debug Info: ' || l_debug_info);
3487: arp_standard.debug(SQLERRM);
3488: END IF;
3489: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
3490: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
3491: FND_MESSAGE.SET_TOKEN('PROCEDURE', G_PKG_NAME || l_procedure_name);
3508: ----------------------------------------------------------------------------
3509: l_debug_info := 'In debug mode, log we have entered this procedure';
3510: ----------------------------------------------------------------------------
3511: IF (PG_DEBUG = 'Y') THEN
3512: arp_standard.debug(G_PKG_NAME || l_procedure_name || '+');
3513: END IF;
3514:
3515: ARI_REG_VERIFY_PKG.Update_Row(x_Registration_id => p_registration_id,
3516: x_Status_Lookup_Code => G_RETRY,
3522: ----------------------------------------------------------------------------
3523: l_debug_info := 'In debug mode, log that we have exited this procedure';
3524: ----------------------------------------------------------------------------
3525: IF (PG_DEBUG = 'Y') THEN
3526: arp_standard.debug(G_PKG_NAME || l_procedure_name || '-');
3527: END IF;
3528: COMMIT;
3529: EXCEPTION
3530: WHEN OTHERS THEN
3529: EXCEPTION
3530: WHEN OTHERS THEN
3531: IF (SQLCODE <> -20001) THEN
3532: IF (PG_DEBUG = 'Y') THEN
3533: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
3534: arp_standard.debug('Debug Info: ' || l_debug_info);
3535: arp_standard.debug(SQLERRM);
3536: END IF;
3537: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
3530: WHEN OTHERS THEN
3531: IF (SQLCODE <> -20001) THEN
3532: IF (PG_DEBUG = 'Y') THEN
3533: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
3534: arp_standard.debug('Debug Info: ' || l_debug_info);
3535: arp_standard.debug(SQLERRM);
3536: END IF;
3537: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
3538: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
3531: IF (SQLCODE <> -20001) THEN
3532: IF (PG_DEBUG = 'Y') THEN
3533: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
3534: arp_standard.debug('Debug Info: ' || l_debug_info);
3535: arp_standard.debug(SQLERRM);
3536: END IF;
3537: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
3538: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
3539: FND_MESSAGE.SET_TOKEN('PROCEDURE', G_PKG_NAME || l_procedure_name);
3573: ----------------------------------------------------------------------------
3574: l_debug_info := 'In debug mode, log we have entered this procedure';
3575: ----------------------------------------------------------------------------
3576: IF (PG_DEBUG = 'Y') THEN
3577: arp_standard.debug(G_PKG_NAME || l_procedure_name || '+');
3578: END IF;
3579:
3580: OpenCustAcctCur(p_customer_id => p_access_domain_cust_id,
3581: p_cust_acct_cur => l_cust_acct_cur);
3583: ------------------------------------------------------------------------
3584: l_debug_info := 'Fetching the results of the cursor';
3585: ------------------------------------------------------------------------
3586: IF (PG_DEBUG = 'Y') THEN
3587: arp_standard.debug(l_debug_info);
3588: END IF;
3589: ------------------------------------------------------------------------
3590: LOOP
3591: FETCH l_cust_acct_cur INTO l_cust_acct_id,
3596: EXIT WHEN l_cust_acct_cur%NOTFOUND;
3597: END LOOP;
3598:
3599: IF (PG_DEBUG = 'Y') THEN
3600: arp_standard.debug(l_debug_info);
3601: END IF;
3602:
3603: IF (l_party_type = G_ORGANIZATION) THEN
3604: l_cust_acct_type := G_BUSINESS;
3610: ----------------------------------------------------------------------------
3611: l_debug_info := 'Insert New Registration Record';
3612: ----------------------------------------------------------------------------
3613: IF (PG_DEBUG = 'Y') THEN
3614: arp_standard.debug(l_debug_info);
3615: END IF;
3616: ARI_REG_VERIFY_PKG.Insert_Row(
3617: x_Rowid => l_rowid,
3618: x_Registration_Id => p_registration_id,
3640: ----------------------------------------------------------------------------
3641: l_debug_info := 'In debug mode, log that we have exited this procedure';
3642: ----------------------------------------------------------------------------
3643: IF (PG_DEBUG = 'Y') THEN
3644: arp_standard.debug(G_PKG_NAME || l_procedure_name || '-');
3645: END IF;
3646:
3647: EXCEPTION
3648: WHEN OTHERS THEN
3647: EXCEPTION
3648: WHEN OTHERS THEN
3649: IF (SQLCODE <> -20001) THEN
3650: IF (PG_DEBUG = 'Y') THEN
3651: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
3652: arp_standard.debug('Debug Info: ' || l_debug_info);
3653: arp_standard.debug(SQLERRM);
3654: END IF;
3655: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
3648: WHEN OTHERS THEN
3649: IF (SQLCODE <> -20001) THEN
3650: IF (PG_DEBUG = 'Y') THEN
3651: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
3652: arp_standard.debug('Debug Info: ' || l_debug_info);
3653: arp_standard.debug(SQLERRM);
3654: END IF;
3655: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
3656: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
3649: IF (SQLCODE <> -20001) THEN
3650: IF (PG_DEBUG = 'Y') THEN
3651: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
3652: arp_standard.debug('Debug Info: ' || l_debug_info);
3653: arp_standard.debug(SQLERRM);
3654: END IF;
3655: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
3656: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
3657: FND_MESSAGE.SET_TOKEN('PROCEDURE', G_PKG_NAME || l_procedure_name);
3675: --------------------------------------------------------------------
3676: l_debug_info := 'In debug mode, log we have entered this procedure';
3677: --------------------------------------------------------------------
3678: IF (PG_DEBUG = 'Y') THEN
3679: arp_standard.debug(G_PKG_NAME || l_procedure_name || '+');
3680: END IF;
3681:
3682: --------------------------------------------------------------------
3683: l_debug_info := 'Open p_cust_acct_cur';
3698: --------------------------------------------------------------------
3699: l_debug_info := 'In debug mode, log we have exited this procedure';
3700: --------------------------------------------------------------------
3701: IF (PG_DEBUG = 'Y') THEN
3702: arp_standard.debug(G_PKG_NAME || l_procedure_name || '-');
3703: END IF;
3704:
3705: EXCEPTION
3706: WHEN OTHERS THEN
3705: EXCEPTION
3706: WHEN OTHERS THEN
3707: IF (SQLCODE <> -20001) THEN
3708: IF (PG_DEBUG = 'Y') THEN
3709: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
3710: arp_standard.debug('Debug Info: ' || l_debug_info);
3711: arp_standard.debug(SQLERRM);
3712: END IF;
3713: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
3706: WHEN OTHERS THEN
3707: IF (SQLCODE <> -20001) THEN
3708: IF (PG_DEBUG = 'Y') THEN
3709: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
3710: arp_standard.debug('Debug Info: ' || l_debug_info);
3711: arp_standard.debug(SQLERRM);
3712: END IF;
3713: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
3714: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
3707: IF (SQLCODE <> -20001) THEN
3708: IF (PG_DEBUG = 'Y') THEN
3709: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
3710: arp_standard.debug('Debug Info: ' || l_debug_info);
3711: arp_standard.debug(SQLERRM);
3712: END IF;
3713: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
3714: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
3715: FND_MESSAGE.SET_TOKEN('PROCEDURE', G_PKG_NAME || l_procedure_name);
3732: --------------------------------------------------------------------
3733: l_debug_info := 'In debug mode, log we have entered this procedure';
3734: --------------------------------------------------------------------
3735: IF (PG_DEBUG = 'Y') THEN
3736: arp_standard.debug(G_PKG_NAME || l_procedure_name || '+');
3737: END IF;
3738:
3739: --------------------------------------------------------------------
3740: l_debug_info := 'Open p_cust_acct_cur';
3745: EXCEPTION
3746: WHEN OTHERS THEN
3747: IF (SQLCODE <> -20001) THEN
3748: IF (PG_DEBUG = 'Y') THEN
3749: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
3750: arp_standard.debug('Debug Info: ' || l_debug_info);
3751: arp_standard.debug(SQLERRM);
3752: END IF;
3753: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
3746: WHEN OTHERS THEN
3747: IF (SQLCODE <> -20001) THEN
3748: IF (PG_DEBUG = 'Y') THEN
3749: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
3750: arp_standard.debug('Debug Info: ' || l_debug_info);
3751: arp_standard.debug(SQLERRM);
3752: END IF;
3753: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
3754: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
3747: IF (SQLCODE <> -20001) THEN
3748: IF (PG_DEBUG = 'Y') THEN
3749: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
3750: arp_standard.debug('Debug Info: ' || l_debug_info);
3751: arp_standard.debug(SQLERRM);
3752: END IF;
3753: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
3754: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
3755: FND_MESSAGE.SET_TOKEN('PROCEDURE', G_PKG_NAME || l_procedure_name);
3773: --------------------------------------------------------------------
3774: l_debug_info := 'In debug mode, log we have entered this procedure';
3775: --------------------------------------------------------------------
3776: IF (PG_DEBUG = 'Y') THEN
3777: arp_standard.debug(G_PKG_NAME || l_procedure_name || '+');
3778: END IF;
3779: --------------------------------------------------------------------
3780: l_debug_info := 'Open p_cust_acct_cur';
3781: --------------------------------------------------------------------
3787: EXCEPTION
3788: WHEN OTHERS THEN
3789: IF (SQLCODE <> -20001) THEN
3790: IF (PG_DEBUG = 'Y') THEN
3791: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
3792: arp_standard.debug('Debug Info: ' || l_debug_info);
3793: arp_standard.debug(SQLERRM);
3794: END IF;
3795: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
3788: WHEN OTHERS THEN
3789: IF (SQLCODE <> -20001) THEN
3790: IF (PG_DEBUG = 'Y') THEN
3791: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
3792: arp_standard.debug('Debug Info: ' || l_debug_info);
3793: arp_standard.debug(SQLERRM);
3794: END IF;
3795: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
3796: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
3789: IF (SQLCODE <> -20001) THEN
3790: IF (PG_DEBUG = 'Y') THEN
3791: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
3792: arp_standard.debug('Debug Info: ' || l_debug_info);
3793: arp_standard.debug(SQLERRM);
3794: END IF;
3795: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
3796: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
3797: FND_MESSAGE.SET_TOKEN('PROCEDURE', G_PKG_NAME || l_procedure_name);
3814: --------------------------------------------------------------------
3815: l_debug_info := 'In debug mode, log we have entered this procedure';
3816: --------------------------------------------------------------------
3817: IF (PG_DEBUG = 'Y') THEN
3818: arp_standard.debug(G_PKG_NAME || l_procedure_name || '+');
3819: END IF;
3820: --------------------------------------------------------------------
3821: l_debug_info := 'Open p_cust_acct_cur';
3822: --------------------------------------------------------------------
3827: EXCEPTION
3828: WHEN OTHERS THEN
3829: IF (SQLCODE <> -20001) THEN
3830: IF (PG_DEBUG = 'Y') THEN
3831: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
3832: arp_standard.debug('Debug Info: ' || l_debug_info);
3833: arp_standard.debug(SQLERRM);
3834: END IF;
3835: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
3828: WHEN OTHERS THEN
3829: IF (SQLCODE <> -20001) THEN
3830: IF (PG_DEBUG = 'Y') THEN
3831: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
3832: arp_standard.debug('Debug Info: ' || l_debug_info);
3833: arp_standard.debug(SQLERRM);
3834: END IF;
3835: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
3836: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
3829: IF (SQLCODE <> -20001) THEN
3830: IF (PG_DEBUG = 'Y') THEN
3831: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
3832: arp_standard.debug('Debug Info: ' || l_debug_info);
3833: arp_standard.debug(SQLERRM);
3834: END IF;
3835: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
3836: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
3837: FND_MESSAGE.SET_TOKEN('PROCEDURE', G_PKG_NAME || l_procedure_name);
3883: EXCEPTION
3884: WHEN OTHERS THEN
3885: IF (SQLCODE <> -20001) THEN
3886: IF (PG_DEBUG = 'Y') THEN
3887: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
3888: arp_standard.debug('Debug Info: ' || l_debug_info);
3889: arp_standard.debug(SQLERRM);
3890: END IF;
3891: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
3884: WHEN OTHERS THEN
3885: IF (SQLCODE <> -20001) THEN
3886: IF (PG_DEBUG = 'Y') THEN
3887: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
3888: arp_standard.debug('Debug Info: ' || l_debug_info);
3889: arp_standard.debug(SQLERRM);
3890: END IF;
3891: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
3892: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
3885: IF (SQLCODE <> -20001) THEN
3886: IF (PG_DEBUG = 'Y') THEN
3887: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
3888: arp_standard.debug('Debug Info: ' || l_debug_info);
3889: arp_standard.debug(SQLERRM);
3890: END IF;
3891: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
3892: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
3893: FND_MESSAGE.SET_TOKEN('PROCEDURE', G_PKG_NAME || l_procedure_name);
3977:
3978: IF (SQLCODE <> -20001) THEN
3979: l_error_msg := FND_MESSAGE.Get;
3980: IF (PG_DEBUG = 'Y') THEN
3981: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
3982: arp_standard.debug('Debug Info: ' || l_debug_info);
3983: arp_standard.debug(l_error_msg);
3984: END IF;
3985: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
3978: IF (SQLCODE <> -20001) THEN
3979: l_error_msg := FND_MESSAGE.Get;
3980: IF (PG_DEBUG = 'Y') THEN
3981: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
3982: arp_standard.debug('Debug Info: ' || l_debug_info);
3983: arp_standard.debug(l_error_msg);
3984: END IF;
3985: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
3986: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
3979: l_error_msg := FND_MESSAGE.Get;
3980: IF (PG_DEBUG = 'Y') THEN
3981: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
3982: arp_standard.debug('Debug Info: ' || l_debug_info);
3983: arp_standard.debug(l_error_msg);
3984: END IF;
3985: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
3986: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
3987: FND_MESSAGE.SET_TOKEN('PROCEDURE', G_PKG_NAME || l_procedure_name);
4076:
4077: IF (SQLCODE <> -20001) THEN
4078: l_error_msg := FND_MESSAGE.Get;
4079: IF (PG_DEBUG = 'Y') THEN
4080: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
4081: arp_standard.debug('Debug Info: ' || l_debug_info);
4082: arp_standard.debug(l_error_msg);
4083: END IF;
4084: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
4077: IF (SQLCODE <> -20001) THEN
4078: l_error_msg := FND_MESSAGE.Get;
4079: IF (PG_DEBUG = 'Y') THEN
4080: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
4081: arp_standard.debug('Debug Info: ' || l_debug_info);
4082: arp_standard.debug(l_error_msg);
4083: END IF;
4084: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
4085: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
4078: l_error_msg := FND_MESSAGE.Get;
4079: IF (PG_DEBUG = 'Y') THEN
4080: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
4081: arp_standard.debug('Debug Info: ' || l_debug_info);
4082: arp_standard.debug(l_error_msg);
4083: END IF;
4084: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
4085: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
4086: FND_MESSAGE.SET_TOKEN('PROCEDURE', G_PKG_NAME || l_procedure_name);
4174:
4175: IF (SQLCODE <> -20001) THEN
4176: l_error_msg := FND_MESSAGE.Get;
4177: IF (PG_DEBUG = 'Y') THEN
4178: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
4179: arp_standard.debug('Debug Info: ' || l_debug_info);
4180: arp_standard.debug(l_error_msg);
4181: END IF;
4182: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
4175: IF (SQLCODE <> -20001) THEN
4176: l_error_msg := FND_MESSAGE.Get;
4177: IF (PG_DEBUG = 'Y') THEN
4178: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
4179: arp_standard.debug('Debug Info: ' || l_debug_info);
4180: arp_standard.debug(l_error_msg);
4181: END IF;
4182: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
4183: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
4176: l_error_msg := FND_MESSAGE.Get;
4177: IF (PG_DEBUG = 'Y') THEN
4178: arp_standard.debug('Unexpected Exception in ' || G_PKG_NAME || l_procedure_name);
4179: arp_standard.debug('Debug Info: ' || l_debug_info);
4180: arp_standard.debug(l_error_msg);
4181: END IF;
4182: FND_MESSAGE.SET_NAME ('AR','ARI_REG_DISPLAY_UNEXP_ERROR');
4183: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info);
4184: FND_MESSAGE.SET_TOKEN('PROCEDURE', G_PKG_NAME || l_procedure_name);