[Home] [Help]
503: l_SUPP_AWT_TYPE_ID_CD JL_ZZ_AP_SUP_AWT_CD_ALL.SUPP_AWT_TYPE_ID%TYPE;
504: l_SUPP_AWT_CODE_ID_SEQ JL_ZZ_AP_SUP_AWT_CD_ALL.SUPP_AWT_CODE_ID%TYPE;
505: l_SUPP_AWT_TYPE_ID_SEQ JL_ZZ_AP_SUP_AWT_CD_ALL.SUPP_AWT_TYPE_ID%TYPE;
506: l_tax_id ap_tax_codes.tax_id%TYPE;
507: l_SUPP_AWT_TYPE_ID_TYPES JL_ZZ_AP_SUPP_AWT_TYPES.SUPP_AWT_TYPE_ID%TYPE;
508: l_VENDOR_ID PO_VENDORS.VENDOR_ID%TYPE;
509: l_INV_DISTRIB_AWT_ID_INV JL_ZZ_AP_INV_DIS_WH_ALL.INV_DISTRIB_AWT_ID%TYPE;
510: l_INVOICE_ID_INA AP_INVOICES_ALL.INVOICE_ID%TYPE;
511: l_DISTRIBUTION_LINE_NUMBER_IND AP_INVOICE_DISTRIBUTIONS_ALL.DISTRIBUTION_LINE_NUMBER%TYPE;
920:
921: SELECT SAWT.SUPP_AWT_TYPE_ID
922: INTO l_SUPP_AWT_TYPE_ID_CD
923: FROM PO_VENDORS PV,
924: JL_ZZ_AP_SUPP_AWT_TYPES SAWT,
925: PER_ALL_PEOPLE_F PAPF
926: WHERE SAWT.VENDOR_ID = PV.VENDOR_ID
927: AND NVL(pv.employee_id, - 99) = papf.person_id (+)
928: AND NVL(papf.EFFECTIVE_START_DATE, SYSDATE) <= SYSDATE
1054: -- TO GET THE CURRENT MONTH SUPP_AWT_CODE_ID FOR THE PRESENT TAX_ID
1055:
1056: SELECT SAWTC.SUPP_AWT_CODE_ID INTO l_SUPP_AWT_CODE_ID_CD
1057: FROM JL_ZZ_AP_SUP_AWT_CD SAWTC,
1058: PO_VENDORS PV, JL_ZZ_AP_SUPP_AWT_TYPES SAWT, PER_ALL_PEOPLE_F PAPF
1059: WHERE SAWT.VENDOR_ID = PV.VENDOR_ID
1060: AND NVL(pv.employee_id, - 99) = papf.person_id (+)
1061: AND NVL(papf.EFFECTIVE_START_DATE, SYSDATE) <= SYSDATE
1062: AND NVL(papf.EFFECTIVE_END_DATE, SYSDATE) >= SYSDATE
1104: WHERE INVOICE_ID = INV_REC.INVOICE_ID
1105: AND DISTRIBUTION_LINE_NUMBER = INV_REC.DISTRIBUTION_LINE_NUMBER
1106: AND INVOICE_DISTRIBUTION_ID = INV_REC.INVOICE_DISTRIBUTION_ID
1107: AND SUPP_AWT_CODE_ID = l_SUPP_AWT_CODE_ID_CD;
1108: /*(SELECT SUPP_AWT_CODE_ID FROM JL_ZZ_AP_SUP_AWT_CD SAWTC, JL_ZZ_AP_SUPP_AWT_TYPES SAWT
1109: WHERE SAWT.SUPP_AWT_TYPE_ID = SAWTC.SUPP_AWT_TYPE_ID
1110: -- AND SAWTC.EFFECTIVE_START_DATE = l_START_DATE
1111: AND SAWTC.TAX_ID IN (SELECT TAX_ID FROM AP_TAX_CODES WHERE name LIKE 'TURN_BSAS_GRP%')); */
1112:
1191: WHERE INVOICE_ID = INV_REC.INVOICE_ID
1192: AND DISTRIBUTION_LINE_NUMBER = INV_REC.DISTRIBUTION_LINE_NUMBER
1193: AND INVOICE_DISTRIBUTION_ID = INV_REC.INVOICE_DISTRIBUTION_ID
1194: AND SUPP_AWT_CODE_ID IN
1195: (SELECT SUPP_AWT_CODE_ID FROM JL_ZZ_AP_SUP_AWT_CD SAWTC, JL_ZZ_AP_SUPP_AWT_TYPES SAWT
1196: WHERE SAWT.SUPP_AWT_TYPE_ID = SAWTC.SUPP_AWT_TYPE_ID
1197: AND SAWTC.primary_tax_flag = 'Y'
1198: AND SAWTC.TAX_ID IN (SELECT TAX_ID FROM AP_TAX_CODES WHERE name LIKE 'TURN_BSAS_GRP%')
1199: AND sawtc.effective_end_DATE IS NULL);*/
1360: RAISE_APPLICATION_ERROR(- 20999,'33 A An error was encountered in JL_AR_GRP_NOT_UNIQUE- '|| SQLCODE ||' -ERROR- '|| SQLERRM);
1361: GOTO L3;
1362: --raise error and fetch next record.
1363:
1364: ELSE --- If wht unique then INSERT INTO JL_ZZ_AP_SUPP_AWT_TYPES (3.3.2)
1365:
1366: BEGIN
1367:
1368: SELECT JL_ZZ_AP_SUPP_AWT_TYPES_s.nextval INTO l_SUPP_AWT_TYPE_ID_TYPES FROM dual;
1364: ELSE --- If wht unique then INSERT INTO JL_ZZ_AP_SUPP_AWT_TYPES (3.3.2)
1365:
1366: BEGIN
1367:
1368: SELECT JL_ZZ_AP_SUPP_AWT_TYPES_s.nextval INTO l_SUPP_AWT_TYPE_ID_TYPES FROM dual;
1369:
1370: SELECT PV.VENDOR_ID INTO l_VENDOR_ID FROM PO_VENDORS PV, PER_ALL_PEOPLE_F PAPF
1371: WHERE NVL(pv.employee_id, - 99) = papf.person_id (+)
1372: AND NVL(papf.EFFECTIVE_START_DATE, SYSDATE) <= SYSDATE
1386: IF p_debug_log = 'Y' THEN
1387: FND_FILE.put_line( FND_FILE.LOG,'34 . l_SUPP_AWT_TYPE_ID_TYPES'|| l_SUPP_AWT_TYPE_ID_TYPES || 'and' || 'l_VENDOR_ID' || l_VENDOR_ID);
1388: END IF;
1389:
1390: INSERT INTO JL_ZZ_AP_SUPP_AWT_TYPES(
1391: SUPP_AWT_TYPE_ID,
1392: VENDOR_ID,
1393: AWT_TYPE_CODE,
1394: WH_SUBJECT_FLAG,
1408: l_last_UPDATE_DATE, --LAST_UPDATE_DATE
1409: l_last_UPDATE_login); --LAST_UPDATE_LOGIN
1410:
1411: IF p_debug_log = 'Y' THEN
1412: FND_FILE.put_line( FND_FILE.LOG,'34 . Inserted data in JL_ZZ_AP_SUPP_AWT_TYPES for '|| SQL%ROWCOUNT ||' Records');
1413: END IF;
1414:
1415: EXCEPTION
1416: WHEN OTHERS THEN
1415: EXCEPTION
1416: WHEN OTHERS THEN
1417:
1418: IF p_debug_log = 'Y' THEN
1419: FND_FILE.put_line( FND_FILE.LOG,'35 .Insert in JL_ZZ_AP_SUPP_AWT_TYPES not done - '|| SQLCODE ||' -ERROR- '|| SQLERRM);
1420: END IF;
1421:
1422: END;
1423:
1428:
1429: SELECT SAWT.SUPP_AWT_TYPE_ID
1430: INTO l_SUPP_AWT_TYPE_ID_CD
1431: FROM PO_VENDORS PV,
1432: JL_ZZ_AP_SUPP_AWT_TYPES SAWT,
1433: PER_ALL_PEOPLE_F PAPF
1434: WHERE SAWT.VENDOR_ID = PV.VENDOR_ID
1435: AND NVL(pv.employee_id, - 99) = papf.person_id (+)
1436: AND NVL(papf.EFFECTIVE_START_DATE, SYSDATE) <= SYSDATE
1579: SELECT SAWTC.SUPP_AWT_CODE_ID
1580: INTO l_SUPP_AWT_CODE_ID_CD
1581: FROM JL_ZZ_AP_SUP_AWT_CD SAWTC,
1582: PO_VENDORS PV,
1583: JL_ZZ_AP_SUPP_AWT_TYPES SAWT,
1584: PER_ALL_PEOPLE_F PAPF
1585: WHERE SAWT.VENDOR_ID = PV.VENDOR_ID
1586: AND NVL(pv.employee_id, - 99) = papf.person_id (+)
1587: AND NVL(papf.EFFECTIVE_START_DATE, SYSDATE) <= SYSDATE
1629: WHERE INVOICE_ID = INV_REC.INVOICE_ID
1630: AND DISTRIBUTION_LINE_NUMBER = INV_REC.DISTRIBUTION_LINE_NUMBER
1631: AND INVOICE_DISTRIBUTION_ID = INV_REC.INVOICE_DISTRIBUTION_ID
1632: AND SUPP_AWT_CODE_ID = l_SUPP_AWT_CODE_ID_CD;
1633: /*(SELECT SUPP_AWT_CODE_ID FROM JL_ZZ_AP_SUP_AWT_CD SAWTC, JL_ZZ_AP_SUPP_AWT_TYPES SAWT
1634: WHERE SAWT.SUPP_AWT_TYPE_ID = SAWTC.SUPP_AWT_TYPE_ID
1635: AND SAWTC.TAX_ID IN (SELECT TAX_ID FROM AP_TAX_CODES WHERE name LIKE 'TURN_BSAS_GRP%')); */
1636:
1637: EXCEPTION
1712: WHERE INVOICE_ID = INV_REC.INVOICE_ID
1713: AND DISTRIBUTION_LINE_NUMBER = INV_REC.DISTRIBUTION_LINE_NUMBER
1714: AND INVOICE_DISTRIBUTION_ID = INV_REC.INVOICE_DISTRIBUTION_ID
1715: AND SUPP_AWT_CODE_ID IN
1716: (SELECT SUPP_AWT_CODE_ID FROM JL_ZZ_AP_SUP_AWT_CD SAWTC, JL_ZZ_AP_SUPP_AWT_TYPES SAWT
1717: WHERE SAWT.SUPP_AWT_TYPE_ID = SAWTC.SUPP_AWT_TYPE_ID
1718: AND SAWTC.primary_tax_flag = 'Y'
1719: AND SAWTC.TAX_ID IN (SELECT TAX_ID FROM AP_TAX_CODES WHERE name LIKE 'TURN_BSAS_GRP%')
1720: AND sawtc.effective_end_DATE IS NULL);*/
1860:
1861: l_SUPP_AWT_CODE_ID_CD JL_ZZ_AP_SUP_AWT_CD_ALL.SUPP_AWT_CODE_ID%TYPE;
1862: l_SUPP_AWT_TYPE_ID_CD JL_ZZ_AP_SUP_AWT_CD_ALL.SUPP_AWT_TYPE_ID%TYPE;
1863: l_tax_id ap_tax_codes.tax_id%TYPE;
1864: l_SUPP_AWT_TYPE_ID_TYPES JL_ZZ_AP_SUPP_AWT_TYPES.SUPP_AWT_TYPE_ID%TYPE;
1865: l_VENDOR_ID PO_VENDORS.VENDOR_ID%TYPE;
1866: l_INV_DISTRIB_AWT_ID_INV JL_ZZ_AP_INV_DIS_WH_ALL.INV_DISTRIB_AWT_ID%TYPE;
1867: l_INVOICE_ID_INA AP_INVOICES_ALL.INVOICE_ID%TYPE;
1868: l_DISTRIBUTION_LINE_NUMBER_IND AP_INVOICE_DISTRIBUTIONS_ALL.DISTRIBUTION_LINE_NUMBER%TYPE;
2109: INTO l_SUPP_AWT_TYPE_ID_CD,
2110: l_SUPP_AWT_CODE_ID_CD
2111: FROM JL_ZZ_AP_SUP_AWT_CD SAWTC,
2112: PO_VENDORS PV,
2113: JL_ZZ_AP_SUPP_AWT_TYPES SAWT,
2114: PER_ALL_PEOPLE_F PAPF
2115: WHERE SAWT.VENDOR_ID = PV.VENDOR_ID
2116: AND NVL(pv.employee_id, - 99) = papf.person_id (+)
2117: AND NVL(papf.EFFECTIVE_START_DATE, SYSDATE) <= SYSDATE
2233: SELECT SAWTC.SUPP_AWT_CODE_ID
2234: INTO l_SUPP_AWT_CODE_ID_CD
2235: FROM JL_ZZ_AP_SUP_AWT_CD SAWTC,
2236: PO_VENDORS PV,
2237: JL_ZZ_AP_SUPP_AWT_TYPES SAWT,
2238: PER_ALL_PEOPLE_F PAPF
2239: WHERE SAWT.VENDOR_ID = PV.VENDOR_ID
2240: AND NVL(pv.employee_id, - 99) = papf.person_id (+)
2241: AND NVL(papf.EFFECTIVE_START_DATE, SYSDATE) <= SYSDATE
2283: WHERE INVOICE_ID = INV_REC.INVOICE_ID
2284: AND DISTRIBUTION_LINE_NUMBER = INV_REC.DISTRIBUTION_LINE_NUMBER
2285: AND INVOICE_DISTRIBUTION_ID = INV_REC.INVOICE_DISTRIBUTION_ID
2286: AND SUPP_AWT_CODE_ID = l_SUPP_AWT_CODE_ID_CD;
2287: /*(SELECT SUPP_AWT_CODE_ID FROM JL_ZZ_AP_SUP_AWT_CD SAWTC, JL_ZZ_AP_SUPP_AWT_TYPES SAWT
2288: WHERE SAWT.SUPP_AWT_TYPE_ID = SAWTC.SUPP_AWT_TYPE_ID
2289: AND SAWTC.TAX_ID IN (SELECT TAX_ID FROM AP_TAX_CODES WHERE name LIKE 'TURN_BSAS_GRP%')); */
2290:
2291: EXCEPTION
2366: WHERE INVOICE_ID = INV_REC.INVOICE_ID
2367: AND DISTRIBUTION_LINE_NUMBER = INV_REC.DISTRIBUTION_LINE_NUMBER
2368: AND INVOICE_DISTRIBUTION_ID = INV_REC.INVOICE_DISTRIBUTION_ID
2369: AND SUPP_AWT_CODE_ID IN
2370: (SELECT SUPP_AWT_CODE_ID FROM JL_ZZ_AP_SUP_AWT_CD SAWTC, JL_ZZ_AP_SUPP_AWT_TYPES SAWT
2371: WHERE SAWT.SUPP_AWT_TYPE_ID = SAWTC.SUPP_AWT_TYPE_ID
2372: AND SAWTC.primary_tax_flag = 'Y'
2373: AND SAWTC.TAX_ID IN (SELECT TAX_ID FROM AP_TAX_CODES WHERE name LIKE 'TURN_BSAS_GRP%')
2374: AND sawtc.effective_end_DATE IS NULL);*/