324: ln_tot_org_nr_tax_amt := ln_tot_org_nr_tax_amt +
325: Get_NonRecoverable_Amount( pn_tax_id => tax_info_rec.tax_id
326: , pn_tax_amount => tax_info_rec.original_tax_amount
327: );
328: -- FND_FILE.PUT_LINE(fnd_file.log,' Tax id is : '|| tax_info_rec.tax_id||'Accumulated Tax is: '||ln_tot_nr_tax_amt);
329: END LOOP;--tax_info_rec IN get_tax_info_cur
330:
331: ln_tot_diff_nr_tax_amt := ln_tot_modif_nr_tax_amt - ln_tot_org_nr_tax_amt;
332:
964: CLOSE get_mtl_parameters_cur;
965:
966: IF (ln_proc_level >= ln_dbg_level)
967: THEN
968: FND_FILE.PUT_LINE(fnd_file.log,'Do_Unclaim 1');
969: FND_FILE.PUT_LINE(fnd_file.log,'lv_primary_cost_method '|| lv_primary_cost_method);
970: FND_FILE.PUT_LINE(fnd_file.log,'ln_expense_account '|| ln_expense_account);
971: FND_FILE.PUT_LINE(fnd_file.log,'ln_purchase_price_var_account '|| ln_purchase_price_var_account);
972: FND_FILE.PUT_LINE(fnd_file.log,'lv_organization_code '|| lv_organization_code);
965:
966: IF (ln_proc_level >= ln_dbg_level)
967: THEN
968: FND_FILE.PUT_LINE(fnd_file.log,'Do_Unclaim 1');
969: FND_FILE.PUT_LINE(fnd_file.log,'lv_primary_cost_method '|| lv_primary_cost_method);
970: FND_FILE.PUT_LINE(fnd_file.log,'ln_expense_account '|| ln_expense_account);
971: FND_FILE.PUT_LINE(fnd_file.log,'ln_purchase_price_var_account '|| ln_purchase_price_var_account);
972: FND_FILE.PUT_LINE(fnd_file.log,'lv_organization_code '|| lv_organization_code);
973: END IF; --l_proc_level>=l_dbg_level
966: IF (ln_proc_level >= ln_dbg_level)
967: THEN
968: FND_FILE.PUT_LINE(fnd_file.log,'Do_Unclaim 1');
969: FND_FILE.PUT_LINE(fnd_file.log,'lv_primary_cost_method '|| lv_primary_cost_method);
970: FND_FILE.PUT_LINE(fnd_file.log,'ln_expense_account '|| ln_expense_account);
971: FND_FILE.PUT_LINE(fnd_file.log,'ln_purchase_price_var_account '|| ln_purchase_price_var_account);
972: FND_FILE.PUT_LINE(fnd_file.log,'lv_organization_code '|| lv_organization_code);
973: END IF; --l_proc_level>=l_dbg_level
974:
967: THEN
968: FND_FILE.PUT_LINE(fnd_file.log,'Do_Unclaim 1');
969: FND_FILE.PUT_LINE(fnd_file.log,'lv_primary_cost_method '|| lv_primary_cost_method);
970: FND_FILE.PUT_LINE(fnd_file.log,'ln_expense_account '|| ln_expense_account);
971: FND_FILE.PUT_LINE(fnd_file.log,'ln_purchase_price_var_account '|| ln_purchase_price_var_account);
972: FND_FILE.PUT_LINE(fnd_file.log,'lv_organization_code '|| lv_organization_code);
973: END IF; --l_proc_level>=l_dbg_level
974:
975: OPEN get_rcv_parameters_cur;
968: FND_FILE.PUT_LINE(fnd_file.log,'Do_Unclaim 1');
969: FND_FILE.PUT_LINE(fnd_file.log,'lv_primary_cost_method '|| lv_primary_cost_method);
970: FND_FILE.PUT_LINE(fnd_file.log,'ln_expense_account '|| ln_expense_account);
971: FND_FILE.PUT_LINE(fnd_file.log,'ln_purchase_price_var_account '|| ln_purchase_price_var_account);
972: FND_FILE.PUT_LINE(fnd_file.log,'lv_organization_code '|| lv_organization_code);
973: END IF; --l_proc_level>=l_dbg_level
974:
975: OPEN get_rcv_parameters_cur;
976: FETCH get_rcv_parameters_cur
980: CLOSE get_rcv_parameters_cur;
981:
982: IF (ln_proc_level >= ln_dbg_level)
983: THEN
984: FND_FILE.PUT_LINE(fnd_file.log,'Do_Unclaim 2');
985: FND_FILE.PUT_LINE(fnd_file.log,'ln_retroprice_adj_account_id '|| ln_retroprice_adj_account_id);
986: FND_FILE.PUT_LINE(fnd_file.log,'ln_receiving_account_id '|| ln_receiving_account_id);
987: END IF; --l_proc_level>=l_dbg_level
988:
981:
982: IF (ln_proc_level >= ln_dbg_level)
983: THEN
984: FND_FILE.PUT_LINE(fnd_file.log,'Do_Unclaim 2');
985: FND_FILE.PUT_LINE(fnd_file.log,'ln_retroprice_adj_account_id '|| ln_retroprice_adj_account_id);
986: FND_FILE.PUT_LINE(fnd_file.log,'ln_receiving_account_id '|| ln_receiving_account_id);
987: END IF; --l_proc_level>=l_dbg_level
988:
989: OPEN rcv_transactions_cur;
982: IF (ln_proc_level >= ln_dbg_level)
983: THEN
984: FND_FILE.PUT_LINE(fnd_file.log,'Do_Unclaim 2');
985: FND_FILE.PUT_LINE(fnd_file.log,'ln_retroprice_adj_account_id '|| ln_retroprice_adj_account_id);
986: FND_FILE.PUT_LINE(fnd_file.log,'ln_receiving_account_id '|| ln_receiving_account_id);
987: END IF; --l_proc_level>=l_dbg_level
988:
989: OPEN rcv_transactions_cur;
990: FETCH rcv_transactions_cur
994: CLOSE rcv_transactions_cur;
995:
996: IF (ln_proc_level >= ln_dbg_level)
997: THEN
998: FND_FILE.PUT_LINE(fnd_file.log,'Do_Unclaim 3');
999: FND_FILE.PUT_LINE(fnd_file.log,'lv_destination_type_code '|| lv_destination_type_code);
1000: FND_FILE.PUT_LINE(fnd_file.log,'ln_shipment_line_id '|| ln_shipment_line_id);
1001: END IF; --l_proc_level>=l_dbg_level
1002:
995:
996: IF (ln_proc_level >= ln_dbg_level)
997: THEN
998: FND_FILE.PUT_LINE(fnd_file.log,'Do_Unclaim 3');
999: FND_FILE.PUT_LINE(fnd_file.log,'lv_destination_type_code '|| lv_destination_type_code);
1000: FND_FILE.PUT_LINE(fnd_file.log,'ln_shipment_line_id '|| ln_shipment_line_id);
1001: END IF; --l_proc_level>=l_dbg_level
1002:
1003: IF (lv_destination_type_code = 'EXPENSE')
996: IF (ln_proc_level >= ln_dbg_level)
997: THEN
998: FND_FILE.PUT_LINE(fnd_file.log,'Do_Unclaim 3');
999: FND_FILE.PUT_LINE(fnd_file.log,'lv_destination_type_code '|| lv_destination_type_code);
1000: FND_FILE.PUT_LINE(fnd_file.log,'ln_shipment_line_id '|| ln_shipment_line_id);
1001: END IF; --l_proc_level>=l_dbg_level
1002:
1003: IF (lv_destination_type_code = 'EXPENSE')
1004: THEN -- if the destination_type_code in DELIVER transaction is EXPENSE
1035: END IF; -- (lv_process_status IN ('X','E'))
1036: --logging for debug
1037: IF (ln_proc_level >= ln_dbg_level)
1038: THEN
1039: FND_FILE.PUT_LINE(fnd_file.log,'Do_Unclaim 4');
1040: END IF; --l_proc_level>=l_dbg_level
1041:
1042: -- Credit the receiving_account_id by calling the following procedure
1043:
1072: END IF; -- (lv_process_status IN ('X','E'))
1073:
1074: IF (ln_proc_level >= ln_dbg_level)
1075: THEN
1076: FND_FILE.PUT_LINE(fnd_file.log,'Do_Unclaim 5');
1077: END IF; --l_proc_level>=l_dbg_level
1078:
1079: ELSIF (lv_primary_cost_method = 1)
1080: THEN -- if its Standard Costing
1080: THEN -- if its Standard Costing
1081:
1082: IF (ln_proc_level >= ln_dbg_level)
1083: THEN
1084: FND_FILE.PUT_LINE(fnd_file.log,'Do_Unclaim 6');
1085: END IF; --l_proc_level>=l_dbg_level
1086:
1087: -- Debit the account by calling
1088: jai_rcv_accounting_pkg.process_transaction
1116: END IF; -- (lv_process_status IN ('X','E'))
1117:
1118: IF (ln_proc_level >= ln_dbg_level)
1119: THEN
1120: FND_FILE.PUT_LINE(fnd_file.log,'Do_Unclaim 7');
1121: END IF; --l_proc_level>=l_dbg_level
1122:
1123: -- Credit the receiving account by calling
1124: jai_rcv_accounting_pkg.process_transaction
1152: END IF; -- (lv_process_status IN ('X','E'))
1153:
1154: IF (ln_proc_level >= ln_dbg_level)
1155: THEN
1156: FND_FILE.PUT_LINE(fnd_file.log,'Do_Unclaim 8');
1157: END IF; --l_proc_level>=l_dbg_level
1158:
1159: ELSIF (lv_primary_cost_method = 2)
1160: THEN -- if its Average costing
1160: THEN -- if its Average costing
1161:
1162: IF (ln_proc_level >= ln_dbg_level)
1163: THEN
1164: FND_FILE.PUT_LINE(fnd_file.log,'Do_Unclaim 9');
1165: END IF; --l_proc_level>=l_dbg_level
1166:
1167: -- Get the organization details by calling the following function
1168: func_curr_det_rec := jai_plsql_cache_pkg.return_sob_curr(p_org_id => pn_organization_id);
1169:
1170:
1171: IF (ln_proc_level >= ln_dbg_level)
1172: THEN
1173: FND_FILE.PUT_LINE(fnd_file.log,'Do_Unclaim 10');
1174: END IF; --l_proc_level>=l_dbg_level
1175:
1176: -- Get the period name using the following query
1177: SELECT gd.period_name
1191: AND gd.adjustment_period_flag = 'N';
1192:
1193: IF (ln_proc_level >= ln_dbg_level)
1194: THEN
1195: FND_FILE.PUT_LINE(fnd_file.log,'Do_Unclaim 11');
1196: FND_FILE.PUT_LINE(fnd_file.log,'lv_period_name '|| lv_period_name);
1197: END IF; --l_proc_level>=l_dbg_level
1198:
1199: -- Get the receipt_num
1192:
1193: IF (ln_proc_level >= ln_dbg_level)
1194: THEN
1195: FND_FILE.PUT_LINE(fnd_file.log,'Do_Unclaim 11');
1196: FND_FILE.PUT_LINE(fnd_file.log,'lv_period_name '|| lv_period_name);
1197: END IF; --l_proc_level>=l_dbg_level
1198:
1199: -- Get the receipt_num
1200: SELECT receipt_num
1203: WHERE shipment_line_id = ln_shipment_line_id;
1204:
1205: IF (ln_proc_level >= ln_dbg_level)
1206: THEN
1207: FND_FILE.PUT_LINE(fnd_file.log,'Do_Unclaim 12');
1208: FND_FILE.PUT_LINE(fnd_file.log,'lv_receipt_num '|| lv_receipt_num);
1209: END IF; --l_proc_level>=l_dbg_level
1210:
1211: -- Debit the Retroprice account by calling
1204:
1205: IF (ln_proc_level >= ln_dbg_level)
1206: THEN
1207: FND_FILE.PUT_LINE(fnd_file.log,'Do_Unclaim 12');
1208: FND_FILE.PUT_LINE(fnd_file.log,'lv_receipt_num '|| lv_receipt_num);
1209: END IF; --l_proc_level>=l_dbg_level
1210:
1211: -- Debit the Retroprice account by calling
1212: jai_rcv_accounting_pkg.gl_entry
1233: , p_process_status => lv_process_status
1234: , p_codepath => lv_code_path
1235: );
1236:
1237: --FND_FILE.PUT_LINE(fnd_file.log,'Do_Unclaim 9');
1238:
1239: IF (lv_process_status IN ('X','E'))
1240: THEN
1241: raise_application_error(-20120,'Unclaim GL Entry returned with error for Average Costing : '|| lv_process_message);
1242: END IF; -- (lv_process_status IN ('X','E'))
1243:
1244: IF (ln_proc_level >= ln_dbg_level)
1245: THEN
1246: FND_FILE.PUT_LINE(fnd_file.log,'Do_Unclaim 13');
1247: END IF; --l_proc_level>=l_dbg_level
1248:
1249: jai_rcv_journal_pkg.insert_row
1250: ( p_organization_id => pn_organization_id
1279: END IF; -- (lv_process_status IN ('X','E'))
1280:
1281: IF (ln_proc_level >= ln_dbg_level)
1282: THEN
1283: FND_FILE.PUT_LINE(fnd_file.log,'Do_Unclaim 14');
1284: END IF; --l_proc_level>=l_dbg_level
1285:
1286: -- Credit the receiving account by calling
1287:
1316: END IF; -- (lv_process_status IN ('X','E'))
1317:
1318: IF (ln_proc_level >= ln_dbg_level)
1319: THEN
1320: FND_FILE.PUT_LINE(fnd_file.log,'Do_Unclaim 15');
1321: END IF; --l_proc_level>=l_dbg_level
1322:
1323: jai_rcv_journal_pkg.insert_row
1324: ( p_organization_id => pn_organization_id
1346: , p_reference_name => 'RETRO CENVAT CLAIMS ' || pn_version_number
1347: , p_reference_id => 2
1348: );
1349:
1350: --FND_FILE.PUT_LINE(fnd_file.log,'Do_Unclaim 12');
1351: IF (lv_process_status IN ('X','E'))
1352: THEN
1353: raise_application_error(-20120,'Unclaim Journal Entry returned with error for Average Costing : ' || lv_process_message);
1354: END IF; -- (lv_process_status IN ('X','E'))
1354: END IF; -- (lv_process_status IN ('X','E'))
1355:
1356: IF (ln_proc_level >= ln_dbg_level)
1357: THEN
1358: FND_FILE.PUT_LINE(fnd_file.log,'Do_Unclaim 16');
1359: END IF; --l_proc_level>=l_dbg_level
1360: END IF; -- (lv_destination_type_code = 'EXPENSE')
1361:
1362: --logging for debug
1471: AND transaction_type = 'RECEIVE';
1472:
1473: IF (ln_proc_level >= ln_dbg_level)
1474: THEN
1475: FND_FILE.PUT_LINE(fnd_file.log,'Do_Accounting 1');
1476: FND_FILE.PUT_LINE(fnd_file.log,'ln_curr_conv_rate '|| ln_curr_conv_rate);
1477: FND_FILE.PUT_LINE(fnd_file.log,'ln_organization_id '|| ln_organization_id);
1478: END IF; --l_proc_level>=l_dbg_level
1479:
1472:
1473: IF (ln_proc_level >= ln_dbg_level)
1474: THEN
1475: FND_FILE.PUT_LINE(fnd_file.log,'Do_Accounting 1');
1476: FND_FILE.PUT_LINE(fnd_file.log,'ln_curr_conv_rate '|| ln_curr_conv_rate);
1477: FND_FILE.PUT_LINE(fnd_file.log,'ln_organization_id '|| ln_organization_id);
1478: END IF; --l_proc_level>=l_dbg_level
1479:
1480: --Get the total tax difference from jai_retro_tax_changes for the shipment_line_id
1473: IF (ln_proc_level >= ln_dbg_level)
1474: THEN
1475: FND_FILE.PUT_LINE(fnd_file.log,'Do_Accounting 1');
1476: FND_FILE.PUT_LINE(fnd_file.log,'ln_curr_conv_rate '|| ln_curr_conv_rate);
1477: FND_FILE.PUT_LINE(fnd_file.log,'ln_organization_id '|| ln_organization_id);
1478: END IF; --l_proc_level>=l_dbg_level
1479:
1480: --Get the total tax difference from jai_retro_tax_changes for the shipment_line_id
1481: -- Get the difference in INR. Multiply with currency_conversion_rate of rcv_transactions
1489: WHERE line_change_id = pn_line_change_id ;/*rchandan. removed sub query and replaced with pn_line_change_id*/
1490:
1491: IF (ln_proc_level >= ln_dbg_level)
1492: THEN
1493: FND_FILE.PUT_LINE(fnd_file.log,'Do_Accounting 2');
1494: FND_FILE.PUT_LINE(fnd_file.log,'ln_tax_diff_tot '|| ln_tax_diff_tot);
1495: END IF; --l_proc_level>=l_dbg_level
1496:
1497:
1490:
1491: IF (ln_proc_level >= ln_dbg_level)
1492: THEN
1493: FND_FILE.PUT_LINE(fnd_file.log,'Do_Accounting 2');
1494: FND_FILE.PUT_LINE(fnd_file.log,'ln_tax_diff_tot '|| ln_tax_diff_tot);
1495: END IF; --l_proc_level>=l_dbg_level
1496:
1497:
1498: /* eric deleted for a bug on Jan 22,2008
1501: ln_tax_diff_tot := ln_tax_diff_tot * ln_curr_conv_rate;
1502: END IF;
1503: */
1504:
1505: --FND_FILE.PUT_LINE(fnd_file.log,'Do_Accounting 2');
1506:
1507: --IF the total difference is NOT EQUAL to ZERO THEN
1508: IF ln_tax_diff_tot <> 0
1509: THEN
1517: WHERE organization_id = ln_organization_id;
1518:
1519: IF (ln_proc_level >= ln_dbg_level)
1520: THEN
1521: FND_FILE.PUT_LINE(fnd_file.log,'Do_Accounting 3');
1522: FND_FILE.PUT_LINE(fnd_file.log,'ln_recv_acct_id '|| ln_recv_acct_id);
1523: END IF; --l_proc_level>=l_dbg_level
1524:
1525: --Debit the account by calling the following procedure
1518:
1519: IF (ln_proc_level >= ln_dbg_level)
1520: THEN
1521: FND_FILE.PUT_LINE(fnd_file.log,'Do_Accounting 3');
1522: FND_FILE.PUT_LINE(fnd_file.log,'ln_recv_acct_id '|| ln_recv_acct_id);
1523: END IF; --l_proc_level>=l_dbg_level
1524:
1525: --Debit the account by calling the following procedure
1526: Jai_Rcv_Accounting_Pkg.Process_Transaction
1546: , p_process_status => lv_process_status -- OUT parameter
1547: , p_reference_name => 'RETRO CENVAT CLAIMS ' ||pn_version_number
1548: , p_reference_id => 1
1549: );
1550: --FND_FILE.PUT_LINE(fnd_file.log,'Do_Accounting 3');
1551:
1552: IF lv_process_status IN ('X', 'E')
1553: THEN
1554: raise_application_error(-20120,'Receive Accounting Entry retruned with error : '||lv_process_message);
1555: END IF;
1556:
1557: IF (ln_proc_level >= ln_dbg_level)
1558: THEN
1559: FND_FILE.PUT_LINE(fnd_file.log,'Do_Accounting 4');
1560: END IF; --l_proc_level>=l_dbg_level
1561:
1562: --Get the ap_accrual_account from mtl_parameters for the current organization id
1563: SELECT
1569: WHERE organization_id = ln_organization_id;
1570:
1571: IF (ln_proc_level >= ln_dbg_level)
1572: THEN
1573: FND_FILE.PUT_LINE(fnd_file.log,'Do_Accounting 5');
1574: FND_FILE.PUT_LINE(fnd_file.log,'ln_ap_accrual_acc '|| ln_ap_accrual_acc);
1575: END IF; --l_proc_level>=l_dbg_level
1576:
1577: --Credit the account by calling the following procedure
1570:
1571: IF (ln_proc_level >= ln_dbg_level)
1572: THEN
1573: FND_FILE.PUT_LINE(fnd_file.log,'Do_Accounting 5');
1574: FND_FILE.PUT_LINE(fnd_file.log,'ln_ap_accrual_acc '|| ln_ap_accrual_acc);
1575: END IF; --l_proc_level>=l_dbg_level
1576:
1577: --Credit the account by calling the following procedure
1578: Jai_Rcv_Accounting_Pkg.Process_Transaction
1599: , p_reference_name => 'RETRO CENVAT CLAIMS ' ||pn_version_number
1600: , p_reference_id => 2
1601: );
1602:
1603: -- FND_FILE.PUT_LINE(fnd_file.log,'Do_Accounting 4');
1604: IF lv_process_status IN ('X', 'E')
1605: THEN
1606: raise_application_error(-20120,'Receive Accounting Entry retruned with error : '||lv_process_message);
1607: END IF;
1607: END IF;
1608:
1609: IF (ln_proc_level >= ln_dbg_level)
1610: THEN
1611: FND_FILE.PUT_LINE(fnd_file.log,'Do_Accounting 6');
1612: END IF; --l_proc_level>=l_dbg_level
1613:
1614: ln_non_rec_amount := pn_non_rec_amount;
1615:
1625: , p_codepath => lv_codepath
1626: );
1627:
1628: IF lv_include_cenvat_in_costing = 'Y' OR xv_cenvat_action = 'UNCLAIM' THEN
1629: FND_FILE.PUT_LINE(fnd_file.log,' lv_include_cenvat_in_costing : '|| lv_include_cenvat_in_costing);
1630: xv_cenvat_action := 'UNCLAIMED'; -- CENVAT is included in Unclaim. do_cenvat_claim is no more called
1631: ln_non_rec_amount := ln_non_rec_amount + pn_cenvat_amount; -- include recoverable cenvat in Non recoverable amount
1632: END IF;
1633:
1634: END IF;
1635:
1636: IF (ln_proc_level >= ln_dbg_level)
1637: THEN
1638: FND_FILE.PUT_LINE(fnd_file.log,'Do_Accounting 7');
1639: END IF; --l_proc_level>=l_dbg_level
1640:
1641: IF xv_vat_action = 'UNCLAIM' AND pn_vat_amount <> 0 THEN --If VAT amount exists and VAT action is UNCLAIM
1642: xv_vat_action := 'UNCLAIMED'; -- VAT is included in Unclaim. do_vat_claim is no more called
1644: END IF;
1645:
1646: IF (ln_proc_level >= ln_dbg_level)
1647: THEN
1648: FND_FILE.PUT_LINE(fnd_file.log,'Do_Accounting 8');
1649: END IF; --l_proc_level>=l_dbg_level
1650:
1651: IF (ln_non_rec_amount <> 0)
1652: THEN
1656: , pn_amount => ln_non_rec_amount -- Amount to be unclaimed
1657: , pn_version_number => pn_version_number
1658: );
1659:
1660: FND_FILE.PUT_LINE(fnd_file.log,' Do_Unclaim() Invoked');
1661: ELSE
1662: FND_FILE.PUT_LINE(fnd_file.log,' Do_Unclaim() is not Invoked');
1663: END IF;--(ln_non_rec_amount <> 0)
1664:
1658: );
1659:
1660: FND_FILE.PUT_LINE(fnd_file.log,' Do_Unclaim() Invoked');
1661: ELSE
1662: FND_FILE.PUT_LINE(fnd_file.log,' Do_Unclaim() is not Invoked');
1663: END IF;--(ln_non_rec_amount <> 0)
1664:
1665: IF (ln_proc_level >= ln_dbg_level)
1666: THEN
1663: END IF;--(ln_non_rec_amount <> 0)
1664:
1665: IF (ln_proc_level >= ln_dbg_level)
1666: THEN
1667: FND_FILE.PUT_LINE(fnd_file.log,'Do_Accounting 9');
1668: END IF; --l_proc_level>=l_dbg_level
1669:
1670: IF xv_cenvat_action = 'UNCLAIMED'
1671: THEN
1678: END IF;
1679:
1680: IF (ln_proc_level >= ln_dbg_level)
1681: THEN
1682: FND_FILE.PUT_LINE(fnd_file.log,'Do_Accounting 10');
1683: END IF; --l_proc_level>=l_dbg_level
1684:
1685: IF xv_vat_action = 'UNCLAIMED'
1686: THEN
1693: END IF;
1694:
1695: IF (ln_proc_level >= ln_dbg_level)
1696: THEN
1697: FND_FILE.PUT_LINE(fnd_file.log,'Do_Accounting 11');
1698: END IF; --l_proc_level>=l_dbg_level
1699: END LOOP; --FOR trx_rec IN rcv_trx_cur --DELIVER transactions
1700: END IF;
1701: --logging for debug
2315: END IF;
2316:
2317: IF lv_process_status = 'X' THEN
2318: --Print that Claim is not valid for this and print lv_process_message
2319: FND_FILE.PUT_LINE(fnd_file.log, 'Total receipt fail to pass cenvat prossing validation,for the reason: '||lv_process_message);
2320:
2321:
2322: UPDATE
2323: jai_retro_line_changes
2723: );
2724: END IF; --l_proc_level>=l_dbg_level
2725:
2726: BEGIN
2727: FND_FILE.PUT_LINE(fnd_file.log, 'Concurrent Input Parameter Is :');
2728: FND_FILE.PUT_LINE(fnd_file.log, '-------------------------------------------------------------- ');
2729: FND_FILE.PUT_LINE(fnd_file.log, 'VENDOR ID :'|| pn_vendor_id );
2730: FND_FILE.PUT_LINE(fnd_file.log, 'VENDOR SITE ID :'|| pn_vendor_site_id );
2731: FND_FILE.PUT_LINE(fnd_file.log, 'AGGREMENT ID :'|| pn_po_header_id );
2724: END IF; --l_proc_level>=l_dbg_level
2725:
2726: BEGIN
2727: FND_FILE.PUT_LINE(fnd_file.log, 'Concurrent Input Parameter Is :');
2728: FND_FILE.PUT_LINE(fnd_file.log, '-------------------------------------------------------------- ');
2729: FND_FILE.PUT_LINE(fnd_file.log, 'VENDOR ID :'|| pn_vendor_id );
2730: FND_FILE.PUT_LINE(fnd_file.log, 'VENDOR SITE ID :'|| pn_vendor_site_id );
2731: FND_FILE.PUT_LINE(fnd_file.log, 'AGGREMENT ID :'|| pn_po_header_id );
2732: FND_FILE.PUT_LINE(fnd_file.log, 'EFFECTIVE DATE :'|| pv_from_eff_date );
2725:
2726: BEGIN
2727: FND_FILE.PUT_LINE(fnd_file.log, 'Concurrent Input Parameter Is :');
2728: FND_FILE.PUT_LINE(fnd_file.log, '-------------------------------------------------------------- ');
2729: FND_FILE.PUT_LINE(fnd_file.log, 'VENDOR ID :'|| pn_vendor_id );
2730: FND_FILE.PUT_LINE(fnd_file.log, 'VENDOR SITE ID :'|| pn_vendor_site_id );
2731: FND_FILE.PUT_LINE(fnd_file.log, 'AGGREMENT ID :'|| pn_po_header_id );
2732: FND_FILE.PUT_LINE(fnd_file.log, 'EFFECTIVE DATE :'|| pv_from_eff_date );
2733: FND_FILE.PUT_LINE(fnd_file.log, 'Execise Action :'|| pv_cenvat_action );
2726: BEGIN
2727: FND_FILE.PUT_LINE(fnd_file.log, 'Concurrent Input Parameter Is :');
2728: FND_FILE.PUT_LINE(fnd_file.log, '-------------------------------------------------------------- ');
2729: FND_FILE.PUT_LINE(fnd_file.log, 'VENDOR ID :'|| pn_vendor_id );
2730: FND_FILE.PUT_LINE(fnd_file.log, 'VENDOR SITE ID :'|| pn_vendor_site_id );
2731: FND_FILE.PUT_LINE(fnd_file.log, 'AGGREMENT ID :'|| pn_po_header_id );
2732: FND_FILE.PUT_LINE(fnd_file.log, 'EFFECTIVE DATE :'|| pv_from_eff_date );
2733: FND_FILE.PUT_LINE(fnd_file.log, 'Execise Action :'|| pv_cenvat_action );
2734: FND_FILE.PUT_LINE(fnd_file.log, 'Supp Execise Invoice No. :'|| pv_supp_exc_inv_no );
2727: FND_FILE.PUT_LINE(fnd_file.log, 'Concurrent Input Parameter Is :');
2728: FND_FILE.PUT_LINE(fnd_file.log, '-------------------------------------------------------------- ');
2729: FND_FILE.PUT_LINE(fnd_file.log, 'VENDOR ID :'|| pn_vendor_id );
2730: FND_FILE.PUT_LINE(fnd_file.log, 'VENDOR SITE ID :'|| pn_vendor_site_id );
2731: FND_FILE.PUT_LINE(fnd_file.log, 'AGGREMENT ID :'|| pn_po_header_id );
2732: FND_FILE.PUT_LINE(fnd_file.log, 'EFFECTIVE DATE :'|| pv_from_eff_date );
2733: FND_FILE.PUT_LINE(fnd_file.log, 'Execise Action :'|| pv_cenvat_action );
2734: FND_FILE.PUT_LINE(fnd_file.log, 'Supp Execise Invoice No. :'|| pv_supp_exc_inv_no );
2735: FND_FILE.PUT_LINE(fnd_file.log, 'Supp Execise Invoice Date :'|| pv_supp_exc_inv_date );
2728: FND_FILE.PUT_LINE(fnd_file.log, '-------------------------------------------------------------- ');
2729: FND_FILE.PUT_LINE(fnd_file.log, 'VENDOR ID :'|| pn_vendor_id );
2730: FND_FILE.PUT_LINE(fnd_file.log, 'VENDOR SITE ID :'|| pn_vendor_site_id );
2731: FND_FILE.PUT_LINE(fnd_file.log, 'AGGREMENT ID :'|| pn_po_header_id );
2732: FND_FILE.PUT_LINE(fnd_file.log, 'EFFECTIVE DATE :'|| pv_from_eff_date );
2733: FND_FILE.PUT_LINE(fnd_file.log, 'Execise Action :'|| pv_cenvat_action );
2734: FND_FILE.PUT_LINE(fnd_file.log, 'Supp Execise Invoice No. :'|| pv_supp_exc_inv_no );
2735: FND_FILE.PUT_LINE(fnd_file.log, 'Supp Execise Invoice Date :'|| pv_supp_exc_inv_date );
2736: FND_FILE.PUT_LINE(fnd_file.log, 'Vat Action :'|| pv_vat_action );
2729: FND_FILE.PUT_LINE(fnd_file.log, 'VENDOR ID :'|| pn_vendor_id );
2730: FND_FILE.PUT_LINE(fnd_file.log, 'VENDOR SITE ID :'|| pn_vendor_site_id );
2731: FND_FILE.PUT_LINE(fnd_file.log, 'AGGREMENT ID :'|| pn_po_header_id );
2732: FND_FILE.PUT_LINE(fnd_file.log, 'EFFECTIVE DATE :'|| pv_from_eff_date );
2733: FND_FILE.PUT_LINE(fnd_file.log, 'Execise Action :'|| pv_cenvat_action );
2734: FND_FILE.PUT_LINE(fnd_file.log, 'Supp Execise Invoice No. :'|| pv_supp_exc_inv_no );
2735: FND_FILE.PUT_LINE(fnd_file.log, 'Supp Execise Invoice Date :'|| pv_supp_exc_inv_date );
2736: FND_FILE.PUT_LINE(fnd_file.log, 'Vat Action :'|| pv_vat_action );
2737: FND_FILE.PUT_LINE(fnd_file.log, 'Supp VAT Invoice No. :'|| pv_supp_vat_inv_no );
2730: FND_FILE.PUT_LINE(fnd_file.log, 'VENDOR SITE ID :'|| pn_vendor_site_id );
2731: FND_FILE.PUT_LINE(fnd_file.log, 'AGGREMENT ID :'|| pn_po_header_id );
2732: FND_FILE.PUT_LINE(fnd_file.log, 'EFFECTIVE DATE :'|| pv_from_eff_date );
2733: FND_FILE.PUT_LINE(fnd_file.log, 'Execise Action :'|| pv_cenvat_action );
2734: FND_FILE.PUT_LINE(fnd_file.log, 'Supp Execise Invoice No. :'|| pv_supp_exc_inv_no );
2735: FND_FILE.PUT_LINE(fnd_file.log, 'Supp Execise Invoice Date :'|| pv_supp_exc_inv_date );
2736: FND_FILE.PUT_LINE(fnd_file.log, 'Vat Action :'|| pv_vat_action );
2737: FND_FILE.PUT_LINE(fnd_file.log, 'Supp VAT Invoice No. :'|| pv_supp_vat_inv_no );
2738: FND_FILE.PUT_LINE(fnd_file.log, 'Supp VAT Invoice Date :'|| pv_supp_vat_inv_date );
2731: FND_FILE.PUT_LINE(fnd_file.log, 'AGGREMENT ID :'|| pn_po_header_id );
2732: FND_FILE.PUT_LINE(fnd_file.log, 'EFFECTIVE DATE :'|| pv_from_eff_date );
2733: FND_FILE.PUT_LINE(fnd_file.log, 'Execise Action :'|| pv_cenvat_action );
2734: FND_FILE.PUT_LINE(fnd_file.log, 'Supp Execise Invoice No. :'|| pv_supp_exc_inv_no );
2735: FND_FILE.PUT_LINE(fnd_file.log, 'Supp Execise Invoice Date :'|| pv_supp_exc_inv_date );
2736: FND_FILE.PUT_LINE(fnd_file.log, 'Vat Action :'|| pv_vat_action );
2737: FND_FILE.PUT_LINE(fnd_file.log, 'Supp VAT Invoice No. :'|| pv_supp_vat_inv_no );
2738: FND_FILE.PUT_LINE(fnd_file.log, 'Supp VAT Invoice Date :'|| pv_supp_vat_inv_date );
2739: FND_FILE.PUT_LINE(fnd_file.log, 'Down Revision Process :'|| pv_process_downward );
2732: FND_FILE.PUT_LINE(fnd_file.log, 'EFFECTIVE DATE :'|| pv_from_eff_date );
2733: FND_FILE.PUT_LINE(fnd_file.log, 'Execise Action :'|| pv_cenvat_action );
2734: FND_FILE.PUT_LINE(fnd_file.log, 'Supp Execise Invoice No. :'|| pv_supp_exc_inv_no );
2735: FND_FILE.PUT_LINE(fnd_file.log, 'Supp Execise Invoice Date :'|| pv_supp_exc_inv_date );
2736: FND_FILE.PUT_LINE(fnd_file.log, 'Vat Action :'|| pv_vat_action );
2737: FND_FILE.PUT_LINE(fnd_file.log, 'Supp VAT Invoice No. :'|| pv_supp_vat_inv_no );
2738: FND_FILE.PUT_LINE(fnd_file.log, 'Supp VAT Invoice Date :'|| pv_supp_vat_inv_date );
2739: FND_FILE.PUT_LINE(fnd_file.log, 'Down Revision Process :'|| pv_process_downward );
2740: FND_FILE.PUT_LINE(fnd_file.log, '--------------------------------------------------------- ');
2733: FND_FILE.PUT_LINE(fnd_file.log, 'Execise Action :'|| pv_cenvat_action );
2734: FND_FILE.PUT_LINE(fnd_file.log, 'Supp Execise Invoice No. :'|| pv_supp_exc_inv_no );
2735: FND_FILE.PUT_LINE(fnd_file.log, 'Supp Execise Invoice Date :'|| pv_supp_exc_inv_date );
2736: FND_FILE.PUT_LINE(fnd_file.log, 'Vat Action :'|| pv_vat_action );
2737: FND_FILE.PUT_LINE(fnd_file.log, 'Supp VAT Invoice No. :'|| pv_supp_vat_inv_no );
2738: FND_FILE.PUT_LINE(fnd_file.log, 'Supp VAT Invoice Date :'|| pv_supp_vat_inv_date );
2739: FND_FILE.PUT_LINE(fnd_file.log, 'Down Revision Process :'|| pv_process_downward );
2740: FND_FILE.PUT_LINE(fnd_file.log, '--------------------------------------------------------- ');
2741: END;
2734: FND_FILE.PUT_LINE(fnd_file.log, 'Supp Execise Invoice No. :'|| pv_supp_exc_inv_no );
2735: FND_FILE.PUT_LINE(fnd_file.log, 'Supp Execise Invoice Date :'|| pv_supp_exc_inv_date );
2736: FND_FILE.PUT_LINE(fnd_file.log, 'Vat Action :'|| pv_vat_action );
2737: FND_FILE.PUT_LINE(fnd_file.log, 'Supp VAT Invoice No. :'|| pv_supp_vat_inv_no );
2738: FND_FILE.PUT_LINE(fnd_file.log, 'Supp VAT Invoice Date :'|| pv_supp_vat_inv_date );
2739: FND_FILE.PUT_LINE(fnd_file.log, 'Down Revision Process :'|| pv_process_downward );
2740: FND_FILE.PUT_LINE(fnd_file.log, '--------------------------------------------------------- ');
2741: END;
2742:
2735: FND_FILE.PUT_LINE(fnd_file.log, 'Supp Execise Invoice Date :'|| pv_supp_exc_inv_date );
2736: FND_FILE.PUT_LINE(fnd_file.log, 'Vat Action :'|| pv_vat_action );
2737: FND_FILE.PUT_LINE(fnd_file.log, 'Supp VAT Invoice No. :'|| pv_supp_vat_inv_no );
2738: FND_FILE.PUT_LINE(fnd_file.log, 'Supp VAT Invoice Date :'|| pv_supp_vat_inv_date );
2739: FND_FILE.PUT_LINE(fnd_file.log, 'Down Revision Process :'|| pv_process_downward );
2740: FND_FILE.PUT_LINE(fnd_file.log, '--------------------------------------------------------- ');
2741: END;
2742:
2743: retcode := 0;
2736: FND_FILE.PUT_LINE(fnd_file.log, 'Vat Action :'|| pv_vat_action );
2737: FND_FILE.PUT_LINE(fnd_file.log, 'Supp VAT Invoice No. :'|| pv_supp_vat_inv_no );
2738: FND_FILE.PUT_LINE(fnd_file.log, 'Supp VAT Invoice Date :'|| pv_supp_vat_inv_date );
2739: FND_FILE.PUT_LINE(fnd_file.log, 'Down Revision Process :'|| pv_process_downward );
2740: FND_FILE.PUT_LINE(fnd_file.log, '--------------------------------------------------------- ');
2741: END;
2742:
2743: retcode := 0;
2744: errbuf := NULL;
2744: errbuf := NULL;
2745:
2746: IF (pv_cenvat_action ='CLAIM' AND (pv_supp_exc_inv_no IS NULL OR pv_supp_exc_inv_date IS NULL))
2747: THEN
2748: FND_FILE.PUT_LINE(fnd_file.log, ' Both Supplementary Excise Invoice NO and Supplementary Excise Invoice date should not be null when Excise Action is CLAIM' );
2749: retcode :=2;
2750: RETURN;
2751: END IF;
2752:
2752:
2753:
2754: IF (pv_vat_action ='CLAIM' AND (pv_supp_vat_inv_no IS NULL OR pv_supp_vat_inv_date IS NULL))
2755: THEN
2756: FND_FILE.PUT_LINE(fnd_file.log, ' Both Supplementary Vat Invoice NO and Supplementary Vat Invoice date should not be null when Excise Action is CLAIM' );
2757: retcode :=2;
2758: RETURN;
2759: END IF;
2760:
2762: lv_profile_setting := FND_PROFILE.VALUE('PO_ALLOW_RETROPRICING_OF_PO');
2763:
2764: IF (lv_profile_setting <>'ALL_RELEASES')
2765: THEN
2766: FND_FILE.PUT_LINE(fnd_file.log, 'PO: Allow Retroactive Pricing of POs = '||lv_profile_setting );
2767: FND_FILE.PUT_LINE(fnd_file.log, 'This Concurrent Program is not executed as the profile (PO: Allow Retroactive Pricing of POs) is not set to ''ALL RELEASES''');
2768: retcode :=0;
2769: RETURN;
2770: END IF;
2763:
2764: IF (lv_profile_setting <>'ALL_RELEASES')
2765: THEN
2766: FND_FILE.PUT_LINE(fnd_file.log, 'PO: Allow Retroactive Pricing of POs = '||lv_profile_setting );
2767: FND_FILE.PUT_LINE(fnd_file.log, 'This Concurrent Program is not executed as the profile (PO: Allow Retroactive Pricing of POs) is not set to ''ALL RELEASES''');
2768: retcode :=0;
2769: RETURN;
2770: END IF;
2771:
2772: FOR jai_retro_line_change_rec IN get_jai_retro_line_change_cur
2773: LOOP
2774: -- Print the shipment line information
2775: BEGIN
2776: FND_FILE.PUT_LINE(fnd_file.log, ' ');
2777: FND_FILE.PUT_LINE(fnd_file.log, '++++');
2778: FND_FILE.PUT_LINE(fnd_file.log, 'Loop for the shipment line, line_change_id ='||jai_retro_line_change_rec.line_change_id );
2779: FND_FILE.PUT_LINE(fnd_file.log, 'doc_type = '||jai_retro_line_change_rec.doc_type );
2780: FND_FILE.PUT_LINE(fnd_file.log, 'doc_header_id = '||jai_retro_line_change_rec.doc_header_id );
2773: LOOP
2774: -- Print the shipment line information
2775: BEGIN
2776: FND_FILE.PUT_LINE(fnd_file.log, ' ');
2777: FND_FILE.PUT_LINE(fnd_file.log, '++++');
2778: FND_FILE.PUT_LINE(fnd_file.log, 'Loop for the shipment line, line_change_id ='||jai_retro_line_change_rec.line_change_id );
2779: FND_FILE.PUT_LINE(fnd_file.log, 'doc_type = '||jai_retro_line_change_rec.doc_type );
2780: FND_FILE.PUT_LINE(fnd_file.log, 'doc_header_id = '||jai_retro_line_change_rec.doc_header_id );
2781: FND_FILE.PUT_LINE(fnd_file.log, 'doc_line_id = '||jai_retro_line_change_rec.doc_line_id );
2774: -- Print the shipment line information
2775: BEGIN
2776: FND_FILE.PUT_LINE(fnd_file.log, ' ');
2777: FND_FILE.PUT_LINE(fnd_file.log, '++++');
2778: FND_FILE.PUT_LINE(fnd_file.log, 'Loop for the shipment line, line_change_id ='||jai_retro_line_change_rec.line_change_id );
2779: FND_FILE.PUT_LINE(fnd_file.log, 'doc_type = '||jai_retro_line_change_rec.doc_type );
2780: FND_FILE.PUT_LINE(fnd_file.log, 'doc_header_id = '||jai_retro_line_change_rec.doc_header_id );
2781: FND_FILE.PUT_LINE(fnd_file.log, 'doc_line_id = '||jai_retro_line_change_rec.doc_line_id );
2782: FND_FILE.PUT_LINE(fnd_file.log, 'line_location_id = '||jai_retro_line_change_rec.line_location_id );
2775: BEGIN
2776: FND_FILE.PUT_LINE(fnd_file.log, ' ');
2777: FND_FILE.PUT_LINE(fnd_file.log, '++++');
2778: FND_FILE.PUT_LINE(fnd_file.log, 'Loop for the shipment line, line_change_id ='||jai_retro_line_change_rec.line_change_id );
2779: FND_FILE.PUT_LINE(fnd_file.log, 'doc_type = '||jai_retro_line_change_rec.doc_type );
2780: FND_FILE.PUT_LINE(fnd_file.log, 'doc_header_id = '||jai_retro_line_change_rec.doc_header_id );
2781: FND_FILE.PUT_LINE(fnd_file.log, 'doc_line_id = '||jai_retro_line_change_rec.doc_line_id );
2782: FND_FILE.PUT_LINE(fnd_file.log, 'line_location_id = '||jai_retro_line_change_rec.line_location_id );
2783: FND_FILE.PUT_LINE(fnd_file.log, 'from_header_id = '||jai_retro_line_change_rec.from_header_id );
2776: FND_FILE.PUT_LINE(fnd_file.log, ' ');
2777: FND_FILE.PUT_LINE(fnd_file.log, '++++');
2778: FND_FILE.PUT_LINE(fnd_file.log, 'Loop for the shipment line, line_change_id ='||jai_retro_line_change_rec.line_change_id );
2779: FND_FILE.PUT_LINE(fnd_file.log, 'doc_type = '||jai_retro_line_change_rec.doc_type );
2780: FND_FILE.PUT_LINE(fnd_file.log, 'doc_header_id = '||jai_retro_line_change_rec.doc_header_id );
2781: FND_FILE.PUT_LINE(fnd_file.log, 'doc_line_id = '||jai_retro_line_change_rec.doc_line_id );
2782: FND_FILE.PUT_LINE(fnd_file.log, 'line_location_id = '||jai_retro_line_change_rec.line_location_id );
2783: FND_FILE.PUT_LINE(fnd_file.log, 'from_header_id = '||jai_retro_line_change_rec.from_header_id );
2784: FND_FILE.PUT_LINE(fnd_file.log, 'from_line_id = '||jai_retro_line_change_rec.from_line_id );
2777: FND_FILE.PUT_LINE(fnd_file.log, '++++');
2778: FND_FILE.PUT_LINE(fnd_file.log, 'Loop for the shipment line, line_change_id ='||jai_retro_line_change_rec.line_change_id );
2779: FND_FILE.PUT_LINE(fnd_file.log, 'doc_type = '||jai_retro_line_change_rec.doc_type );
2780: FND_FILE.PUT_LINE(fnd_file.log, 'doc_header_id = '||jai_retro_line_change_rec.doc_header_id );
2781: FND_FILE.PUT_LINE(fnd_file.log, 'doc_line_id = '||jai_retro_line_change_rec.doc_line_id );
2782: FND_FILE.PUT_LINE(fnd_file.log, 'line_location_id = '||jai_retro_line_change_rec.line_location_id );
2783: FND_FILE.PUT_LINE(fnd_file.log, 'from_header_id = '||jai_retro_line_change_rec.from_header_id );
2784: FND_FILE.PUT_LINE(fnd_file.log, 'from_line_id = '||jai_retro_line_change_rec.from_line_id );
2785: FND_FILE.PUT_LINE(fnd_file.log, 'doc_version_number = '||jai_retro_line_change_rec.doc_version_number );
2778: FND_FILE.PUT_LINE(fnd_file.log, 'Loop for the shipment line, line_change_id ='||jai_retro_line_change_rec.line_change_id );
2779: FND_FILE.PUT_LINE(fnd_file.log, 'doc_type = '||jai_retro_line_change_rec.doc_type );
2780: FND_FILE.PUT_LINE(fnd_file.log, 'doc_header_id = '||jai_retro_line_change_rec.doc_header_id );
2781: FND_FILE.PUT_LINE(fnd_file.log, 'doc_line_id = '||jai_retro_line_change_rec.doc_line_id );
2782: FND_FILE.PUT_LINE(fnd_file.log, 'line_location_id = '||jai_retro_line_change_rec.line_location_id );
2783: FND_FILE.PUT_LINE(fnd_file.log, 'from_header_id = '||jai_retro_line_change_rec.from_header_id );
2784: FND_FILE.PUT_LINE(fnd_file.log, 'from_line_id = '||jai_retro_line_change_rec.from_line_id );
2785: FND_FILE.PUT_LINE(fnd_file.log, 'doc_version_number = '||jai_retro_line_change_rec.doc_version_number );
2786: FND_FILE.PUT_LINE(fnd_file.log, 'inventory_item_id = '||jai_retro_line_change_rec.inventory_item_id );
2779: FND_FILE.PUT_LINE(fnd_file.log, 'doc_type = '||jai_retro_line_change_rec.doc_type );
2780: FND_FILE.PUT_LINE(fnd_file.log, 'doc_header_id = '||jai_retro_line_change_rec.doc_header_id );
2781: FND_FILE.PUT_LINE(fnd_file.log, 'doc_line_id = '||jai_retro_line_change_rec.doc_line_id );
2782: FND_FILE.PUT_LINE(fnd_file.log, 'line_location_id = '||jai_retro_line_change_rec.line_location_id );
2783: FND_FILE.PUT_LINE(fnd_file.log, 'from_header_id = '||jai_retro_line_change_rec.from_header_id );
2784: FND_FILE.PUT_LINE(fnd_file.log, 'from_line_id = '||jai_retro_line_change_rec.from_line_id );
2785: FND_FILE.PUT_LINE(fnd_file.log, 'doc_version_number = '||jai_retro_line_change_rec.doc_version_number );
2786: FND_FILE.PUT_LINE(fnd_file.log, 'inventory_item_id = '||jai_retro_line_change_rec.inventory_item_id );
2787: FND_FILE.PUT_LINE(fnd_file.log, 'organization_id = '||jai_retro_line_change_rec.organization_id );
2780: FND_FILE.PUT_LINE(fnd_file.log, 'doc_header_id = '||jai_retro_line_change_rec.doc_header_id );
2781: FND_FILE.PUT_LINE(fnd_file.log, 'doc_line_id = '||jai_retro_line_change_rec.doc_line_id );
2782: FND_FILE.PUT_LINE(fnd_file.log, 'line_location_id = '||jai_retro_line_change_rec.line_location_id );
2783: FND_FILE.PUT_LINE(fnd_file.log, 'from_header_id = '||jai_retro_line_change_rec.from_header_id );
2784: FND_FILE.PUT_LINE(fnd_file.log, 'from_line_id = '||jai_retro_line_change_rec.from_line_id );
2785: FND_FILE.PUT_LINE(fnd_file.log, 'doc_version_number = '||jai_retro_line_change_rec.doc_version_number );
2786: FND_FILE.PUT_LINE(fnd_file.log, 'inventory_item_id = '||jai_retro_line_change_rec.inventory_item_id );
2787: FND_FILE.PUT_LINE(fnd_file.log, 'organization_id = '||jai_retro_line_change_rec.organization_id );
2788: FND_FILE.PUT_LINE(fnd_file.log, 'original_unit_price = '||jai_retro_line_change_rec.original_unit_price );
2781: FND_FILE.PUT_LINE(fnd_file.log, 'doc_line_id = '||jai_retro_line_change_rec.doc_line_id );
2782: FND_FILE.PUT_LINE(fnd_file.log, 'line_location_id = '||jai_retro_line_change_rec.line_location_id );
2783: FND_FILE.PUT_LINE(fnd_file.log, 'from_header_id = '||jai_retro_line_change_rec.from_header_id );
2784: FND_FILE.PUT_LINE(fnd_file.log, 'from_line_id = '||jai_retro_line_change_rec.from_line_id );
2785: FND_FILE.PUT_LINE(fnd_file.log, 'doc_version_number = '||jai_retro_line_change_rec.doc_version_number );
2786: FND_FILE.PUT_LINE(fnd_file.log, 'inventory_item_id = '||jai_retro_line_change_rec.inventory_item_id );
2787: FND_FILE.PUT_LINE(fnd_file.log, 'organization_id = '||jai_retro_line_change_rec.organization_id );
2788: FND_FILE.PUT_LINE(fnd_file.log, 'original_unit_price = '||jai_retro_line_change_rec.original_unit_price );
2789: FND_FILE.PUT_LINE(fnd_file.log, 'modified_unit_price = '||jai_retro_line_change_rec.modified_unit_price );
2782: FND_FILE.PUT_LINE(fnd_file.log, 'line_location_id = '||jai_retro_line_change_rec.line_location_id );
2783: FND_FILE.PUT_LINE(fnd_file.log, 'from_header_id = '||jai_retro_line_change_rec.from_header_id );
2784: FND_FILE.PUT_LINE(fnd_file.log, 'from_line_id = '||jai_retro_line_change_rec.from_line_id );
2785: FND_FILE.PUT_LINE(fnd_file.log, 'doc_version_number = '||jai_retro_line_change_rec.doc_version_number );
2786: FND_FILE.PUT_LINE(fnd_file.log, 'inventory_item_id = '||jai_retro_line_change_rec.inventory_item_id );
2787: FND_FILE.PUT_LINE(fnd_file.log, 'organization_id = '||jai_retro_line_change_rec.organization_id );
2788: FND_FILE.PUT_LINE(fnd_file.log, 'original_unit_price = '||jai_retro_line_change_rec.original_unit_price );
2789: FND_FILE.PUT_LINE(fnd_file.log, 'modified_unit_price = '||jai_retro_line_change_rec.modified_unit_price );
2790: FND_FILE.PUT_LINE(fnd_file.log, 'receipt_processed_flag = '||jai_retro_line_change_rec.receipt_processed_flag);
2783: FND_FILE.PUT_LINE(fnd_file.log, 'from_header_id = '||jai_retro_line_change_rec.from_header_id );
2784: FND_FILE.PUT_LINE(fnd_file.log, 'from_line_id = '||jai_retro_line_change_rec.from_line_id );
2785: FND_FILE.PUT_LINE(fnd_file.log, 'doc_version_number = '||jai_retro_line_change_rec.doc_version_number );
2786: FND_FILE.PUT_LINE(fnd_file.log, 'inventory_item_id = '||jai_retro_line_change_rec.inventory_item_id );
2787: FND_FILE.PUT_LINE(fnd_file.log, 'organization_id = '||jai_retro_line_change_rec.organization_id );
2788: FND_FILE.PUT_LINE(fnd_file.log, 'original_unit_price = '||jai_retro_line_change_rec.original_unit_price );
2789: FND_FILE.PUT_LINE(fnd_file.log, 'modified_unit_price = '||jai_retro_line_change_rec.modified_unit_price );
2790: FND_FILE.PUT_LINE(fnd_file.log, 'receipt_processed_flag = '||jai_retro_line_change_rec.receipt_processed_flag);
2791: FND_FILE.PUT_LINE(fnd_file.log, 'excise_action = '||jai_retro_line_change_rec.excise_action );
2784: FND_FILE.PUT_LINE(fnd_file.log, 'from_line_id = '||jai_retro_line_change_rec.from_line_id );
2785: FND_FILE.PUT_LINE(fnd_file.log, 'doc_version_number = '||jai_retro_line_change_rec.doc_version_number );
2786: FND_FILE.PUT_LINE(fnd_file.log, 'inventory_item_id = '||jai_retro_line_change_rec.inventory_item_id );
2787: FND_FILE.PUT_LINE(fnd_file.log, 'organization_id = '||jai_retro_line_change_rec.organization_id );
2788: FND_FILE.PUT_LINE(fnd_file.log, 'original_unit_price = '||jai_retro_line_change_rec.original_unit_price );
2789: FND_FILE.PUT_LINE(fnd_file.log, 'modified_unit_price = '||jai_retro_line_change_rec.modified_unit_price );
2790: FND_FILE.PUT_LINE(fnd_file.log, 'receipt_processed_flag = '||jai_retro_line_change_rec.receipt_processed_flag);
2791: FND_FILE.PUT_LINE(fnd_file.log, 'excise_action = '||jai_retro_line_change_rec.excise_action );
2792: FND_FILE.PUT_LINE(fnd_file.log, 'vat_action = '||jai_retro_line_change_rec.vat_action );
2785: FND_FILE.PUT_LINE(fnd_file.log, 'doc_version_number = '||jai_retro_line_change_rec.doc_version_number );
2786: FND_FILE.PUT_LINE(fnd_file.log, 'inventory_item_id = '||jai_retro_line_change_rec.inventory_item_id );
2787: FND_FILE.PUT_LINE(fnd_file.log, 'organization_id = '||jai_retro_line_change_rec.organization_id );
2788: FND_FILE.PUT_LINE(fnd_file.log, 'original_unit_price = '||jai_retro_line_change_rec.original_unit_price );
2789: FND_FILE.PUT_LINE(fnd_file.log, 'modified_unit_price = '||jai_retro_line_change_rec.modified_unit_price );
2790: FND_FILE.PUT_LINE(fnd_file.log, 'receipt_processed_flag = '||jai_retro_line_change_rec.receipt_processed_flag);
2791: FND_FILE.PUT_LINE(fnd_file.log, 'excise_action = '||jai_retro_line_change_rec.excise_action );
2792: FND_FILE.PUT_LINE(fnd_file.log, 'vat_action = '||jai_retro_line_change_rec.vat_action );
2793: FND_FILE.PUT_LINE(fnd_file.log, 'excise_invoice_no = '||jai_retro_line_change_rec.excise_invoice_no );
2786: FND_FILE.PUT_LINE(fnd_file.log, 'inventory_item_id = '||jai_retro_line_change_rec.inventory_item_id );
2787: FND_FILE.PUT_LINE(fnd_file.log, 'organization_id = '||jai_retro_line_change_rec.organization_id );
2788: FND_FILE.PUT_LINE(fnd_file.log, 'original_unit_price = '||jai_retro_line_change_rec.original_unit_price );
2789: FND_FILE.PUT_LINE(fnd_file.log, 'modified_unit_price = '||jai_retro_line_change_rec.modified_unit_price );
2790: FND_FILE.PUT_LINE(fnd_file.log, 'receipt_processed_flag = '||jai_retro_line_change_rec.receipt_processed_flag);
2791: FND_FILE.PUT_LINE(fnd_file.log, 'excise_action = '||jai_retro_line_change_rec.excise_action );
2792: FND_FILE.PUT_LINE(fnd_file.log, 'vat_action = '||jai_retro_line_change_rec.vat_action );
2793: FND_FILE.PUT_LINE(fnd_file.log, 'excise_invoice_no = '||jai_retro_line_change_rec.excise_invoice_no );
2794: FND_FILE.PUT_LINE(fnd_file.log, 'excise_invoice_date = '||jai_retro_line_change_rec.excise_invoice_date );
2787: FND_FILE.PUT_LINE(fnd_file.log, 'organization_id = '||jai_retro_line_change_rec.organization_id );
2788: FND_FILE.PUT_LINE(fnd_file.log, 'original_unit_price = '||jai_retro_line_change_rec.original_unit_price );
2789: FND_FILE.PUT_LINE(fnd_file.log, 'modified_unit_price = '||jai_retro_line_change_rec.modified_unit_price );
2790: FND_FILE.PUT_LINE(fnd_file.log, 'receipt_processed_flag = '||jai_retro_line_change_rec.receipt_processed_flag);
2791: FND_FILE.PUT_LINE(fnd_file.log, 'excise_action = '||jai_retro_line_change_rec.excise_action );
2792: FND_FILE.PUT_LINE(fnd_file.log, 'vat_action = '||jai_retro_line_change_rec.vat_action );
2793: FND_FILE.PUT_LINE(fnd_file.log, 'excise_invoice_no = '||jai_retro_line_change_rec.excise_invoice_no );
2794: FND_FILE.PUT_LINE(fnd_file.log, 'excise_invoice_date = '||jai_retro_line_change_rec.excise_invoice_date );
2795: FND_FILE.PUT_LINE(fnd_file.log, 'vat_invoice_no = '||jai_retro_line_change_rec.vat_invoice_no );
2788: FND_FILE.PUT_LINE(fnd_file.log, 'original_unit_price = '||jai_retro_line_change_rec.original_unit_price );
2789: FND_FILE.PUT_LINE(fnd_file.log, 'modified_unit_price = '||jai_retro_line_change_rec.modified_unit_price );
2790: FND_FILE.PUT_LINE(fnd_file.log, 'receipt_processed_flag = '||jai_retro_line_change_rec.receipt_processed_flag);
2791: FND_FILE.PUT_LINE(fnd_file.log, 'excise_action = '||jai_retro_line_change_rec.excise_action );
2792: FND_FILE.PUT_LINE(fnd_file.log, 'vat_action = '||jai_retro_line_change_rec.vat_action );
2793: FND_FILE.PUT_LINE(fnd_file.log, 'excise_invoice_no = '||jai_retro_line_change_rec.excise_invoice_no );
2794: FND_FILE.PUT_LINE(fnd_file.log, 'excise_invoice_date = '||jai_retro_line_change_rec.excise_invoice_date );
2795: FND_FILE.PUT_LINE(fnd_file.log, 'vat_invoice_no = '||jai_retro_line_change_rec.vat_invoice_no );
2796: FND_FILE.PUT_LINE(fnd_file.log, 'vat_invoice_date = '||jai_retro_line_change_rec.vat_invoice_date );
2789: FND_FILE.PUT_LINE(fnd_file.log, 'modified_unit_price = '||jai_retro_line_change_rec.modified_unit_price );
2790: FND_FILE.PUT_LINE(fnd_file.log, 'receipt_processed_flag = '||jai_retro_line_change_rec.receipt_processed_flag);
2791: FND_FILE.PUT_LINE(fnd_file.log, 'excise_action = '||jai_retro_line_change_rec.excise_action );
2792: FND_FILE.PUT_LINE(fnd_file.log, 'vat_action = '||jai_retro_line_change_rec.vat_action );
2793: FND_FILE.PUT_LINE(fnd_file.log, 'excise_invoice_no = '||jai_retro_line_change_rec.excise_invoice_no );
2794: FND_FILE.PUT_LINE(fnd_file.log, 'excise_invoice_date = '||jai_retro_line_change_rec.excise_invoice_date );
2795: FND_FILE.PUT_LINE(fnd_file.log, 'vat_invoice_no = '||jai_retro_line_change_rec.vat_invoice_no );
2796: FND_FILE.PUT_LINE(fnd_file.log, 'vat_invoice_date = '||jai_retro_line_change_rec.vat_invoice_date );
2797: FND_FILE.PUT_LINE(fnd_file.log, 'retro_request_id = '||jai_retro_line_change_rec.retro_request_id );
2790: FND_FILE.PUT_LINE(fnd_file.log, 'receipt_processed_flag = '||jai_retro_line_change_rec.receipt_processed_flag);
2791: FND_FILE.PUT_LINE(fnd_file.log, 'excise_action = '||jai_retro_line_change_rec.excise_action );
2792: FND_FILE.PUT_LINE(fnd_file.log, 'vat_action = '||jai_retro_line_change_rec.vat_action );
2793: FND_FILE.PUT_LINE(fnd_file.log, 'excise_invoice_no = '||jai_retro_line_change_rec.excise_invoice_no );
2794: FND_FILE.PUT_LINE(fnd_file.log, 'excise_invoice_date = '||jai_retro_line_change_rec.excise_invoice_date );
2795: FND_FILE.PUT_LINE(fnd_file.log, 'vat_invoice_no = '||jai_retro_line_change_rec.vat_invoice_no );
2796: FND_FILE.PUT_LINE(fnd_file.log, 'vat_invoice_date = '||jai_retro_line_change_rec.vat_invoice_date );
2797: FND_FILE.PUT_LINE(fnd_file.log, 'retro_request_id = '||jai_retro_line_change_rec.retro_request_id );
2798: FND_FILE.PUT_LINE(fnd_file.log, 'doc_number = '||jai_retro_line_change_rec.doc_number );
2791: FND_FILE.PUT_LINE(fnd_file.log, 'excise_action = '||jai_retro_line_change_rec.excise_action );
2792: FND_FILE.PUT_LINE(fnd_file.log, 'vat_action = '||jai_retro_line_change_rec.vat_action );
2793: FND_FILE.PUT_LINE(fnd_file.log, 'excise_invoice_no = '||jai_retro_line_change_rec.excise_invoice_no );
2794: FND_FILE.PUT_LINE(fnd_file.log, 'excise_invoice_date = '||jai_retro_line_change_rec.excise_invoice_date );
2795: FND_FILE.PUT_LINE(fnd_file.log, 'vat_invoice_no = '||jai_retro_line_change_rec.vat_invoice_no );
2796: FND_FILE.PUT_LINE(fnd_file.log, 'vat_invoice_date = '||jai_retro_line_change_rec.vat_invoice_date );
2797: FND_FILE.PUT_LINE(fnd_file.log, 'retro_request_id = '||jai_retro_line_change_rec.retro_request_id );
2798: FND_FILE.PUT_LINE(fnd_file.log, 'doc_number = '||jai_retro_line_change_rec.doc_number );
2799: FND_FILE.PUT_LINE(fnd_file.log, 'vendor_id = '||jai_retro_line_change_rec.vendor_id );
2792: FND_FILE.PUT_LINE(fnd_file.log, 'vat_action = '||jai_retro_line_change_rec.vat_action );
2793: FND_FILE.PUT_LINE(fnd_file.log, 'excise_invoice_no = '||jai_retro_line_change_rec.excise_invoice_no );
2794: FND_FILE.PUT_LINE(fnd_file.log, 'excise_invoice_date = '||jai_retro_line_change_rec.excise_invoice_date );
2795: FND_FILE.PUT_LINE(fnd_file.log, 'vat_invoice_no = '||jai_retro_line_change_rec.vat_invoice_no );
2796: FND_FILE.PUT_LINE(fnd_file.log, 'vat_invoice_date = '||jai_retro_line_change_rec.vat_invoice_date );
2797: FND_FILE.PUT_LINE(fnd_file.log, 'retro_request_id = '||jai_retro_line_change_rec.retro_request_id );
2798: FND_FILE.PUT_LINE(fnd_file.log, 'doc_number = '||jai_retro_line_change_rec.doc_number );
2799: FND_FILE.PUT_LINE(fnd_file.log, 'vendor_id = '||jai_retro_line_change_rec.vendor_id );
2800: FND_FILE.PUT_LINE(fnd_file.log, 'vendor_site_id = '||jai_retro_line_change_rec.vendor_site_id );
2793: FND_FILE.PUT_LINE(fnd_file.log, 'excise_invoice_no = '||jai_retro_line_change_rec.excise_invoice_no );
2794: FND_FILE.PUT_LINE(fnd_file.log, 'excise_invoice_date = '||jai_retro_line_change_rec.excise_invoice_date );
2795: FND_FILE.PUT_LINE(fnd_file.log, 'vat_invoice_no = '||jai_retro_line_change_rec.vat_invoice_no );
2796: FND_FILE.PUT_LINE(fnd_file.log, 'vat_invoice_date = '||jai_retro_line_change_rec.vat_invoice_date );
2797: FND_FILE.PUT_LINE(fnd_file.log, 'retro_request_id = '||jai_retro_line_change_rec.retro_request_id );
2798: FND_FILE.PUT_LINE(fnd_file.log, 'doc_number = '||jai_retro_line_change_rec.doc_number );
2799: FND_FILE.PUT_LINE(fnd_file.log, 'vendor_id = '||jai_retro_line_change_rec.vendor_id );
2800: FND_FILE.PUT_LINE(fnd_file.log, 'vendor_site_id = '||jai_retro_line_change_rec.vendor_site_id );
2801: END;
2794: FND_FILE.PUT_LINE(fnd_file.log, 'excise_invoice_date = '||jai_retro_line_change_rec.excise_invoice_date );
2795: FND_FILE.PUT_LINE(fnd_file.log, 'vat_invoice_no = '||jai_retro_line_change_rec.vat_invoice_no );
2796: FND_FILE.PUT_LINE(fnd_file.log, 'vat_invoice_date = '||jai_retro_line_change_rec.vat_invoice_date );
2797: FND_FILE.PUT_LINE(fnd_file.log, 'retro_request_id = '||jai_retro_line_change_rec.retro_request_id );
2798: FND_FILE.PUT_LINE(fnd_file.log, 'doc_number = '||jai_retro_line_change_rec.doc_number );
2799: FND_FILE.PUT_LINE(fnd_file.log, 'vendor_id = '||jai_retro_line_change_rec.vendor_id );
2800: FND_FILE.PUT_LINE(fnd_file.log, 'vendor_site_id = '||jai_retro_line_change_rec.vendor_site_id );
2801: END;
2802:
2795: FND_FILE.PUT_LINE(fnd_file.log, 'vat_invoice_no = '||jai_retro_line_change_rec.vat_invoice_no );
2796: FND_FILE.PUT_LINE(fnd_file.log, 'vat_invoice_date = '||jai_retro_line_change_rec.vat_invoice_date );
2797: FND_FILE.PUT_LINE(fnd_file.log, 'retro_request_id = '||jai_retro_line_change_rec.retro_request_id );
2798: FND_FILE.PUT_LINE(fnd_file.log, 'doc_number = '||jai_retro_line_change_rec.doc_number );
2799: FND_FILE.PUT_LINE(fnd_file.log, 'vendor_id = '||jai_retro_line_change_rec.vendor_id );
2800: FND_FILE.PUT_LINE(fnd_file.log, 'vendor_site_id = '||jai_retro_line_change_rec.vendor_site_id );
2801: END;
2802:
2803: ln_skip_rcpt_cnt := 0; --This is to count the number of receipts which are not processed for this Shipment
2796: FND_FILE.PUT_LINE(fnd_file.log, 'vat_invoice_date = '||jai_retro_line_change_rec.vat_invoice_date );
2797: FND_FILE.PUT_LINE(fnd_file.log, 'retro_request_id = '||jai_retro_line_change_rec.retro_request_id );
2798: FND_FILE.PUT_LINE(fnd_file.log, 'doc_number = '||jai_retro_line_change_rec.doc_number );
2799: FND_FILE.PUT_LINE(fnd_file.log, 'vendor_id = '||jai_retro_line_change_rec.vendor_id );
2800: FND_FILE.PUT_LINE(fnd_file.log, 'vendor_site_id = '||jai_retro_line_change_rec.vendor_site_id );
2801: END;
2802:
2803: ln_skip_rcpt_cnt := 0; --This is to count the number of receipts which are not processed for this Shipment
2804: ln_receipt_processed_no :=0 ;--Initial vaiable for counting receipt processed number for a shipment
2813: jai_rcv_transactions_rec := Get_Jai_Rcv_Trans_Record(rcv_transactions_rec.transaction_id);
2814: jai_rcv_lines_rec := Get_Jai_Rcv_Lines_Record(rcv_transactions_rec.transaction_id);
2815:
2816: BEGIN
2817: FND_FILE.PUT_LINE(fnd_file.log, ' ');
2818: FND_FILE.PUT_LINE(fnd_file.log, ' ++');
2819: FND_FILE.PUT_LINE(fnd_file.log, ' LOOP through the RECEIVE transactions,Transaction id is : ' ||rcv_transactions_rec.transaction_id);
2820: FND_FILE.PUT_LINE(fnd_file.log, ' Shipment Header id is : ' ||jai_rcv_lines_rec.shipment_header_id);
2821: FND_FILE.PUT_LINE(fnd_file.log, ' Shipment Line id is : ' ||jai_rcv_lines_rec.shipment_line_id);
2814: jai_rcv_lines_rec := Get_Jai_Rcv_Lines_Record(rcv_transactions_rec.transaction_id);
2815:
2816: BEGIN
2817: FND_FILE.PUT_LINE(fnd_file.log, ' ');
2818: FND_FILE.PUT_LINE(fnd_file.log, ' ++');
2819: FND_FILE.PUT_LINE(fnd_file.log, ' LOOP through the RECEIVE transactions,Transaction id is : ' ||rcv_transactions_rec.transaction_id);
2820: FND_FILE.PUT_LINE(fnd_file.log, ' Shipment Header id is : ' ||jai_rcv_lines_rec.shipment_header_id);
2821: FND_FILE.PUT_LINE(fnd_file.log, ' Shipment Line id is : ' ||jai_rcv_lines_rec.shipment_line_id);
2822: FND_FILE.PUT_LINE(fnd_file.log, ' Receipt Number is : ' ||jai_rcv_lines_rec.receipt_num );
2815:
2816: BEGIN
2817: FND_FILE.PUT_LINE(fnd_file.log, ' ');
2818: FND_FILE.PUT_LINE(fnd_file.log, ' ++');
2819: FND_FILE.PUT_LINE(fnd_file.log, ' LOOP through the RECEIVE transactions,Transaction id is : ' ||rcv_transactions_rec.transaction_id);
2820: FND_FILE.PUT_LINE(fnd_file.log, ' Shipment Header id is : ' ||jai_rcv_lines_rec.shipment_header_id);
2821: FND_FILE.PUT_LINE(fnd_file.log, ' Shipment Line id is : ' ||jai_rcv_lines_rec.shipment_line_id);
2822: FND_FILE.PUT_LINE(fnd_file.log, ' Receipt Number is : ' ||jai_rcv_lines_rec.receipt_num );
2823: FND_FILE.PUT_LINE(fnd_file.log, ' Receipt Vat status is : ' ||jai_rcv_transactions_rec.process_vat_status);
2816: BEGIN
2817: FND_FILE.PUT_LINE(fnd_file.log, ' ');
2818: FND_FILE.PUT_LINE(fnd_file.log, ' ++');
2819: FND_FILE.PUT_LINE(fnd_file.log, ' LOOP through the RECEIVE transactions,Transaction id is : ' ||rcv_transactions_rec.transaction_id);
2820: FND_FILE.PUT_LINE(fnd_file.log, ' Shipment Header id is : ' ||jai_rcv_lines_rec.shipment_header_id);
2821: FND_FILE.PUT_LINE(fnd_file.log, ' Shipment Line id is : ' ||jai_rcv_lines_rec.shipment_line_id);
2822: FND_FILE.PUT_LINE(fnd_file.log, ' Receipt Number is : ' ||jai_rcv_lines_rec.receipt_num );
2823: FND_FILE.PUT_LINE(fnd_file.log, ' Receipt Vat status is : ' ||jai_rcv_transactions_rec.process_vat_status);
2824: FND_FILE.PUT_LINE(fnd_file.log, ' Receipt CenVat status is : ' ||jai_rcv_transactions_rec.cenvat_rg_status);
2817: FND_FILE.PUT_LINE(fnd_file.log, ' ');
2818: FND_FILE.PUT_LINE(fnd_file.log, ' ++');
2819: FND_FILE.PUT_LINE(fnd_file.log, ' LOOP through the RECEIVE transactions,Transaction id is : ' ||rcv_transactions_rec.transaction_id);
2820: FND_FILE.PUT_LINE(fnd_file.log, ' Shipment Header id is : ' ||jai_rcv_lines_rec.shipment_header_id);
2821: FND_FILE.PUT_LINE(fnd_file.log, ' Shipment Line id is : ' ||jai_rcv_lines_rec.shipment_line_id);
2822: FND_FILE.PUT_LINE(fnd_file.log, ' Receipt Number is : ' ||jai_rcv_lines_rec.receipt_num );
2823: FND_FILE.PUT_LINE(fnd_file.log, ' Receipt Vat status is : ' ||jai_rcv_transactions_rec.process_vat_status);
2824: FND_FILE.PUT_LINE(fnd_file.log, ' Receipt CenVat status is : ' ||jai_rcv_transactions_rec.cenvat_rg_status);
2825: FND_FILE.PUT_LINE(fnd_file.log, '');
2818: FND_FILE.PUT_LINE(fnd_file.log, ' ++');
2819: FND_FILE.PUT_LINE(fnd_file.log, ' LOOP through the RECEIVE transactions,Transaction id is : ' ||rcv_transactions_rec.transaction_id);
2820: FND_FILE.PUT_LINE(fnd_file.log, ' Shipment Header id is : ' ||jai_rcv_lines_rec.shipment_header_id);
2821: FND_FILE.PUT_LINE(fnd_file.log, ' Shipment Line id is : ' ||jai_rcv_lines_rec.shipment_line_id);
2822: FND_FILE.PUT_LINE(fnd_file.log, ' Receipt Number is : ' ||jai_rcv_lines_rec.receipt_num );
2823: FND_FILE.PUT_LINE(fnd_file.log, ' Receipt Vat status is : ' ||jai_rcv_transactions_rec.process_vat_status);
2824: FND_FILE.PUT_LINE(fnd_file.log, ' Receipt CenVat status is : ' ||jai_rcv_transactions_rec.cenvat_rg_status);
2825: FND_FILE.PUT_LINE(fnd_file.log, '');
2826: END;
2819: FND_FILE.PUT_LINE(fnd_file.log, ' LOOP through the RECEIVE transactions,Transaction id is : ' ||rcv_transactions_rec.transaction_id);
2820: FND_FILE.PUT_LINE(fnd_file.log, ' Shipment Header id is : ' ||jai_rcv_lines_rec.shipment_header_id);
2821: FND_FILE.PUT_LINE(fnd_file.log, ' Shipment Line id is : ' ||jai_rcv_lines_rec.shipment_line_id);
2822: FND_FILE.PUT_LINE(fnd_file.log, ' Receipt Number is : ' ||jai_rcv_lines_rec.receipt_num );
2823: FND_FILE.PUT_LINE(fnd_file.log, ' Receipt Vat status is : ' ||jai_rcv_transactions_rec.process_vat_status);
2824: FND_FILE.PUT_LINE(fnd_file.log, ' Receipt CenVat status is : ' ||jai_rcv_transactions_rec.cenvat_rg_status);
2825: FND_FILE.PUT_LINE(fnd_file.log, '');
2826: END;
2827: IF ( jai_rcv_transactions_rec.process_vat_status IS NULL
2820: FND_FILE.PUT_LINE(fnd_file.log, ' Shipment Header id is : ' ||jai_rcv_lines_rec.shipment_header_id);
2821: FND_FILE.PUT_LINE(fnd_file.log, ' Shipment Line id is : ' ||jai_rcv_lines_rec.shipment_line_id);
2822: FND_FILE.PUT_LINE(fnd_file.log, ' Receipt Number is : ' ||jai_rcv_lines_rec.receipt_num );
2823: FND_FILE.PUT_LINE(fnd_file.log, ' Receipt Vat status is : ' ||jai_rcv_transactions_rec.process_vat_status);
2824: FND_FILE.PUT_LINE(fnd_file.log, ' Receipt CenVat status is : ' ||jai_rcv_transactions_rec.cenvat_rg_status);
2825: FND_FILE.PUT_LINE(fnd_file.log, '');
2826: END;
2827: IF ( jai_rcv_transactions_rec.process_vat_status IS NULL
2828: OR jai_rcv_transactions_rec.process_vat_status = 'P'
2821: FND_FILE.PUT_LINE(fnd_file.log, ' Shipment Line id is : ' ||jai_rcv_lines_rec.shipment_line_id);
2822: FND_FILE.PUT_LINE(fnd_file.log, ' Receipt Number is : ' ||jai_rcv_lines_rec.receipt_num );
2823: FND_FILE.PUT_LINE(fnd_file.log, ' Receipt Vat status is : ' ||jai_rcv_transactions_rec.process_vat_status);
2824: FND_FILE.PUT_LINE(fnd_file.log, ' Receipt CenVat status is : ' ||jai_rcv_transactions_rec.cenvat_rg_status);
2825: FND_FILE.PUT_LINE(fnd_file.log, '');
2826: END;
2827: IF ( jai_rcv_transactions_rec.process_vat_status IS NULL
2828: OR jai_rcv_transactions_rec.process_vat_status = 'P'
2829: OR jai_rcv_transactions_rec.process_vat_status = 'N'
2841: OR jai_rcv_transactions_rec.process_vat_status = 'N'
2842: OR jai_rcv_transactions_rec.process_vat_status = 'EE'
2843: )
2844: THEN
2845: FND_FILE.PUT_LINE(fnd_file.log, ' Vat tax on the receipt :'||jai_rcv_lines_rec.receipt_num||' is not claimed.');
2846: END IF;
2847:
2848: IF( jai_rcv_transactions_rec.cenvat_rg_status IS NULL
2849: OR jai_rcv_transactions_rec.cenvat_rg_status = 'P'
2850: OR jai_rcv_transactions_rec.cenvat_rg_status = 'N'
2851: OR jai_rcv_transactions_rec.cenvat_rg_status = 'EE'
2852: )
2853: THEN
2854: FND_FILE.PUT_LINE(fnd_file.log, ' Cenvat tax on the receipt :'||jai_rcv_lines_rec.receipt_num||' is not claimed.');
2855: END IF;
2856:
2857: FND_FILE.PUT_LINE(fnd_file.log, ' Please Claim it before running the concurrent JAI Retroactive price Update');
2858: ln_skip_rcpt_cnt := ln_skip_rcpt_cnt + 1;
2853: THEN
2854: FND_FILE.PUT_LINE(fnd_file.log, ' Cenvat tax on the receipt :'||jai_rcv_lines_rec.receipt_num||' is not claimed.');
2855: END IF;
2856:
2857: FND_FILE.PUT_LINE(fnd_file.log, ' Please Claim it before running the concurrent JAI Retroactive price Update');
2858: ln_skip_rcpt_cnt := ln_skip_rcpt_cnt + 1;
2859: ELSE
2860: --get the retro line change id the receipt from a sequence
2861: SELECT
2866: DUAL;
2867:
2868: IF (ln_proc_level >= ln_dbg_level)
2869: THEN
2870: FND_FILE.PUT_LINE(fnd_file.log, ' ln_retro_line_changes_id : '|| ln_retro_line_changes_id);
2871: END IF; --l_proc_level>=l_dbg_level
2872:
2873: --get the version number of retro tax line for the receipt
2874: --starting from 0
2883: AND doc_type = 'RECEIPT';
2884:
2885: IF (ln_proc_level >= ln_dbg_level)
2886: THEN
2887: FND_FILE.PUT_LINE(fnd_file.log, ' ln_retro_line_changes_version : '|| ln_retro_line_changes_version);
2888: END IF; --l_proc_level>=l_dbg_level
2889:
2890: --insert data into jai_retro_line_changes table
2891: INSERT INTO jai_retro_line_changes
2952: );
2953:
2954: IF (ln_proc_level >= ln_dbg_level)
2955: THEN
2956: FND_FILE.PUT_LINE(fnd_file.log, ' Table jai_retro_line_changes inserted ');
2957: END IF; --l_proc_level>=l_dbg_level
2958:
2959: FOR jai_rcv_line_taxes_rec IN get_jai_rcv_line_taxes_cur (rcv_transactions_rec.transaction_id)
2960: LOOP
3002: END LOOP;-- (jai_rcv_line_taxes_rec IN get_jai_rcv_line_taxes_cur)
3003:
3004: IF (ln_proc_level >= ln_dbg_level)
3005: THEN
3006: FND_FILE.PUT_LINE(fnd_file.log, ' Table jai_retro_tax_changes inserted ');
3007: END IF; --l_proc_level>=l_dbg_level
3008:
3009: --calc_new_line_amount
3010: ln_recv_line_amount := jai_retro_line_change_rec.modified_unit_price
3013: ln_recv_tax_amount := ln_recv_line_amount;
3014:
3015: IF (ln_proc_level >= ln_dbg_level)
3016: THEN
3017: FND_FILE.PUT_LINE(fnd_file.log, ' ln_recv_line_amount : '|| ln_recv_line_amount);
3018: FND_FILE.PUT_LINE(fnd_file.log, ' ln_recv_tax_amount : '|| ln_recv_tax_amount);
3019: END IF; --l_proc_level>=l_dbg_level
3020:
3021: --get_assessable_value
3014:
3015: IF (ln_proc_level >= ln_dbg_level)
3016: THEN
3017: FND_FILE.PUT_LINE(fnd_file.log, ' ln_recv_line_amount : '|| ln_recv_line_amount);
3018: FND_FILE.PUT_LINE(fnd_file.log, ' ln_recv_tax_amount : '|| ln_recv_tax_amount);
3019: END IF; --l_proc_level>=l_dbg_level
3020:
3021: --get_assessable_value
3022: ln_assessable_value := jai_cmn_setup_pkg.get_po_assessable_value
3027: );
3028:
3029: IF (ln_proc_level >= ln_dbg_level)
3030: THEN
3031: FND_FILE.PUT_LINE(fnd_file.log, ' ln_assessable_value : '|| ln_assessable_value);
3032: END IF; --l_proc_level>=l_dbg_level
3033:
3034: IF NVL( ln_assessable_value, 0 ) <= 0
3035: THEN
3039: END IF;
3040:
3041: IF (ln_proc_level >= ln_dbg_level)
3042: THEN
3043: FND_FILE.PUT_LINE(fnd_file.log, ' ln_assessable_value :=ln_assessable_value*quantity : '|| ln_assessable_value);
3044: END IF; --l_proc_level>=l_dbg_level
3045:
3046: --get_vat_assessable_value
3047: ln_vat_assess_value := jai_general_pkg.ja_in_vat_assessable_value
3055: );
3056:
3057: IF (ln_proc_level >= ln_dbg_level)
3058: THEN
3059: FND_FILE.PUT_LINE(fnd_file.log, ' ln_vat_assess_value : '|| ln_vat_assess_value);
3060: END IF; --l_proc_level>=l_dbg_level
3061:
3062:
3063: ln_vat_assess_value := ln_vat_assess_value * rcv_transactions_rec.quantity;
3063: ln_vat_assess_value := ln_vat_assess_value * rcv_transactions_rec.quantity;
3064:
3065: IF (ln_proc_level >= ln_dbg_level)
3066: THEN
3067: FND_FILE.PUT_LINE(fnd_file.log, ' ln_vat_assess_value :=ln_vat_assess_value*quantity : '|| ln_vat_assess_value);
3068: END IF; --l_proc_level>=l_dbg_level
3069:
3070: -- Added by Jia for GST Bug#10043656 on 2010/09/10, Begin
3071: -------------------------------------------------------------------------------------------
3081: );
3082:
3083: IF (ln_proc_level >= ln_dbg_level)
3084: THEN
3085: FND_FILE.PUT_LINE(fnd_file.log, ' ln_gst_assessable_value : '|| ln_gst_assessable_value);
3086: END IF; --l_proc_level>=l_dbg_level
3087:
3088: ln_gst_assessable_value := ln_gst_assessable_value * rcv_transactions_rec.quantity;
3089:
3088: ln_gst_assessable_value := ln_gst_assessable_value * rcv_transactions_rec.quantity;
3089:
3090: IF (ln_proc_level >= ln_dbg_level)
3091: THEN
3092: FND_FILE.PUT_LINE(fnd_file.log, ' ln_gst_assessable_value :=ln_gst_assessable_value*quantity : '|| ln_gst_assessable_value);
3093: END IF; --l_proc_level>=l_dbg_level
3094: */
3095: -------------------------------------------------------------------------------------------
3096: -- Added by Jia for GST Bug#10043656 on 2010/09/10, End
3116: */
3117: );
3118:
3119: -- print the new total tax amount of the receipt
3120: Fnd_File.Put_Line(FND_FILE.LOG,' New total tax amount of the receipt '||jai_rcv_lines_rec.receipt_num||' IS :' ||ln_recv_tax_amount);
3121:
3122: -- After recalculating the tax ,updat the modified_tax_amount of jai_retro_tax_changes table
3123: FOR jai_rcv_line_taxes_rec IN get_jai_rcv_line_taxes_cur (rcv_transactions_rec.transaction_id)
3124: LOOP
3136: AND tax_line_no = jai_rcv_line_taxes_rec.tax_line_no
3137: AND tax_id = jai_rcv_line_taxes_rec.tax_id ;
3138: END LOOP; --jai_rcv_line_taxes_rec IN get_jai_rcv_line_taxes_cur
3139:
3140: Fnd_File.Put_Line(FND_FILE.LOG,' New tax has been updated to the table jai_retro_tax_changes ');
3141:
3142: Get_Vat_CenVat_Amount
3143: ( pn_line_change_id => ln_retro_line_changes_id
3144: , xn_re_vat_amount => ln_re_vat_amount
3165: );
3166: ----------------------------------------------------------------------------------------------
3167: --eric added for bug 6957519/6958938/6968839 on Apr 10,2008,end
3168:
3169: Fnd_File.Put_Line(FND_FILE.LOG,' New VAT tax amount is : '|| ln_modif_re_vat_amount|| ', the difference from old vat tax is :'|| ln_diff_re_vat_amount);
3170: Fnd_File.Put_Line(FND_FILE.LOG,' New CENVAT tax amount is : '|| ln_modif_re_cenvat_amount|| ', the difference from old cenvat tax is :'|| ln_diff_re_cenvat_amount);
3171: Fnd_File.Put_Line(FND_FILE.LOG,' New NonRecoverable Tax is : '|| ln_modif_nonre_tax_amount|| ', the difference from old NonRecoverable tax is :'|| ln_diff_nonre_tax_amount);
3172:
3173: lv_cenvat_action := pv_cenvat_action ;
3166: ----------------------------------------------------------------------------------------------
3167: --eric added for bug 6957519/6958938/6968839 on Apr 10,2008,end
3168:
3169: Fnd_File.Put_Line(FND_FILE.LOG,' New VAT tax amount is : '|| ln_modif_re_vat_amount|| ', the difference from old vat tax is :'|| ln_diff_re_vat_amount);
3170: Fnd_File.Put_Line(FND_FILE.LOG,' New CENVAT tax amount is : '|| ln_modif_re_cenvat_amount|| ', the difference from old cenvat tax is :'|| ln_diff_re_cenvat_amount);
3171: Fnd_File.Put_Line(FND_FILE.LOG,' New NonRecoverable Tax is : '|| ln_modif_nonre_tax_amount|| ', the difference from old NonRecoverable tax is :'|| ln_diff_nonre_tax_amount);
3172:
3173: lv_cenvat_action := pv_cenvat_action ;
3174: lv_vat_action := pv_vat_action ;
3167: --eric added for bug 6957519/6958938/6968839 on Apr 10,2008,end
3168:
3169: Fnd_File.Put_Line(FND_FILE.LOG,' New VAT tax amount is : '|| ln_modif_re_vat_amount|| ', the difference from old vat tax is :'|| ln_diff_re_vat_amount);
3170: Fnd_File.Put_Line(FND_FILE.LOG,' New CENVAT tax amount is : '|| ln_modif_re_cenvat_amount|| ', the difference from old cenvat tax is :'|| ln_diff_re_cenvat_amount);
3171: Fnd_File.Put_Line(FND_FILE.LOG,' New NonRecoverable Tax is : '|| ln_modif_nonre_tax_amount|| ', the difference from old NonRecoverable tax is :'|| ln_diff_nonre_tax_amount);
3172:
3173: lv_cenvat_action := pv_cenvat_action ;
3174: lv_vat_action := pv_vat_action ;
3175:
3194: , pn_version_number => ln_retro_line_changes_version -- current version of the receipt i.e previous version plus one
3195: , pn_line_change_id => ln_retro_line_changes_id
3196: );
3197:
3198: Fnd_File.Put_Line(FND_FILE.LOG,' ');
3199: Fnd_File.Put_Line(FND_FILE.LOG,' Do_Accounting() Invoked. ');
3200: Fnd_File.Put_Line(FND_FILE.LOG,' ');
3201: -- print a message stating that accounting is done
3202: -- Call the procedure to Claim or Unclaim Cenvat do its accounting
3195: , pn_line_change_id => ln_retro_line_changes_id
3196: );
3197:
3198: Fnd_File.Put_Line(FND_FILE.LOG,' ');
3199: Fnd_File.Put_Line(FND_FILE.LOG,' Do_Accounting() Invoked. ');
3200: Fnd_File.Put_Line(FND_FILE.LOG,' ');
3201: -- print a message stating that accounting is done
3202: -- Call the procedure to Claim or Unclaim Cenvat do its accounting
3203:
3196: );
3197:
3198: Fnd_File.Put_Line(FND_FILE.LOG,' ');
3199: Fnd_File.Put_Line(FND_FILE.LOG,' Do_Accounting() Invoked. ');
3200: Fnd_File.Put_Line(FND_FILE.LOG,' ');
3201: -- print a message stating that accounting is done
3202: -- Call the procedure to Claim or Unclaim Cenvat do its accounting
3203:
3204: -- if its UNCLAIMED then amount is already uncalimed during DELIVER in do_accounting
3212: , pd_supp_exc_inv_date => ld_supp_exc_inv_date
3213: , pn_version_number => ln_retro_line_changes_version -- current version of the receipt
3214: , pn_line_change_id => ln_retro_line_changes_id
3215: );
3216: Fnd_File.Put_Line(FND_FILE.LOG,' ');
3217: Fnd_File.Put_Line(FND_FILE.LOG,' Do_Cenvat_Claim() Invoked. ');
3218: Fnd_File.Put_Line(FND_FILE.LOG,' ');
3219:
3220: --Print a message stating that the receipt cenvat is claimed or unclaimed depending on value of lv_cenvat_action
3213: , pn_version_number => ln_retro_line_changes_version -- current version of the receipt
3214: , pn_line_change_id => ln_retro_line_changes_id
3215: );
3216: Fnd_File.Put_Line(FND_FILE.LOG,' ');
3217: Fnd_File.Put_Line(FND_FILE.LOG,' Do_Cenvat_Claim() Invoked. ');
3218: Fnd_File.Put_Line(FND_FILE.LOG,' ');
3219:
3220: --Print a message stating that the receipt cenvat is claimed or unclaimed depending on value of lv_cenvat_action
3221: ELSE
3214: , pn_line_change_id => ln_retro_line_changes_id
3215: );
3216: Fnd_File.Put_Line(FND_FILE.LOG,' ');
3217: Fnd_File.Put_Line(FND_FILE.LOG,' Do_Cenvat_Claim() Invoked. ');
3218: Fnd_File.Put_Line(FND_FILE.LOG,' ');
3219:
3220: --Print a message stating that the receipt cenvat is claimed or unclaimed depending on value of lv_cenvat_action
3221: ELSE
3222: Fnd_File.Put_Line(FND_FILE.LOG,' Cenvat_action = '|| lv_cenvat_action);
3218: Fnd_File.Put_Line(FND_FILE.LOG,' ');
3219:
3220: --Print a message stating that the receipt cenvat is claimed or unclaimed depending on value of lv_cenvat_action
3221: ELSE
3222: Fnd_File.Put_Line(FND_FILE.LOG,' Cenvat_action = '|| lv_cenvat_action);
3223: Fnd_File.Put_Line(FND_FILE.LOG,' Diff Cenvat_Amount = '|| ln_diff_re_cenvat_amount);
3224: Fnd_File.Put_Line(FND_FILE.LOG,' Did not invoke DO_CENVAT_CLAIM() subroutine');
3225: END IF;--(lv_cenvat_action <> 'UNCLAIMED' AND ln_cenvat_amount <> 0 )
3226:
3219:
3220: --Print a message stating that the receipt cenvat is claimed or unclaimed depending on value of lv_cenvat_action
3221: ELSE
3222: Fnd_File.Put_Line(FND_FILE.LOG,' Cenvat_action = '|| lv_cenvat_action);
3223: Fnd_File.Put_Line(FND_FILE.LOG,' Diff Cenvat_Amount = '|| ln_diff_re_cenvat_amount);
3224: Fnd_File.Put_Line(FND_FILE.LOG,' Did not invoke DO_CENVAT_CLAIM() subroutine');
3225: END IF;--(lv_cenvat_action <> 'UNCLAIMED' AND ln_cenvat_amount <> 0 )
3226:
3227: -- Call the procedure to Claim or Unclaim VAT and do its accounting
3220: --Print a message stating that the receipt cenvat is claimed or unclaimed depending on value of lv_cenvat_action
3221: ELSE
3222: Fnd_File.Put_Line(FND_FILE.LOG,' Cenvat_action = '|| lv_cenvat_action);
3223: Fnd_File.Put_Line(FND_FILE.LOG,' Diff Cenvat_Amount = '|| ln_diff_re_cenvat_amount);
3224: Fnd_File.Put_Line(FND_FILE.LOG,' Did not invoke DO_CENVAT_CLAIM() subroutine');
3225: END IF;--(lv_cenvat_action <> 'UNCLAIMED' AND ln_cenvat_amount <> 0 )
3226:
3227: -- Call the procedure to Claim or Unclaim VAT and do its accounting
3228:
3237: pn_version_number => ln_retro_line_changes_version -- current version of the receipt
3238: , pn_line_change_id => ln_retro_line_changes_id
3239: );
3240:
3241: Fnd_File.Put_Line(FND_FILE.LOG,' ');
3242: Fnd_File.Put_Line(FND_FILE.LOG,' Do_Vat_Claim() Invoked. ');
3243: Fnd_File.Put_Line(FND_FILE.LOG,' ');
3244:
3245: --Print a message stating that the receipt vat is claimed or unclaimed depending on value of lv_vat_action
3238: , pn_line_change_id => ln_retro_line_changes_id
3239: );
3240:
3241: Fnd_File.Put_Line(FND_FILE.LOG,' ');
3242: Fnd_File.Put_Line(FND_FILE.LOG,' Do_Vat_Claim() Invoked. ');
3243: Fnd_File.Put_Line(FND_FILE.LOG,' ');
3244:
3245: --Print a message stating that the receipt vat is claimed or unclaimed depending on value of lv_vat_action
3246: ELSE
3239: );
3240:
3241: Fnd_File.Put_Line(FND_FILE.LOG,' ');
3242: Fnd_File.Put_Line(FND_FILE.LOG,' Do_Vat_Claim() Invoked. ');
3243: Fnd_File.Put_Line(FND_FILE.LOG,' ');
3244:
3245: --Print a message stating that the receipt vat is claimed or unclaimed depending on value of lv_vat_action
3246: ELSE
3247: Fnd_File.Put_Line(FND_FILE.LOG,' lv_vat_action = '|| lv_vat_action);
3243: Fnd_File.Put_Line(FND_FILE.LOG,' ');
3244:
3245: --Print a message stating that the receipt vat is claimed or unclaimed depending on value of lv_vat_action
3246: ELSE
3247: Fnd_File.Put_Line(FND_FILE.LOG,' lv_vat_action = '|| lv_vat_action);
3248: Fnd_File.Put_Line(FND_FILE.LOG,' Diff Vat Amount = '|| ln_diff_re_vat_amount);
3249: Fnd_File.Put_Line(FND_FILE.LOG,' Did not invoke DO_VAT_CLAIM() subroutine');
3250: END IF; --(lv_vat_action <> 'UNCLAIMED' AND ln_vat_amount <> 0)
3251:
3244:
3245: --Print a message stating that the receipt vat is claimed or unclaimed depending on value of lv_vat_action
3246: ELSE
3247: Fnd_File.Put_Line(FND_FILE.LOG,' lv_vat_action = '|| lv_vat_action);
3248: Fnd_File.Put_Line(FND_FILE.LOG,' Diff Vat Amount = '|| ln_diff_re_vat_amount);
3249: Fnd_File.Put_Line(FND_FILE.LOG,' Did not invoke DO_VAT_CLAIM() subroutine');
3250: END IF; --(lv_vat_action <> 'UNCLAIMED' AND ln_vat_amount <> 0)
3251:
3252: --Increaset the total processed receipt number;
3245: --Print a message stating that the receipt vat is claimed or unclaimed depending on value of lv_vat_action
3246: ELSE
3247: Fnd_File.Put_Line(FND_FILE.LOG,' lv_vat_action = '|| lv_vat_action);
3248: Fnd_File.Put_Line(FND_FILE.LOG,' Diff Vat Amount = '|| ln_diff_re_vat_amount);
3249: Fnd_File.Put_Line(FND_FILE.LOG,' Did not invoke DO_VAT_CLAIM() subroutine');
3250: END IF; --(lv_vat_action <> 'UNCLAIMED' AND ln_vat_amount <> 0)
3251:
3252: --Increaset the total processed receipt number;
3253: ln_receipt_processed_no :=ln_receipt_processed_no+1;
3252: --Increaset the total processed receipt number;
3253: ln_receipt_processed_no :=ln_receipt_processed_no+1;
3254: END IF; -- IF ( jai_rcv_transactions_rec.process_vat_status IS NULL )
3255:
3256: FND_FILE.PUT_LINE(fnd_file.log, ' The Receipt :'||jai_rcv_lines_rec.receipt_num||' processing is done.');
3257: FND_FILE.PUT_LINE(fnd_file.log, ' End loop through the RECEIVE transactions,Transaction id is : ' ||rcv_transactions_rec.transaction_id);
3258: FND_FILE.PUT_LINE(fnd_file.log, ' ++');
3259: END LOOP; --rcv_transactions_rec IN get_rcv_transactions_cur
3260:
3253: ln_receipt_processed_no :=ln_receipt_processed_no+1;
3254: END IF; -- IF ( jai_rcv_transactions_rec.process_vat_status IS NULL )
3255:
3256: FND_FILE.PUT_LINE(fnd_file.log, ' The Receipt :'||jai_rcv_lines_rec.receipt_num||' processing is done.');
3257: FND_FILE.PUT_LINE(fnd_file.log, ' End loop through the RECEIVE transactions,Transaction id is : ' ||rcv_transactions_rec.transaction_id);
3258: FND_FILE.PUT_LINE(fnd_file.log, ' ++');
3259: END LOOP; --rcv_transactions_rec IN get_rcv_transactions_cur
3260:
3261: IF (ln_skip_rcpt_cnt =0)
3254: END IF; -- IF ( jai_rcv_transactions_rec.process_vat_status IS NULL )
3255:
3256: FND_FILE.PUT_LINE(fnd_file.log, ' The Receipt :'||jai_rcv_lines_rec.receipt_num||' processing is done.');
3257: FND_FILE.PUT_LINE(fnd_file.log, ' End loop through the RECEIVE transactions,Transaction id is : ' ||rcv_transactions_rec.transaction_id);
3258: FND_FILE.PUT_LINE(fnd_file.log, ' ++');
3259: END LOOP; --rcv_transactions_rec IN get_rcv_transactions_cur
3260:
3261: IF (ln_skip_rcpt_cnt =0)
3262: THEN
3270:
3271: --increase the number of total receipt processed
3272: ln_tot_receipt_processed_no := ln_tot_receipt_processed_no + ln_receipt_processed_no ;
3273:
3274: FND_FILE.PUT_LINE(fnd_file.log, 'Total receipt number for current shipment is: '||ln_tot_receipt_no);
3275: FND_FILE.PUT_LINE(fnd_file.log, 'Total processed receipt for current shipment number is: '||ln_receipt_processed_no);
3276: FND_FILE.PUT_LINE(fnd_file.log, 'End loop for the shipment line, line_change_id ='||jai_retro_line_change_rec.line_change_id );
3277: FND_FILE.PUT_LINE(fnd_file.log, '++++');
3278: END LOOP;--jai_retro_line_change_rec IN get_jai_retro_line_change_cur
3271: --increase the number of total receipt processed
3272: ln_tot_receipt_processed_no := ln_tot_receipt_processed_no + ln_receipt_processed_no ;
3273:
3274: FND_FILE.PUT_LINE(fnd_file.log, 'Total receipt number for current shipment is: '||ln_tot_receipt_no);
3275: FND_FILE.PUT_LINE(fnd_file.log, 'Total processed receipt for current shipment number is: '||ln_receipt_processed_no);
3276: FND_FILE.PUT_LINE(fnd_file.log, 'End loop for the shipment line, line_change_id ='||jai_retro_line_change_rec.line_change_id );
3277: FND_FILE.PUT_LINE(fnd_file.log, '++++');
3278: END LOOP;--jai_retro_line_change_rec IN get_jai_retro_line_change_cur
3279:
3272: ln_tot_receipt_processed_no := ln_tot_receipt_processed_no + ln_receipt_processed_no ;
3273:
3274: FND_FILE.PUT_LINE(fnd_file.log, 'Total receipt number for current shipment is: '||ln_tot_receipt_no);
3275: FND_FILE.PUT_LINE(fnd_file.log, 'Total processed receipt for current shipment number is: '||ln_receipt_processed_no);
3276: FND_FILE.PUT_LINE(fnd_file.log, 'End loop for the shipment line, line_change_id ='||jai_retro_line_change_rec.line_change_id );
3277: FND_FILE.PUT_LINE(fnd_file.log, '++++');
3278: END LOOP;--jai_retro_line_change_rec IN get_jai_retro_line_change_cur
3279:
3280: IF ( ln_skip_rcpt_cnt IS NULL OR ln_tot_receipt_processed_no = 0)
3273:
3274: FND_FILE.PUT_LINE(fnd_file.log, 'Total receipt number for current shipment is: '||ln_tot_receipt_no);
3275: FND_FILE.PUT_LINE(fnd_file.log, 'Total processed receipt for current shipment number is: '||ln_receipt_processed_no);
3276: FND_FILE.PUT_LINE(fnd_file.log, 'End loop for the shipment line, line_change_id ='||jai_retro_line_change_rec.line_change_id );
3277: FND_FILE.PUT_LINE(fnd_file.log, '++++');
3278: END LOOP;--jai_retro_line_change_rec IN get_jai_retro_line_change_cur
3279:
3280: IF ( ln_skip_rcpt_cnt IS NULL OR ln_tot_receipt_processed_no = 0)
3281: THEN
3278: END LOOP;--jai_retro_line_change_rec IN get_jai_retro_line_change_cur
3279:
3280: IF ( ln_skip_rcpt_cnt IS NULL OR ln_tot_receipt_processed_no = 0)
3281: THEN
3282: Fnd_File.Put_Line(FND_FILE.LOG,' ');
3283: Fnd_File.Put_Line(FND_FILE.LOG,' ');
3284: Fnd_File.Put_Line(FND_FILE.LOG,'No valid data found for processing');
3285: Fnd_File.Put_Line(FND_FILE.LOG,' ');
3286: Fnd_File.Put_Line(FND_FILE.LOG,' ');
3279:
3280: IF ( ln_skip_rcpt_cnt IS NULL OR ln_tot_receipt_processed_no = 0)
3281: THEN
3282: Fnd_File.Put_Line(FND_FILE.LOG,' ');
3283: Fnd_File.Put_Line(FND_FILE.LOG,' ');
3284: Fnd_File.Put_Line(FND_FILE.LOG,'No valid data found for processing');
3285: Fnd_File.Put_Line(FND_FILE.LOG,' ');
3286: Fnd_File.Put_Line(FND_FILE.LOG,' ');
3287: END IF ;
3280: IF ( ln_skip_rcpt_cnt IS NULL OR ln_tot_receipt_processed_no = 0)
3281: THEN
3282: Fnd_File.Put_Line(FND_FILE.LOG,' ');
3283: Fnd_File.Put_Line(FND_FILE.LOG,' ');
3284: Fnd_File.Put_Line(FND_FILE.LOG,'No valid data found for processing');
3285: Fnd_File.Put_Line(FND_FILE.LOG,' ');
3286: Fnd_File.Put_Line(FND_FILE.LOG,' ');
3287: END IF ;
3288: --logging for debug
3281: THEN
3282: Fnd_File.Put_Line(FND_FILE.LOG,' ');
3283: Fnd_File.Put_Line(FND_FILE.LOG,' ');
3284: Fnd_File.Put_Line(FND_FILE.LOG,'No valid data found for processing');
3285: Fnd_File.Put_Line(FND_FILE.LOG,' ');
3286: Fnd_File.Put_Line(FND_FILE.LOG,' ');
3287: END IF ;
3288: --logging for debug
3289: IF (ln_proc_level >= ln_dbg_level)
3282: Fnd_File.Put_Line(FND_FILE.LOG,' ');
3283: Fnd_File.Put_Line(FND_FILE.LOG,' ');
3284: Fnd_File.Put_Line(FND_FILE.LOG,'No valid data found for processing');
3285: Fnd_File.Put_Line(FND_FILE.LOG,' ');
3286: Fnd_File.Put_Line(FND_FILE.LOG,' ');
3287: END IF ;
3288: --logging for debug
3289: IF (ln_proc_level >= ln_dbg_level)
3290: THEN