83: l_msg_data VARCHAR2(2000);
84: BEGIN
85: FND_MSG_PUB.Reset;
86: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
87: log(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ));
88: END LOOP;
89: -- FND_MSG_PUB.Delete_Msg;
90: END logerr;
91: **/
100: BEGIN
101: FND_MSG_PUB.Reset;
102:
103: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
104: l_msg_data := l_msg_data || ' ' || FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE );
105: END LOOP;
106: log(l_msg_data);
107: RETURN l_msg_data;
108: END logerror;
132: FND_MSG_PUB.ADD;
133: FND_MSG_PUB.Reset;
134:
135: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
136: log(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ));
137: END LOOP;
138:
139: END mesglog;
140:
163: FND_MSG_PUB.ADD;
164: FND_MSG_PUB.Reset;
165:
166: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
167: out(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ));
168: END LOOP;
169:
170: END mesgout;
171:
194: FND_MSG_PUB.ADD;
195: FND_MSG_PUB.Reset;
196:
197: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
198: outandlog(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ));
199: END LOOP;
200:
201: END mesgoutlog;
202: ---------------------------------------------------------------------
446: IF G_PROF_VAL = 'N' OR G_PROF_VAL = 'Y' THEN
447: -- this means either no vents must be raised or only v2 events must be raised
448: -- hence, raise an error.
449: mesgoutlog('HZ_BES_BO_RAISE_PROFILE_ERROR');
450: RAISE FND_API.G_EXC_ERROR;
451: -- RETURN;
452: END IF;
453:
454: -- check the bulk profile option
457: IF G_BLK_EVT_RAISE = 'N' OR G_BLK_EVT_RAISE = 'Y' THEN
458: null;
459: else
460: mesgoutlog('HZ_BES_BO_FORMAT_PROF_ERROR');
461: RAISE FND_API.G_EXC_ERROR;
462: -- RETURN;
463: END IF;
464:
465: IF G_BLK_EVT_RAISE = 'Y' THEN
964: WHEN OTHERS THEN
965: LOG(SQLERRM);
966: log('unable to raise event ||'||l_key);
967: l_paramlist.DELETE;
968: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
969: END;
970: END IF;
971:
972: IF l_o_ins_flag = 'Y' THEN
999: WHEN OTHERS THEN
1000: LOG(SQLERRM);
1001: log('unable to raise event ||'||l_key);
1002: l_paramlist.DELETE;
1003: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1004: END;
1005: END IF;
1006:
1007: IF l_pc_ins_flag = 'Y' THEN
1034: WHEN OTHERS THEN
1035: LOG(SQLERRM);
1036: log('unable to raise event ||'||l_key);
1037: l_paramlist.DELETE;
1038: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1039: END;
1040: END IF;
1041:
1042: IF l_oc_ins_flag = 'Y' THEN
1069: WHEN OTHERS THEN
1070: LOG(SQLERRM);
1071: log('unable to raise event ||'||l_key);
1072: l_paramlist.DELETE;
1073: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1074: END;
1075: END IF;
1076:
1077: IF l_p_upd_flag = 'Y' THEN
1104: WHEN OTHERS THEN
1105: LOG(SQLERRM);
1106: log('unable to raise event ||'||l_key);
1107: l_paramlist.DELETE;
1108: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1109: END;
1110: END IF;
1111:
1112: IF l_o_upd_flag = 'Y' THEN
1140: WHEN OTHERS THEN
1141: LOG(SQLERRM);
1142: log('unable to raise event ||'||l_key);
1143: l_paramlist.DELETE;
1144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1145: END;
1146: END IF;
1147:
1148: IF l_pc_upd_flag = 'Y' THEN
1175: WHEN OTHERS THEN
1176: LOG(SQLERRM);
1177: log('unable to raise event ||'||l_key);
1178: l_paramlist.DELETE;
1179: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1180: END;
1181: END IF;
1182:
1183: IF l_oc_upd_flag = 'Y' THEN
1210: WHEN OTHERS THEN
1211: LOG(SQLERRM);
1212: log('unable to raise event ||'||l_key);
1213: l_paramlist.DELETE;
1214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1215: END;
1216: END IF;
1217:
1218: commit; -- explicit commit issued because BOT is stamped with event ids bfr
1377: LOG('Raise '||l_event_name);
1378: /*
1379: IF SUBSTR(l_event_name,1,18) <> 'oracle.apps.ar.hz.' THEN
1380: LOG(' not a tca event ');
1381: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1382: END IF;
1383: */
1384: BEGIN
1385: HZ_EVENT_PKG.raise_event(
1389: EXCEPTION
1390: WHEN OTHERS THEN
1391: LOG(SQLERRM);
1392: log('unable to raise event ||'||l_key);
1393: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1394: l_paramlist.DELETE;
1395: END;
1396: l_paramlist.DELETE;
1397:
1417: -- LOG('Delete the records that were not part of any event from BOT');
1418:
1419: LOG('Concurrent Program completed successfully.');
1420: EXCEPTION
1421: WHEN FND_API.G_EXC_ERROR THEN
1422: outandlog('Error: Aborting concurrent program');
1423: retcode := 2;
1424: errbuf := errbuf || logerror;
1425: FND_FILE.close;
1422: outandlog('Error: Aborting concurrent program');
1423: retcode := 2;
1424: errbuf := errbuf || logerror;
1425: FND_FILE.close;
1426: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1427: outandlog(SQLERRM);
1428: outandlog('Error: Aborting concurrent program');
1429: retcode := 2;
1430: errbuf := errbuf || logerror;