82: AND aida.invoice_line_number IS NULL
83: AND aida.invoice_id IS NULL ;
84:
85: ln_line_number NUMBER ;
86: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
87: ln_proc_level NUMBER := FND_LOG.level_procedure;
88: lv_proc_name VARCHAR2 (100) := 'Validate_Item_Dist_Lines';
89:
90: BEGIN
83: AND aida.invoice_id IS NULL ;
84:
85: ln_line_number NUMBER ;
86: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
87: ln_proc_level NUMBER := FND_LOG.level_procedure;
88: lv_proc_name VARCHAR2 (100) := 'Validate_Item_Dist_Lines';
89:
90: BEGIN
91:
90: BEGIN
91:
92: IF ( ln_proc_level >= ln_dbg_level)
93: THEN
94: FND_LOG.STRING ( ln_proc_level
95: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
96: , 'Enter procedure'
97: );
98: FND_LOG.STRING ( ln_proc_level
94: FND_LOG.STRING ( ln_proc_level
95: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
96: , 'Enter procedure'
97: );
98: FND_LOG.STRING ( ln_proc_level
99: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
100: , 'pn_invoice_id ' || pn_invoice_id
101: );
102: END IF;
110: --log for debug
111: IF ( ln_proc_level >= ln_dbg_level)
112: THEN
113:
114: FND_LOG.STRING ( ln_proc_level
115: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
116: , 'ln_line_number ' || NVL(ln_line_number,-99)
117: );
118:
115: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
116: , 'ln_line_number ' || NVL(ln_line_number,-99)
117: );
118:
119: FND_LOG.STRING ( ln_proc_level
120: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.end'
121: , 'Exit Function'
122: );
123: END IF; --( ln_proc_level >= ln_dbg_level )
141: EXCEPTION
142: WHEN OTHERS THEN
143: IF ( ln_proc_level >= ln_dbg_level)
144: THEN
145: FND_LOG.STRING ( ln_proc_level
146: , GV_MODULE_PREFIX|| '.'|| lv_proc_name
147: || '. Other_Exception '
148: , SQLCODE || ':' || SQLERRM
149: );
185: AND aila.SOURCE = 'INDIA TAX INVOICE'
186: AND aila.invoice_type_lookup_code ='CREDIT';
187:
188: ln_invoice_id AP_INVOICES_ALL.invoice_id%TYPE;
189: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
190: ln_proc_level NUMBER := FND_LOG.level_procedure;
191: lv_proc_name VARCHAR2 (100) := 'Validate_3rd_party_cm_Invoice';
192: BEGIN
193:
186: AND aila.invoice_type_lookup_code ='CREDIT';
187:
188: ln_invoice_id AP_INVOICES_ALL.invoice_id%TYPE;
189: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
190: ln_proc_level NUMBER := FND_LOG.level_procedure;
191: lv_proc_name VARCHAR2 (100) := 'Validate_3rd_party_cm_Invoice';
192: BEGIN
193:
194: IF ( ln_proc_level >= ln_dbg_level)
192: BEGIN
193:
194: IF ( ln_proc_level >= ln_dbg_level)
195: THEN
196: FND_LOG.STRING ( ln_proc_level
197: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
198: , 'Enter procedure'
199: );
200: FND_LOG.STRING ( ln_proc_level
196: FND_LOG.STRING ( ln_proc_level
197: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
198: , 'Enter procedure'
199: );
200: FND_LOG.STRING ( ln_proc_level
201: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
202: , 'pn_invoice_id ' || pn_invoice_id
203: );
204: END IF;
210:
211: IF ( ln_proc_level >= ln_dbg_level)
212: THEN
213:
214: FND_LOG.STRING ( ln_proc_level
215: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
216: , 'ln_invoice_id ' || NVL(ln_invoice_id,-99)
217: );
218:
215: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
216: , 'ln_invoice_id ' || NVL(ln_invoice_id,-99)
217: );
218:
219: FND_LOG.STRING ( ln_proc_level
220: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.end'
221: , 'Exit Function'
222: );
223: END IF; --( ln_proc_level >= ln_dbg_level )
232: EXCEPTION
233: WHEN OTHERS THEN
234: IF ( ln_proc_level >= ln_dbg_level)
235: THEN
236: FND_LOG.STRING ( ln_proc_level
237: , GV_MODULE_PREFIX|| '.'|| lv_proc_name
238: || '. Other_Exception '
239: , SQLCODE || ':' || SQLERRM
240: );
273: , pn_tax_allocation_number IN NUMBER
274: )
275: IS
276:
277: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
278: ln_proc_level NUMBER := FND_LOG.level_procedure;
279: lv_proc_name VARCHAR2 (100) := 'Insert_Tax_Distribution_Lines';
280: BEGIN
281:
274: )
275: IS
276:
277: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
278: ln_proc_level NUMBER := FND_LOG.level_procedure;
279: lv_proc_name VARCHAR2 (100) := 'Insert_Tax_Distribution_Lines';
280: BEGIN
281:
282: --log for debug
281:
282: --log for debug
283: IF ( ln_proc_level >= ln_dbg_level)
284: THEN
285: FND_LOG.STRING ( ln_proc_level
286: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
287: , 'Enter procedure'
288: );
289: FND_LOG.STRING ( ln_proc_level
285: FND_LOG.STRING ( ln_proc_level
286: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
287: , 'Enter procedure'
288: );
289: FND_LOG.STRING ( ln_proc_level
290: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
291: , 'pn_invoice_id ' || pn_invoice_id
292: );
293: FND_LOG.STRING ( ln_proc_level
289: FND_LOG.STRING ( ln_proc_level
290: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
291: , 'pn_invoice_id ' || pn_invoice_id
292: );
293: FND_LOG.STRING ( ln_proc_level
294: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
295: , 'pn_invoice_line_number ' || pn_invoice_line_number
296: );
297: FND_LOG.STRING ( ln_proc_level
293: FND_LOG.STRING ( ln_proc_level
294: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
295: , 'pn_invoice_line_number ' || pn_invoice_line_number
296: );
297: FND_LOG.STRING ( ln_proc_level
298: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
299: , 'pn_item_allocation_number ' || pn_item_allocation_number
300: );
301: FND_LOG.STRING ( ln_proc_level
297: FND_LOG.STRING ( ln_proc_level
298: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
299: , 'pn_item_allocation_number ' || pn_item_allocation_number
300: );
301: FND_LOG.STRING ( ln_proc_level
302: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
303: , 'pn_tax_allocation_number ' || pn_tax_allocation_number
304: );
305: END IF;
804: END LOOP; --(i IN (pn_tax_allocation_number+1) .. pn_item_allocation_number)
805:
806: IF ( ln_proc_level >= ln_dbg_level)
807: THEN
808: FND_LOG.STRING ( ln_proc_level
809: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.end'
810: , 'Exit procedure'
811: );
812: END IF; --( ln_proc_level >= ln_dbg_level )
813: EXCEPTION
814: WHEN OTHERS THEN
815: IF ( ln_proc_level >= ln_dbg_level)
816: THEN
817: FND_LOG.STRING ( ln_proc_level
818: , GV_MODULE_PREFIX|| '.'|| lv_proc_name
819: || '. Other_Exception '
820: , SQLCODE || ':' || SQLERRM
821: );
849: , pn_item_allocation_number IN NUMBER
850: )
851: IS
852:
853: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
854: ln_proc_level NUMBER := FND_LOG.level_procedure;
855: lv_proc_name VARCHAR2 (100) := 'Delete_Tax_Distribution_Lines';
856: BEGIN
857: --log for debug
850: )
851: IS
852:
853: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
854: ln_proc_level NUMBER := FND_LOG.level_procedure;
855: lv_proc_name VARCHAR2 (100) := 'Delete_Tax_Distribution_Lines';
856: BEGIN
857: --log for debug
858: IF ( ln_proc_level >= ln_dbg_level)
856: BEGIN
857: --log for debug
858: IF ( ln_proc_level >= ln_dbg_level)
859: THEN
860: FND_LOG.STRING ( ln_proc_level
861: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
862: , 'Enter procedure'
863: );
864: FND_LOG.STRING ( ln_proc_level
860: FND_LOG.STRING ( ln_proc_level
861: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
862: , 'Enter procedure'
863: );
864: FND_LOG.STRING ( ln_proc_level
865: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
866: , 'pn_invoice_id ' || pn_invoice_id
867: );
868: FND_LOG.STRING ( ln_proc_level
864: FND_LOG.STRING ( ln_proc_level
865: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
866: , 'pn_invoice_id ' || pn_invoice_id
867: );
868: FND_LOG.STRING ( ln_proc_level
869: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
870: , 'pn_invoice_line_number ' || pn_invoice_line_number
871: );
872: FND_LOG.STRING ( ln_proc_level
868: FND_LOG.STRING ( ln_proc_level
869: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
870: , 'pn_invoice_line_number ' || pn_invoice_line_number
871: );
872: FND_LOG.STRING ( ln_proc_level
873: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
874: , 'pn_item_allocation_number ' || pn_item_allocation_number
875: );
876: END IF;
884: AND distribution_line_number > pn_item_allocation_number;
885:
886: IF ( ln_proc_level >= ln_dbg_level)
887: THEN
888: FND_LOG.STRING ( ln_proc_level
889: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.end'
890: , 'Exit procedure'
891: );
892:
889: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.end'
890: , 'Exit procedure'
891: );
892:
893: FND_LOG.STRING ( ln_proc_level
894: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.end'
895: , 'Exit procedure'
896: );
897: END IF; --( ln_proc_level >= ln_dbg_level )
899: EXCEPTION
900: WHEN OTHERS THEN
901: IF ( ln_proc_level >= ln_dbg_level)
902: THEN
903: FND_LOG.STRING ( ln_proc_level
904: , GV_MODULE_PREFIX|| '.'|| lv_proc_name
905: || '. Other_Exception '
906: , SQLCODE || ':' || SQLERRM
907: );
1031: tax_rec get_tax_cur%ROWTYPE;
1032: ln_dist_total_amount NUMBER;
1033: ln_dist_total_base_amount NUMBER;
1034:
1035: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
1036: ln_proc_level NUMBER := FND_LOG.level_procedure;
1037: lv_proc_name VARCHAR2 (100) := 'Allocate_Tax_Dist_Lines';
1038: BEGIN
1039: --log for debug
1032: ln_dist_total_amount NUMBER;
1033: ln_dist_total_base_amount NUMBER;
1034:
1035: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
1036: ln_proc_level NUMBER := FND_LOG.level_procedure;
1037: lv_proc_name VARCHAR2 (100) := 'Allocate_Tax_Dist_Lines';
1038: BEGIN
1039: --log for debug
1040: IF ( ln_proc_level >= ln_dbg_level)
1038: BEGIN
1039: --log for debug
1040: IF ( ln_proc_level >= ln_dbg_level)
1041: THEN
1042: FND_LOG.STRING ( ln_proc_level
1043: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
1044: , 'Enter procedure'
1045: );
1046: FND_LOG.STRING ( ln_proc_level
1042: FND_LOG.STRING ( ln_proc_level
1043: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
1044: , 'Enter procedure'
1045: );
1046: FND_LOG.STRING ( ln_proc_level
1047: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
1048: , 'pn_invoice_id ' || pn_invoice_id
1049: );
1050: FND_LOG.STRING ( ln_proc_level
1046: FND_LOG.STRING ( ln_proc_level
1047: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
1048: , 'pn_invoice_id ' || pn_invoice_id
1049: );
1050: FND_LOG.STRING ( ln_proc_level
1051: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
1052: , 'pn_invoice_item_line_number '
1053: || pn_invoice_item_line_number
1054: );
1246: EXCEPTION
1247: WHEN OTHERS THEN
1248: IF ( ln_proc_level >= ln_dbg_level)
1249: THEN
1250: FND_LOG.STRING ( ln_proc_level
1251: , GV_MODULE_PREFIX|| '.'|| lv_proc_name
1252: || '. Other_Exception '
1253: , SQLCODE || ':' || SQLERRM
1254: );
1282: )
1283: RETURN VARCHAR2
1284: IS
1285: lv_tax_type VARCHAR2(10) ;
1286: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
1287: ln_proc_level NUMBER := FND_LOG.level_procedure;
1288: lv_proc_name VARCHAR2 (100) := 'Get_Tax_Type';
1289: BEGIN
1290: IF ( ln_proc_level >= ln_dbg_level)
1283: RETURN VARCHAR2
1284: IS
1285: lv_tax_type VARCHAR2(10) ;
1286: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
1287: ln_proc_level NUMBER := FND_LOG.level_procedure;
1288: lv_proc_name VARCHAR2 (100) := 'Get_Tax_Type';
1289: BEGIN
1290: IF ( ln_proc_level >= ln_dbg_level)
1291: THEN
1288: lv_proc_name VARCHAR2 (100) := 'Get_Tax_Type';
1289: BEGIN
1290: IF ( ln_proc_level >= ln_dbg_level)
1291: THEN
1292: FND_LOG.STRING ( ln_proc_level
1293: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
1294: , 'Enter procedure'
1295: );
1296: FND_LOG.STRING ( ln_proc_level
1292: FND_LOG.STRING ( ln_proc_level
1293: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
1294: , 'Enter procedure'
1295: );
1296: FND_LOG.STRING ( ln_proc_level
1297: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
1298: , 'pv_modvat_flag ' || pv_modvat_flag
1299: );
1300: FND_LOG.STRING ( ln_proc_level
1296: FND_LOG.STRING ( ln_proc_level
1297: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
1298: , 'pv_modvat_flag ' || pv_modvat_flag
1299: );
1300: FND_LOG.STRING ( ln_proc_level
1301: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
1302: , 'pn_cr_percentage ' || pn_cr_percentage
1303: );
1304: END IF; --(ln_proc_level >= ln_dbg_level)
1324:
1325:
1326: IF ( ln_proc_level >= ln_dbg_level)
1327: THEN
1328: FND_LOG.STRING ( ln_proc_level
1329: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
1330: , 'lv_tax_type ' || lv_tax_type
1331: );
1332:
1329: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
1330: , 'lv_tax_type ' || lv_tax_type
1331: );
1332:
1333: FND_LOG.STRING ( ln_proc_level
1334: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.end'
1335: , 'Exit procedure'
1336: );
1337: END IF; --( ln_proc_level >= ln_dbg_level )
1340: EXCEPTION
1341: WHEN OTHERS THEN
1342: IF ( ln_proc_level >= ln_dbg_level)
1343: THEN
1344: FND_LOG.STRING ( ln_proc_level
1345: , GV_MODULE_PREFIX|| '.'|| lv_proc_name
1346: || '. Other_Exception '
1347: , SQLCODE || ':' || SQLERRM
1348: );
1448: ln_regime_id jai_rgm_definitions.regime_id%TYPE;
1449: lv_regime_code jai_rgm_definitions.regime_code%TYPE;
1450: lv_regim_tax_type jai_rgm_registrations.attribute_code%TYPE;
1451:
1452: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
1453: ln_proc_level NUMBER := FND_LOG.level_procedure;
1454: lv_proc_name VARCHAR2 (100) := 'Get_Dist_Account_Ccid';
1455:
1456: BEGIN
1449: lv_regime_code jai_rgm_definitions.regime_code%TYPE;
1450: lv_regim_tax_type jai_rgm_registrations.attribute_code%TYPE;
1451:
1452: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
1453: ln_proc_level NUMBER := FND_LOG.level_procedure;
1454: lv_proc_name VARCHAR2 (100) := 'Get_Dist_Account_Ccid';
1455:
1456: BEGIN
1457: --log for debug
1456: BEGIN
1457: --log for debug
1458: IF ( ln_proc_level >= ln_dbg_level)
1459: THEN
1460: FND_LOG.STRING ( ln_proc_level
1461: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
1462: , 'Enter procedure'
1463: );
1464: FND_LOG.STRING ( ln_proc_level
1460: FND_LOG.STRING ( ln_proc_level
1461: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
1462: , 'Enter procedure'
1463: );
1464: FND_LOG.STRING ( ln_proc_level
1465: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
1466: , 'pn_organization_id ' || pn_organization_id
1467: );
1468: FND_LOG.STRING ( ln_proc_level
1464: FND_LOG.STRING ( ln_proc_level
1465: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
1466: , 'pn_organization_id ' || pn_organization_id
1467: );
1468: FND_LOG.STRING ( ln_proc_level
1469: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
1470: , 'pn_location_id ' || pn_location_id
1471: );
1472: FND_LOG.STRING ( ln_proc_level
1468: FND_LOG.STRING ( ln_proc_level
1469: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
1470: , 'pn_location_id ' || pn_location_id
1471: );
1472: FND_LOG.STRING ( ln_proc_level
1473: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
1474: , 'pn_organization_id ' || pn_organization_id
1475: );
1476: FND_LOG.STRING ( ln_proc_level
1472: FND_LOG.STRING ( ln_proc_level
1473: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
1474: , 'pn_organization_id ' || pn_organization_id
1475: );
1476: FND_LOG.STRING ( ln_proc_level
1477: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
1478: , 'pn_tax_acct_ccid ' || pn_tax_acct_ccid
1479: );
1480: FND_LOG.STRING ( ln_proc_level
1476: FND_LOG.STRING ( ln_proc_level
1477: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
1478: , 'pn_tax_acct_ccid ' || pn_tax_acct_ccid
1479: );
1480: FND_LOG.STRING ( ln_proc_level
1481: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
1482: , 'pv_tax_type ' || pv_tax_type
1483: );
1484: END IF;
1579: END IF; --(lv_recoverable_flag = 'N')
1580:
1581: IF ( ln_proc_level >= ln_dbg_level)
1582: THEN
1583: FND_LOG.STRING ( ln_proc_level
1584: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
1585: , 'ln_dist_acct_ccid ' || ln_dist_acct_ccid
1586: );
1587:
1584: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
1585: , 'ln_dist_acct_ccid ' || ln_dist_acct_ccid
1586: );
1587:
1588: FND_LOG.STRING ( ln_proc_level
1589: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.end'
1590: , 'Exit procedure'
1591: );
1592: END IF; --( ln_proc_level >= ln_dbg_level )
1595: EXCEPTION
1596: WHEN OTHERS THEN
1597: IF ( ln_proc_level >= ln_dbg_level)
1598: THEN
1599: FND_LOG.STRING ( ln_proc_level
1600: , GV_MODULE_PREFIX|| '.'|| lv_proc_name
1601: || '. Other_Exception '
1602: , SQLCODE || ':' || SQLERRM
1603: );
1629: FUNCTION Get_Max_Invoice_Line_Number (pn_invoice_id NUMBER)
1630: RETURN NUMBER
1631: IS
1632: ln_max_line_number NUMBER;
1633: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
1634: ln_proc_level NUMBER := FND_LOG.level_procedure;
1635: lv_proc_name VARCHAR2 (100) := 'Get_Max_Invoice_Line_Number';
1636: BEGIN
1637: --log for debug
1630: RETURN NUMBER
1631: IS
1632: ln_max_line_number NUMBER;
1633: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
1634: ln_proc_level NUMBER := FND_LOG.level_procedure;
1635: lv_proc_name VARCHAR2 (100) := 'Get_Max_Invoice_Line_Number';
1636: BEGIN
1637: --log for debug
1638: IF ( ln_proc_level >= ln_dbg_level)
1636: BEGIN
1637: --log for debug
1638: IF ( ln_proc_level >= ln_dbg_level)
1639: THEN
1640: FND_LOG.STRING ( ln_proc_level
1641: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
1642: , 'Enter procedure'
1643: );
1644: FND_LOG.STRING ( ln_proc_level
1640: FND_LOG.STRING ( ln_proc_level
1641: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
1642: , 'Enter procedure'
1643: );
1644: FND_LOG.STRING ( ln_proc_level
1645: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
1646: , 'pn_invoice_id ' || pn_invoice_id
1647: );
1648: END IF;
1661: WHERE invoice_id = pn_invoice_id;
1662:
1663: IF ( ln_proc_level >= ln_dbg_level)
1664: THEN
1665: FND_LOG.STRING ( ln_proc_level
1666: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
1667: , 'ln_max_line_number ' || ln_max_line_number
1668: );
1669: FND_LOG.STRING ( ln_proc_level
1665: FND_LOG.STRING ( ln_proc_level
1666: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
1667: , 'ln_max_line_number ' || ln_max_line_number
1668: );
1669: FND_LOG.STRING ( ln_proc_level
1670: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.end'
1671: , 'Exit procedure'
1672: );
1673: END IF; --( ln_proc_level >= ln_dbg_level )
1676: EXCEPTION
1677: WHEN OTHERS THEN
1678: IF ( ln_proc_level >= ln_dbg_level)
1679: THEN
1680: FND_LOG.STRING ( ln_proc_level
1681: , GV_MODULE_PREFIX|| '.'|| lv_proc_name
1682: || '. Other_Exception '
1683: , SQLCODE || ':' || SQLERRM
1684: );
1713: FUNCTION Get_Max_Doc_Source_Line_Id (pn_invoice_id NUMBER)
1714: RETURN NUMBER
1715: IS
1716: ln_max_line_number NUMBER;
1717: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
1718: ln_proc_level NUMBER := FND_LOG.level_procedure;
1719: lv_proc_name VARCHAR2 (100) := 'Get_Max_Doc_Source_Line_Id';
1720: BEGIN
1721: --log for debug
1714: RETURN NUMBER
1715: IS
1716: ln_max_line_number NUMBER;
1717: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
1718: ln_proc_level NUMBER := FND_LOG.level_procedure;
1719: lv_proc_name VARCHAR2 (100) := 'Get_Max_Doc_Source_Line_Id';
1720: BEGIN
1721: --log for debug
1722: IF ( ln_proc_level >= ln_dbg_level)
1720: BEGIN
1721: --log for debug
1722: IF ( ln_proc_level >= ln_dbg_level)
1723: THEN
1724: FND_LOG.STRING ( ln_proc_level
1725: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
1726: , 'Enter procedure'
1727: );
1728: FND_LOG.STRING ( ln_proc_level
1724: FND_LOG.STRING ( ln_proc_level
1725: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
1726: , 'Enter procedure'
1727: );
1728: FND_LOG.STRING ( ln_proc_level
1729: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
1730: , 'pn_invoice_id ' || pn_invoice_id
1731: );
1732: END IF;
1750:
1751:
1752: IF ( ln_proc_level >= ln_dbg_level)
1753: THEN
1754: FND_LOG.STRING ( ln_proc_level
1755: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
1756: , 'ln_max_line_number ' || ln_max_line_number
1757: );
1758: FND_LOG.STRING ( ln_proc_level
1754: FND_LOG.STRING ( ln_proc_level
1755: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
1756: , 'ln_max_line_number ' || ln_max_line_number
1757: );
1758: FND_LOG.STRING ( ln_proc_level
1759: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.end'
1760: , 'Exit procedure'
1761: );
1762: END IF; --( ln_proc_level >= ln_dbg_level )
1765: EXCEPTION
1766: WHEN OTHERS THEN
1767: IF ( ln_proc_level >= ln_dbg_level)
1768: THEN
1769: FND_LOG.STRING ( ln_proc_level
1770: , GV_MODULE_PREFIX|| '.'|| lv_proc_name
1771: || '. Other_Exception '
1772: , SQLCODE || ':' || SQLERRM
1773: );
1801: )
1802: RETURN NUMBER
1803: IS
1804: ln_max_tax_line_num NUMBER;
1805: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
1806: ln_proc_level NUMBER := FND_LOG.level_procedure;
1807: lv_proc_name VARCHAR2 (100) := 'Get_Max_Tax_Line_Number';
1808: BEGIN
1809: --log for debug
1802: RETURN NUMBER
1803: IS
1804: ln_max_tax_line_num NUMBER;
1805: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
1806: ln_proc_level NUMBER := FND_LOG.level_procedure;
1807: lv_proc_name VARCHAR2 (100) := 'Get_Max_Tax_Line_Number';
1808: BEGIN
1809: --log for debug
1810: IF ( ln_proc_level >= ln_dbg_level)
1808: BEGIN
1809: --log for debug
1810: IF ( ln_proc_level >= ln_dbg_level)
1811: THEN
1812: FND_LOG.STRING ( ln_proc_level
1813: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
1814: , 'Enter procedure'
1815: );
1816: FND_LOG.STRING ( ln_proc_level
1812: FND_LOG.STRING ( ln_proc_level
1813: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
1814: , 'Enter procedure'
1815: );
1816: FND_LOG.STRING ( ln_proc_level
1817: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
1818: , 'pn_invoice_id ' || pn_invoice_id
1819: );
1820: FND_LOG.STRING ( ln_proc_level
1816: FND_LOG.STRING ( ln_proc_level
1817: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
1818: , 'pn_invoice_id ' || pn_invoice_id
1819: );
1820: FND_LOG.STRING ( ln_proc_level
1821: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
1822: , 'pn_parent_invoice_line_number ' ||
1823: pn_parent_invoice_line_number
1824: );
1844: AND source_doc_type = jai_constants.g_ap_standalone_invoice;
1845:
1846: IF ( ln_proc_level >= ln_dbg_level)
1847: THEN
1848: FND_LOG.STRING ( ln_proc_level
1849: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
1850: , 'ln_max_tax_line_num ' || ln_max_tax_line_num
1851: );
1852: FND_LOG.STRING ( ln_proc_level
1848: FND_LOG.STRING ( ln_proc_level
1849: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
1850: , 'ln_max_tax_line_num ' || ln_max_tax_line_num
1851: );
1852: FND_LOG.STRING ( ln_proc_level
1853: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.end'
1854: , 'Exit procedure'
1855: );
1856: END IF; --( ln_proc_level >= ln_dbg_level )
1859: EXCEPTION
1860: WHEN OTHERS THEN
1861: IF ( ln_proc_level >= ln_dbg_level)
1862: THEN
1863: FND_LOG.STRING ( ln_proc_level
1864: , GV_MODULE_PREFIX|| '.'|| lv_proc_name
1865: || '. Other_Exception '
1866: , SQLCODE || ':' || SQLERRM
1867: );
1900: WHERE code_combination_id = pn_code_combination_id;
1901:
1902: lv_account_type gl_code_combinations.account_type%TYPE;
1903:
1904: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
1905: ln_proc_level NUMBER := FND_LOG.level_procedure;
1906: lv_proc_name VARCHAR2 (100) := 'Get_Gl_Account_Type';
1907: BEGIN
1908: --log for debug
1901:
1902: lv_account_type gl_code_combinations.account_type%TYPE;
1903:
1904: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
1905: ln_proc_level NUMBER := FND_LOG.level_procedure;
1906: lv_proc_name VARCHAR2 (100) := 'Get_Gl_Account_Type';
1907: BEGIN
1908: --log for debug
1909: IF ( ln_proc_level >= ln_dbg_level)
1907: BEGIN
1908: --log for debug
1909: IF ( ln_proc_level >= ln_dbg_level)
1910: THEN
1911: FND_LOG.STRING ( ln_proc_level
1912: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
1913: , 'Enter procedure'
1914: );
1915: FND_LOG.STRING ( ln_proc_level
1911: FND_LOG.STRING ( ln_proc_level
1912: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
1913: , 'Enter procedure'
1914: );
1915: FND_LOG.STRING ( ln_proc_level
1916: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
1917: , 'pn_code_combination_id ' || pn_code_combination_id
1918: );
1919: END IF;--( ln_proc_level >= ln_dbg_level )
1925: CLOSE get_account_cur;
1926:
1927: IF ( ln_proc_level >= ln_dbg_level)
1928: THEN
1929: FND_LOG.STRING ( ln_proc_level
1930: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
1931: , 'lv_account_type ' || lv_account_type
1932: );
1933: FND_LOG.STRING ( ln_proc_level
1929: FND_LOG.STRING ( ln_proc_level
1930: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
1931: , 'lv_account_type ' || lv_account_type
1932: );
1933: FND_LOG.STRING ( ln_proc_level
1934: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.end'
1935: , 'Exit procedure'
1936: );
1937: END IF; --( ln_proc_level >= ln_dbg_level )
1941: EXCEPTION
1942: WHEN OTHERS THEN
1943: IF ( ln_proc_level >= ln_dbg_level)
1944: THEN
1945: FND_LOG.STRING ( ln_proc_level
1946: , GV_MODULE_PREFIX|| '.'|| lv_proc_name
1947: || '. Other_Exception '
1948: , SQLCODE || ':' || SQLERRM
1949: );
1987: jai_cmn_vendor_sites
1988: WHERE NVL (vendor_site_id, 0) = pn_vendor_site_id
1989: AND vendor_id = pn_vendor_id;
1990:
1991: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
1992: ln_proc_level NUMBER := FND_LOG.level_procedure;
1993: lv_proc_name VARCHAR2 (100) := 'Get_Tax_Cat_Serv_Type';
1994: BEGIN
1995: --log for debug
1988: WHERE NVL (vendor_site_id, 0) = pn_vendor_site_id
1989: AND vendor_id = pn_vendor_id;
1990:
1991: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
1992: ln_proc_level NUMBER := FND_LOG.level_procedure;
1993: lv_proc_name VARCHAR2 (100) := 'Get_Tax_Cat_Serv_Type';
1994: BEGIN
1995: --log for debug
1996: IF ( ln_proc_level >= ln_dbg_level)
1994: BEGIN
1995: --log for debug
1996: IF ( ln_proc_level >= ln_dbg_level)
1997: THEN
1998: FND_LOG.STRING ( ln_proc_level
1999: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
2000: , 'Enter procedure'
2001: );
2002: FND_LOG.STRING ( ln_proc_level
1998: FND_LOG.STRING ( ln_proc_level
1999: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
2000: , 'Enter procedure'
2001: );
2002: FND_LOG.STRING ( ln_proc_level
2003: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2004: , 'pn_vendor_id ' || pn_vendor_id
2005: );
2006: FND_LOG.STRING ( ln_proc_level
2002: FND_LOG.STRING ( ln_proc_level
2003: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2004: , 'pn_vendor_id ' || pn_vendor_id
2005: );
2006: FND_LOG.STRING ( ln_proc_level
2007: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2008: , 'pn_vendor_site_id ' || pn_vendor_site_id
2009: );
2010: END IF;
2018: CLOSE get_tax_service_cur;
2019:
2020: IF ( ln_proc_level >= ln_dbg_level)
2021: THEN
2022: FND_LOG.STRING ( ln_proc_level
2023: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2024: , 'xn_tax_category_id ' || xn_tax_category_id
2025: );
2026: FND_LOG.STRING ( ln_proc_level
2022: FND_LOG.STRING ( ln_proc_level
2023: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2024: , 'xn_tax_category_id ' || xn_tax_category_id
2025: );
2026: FND_LOG.STRING ( ln_proc_level
2027: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2028: , 'xv_service_type_code ' || xv_service_type_code
2029: );
2030: FND_LOG.STRING ( ln_proc_level
2026: FND_LOG.STRING ( ln_proc_level
2027: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2028: , 'xv_service_type_code ' || xv_service_type_code
2029: );
2030: FND_LOG.STRING ( ln_proc_level
2031: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.end'
2032: , 'Exit procedure'
2033: );
2034: END IF; --( ln_proc_level >= ln_dbg_level )
2035: EXCEPTION
2036: WHEN OTHERS THEN
2037: IF ( ln_proc_level >= ln_dbg_level)
2038: THEN
2039: FND_LOG.STRING ( ln_proc_level
2040: , GV_MODULE_PREFIX|| '.'|| lv_proc_name
2041: || '. Other_Exception '
2042: ,SQLCODE || ':' || SQLERRM
2043: );
2078: , xn_exchange_rate OUT NOCOPY NUMBER
2079: , xn_batch_id OUT NOCOPY NUMBER
2080: )
2081: IS
2082: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
2083: ln_proc_level NUMBER := FND_LOG.level_procedure;
2084: lv_proc_name VARCHAR2 (100) := 'Get_Invoice_Header_Infor';
2085:
2086: CURSOR Get_Invoice_Header_Infor_cur IS
2079: , xn_batch_id OUT NOCOPY NUMBER
2080: )
2081: IS
2082: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
2083: ln_proc_level NUMBER := FND_LOG.level_procedure;
2084: lv_proc_name VARCHAR2 (100) := 'Get_Invoice_Header_Infor';
2085:
2086: CURSOR Get_Invoice_Header_Infor_cur IS
2087: SELECT
2096: BEGIN
2097: --log for debug
2098: IF ( ln_proc_level >= ln_dbg_level)
2099: THEN
2100: FND_LOG.STRING ( ln_proc_level
2101: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
2102: , 'Enter procedure'
2103: );
2104: FND_LOG.STRING ( ln_proc_level
2100: FND_LOG.STRING ( ln_proc_level
2101: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
2102: , 'Enter procedure'
2103: );
2104: FND_LOG.STRING ( ln_proc_level
2105: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2106: , 'pn_invoice_id ' || pn_invoice_id
2107: );
2108: END IF; --( ln_proc_level >= ln_dbg_level) ;
2119:
2120: --log for debug
2121: IF ( ln_proc_level >= ln_dbg_level)
2122: THEN
2123: FND_LOG.STRING ( ln_proc_level
2124: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2125: , 'xn_vendor_id ' || xn_vendor_id
2126: );
2127: FND_LOG.STRING ( ln_proc_level
2123: FND_LOG.STRING ( ln_proc_level
2124: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2125: , 'xn_vendor_id ' || xn_vendor_id
2126: );
2127: FND_LOG.STRING ( ln_proc_level
2128: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2129: , 'xn_vendor_site_id ' || xn_vendor_site_id
2130: );
2131: FND_LOG.STRING ( ln_proc_level
2127: FND_LOG.STRING ( ln_proc_level
2128: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2129: , 'xn_vendor_site_id ' || xn_vendor_site_id
2130: );
2131: FND_LOG.STRING ( ln_proc_level
2132: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2133: , 'xv_currency_code ' || xv_currency_code
2134: );
2135: FND_LOG.STRING ( ln_proc_level
2131: FND_LOG.STRING ( ln_proc_level
2132: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2133: , 'xv_currency_code ' || xv_currency_code
2134: );
2135: FND_LOG.STRING ( ln_proc_level
2136: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2137: , 'xn_exchange_rate ' || xn_exchange_rate
2138: );
2139: FND_LOG.STRING ( ln_proc_level
2135: FND_LOG.STRING ( ln_proc_level
2136: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2137: , 'xn_exchange_rate ' || xn_exchange_rate
2138: );
2139: FND_LOG.STRING ( ln_proc_level
2140: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2141: , 'xn_batch_id ' || xn_batch_id
2142: );
2143: FND_LOG.STRING ( ln_proc_level
2139: FND_LOG.STRING ( ln_proc_level
2140: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2141: , 'xn_batch_id ' || xn_batch_id
2142: );
2143: FND_LOG.STRING ( ln_proc_level
2144: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.end'
2145: , 'Exit procedure'
2146: );
2147: END IF; --( ln_proc_level >= ln_dbg_level )
2148: EXCEPTION
2149: WHEN OTHERS THEN
2150: IF ( ln_proc_level >= ln_dbg_level)
2151: THEN
2152: FND_LOG.STRING ( ln_proc_level
2153: , GV_MODULE_PREFIX|| '.'|| lv_proc_name
2154: || '. Other_Exception '
2155: , SQLCODE || ':' || SQLERRM
2156: );
2192: IS
2193: ln_invoice_id NUMBER := pn_invoice_id;
2194: ln_invoice_line_number NUMBER := pn_line_number;
2195: lv_modified_only_flag VARCHAR2 (1) := pv_modified_only_flag;
2196: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
2197: ln_proc_level NUMBER := FND_LOG.level_procedure;
2198: lv_proc_name VARCHAR2 (100) := 'Delete_Tax_Lines';
2199: BEGIN
2200: --log for debug
2193: ln_invoice_id NUMBER := pn_invoice_id;
2194: ln_invoice_line_number NUMBER := pn_line_number;
2195: lv_modified_only_flag VARCHAR2 (1) := pv_modified_only_flag;
2196: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
2197: ln_proc_level NUMBER := FND_LOG.level_procedure;
2198: lv_proc_name VARCHAR2 (100) := 'Delete_Tax_Lines';
2199: BEGIN
2200: --log for debug
2201: IF ( ln_proc_level >= ln_dbg_level)
2199: BEGIN
2200: --log for debug
2201: IF ( ln_proc_level >= ln_dbg_level)
2202: THEN
2203: FND_LOG.STRING ( ln_proc_level
2204: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
2205: , 'Enter procedure'
2206: );
2207: FND_LOG.STRING ( ln_proc_level
2203: FND_LOG.STRING ( ln_proc_level
2204: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
2205: , 'Enter procedure'
2206: );
2207: FND_LOG.STRING ( ln_proc_level
2208: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2209: , 'pn_invoice_id ' || pn_invoice_id
2210: );
2211: FND_LOG.STRING ( ln_proc_level
2207: FND_LOG.STRING ( ln_proc_level
2208: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2209: , 'pn_invoice_id ' || pn_invoice_id
2210: );
2211: FND_LOG.STRING ( ln_proc_level
2212: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2213: , 'pn_line_number '|| pn_line_number
2214: );
2215: FND_LOG.STRING ( ln_proc_level
2211: FND_LOG.STRING ( ln_proc_level
2212: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2213: , 'pn_line_number '|| pn_line_number
2214: );
2215: FND_LOG.STRING ( ln_proc_level
2216: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2217: , 'pv_modified_only_flag ' || pv_modified_only_flag
2218: );
2219: END IF; --( ln_proc_level >= ln_dbg_level )
2249: );
2250: */
2251: IF ( ln_proc_level >= ln_dbg_level)
2252: THEN
2253: FND_LOG.STRING( ln_proc_level
2254: , GV_MODULE_PREFIX ||'.'|| lv_proc_name
2255: || '.Delete from jai_cmn_document_taxes'
2256: , SQL%ROWCOUNT||' ROWS DELETED '
2257: );
2281: AND line_type_lookup_code = GV_CONSTANT_MISCELLANEOUS;
2282:
2283: IF ( ln_proc_level >= ln_dbg_level)
2284: THEN
2285: FND_LOG.STRING( ln_proc_level
2286: , GV_MODULE_PREFIX ||'.'|| lv_proc_name
2287: || '.Delete from ap_invoice_lines_all'
2288: , SQL%ROWCOUNT||' ROWS DELETED '
2289: );
2310: AND line_type_lookup_code = GV_CONSTANT_MISCELLANEOUS;
2311:
2312: IF ( ln_proc_level >= ln_dbg_level)
2313: THEN
2314: FND_LOG.STRING( ln_proc_level
2315: , GV_MODULE_PREFIX ||'.'|| lv_proc_name
2316: || '.Delete from ap_invoice_distributions_all'
2317: , SQL%ROWCOUNT||' ROWS DELETED '
2318: );
2333: AND line_type_lookup_code = GV_CONSTANT_MISCELLANEOUS;
2334:
2335: IF ( ln_proc_level >= ln_dbg_level)
2336: THEN
2337: FND_LOG.STRING( ln_proc_level
2338: , GV_MODULE_PREFIX ||'.'|| lv_proc_name
2339: || '.Delete from jai_ap_invoice_lines'
2340: , SQL%ROWCOUNT||' ROWS DELETED '
2341: );
2338: , GV_MODULE_PREFIX ||'.'|| lv_proc_name
2339: || '.Delete from jai_ap_invoice_lines'
2340: , SQL%ROWCOUNT||' ROWS DELETED '
2341: );
2342: FND_LOG.STRING ( ln_proc_level
2343: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.end'
2344: , 'Exit procedure'
2345: );
2346: END IF; --( ln_proc_level >= ln_dbg_level )
2348: EXCEPTION
2349: WHEN OTHERS THEN
2350: IF ( ln_proc_level >= ln_dbg_level)
2351: THEN
2352: FND_LOG.STRING ( ln_proc_level
2353: , GV_MODULE_PREFIX|| '.'|| lv_proc_name
2354: || '. Other_Exception '
2355: , SQLCODE || ':' || SQLERRM
2356: );
2384: --===========================================================================
2385: PROCEDURE Delete_Useless_Lines (pn_invoice_id IN NUMBER)
2386: IS
2387: ln_invoice_id NUMBER := pn_invoice_id;
2388: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
2389: ln_proc_level NUMBER := FND_LOG.level_procedure;
2390: lv_proc_name VARCHAR2 (100) := 'Delete_Useless_Lines';
2391: BEGIN
2392: --log for debug
2385: PROCEDURE Delete_Useless_Lines (pn_invoice_id IN NUMBER)
2386: IS
2387: ln_invoice_id NUMBER := pn_invoice_id;
2388: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
2389: ln_proc_level NUMBER := FND_LOG.level_procedure;
2390: lv_proc_name VARCHAR2 (100) := 'Delete_Useless_Lines';
2391: BEGIN
2392: --log for debug
2393: IF ( ln_proc_level >= ln_dbg_level)
2391: BEGIN
2392: --log for debug
2393: IF ( ln_proc_level >= ln_dbg_level)
2394: THEN
2395: FND_LOG.STRING ( ln_proc_level
2396: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
2397: , 'Enter procedure'
2398: );
2399: FND_LOG.STRING ( ln_proc_level
2395: FND_LOG.STRING ( ln_proc_level
2396: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
2397: , 'Enter procedure'
2398: );
2399: FND_LOG.STRING ( ln_proc_level
2400: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2401: , 'pn_invoice_id ' || pn_invoice_id
2402: );
2403: END IF; --( ln_proc_level >= ln_dbg_level )
2535:
2536: --log for debug
2537: IF ( ln_proc_level >= ln_dbg_level)
2538: THEN
2539: FND_LOG.STRING ( ln_proc_level
2540: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.end'
2541: , 'Exit procedure'
2542: );
2543: END IF; --( ln_proc_level >= ln_dbg_level )
2544: EXCEPTION
2545: WHEN OTHERS THEN
2546: IF ( ln_proc_level >= ln_dbg_level)
2547: THEN
2548: FND_LOG.STRING ( ln_proc_level
2549: , GV_MODULE_PREFIX|| '.'|| lv_proc_name
2550: || '. Other_Exception '
2551: , SQLCODE || ':' || SQLERRM
2552: );
2586: , pn_line_number IN NUMBER
2587: , pn_line_amount IN NUMBER
2588: )
2589: IS
2590: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
2591: ln_proc_level NUMBER := FND_LOG.level_procedure;
2592: lv_proc_name VARCHAR2 (100) := 'Update_Jai_Line_Amount';
2593: BEGIN
2594: IF ( ln_proc_level >= ln_dbg_level)
2587: , pn_line_amount IN NUMBER
2588: )
2589: IS
2590: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
2591: ln_proc_level NUMBER := FND_LOG.level_procedure;
2592: lv_proc_name VARCHAR2 (100) := 'Update_Jai_Line_Amount';
2593: BEGIN
2594: IF ( ln_proc_level >= ln_dbg_level)
2595: THEN
2592: lv_proc_name VARCHAR2 (100) := 'Update_Jai_Line_Amount';
2593: BEGIN
2594: IF ( ln_proc_level >= ln_dbg_level)
2595: THEN
2596: FND_LOG.STRING ( ln_proc_level
2597: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
2598: , 'Enter procedure'
2599: );
2600: FND_LOG.STRING ( ln_proc_level
2596: FND_LOG.STRING ( ln_proc_level
2597: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
2598: , 'Enter procedure'
2599: );
2600: FND_LOG.STRING ( ln_proc_level
2601: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2602: , 'pn_invoice_id ' || pn_invoice_id
2603: );
2604: FND_LOG.STRING ( ln_proc_level
2600: FND_LOG.STRING ( ln_proc_level
2601: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2602: , 'pn_invoice_id ' || pn_invoice_id
2603: );
2604: FND_LOG.STRING ( ln_proc_level
2605: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2606: , 'pn_line_number ' || pn_line_number
2607: );
2608: FND_LOG.STRING ( ln_proc_level
2604: FND_LOG.STRING ( ln_proc_level
2605: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2606: , 'pn_line_number ' || pn_line_number
2607: );
2608: FND_LOG.STRING ( ln_proc_level
2609: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2610: , 'pn_line_amount ' || pn_line_amount
2611: );
2612: END IF; --( ln_proc_level >= ln_dbg_level )
2620:
2621: --log for debug
2622: IF ( ln_proc_level >= ln_dbg_level)
2623: THEN
2624: FND_LOG.STRING ( ln_proc_level
2625: , GV_MODULE_PREFIX ||'.'|| lv_proc_name
2626: || '.DML (UPDATE jai_ap_invoice_lines)'
2627: ,SQL%ROWCOUNT || ' ROWS UPDATED.'
2628: );
2625: , GV_MODULE_PREFIX ||'.'|| lv_proc_name
2626: || '.DML (UPDATE jai_ap_invoice_lines)'
2627: ,SQL%ROWCOUNT || ' ROWS UPDATED.'
2628: );
2629: FND_LOG.STRING ( ln_proc_level
2630: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.end'
2631: , 'Exit procedure'
2632: );
2633: END IF; --( ln_proc_level >= ln_dbg_level )
2635: EXCEPTION
2636: WHEN OTHERS THEN
2637: IF ( ln_proc_level >= ln_dbg_level)
2638: THEN
2639: FND_LOG.STRING ( ln_proc_level
2640: , GV_MODULE_PREFIX|| '.'|| lv_proc_name
2641: || '. Other_Exception '
2642: , SQLCODE || ':' || SQLERRM
2643: );
2678: , pn_currency_code IN VARCHAR2
2679: , pn_tax_category_id IN NUMBER
2680: )
2681: IS
2682: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
2683: ln_proc_level NUMBER := FND_LOG.level_procedure;
2684: lv_proc_name VARCHAR2 (100) := 'Update_Jai_Item_Info';
2685: BEGIN
2686: IF ( ln_proc_level >= ln_dbg_level)
2679: , pn_tax_category_id IN NUMBER
2680: )
2681: IS
2682: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
2683: ln_proc_level NUMBER := FND_LOG.level_procedure;
2684: lv_proc_name VARCHAR2 (100) := 'Update_Jai_Item_Info';
2685: BEGIN
2686: IF ( ln_proc_level >= ln_dbg_level)
2687: THEN
2684: lv_proc_name VARCHAR2 (100) := 'Update_Jai_Item_Info';
2685: BEGIN
2686: IF ( ln_proc_level >= ln_dbg_level)
2687: THEN
2688: FND_LOG.STRING ( ln_proc_level
2689: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
2690: , 'Enter procedure'
2691: );
2692: FND_LOG.STRING ( ln_proc_level
2688: FND_LOG.STRING ( ln_proc_level
2689: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
2690: , 'Enter procedure'
2691: );
2692: FND_LOG.STRING ( ln_proc_level
2693: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2694: , 'pn_invoice_id ' || pn_invoice_id
2695: );
2696: FND_LOG.STRING ( ln_proc_level
2692: FND_LOG.STRING ( ln_proc_level
2693: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2694: , 'pn_invoice_id ' || pn_invoice_id
2695: );
2696: FND_LOG.STRING ( ln_proc_level
2697: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2698: , 'pn_vndr_site_id ' || pn_vndr_site_id
2699: );
2700: FND_LOG.STRING ( ln_proc_level
2696: FND_LOG.STRING ( ln_proc_level
2697: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2698: , 'pn_vndr_site_id ' || pn_vndr_site_id
2699: );
2700: FND_LOG.STRING ( ln_proc_level
2701: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2702: , 'pn_currency_code ' || pn_currency_code
2703: );
2704: FND_LOG.STRING ( ln_proc_level
2700: FND_LOG.STRING ( ln_proc_level
2701: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2702: , 'pn_currency_code ' || pn_currency_code
2703: );
2704: FND_LOG.STRING ( ln_proc_level
2705: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2706: , 'pn_tax_category_id ' || pn_tax_category_id
2707: );
2708: END IF; --( ln_proc_level >= ln_dbg_level )
2719:
2720: --log for debug
2721: IF ( ln_proc_level >= ln_dbg_level)
2722: THEN
2723: FND_LOG.STRING ( ln_proc_level
2724: , GV_MODULE_PREFIX ||'.'|| lv_proc_name
2725: || '.DML (UPDATE jai_ap_invoice_lines)'
2726: ,SQL%ROWCOUNT || ' ROWS UPDATED.'
2727: );
2724: , GV_MODULE_PREFIX ||'.'|| lv_proc_name
2725: || '.DML (UPDATE jai_ap_invoice_lines)'
2726: ,SQL%ROWCOUNT || ' ROWS UPDATED.'
2727: );
2728: FND_LOG.STRING ( ln_proc_level
2729: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.end'
2730: , 'Exit procedure'
2731: );
2732: END IF; --( ln_proc_level >= ln_dbg_level )
2734: EXCEPTION
2735: WHEN OTHERS THEN
2736: IF ( ln_proc_level >= ln_dbg_level)
2737: THEN
2738: FND_LOG.STRING ( ln_proc_level
2739: , GV_MODULE_PREFIX|| '.'|| lv_proc_name
2740: || '. Other_Exception '
2741: , SQLCODE || ':' || SQLERRM
2742: );
2805: ln_exchange_rate NUMBER;
2806: lv_service_type_code VARCHAR2 (30);
2807: ln_batch_id NUMBER;
2808: ln_tax_category_id NUMBER;
2809: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
2810: ln_proc_level NUMBER := FND_LOG.level_procedure;
2811: lv_proc_name VARCHAR2 (100) := 'Populate_Stnd_Inv_Taxes';
2812: ln_supplier_id NUMBER;
2813: l_chk_del_flag VARCHAR2(1) ;
2806: lv_service_type_code VARCHAR2 (30);
2807: ln_batch_id NUMBER;
2808: ln_tax_category_id NUMBER;
2809: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
2810: ln_proc_level NUMBER := FND_LOG.level_procedure;
2811: lv_proc_name VARCHAR2 (100) := 'Populate_Stnd_Inv_Taxes';
2812: ln_supplier_id NUMBER;
2813: l_chk_del_flag VARCHAR2(1) ;
2814: ln_tax_line_no NUMBER; -- Added by eric ma for the bug 6898716 on Mar 19,2008
2885: BEGIN
2886: --log for debug
2887: IF ( ln_proc_level >= ln_dbg_level)
2888: THEN
2889: FND_LOG.STRING ( ln_proc_level
2890: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
2891: , 'Enter procedure'
2892: );
2893: FND_LOG.STRING ( ln_proc_level
2889: FND_LOG.STRING ( ln_proc_level
2890: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
2891: , 'Enter procedure'
2892: );
2893: FND_LOG.STRING ( ln_proc_level
2894: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2895: , 'pn_invoice_id ' || pn_invoice_id
2896: );
2897: FND_LOG.STRING ( ln_proc_level
2893: FND_LOG.STRING ( ln_proc_level
2894: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2895: , 'pn_invoice_id ' || pn_invoice_id
2896: );
2897: FND_LOG.STRING ( ln_proc_level
2898: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2899: , 'pn_line_number ' || pn_line_number
2900: );
2901: FND_LOG.STRING ( ln_proc_level
2897: FND_LOG.STRING ( ln_proc_level
2898: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2899: , 'pn_line_number ' || pn_line_number
2900: );
2901: FND_LOG.STRING ( ln_proc_level
2902: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2903: , 'pn_vendor_site_id ' || pn_vendor_site_id
2904: );
2905: FND_LOG.STRING ( ln_proc_level
2901: FND_LOG.STRING ( ln_proc_level
2902: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2903: , 'pn_vendor_site_id ' || pn_vendor_site_id
2904: );
2905: FND_LOG.STRING ( ln_proc_level
2906: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2907: , 'pv_currency ' || pv_currency
2908: );
2909: FND_LOG.STRING ( ln_proc_level
2905: FND_LOG.STRING ( ln_proc_level
2906: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2907: , 'pv_currency ' || pv_currency
2908: );
2909: FND_LOG.STRING ( ln_proc_level
2910: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2911: , 'pn_line_amount ' || pn_line_amount
2912: );
2913: FND_LOG.STRING ( ln_proc_level
2909: FND_LOG.STRING ( ln_proc_level
2910: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2911: , 'pn_line_amount ' || pn_line_amount
2912: );
2913: FND_LOG.STRING ( ln_proc_level
2914: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2915: , 'pn_tax_category_id ' || pn_tax_category_id
2916: );
2917: FND_LOG.STRING ( ln_proc_level
2913: FND_LOG.STRING ( ln_proc_level
2914: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2915: , 'pn_tax_category_id ' || pn_tax_category_id
2916: );
2917: FND_LOG.STRING ( ln_proc_level
2918: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2919: , 'pv_tax_modified ' || pv_tax_modified
2920: );
2921: FND_LOG.STRING ( ln_proc_level
2917: FND_LOG.STRING ( ln_proc_level
2918: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2919: , 'pv_tax_modified ' || pv_tax_modified
2920: );
2921: FND_LOG.STRING ( ln_proc_level
2922: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
2923: , 'pn_old_tax_category_id ' || pn_old_tax_category_id
2924: );
2925: END IF; --( ln_proc_level >= ln_dbg_level)
3027: --modified by eric ma on Mar 19 ,2008 for the bug 6898716 ,end
3028: THEN
3029: IF ( ln_proc_level >= ln_dbg_level)
3030: THEN
3031: FND_LOG.STRING ( ln_proc_level
3032: , GV_MODULE_PREFIX ||'.'|| lv_proc_name
3033: , 'Case 1'
3034: );
3035: END IF;-- ( ln_proc_level >= ln_dbg_level)
3069: )
3070: THEN
3071: IF ( ln_proc_level >= ln_dbg_level)
3072: THEN
3073: FND_LOG.STRING ( ln_proc_level
3074: , GV_MODULE_PREFIX ||'.'|| lv_proc_name
3075: , 'Case 2'
3076: );
3077: END IF;-- ( ln_proc_level >= ln_dbg_level)
3180: THEN
3181:
3182: IF ( ln_proc_level >= ln_dbg_level)
3183: THEN
3184: FND_LOG.STRING ( ln_proc_level
3185: , GV_MODULE_PREFIX ||'.'|| lv_proc_name
3186: , 'Case 3'
3187: );
3188: END IF; -- ( ln_proc_level >= ln_dbg_level)
3257: --insert into eric_log values ( 2.5,'Case 5',sysdate);
3258:
3259: IF ( ln_proc_level >= ln_dbg_level)
3260: THEN
3261: FND_LOG.STRING ( ln_proc_level
3262: , GV_MODULE_PREFIX ||'.'|| lv_proc_name
3263: , 'Case 5'
3264: );
3265: END IF; -- ( ln_proc_level >= ln_dbg_level)
3288: LOOP
3289:
3290: IF ( ln_proc_level >= ln_dbg_level)
3291: THEN
3292: FND_LOG.STRING ( ln_proc_level
3293: , GV_MODULE_PREFIX ||'.'|| lv_proc_name
3294: , 'Case 6'
3295: );
3296: END IF;-- ( ln_proc_level >= ln_dbg_level)
3369:
3370: --log for debug
3371: IF ( ln_proc_level >= ln_dbg_level)
3372: THEN
3373: FND_LOG.STRING ( ln_proc_level
3374: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.end'
3375: , 'Exit procedure'
3376: );
3377: END IF; --( ln_proc_level >= ln_dbg_level )
3378: EXCEPTION
3379: WHEN OTHERS THEN
3380: IF ( ln_proc_level >= ln_dbg_level)
3381: THEN
3382: FND_LOG.STRING ( ln_proc_level
3383: , GV_MODULE_PREFIX|| '.'|| lv_proc_name
3384: || '. Other_Exception '
3385: , SQLCODE || ':' || SQLERRM
3386: );
3437: ln_line_number NUMBER := pn_line_number;
3438: lv_currency_code VARCHAR2 (15) := pv_currency_code;
3439: ln_tax_category_id NUMBER := pn_tax_category_id;
3440: ln_vendor_id NUMBER := pn_vendor_id;
3441: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
3442: ln_proc_level NUMBER := FND_LOG.level_procedure;
3443: lv_proc_name VARCHAR2 (100) := 'Default_Calculate_Taxes';
3444: ln_user_id NUMBER := fnd_global.user_id;
3445: ln_login_id NUMBER := fnd_global.login_id;
3438: lv_currency_code VARCHAR2 (15) := pv_currency_code;
3439: ln_tax_category_id NUMBER := pn_tax_category_id;
3440: ln_vendor_id NUMBER := pn_vendor_id;
3441: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
3442: ln_proc_level NUMBER := FND_LOG.level_procedure;
3443: lv_proc_name VARCHAR2 (100) := 'Default_Calculate_Taxes';
3444: ln_user_id NUMBER := fnd_global.user_id;
3445: ln_login_id NUMBER := fnd_global.login_id;
3446: BEGIN
3446: BEGIN
3447: --log for debug
3448: IF ( ln_proc_level >= ln_dbg_level)
3449: THEN
3450: FND_LOG.STRING ( ln_proc_level
3451: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
3452: , 'Enter procedure'
3453: );
3454: FND_LOG.STRING ( ln_proc_level
3450: FND_LOG.STRING ( ln_proc_level
3451: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
3452: , 'Enter procedure'
3453: );
3454: FND_LOG.STRING ( ln_proc_level
3455: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
3456: , 'pn_invoice_id ' || pn_invoice_id
3457: );
3458: FND_LOG.STRING ( ln_proc_level
3454: FND_LOG.STRING ( ln_proc_level
3455: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
3456: , 'pn_invoice_id ' || pn_invoice_id
3457: );
3458: FND_LOG.STRING ( ln_proc_level
3459: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
3460: , 'pn_line_number ' || pn_line_number
3461: );
3462: FND_LOG.STRING ( ln_proc_level
3458: FND_LOG.STRING ( ln_proc_level
3459: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
3460: , 'pn_line_number ' || pn_line_number
3461: );
3462: FND_LOG.STRING ( ln_proc_level
3463: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
3464: , 'pv_currency_code ' || pv_currency_code
3465: );
3466: FND_LOG.STRING ( ln_proc_level
3462: FND_LOG.STRING ( ln_proc_level
3463: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
3464: , 'pv_currency_code ' || pv_currency_code
3465: );
3466: FND_LOG.STRING ( ln_proc_level
3467: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
3468: , 'pn_tax_category_id ' || pn_tax_category_id
3469: );
3470: FND_LOG.STRING ( ln_proc_level
3466: FND_LOG.STRING ( ln_proc_level
3467: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
3468: , 'pn_tax_category_id ' || pn_tax_category_id
3469: );
3470: FND_LOG.STRING ( ln_proc_level
3471: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
3472: , 'pv_tax_modified ' || pv_tax_modified
3473: );
3474: FND_LOG.STRING ( ln_proc_level
3470: FND_LOG.STRING ( ln_proc_level
3471: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
3472: , 'pv_tax_modified ' || pv_tax_modified
3473: );
3474: FND_LOG.STRING ( ln_proc_level
3475: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
3476: , 'pn_vendor_id ' || pn_vendor_id
3477: );
3478: FND_LOG.STRING ( ln_proc_level
3474: FND_LOG.STRING ( ln_proc_level
3475: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
3476: , 'pn_vendor_id ' || pn_vendor_id
3477: );
3478: FND_LOG.STRING ( ln_proc_level
3479: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
3480: , 'pn_vendor_site_id ' || pn_vendor_site_id
3481: );
3482: END IF; --( ln_proc_level >= ln_dbg_level )
3510:
3511: --log for debug
3512: IF ( ln_proc_level >= ln_dbg_level)
3513: THEN
3514: FND_LOG.STRING ( ln_proc_level
3515: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.end'
3516: , 'Exit procedure'
3517: );
3518: END IF; --( ln_proc_level >= ln_dbg_level )
3519: EXCEPTION
3520: WHEN OTHERS THEN
3521: IF ( ln_proc_level >= ln_dbg_level)
3522: THEN
3523: FND_LOG.STRING ( ln_proc_level
3524: , GV_MODULE_PREFIX || '.' || lv_proc_name
3525: || '. Other_Exception '
3526: , SQLCODE || ':' || SQLERRM
3527: );
3563: WHERE
3564: tax_id = pn_tax_id;
3565:
3566: lv_inclusive_tax_flag VARCHAR2(1);
3567: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
3568: ln_proc_level NUMBER := FND_LOG.level_procedure;
3569: lv_proc_name VARCHAR2 (100) := 'Check_Inclusive_Tax';
3570: BEGIN
3571: OPEN get_inclusive_tax_flag;
3564: tax_id = pn_tax_id;
3565:
3566: lv_inclusive_tax_flag VARCHAR2(1);
3567: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
3568: ln_proc_level NUMBER := FND_LOG.level_procedure;
3569: lv_proc_name VARCHAR2 (100) := 'Check_Inclusive_Tax';
3570: BEGIN
3571: OPEN get_inclusive_tax_flag;
3572: FETCH get_inclusive_tax_flag
3576:
3577: --log for debug
3578: IF ( ln_proc_level >= ln_dbg_level)
3579: THEN
3580: FND_LOG.STRING ( ln_proc_level
3581: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
3582: , 'Enter procedure'
3583: );
3584: FND_LOG.STRING ( ln_proc_level
3580: FND_LOG.STRING ( ln_proc_level
3581: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
3582: , 'Enter procedure'
3583: );
3584: FND_LOG.STRING ( ln_proc_level
3585: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
3586: , 'pn_tax_id ' || pn_tax_id
3587: );
3588: END IF;
3588: END IF;
3589: --log for debug
3590: IF ( ln_proc_level >= ln_dbg_level)
3591: THEN
3592: FND_LOG.STRING ( ln_proc_level
3593: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.end'
3594: , 'Exit FUNCTION'
3595: );
3596: END IF; --( ln_proc_level >= ln_dbg_level )
3605: EXCEPTION
3606: WHEN OTHERS THEN
3607: IF ( ln_proc_level >= ln_dbg_level)
3608: THEN
3609: FND_LOG.STRING ( ln_proc_level
3610: , GV_MODULE_PREFIX || '.' || lv_proc_name
3611: || '. Other_Exception '
3612: , SQLCODE || ':' || SQLERRM
3613: );
3646: IS
3647: ln_count NUMBER;
3648: lv_pr_processed_flag VARCHAR2 (1) DEFAULT NULL;
3649:
3650: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
3651: ln_proc_level NUMBER := FND_LOG.level_procedure;
3652: lv_proc_name VARCHAR2 (100) := 'Get_Pr_Processed_Flag';
3653: BEGIN
3654: --log for debug
3647: ln_count NUMBER;
3648: lv_pr_processed_flag VARCHAR2 (1) DEFAULT NULL;
3649:
3650: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
3651: ln_proc_level NUMBER := FND_LOG.level_procedure;
3652: lv_proc_name VARCHAR2 (100) := 'Get_Pr_Processed_Flag';
3653: BEGIN
3654: --log for debug
3655: IF ( ln_proc_level >= ln_dbg_level)
3653: BEGIN
3654: --log for debug
3655: IF ( ln_proc_level >= ln_dbg_level)
3656: THEN
3657: FND_LOG.STRING ( ln_proc_level
3658: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
3659: , 'Enter procedure'
3660: );
3661: FND_LOG.STRING ( ln_proc_level
3657: FND_LOG.STRING ( ln_proc_level
3658: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
3659: , 'Enter procedure'
3660: );
3661: FND_LOG.STRING ( ln_proc_level
3662: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
3663: , 'pn_source_doc_id ' || pn_source_doc_id
3664: );
3665: FND_LOG.STRING ( ln_proc_level
3661: FND_LOG.STRING ( ln_proc_level
3662: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
3663: , 'pn_source_doc_id ' || pn_source_doc_id
3664: );
3665: FND_LOG.STRING ( ln_proc_level
3666: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
3667: , 'pn_source_parent_line_no ' || pn_source_parent_line_no
3668: );
3669: FND_LOG.STRING ( ln_proc_level
3665: FND_LOG.STRING ( ln_proc_level
3666: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
3667: , 'pn_source_parent_line_no ' || pn_source_parent_line_no
3668: );
3669: FND_LOG.STRING ( ln_proc_level
3670: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
3671: , 'pn_tax_id ' || pn_tax_id
3672: );
3673: END IF;--( ln_proc_level >= ln_dbg_level)
3692: END IF;
3693:
3694: IF ( ln_proc_level >= ln_dbg_level)
3695: THEN
3696: FND_LOG.STRING ( ln_proc_level
3697: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
3698: , 'lv_pr_processed_flag ' || lv_pr_processed_flag
3699: );
3700: FND_LOG.STRING ( ln_proc_level
3696: FND_LOG.STRING ( ln_proc_level
3697: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
3698: , 'lv_pr_processed_flag ' || lv_pr_processed_flag
3699: );
3700: FND_LOG.STRING ( ln_proc_level
3701: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.end'
3702: , 'Exit FUNCTION'
3703: );
3704: END IF; --( ln_proc_level >= ln_dbg_level )
3707: EXCEPTION
3708: WHEN OTHERS THEN
3709: IF ( ln_proc_level >= ln_dbg_level)
3710: THEN
3711: FND_LOG.STRING ( ln_proc_level
3712: , GV_MODULE_PREFIX || '.' || lv_proc_name
3713: || '. Other_Exception '
3714: , SQLCODE || ':' || SQLERRM
3715: );
4086: lv_asset_book_type_code
4087: ap_invoice_distributions_all.asset_book_type_code%TYPE;
4088: ln_asset_category_id
4089: ap_invoice_distributions_all.asset_category_id%TYPE;
4090: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
4091: ln_proc_level NUMBER := FND_LOG.level_procedure;
4092: lv_proc_name VARCHAR2 (100):= 'Create_Tax_Lines';
4093: ln_user_id NUMBER := fnd_global.user_id;
4094: ln_login_id NUMBER := fnd_global.login_id;
4087: ap_invoice_distributions_all.asset_book_type_code%TYPE;
4088: ln_asset_category_id
4089: ap_invoice_distributions_all.asset_category_id%TYPE;
4090: ln_dbg_level NUMBER := FND_LOG.g_current_runtime_level;
4091: ln_proc_level NUMBER := FND_LOG.level_procedure;
4092: lv_proc_name VARCHAR2 (100):= 'Create_Tax_Lines';
4093: ln_user_id NUMBER := fnd_global.user_id;
4094: ln_login_id NUMBER := fnd_global.login_id;
4095:
4382:
4383: --log for debug
4384: IF ( ln_proc_level >= ln_dbg_level)
4385: THEN
4386: FND_LOG.STRING ( ln_proc_level
4387: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
4388: , 'Enter procedure'
4389: );
4390: FND_LOG.STRING ( ln_proc_level
4386: FND_LOG.STRING ( ln_proc_level
4387: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.begin'
4388: , 'Enter procedure'
4389: );
4390: FND_LOG.STRING ( ln_proc_level
4391: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
4392: , 'pn_invoice_id ' || pn_invoice_id
4393: );
4394: FND_LOG.STRING ( ln_proc_level
4390: FND_LOG.STRING ( ln_proc_level
4391: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
4392: , 'pn_invoice_id ' || pn_invoice_id
4393: );
4394: FND_LOG.STRING ( ln_proc_level
4395: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
4396: , 'pn_line_number ' || pn_line_number
4397: );
4398: FND_LOG.STRING ( ln_proc_level
4394: FND_LOG.STRING ( ln_proc_level
4395: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
4396: , 'pn_line_number ' || pn_line_number
4397: );
4398: FND_LOG.STRING ( ln_proc_level
4399: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
4400: , 'pv_tax_modified ' || pv_tax_modified
4401: );
4402: FND_LOG.STRING ( ln_proc_level
4398: FND_LOG.STRING ( ln_proc_level
4399: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
4400: , 'pv_tax_modified ' || pv_tax_modified
4401: );
4402: FND_LOG.STRING ( ln_proc_level
4403: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
4404: , 'pn_organization_id ' || pn_organization_id
4405: );
4406: FND_LOG.STRING ( ln_proc_level
4402: FND_LOG.STRING ( ln_proc_level
4403: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
4404: , 'pn_organization_id ' || pn_organization_id
4405: );
4406: FND_LOG.STRING ( ln_proc_level
4407: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
4408: , 'pn_location_id ' || pn_location_id
4409: );
4410: FND_LOG.STRING ( ln_proc_level
4406: FND_LOG.STRING ( ln_proc_level
4407: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
4408: , 'pn_location_id ' || pn_location_id
4409: );
4410: FND_LOG.STRING ( ln_proc_level
4411: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
4412: , 'pv_currency ' || pv_currency
4413: );
4414: FND_LOG.STRING ( ln_proc_level
4410: FND_LOG.STRING ( ln_proc_level
4411: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
4412: , 'pv_currency ' || pv_currency
4413: );
4414: FND_LOG.STRING ( ln_proc_level
4415: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.parameters'
4416: , 'pn_tax_category_id ' || pn_tax_category_id
4417: );
4418: END IF; --( ln_proc_level >= ln_dbg_level )
4457:
4458: --log for debug
4459: IF ( ln_proc_level >= ln_dbg_level)
4460: THEN
4461: FND_LOG.STRING ( ln_proc_level
4462: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.debug Info.'
4463: , 'Item Loop of First Time '
4464: );
4465: END IF; --( ln_proc_level >= ln_dbg_level )
4593:
4594: --log for debug
4595: IF ( ln_proc_level >= ln_dbg_level)
4596: THEN
4597: FND_LOG.STRING ( ln_proc_level
4598: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.ap_invoice_lines_rec.line_number'
4599: , ap_invoice_lines_rec.line_number
4600: );
4601:
4598: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.ap_invoice_lines_rec.line_number'
4599: , ap_invoice_lines_rec.line_number
4600: );
4601:
4602: FND_LOG.STRING ( ln_proc_level
4603: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.lv_tax_type'
4604: , lv_tax_type
4605: );
4606: END IF; --( ln_proc_level >= ln_dbg_level )
4654:
4655: --log for debug
4656: IF ( ln_proc_level >= ln_dbg_level)
4657: THEN
4658: FND_LOG.STRING ( ln_proc_level
4659: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.ln_recur_tax_amt'
4660: , ln_recur_tax_amt
4661: );
4662:
4659: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.ln_recur_tax_amt'
4660: , ln_recur_tax_amt
4661: );
4662:
4663: FND_LOG.STRING ( ln_proc_level
4664: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.ln_recur_func_tax_amt'
4665: , ln_recur_func_tax_amt
4666: );
4667: FND_LOG.STRING ( ln_proc_level
4663: FND_LOG.STRING ( ln_proc_level
4664: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.ln_recur_func_tax_amt'
4665: , ln_recur_func_tax_amt
4666: );
4667: FND_LOG.STRING ( ln_proc_level
4668: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.ln_nrecur_tax_amt'
4669: , ln_nrecur_tax_amt
4670: );
4671: FND_LOG.STRING ( ln_proc_level
4667: FND_LOG.STRING ( ln_proc_level
4668: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.ln_nrecur_tax_amt'
4669: , ln_nrecur_tax_amt
4670: );
4671: FND_LOG.STRING ( ln_proc_level
4672: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.ln_nrecur_func_tax_amt'
4673: , ln_nrecur_func_tax_amt
4674: );
4675: END IF; --( ln_proc_level >= ln_dbg_level )
4682:
4683: --log for debug
4684: IF ( ln_proc_level >= ln_dbg_level)
4685: THEN
4686: FND_LOG.STRING ( ln_proc_level
4687: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.i'
4688: , i
4689: );
4690: END IF; --( ln_proc_level >= ln_dbg_level )
4800:
4801: --log for debug
4802: IF ( ln_proc_level >= ln_dbg_level)
4803: THEN
4804: FND_LOG.STRING ( ln_proc_level
4805: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.debug Info.'
4806: , 'Item Loop of Second Time '
4807: );
4808: END IF; --( ln_proc_level >= ln_dbg_level )
4937: --insert into eric_log values (7.82,'lv_insert_jai_inv_sql executed for item line number :'|| ap_invoice_lines_rec.line_number,sysdate);
4938: --log for debug
4939: IF ( ln_proc_level >= ln_dbg_level)
4940: THEN
4941: FND_LOG.STRING ( ln_proc_level
4942: , GV_MODULE_PREFIX ||'.'|| lv_proc_name
4943: || '.debug Info.'
4944: , 'Table jai_ap_invoice_lines inserted '
4945: );
4979:
4980: --log for debug
4981: IF ( ln_proc_level >= ln_dbg_level)
4982: THEN
4983: FND_LOG.STRING ( ln_proc_level
4984: , GV_MODULE_PREFIX ||'.'|| lv_proc_name
4985: || '.debug Info.'
4986: , 'Table ap_invoice_lines_all inserted '
4987: );
5073: --insert into eric_log values (7.84,'lv_insert_ap_inv_dist_ln_sql executed for item line number :'|| ap_invoice_lines_rec.line_number,sysdate);
5074: --log for debug
5075: IF ( ln_proc_level >= ln_dbg_level)
5076: THEN
5077: FND_LOG.STRING ( ln_proc_level
5078: , GV_MODULE_PREFIX ||'.'|| lv_proc_name
5079: || '.debug Info.'
5080: , 'Table ap_distribution_lines_all inserted '
5081: );
5427:
5428: --log for debug
5429: IF ( ln_proc_level >= ln_dbg_level)
5430: THEN
5431: FND_LOG.STRING ( ln_proc_level
5432: , GV_MODULE_PREFIX ||'.'|| lv_proc_name || '.end'
5433: , 'Exit procedure'
5434: );
5435: END IF; --( ln_proc_level >= ln_dbg_level )
5437: EXCEPTION
5438: WHEN OTHERS THEN
5439: IF ( ln_proc_level >= ln_dbg_level)
5440: THEN
5441: FND_LOG.STRING ( ln_proc_level
5442: , GV_MODULE_PREFIX|| '.'|| lv_proc_name
5443: || '. Other_Exception '
5444: , SQLCODE || ':' || SQLERRM
5445: );