307:
308: BEGIN
309:
310:
311: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
312: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
313: , G_MODULE_HEAD || l_routine ||'.begin'
314: , l_routine || '<'
315: );
308: BEGIN
309:
310:
311: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
312: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
313: , G_MODULE_HEAD || l_routine ||'.begin'
314: , l_routine || '<'
315: );
316: END IF;
330:
331:
332: CLOSE new_pwac_cost_cur;
333:
334: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
335: FND_LOG.string(FND_LOG.LEVEL_EVENT
336: , G_MODULE_HEAD || l_routine ||'.Directnewcost'
337: , 'Correspond Txn Id:' || p_opp_transaction_id ||
338: ' Correspond organization Id:' || p_opp_organization_id
331:
332: CLOSE new_pwac_cost_cur;
333:
334: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
335: FND_LOG.string(FND_LOG.LEVEL_EVENT
336: , G_MODULE_HEAD || l_routine ||'.Directnewcost'
337: , 'Correspond Txn Id:' || p_opp_transaction_id ||
338: ' Correspond organization Id:' || p_opp_organization_id
339: || ' New Cost:' || l_correspond_pmac_cost
376: INTO l_correspond_pmac_cost;
377:
378: CLOSE new_pwac_cost_cur;
379:
380: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
381: FND_LOG.string(FND_LOG.LEVEL_EVENT
382: , G_MODULE_HEAD || l_routine ||'.Intransitnewcost'
383: , 'Correspond Txn Id:' || p_opp_transaction_id ||
384: ' Correspond organization Id:' || l_correspond_org_id ||
377:
378: CLOSE new_pwac_cost_cur;
379:
380: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
381: FND_LOG.string(FND_LOG.LEVEL_EVENT
382: , G_MODULE_HEAD || l_routine ||'.Intransitnewcost'
383: , 'Correspond Txn Id:' || p_opp_transaction_id ||
384: ' Correspond organization Id:' || l_correspond_org_id ||
385: ' New Cost:' || l_correspond_pmac_cost
389: END IF; -- interorg transaction check
390:
391: x_correspond_pmac_cost := l_correspond_pmac_cost;
392:
393: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
394: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
395: , G_MODULE_HEAD || l_routine ||'.end'
396: , l_routine || '>'
397: );
390:
391: x_correspond_pmac_cost := l_correspond_pmac_cost;
392:
393: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
394: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
395: , G_MODULE_HEAD || l_routine ||'.end'
396: , l_routine || '>'
397: );
398: END IF;
470: new_cost_intransit_excep EXCEPTION;
471:
472: BEGIN
473:
474: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
475: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
476: , G_MODULE_HEAD || l_routine ||'.begin'
477: , l_routine || '<'
478: );
471:
472: BEGIN
473:
474: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
475: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
476: , G_MODULE_HEAD || l_routine ||'.begin'
477: , l_routine || '<'
478: );
479: END IF;
494: INTO l_new_correspond_cost;
495:
496: CLOSE new_pwac_cost_cur;
497:
498: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
499: FND_LOG.string(FND_LOG.LEVEL_EVENT
500: , G_MODULE_HEAD || l_routine ||'.Directnewcost'
501: , 'Correspond Txn Id:' || p_opp_transaction_id ||
502: ' Correspond organization Id:' || p_opp_organization_id || ' Cost element Id:' || p_cost_element_id ||
495:
496: CLOSE new_pwac_cost_cur;
497:
498: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
499: FND_LOG.string(FND_LOG.LEVEL_EVENT
500: , G_MODULE_HEAD || l_routine ||'.Directnewcost'
501: , 'Correspond Txn Id:' || p_opp_transaction_id ||
502: ' Correspond organization Id:' || p_opp_organization_id || ' Cost element Id:' || p_cost_element_id ||
503: ' Level Type:' || p_level_type || ' New Cost:' || l_new_correspond_cost
545: -- END IF;
546:
547: CLOSE new_pwac_cost_cur;
548:
549: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
550: FND_LOG.string(FND_LOG.LEVEL_EVENT
551: , G_MODULE_HEAD || l_routine ||'.Intransitnewcost'
552: , 'Correspond Txn Id:' || p_opp_transaction_id ||
553: ' Correspond organization Id:' || l_correspond_org_id || ' Cost element Id:' || p_cost_element_id ||
546:
547: CLOSE new_pwac_cost_cur;
548:
549: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
550: FND_LOG.string(FND_LOG.LEVEL_EVENT
551: , G_MODULE_HEAD || l_routine ||'.Intransitnewcost'
552: , 'Correspond Txn Id:' || p_opp_transaction_id ||
553: ' Correspond organization Id:' || l_correspond_org_id || ' Cost element Id:' || p_cost_element_id ||
554: ' Level Type:' || p_level_type || ' New Cost:' ||
559: END IF; -- interorg transaction check
560:
561: x_new_correspond_cost := l_new_correspond_cost;
562:
563: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
564: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
565: , G_MODULE_HEAD || l_routine ||'.end'
566: , l_routine || '>'
567: );
560:
561: x_new_correspond_cost := l_new_correspond_cost;
562:
563: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
564: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
565: , G_MODULE_HEAD || l_routine ||'.end'
566: , l_routine || '>'
567: );
568: END IF;
662: l_cost_group_id NUMBER;
663:
664: BEGIN
665:
666: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
667: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
668: , G_MODULE_HEAD || l_routine ||'.begin'
669: , l_routine || '<'
670: );
663:
664: BEGIN
665:
666: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
667: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
668: , G_MODULE_HEAD || l_routine ||'.begin'
669: , l_routine || '<'
670: );
671: END IF;
669: , l_routine || '<'
670: );
671: END IF;
672:
673: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
674: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
675: , G_MODULE_HEAD || l_routine ||'.txnid'
676: , 'Transaction ID:' || p_transaction_id
677: );
670: );
671: END IF;
672:
673: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
674: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
675: , G_MODULE_HEAD || l_routine ||'.txnid'
676: , 'Transaction ID:' || p_transaction_id
677: );
678: END IF;
711:
712: CLOSE direct_actual_cost_cur;
713:
714:
715: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
716: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
717: , G_MODULE_HEAD || l_routine ||'.Direct_txn'
718: , 'Correspond Txn Info: Organization Id:' ||
719: p_opp_organization_id || ' Transaction Id:' ||
712: CLOSE direct_actual_cost_cur;
713:
714:
715: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
716: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
717: , G_MODULE_HEAD || l_routine ||'.Direct_txn'
718: , 'Correspond Txn Info: Organization Id:' ||
719: p_opp_organization_id || ' Transaction Id:' ||
720: p_opp_transaction_id ||
773: CLOSE intransit_actual_cost_cur;
774:
775: IF l_correspond_txn_flag = 'C' THEN
776: -- Display a message that not cost group found
777: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
778: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
779: , G_MODULE_HEAD || l_routine ||'.nocg'
780: , 'No Cost Group found'
781: );
774:
775: IF l_correspond_txn_flag = 'C' THEN
776: -- Display a message that not cost group found
777: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
778: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
779: , G_MODULE_HEAD || l_routine ||'.nocg'
780: , 'No Cost Group found'
781: );
782: END IF;
781: );
782: END IF;
783: END IF;
784:
785: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
786: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
787: , G_MODULE_HEAD || l_routine ||'.Direct_txn'
788: , 'Correspond Txn Info: Organization Id:' ||
789: l_correspond_org_id || ' Transaction Id:' ||
782: END IF;
783: END IF;
784:
785: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
786: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
787: , G_MODULE_HEAD || l_routine ||'.Direct_txn'
788: , 'Correspond Txn Info: Organization Id:' ||
789: l_correspond_org_id || ' Transaction Id:' ||
790: p_transaction_id ||
799:
800: x_correspond_actual_cost := l_correspond_actual_cost;
801: x_correspond_txn_flag := l_correspond_txn_flag;
802:
803: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
804: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
805: , G_MODULE_HEAD || l_routine ||'.end'
806: , l_routine || '>'
807: );
800: x_correspond_actual_cost := l_correspond_actual_cost;
801: x_correspond_txn_flag := l_correspond_txn_flag;
802:
803: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
804: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
805: , G_MODULE_HEAD || l_routine ||'.end'
806: , l_routine || '>'
807: );
808: END IF;
810: EXCEPTION
811: WHEN FND_API.G_EXC_ERROR THEN
812: RAISE FND_API.G_EXC_ERROR;
813: WHEN OTHERS THEN
814: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
815: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
816: , G_MODULE_HEAD || l_routine ||'.others_exc'
817: , 'txn_id '|| p_transaction_id || 'Opp Txn_id '||p_opp_transaction_id || SQLCODE || substr(SQLERRM, 1,200)
818: );
811: WHEN FND_API.G_EXC_ERROR THEN
812: RAISE FND_API.G_EXC_ERROR;
813: WHEN OTHERS THEN
814: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
815: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
816: , G_MODULE_HEAD || l_routine ||'.others_exc'
817: , 'txn_id '|| p_transaction_id || 'Opp Txn_id '||p_opp_transaction_id || SQLCODE || substr(SQLERRM, 1,200)
818: );
819: END IF;
973: ,x_correspond_actual_cost => l_correspond_actual_cost
974: ,x_correspond_txn_flag => l_correspond_txn_flag
975: );
976:
977: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
978: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
979: , G_MODULE_HEAD || l_routine ||'.actual_cost'
980: , 'Correspond Actual Cost:' || l_correspond_actual_cost
981: || ' ' || 'Correspond Txn Flag:' || l_correspond_txn_flag
974: ,x_correspond_txn_flag => l_correspond_txn_flag
975: );
976:
977: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
978: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
979: , G_MODULE_HEAD || l_routine ||'.actual_cost'
980: , 'Correspond Actual Cost:' || l_correspond_actual_cost
981: || ' ' || 'Correspond Txn Flag:' || l_correspond_txn_flag
982: );
1006: WHEN NO_DATA_FOUND THEN
1007: l_moh_absorption_cost := 0;
1008: END;
1009:
1010: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1011: FND_LOG.string(FND_LOG.LEVEL_STATEMENT , G_MODULE_HEAD || l_routine ||'.moh_actual_cost'
1012: , 'After MOH Retrieve: Cost Group Id:' || l_pac_interorg_txns_tab(i).cost_group_id ||
1013: ' Transaction Id:' || l_pac_interorg_txns_tab(i).transaction_id ||
1014: ' Period Id:' || p_period_id || ' Level Type:' || pac_bal_txn_idx.level_type
1007: l_moh_absorption_cost := 0;
1008: END;
1009:
1010: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1011: FND_LOG.string(FND_LOG.LEVEL_STATEMENT , G_MODULE_HEAD || l_routine ||'.moh_actual_cost'
1012: , 'After MOH Retrieve: Cost Group Id:' || l_pac_interorg_txns_tab(i).cost_group_id ||
1013: ' Transaction Id:' || l_pac_interorg_txns_tab(i).transaction_id ||
1014: ' Period Id:' || p_period_id || ' Level Type:' || pac_bal_txn_idx.level_type
1015: );
1139: WHEN FND_API.G_EXC_ERROR THEN
1140: RAISE FND_API.G_EXC_ERROR;
1141: WHEN OTHERS THEN
1142:
1143: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1144: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
1145: , G_MODULE_HEAD || l_routine ||'.others_exc'
1146: , 'Item_id' ||p_inventory_item_id || SQLCODE || substr(SQLERRM, 1,200)
1147: );
1140: RAISE FND_API.G_EXC_ERROR;
1141: WHEN OTHERS THEN
1142:
1143: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1144: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
1145: , G_MODULE_HEAD || l_routine ||'.others_exc'
1146: , 'Item_id' ||p_inventory_item_id || SQLCODE || substr(SQLERRM, 1,200)
1147: );
1148: END IF;
1194: ( FND_FILE.log
1195: , '>> CST_PERIODIC_ABSORPTION_PROC:Calc_Pmac_For_Interorg'
1196: );
1197:
1198: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1199: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1200: ,G_MODULE_HEAD || l_routine || '.begin'
1201: ,l_routine || '<'
1202: );
1195: , '>> CST_PERIODIC_ABSORPTION_PROC:Calc_Pmac_For_Interorg'
1196: );
1197:
1198: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1199: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1200: ,G_MODULE_HEAD || l_routine || '.begin'
1201: ,l_routine || '<'
1202: );
1203: END IF;
1205: -- Get the period quantity upto interorg receipts
1206: l_cg_idx := to_char(p_cost_group_id);
1207: l_period_quantity := G_CST_GROUP_TBL(l_cg_idx).period_new_quantity;
1208:
1209: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1210: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1211: ,G_MODULE_HEAD || l_routine || 'pdqty'
1212: ,'Cost Group Id:' || p_cost_group_id || ' Inventory Item Id:' || p_inventory_item_id || ' Period Quantity upto interorg receipts:' || l_period_quantity
1213: );
1206: l_cg_idx := to_char(p_cost_group_id);
1207: l_period_quantity := G_CST_GROUP_TBL(l_cg_idx).period_new_quantity;
1208:
1209: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1210: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1211: ,G_MODULE_HEAD || l_routine || 'pdqty'
1212: ,'Cost Group Id:' || p_cost_group_id || ' Inventory Item Id:' || p_inventory_item_id || ' Period Quantity upto interorg receipts:' || l_period_quantity
1213: );
1214: END IF;
1690: ( FND_FILE.log
1691: , '>> CST_PERIODIC_ABSORPTION_PROC.Calc_Pmac_Update_Cppb'
1692: );
1693:
1694: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1695: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1696: ,G_MODULE_HEAD || l_routine || '.begin'
1697: ,l_routine || '>'
1698: );
1691: , '>> CST_PERIODIC_ABSORPTION_PROC.Calc_Pmac_Update_Cppb'
1692: );
1693:
1694: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1695: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1696: ,G_MODULE_HEAD || l_routine || '.begin'
1697: ,l_routine || '>'
1698: );
1699: END IF;
1824: ( FND_FILE.log
1825: , '<< CST_PERIODIC_ABSORPTION_PROC.Calc_Pmac_Update_Cppb'
1826: );
1827:
1828: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1829: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1830: ,G_MODULE_HEAD || l_routine || '.end'
1831: ,l_routine || '>'
1832: );
1825: , '<< CST_PERIODIC_ABSORPTION_PROC.Calc_Pmac_Update_Cppb'
1826: );
1827:
1828: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1829: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1830: ,G_MODULE_HEAD || l_routine || '.end'
1831: ,l_routine || '>'
1832: );
1833: END IF;
1864: l_routine CONSTANT VARCHAR2(30) := 'create_mpacd_with_new_values';
1865:
1866: BEGIN
1867:
1868: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1869: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1870: , G_MODULE_HEAD || l_routine ||'.begin'
1871: , l_routine || '<'
1872: );
1865:
1866: BEGIN
1867:
1868: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1869: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1870: , G_MODULE_HEAD || l_routine ||'.begin'
1871: , l_routine || '<'
1872: );
1873: END IF;
1931: AND cpiit.diverging_flag = 'N'
1932: AND cpiit.interorg_receipt_flag = 'Y');
1933:
1934:
1935: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1936: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1937: , G_MODULE_HEAD || l_routine ||'.end'
1938: , l_routine || '>'
1939: );
1932: AND cpiit.interorg_receipt_flag = 'Y');
1933:
1934:
1935: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1936: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1937: , G_MODULE_HEAD || l_routine ||'.end'
1938: , l_routine || '>'
1939: );
1940: END IF;
1942: EXCEPTION
1943: WHEN FND_API.G_EXC_ERROR THEN
1944: RAISE FND_API.G_EXC_ERROR;
1945: WHEN OTHERS THEN
1946: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1947: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
1948: , G_MODULE_HEAD || l_routine ||'.others_exc'
1949: , 'others:' || SQLCODE || substr(SQLERRM, 1,200)
1950: );
1943: WHEN FND_API.G_EXC_ERROR THEN
1944: RAISE FND_API.G_EXC_ERROR;
1945: WHEN OTHERS THEN
1946: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1947: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
1948: , G_MODULE_HEAD || l_routine ||'.others_exc'
1949: , 'others:' || SQLCODE || substr(SQLERRM, 1,200)
1950: );
1951: END IF;
2023: l_item_balance NUMBER;
2024:
2025: BEGIN
2026:
2027: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2028: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2029: , G_MODULE_HEAD || l_routine ||'.begin'
2030: , l_routine || 'Item Id '||p_inventory_item_id|| ' Cost Group Id '||p_cost_group_id|| '<'
2031: );
2024:
2025: BEGIN
2026:
2027: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2028: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2029: , G_MODULE_HEAD || l_routine ||'.begin'
2030: , l_routine || 'Item Id '||p_inventory_item_id|| ' Cost Group Id '||p_cost_group_id|| '<'
2031: );
2032: END IF;
2040: to_char(mpacd_idx.cost_element_id) || to_char(mpacd_idx.level_type);
2041: l_item_cost := G_CG_PWAC_COST_TBL(l_cg_elmnt_lv_idx).final_new_cost;
2042: l_item_balance := G_CG_PWAC_COST_TBL(l_cg_elmnt_lv_idx).period_new_balance;
2043:
2044: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2045: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
2046: , G_MODULE_HEAD || l_routine ||'.cgellvic'
2047: , 'Cost Layer Id:' || mpacd_idx.cost_layer_id || 'Cost Group element level idx:' || l_cg_elmnt_lv_idx || ' Item Cost:' || l_item_cost || ' Item Balance:' || l_item_balance
2048: );
2041: l_item_cost := G_CG_PWAC_COST_TBL(l_cg_elmnt_lv_idx).final_new_cost;
2042: l_item_balance := G_CG_PWAC_COST_TBL(l_cg_elmnt_lv_idx).period_new_balance;
2043:
2044: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2045: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
2046: , G_MODULE_HEAD || l_routine ||'.cgellvic'
2047: , 'Cost Layer Id:' || mpacd_idx.cost_layer_id || 'Cost Group element level idx:' || l_cg_elmnt_lv_idx || ' Item Cost:' || l_item_cost || ' Item Balance:' || l_item_balance
2048: );
2049: END IF;
2220: ,p_prg_appid => FND_GLOBAL.prog_appl_id
2221: );
2222: END LOOP;
2223: END IF;
2224: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2225: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2226: , G_MODULE_HEAD || l_routine ||'.end'
2227: , l_routine || '>'
2228: );
2221: );
2222: END LOOP;
2223: END IF;
2224: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2225: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2226: , G_MODULE_HEAD || l_routine ||'.end'
2227: , l_routine || '>'
2228: );
2229: END IF;
2231: EXCEPTION
2232: WHEN FND_API.G_EXC_ERROR THEN
2233: RAISE FND_API.G_EXC_ERROR;
2234: WHEN OTHERS THEN
2235: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2236: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
2237: , G_MODULE_HEAD || l_routine ||'.others_exc'
2238: , 'others:' || SQLCODE || substr(SQLERRM, 1,200)
2239: );
2232: WHEN FND_API.G_EXC_ERROR THEN
2233: RAISE FND_API.G_EXC_ERROR;
2234: WHEN OTHERS THEN
2235: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2236: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
2237: , G_MODULE_HEAD || l_routine ||'.others_exc'
2238: , 'others:' || SQLCODE || substr(SQLERRM, 1,200)
2239: );
2240: END IF;
2280: l_cst_group_idx BINARY_INTEGER;
2281:
2282: BEGIN
2283:
2284: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2285: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2286: , G_MODULE_HEAD || l_routine ||'.begin'
2287: , l_routine || '<'
2288: );
2281:
2282: BEGIN
2283:
2284: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2285: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2286: , G_MODULE_HEAD || l_routine ||'.begin'
2287: , l_routine || '<'
2288: );
2289: END IF;
2318: -- the following commit is required to prevent
2319: -- a complete rollback if the process errors out
2320: COMMIT;
2321:
2322: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2323: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2324: , G_MODULE_HEAD || l_routine ||'.end'
2325: , l_routine || '>'
2326: );
2319: -- a complete rollback if the process errors out
2320: COMMIT;
2321:
2322: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2323: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2324: , G_MODULE_HEAD || l_routine ||'.end'
2325: , l_routine || '>'
2326: );
2327: END IF;
2329: EXCEPTION
2330: WHEN FND_API.G_EXC_ERROR THEN
2331: RAISE FND_API.G_EXC_ERROR;
2332: WHEN OTHERS THEN
2333: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2334: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
2335: , G_MODULE_HEAD || l_routine ||'.others_exc'
2336: , 'others:' || SQLCODE || substr(SQLERRM, 1,200)
2337: );
2330: WHEN FND_API.G_EXC_ERROR THEN
2331: RAISE FND_API.G_EXC_ERROR;
2332: WHEN OTHERS THEN
2333: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2334: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
2335: , G_MODULE_HEAD || l_routine ||'.others_exc'
2336: , 'others:' || SQLCODE || substr(SQLERRM, 1,200)
2337: );
2338: END IF;
2399: l_cst_group_idx BINARY_INTEGER;
2400:
2401: BEGIN
2402:
2403: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2404: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2405: , G_MODULE_HEAD || l_routine ||'.begin'
2406: , l_routine || '<'
2407: );
2400:
2401: BEGIN
2402:
2403: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2404: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2405: , G_MODULE_HEAD || l_routine ||'.begin'
2406: , l_routine || '<'
2407: );
2408: END IF;
2440: -- a complete rollback if the process errors out
2441:
2442: COMMIT;
2443:
2444: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2445: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2446: , G_MODULE_HEAD || l_routine ||'.end'
2447: , l_routine || '>'
2448: );
2441:
2442: COMMIT;
2443:
2444: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2445: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2446: , G_MODULE_HEAD || l_routine ||'.end'
2447: , l_routine || '>'
2448: );
2449: END IF;
2451: EXCEPTION
2452: WHEN FND_API.G_EXC_ERROR THEN
2453: RAISE FND_API.G_EXC_ERROR;
2454: WHEN OTHERS THEN
2455: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2456: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
2457: , G_MODULE_HEAD || l_routine ||'.others_exc'
2458: , 'others:' || SQLCODE || substr(SQLERRM, 1,200)
2459: );
2452: WHEN FND_API.G_EXC_ERROR THEN
2453: RAISE FND_API.G_EXC_ERROR;
2454: WHEN OTHERS THEN
2455: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2456: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
2457: , G_MODULE_HEAD || l_routine ||'.others_exc'
2458: , 'others:' || SQLCODE || substr(SQLERRM, 1,200)
2459: );
2460: END IF;
2547: l_message VARCHAR2(2000);
2548:
2549: BEGIN
2550:
2551: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2552: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2553: , G_MODULE_HEAD || l_routine ||'.begin'
2554: , l_routine || '<'
2555: );
2548:
2549: BEGIN
2550:
2551: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2552: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2553: , G_MODULE_HEAD || l_routine ||'.begin'
2554: , l_routine || '<'
2555: );
2556: END IF;
2557:
2558: -- Assign Inventory Item Number
2559: l_inventory_item_number := p_inventory_item_number;
2560:
2561: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2562: FND_LOG.string(FND_LOG.LEVEL_EVENT
2563: , G_MODULE_HEAD || l_routine ||'.item'
2564: , 'Inventory Item Id:' || p_inventory_item_id ||
2565: ' Item Number:' || l_inventory_item_number
2558: -- Assign Inventory Item Number
2559: l_inventory_item_number := p_inventory_item_number;
2560:
2561: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2562: FND_LOG.string(FND_LOG.LEVEL_EVENT
2563: , G_MODULE_HEAD || l_routine ||'.item'
2564: , 'Inventory Item Id:' || p_inventory_item_id ||
2565: ' Item Number:' || l_inventory_item_number
2566: );
2590: -- ======================================
2591: l_cost_group_id_idx := cost_group_item_info_row.cost_group_id;
2592: l_cost_group_name := G_CST_GROUP_TBL(l_cost_group_id_idx).cost_group;
2593:
2594: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2595: FND_LOG.string(FND_LOG.LEVEL_EVENT
2596: , G_MODULE_HEAD || l_routine ||'.cgname'
2597: , 'Cost Group Index:' || l_cost_group_id_idx || ' Cost Group Name:' || l_cost_group_name ||
2598: ' Prev Itr Item Cost:' || cost_group_item_info_row.prev_itr_item_cost ||
2591: l_cost_group_id_idx := cost_group_item_info_row.cost_group_id;
2592: l_cost_group_name := G_CST_GROUP_TBL(l_cost_group_id_idx).cost_group;
2593:
2594: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2595: FND_LOG.string(FND_LOG.LEVEL_EVENT
2596: , G_MODULE_HEAD || l_routine ||'.cgname'
2597: , 'Cost Group Index:' || l_cost_group_id_idx || ' Cost Group Name:' || l_cost_group_name ||
2598: ' Prev Itr Item Cost:' || cost_group_item_info_row.prev_itr_item_cost ||
2599: ' Curr Itr Item Cost:' || cost_group_item_info_row.item_cost
2639: EXCEPTION
2640: WHEN FND_API.G_EXC_ERROR THEN
2641: RAISE FND_API.G_EXC_ERROR;
2642: WHEN OTHERS THEN
2643: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2644: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
2645: , G_MODULE_HEAD || l_routine ||'.others_exc'
2646: , 'Item_id'||p_inventory_item_id ||'Iteration Number' ||p_iteration_num || SQLCODE || substr(SQLERRM, 1,200)
2647: );
2640: WHEN FND_API.G_EXC_ERROR THEN
2641: RAISE FND_API.G_EXC_ERROR;
2642: WHEN OTHERS THEN
2643: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2644: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
2645: , G_MODULE_HEAD || l_routine ||'.others_exc'
2646: , 'Item_id'||p_inventory_item_id ||'Iteration Number' ||p_iteration_num || SQLCODE || substr(SQLERRM, 1,200)
2647: );
2648: END IF;
2705: l_cost_group_id_idx BINARY_INTEGER;
2706: l_organization_id_idx BINARY_INTEGER;
2707:
2708: BEGIN
2709: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2710: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2711: , G_MODULE_HEAD || l_routine ||'.begin'
2712: , 'Initialize <'
2713: );
2706: l_organization_id_idx BINARY_INTEGER;
2707:
2708: BEGIN
2709: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2710: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2711: , G_MODULE_HEAD || l_routine ||'.begin'
2712: , 'Initialize <'
2713: );
2714: END IF;
2739: INTO cst_group_row;
2740:
2741: END LOOP;
2742:
2743: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2744: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
2745: , G_MODULE_HEAD || l_routine || '.valid_cost_group'
2746: , 'Number of valid cost groups in LE:' || G_CST_GROUP_TBL.COUNT
2747: );
2740:
2741: END LOOP;
2742:
2743: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2744: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
2745: , G_MODULE_HEAD || l_routine || '.valid_cost_group'
2746: , 'Number of valid cost groups in LE:' || G_CST_GROUP_TBL.COUNT
2747: );
2748: END IF;
2770: INTO cst_group_org_row;
2771:
2772: END LOOP;
2773:
2774: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2775: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
2776: , G_MODULE_HEAD || l_routine || '.valid_organizations'
2777: , 'Number of valid organizations:'|| G_CST_GROUP_ORG_TBL.COUNT
2778: );
2771:
2772: END LOOP;
2773:
2774: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2775: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
2776: , G_MODULE_HEAD || l_routine || '.valid_organizations'
2777: , 'Number of valid organizations:'|| G_CST_GROUP_ORG_TBL.COUNT
2778: );
2779: END IF;
2780:
2781: CLOSE cst_group_org_cursor;
2782:
2783:
2784: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2785: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2786: , G_MODULE_HEAD || l_routine ||'.end'
2787: , l_routine || '>'
2788: );
2781: CLOSE cst_group_org_cursor;
2782:
2783:
2784: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2785: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2786: , G_MODULE_HEAD || l_routine ||'.end'
2787: , l_routine || '>'
2788: );
2789: END IF;
2791: EXCEPTION
2792: WHEN FND_API.G_EXC_ERROR THEN
2793: RAISE FND_API.G_EXC_ERROR;
2794: WHEN OTHERS THEN
2795: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2796: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
2797: , G_MODULE_HEAD || l_routine ||'.others_exc'
2798: , 'others:' || SQLCODE || substr(SQLERRM, 1,200)
2799: );
2792: WHEN FND_API.G_EXC_ERROR THEN
2793: RAISE FND_API.G_EXC_ERROR;
2794: WHEN OTHERS THEN
2795: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2796: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
2797: , G_MODULE_HEAD || l_routine ||'.others_exc'
2798: , 'others:' || SQLCODE || substr(SQLERRM, 1,200)
2799: );
2800: END IF;
2844: l_routine CONSTANT VARCHAR2(30) := 'Populate_Temp_Tables';
2845: l_txn_type NUMBER := 0;
2846: BEGIN
2847:
2848: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2849: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2850: , G_MODULE_HEAD || l_routine ||'.begin'
2851: , l_routine || '<'
2852: );
2845: l_txn_type NUMBER := 0;
2846: BEGIN
2847:
2848: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2849: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2850: , G_MODULE_HEAD || l_routine ||'.begin'
2851: , l_routine || '<'
2852: );
2853: END IF;
3216: AND ccga3.cost_group_id = p_cost_group_id )))))
3217: )));
3218:
3219:
3220: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3221: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3222: , G_MODULE_HEAD || l_routine ||'.end'
3223: , l_routine || '>'
3224: );
3217: )));
3218:
3219:
3220: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3221: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3222: , G_MODULE_HEAD || l_routine ||'.end'
3223: , l_routine || '>'
3224: );
3225: END IF;
3227: EXCEPTION
3228: WHEN FND_API.G_EXC_ERROR THEN
3229: RAISE FND_API.G_EXC_ERROR;
3230: WHEN OTHERS THEN
3231: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3232: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
3233: , G_MODULE_HEAD || l_routine ||'.others_exc'
3234: , 'others:' || SQLCODE || substr(SQLERRM, 1,200)
3235: );
3228: WHEN FND_API.G_EXC_ERROR THEN
3229: RAISE FND_API.G_EXC_ERROR;
3230: WHEN OTHERS THEN
3231: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3232: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
3233: , G_MODULE_HEAD || l_routine ||'.others_exc'
3234: , 'others:' || SQLCODE || substr(SQLERRM, 1,200)
3235: );
3236: END IF;
3598: l_cg_idx BINARY_INTEGER;
3599:
3600: BEGIN
3601:
3602: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3603: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3604: , G_MODULE_HEAD || l_routine ||'.begin'
3605: , l_routine || '<'
3606: );
3599:
3600: BEGIN
3601:
3602: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3603: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3604: , G_MODULE_HEAD || l_routine ||'.begin'
3605: , l_routine || '<'
3606: );
3607: END IF;
3652: -- set period quantity at each cost group
3653: l_cg_idx := p_cost_group_id;
3654: G_CST_GROUP_TBL(l_cg_idx).period_new_quantity := l_period_qty_bef_intorg;
3655:
3656: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3657: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3658: , G_MODULE_HEAD || l_routine ||'.end'
3659: , l_routine || '>'
3660: );
3653: l_cg_idx := p_cost_group_id;
3654: G_CST_GROUP_TBL(l_cg_idx).period_new_quantity := l_period_qty_bef_intorg;
3655:
3656: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3657: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3658: , G_MODULE_HEAD || l_routine ||'.end'
3659: , l_routine || '>'
3660: );
3661: END IF;
3664: EXCEPTION
3665: WHEN FND_API.G_EXC_ERROR THEN
3666: RAISE FND_API.G_EXC_ERROR;
3667: WHEN OTHERS THEN
3668: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3669: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
3670: , G_MODULE_HEAD || l_routine ||'.others_exc'
3671: , 'others:' || SQLCODE || substr(SQLERRM, 1,200)
3672: );
3665: WHEN FND_API.G_EXC_ERROR THEN
3666: RAISE FND_API.G_EXC_ERROR;
3667: WHEN OTHERS THEN
3668: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3669: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
3670: , G_MODULE_HEAD || l_routine ||'.others_exc'
3671: , 'others:' || SQLCODE || substr(SQLERRM, 1,200)
3672: );
3673: END IF;
3786: FOR i IN 1..l_loop_count
3787: LOOP
3788:
3789:
3790: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3791: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
3792: ,G_MODULE_HEAD || l_routine || '.costinvtxn_gp1'
3793: ,'Transaction Id:'|| l_group1_interorg_tab(i).transaction_id ||
3794: ' Primary Qty:' || l_group1_interorg_tab(i).primary_quantity
3787: LOOP
3788:
3789:
3790: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3791: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
3792: ,G_MODULE_HEAD || l_routine || '.costinvtxn_gp1'
3793: ,'Transaction Id:'|| l_group1_interorg_tab(i).transaction_id ||
3794: ' Primary Qty:' || l_group1_interorg_tab(i).primary_quantity
3795: );
3801: l_group1_interorg_tab(i).exp_flag := 1;
3802: END IF;
3803:
3804:
3805: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3806: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
3807: ,G_MODULE_HEAD || l_routine || '.exp_flag'
3808: ,'Expense Flag:'|| l_group1_interorg_tab(i).exp_flag ||
3809: ' Expense Item:' || l_group1_interorg_tab(i).exp_item
3802: END IF;
3803:
3804:
3805: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3806: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
3807: ,G_MODULE_HEAD || l_routine || '.exp_flag'
3808: ,'Expense Flag:'|| l_group1_interorg_tab(i).exp_flag ||
3809: ' Expense Item:' || l_group1_interorg_tab(i).exp_item
3810: );
3824: ,o_err_num => l_error_num
3825: ,o_err_code => l_error_code
3826: ,o_err_msg => l_error_msg
3827: );
3828: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3829: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
3830: ,G_MODULE_HEAD || l_routine || '.incppbir1'
3831: ,'After calling insert_into_cppb:'|| l_error_num || l_error_code || l_error_msg
3832: );
3825: ,o_err_code => l_error_code
3826: ,o_err_msg => l_error_msg
3827: );
3828: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3829: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
3830: ,G_MODULE_HEAD || l_routine || '.incppbir1'
3831: ,'After calling insert_into_cppb:'|| l_error_num || l_error_code || l_error_msg
3832: );
3833: END IF;
3866: , o_err_code => l_error_code
3867: , o_err_msg => l_error_msg
3868: );
3869:
3870: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3871: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
3872: ,G_MODULE_HEAD || l_routine || '.PAC_inv_Processor_gp1'
3873: ,'PAC Inventory Processor:'|| l_error_num || ' ' ||
3874: l_error_code || ' ' || l_error_msg
3867: , o_err_msg => l_error_msg
3868: );
3869:
3870: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3871: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
3872: ,G_MODULE_HEAD || l_routine || '.PAC_inv_Processor_gp1'
3873: ,'PAC Inventory Processor:'|| l_error_num || ' ' ||
3874: l_error_code || ' ' || l_error_msg
3875: );
3878:
3879: END IF; -- error num check
3880:
3881: IF l_error_num <> 0 THEN
3882: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3883: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
3884: , G_MODULE_HEAD || l_routine || '.others'
3885: , 'group1 cost_inv_txn for cost group '|| p_cost_group_id ||' txn id '
3886: || l_group1_interorg_tab(i).transaction_id||' ('||l_error_code||') '||l_error_msg
3879: END IF; -- error num check
3880:
3881: IF l_error_num <> 0 THEN
3882: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3883: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
3884: , G_MODULE_HEAD || l_routine || '.others'
3885: , 'group1 cost_inv_txn for cost group '|| p_cost_group_id ||' txn id '
3886: || l_group1_interorg_tab(i).transaction_id||' ('||l_error_code||') '||l_error_msg
3887: );
3943: AND cost_group_id = p_cost_group_id
3944: AND pac_period_id = p_period_id
3945: AND cost_type_id = p_cost_type_id;
3946:
3947: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3948: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
3949: ,G_MODULE_HEAD || l_routine || '.After_ins_MPACD_TEMP'
3950: ,'After inserting mtl_pac_act_cst_dtl_temp:'||
3951: l_group1_interorg_tab(i).transaction_id
3944: AND pac_period_id = p_period_id
3945: AND cost_type_id = p_cost_type_id;
3946:
3947: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3948: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
3949: ,G_MODULE_HEAD || l_routine || '.After_ins_MPACD_TEMP'
3950: ,'After inserting mtl_pac_act_cst_dtl_temp:'||
3951: l_group1_interorg_tab(i).transaction_id
3952: );
4010: AND mpacdt.cost_type_id = p_cost_type_id
4011: AND mpacdt.cost_element_id = cce.cost_element_id
4012: AND mpacdt.level_type = lt.level_type);
4013:
4014: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4015: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4016: ,G_MODULE_HEAD || l_routine || '.After_pad_MPACD_TEMP'
4017: ,'After padding mtl_pac_act_cst_dtl_temp:'||
4018: l_group1_interorg_tab(i).transaction_id
4011: AND mpacdt.cost_element_id = cce.cost_element_id
4012: AND mpacdt.level_type = lt.level_type);
4013:
4014: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4015: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4016: ,G_MODULE_HEAD || l_routine || '.After_pad_MPACD_TEMP'
4017: ,'After padding mtl_pac_act_cst_dtl_temp:'||
4018: l_group1_interorg_tab(i).transaction_id
4019: );
4055: l_error_num := NVL(l_error_num, 0);
4056: l_error_code := NVL(l_error_code, 'No Error');
4057: l_error_msg := NVL(l_error_msg, 'No Error');
4058:
4059: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4060: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4061: ,G_MODULE_HEAD || l_routine || '.inscppir2'
4062: ,'After calling insert_into_cppb:'|| l_error_num || l_error_code || l_error_msg
4063: );
4056: l_error_code := NVL(l_error_code, 'No Error');
4057: l_error_msg := NVL(l_error_msg, 'No Error');
4058:
4059: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4060: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4061: ,G_MODULE_HEAD || l_routine || '.inscppir2'
4062: ,'After calling insert_into_cppb:'|| l_error_num || l_error_code || l_error_msg
4063: );
4064: END IF;
4092: l_error_code := NVL(l_error_code, 'No Error');
4093: l_error_msg := NVL(l_error_msg, 'No Error');
4094:
4095:
4096: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4097: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4098: ,G_MODULE_HEAD || l_routine || '.calcpmac'
4099: ,'After calling calculate_periodic_cost:'|| l_error_num || l_error_code || l_error_msg
4100: );
4093: l_error_msg := NVL(l_error_msg, 'No Error');
4094:
4095:
4096: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4097: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4098: ,G_MODULE_HEAD || l_routine || '.calcpmac'
4099: ,'After calling calculate_periodic_cost:'|| l_error_num || l_error_code || l_error_msg
4100: );
4101: END IF;
4273: ELSIF (l_group2_interorg_tab(i).exp_item = 1) THEN
4274: l_group2_interorg_tab(i).exp_flag := 1;
4275: END IF;
4276:
4277: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4278: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4279: ,G_MODULE_HEAD || l_routine || '.exp_flag'
4280: ,'Exp Flag:' || l_group2_interorg_tab(i).exp_flag || ' ' ||
4281: 'Exp Item:' || l_group2_interorg_tab(i).exp_item
4274: l_group2_interorg_tab(i).exp_flag := 1;
4275: END IF;
4276:
4277: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4278: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4279: ,G_MODULE_HEAD || l_routine || '.exp_flag'
4280: ,'Exp Flag:' || l_group2_interorg_tab(i).exp_flag || ' ' ||
4281: 'Exp Item:' || l_group2_interorg_tab(i).exp_item
4282: );
4297: ,o_err_num => l_error_num
4298: ,o_err_code => l_error_code
4299: ,o_err_msg => l_error_msg
4300: );
4301: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4302: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4303: ,G_MODULE_HEAD || l_routine || '.incppbii1'
4304: ,'After calling insert_into_cppb:'|| l_error_num || l_error_code || l_error_msg
4305: );
4298: ,o_err_code => l_error_code
4299: ,o_err_msg => l_error_msg
4300: );
4301: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4302: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4303: ,G_MODULE_HEAD || l_routine || '.incppbii1'
4304: ,'After calling insert_into_cppb:'|| l_error_num || l_error_code || l_error_msg
4305: );
4306: END IF;
4339: , o_err_code => l_error_code
4340: , o_err_msg => l_error_msg
4341: );
4342:
4343: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4344: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4345: ,G_MODULE_HEAD || l_routine || '.PAC_inv_Processor_gp2'
4346: ,'PAC Inventory Processor:'|| l_error_num || ' ' ||
4347: l_error_code || ' ' || l_error_msg
4340: , o_err_msg => l_error_msg
4341: );
4342:
4343: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4344: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4345: ,G_MODULE_HEAD || l_routine || '.PAC_inv_Processor_gp2'
4346: ,'PAC Inventory Processor:'|| l_error_num || ' ' ||
4347: l_error_code || ' ' || l_error_msg
4348: );
4351:
4352: END IF; -- error num check
4353:
4354: IF l_error_num <> 0 THEN
4355: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4356: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
4357: , G_MODULE_HEAD || l_routine || '.others'
4358: , 'group2 cost_inv_txn for cost group '|| p_cost_group_id ||' txn id '
4359: || l_group2_interorg_tab(i).transaction_id||' ('||l_error_code||') '||l_error_msg
4352: END IF; -- error num check
4353:
4354: IF l_error_num <> 0 THEN
4355: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4356: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
4357: , G_MODULE_HEAD || l_routine || '.others'
4358: , 'group2 cost_inv_txn for cost group '|| p_cost_group_id ||' txn id '
4359: || l_group2_interorg_tab(i).transaction_id||' ('||l_error_code||') '||l_error_msg
4360: );
4414: AND cost_group_id = p_cost_group_id
4415: AND pac_period_id = p_period_id
4416: AND cost_type_id = p_cost_type_id;
4417:
4418: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4419: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4420: ,G_MODULE_HEAD || l_routine || '.after_ins_gp2'
4421: ,'After inserting mtl_pac_act_cst_dtl_temp:' ||
4422: l_group2_interorg_tab(i).transaction_id
4415: AND pac_period_id = p_period_id
4416: AND cost_type_id = p_cost_type_id;
4417:
4418: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4419: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4420: ,G_MODULE_HEAD || l_routine || '.after_ins_gp2'
4421: ,'After inserting mtl_pac_act_cst_dtl_temp:' ||
4422: l_group2_interorg_tab(i).transaction_id
4423: );
4480: AND mpacdt.cost_element_id = cce.cost_element_id
4481: AND mpacdt.level_type = lt.level_type);
4482:
4483:
4484: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4485: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4486: ,G_MODULE_HEAD || l_routine || '.after_pad_gp2'
4487: ,'After padding mtl_pac_act_cst_dtl_temp:'||
4488: l_group2_interorg_tab(i).transaction_id
4481: AND mpacdt.level_type = lt.level_type);
4482:
4483:
4484: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4485: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4486: ,G_MODULE_HEAD || l_routine || '.after_pad_gp2'
4487: ,'After padding mtl_pac_act_cst_dtl_temp:'||
4488: l_group2_interorg_tab(i).transaction_id
4489: );
4520: l_error_num := NVL(l_error_num, 0);
4521: l_error_code := NVL(l_error_code, 'No Error');
4522: l_error_msg := NVL(l_error_msg, 'No Error');
4523:
4524: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4525: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4526: ,G_MODULE_HEAD || l_routine || '.inscppii2'
4527: ,'After calling insert_into_cppb:'|| l_error_num || l_error_code || l_error_msg
4528: );
4521: l_error_code := NVL(l_error_code, 'No Error');
4522: l_error_msg := NVL(l_error_msg, 'No Error');
4523:
4524: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4525: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4526: ,G_MODULE_HEAD || l_routine || '.inscppii2'
4527: ,'After calling insert_into_cppb:'|| l_error_num || l_error_code || l_error_msg
4528: );
4529: END IF;
4547: l_error_num := NVL(l_error_num, 0);
4548: l_error_code := NVL(l_error_code, 'No Error');
4549: l_error_msg := NVL(l_error_msg, 'No Error');
4550:
4551: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4552: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4553: ,G_MODULE_HEAD || l_routine || '.upppii1'
4554: ,'After calling update_item_cppb:'|| l_error_num || l_error_code || l_error_msg
4555: );
4548: l_error_code := NVL(l_error_code, 'No Error');
4549: l_error_msg := NVL(l_error_msg, 'No Error');
4550:
4551: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4552: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4553: ,G_MODULE_HEAD || l_routine || '.upppii1'
4554: ,'After calling update_item_cppb:'|| l_error_num || l_error_code || l_error_msg
4555: );
4556: END IF;
4556: END IF;
4557: END IF; -- error check
4558:
4559: IF l_error_num <> 0 THEN
4560: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4561: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
4562: , G_MODULE_HEAD || l_routine || '.others'
4563: , 'CSTPPWAC.update_item_cppb for CG '|| p_cost_group_id ||' txn category '
4564: ||l_txn_category||' t_low_level_code ' ||p_low_level_code
4557: END IF; -- error check
4558:
4559: IF l_error_num <> 0 THEN
4560: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4561: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
4562: , G_MODULE_HEAD || l_routine || '.others'
4563: , 'CSTPPWAC.update_item_cppb for CG '|| p_cost_group_id ||' txn category '
4564: ||l_txn_category||' t_low_level_code ' ||p_low_level_code
4565: ||' error('||l_error_code||') '||l_error_msg
4839: -- inventory item, cost group, pac period
4840: -- =========================================================================
4841: l_period_quantity := G_PWAC_NEW_COST_TBL(1)(1).period_qty_bef_intorg;
4842:
4843: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4844: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4845: ,G_MODULE_HEAD || l_routine || '.qtybef'
4846: ,'Qty before intorg txns:' || l_period_quantity
4847: );
4840: -- =========================================================================
4841: l_period_quantity := G_PWAC_NEW_COST_TBL(1)(1).period_qty_bef_intorg;
4842:
4843: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4844: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4845: ,G_MODULE_HEAD || l_routine || '.qtybef'
4846: ,'Qty before intorg txns:' || l_period_quantity
4847: );
4848: END IF;
4879: l_loop_count := l_group1_interorg_tab.count;
4880:
4881: FOR i IN 1..l_loop_count
4882: LOOP
4883: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4884: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4885: ,G_MODULE_HEAD || l_routine || '.group1_interorg'
4886: ,'Group 1 -- Transaction Id:'|| l_group1_interorg_tab(i).transaction_id
4887: );
4880:
4881: FOR i IN 1..l_loop_count
4882: LOOP
4883: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4884: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4885: ,G_MODULE_HEAD || l_routine || '.group1_interorg'
4886: ,'Group 1 -- Transaction Id:'|| l_group1_interorg_tab(i).transaction_id
4887: );
4888: END IF;
4892: ELSIF (l_group1_interorg_tab(i).exp_item = 1) THEN
4893: l_group1_interorg_tab(i).exp_flag := 1;
4894: END IF;
4895:
4896: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4897: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4898: ,G_MODULE_HEAD || l_routine || '.exp_flag'
4899: ,'Expense Flag:'|| l_group1_interorg_tab(i).exp_flag ||
4900: ' Expense Item:' || l_group1_interorg_tab(i).exp_item
4893: l_group1_interorg_tab(i).exp_flag := 1;
4894: END IF;
4895:
4896: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4897: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4898: ,G_MODULE_HEAD || l_routine || '.exp_flag'
4899: ,'Expense Flag:'|| l_group1_interorg_tab(i).exp_flag ||
4900: ' Expense Item:' || l_group1_interorg_tab(i).exp_item
4901: );
4966:
4967:
4968: WHILE pac_txn_cursor%FOUND LOOP
4969:
4970: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4971: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4972: ,G_MODULE_HEAD || l_routine || '.pac_txn_cursor'
4973: ,'Cost element Id:' || l_cost_element_id || ' '
4974: || 'Level Type:' || l_level_type
4967:
4968: WHILE pac_txn_cursor%FOUND LOOP
4969:
4970: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4971: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
4972: ,G_MODULE_HEAD || l_routine || '.pac_txn_cursor'
4973: ,'Cost element Id:' || l_cost_element_id || ' '
4974: || 'Level Type:' || l_level_type
4975: );
5010: ,p_transaction_action_id => l_group1_interorg_tab(i).transaction_action_id
5011: ,p_group_num => 1
5012: ,x_correspond_pmac_cost => l_correspond_pmac_cost);
5013:
5014: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5015: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
5016: ,G_MODULE_HEAD || l_routine || '.corr_pmac'
5017: ,'Correspond PMAC Cost:' || l_correspond_pmac_cost
5018: );
5011: ,p_group_num => 1
5012: ,x_correspond_pmac_cost => l_correspond_pmac_cost);
5013:
5014: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5015: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
5016: ,G_MODULE_HEAD || l_routine || '.corr_pmac'
5017: ,'Correspond PMAC Cost:' || l_correspond_pmac_cost
5018: );
5019: END IF;
5029: l_unit_transfer_cost := l_transfer_cost / l_txn_quantity;
5030:
5031: END IF; -- IF l_group1_idx.transfer_percentage <> 0 THEN
5032:
5033: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5034: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
5035: ,G_MODULE_HEAD || l_routine || '.txfr_cost1'
5036: ,'Transaction Qty:' || l_txn_quantity || ' Transfer Percentage:' || l_group1_interorg_tab(i).transfer_percentage || ' Unit Transfer Cost:' || l_unit_transfer_cost
5037: );
5030:
5031: END IF; -- IF l_group1_idx.transfer_percentage <> 0 THEN
5032:
5033: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5034: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
5035: ,G_MODULE_HEAD || l_routine || '.txfr_cost1'
5036: ,'Transaction Qty:' || l_txn_quantity || ' Transfer Percentage:' || l_group1_interorg_tab(i).transfer_percentage || ' Unit Transfer Cost:' || l_unit_transfer_cost
5037: );
5038: END IF;
5054: (transportation_cost/l_txn_quantity) + moh_absorption_cost), l_new_correspond_cost),l_new_correspond_cost)
5055: , transfer_cost = DECODE(cost_element_id, 2, decode(level_type,1, l_unit_transfer_cost,0),0)
5056: WHERE CURRENT OF pac_txn_cursor;
5057:
5058: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5059: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
5060: ,G_MODULE_HEAD || l_routine || '.upd_with_new_cost'
5061: ,'New Cost of corresponding transaction:' || l_new_correspond_cost
5062: );
5055: , transfer_cost = DECODE(cost_element_id, 2, decode(level_type,1, l_unit_transfer_cost,0),0)
5056: WHERE CURRENT OF pac_txn_cursor;
5057:
5058: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5059: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
5060: ,G_MODULE_HEAD || l_routine || '.upd_with_new_cost'
5061: ,'New Cost of corresponding transaction:' || l_new_correspond_cost
5062: );
5063:
5060: ,G_MODULE_HEAD || l_routine || '.upd_with_new_cost'
5061: ,'New Cost of corresponding transaction:' || l_new_correspond_cost
5062: );
5063:
5064: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
5065: ,G_MODULE_HEAD || l_routine || '.transmohcost'
5066: ,'Transfer Cost:' || pac_txn_cursor_row.transfer_cost
5067: || ' Transportation Cost:' || pac_txn_cursor_row.transportation_cost || ' Transaction Qty:' || abs(l_group1_interorg_tab(i).primary_quantity) || ' MOH Absorption Cost:' || pac_txn_cursor_row.moh_absorption_cost
5068: );
5075: -- inventory item id, cost group, pac period
5076: -- ===============================================================================
5077:
5078:
5079: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5080: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
5081: ,G_MODULE_HEAD || l_routine || '.pac_txn_cursor_first'
5082: ,'Cost element Id:' || l_cost_element_id || ' '
5083: || 'Level Type:' || l_level_type
5076: -- ===============================================================================
5077:
5078:
5079: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5080: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
5081: ,G_MODULE_HEAD || l_routine || '.pac_txn_cursor_first'
5082: ,'Cost element Id:' || l_cost_element_id || ' '
5083: || 'Level Type:' || l_level_type
5084: );
5108: -- cumulate the running balance for cost element,level type
5109: G_PWAC_NEW_COST_TBL(l_cost_element_id)(l_level_type).period_new_balance :=
5110: G_PWAC_NEW_COST_TBL(l_cost_element_id)(l_level_type).period_new_balance + l_txn_qty * l_actual_cost;
5111:
5112: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5113: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
5114: ,G_MODULE_HEAD || l_routine || '.newbal'
5115: ,'New balance:' || G_PWAC_NEW_COST_TBL(l_cost_element_id)(l_level_type).period_new_balance
5116: );
5109: G_PWAC_NEW_COST_TBL(l_cost_element_id)(l_level_type).period_new_balance :=
5110: G_PWAC_NEW_COST_TBL(l_cost_element_id)(l_level_type).period_new_balance + l_txn_qty * l_actual_cost;
5111:
5112: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5113: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
5114: ,G_MODULE_HEAD || l_routine || '.newbal'
5115: ,'New balance:' || G_PWAC_NEW_COST_TBL(l_cost_element_id)(l_level_type).period_new_balance
5116: );
5117: END IF;
5154: -- ============================================================
5155: -- Re-average to calculate the new periodic moving average cost
5156: -- of the item in each cost element, level type
5157: -- ============================================================
5158: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5159: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
5160: ,G_MODULE_HEAD || l_routine || '.qtyaft'
5161: ,'Period Quantity after interorg receipts:'|| l_period_quantity
5162: );
5155: -- Re-average to calculate the new periodic moving average cost
5156: -- of the item in each cost element, level type
5157: -- ============================================================
5158: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5159: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
5160: ,G_MODULE_HEAD || l_routine || '.qtyaft'
5161: ,'Period Quantity after interorg receipts:'|| l_period_quantity
5162: );
5163: END IF;
5185: G_PWAC_NEW_COST_TBL(l_cost_element_id)(l_level_type).final_new_cost
5186: := l_period_new_balance / l_period_quantity;
5187: END IF;
5188:
5189: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5190: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
5191: ,G_MODULE_HEAD || l_routine || '.pdnewbal'
5192: ,'Cost Element Id:' || l_cost_element_id || ' Level Type:'
5193: || l_level_type || 'Period New Balance:'|| l_period_new_balance
5186: := l_period_new_balance / l_period_quantity;
5187: END IF;
5188:
5189: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5190: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
5191: ,G_MODULE_HEAD || l_routine || '.pdnewbal'
5192: ,'Cost Element Id:' || l_cost_element_id || ' Level Type:'
5193: || l_level_type || 'Period New Balance:'|| l_period_new_balance
5194: );
5219: l_cost_element_id := l_cost_element_id + 1;
5220: END LOOP;
5221:
5222:
5223: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5224: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
5225: , G_MODULE_HEAD || l_routine || '.pwacic'
5226: , 'Cost Group Id:' || p_cost_group_id || 'PWAC Item Cost:' || l_pwac_item_cost
5227: );
5220: END LOOP;
5221:
5222:
5223: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5224: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
5225: , G_MODULE_HEAD || l_routine || '.pwacic'
5226: , 'Cost Group Id:' || p_cost_group_id || 'PWAC Item Cost:' || l_pwac_item_cost
5227: );
5228: END IF;
5340: G_CG_PWAC_COST_TBL(l_cg_pwac_idx).final_new_cost := G_PWAC_NEW_COST_TBL(l_cost_element_id)(l_level_type).final_new_cost;
5341:
5342: G_CG_PWAC_COST_TBL(l_cg_pwac_idx).period_new_balance := G_PWAC_NEW_COST_TBL(l_cost_element_id)(l_level_type).period_new_balance;
5343:
5344: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5345: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
5346: , G_MODULE_HEAD || l_routine || '.fncpnb'
5347: , 'Cost Group Element Level idx:' || l_cg_pwac_idx || ' CG PWAC final new cost:' || G_CG_PWAC_COST_TBL(l_cg_pwac_idx).final_new_cost || ' CG PWAC period new balance:' || G_CG_PWAC_COST_TBL(l_cg_pwac_idx).period_new_balance
5348: );
5341:
5342: G_CG_PWAC_COST_TBL(l_cg_pwac_idx).period_new_balance := G_PWAC_NEW_COST_TBL(l_cost_element_id)(l_level_type).period_new_balance;
5343:
5344: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5345: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
5346: , G_MODULE_HEAD || l_routine || '.fncpnb'
5347: , 'Cost Group Element Level idx:' || l_cg_pwac_idx || ' CG PWAC final new cost:' || G_CG_PWAC_COST_TBL(l_cg_pwac_idx).final_new_cost || ' CG PWAC period new balance:' || G_CG_PWAC_COST_TBL(l_cg_pwac_idx).period_new_balance
5348: );
5349: END IF;
5368: fnd_file.put_line(FND_FILE.OUTPUT, FND_MESSAGE.GET);
5369: WHEN FND_API.G_EXC_ERROR THEN
5370: RAISE FND_API.G_EXC_ERROR;
5371: WHEN OTHERS THEN
5372: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5373: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
5374: , G_MODULE_HEAD || l_routine ||'.others_exc'
5375: , 'others:' || SQLCODE || substr(SQLERRM, 1,200)
5376: );
5369: WHEN FND_API.G_EXC_ERROR THEN
5370: RAISE FND_API.G_EXC_ERROR;
5371: WHEN OTHERS THEN
5372: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5373: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
5374: , G_MODULE_HEAD || l_routine ||'.others_exc'
5375: , 'others:' || SQLCODE || substr(SQLERRM, 1,200)
5376: );
5377: END IF;
5472: l_iteration_num_idx BINARY_INTEGER;
5473: l_master_org_id NUMBER;
5474:
5475: BEGIN
5476: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5477: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
5478: , G_MODULE_HEAD || l_routine ||'.begin'
5479: , l_routine || '<'
5480: );
5473: l_master_org_id NUMBER;
5474:
5475: BEGIN
5476: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5477: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
5478: , G_MODULE_HEAD || l_routine ||'.begin'
5479: , l_routine || '<'
5480: );
5481: END IF;
5485: -- =======================
5486: -- API body
5487: -- =======================
5488:
5489: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5490: FND_LOG.string(FND_LOG.LEVEL_EVENT
5491: , G_MODULE_HEAD || l_routine || '.before_set_process'
5492: , 'Before Set Process Status'
5493: );
5486: -- API body
5487: -- =======================
5488:
5489: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5490: FND_LOG.string(FND_LOG.LEVEL_EVENT
5491: , G_MODULE_HEAD || l_routine || '.before_set_process'
5492: , 'Before Set Process Status'
5493: );
5494: END IF;
5507: , p_period_end_date => p_end_date
5508: , p_phase_status => 2
5509: );
5510:
5511: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5512: FND_LOG.string(FND_LOG.LEVEL_EVENT
5513: , G_MODULE_HEAD || l_routine || '.Before_iteration_loop'
5514: , 'Before Iteration Loop'
5515: );
5508: , p_phase_status => 2
5509: );
5510:
5511: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5512: FND_LOG.string(FND_LOG.LEVEL_EVENT
5513: , G_MODULE_HEAD || l_routine || '.Before_iteration_loop'
5514: , 'Before Iteration Loop'
5515: );
5516: END IF;
5547: l_end_iteration_num := l_prev_iteration_count + 1;
5548: END IF;
5549:
5550:
5551: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5552: FND_LOG.string(FND_LOG.LEVEL_EVENT
5553: ,G_MODULE_HEAD || l_routine || '.iteration_num_range'
5554: ,'Starting Iteration Number:'|| l_start_iteration_num
5555: || ' Ending Iteration Number:' || l_end_iteration_num
5548: END IF;
5549:
5550:
5551: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5552: FND_LOG.string(FND_LOG.LEVEL_EVENT
5553: ,G_MODULE_HEAD || l_routine || '.iteration_num_range'
5554: ,'Starting Iteration Number:'|| l_start_iteration_num
5555: || ' Ending Iteration Number:' || l_end_iteration_num
5556: );
5555: || ' Ending Iteration Number:' || l_end_iteration_num
5556: );
5557: END IF;
5558:
5559: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5560: FND_LOG.string(FND_LOG.LEVEL_EVENT
5561: ,G_MODULE_HEAD || l_routine || '.Item'
5562: ,'Inventory Item Id:'|| p_inventory_item_id
5563: );
5556: );
5557: END IF;
5558:
5559: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5560: FND_LOG.string(FND_LOG.LEVEL_EVENT
5561: ,G_MODULE_HEAD || l_routine || '.Item'
5562: ,'Inventory Item Id:'|| p_inventory_item_id
5563: );
5564: END IF;
5572:
5573: -- Assign iteration number
5574: l_iteration_num := l_iteration_num_idx;
5575:
5576: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5577: FND_LOG.string(FND_LOG.LEVEL_EVENT
5578: ,G_MODULE_HEAD || l_routine || '.iteration'
5579: ,'ITERATION NUMBER:'|| l_iteration_num
5580: );
5573: -- Assign iteration number
5574: l_iteration_num := l_iteration_num_idx;
5575:
5576: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5577: FND_LOG.string(FND_LOG.LEVEL_EVENT
5578: ,G_MODULE_HEAD || l_routine || '.iteration'
5579: ,'ITERATION NUMBER:'|| l_iteration_num
5580: );
5581: END IF;
5593: ELSE
5594: t_low_level_code := l_optimal_cg_idx.low_level_code;
5595: END IF;
5596:
5597: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5598: FND_LOG.string(FND_LOG.LEVEL_EVENT
5599: ,G_MODULE_HEAD || l_routine || '.tlevel'
5600: ,'Completion or no completion level:' || t_low_level_code
5601: );
5594: t_low_level_code := l_optimal_cg_idx.low_level_code;
5595: END IF;
5596:
5597: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5598: FND_LOG.string(FND_LOG.LEVEL_EVENT
5599: ,G_MODULE_HEAD || l_routine || '.tlevel'
5600: ,'Completion or no completion level:' || t_low_level_code
5601: );
5602: END IF;
5788: AND pac_period_id = p_period_id
5789: AND diverging_flag <> 'Y';
5790:
5791:
5792: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5793: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
5794: , G_MODULE_HEAD || l_routine || '.upd_tolerance_flag'
5795: , 'Tolerance Flag:' || l_tolerance_flag || ' ' ||
5796: 'Inventory Item Id:' || l_inventory_item_id
5789: AND diverging_flag <> 'Y';
5790:
5791:
5792: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5793: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
5794: , G_MODULE_HEAD || l_routine || '.upd_tolerance_flag'
5795: , 'Tolerance Flag:' || l_tolerance_flag || ' ' ||
5796: 'Inventory Item Id:' || l_inventory_item_id
5797: );
5829: -- before exiting the above loop.
5830:
5831: IF l_tolerance_flag <> 'Y' THEN
5832:
5833: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5834: FND_LOG.string(FND_LOG.LEVEL_EVENT
5835: , G_MODULE_HEAD || l_routine || '.upd_final_iteration'
5836: , 'Final Iteration for the item:' || l_inventory_item_id
5837: );
5830:
5831: IF l_tolerance_flag <> 'Y' THEN
5832:
5833: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5834: FND_LOG.string(FND_LOG.LEVEL_EVENT
5835: , G_MODULE_HEAD || l_routine || '.upd_final_iteration'
5836: , 'Final Iteration for the item:' || l_inventory_item_id
5837: );
5838: END IF;
5877:
5878: END IF; -- run option check
5879:
5880:
5881: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5882: FND_LOG.string(FND_LOG.LEVEL_EVENT
5883: , G_MODULE_HEAD || l_routine || '.After_iteration_loop'
5884: , 'After Iteration Loop'
5885: );
5878: END IF; -- run option check
5879:
5880:
5881: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5882: FND_LOG.string(FND_LOG.LEVEL_EVENT
5883: , G_MODULE_HEAD || l_routine || '.After_iteration_loop'
5884: , 'After Iteration Loop'
5885: );
5886: END IF;
5891: G_CG_PWAC_COST_TBL.delete;
5892:
5893: END IF; -- interorg items found check
5894:
5895: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5896: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
5897: , G_MODULE_HEAD || l_routine ||'.end'
5898: , l_routine || '>'
5899: );
5892:
5893: END IF; -- interorg items found check
5894:
5895: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5896: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
5897: , G_MODULE_HEAD || l_routine ||'.end'
5898: , l_routine || '>'
5899: );
5900: END IF;