94: l_exp_item NUMBER;
95:
96: BEGIN
97:
98: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
99: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
100: ,G_MODULE_HEAD || l_routine || '.begin'
101: ,l_routine || '<'
102: );
95:
96: BEGIN
97:
98: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
99: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
100: ,G_MODULE_HEAD || l_routine || '.begin'
101: ,l_routine || '<'
102: );
103: END IF;
124:
125: x_exp_item := l_exp_item;
126: x_exp_flag := l_exp_flag;
127:
128: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
129: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
130: ,G_MODULE_HEAD || l_routine || '.end'
131: ,l_routine || '>'
132: );
125: x_exp_item := l_exp_item;
126: x_exp_flag := l_exp_flag;
127:
128: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
129: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
130: ,G_MODULE_HEAD || l_routine || '.end'
131: ,l_routine || '>'
132: );
133: END IF;
192: l_routine CONSTANT VARCHAR2(30) := 'get_phase_status';
193:
194: BEGIN
195:
196: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
197: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
198: ,G_MODULE_HEAD || l_routine || '.begin'
199: ,l_routine || '<'
200: );
193:
194: BEGIN
195:
196: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
197: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
198: ,G_MODULE_HEAD || l_routine || '.begin'
199: ,l_routine || '<'
200: );
201: END IF;
219: AND process_phase = p_phase
220: AND cost_group_id = p_cost_group_id;
221: END IF;
222:
223: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
224: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
225: ,G_MODULE_HEAD || l_routine || '.end'
226: ,l_routine || '>'
227: );
220: AND cost_group_id = p_cost_group_id;
221: END IF;
222:
223: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
224: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
225: ,G_MODULE_HEAD || l_routine || '.end'
226: ,l_routine || '>'
227: );
228: END IF;
269: x_process_upto_date DATE;
270:
271: BEGIN
272:
273: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
274: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
275: ,G_MODULE_HEAD || l_routine || '.begin'
276: ,l_routine || '<'
277: );
270:
271: BEGIN
272:
273: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
274: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
275: ,G_MODULE_HEAD || l_routine || '.begin'
276: ,l_routine || '<'
277: );
278: END IF;
288: TRUNC(FND_DATE.canonical_to_date(l_process_upto_date)) + (86399/86400);
289:
290: RETURN x_process_upto_date;
291:
292: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
293: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
294: ,G_MODULE_HEAD || l_routine || '.end'
295: ,l_routine || '>'
296: );
289:
290: RETURN x_process_upto_date;
291:
292: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
293: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
294: ,G_MODULE_HEAD || l_routine || '.end'
295: ,l_routine || '>'
296: );
297: END IF;
337:
338: BEGIN
339:
340:
341: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
342: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
343: ,G_MODULE_HEAD || l_routine || '.begin'
344: ,l_routine || '<'
345: );
338: BEGIN
339:
340:
341: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
342: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
343: ,G_MODULE_HEAD || l_routine || '.begin'
344: ,l_routine || '<'
345: );
346: END IF;
375: l_error_msg := NVL(l_error_msg, 'No Error');
376:
377: IF l_error_num <> 0
378: THEN
379: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
380: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
381: , G_MODULE_HEAD || l_routine || '.others'
382: , 'process_nonreworkassembly_txns for cost group '||p_cost_group_id||' item id '
383: ||p_inventory_item_id||' ('||l_error_code||') '||l_error_msg
376:
377: IF l_error_num <> 0
378: THEN
379: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
380: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
381: , G_MODULE_HEAD || l_routine || '.others'
382: , 'process_nonreworkassembly_txns for cost group '||p_cost_group_id||' item id '
383: ||p_inventory_item_id||' ('||l_error_code||') '||l_error_msg
384: );
393:
394: END IF;
395:
396:
397: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
398: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
399: ,G_MODULE_HEAD || l_routine || '.end'
400: ,l_routine || '>'
401: );
394: END IF;
395:
396:
397: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
398: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
399: ,G_MODULE_HEAD || l_routine || '.end'
400: ,l_routine || '>'
401: );
402: END IF;
444:
445: BEGIN
446:
447:
448: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
449: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
450: ,G_MODULE_HEAD || l_routine || '.begin'
451: ,l_routine || '<'
452: );
445: BEGIN
446:
447:
448: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
449: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
450: ,G_MODULE_HEAD || l_routine || '.begin'
451: ,l_routine || '<'
452: );
453: END IF;
492:
493: END IF;
494:
495:
496: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
497: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
498: ,G_MODULE_HEAD || l_routine || '.end'
499: ,l_routine || '>'
500: );
493: END IF;
494:
495:
496: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
497: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
498: ,G_MODULE_HEAD || l_routine || '.end'
499: ,l_routine || '>'
500: );
501: END IF;
584: l_loop_count NUMBER := 0;
585:
586: BEGIN
587:
588: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
589: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
590: ,G_MODULE_HEAD || l_routine || '.begin'
591: ,l_routine || '<'
592: );
585:
586: BEGIN
587:
588: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
589: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
590: ,G_MODULE_HEAD || l_routine || '.begin'
591: ,l_routine || '<'
592: );
593: END IF;
629: l_error_num := NVL(l_error_num, 0);
630: l_error_code := NVL(l_error_code, 'No Error');
631: l_error_msg := NVL(l_error_msg, 'No Error');
632:
633: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
634: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
635: ,G_MODULE_HEAD || l_routine || '.inscppb5'
636: ,'After calling insert_into_cppb:'|| l_error_num || l_error_code || l_error_msg
637: );
630: l_error_code := NVL(l_error_code, 'No Error');
631: l_error_msg := NVL(l_error_msg, 'No Error');
632:
633: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
634: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
635: ,G_MODULE_HEAD || l_routine || '.inscppb5'
636: ,'After calling insert_into_cppb:'|| l_error_num || l_error_code || l_error_msg
637: );
638: END IF;
677:
678: END IF; -- error number check
679:
680: IF l_error_num <> 0 THEN
681: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
682: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
683: , G_MODULE_HEAD || l_routine || '.others'
684: , 'cost_inv_txn for cost group '||p_cost_group_id||' txn id '
685: ||l_upd_val_txn_tab(i).transaction_id||' ('||l_error_code||') '||l_error_msg
678: END IF; -- error number check
679:
680: IF l_error_num <> 0 THEN
681: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
682: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
683: , G_MODULE_HEAD || l_routine || '.others'
684: , 'cost_inv_txn for cost group '||p_cost_group_id||' txn id '
685: ||l_upd_val_txn_tab(i).transaction_id||' ('||l_error_code||') '||l_error_msg
686: );
722: l_error_num := NVL(l_error_num, 0);
723: l_error_code := NVL(l_error_code, 'No Error');
724: l_error_msg := NVL(l_error_msg, 'No Error');
725:
726: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
727: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
728: ,G_MODULE_HEAD || l_routine || '.inscppb6'
729: ,'After calling insert_into_cppb:'|| l_error_num || l_error_code || l_error_msg
730: );
723: l_error_code := NVL(l_error_code, 'No Error');
724: l_error_msg := NVL(l_error_msg, 'No Error');
725:
726: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
727: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
728: ,G_MODULE_HEAD || l_routine || '.inscppb6'
729: ,'After calling insert_into_cppb:'|| l_error_num || l_error_code || l_error_msg
730: );
731: END IF;
785: l_error_num := NVL(l_error_num, 0);
786: l_error_code := NVL(l_error_code, 'No Error');
787: l_error_msg := NVL(l_error_msg, 'No Error');
788:
789: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
790: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
791: ,G_MODULE_HEAD || l_routine || '.updcppb3'
792: ,'After calling update_item_cppb:'|| l_error_num || l_error_code || l_error_msg
793: );
786: l_error_code := NVL(l_error_code, 'No Error');
787: l_error_msg := NVL(l_error_msg, 'No Error');
788:
789: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
790: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
791: ,G_MODULE_HEAD || l_routine || '.updcppb3'
792: ,'After calling update_item_cppb:'|| l_error_num || l_error_code || l_error_msg
793: );
794: END IF;
796: END IF;
797:
798: IF l_error_num <> 0
799: THEN
800: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
801: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
802: , G_MODULE_HEAD || l_routine || '.others'
803: , 'Error in cost group ' || p_cost_group_id ||
804: 'txn category:' || p_txn_category || ' ('||l_error_code||') '||l_error_msg
797:
798: IF l_error_num <> 0
799: THEN
800: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
801: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
802: , G_MODULE_HEAD || l_routine || '.others'
803: , 'Error in cost group ' || p_cost_group_id ||
804: 'txn category:' || p_txn_category || ' ('||l_error_code||') '||l_error_msg
805: );
812: RAISE FND_API.G_EXC_ERROR;
813: END IF;
814:
815:
816: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
817: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
818: ,G_MODULE_HEAD || l_routine || '.end'
819: ,l_routine || '>'
820: );
813: END IF;
814:
815:
816: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
817: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
818: ,G_MODULE_HEAD || l_routine || '.end'
819: ,l_routine || '>'
820: );
821: END IF;
865: l_count NUMBER;
866:
867: BEGIN
868:
869: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
870: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
871: ,G_MODULE_HEAD || l_routine || '.begin'
872: ,l_routine || '<'
873: );
866:
867: BEGIN
868:
869: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
870: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
871: ,G_MODULE_HEAD || l_routine || '.begin'
872: ,l_routine || '<'
873: );
874: END IF;
953: RAISE FND_API.G_EXC_ERROR;
954:
955: END IF;
956:
957: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
958: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
959: ,G_MODULE_HEAD || l_routine || '.end'
960: ,l_routine || '>'
961: );
954:
955: END IF;
956:
957: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
958: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
959: ,G_MODULE_HEAD || l_routine || '.end'
960: ,l_routine || '>'
961: );
962: END IF;
979: l_uom_control NUMBER;
980:
981: BEGIN
982:
983: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
984: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
985: ,G_MODULE_HEAD || l_routine || '.begin'
986: ,l_routine || '<'
987: );
980:
981: BEGIN
982:
983: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
984: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
985: ,G_MODULE_HEAD || l_routine || '.begin'
986: ,l_routine || '<'
987: );
988: END IF;
993: WHERE attribute_name = 'MTL_SYSTEM_ITEMS.PRIMARY_UNIT_OF_MEASURE';
994:
995: RETURN l_uom_control;
996:
997: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
998: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
999: ,G_MODULE_HEAD || l_routine || '.end'
1000: ,l_routine || '>'
1001: );
994:
995: RETURN l_uom_control;
996:
997: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
998: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
999: ,G_MODULE_HEAD || l_routine || '.end'
1000: ,l_routine || '>'
1001: );
1002: END IF;
1025: l_message VARCHAR2(250);
1026:
1027: BEGIN
1028:
1029: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1030: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1031: ,G_MODULE_HEAD || l_routine || '.begin'
1032: ,l_routine || '<'
1033: );
1026:
1027: BEGIN
1028:
1029: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1030: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1031: ,G_MODULE_HEAD || l_routine || '.begin'
1032: ,l_routine || '<'
1033: );
1034: END IF;
1072: FND_MSG_PUB.Add;
1073: RAISE FND_API.G_EXC_ERROR;
1074: END IF;
1075:
1076: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1077: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1078: ,G_MODULE_HEAD || l_routine || '.end'
1079: ,l_routine || '>'
1080: );
1073: RAISE FND_API.G_EXC_ERROR;
1074: END IF;
1075:
1076: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1077: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1078: ,G_MODULE_HEAD || l_routine || '.end'
1079: ,l_routine || '>'
1080: );
1081: END IF;
1106: l_mat_relief_algorithm NUMBER;
1107:
1108: BEGIN
1109:
1110: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1111: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1112: ,G_MODULE_HEAD || l_routine || '.begin'
1113: ,l_routine || '<'
1114: );
1107:
1108: BEGIN
1109:
1110: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1111: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1112: ,G_MODULE_HEAD || l_routine || '.begin'
1113: ,l_routine || '<'
1114: );
1115: END IF;
1125:
1126: x_pac_rates_id := l_pac_rates_id;
1127: x_mat_relief_algorithm := l_mat_relief_algorithm;
1128:
1129: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1130: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1131: ,G_MODULE_HEAD || l_routine || '.end'
1132: ,l_routine || '>'
1133: );
1126: x_pac_rates_id := l_pac_rates_id;
1127: x_mat_relief_algorithm := l_mat_relief_algorithm;
1128:
1129: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1130: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1131: ,G_MODULE_HEAD || l_routine || '.end'
1132: ,l_routine || '>'
1133: );
1134: END IF;
1156: l_process_upto_date DATE;
1157:
1158: BEGIN
1159:
1160: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1161: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1162: ,G_MODULE_HEAD || l_routine || '.begin'
1163: ,l_routine || '<'
1164: );
1157:
1158: BEGIN
1159:
1160: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1161: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1162: ,G_MODULE_HEAD || l_routine || '.begin'
1163: ,l_routine || '<'
1164: );
1165: END IF;
1200: RAISE FND_API.G_EXC_ERROR;
1201: END IF;
1202: END IF; -- run options check
1203:
1204: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1205: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1206: ,G_MODULE_HEAD || l_routine || '.end'
1207: ,l_routine || '>'
1208: );
1201: END IF;
1202: END IF; -- run options check
1203:
1204: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1205: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1206: ,G_MODULE_HEAD || l_routine || '.end'
1207: ,l_routine || '>'
1208: );
1209: END IF;
1233: l_num_of_assignments NUMBER;
1234:
1235: BEGIN
1236:
1237: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1238: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1239: ,G_MODULE_HEAD || l_routine || '.begin'
1240: ,l_routine || '<'
1241: );
1234:
1235: BEGIN
1236:
1237: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1238: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1239: ,G_MODULE_HEAD || l_routine || '.begin'
1240: ,l_routine || '<'
1241: );
1242: END IF;
1267:
1268: */
1269: END IF;
1270:
1271: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1272: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1273: ,G_MODULE_HEAD || l_routine || '.end'
1274: ,l_routine || '>'
1275: );
1268: */
1269: END IF;
1270:
1271: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1272: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1273: ,G_MODULE_HEAD || l_routine || '.end'
1274: ,l_routine || '>'
1275: );
1276: END IF;
1296: l_cost_method NUMBER;
1297:
1298: BEGIN
1299:
1300: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1301: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1302: ,G_MODULE_HEAD || l_routine || '.begin'
1303: ,l_routine || '<'
1304: );
1297:
1298: BEGIN
1299:
1300: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1301: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1302: ,G_MODULE_HEAD || l_routine || '.begin'
1303: ,l_routine || '<'
1304: );
1305: END IF;
1311: AND clct.cost_type_id = p_cost_type_id;
1312:
1313: x_cost_method := l_cost_method;
1314:
1315: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1316: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1317: ,G_MODULE_HEAD || l_routine || '.end'
1318: ,l_routine || '>'
1319: );
1312:
1313: x_cost_method := l_cost_method;
1314:
1315: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1316: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1317: ,G_MODULE_HEAD || l_routine || '.end'
1318: ,l_routine || '>'
1319: );
1320: END IF;
1342: l_count NUMBER;
1343: l_message VARCHAR2(250);
1344: BEGIN
1345:
1346: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1347: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1348: ,G_MODULE_HEAD || l_routine || '.begin'
1349: ,l_routine || '<'
1350: );
1343: l_message VARCHAR2(250);
1344: BEGIN
1345:
1346: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1347: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1348: ,G_MODULE_HEAD || l_routine || '.begin'
1349: ,l_routine || '<'
1350: );
1351: END IF;
1373: FND_MSG_PUB.Add;
1374: RAISE FND_API.G_EXC_ERROR;
1375: END IF;
1376:
1377: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1378: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1379: ,G_MODULE_HEAD || l_routine || '.end'
1380: ,l_routine || '>'
1381: );
1374: RAISE FND_API.G_EXC_ERROR;
1375: END IF;
1376:
1377: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1378: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1379: ,G_MODULE_HEAD || l_routine || '.end'
1380: ,l_routine || '>'
1381: );
1382: END IF;
1406: l_end_date VARCHAR2(30);
1407:
1408: BEGIN
1409:
1410: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1411: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1412: ,G_MODULE_HEAD || l_routine || '.begin'
1413: ,l_routine || '<'
1414: );
1407:
1408: BEGIN
1409:
1410: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1411: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1412: ,G_MODULE_HEAD || l_routine || '.begin'
1413: ,l_routine || '<'
1414: );
1415: END IF;
1427:
1428: -- set to 23:59:59 to retrieve all the records
1429: x_end_date := TRUNC(FND_DATE.canonical_to_date(l_end_date)) + (86399/86400);
1430:
1431: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1432: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1433: ,G_MODULE_HEAD || l_routine || '.end'
1434: ,l_routine || '>'
1435: );
1428: -- set to 23:59:59 to retrieve all the records
1429: x_end_date := TRUNC(FND_DATE.canonical_to_date(l_end_date)) + (86399/86400);
1430:
1431: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1432: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1433: ,G_MODULE_HEAD || l_routine || '.end'
1434: ,l_routine || '>'
1435: );
1436: END IF;
1457: l_count NUMBER;
1458: l_message VARCHAR2(250);
1459: BEGIN
1460:
1461: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1462: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1463: ,G_MODULE_HEAD || l_routine || '.begin'
1464: ,l_routine || '<'
1465: );
1458: l_message VARCHAR2(250);
1459: BEGIN
1460:
1461: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1462: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1463: ,G_MODULE_HEAD || l_routine || '.begin'
1464: ,l_routine || '<'
1465: );
1466: END IF;
1481: FND_MSG_PUB.Add;
1482: RAISE FND_API.G_EXC_ERROR;
1483: END IF;
1484:
1485: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1486: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1487: ,G_MODULE_HEAD || l_routine || '.end'
1488: ,l_routine || '>'
1489: );
1482: RAISE FND_API.G_EXC_ERROR;
1483: END IF;
1484:
1485: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1486: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1487: ,G_MODULE_HEAD || l_routine || '.end'
1488: ,l_routine || '>'
1489: );
1490: END IF;
1514: l_period_complete NUMBER;
1515: l_message VARCHAR2(250);
1516: BEGIN
1517:
1518: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1519: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1520: ,G_MODULE_HEAD || l_routine || '.begin'
1521: ,l_routine || '<'
1522: );
1515: l_message VARCHAR2(250);
1516: BEGIN
1517:
1518: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1519: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1520: ,G_MODULE_HEAD || l_routine || '.begin'
1521: ,l_routine || '<'
1522: );
1523: END IF;
1552: END IF;
1553:
1554: END IF;
1555:
1556: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1557: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1558: ,G_MODULE_HEAD || l_routine || '.prevpd'
1559: ,'Previous Period Id:' || l_prev_period_id
1560: );
1553:
1554: END IF;
1555:
1556: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1557: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1558: ,G_MODULE_HEAD || l_routine || '.prevpd'
1559: ,'Previous Period Id:' || l_prev_period_id
1560: );
1561: END IF;
1561: END IF;
1562:
1563: x_prev_period_id := l_prev_period_id;
1564:
1565: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1566: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1567: ,G_MODULE_HEAD || l_routine || '.end'
1568: ,l_routine || '>'
1569: );
1562:
1563: x_prev_period_id := l_prev_period_id;
1564:
1565: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1566: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1567: ,G_MODULE_HEAD || l_routine || '.end'
1568: ,l_routine || '>'
1569: );
1570: END IF;
1591: l_count NUMBER;
1592: l_message VARCHAR2(250);
1593: BEGIN
1594:
1595: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1596: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1597: ,G_MODULE_HEAD || l_routine || '.begin'
1598: ,l_routine || '<'
1599: );
1592: l_message VARCHAR2(250);
1593: BEGIN
1594:
1595: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1596: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1597: ,G_MODULE_HEAD || l_routine || '.begin'
1598: ,l_routine || '<'
1599: );
1600: END IF;
1618: FND_MSG_PUB.Add;
1619: RAISE FND_API.G_EXC_ERROR;
1620: END IF;
1621:
1622: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1623: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1624: ,G_MODULE_HEAD || l_routine || '.end'
1625: ,l_routine || '>'
1626: );
1619: RAISE FND_API.G_EXC_ERROR;
1620: END IF;
1621:
1622: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1623: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1624: ,G_MODULE_HEAD || l_routine || '.end'
1625: ,l_routine || '>'
1626: );
1627: END IF;
1648: l_message VARCHAR2(250);
1649:
1650: BEGIN
1651:
1652: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1653: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1654: ,G_MODULE_HEAD || l_routine || '.begin'
1655: ,l_routine || '<'
1656: );
1649:
1650: BEGIN
1651:
1652: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1653: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1654: ,G_MODULE_HEAD || l_routine || '.begin'
1655: ,l_routine || '<'
1656: );
1657: END IF;
1691: FND_MSG_PUB.Add;
1692: RAISE FND_API.G_EXC_ERROR;
1693: END IF;
1694:
1695: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1696: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1697: ,G_MODULE_HEAD || l_routine || '.end'
1698: ,l_routine || '>'
1699: );
1692: RAISE FND_API.G_EXC_ERROR;
1693: END IF;
1694:
1695: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1696: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1697: ,G_MODULE_HEAD || l_routine || '.end'
1698: ,l_routine || '>'
1699: );
1700: END IF;
2164: group2_other_except EXCEPTION;
2165: error_transaction_id NUMBER;
2166: BEGIN
2167:
2168: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2169: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2170: ,G_MODULE_HEAD || l_routine || '.begin'
2171: ,l_routine || '<'
2172: );
2165: error_transaction_id NUMBER;
2166: BEGIN
2167:
2168: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2169: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2170: ,G_MODULE_HEAD || l_routine || '.begin'
2171: ,l_routine || '<'
2172: );
2173: END IF;
2195: END IF;
2196:
2197: CLOSE get_llc_cur;
2198:
2199: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2200: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
2201: ,G_MODULE_HEAD || l_routine || '.lowlvcg'
2202: ,'Cost Group Id:' || p_cg_tab(l_current_index).cost_group_id || ' Low Level Code:' || l_low_level_code
2203: );
2196:
2197: CLOSE get_llc_cur;
2198:
2199: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2200: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
2201: ,G_MODULE_HEAD || l_routine || '.lowlvcg'
2202: ,'Cost Group Id:' || p_cg_tab(l_current_index).cost_group_id || ' Low Level Code:' || l_low_level_code
2203: );
2204: END IF;
2241: -- Process Group 2 transactions for a completion item in the current level
2242: -- interorg transactions within the same cost group and
2243: -- non interorg transactions
2244: -- ======================================================================
2245: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2246: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
2247: ,G_MODULE_HEAD || l_routine || '.group2_non_interorg'
2248: ,'Group 2 - Transaction Id:'|| l_group2_other_tab(i).transaction_id );
2249:
2242: -- interorg transactions within the same cost group and
2243: -- non interorg transactions
2244: -- ======================================================================
2245: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2246: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
2247: ,G_MODULE_HEAD || l_routine || '.group2_non_interorg'
2248: ,'Group 2 - Transaction Id:'|| l_group2_other_tab(i).transaction_id );
2249:
2250: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
2246: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
2247: ,G_MODULE_HEAD || l_routine || '.group2_non_interorg'
2248: ,'Group 2 - Transaction Id:'|| l_group2_other_tab(i).transaction_id );
2249:
2250: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
2251: ,G_MODULE_HEAD || l_routine || '.gp2_item_id'
2252: ,'Inventory Item Id:' || p_inventory_item_id || ' ' || 'Cost Group Id:'
2253: || p_cg_tab(l_current_index).cost_group_id || ' Period Id:' || p_period_id
2254: );
2261: ,x_exp_flag => l_exp_flag
2262: ,x_exp_item => l_exp_item
2263: );
2264:
2265: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2266: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
2267: ,G_MODULE_HEAD || l_routine || '.exp_flag_wip'
2268: ,'Exp Flag:' || l_exp_flag || ' ' ||
2269: 'Exp Item:' || l_exp_item
2262: ,x_exp_item => l_exp_item
2263: );
2264:
2265: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2266: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
2267: ,G_MODULE_HEAD || l_routine || '.exp_flag_wip'
2268: ,'Exp Flag:' || l_exp_flag || ' ' ||
2269: 'Exp Item:' || l_exp_item
2270: );
2289: ,o_err_num => l_error_num
2290: ,o_err_code => l_error_code
2291: ,o_err_msg => l_error_msg
2292: );
2293: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2294: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
2295: ,G_MODULE_HEAD || l_routine || '.inscppb10'
2296: ,'After calling insert_into_cppb:'|| l_error_num || l_error_code || l_error_msg
2297: );
2290: ,o_err_code => l_error_code
2291: ,o_err_msg => l_error_msg
2292: );
2293: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2294: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
2295: ,G_MODULE_HEAD || l_routine || '.inscppb10'
2296: ,'After calling insert_into_cppb:'|| l_error_num || l_error_code || l_error_msg
2297: );
2298: END IF;
2324: , x_err_code => l_error_code
2325: , x_err_msg => l_error_msg
2326: );
2327:
2328: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2329: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
2330: ,G_MODULE_HEAD || l_routine || '.gp2_charge_wip'
2331: ,'Charge WIP Material:'|| l_error_num || ' ' ||
2332: l_error_code || ' ' || l_error_msg
2325: , x_err_msg => l_error_msg
2326: );
2327:
2328: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2329: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
2330: ,G_MODULE_HEAD || l_routine || '.gp2_charge_wip'
2331: ,'Charge WIP Material:'|| l_error_num || ' ' ||
2332: l_error_code || ' ' || l_error_msg
2333: );
2357: ,o_err_num => l_error_num
2358: ,o_err_code => l_error_code
2359: ,o_err_msg => l_error_msg
2360: );
2361: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2362: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
2363: ,G_MODULE_HEAD || l_routine || '.inscppb11'
2364: ,'After calling insert_into_cppb:'|| l_error_num || l_error_code || l_error_msg
2365: );
2358: ,o_err_code => l_error_code
2359: ,o_err_msg => l_error_msg
2360: );
2361: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2362: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
2363: ,G_MODULE_HEAD || l_routine || '.inscppb11'
2364: ,'After calling insert_into_cppb:'|| l_error_num || l_error_code || l_error_msg
2365: );
2366: END IF;
2405: ,o_err_num => l_error_num
2406: ,o_err_code => l_error_code
2407: ,o_err_msg => l_error_msg);
2408:
2409: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2410: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
2411: ,G_MODULE_HEAD || l_routine || '.befcostinvtxn'
2412: ,'After calling cost_inv_txn:'|| l_error_num || l_error_code || l_error_msg);
2413: END IF;
2406: ,o_err_code => l_error_code
2407: ,o_err_msg => l_error_msg);
2408:
2409: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2410: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
2411: ,G_MODULE_HEAD || l_routine || '.befcostinvtxn'
2412: ,'After calling cost_inv_txn:'|| l_error_num || l_error_code || l_error_msg);
2413: END IF;
2414:
2463: l_error_num := NVL(l_error_num, 0);
2464: l_error_code := NVL(l_error_code, 'No Error');
2465: l_error_msg := NVL(l_error_msg, 'No Error');
2466:
2467: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2468: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
2469: ,G_MODULE_HEAD || l_routine || '.inscppb12'
2470: ,'After calling insert_into_cppb:'|| l_error_num || l_error_code || l_error_msg
2471: );
2464: l_error_code := NVL(l_error_code, 'No Error');
2465: l_error_msg := NVL(l_error_msg, 'No Error');
2466:
2467: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2468: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
2469: ,G_MODULE_HEAD || l_routine || '.inscppb12'
2470: ,'After calling insert_into_cppb:'|| l_error_num || l_error_code || l_error_msg
2471: );
2472: END IF;
2491: l_error_num := NVL(l_error_num, 0);
2492: l_error_code := NVL(l_error_code, 'No Error');
2493: l_error_msg := NVL(l_error_msg, 'No Error');
2494:
2495: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2496: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
2497: ,G_MODULE_HEAD || l_routine || '.updcppb11'
2498: ,'After calling update_item_cppb:'|| l_error_num || l_error_code || l_error_msg
2499: );
2492: l_error_code := NVL(l_error_code, 'No Error');
2493: l_error_msg := NVL(l_error_msg, 'No Error');
2494:
2495: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2496: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
2497: ,G_MODULE_HEAD || l_routine || '.updcppb11'
2498: ,'After calling update_item_cppb:'|| l_error_num || l_error_code || l_error_msg
2499: );
2500: END IF;
2515: l_current_index := p_cg_tab.NEXT(l_current_index);
2516:
2517: END LOOP; -- cost group loop
2518:
2519: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2520: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2521: ,G_MODULE_HEAD || l_routine || '.end'
2522: ,l_routine || '>'
2523: );
2516:
2517: END LOOP; -- cost group loop
2518:
2519: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2520: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2521: ,G_MODULE_HEAD || l_routine || '.end'
2522: ,l_routine || '>'
2523: );
2524: END IF;
2526: EXCEPTION
2527: WHEN FND_API.G_EXC_ERROR THEN
2528: RAISE FND_API.G_EXC_ERROR;
2529: WHEN group2_other_except THEN
2530: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2531: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
2532: , G_MODULE_HEAD || l_routine || '.group2_other_exc'
2533: , 'group2_other_exc for txn_id '||error_transaction_id || l_error_code || l_error_msg
2534: );
2527: WHEN FND_API.G_EXC_ERROR THEN
2528: RAISE FND_API.G_EXC_ERROR;
2529: WHEN group2_other_except THEN
2530: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2531: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
2532: , G_MODULE_HEAD || l_routine || '.group2_other_exc'
2533: , 'group2_other_exc for txn_id '||error_transaction_id || l_error_code || l_error_msg
2534: );
2535: END IF;
2598: AND inventory_item_id = c_inventory_item_id;
2599:
2600: BEGIN
2601:
2602: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2603: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2604: ,G_MODULE_HEAD || l_routine || '.begin'
2605: ,l_routine || '<'
2606: );
2599:
2600: BEGIN
2601:
2602: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2603: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2604: ,G_MODULE_HEAD || l_routine || '.begin'
2605: ,l_routine || '<'
2606: );
2607: END IF;
2680:
2681: END LOOP;
2682:
2683:
2684: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2685: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2686: ,G_MODULE_HEAD || l_routine || '.end'
2687: ,l_routine || '>'
2688: );
2681: END LOOP;
2682:
2683:
2684: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2685: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2686: ,G_MODULE_HEAD || l_routine || '.end'
2687: ,l_routine || '>'
2688: );
2689: END IF;
2759: l_continue_loop_flag VARCHAR2(1) := 'Y';
2760:
2761: BEGIN
2762:
2763: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2764: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2765: ,G_MODULE_HEAD || l_routine || '.begin'
2766: ,l_routine || '<'
2767: );
2760:
2761: BEGIN
2762:
2763: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2764: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2765: ,G_MODULE_HEAD || l_routine || '.begin'
2766: ,l_routine || '<'
2767: );
2768: END IF;
2866: -- Completion Items not exist
2867: l_topmost_bom_level_code := 1001;
2868: END IF;
2869:
2870: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2871: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
2872: ,G_MODULE_HEAD || l_routine || '.topmostbomlvl'
2873: ,'Topmost bom level code across items in all CGs:' || l_topmost_bom_level_code
2874: );
2867: l_topmost_bom_level_code := 1001;
2868: END IF;
2869:
2870: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2871: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
2872: ,G_MODULE_HEAD || l_routine || '.topmostbomlvl'
2873: ,'Topmost bom level code across items in all CGs:' || l_topmost_bom_level_code
2874: );
2875: END IF;
2911: INTO l_topmost_absl_level_code
2912: FROM cst_pac_itms_absl_codes
2913: WHERE pac_period_id = p_period_id;
2914:
2915: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2916: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
2917: ,G_MODULE_HEAD || l_routine || '.topmostabscode'
2918: ,'Topmost absorption level code:' || l_topmost_absl_level_code
2919: );
2912: FROM cst_pac_itms_absl_codes
2913: WHERE pac_period_id = p_period_id;
2914:
2915: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2916: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
2917: ,G_MODULE_HEAD || l_routine || '.topmostabscode'
2918: ,'Topmost absorption level code:' || l_topmost_absl_level_code
2919: );
2920: END IF;
2920: END IF;
2921:
2922: WHILE (l_absorption_level_code >= l_topmost_absl_level_code) LOOP
2923:
2924: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2925: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
2926: ,G_MODULE_HEAD || l_routine || '.abslvcode'
2927: ,'Current absorption level code:' || l_absorption_level_code
2928: );
2921:
2922: WHILE (l_absorption_level_code >= l_topmost_absl_level_code) LOOP
2923:
2924: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2925: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
2926: ,G_MODULE_HEAD || l_routine || '.abslvcode'
2927: ,'Current absorption level code:' || l_absorption_level_code
2928: );
2929: END IF;
2970:
2971:
2972: WHILE (items_in_current_absl_cur%FOUND) LOOP
2973:
2974: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2975: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
2976: ,G_MODULE_HEAD || l_routine || '.absitem'
2977: ,'Current Absorption level item:' || items_in_current_absl_row.inventory_item_id
2978: );
2971:
2972: WHILE (items_in_current_absl_cur%FOUND) LOOP
2973:
2974: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2975: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
2976: ,G_MODULE_HEAD || l_routine || '.absitem'
2977: ,'Current Absorption level item:' || items_in_current_absl_row.inventory_item_id
2978: );
2979: END IF;
2995: AND cpet.assembly_item_id = items_in_current_absl_row.inventory_item_id
2996: AND cpet.component_item_id <> cpet.assembly_item_id
2997: );
2998:
2999: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3000: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
3001: ,G_MODULE_HEAD || l_routine || '.minchildabslv'
3002: ,'Highest absorption level across its child items:' || l_min_child_absl_level_code
3003: );
2996: AND cpet.component_item_id <> cpet.assembly_item_id
2997: );
2998:
2999: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3000: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
3001: ,G_MODULE_HEAD || l_routine || '.minchildabslv'
3002: ,'Highest absorption level across its child items:' || l_min_child_absl_level_code
3003: );
3004: END IF;
3009:
3010: -- bump up the absorption level of parent item
3011: l_reposition_absl_level_code := l_min_child_absl_level_code - 1;
3012:
3013: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3014: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
3015: ,G_MODULE_HEAD || l_routine || '.reposabslvcode'
3016: ,'Reposition Absorption Level Code:' || l_reposition_absl_level_code || ' Item Id:' || items_in_current_absl_row.inventory_item_id
3017: );
3010: -- bump up the absorption level of parent item
3011: l_reposition_absl_level_code := l_min_child_absl_level_code - 1;
3012:
3013: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3014: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
3015: ,G_MODULE_HEAD || l_routine || '.reposabslvcode'
3016: ,'Reposition Absorption Level Code:' || l_reposition_absl_level_code || ' Item Id:' || items_in_current_absl_row.inventory_item_id
3017: );
3018: END IF;
3034: END LOOP; -- absorption level loop
3035:
3036: END LOOP; -- absorption loop count
3037:
3038: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3039: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3040: ,G_MODULE_HEAD || l_routine || '.end'
3041: ,l_routine || '>'
3042: );
3035:
3036: END LOOP; -- absorption loop count
3037:
3038: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3039: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3040: ,G_MODULE_HEAD || l_routine || '.end'
3041: ,l_routine || '>'
3042: );
3043: END IF;
3087: ( FND_FILE.log
3088: , '>> CST_PERIODIC_ABSORPTION_PROC:validate_uncosted_txns'
3089: );
3090:
3091: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3092: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3093: ,G_MODULE_HEAD || l_routine || '.begin'
3094: ,l_routine || '<'
3095: );
3088: , '>> CST_PERIODIC_ABSORPTION_PROC:validate_uncosted_txns'
3089: );
3090:
3091: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3092: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3093: ,G_MODULE_HEAD || l_routine || '.begin'
3094: ,l_routine || '<'
3095: );
3096: END IF;
3115: AND mmtt.transaction_date BETWEEN p_period_start_date AND p_period_end_date
3116: AND ROWNUM = 1;
3117:
3118:
3119: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3120: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
3121: ,G_MODULE_HEAD || l_routine || '.pendmmtt'
3122: ,'Pending Txns in MMTT:' || l_count_rows
3123: );
3116: AND ROWNUM = 1;
3117:
3118:
3119: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3120: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
3121: ,G_MODULE_HEAD || l_routine || '.pendmmtt'
3122: ,'Pending Txns in MMTT:' || l_count_rows
3123: );
3124: END IF;
3138: WHERE CST_PAC_ITERATION_PROCESS_PVT.Check_Cst_Group_Org(mti.organization_id) = 'Y'
3139: AND mti.transaction_date BETWEEN p_period_start_date AND p_period_end_date
3140: AND ROWNUM = 1;
3141:
3142: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3143: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
3144: ,G_MODULE_HEAD || l_routine || '.pendmti'
3145: ,'Pending Txns in MTI:' || l_count_rows
3146: );
3139: AND mti.transaction_date BETWEEN p_period_start_date AND p_period_end_date
3140: AND ROWNUM = 1;
3141:
3142: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3143: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
3144: ,G_MODULE_HEAD || l_routine || '.pendmti'
3145: ,'Pending Txns in MTI:' || l_count_rows
3146: );
3147: END IF;
3161: WHERE CST_PAC_ITERATION_PROCESS_PVT.Check_Cst_Group_Org(wcti.organization_id) = 'Y'
3162: AND wcti.transaction_date BETWEEN p_period_start_date AND p_period_end_date
3163: AND ROWNUM = 1;
3164:
3165: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3166: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
3167: ,G_MODULE_HEAD || l_routine || '.pendwcti'
3168: ,'Pending Txns in WCTI:' || l_count_rows
3169: );
3162: AND wcti.transaction_date BETWEEN p_period_start_date AND p_period_end_date
3163: AND ROWNUM = 1;
3164:
3165: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3166: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
3167: ,G_MODULE_HEAD || l_routine || '.pendwcti'
3168: ,'Pending Txns in WCTI:' || l_count_rows
3169: );
3170: END IF;
3188: )
3189: AND rti.transaction_date BETWEEN p_period_start_date AND p_period_end_date
3190: AND ROWNUM = 1;
3191:
3192: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3193: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
3194: ,G_MODULE_HEAD || l_routine || '.pendrti'
3195: ,'Pending Txns in RTI:' || l_count_rows
3196: );
3189: AND rti.transaction_date BETWEEN p_period_start_date AND p_period_end_date
3190: AND ROWNUM = 1;
3191:
3192: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3193: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
3194: ,G_MODULE_HEAD || l_routine || '.pendrti'
3195: ,'Pending Txns in RTI:' || l_count_rows
3196: );
3197: END IF;
3221: AND CST_PAC_ITERATION_PROCESS_PVT.Check_Cst_Group_Org(mmt.organization_id) = 'Y'
3222: AND mmt.transaction_date BETWEEN p_period_start_date AND p_period_end_date
3223: AND ROWNUM = 1;
3224:
3225: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3226: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
3227: ,G_MODULE_HEAD || l_routine || '.backmmt'
3228: ,'Backdated Txns in MMT:' || l_count_rows
3229: );
3222: AND mmt.transaction_date BETWEEN p_period_start_date AND p_period_end_date
3223: AND ROWNUM = 1;
3224:
3225: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3226: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
3227: ,G_MODULE_HEAD || l_routine || '.backmmt'
3228: ,'Backdated Txns in MMT:' || l_count_rows
3229: );
3230: END IF;
3252: AND CST_PAC_ITERATION_PROCESS_PVT.Check_Cst_Group_Org(wt.organization_id) = 'Y'
3253: AND wt.transaction_date BETWEEN p_period_start_date AND p_period_end_date
3254: AND ROWNUM = 1;
3255:
3256: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3257: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
3258: ,G_MODULE_HEAD || l_routine || '.backwt'
3259: ,'Backdated Txns in WT:' || l_count_rows
3260: );
3253: AND wt.transaction_date BETWEEN p_period_start_date AND p_period_end_date
3254: AND ROWNUM = 1;
3255:
3256: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3257: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
3258: ,G_MODULE_HEAD || l_routine || '.backwt'
3259: ,'Backdated Txns in WT:' || l_count_rows
3260: );
3261: END IF;
3283: AND CST_PAC_ITERATION_PROCESS_PVT.Check_Cst_Group_Org(rt.organization_id) = 'Y'
3284: AND rt.transaction_date BETWEEN p_period_start_date AND p_period_end_date
3285: AND ROWNUM = 1;
3286:
3287: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3288: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
3289: ,G_MODULE_HEAD || l_routine || '.backrt'
3290: ,'Backdated Txns in RT:' || l_count_rows
3291: );
3284: AND rt.transaction_date BETWEEN p_period_start_date AND p_period_end_date
3285: AND ROWNUM = 1;
3286:
3287: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3288: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
3289: ,G_MODULE_HEAD || l_routine || '.backrt'
3290: ,'Backdated Txns in RT:' || l_count_rows
3291: );
3292: END IF;
3315: AND rae.transaction_date BETWEEN p_period_start_date AND p_period_end_date
3316: AND rae.event_type_id IN (7,8, 9, 10)
3317: AND ROWNUM = 1;
3318:
3319: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3320: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
3321: ,G_MODULE_HEAD || l_routine || '.backrae'
3322: ,'Backdated Txns in RAE:' || l_count_rows
3323: );
3316: AND rae.event_type_id IN (7,8, 9, 10)
3317: AND ROWNUM = 1;
3318:
3319: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3320: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
3321: ,G_MODULE_HEAD || l_routine || '.backrae'
3322: ,'Backdated Txns in RAE:' || l_count_rows
3323: );
3324: END IF;
3333: ( FND_FILE.log
3334: , '<< CST_PERIODIC_ABSORPTION_PROC:validate_uncosted_txns'
3335: );
3336:
3337: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3338: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3339: ,G_MODULE_HEAD || l_routine || '.end'
3340: ,l_routine || '>'
3341: );
3334: , '<< CST_PERIODIC_ABSORPTION_PROC:validate_uncosted_txns'
3335: );
3336:
3337: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3338: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3339: ,G_MODULE_HEAD || l_routine || '.end'
3340: ,l_routine || '>'
3341: );
3342: END IF;
3343:
3344:
3345: EXCEPTION
3346: WHEN l_pending_txns_except THEN
3347: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3348: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
3349: , G_MODULE_HEAD || l_routine || '.pendtxn1_exc'
3350: , 'Pending Trasactions exist. Process all the pending transactions by import through applications interface'
3351: );
3344:
3345: EXCEPTION
3346: WHEN l_pending_txns_except THEN
3347: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3348: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
3349: , G_MODULE_HEAD || l_routine || '.pendtxn1_exc'
3350: , 'Pending Trasactions exist. Process all the pending transactions by import through applications interface'
3351: );
3352: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
3348: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
3349: , G_MODULE_HEAD || l_routine || '.pendtxn1_exc'
3350: , 'Pending Trasactions exist. Process all the pending transactions by import through applications interface'
3351: );
3352: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
3353: , G_MODULE_HEAD || l_routine || '.pendtxn2_exc'
3354: , 'Rerun the processor with run options Start'
3355: );
3356: END IF;
3359: FND_MSG_PUB.Add;
3360: RAISE FND_API.G_EXC_ERROR;
3361:
3362: WHEN l_backdated_txns_except THEN
3363: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3364: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
3365: , G_MODULE_HEAD || l_routine || '.backdated_exc'
3366: , 'Backdated Trasactions exist. Rerun the processor with run options Start');
3367: END IF;
3360: RAISE FND_API.G_EXC_ERROR;
3361:
3362: WHEN l_backdated_txns_except THEN
3363: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3364: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
3365: , G_MODULE_HEAD || l_routine || '.backdated_exc'
3366: , 'Backdated Trasactions exist. Rerun the processor with run options Start');
3367: END IF;
3368:
3407: ( FND_FILE.log
3408: , '>> CST_PERIODIC_ABSORPTION_PROC.Insert_Ending_Balance_All_Cgs'
3409: );
3410:
3411: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3412: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3413: ,G_MODULE_HEAD || l_routine || '.begin'
3414: ,l_routine || '<'
3415: );
3408: , '>> CST_PERIODIC_ABSORPTION_PROC.Insert_Ending_Balance_All_Cgs'
3409: );
3410:
3411: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3412: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3413: ,G_MODULE_HEAD || l_routine || '.begin'
3414: ,l_routine || '<'
3415: );
3416: END IF;
3454: ( FND_FILE.log
3455: , '<< CST_PERIODIC_ABSORPTION_PROC.Insert_Ending_Balance_All_Cgs'
3456: );
3457:
3458: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3459: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3460: ,G_MODULE_HEAD || l_routine || '.end'
3461: ,l_routine || '>'
3462: );
3455: , '<< CST_PERIODIC_ABSORPTION_PROC.Insert_Ending_Balance_All_Cgs'
3456: );
3457:
3458: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3459: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3460: ,G_MODULE_HEAD || l_routine || '.end'
3461: ,l_routine || '>'
3462: );
3463: END IF;
3507:
3508: l_present_cg VARCHAR2(1);
3509:
3510: BEGIN
3511: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3512: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3513: , G_MODULE_HEAD || l_routine || '.begin'
3514: , l_routine || '<'
3515: );
3508: l_present_cg VARCHAR2(1);
3509:
3510: BEGIN
3511: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3512: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3513: , G_MODULE_HEAD || l_routine || '.begin'
3514: , l_routine || '<'
3515: );
3516: END IF;
3536: END IF;
3537:
3538: CLOSE c_non_interorg_cg_cur;
3539:
3540: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3541: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
3542: , G_MODULE_HEAD || l_routine || '.prcg'
3543: , 'Non-Interorg Cost Group(Y/N):' || p_cost_group_id || ' ' || l_present_cg
3544: );
3537:
3538: CLOSE c_non_interorg_cg_cur;
3539:
3540: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3541: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
3542: , G_MODULE_HEAD || l_routine || '.prcg'
3543: , 'Non-Interorg Cost Group(Y/N):' || p_cost_group_id || ' ' || l_present_cg
3544: );
3545: END IF;
3545: END IF;
3546:
3547: RETURN l_present_cg;
3548:
3549: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3550: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3551: ,G_MODULE_HEAD || l_routine || '.end'
3552: ,l_routine || '>'
3553: );
3546:
3547: RETURN l_present_cg;
3548:
3549: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3550: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3551: ,G_MODULE_HEAD || l_routine || '.end'
3552: ,l_routine || '>'
3553: );
3554: END IF;
3668: l_error_msg VARCHAR2(240);
3669:
3670: BEGIN
3671:
3672: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3673: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3674: ,G_MODULE_HEAD || l_routine || '.begin'
3675: ,l_routine || '<'
3676: );
3669:
3670: BEGIN
3671:
3672: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3673: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3674: ,G_MODULE_HEAD || l_routine || '.begin'
3675: ,l_routine || '<'
3676: );
3677: END IF;
3787:
3788: l_current_level_code := l_current_level_idx;
3789:
3790: -- Display current BOM level code
3791: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3792: FND_LOG.string(FND_LOG.LEVEL_EVENT
3793: , G_MODULE_HEAD || l_routine || '.currentabslevel'
3794: , 'Current absorption Level Code:' || l_current_level_code
3795: );
3788: l_current_level_code := l_current_level_idx;
3789:
3790: -- Display current BOM level code
3791: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3792: FND_LOG.string(FND_LOG.LEVEL_EVENT
3793: , G_MODULE_HEAD || l_routine || '.currentabslevel'
3794: , 'Current absorption Level Code:' || l_current_level_code
3795: );
3796: END IF;
3820:
3821: l_inventory_item_id := G_ITEM_LEVEL_TBL(l_item_idx).inventory_item_id;
3822: l_inventory_item_number := Get_Item_Number(l_inventory_item_id);
3823:
3824: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3825: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
3826: , G_MODULE_HEAD || l_routine ||'.item'
3827: , 'Inventory Item Id:' || l_inventory_item_id ||
3828: ' Item Number:' || l_inventory_item_number
3821: l_inventory_item_id := G_ITEM_LEVEL_TBL(l_item_idx).inventory_item_id;
3822: l_inventory_item_number := Get_Item_Number(l_inventory_item_id);
3823:
3824: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3825: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
3826: , G_MODULE_HEAD || l_routine ||'.item'
3827: , 'Inventory Item Id:' || l_inventory_item_id ||
3828: ' Item Number:' || l_inventory_item_number
3829: );
3988:
3989:
3990: IF l_non_interorg_cg_check = 'Y' THEN
3991:
3992: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3993: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
3994: ,G_MODULE_HEAD || l_routine || '.noncgid'
3995: ,'Non Interorg Cost Group Id:' || p_cg_tab(l_cg_idx).cost_group_id
3996: );
3989:
3990: IF l_non_interorg_cg_check = 'Y' THEN
3991:
3992: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3993: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
3994: ,G_MODULE_HEAD || l_routine || '.noncgid'
3995: ,'Non Interorg Cost Group Id:' || p_cg_tab(l_cg_idx).cost_group_id
3996: );
3997: END IF;
4068: l_error_num := NVL(l_error_num, 0);
4069: l_error_code := NVL(l_error_code, 'No Error');
4070: l_error_msg := NVL(l_error_msg, 'No Error');
4071:
4072: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4073: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4074: ,G_MODULE_HEAD || l_routine || '.update_item_cppb6'
4075: ,'After calling update_item_cppb:'|| l_error_num || l_error_code || l_error_msg
4076: );
4069: l_error_code := NVL(l_error_code, 'No Error');
4070: l_error_msg := NVL(l_error_msg, 'No Error');
4071:
4072: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4073: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4074: ,G_MODULE_HEAD || l_routine || '.update_item_cppb6'
4075: ,'After calling update_item_cppb:'|| l_error_num || l_error_code || l_error_msg
4076: );
4077: END IF;
4077: END IF;
4078:
4079: IF l_error_num <> 0
4080: THEN
4081: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4082: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
4083: , G_MODULE_HEAD || l_routine || '.others'
4084: , 'Error in cost group ' || p_cg_tab(l_cg_idx).cost_group_id ||
4085: 'txn category :' || l_txn_category || ' ('||l_error_code||') '||l_error_msg
4078:
4079: IF l_error_num <> 0
4080: THEN
4081: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4082: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
4083: , G_MODULE_HEAD || l_routine || '.others'
4084: , 'Error in cost group ' || p_cg_tab(l_cg_idx).cost_group_id ||
4085: 'txn category :' || l_txn_category || ' ('||l_error_code||') '||l_error_msg
4086: );
4187: l_error_num := NVL(l_error_num, 0);
4188: l_error_code := NVL(l_error_code, 'No Error');
4189: l_error_msg := NVL(l_error_msg, 'No Error');
4190:
4191: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4192: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4193: ,G_MODULE_HEAD || l_routine || '.update_item_cppb7'
4194: ,'After calling update_item_cppb:'|| l_error_num || l_error_code || l_error_msg
4195: );
4188: l_error_code := NVL(l_error_code, 'No Error');
4189: l_error_msg := NVL(l_error_msg, 'No Error');
4190:
4191: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4192: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4193: ,G_MODULE_HEAD || l_routine || '.update_item_cppb7'
4194: ,'After calling update_item_cppb:'|| l_error_num || l_error_code || l_error_msg
4195: );
4196: END IF;
4196: END IF;
4197:
4198: IF l_error_num <> 0
4199: THEN
4200: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4201: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
4202: , G_MODULE_HEAD || l_routine || '.others'
4203: , 'Error in cost group ' || p_cg_tab(l_cg_idx).cost_group_id ||
4204: 'txn category :' || l_txn_category || ' ('||l_error_code||') '||l_error_msg
4197:
4198: IF l_error_num <> 0
4199: THEN
4200: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4201: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
4202: , G_MODULE_HEAD || l_routine || '.others'
4203: , 'Error in cost group ' || p_cg_tab(l_cg_idx).cost_group_id ||
4204: 'txn category :' || l_txn_category || ' ('||l_error_code||') '||l_error_msg
4205: );
4234: IF (l_interorg_item_flag = 1 AND l_iteration_proc_flag = 'Y') THEN
4235:
4236: -- Check whether tolerance achieved for an interorg item in the
4237: -- current absorption level
4238: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4239: FND_LOG.string(FND_LOG.LEVEL_EVENT
4240: , G_MODULE_HEAD || l_routine || '.check_nontol_items_lvl'
4241: , 'Check whether tolerance achieved for the item'
4242: );
4235:
4236: -- Check whether tolerance achieved for an interorg item in the
4237: -- current absorption level
4238: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4239: FND_LOG.string(FND_LOG.LEVEL_EVENT
4240: , G_MODULE_HEAD || l_routine || '.check_nontol_items_lvl'
4241: , 'Check whether tolerance achieved for the item'
4242: );
4243: END IF;
4277: -- ==========================================================================
4278: IF (l_interorg_item_flag = 1 AND l_tol_item_flag = G_TOL_ACHIEVED_FORALL_CG ) OR
4279: (l_interorg_item_flag = 0) OR (l_iteration_proc_flag = 'N' ) THEN
4280:
4281: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4282: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4283: , G_MODULE_HEAD || l_routine || '.gp2txn'
4284: , 'Processing WIP Issue and other group 2 transactions'
4285: );
4278: IF (l_interorg_item_flag = 1 AND l_tol_item_flag = G_TOL_ACHIEVED_FORALL_CG ) OR
4279: (l_interorg_item_flag = 0) OR (l_iteration_proc_flag = 'N' ) THEN
4280:
4281: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4282: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4283: , G_MODULE_HEAD || l_routine || '.gp2txn'
4284: , 'Processing WIP Issue and other group 2 transactions'
4285: );
4286: END IF;
4453:
4454:
4455: END IF; -- iteration process enabled check
4456:
4457: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4458: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4459: ,G_MODULE_HEAD || l_routine || '.end'
4460: ,l_routine || '>'
4461: );
4454:
4455: END IF; -- iteration process enabled check
4456:
4457: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4458: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4459: ,G_MODULE_HEAD || l_routine || '.end'
4460: ,l_routine || '>'
4461: );
4462: END IF;
4569: ( FND_FILE.log
4570: , '>> CST_PERIODIC_ABSORPTION_PROC:process_logical_txns'
4571: );
4572:
4573: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4574: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4575: ,G_MODULE_HEAD || l_routine || '.begin'
4576: ,l_routine || '<'
4577: );
4570: , '>> CST_PERIODIC_ABSORPTION_PROC:process_logical_txns'
4571: );
4572:
4573: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4574: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4575: ,G_MODULE_HEAD || l_routine || '.begin'
4576: ,l_routine || '<'
4577: );
4578: END IF;
4591: l_loop_count := l_logical_txn_tab.count;
4592:
4593: FOR i IN 1..l_loop_count
4594: LOOP
4595: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4596: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4597: ,G_MODULE_HEAD || l_routine || '.logical_txn1'
4598: ,'logical transaction - Transaction Id:' || l_logical_txn_tab(i).transaction_id || ' Action Id:' || l_logical_txn_tab(i).transaction_action_id
4599: );
4592:
4593: FOR i IN 1..l_loop_count
4594: LOOP
4595: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4596: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4597: ,G_MODULE_HEAD || l_routine || '.logical_txn1'
4598: ,'logical transaction - Transaction Id:' || l_logical_txn_tab(i).transaction_id || ' Action Id:' || l_logical_txn_tab(i).transaction_action_id
4599: );
4600: END IF;
4598: ,'logical transaction - Transaction Id:' || l_logical_txn_tab(i).transaction_id || ' Action Id:' || l_logical_txn_tab(i).transaction_action_id
4599: );
4600: END IF;
4601:
4602: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4603: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4604: ,G_MODULE_HEAD || l_routine || '.logical_txn2'
4605: ,'Source Type Id:' || l_logical_txn_tab(i).transaction_source_type_id || ' inventory item id:' || l_logical_txn_tab(i).inventory_item_id
4606: );
4599: );
4600: END IF;
4601:
4602: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4603: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4604: ,G_MODULE_HEAD || l_routine || '.logical_txn2'
4605: ,'Source Type Id:' || l_logical_txn_tab(i).transaction_source_type_id || ' inventory item id:' || l_logical_txn_tab(i).inventory_item_id
4606: );
4607: END IF;
4652: ( FND_FILE.log
4653: , '<< CST_PERIODIC_ABSORPTION_PROC:process_logical_txns'
4654: );
4655:
4656: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4657: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4658: ,G_MODULE_HEAD || l_routine || '.end'
4659: ,l_routine || '>'
4660: );
4653: , '<< CST_PERIODIC_ABSORPTION_PROC:process_logical_txns'
4654: );
4655:
4656: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4657: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4658: ,G_MODULE_HEAD || l_routine || '.end'
4659: ,l_routine || '>'
4660: );
4661: END IF;
4784:
4785:
4786: BEGIN
4787:
4788: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4789: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4790: ,G_MODULE_HEAD || l_routine || '.begin'
4791: ,l_routine || '<'
4792: );
4785:
4786: BEGIN
4787:
4788: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4789: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4790: ,G_MODULE_HEAD || l_routine || '.begin'
4791: ,l_routine || '<'
4792: );
4793: END IF;
4803: l_current_index := p_cg_tab.FIRST;
4804:
4805: LOOP
4806:
4807: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4808: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4809: ,G_MODULE_HEAD || l_routine || '.cgid'
4810: ,'Cost Group Id:' || p_cg_tab(l_current_index).cost_group_id
4811: );
4804:
4805: LOOP
4806:
4807: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4808: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4809: ,G_MODULE_HEAD || l_routine || '.cgid'
4810: ,'Cost Group Id:' || p_cg_tab(l_current_index).cost_group_id
4811: );
4812: END IF;
4850: RAISE FND_API.G_EXC_ERROR;
4851: END IF;
4852: -- store the request id in G_REQUEST_TABLE
4853: fnd_file.put_line(FND_FILE.LOG, 'Request Id for Cost Group ' || p_cg_tab(l_current_index).cost_group_id ||' : '||l_submit_req_id);
4854: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4855: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4856: ,G_MODULE_HEAD || l_routine || '.reqId'
4857: ,'Request '|| l_submit_req_id ||' submitted for Cost Group Id: ' || p_cg_tab(l_current_index).cost_group_id
4858: );
4851: END IF;
4852: -- store the request id in G_REQUEST_TABLE
4853: fnd_file.put_line(FND_FILE.LOG, 'Request Id for Cost Group ' || p_cg_tab(l_current_index).cost_group_id ||' : '||l_submit_req_id);
4854: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4855: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4856: ,G_MODULE_HEAD || l_routine || '.reqId'
4857: ,'Request '|| l_submit_req_id ||' submitted for Cost Group Id: ' || p_cg_tab(l_current_index).cost_group_id
4858: );
4859: END IF;
4947: ( FND_FILE.log
4948: , 'Cost Group Id:' || p_cg_tab(l_current_index).cost_group_id
4949: );
4950:
4951: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4952: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4953: ,G_MODULE_HEAD || l_routine || '.cgid'
4954: ,'Cost Group Id:' || p_cg_tab(l_current_index).cost_group_id
4955: );
4948: , 'Cost Group Id:' || p_cg_tab(l_current_index).cost_group_id
4949: );
4950:
4951: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4952: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4953: ,G_MODULE_HEAD || l_routine || '.cgid'
4954: ,'Cost Group Id:' || p_cg_tab(l_current_index).cost_group_id
4955: );
4956: END IF;
5054: );
5055: END IF; -- Phase 7 check
5056:
5057:
5058: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5059: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
5060: ,G_MODULE_HEAD || l_routine || '.end'
5061: ,l_routine || '>'
5062: );
5055: END IF; -- Phase 7 check
5056:
5057:
5058: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5059: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
5060: ,G_MODULE_HEAD || l_routine || '.end'
5061: ,l_routine || '>'
5062: );
5063: END IF;
5143: l_cost_group_idx BINARY_INTEGER;
5144:
5145: BEGIN
5146:
5147: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5148: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
5149: ,G_MODULE_HEAD || l_routine || '.begin'
5150: ,l_routine || '<'
5151: );
5144:
5145: BEGIN
5146:
5147: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5148: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
5149: ,G_MODULE_HEAD || l_routine || '.begin'
5150: ,l_routine || '<'
5151: );
5152: END IF;
5272: l_end_date := CST_PERIODIC_ABSORPTION_PROC.Find_Prev_Process_Upto_Date
5273: (p_pac_period_id => p_period_id);
5274: END IF;
5275:
5276: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5277: FND_LOG.string(FND_LOG.LEVEL_EVENT
5278: ,G_MODULE_HEAD || l_routine || '.dtrange'
5279: ,'Date Range:' || TO_CHAR(l_start_date,'DD-MON-YYYY HH24:MI:SS') || ' ' || TO_CHAR(l_end_date,'DD-MON-YYYY HH24:MI:SS')
5280: );
5273: (p_pac_period_id => p_period_id);
5274: END IF;
5275:
5276: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5277: FND_LOG.string(FND_LOG.LEVEL_EVENT
5278: ,G_MODULE_HEAD || l_routine || '.dtrange'
5279: ,'Date Range:' || TO_CHAR(l_start_date,'DD-MON-YYYY HH24:MI:SS') || ' ' || TO_CHAR(l_end_date,'DD-MON-YYYY HH24:MI:SS')
5280: );
5281: END IF;
5285: LOOP
5286:
5287: -- The following checks need to be made for each cost group
5288:
5289: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5290: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
5291: ,G_MODULE_HEAD || l_routine || '.cgid'
5292: ,'Cost Group Id:' || l_txn_tab(l_current_index).cost_group_id
5293: );
5286:
5287: -- The following checks need to be made for each cost group
5288:
5289: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5290: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
5291: ,G_MODULE_HEAD || l_routine || '.cgid'
5292: ,'Cost Group Id:' || l_txn_tab(l_current_index).cost_group_id
5293: );
5294: END IF;
5379: ,p_end_date => l_end_date
5380: ,p_run_options => l_run_options
5381: );
5382:
5383: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5384: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
5385: ,G_MODULE_HEAD || l_routine || '.end'
5386: ,l_routine || '>'
5387: );
5380: ,p_run_options => l_run_options
5381: );
5382:
5383: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5384: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
5385: ,G_MODULE_HEAD || l_routine || '.end'
5386: ,l_routine || '>'
5387: );
5388: END IF;
5403: x_return_status := FND_API.G_RET_STS_ERROR;
5404: x_msg_data := l_msg_data;
5405: END IF;
5406:
5407: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5408: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
5409: , G_MODULE_HEAD || l_routine , x_msg_data
5410: );
5411: END IF;
5404: x_msg_data := l_msg_data;
5405: END IF;
5406:
5407: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5408: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
5409: , G_MODULE_HEAD || l_routine , x_msg_data
5410: );
5411: END IF;
5412:
5423: ( FND_FILE.log
5424: , 'Error in transfer_cp_manager '|| x_msg_data || ' ' || substr(l_msg_data, 1,250)
5425: );
5426:
5427: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5428: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
5429: , G_MODULE_HEAD || l_routine ||'.others_exc'
5430: , 'others:' || x_msg_data || ' ' || substr(l_msg_data, 1,250)
5431: );
5424: , 'Error in transfer_cp_manager '|| x_msg_data || ' ' || substr(l_msg_data, 1,250)
5425: );
5426:
5427: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5428: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
5429: , G_MODULE_HEAD || l_routine ||'.others_exc'
5430: , 'others:' || x_msg_data || ' ' || substr(l_msg_data, 1,250)
5431: );
5432: END IF;