65: --=================
66:
67: BEGIN
68:
69: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
70: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
71: ,G_MODULE_HEAD || l_routine || '.begin'
72: ,l_routine || '<'
73: );
66:
67: BEGIN
68:
69: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
70: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
71: ,G_MODULE_HEAD || l_routine || '.begin'
72: ,l_routine || '<'
73: );
74: END IF;
92: -- a complete rollback if the process errors out
93:
94: COMMIT;
95:
96: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
97: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
98: ,G_MODULE_HEAD || l_routine || '.end'
99: ,l_routine || '>'
100: );
93:
94: COMMIT;
95:
96: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
97: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
98: ,G_MODULE_HEAD || l_routine || '.end'
99: ,l_routine || '>'
100: );
101: END IF;
132: l_error_msg VARCHAR2(2000);
133:
134: BEGIN
135:
136: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
137: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
138: ,G_MODULE_HEAD || l_routine || '.begin'
139: ,l_routine || '<'
140: );
133:
134: BEGIN
135:
136: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
137: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
138: ,G_MODULE_HEAD || l_routine || '.begin'
139: ,l_routine || '<'
140: );
141: END IF;
209: ,p_prg_appid => p_prg_appid);
210:
211: END IF;
212:
213: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
214: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
215: ,G_MODULE_HEAD || l_routine || '.end'
216: ,l_routine || '>'
217: );
210:
211: END IF;
212:
213: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
214: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
215: ,G_MODULE_HEAD || l_routine || '.end'
216: ,l_routine || '>'
217: );
218: END IF;
246: l_error_msg VARCHAR2(240);
247:
248: BEGIN
249:
250: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
251: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
252: ,G_MODULE_HEAD || l_routine || '.begin'
253: ,l_routine || '<'
254: );
247:
248: BEGIN
249:
250: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
251: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
252: ,G_MODULE_HEAD || l_routine || '.begin'
253: ,l_routine || '<'
254: );
255: END IF;
298: ,p_req_id => p_req_id
299: ,p_prg_id => p_prg_id
300: ,p_prg_appid => p_prg_appid);
301:
302: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
303: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
304: ,G_MODULE_HEAD || l_routine || '.paclowcode'
305: ,l_error_msg
306: );
299: ,p_prg_id => p_prg_id
300: ,p_prg_appid => p_prg_appid);
301:
302: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
303: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
304: ,G_MODULE_HEAD || l_routine || '.paclowcode'
305: ,l_error_msg
306: );
307: END IF;
327: ,p_prg_appid => p_prg_appid);
328:
329: END IF;
330:
331: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
332: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
333: ,G_MODULE_HEAD || l_routine || '.end'
334: ,l_routine || '>'
335: );
328:
329: END IF;
330:
331: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
332: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
333: ,G_MODULE_HEAD || l_routine || '.end'
334: ,l_routine || '>'
335: );
336: END IF;
371: l_error_msg VARCHAR2(240);
372:
373: BEGIN
374:
375: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
376: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
377: ,G_MODULE_HEAD || l_routine || '.begin'
378: ,l_routine || '<'
379: );
372:
373: BEGIN
374:
375: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
376: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
377: ,G_MODULE_HEAD || l_routine || '.begin'
378: ,l_routine || '<'
379: );
380: END IF;
487: ,p_prg_appid => p_prg_appid);
488:
489: END IF;
490:
491: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
492: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
493: ,G_MODULE_HEAD || l_routine || '.end'
494: ,l_routine || '>'
495: );
488:
489: END IF;
490:
491: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
492: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
493: ,G_MODULE_HEAD || l_routine || '.end'
494: ,l_routine || '>'
495: );
496: END IF;
529: l_error_msg VARCHAR2(240);
530:
531: BEGIN
532:
533: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
534: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
535: ,G_MODULE_HEAD || l_routine || '.begin'
536: ,l_routine || '<'
537: );
530:
531: BEGIN
532:
533: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
534: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
535: ,G_MODULE_HEAD || l_routine || '.begin'
536: ,l_routine || '<'
537: );
538: END IF;
648: ,p_prg_appid => p_prg_appid);
649:
650: END IF;
651:
652: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
653: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
654: ,G_MODULE_HEAD || l_routine || '.end'
655: ,l_routine || '>'
656: );
649:
650: END IF;
651:
652: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
653: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
654: ,G_MODULE_HEAD || l_routine || '.end'
655: ,l_routine || '>'
656: );
657: END IF;
695: DELETE MTL_PAC_ACT_CST_DTL_TEMP
696: WHERE pac_period_id = p_period_id
697: AND cost_group_id = p_cost_group_id;
698:
699: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
700: FND_LOG.string(FND_LOG.LEVEL_EVENT
701: , G_MODULE_HEAD || l_routine || '.Before_retrieve_items'
702: , 'Before Retrieve interorg items'
703: );
696: WHERE pac_period_id = p_period_id
697: AND cost_group_id = p_cost_group_id;
698:
699: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
700: FND_LOG.string(FND_LOG.LEVEL_EVENT
701: , G_MODULE_HEAD || l_routine || '.Before_retrieve_items'
702: , 'Before Retrieve interorg items'
703: );
704: END IF;
832: l_txn_category NUMBER;
833:
834: BEGIN
835:
836: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
837: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
838: ,G_MODULE_HEAD || l_routine || '.begin'
839: ,l_routine || '<'
840: );
833:
834: BEGIN
835:
836: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
837: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
838: ,G_MODULE_HEAD || l_routine || '.begin'
839: ,l_routine || '<'
840: );
841: END IF;
905: l_error_msg := NVL(l_error_msg, 'No Error');
906:
907: IF l_error_num <> 0
908: THEN
909: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
910: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
911: , G_MODULE_HEAD || l_routine || '.others'
912: , 'cost_inv_txn for cost group '||p_cost_group_id||' txn id '
913: ||l_upd_val_tab(i).transaction_id||' ('||l_error_code||') '||l_error_msg
906:
907: IF l_error_num <> 0
908: THEN
909: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
910: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
911: , G_MODULE_HEAD || l_routine || '.others'
912: , 'cost_inv_txn for cost group '||p_cost_group_id||' txn id '
913: ||l_upd_val_tab(i).transaction_id||' ('||l_error_code||') '||l_error_msg
914: );
964: l_error_num := NVL(l_error_num, 0);
965: l_error_code := NVL(l_error_code, 'No Error');
966: l_error_msg := NVL(l_error_msg, 'No Error');
967:
968: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
969: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
970: ,G_MODULE_HEAD || l_routine || '.inscppb5'
971: ,'After calling insert_into_cppb:'|| l_error_num || l_error_code || l_error_msg
972: );
965: l_error_code := NVL(l_error_code, 'No Error');
966: l_error_msg := NVL(l_error_msg, 'No Error');
967:
968: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
969: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
970: ,G_MODULE_HEAD || l_routine || '.inscppb5'
971: ,'After calling insert_into_cppb:'|| l_error_num || l_error_code || l_error_msg
972: );
973: END IF;
1011: l_error_msg := NVL(l_error_msg, 'No Error');
1012:
1013: IF l_error_num <> 0
1014: THEN
1015: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1016: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
1017: , G_MODULE_HEAD || l_routine || '.others'
1018: , 'cost_inv_txn for cost group '||p_cost_group_id||' txn id '
1019: ||l_upd_val_tab(i).transaction_id||' ('||l_error_code||') '||l_error_msg
1012:
1013: IF l_error_num <> 0
1014: THEN
1015: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1016: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
1017: , G_MODULE_HEAD || l_routine || '.others'
1018: , 'cost_inv_txn for cost group '||p_cost_group_id||' txn id '
1019: ||l_upd_val_tab(i).transaction_id||' ('||l_error_code||') '||l_error_msg
1020: );
1049: l_error_num := NVL(l_error_num, 0);
1050: l_error_code := NVL(l_error_code, 'No Error');
1051: l_error_msg := NVL(l_error_msg, 'No Error');
1052:
1053: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1054: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1055: ,G_MODULE_HEAD || l_routine || '.inscppb'
1056: ,'After calling insert_into_cppb:'|| l_error_num || l_error_code || l_error_msg
1057: );
1050: l_error_code := NVL(l_error_code, 'No Error');
1051: l_error_msg := NVL(l_error_msg, 'No Error');
1052:
1053: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1054: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1055: ,G_MODULE_HEAD || l_routine || '.inscppb'
1056: ,'After calling insert_into_cppb:'|| l_error_num || l_error_code || l_error_msg
1057: );
1058: END IF;
1077: l_error_num := NVL(l_error_num, 0);
1078: l_error_code := NVL(l_error_code, 'No Error');
1079: l_error_msg := NVL(l_error_msg, 'No Error');
1080:
1081: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1082: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1083: ,G_MODULE_HEAD || l_routine || '.updcppb3'
1084: ,'After calling update_item_cppb:'|| l_error_num || l_error_code || l_error_msg
1085: );
1078: l_error_code := NVL(l_error_code, 'No Error');
1079: l_error_msg := NVL(l_error_msg, 'No Error');
1080:
1081: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1082: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1083: ,G_MODULE_HEAD || l_routine || '.updcppb3'
1084: ,'After calling update_item_cppb:'|| l_error_num || l_error_code || l_error_msg
1085: );
1086: END IF;
1088: END IF;
1089:
1090: IF l_error_num <> 0
1091: THEN
1092: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1093: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
1094: , G_MODULE_HEAD || l_routine || '.others'
1095: , 'Error for cost group '||p_cost_group_id||' ('||l_error_code||') '||l_error_msg
1096: );
1089:
1090: IF l_error_num <> 0
1091: THEN
1092: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1093: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
1094: , G_MODULE_HEAD || l_routine || '.others'
1095: , 'Error for cost group '||p_cost_group_id||' ('||l_error_code||') '||l_error_msg
1096: );
1097: END IF;
1102: FND_MSG_PUB.Add;
1103: RAISE FND_API.G_EXC_ERROR;
1104: END IF;
1105:
1106: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1107: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1108: ,G_MODULE_HEAD || l_routine || '.end'
1109: ,l_routine || '>'
1110: );
1103: RAISE FND_API.G_EXC_ERROR;
1104: END IF;
1105:
1106: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1107: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1108: ,G_MODULE_HEAD || l_routine || '.end'
1109: ,l_routine || '>'
1110: );
1111: END IF;
1322: l_loop_count NUMBER := 0;
1323:
1324: BEGIN
1325:
1326: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1327: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1328: ,G_MODULE_HEAD || l_routine || '.begin'
1329: ,l_routine || '<'
1330: );
1323:
1324: BEGIN
1325:
1326: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1327: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1328: ,G_MODULE_HEAD || l_routine || '.begin'
1329: ,l_routine || '<'
1330: );
1331: END IF;
1329: ,l_routine || '<'
1330: );
1331: END IF;
1332:
1333: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1334: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1335: ,G_MODULE_HEAD || l_routine || 'Daterange'
1336: ,'Start Date:' || p_start_date || ' End Date:' ||
1337: p_end_date
1330: );
1331: END IF;
1332:
1333: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1334: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1335: ,G_MODULE_HEAD || l_routine || 'Daterange'
1336: ,'Start Date:' || p_start_date || ' End Date:' ||
1337: p_end_date
1338: );
1364: ,p_subinventory_code => l_cst_own_txns_tab(i).subinventory_code
1365: ,x_exp_flag => l_exp_flag
1366: ,x_exp_item => l_exp_item);
1367:
1368: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1369: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1370: ,G_MODULE_HEAD || l_routine || '.befcostinvtxn'
1371: ,'Before calling cost_inv_txn: Cost Group Id:' ||
1372: p_cost_group_id || ' Txn Id:' || l_cst_own_txns_tab(i).transaction_id
1365: ,x_exp_flag => l_exp_flag
1366: ,x_exp_item => l_exp_item);
1367:
1368: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1369: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1370: ,G_MODULE_HEAD || l_routine || '.befcostinvtxn'
1371: ,'Before calling cost_inv_txn: Cost Group Id:' ||
1372: p_cost_group_id || ' Txn Id:' || l_cst_own_txns_tab(i).transaction_id
1373: );
1392: l_error_num := NVL(l_error_num, 0);
1393: l_error_code := NVL(l_error_code, 'No Error');
1394: l_error_msg := NVL(l_error_msg, 'No Error');
1395:
1396: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1397: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1398: ,G_MODULE_HEAD || l_routine || '.inscppb'
1399: ,'After calling insert_into_cppb1:'|| l_error_num || l_error_code || l_error_msg
1400: );
1393: l_error_code := NVL(l_error_code, 'No Error');
1394: l_error_msg := NVL(l_error_msg, 'No Error');
1395:
1396: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1397: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1398: ,G_MODULE_HEAD || l_routine || '.inscppb'
1399: ,'After calling insert_into_cppb1:'|| l_error_num || l_error_code || l_error_msg
1400: );
1401: END IF;
1432: ,o_err_num => l_error_num
1433: ,o_err_code => l_error_code
1434: ,o_err_msg => l_error_msg);
1435:
1436: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1437: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1438: ,G_MODULE_HEAD || l_routine || '.befcostinvtxn'
1439: ,'After calling cost_inv_txn:'|| l_error_num || l_error_code || l_error_msg
1440: );
1433: ,o_err_code => l_error_code
1434: ,o_err_msg => l_error_msg);
1435:
1436: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1437: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1438: ,G_MODULE_HEAD || l_routine || '.befcostinvtxn'
1439: ,'After calling cost_inv_txn:'|| l_error_num || l_error_code || l_error_msg
1440: );
1441: END IF;
1447: l_error_msg := NVL(l_error_msg, 'No Error');
1448:
1449: IF l_error_num <> 0
1450: THEN
1451: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1452: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
1453: , G_MODULE_HEAD || l_routine || '.others'
1454: , 'cost_inv_txn for cost group '||p_cost_group_id||' txn id '
1455: ||l_cst_own_txns_tab(i).transaction_id||' ('||l_error_code||') '||l_error_msg
1448:
1449: IF l_error_num <> 0
1450: THEN
1451: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1452: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
1453: , G_MODULE_HEAD || l_routine || '.others'
1454: , 'cost_inv_txn for cost group '||p_cost_group_id||' txn id '
1455: ||l_cst_own_txns_tab(i).transaction_id||' ('||l_error_code||') '||l_error_msg
1456: );
1489: l_error_num := NVL(l_error_num, 0);
1490: l_error_code := NVL(l_error_code, 'No Error');
1491: l_error_msg := NVL(l_error_msg, 'No Error');
1492:
1493: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1494: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1495: ,G_MODULE_HEAD || l_routine || '.inscppb2'
1496: ,'After calling insert_into_cppb:'|| l_error_num || l_error_code || l_error_msg
1497: );
1490: l_error_code := NVL(l_error_code, 'No Error');
1491: l_error_msg := NVL(l_error_msg, 'No Error');
1492:
1493: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1494: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1495: ,G_MODULE_HEAD || l_routine || '.inscppb2'
1496: ,'After calling insert_into_cppb:'|| l_error_num || l_error_code || l_error_msg
1497: );
1498: END IF;
1517: l_error_num := NVL(l_error_num, 0);
1518: l_error_code := NVL(l_error_code, 'No Error');
1519: l_error_msg := NVL(l_error_msg, 'No Error');
1520:
1521: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1522: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1523: ,G_MODULE_HEAD || l_routine || '.updcppb1'
1524: ,'After calling update_cppb:'|| l_error_num || l_error_code || l_error_msg
1525: );
1518: l_error_code := NVL(l_error_code, 'No Error');
1519: l_error_msg := NVL(l_error_msg, 'No Error');
1520:
1521: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1522: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1523: ,G_MODULE_HEAD || l_routine || '.updcppb1'
1524: ,'After calling update_cppb:'|| l_error_num || l_error_code || l_error_msg
1525: );
1526: END IF;
1536: RAISE FND_API.G_EXC_ERROR;
1537: END IF;
1538:
1539:
1540: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1541: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1542: ,G_MODULE_HEAD || l_routine || '.end'
1543: ,l_routine || '>'
1544: );
1537: END IF;
1538:
1539:
1540: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1541: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1542: ,G_MODULE_HEAD || l_routine || '.end'
1543: ,l_routine || '>'
1544: );
1545: END IF;
1657: l_login_id NUMBER;
1658:
1659: BEGIN
1660:
1661: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1662: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1663: ,G_MODULE_HEAD || l_routine || '.begin'
1664: ,l_routine || '<'
1665: );
1658:
1659: BEGIN
1660:
1661: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1662: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1663: ,G_MODULE_HEAD || l_routine || '.begin'
1664: ,l_routine || '<'
1665: );
1666: END IF;
1793: , p_req_id => l_req_id
1794: , p_prg_id => l_prg_id
1795: , p_prg_appid => l_prg_appid);
1796:
1797: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1798: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1799: ,G_MODULE_HEAD || l_routine || '.end'
1800: ,l_routine || '>'
1801: );
1794: , p_prg_id => l_prg_id
1795: , p_prg_appid => l_prg_appid);
1796:
1797: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1798: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1799: ,G_MODULE_HEAD || l_routine || '.end'
1800: ,l_routine || '>'
1801: );
1802: END IF;
1833: x_errbuf := substrb(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE)
1834: ,1
1835: ,250);
1836:
1837: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1838: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
1839: , G_MODULE_HEAD || l_routine , x_errbuf
1840: );
1841: END IF;
1834: ,1
1835: ,250);
1836:
1837: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1838: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
1839: , G_MODULE_HEAD || l_routine , x_errbuf
1840: );
1841: END IF;
1842:
1873: ( FND_FILE.log
1874: , 'Error in begin_cp_worker '|| x_errbuf
1875: );
1876:
1877: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1878: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
1879: , G_MODULE_HEAD || l_routine ||'.others_exc'
1880: , 'others:' || x_errbuf
1881: );
1874: , 'Error in begin_cp_worker '|| x_errbuf
1875: );
1876:
1877: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1878: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
1879: , G_MODULE_HEAD || l_routine ||'.others_exc'
1880: , 'others:' || x_errbuf
1881: );
1882: END IF;