DBA Data[Home] [Help]

APPS.JL_AR_APPLICABLE_TAXES dependencies on JL_ZZ_AP_INV_DIS_WH

Line 509: l_INV_DISTRIB_AWT_ID_INV JL_ZZ_AP_INV_DIS_WH_ALL.INV_DISTRIB_AWT_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;
512: l_INVOICE_DISTRIBUTION_ID_IND AP_INVOICE_DISTRIBUTIONS_ALL.INVOICE_DISTRIBUTION_ID%TYPE;
513: l_START_DATE_SEC_MAX DATE := NULL;

Line 516: l_INV_DISTRIB_AWT_ID_DIS JL_ZZ_AP_INV_DIS_WH_ALL.INV_DISTRIB_AWT_ID%TYPE;

512: l_INVOICE_DISTRIBUTION_ID_IND AP_INVOICE_DISTRIBUTIONS_ALL.INVOICE_DISTRIBUTION_ID%TYPE;
513: l_START_DATE_SEC_MAX DATE := NULL;
514: l_END_DATE_SEC_MAX DATE := NULL;
515: l_EFFECTIVE_START_DATE_COMP DATE;
516: l_INV_DISTRIB_AWT_ID_DIS JL_ZZ_AP_INV_DIS_WH_ALL.INV_DISTRIB_AWT_ID%TYPE;
517:
518:
519: CURSOR CUR3(l_TAXPAYERID_C NUMBER) IS
520: SELECT APINA.INVOICE_ID,

Line 1051: -- CODE TO UPDATE/INSERT JL_ZZ_AP_INV_DIS_WH_ALL (TDD 3.2.1.1)

1047: END;
1048:
1049: END IF;
1050:
1051: -- CODE TO UPDATE/INSERT JL_ZZ_AP_INV_DIS_WH_ALL (TDD 3.2.1.1)
1052:
1053: BEGIN
1054: -- TO GET THE CURRENT MONTH SUPP_AWT_CODE_ID FOR THE PRESENT TAX_ID
1055:

Line 1082: SELECT JL_ZZ_AP_INV_DIS_WH_S.NEXTVAL INTO l_INV_DISTRIB_AWT_ID_INV FROM dual;

1078: 1,10)
1079: ) ||
1080: substr(pv.global_attribute12,1,1) = TO_CHAR(l_TAXPAYER_ID);
1081:
1082: SELECT JL_ZZ_AP_INV_DIS_WH_S.NEXTVAL INTO l_INV_DISTRIB_AWT_ID_INV FROM dual;
1083:
1084: EXCEPTION
1085: WHEN OTHERS THEN
1086: IF p_debug_log = 'Y' THEN

Line 1087: FND_FILE.PUT_LINE( FND_FILE.LOG,'22 B SELECT TAX CODE NOT DONE FOR JL_ZZ_AP_INV_DIS_WH_ALL - '|| SQLCODE ||' -ERROR- '|| SQLERRM);

1083:
1084: EXCEPTION
1085: WHEN OTHERS THEN
1086: IF p_debug_log = 'Y' THEN
1087: FND_FILE.PUT_LINE( FND_FILE.LOG,'22 B SELECT TAX CODE NOT DONE FOR JL_ZZ_AP_INV_DIS_WH_ALL - '|| SQLCODE ||' -ERROR- '|| SQLERRM);
1088: END IF;
1089: END;
1090:
1091: OPEN CUR3(l_TAXPAYER_ID);

Line 1103: FROM JL_ZZ_AP_INV_DIS_WH

1099:
1100: AWT_CODE_INV_AVAIL_FLAG := 'N';
1101:
1102: SELECT 'Y', INV_DISTRIB_AWT_ID INTO AWT_CODE_INV_AVAIL_FLAG, l_INV_DISTRIB_AWT_ID_DIS
1103: FROM JL_ZZ_AP_INV_DIS_WH
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;

Line 1135: BEGIN ---code to insert data INTO jl_zz_ap_inv_dis_wh_all

1131: FND_FILE.put_line( FND_FILE.LOG,'22 B l_SUPP_AWT_CODE_ID_CD'|| l_SUPP_AWT_CODE_ID_CD);
1132: FND_FILE.put_line( FND_FILE.LOG,'22 B INVOICE_DISTRIBUTION_ID'|| INV_REC.INVOICE_DISTRIBUTION_ID);
1133: END IF;
1134:
1135: BEGIN ---code to insert data INTO jl_zz_ap_inv_dis_wh_all
1136:
1137: INSERT INTO JL_ZZ_AP_INV_DIS_WH
1138: (INV_DISTRIB_AWT_ID,
1139: INVOICE_ID,

Line 1137: INSERT INTO JL_ZZ_AP_INV_DIS_WH

1133: END IF;
1134:
1135: BEGIN ---code to insert data INTO jl_zz_ap_inv_dis_wh_all
1136:
1137: INSERT INTO JL_ZZ_AP_INV_DIS_WH
1138: (INV_DISTRIB_AWT_ID,
1139: INVOICE_ID,
1140: DISTRIBUTION_LINE_NUMBER,
1141: SUPP_AWT_CODE_ID,

Line 1164: SELECT JL_ZZ_AP_INV_DIS_WH_S.NEXTVAL INTO l_INV_DISTRIB_AWT_ID_INV FROM dual;

1160: INV_REC.INVOICE_DISTRIBUTION_ID); --Invoice distribution ID -- R12 Changes
1161:
1162:
1163:
1164: SELECT JL_ZZ_AP_INV_DIS_WH_S.NEXTVAL INTO l_INV_DISTRIB_AWT_ID_INV FROM dual;
1165:
1166: IF p_debug_log = 'Y' THEN
1167: FND_FILE.put_line( FND_FILE.LOG,'22. C '|| SQL%ROWCOUNT ||'Inserted records in JL_ZZ_AP_INV_DIS_WH '|| SQLCODE || 'ERROR' || SQLERRM);
1168: END IF;

Line 1167: FND_FILE.put_line( FND_FILE.LOG,'22. C '|| SQL%ROWCOUNT ||'Inserted records in JL_ZZ_AP_INV_DIS_WH '|| SQLCODE || 'ERROR' || SQLERRM);

1163:
1164: SELECT JL_ZZ_AP_INV_DIS_WH_S.NEXTVAL INTO l_INV_DISTRIB_AWT_ID_INV FROM dual;
1165:
1166: IF p_debug_log = 'Y' THEN
1167: FND_FILE.put_line( FND_FILE.LOG,'22. C '|| SQL%ROWCOUNT ||'Inserted records in JL_ZZ_AP_INV_DIS_WH '|| SQLCODE || 'ERROR' || SQLERRM);
1168: END IF;
1169:
1170: EXCEPTION
1171: WHEN OTHERS THEN

Line 1173: FND_FILE.put_line( FND_FILE.LOG,'22. C Failed while Inserted records in JL_ZZ_AP_INV_DIS_WH '|| SQLCODE || 'ERROR' || SQLERRM);

1169:
1170: EXCEPTION
1171: WHEN OTHERS THEN
1172: IF p_debug_log = 'Y' THEN
1173: FND_FILE.put_line( FND_FILE.LOG,'22. C Failed while Inserted records in JL_ZZ_AP_INV_DIS_WH '|| SQLCODE || 'ERROR' || SQLERRM);
1174: END IF;
1175: END;
1176:
1177: ELSE

Line 1190: FROM JL_ZZ_AP_INV_DIS_WH

1186: FND_FILE.put_line( FND_FILE.LOG,'23 A INVOICE_DISTRIBUTION_ID'|| INV_REC.INVOICE_DISTRIBUTION_ID);
1187: END IF;
1188:
1189: /*SELECT INV_DISTRIB_AWT_ID INTO l_INV_DISTRIB_AWT_ID_DIS
1190: FROM JL_ZZ_AP_INV_DIS_WH
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

Line 1202: UPDATE JL_ZZ_AP_INV_DIS_WH SET SUPP_AWT_CODE_ID = l_SUPP_AWT_CODE_ID_CD

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);*/
1200:
1201:
1202: UPDATE JL_ZZ_AP_INV_DIS_WH SET SUPP_AWT_CODE_ID = l_SUPP_AWT_CODE_ID_CD
1203: WHERE INV_DISTRIB_AWT_ID = l_INV_DISTRIB_AWT_ID_DIS;
1204:
1205: IF p_debug_log = 'Y' THEN
1206: FND_FILE.put_line( FND_FILE.LOG,'23 B. Updated '|| SQL%ROWCOUNT ||' records in JL_ZZ_AP_INV_DIS_WH '|| SQLCODE || 'ERROR' || SQLERRM);

Line 1206: FND_FILE.put_line( FND_FILE.LOG,'23 B. Updated '|| SQL%ROWCOUNT ||' records in JL_ZZ_AP_INV_DIS_WH '|| SQLCODE || 'ERROR' || SQLERRM);

1202: UPDATE JL_ZZ_AP_INV_DIS_WH SET SUPP_AWT_CODE_ID = l_SUPP_AWT_CODE_ID_CD
1203: WHERE INV_DISTRIB_AWT_ID = l_INV_DISTRIB_AWT_ID_DIS;
1204:
1205: IF p_debug_log = 'Y' THEN
1206: FND_FILE.put_line( FND_FILE.LOG,'23 B. Updated '|| SQL%ROWCOUNT ||' records in JL_ZZ_AP_INV_DIS_WH '|| SQLCODE || 'ERROR' || SQLERRM);
1207: FND_FILE.put_line( FND_FILE.LOG,'23 B. l_SUPP_AWT_CODE_ID_CD:'|| l_SUPP_AWT_CODE_ID_CD);
1208: FND_FILE.put_line( FND_FILE.LOG,'23 B. l_INV_DISTRIB_AWT_ID_DIS:'|| l_INV_DISTRIB_AWT_ID_DIS);
1209: END IF;
1210:

Line 1214: FND_FILE.put_line( FND_FILE.LOG,'23 B. Failed while updating records in JL_ZZ_AP_INV_DIS_WH '|| SQLCODE || 'ERROR' || SQLERRM);

1210:
1211: EXCEPTION
1212: WHEN OTHERS THEN
1213: IF p_debug_log = 'Y' THEN
1214: FND_FILE.put_line( FND_FILE.LOG,'23 B. Failed while updating records in JL_ZZ_AP_INV_DIS_WH '|| SQLCODE || 'ERROR' || SQLERRM);
1215: END IF;
1216: END;
1217:
1218: END IF;

Line 1224: FND_FILE.PUT_LINE( FND_FILE.LOG,'24. UPDATED DATA IN JL_ZZ_AP_INV_DIS_WH FOR SUPP_AWT_CODE_ID ');

1220: END LOOP;
1221: CLOSE CUR3;
1222:
1223: IF p_debug_log = 'Y' THEN
1224: FND_FILE.PUT_LINE( FND_FILE.LOG,'24. UPDATED DATA IN JL_ZZ_AP_INV_DIS_WH FOR SUPP_AWT_CODE_ID ');
1225: END IF;
1226:
1227:
1228:

Line 1573: -- Code to insert/UPDATE JL_ZZ_AP_INV_DIS_WH (TDD 3.3.2)

1569: FND_FILE.put_line( FND_FILE.LOG,'42 . l_tax_id'|| l_tax_id || 'l_SUPP_AWT_CODE_ID_CD' || l_SUPP_AWT_CODE_ID_CD || 'l_EFFECTIVE_START_DATE-1' || l_START_DATE);
1570: FND_FILE.PUT_LINE( FND_FILE.LOG,'42 . UPDATED DATA IN JL_ZZ_AP_SUP_AWT_CD FOR PRIMARY_TAX_FLAG AS N AND EFFECTIVE_START_DATE FOR '|| SQL%ROWCOUNT ||' RECORDS');
1571: END IF;
1572:
1573: -- Code to insert/UPDATE JL_ZZ_AP_INV_DIS_WH (TDD 3.3.2)
1574:
1575:
1576: BEGIN
1577: -- To get the current month Supp_Awt_Code_id for the present tax_id

Line 1608: SELECT JL_ZZ_AP_INV_DIS_WH_S.NEXTVAL INTO l_INV_DISTRIB_AWT_ID_INV FROM dual;

1604: 1,10)
1605: ) ||
1606: substr(pv.global_attribute12,1,1) = TO_CHAR(l_TAXPAYER_ID);
1607:
1608: SELECT JL_ZZ_AP_INV_DIS_WH_S.NEXTVAL INTO l_INV_DISTRIB_AWT_ID_INV FROM dual;
1609:
1610: EXCEPTION
1611: WHEN OTHERS THEN
1612: IF p_debug_log = 'Y' THEN

Line 1613: FND_FILE.PUT_LINE( FND_FILE.LOG,'43 UPDATE NOT DONE FOR JL_ZZ_AP_INV_DIS_WH - '|| SQLCODE ||' -ERROR- '|| SQLERRM);

1609:
1610: EXCEPTION
1611: WHEN OTHERS THEN
1612: IF p_debug_log = 'Y' THEN
1613: FND_FILE.PUT_LINE( FND_FILE.LOG,'43 UPDATE NOT DONE FOR JL_ZZ_AP_INV_DIS_WH - '|| SQLCODE ||' -ERROR- '|| SQLERRM);
1614: END IF;
1615: END;
1616:
1617: OPEN CUR3(l_TAXPAYER_ID);

Line 1628: FROM JL_ZZ_AP_INV_DIS_WH

1624:
1625: AWT_CODE_INV_AVAIL_FLAG := 'N';
1626:
1627: SELECT 'Y', INV_DISTRIB_AWT_ID INTO AWT_CODE_INV_AVAIL_FLAG, l_INV_DISTRIB_AWT_ID_DIS
1628: FROM JL_ZZ_AP_INV_DIS_WH
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;

Line 1656: ---code to insert data INTO jl_zz_ap_inv_dis_wh_all

1652: FND_FILE.put_line( FND_FILE.LOG,'45 INV_REC.DISTRIBUTION_LINE_NUMBER'|| INV_REC.DISTRIBUTION_LINE_NUMBER);
1653: FND_FILE.put_line( FND_FILE.LOG,'45 l_SUPP_AWT_CODE_ID_CD'|| l_SUPP_AWT_CODE_ID_CD);
1654: FND_FILE.put_line( FND_FILE.LOG,'45 INVOICE_DISTRIBUTION_ID'|| INV_REC.INVOICE_DISTRIBUTION_ID);
1655: END IF;
1656: ---code to insert data INTO jl_zz_ap_inv_dis_wh_all
1657: BEGIN
1658:
1659: INSERT INTO JL_ZZ_AP_INV_DIS_WH
1660: (INV_DISTRIB_AWT_ID,

Line 1659: INSERT INTO JL_ZZ_AP_INV_DIS_WH

1655: END IF;
1656: ---code to insert data INTO jl_zz_ap_inv_dis_wh_all
1657: BEGIN
1658:
1659: INSERT INTO JL_ZZ_AP_INV_DIS_WH
1660: (INV_DISTRIB_AWT_ID,
1661: INVOICE_ID,
1662: DISTRIBUTION_LINE_NUMBER,
1663: SUPP_AWT_CODE_ID,

Line 1687: SELECT JL_ZZ_AP_INV_DIS_WH_S.NEXTVAL INTO l_INV_DISTRIB_AWT_ID_INV FROM dual;

1683:
1684:
1685:
1686:
1687: SELECT JL_ZZ_AP_INV_DIS_WH_S.NEXTVAL INTO l_INV_DISTRIB_AWT_ID_INV FROM dual;
1688:
1689: IF p_debug_log = 'Y' THEN
1690: FND_FILE.put_line( FND_FILE.LOG,'45 A. '|| SQL%ROWCOUNT ||'Inserted records in JL_ZZ_AP_INV_DIS_WH '|| SQLCODE || 'ERROR' || SQLERRM);
1691: END IF;

Line 1690: FND_FILE.put_line( FND_FILE.LOG,'45 A. '|| SQL%ROWCOUNT ||'Inserted records in JL_ZZ_AP_INV_DIS_WH '|| SQLCODE || 'ERROR' || SQLERRM);

1686:
1687: SELECT JL_ZZ_AP_INV_DIS_WH_S.NEXTVAL INTO l_INV_DISTRIB_AWT_ID_INV FROM dual;
1688:
1689: IF p_debug_log = 'Y' THEN
1690: FND_FILE.put_line( FND_FILE.LOG,'45 A. '|| SQL%ROWCOUNT ||'Inserted records in JL_ZZ_AP_INV_DIS_WH '|| SQLCODE || 'ERROR' || SQLERRM);
1691: END IF;
1692:
1693: EXCEPTION
1694: WHEN OTHERS THEN

Line 1696: FND_FILE.put_line( FND_FILE.LOG,'45 A. Failed while Inserting records in JL_ZZ_AP_INV_DIS_WH '|| SQLCODE || 'ERROR' || SQLERRM);

1692:
1693: EXCEPTION
1694: WHEN OTHERS THEN
1695: IF p_debug_log = 'Y' THEN
1696: FND_FILE.put_line( FND_FILE.LOG,'45 A. Failed while Inserting records in JL_ZZ_AP_INV_DIS_WH '|| SQLCODE || 'ERROR' || SQLERRM);
1697: END IF;
1698: END;
1699: ELSE
1700: BEGIN

Line 1711: FROM JL_ZZ_AP_INV_DIS_WH

1707: FND_FILE.put_line( FND_FILE.LOG,'45 B INVOICE_DISTRIBUTION_ID'|| INV_REC.INVOICE_DISTRIBUTION_ID);
1708: END IF;
1709:
1710: /*SELECT INV_DISTRIB_AWT_ID INTO l_INV_DISTRIB_AWT_ID_DIS
1711: FROM JL_ZZ_AP_INV_DIS_WH
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

Line 1723: UPDATE JL_ZZ_AP_INV_DIS_WH SET SUPP_AWT_CODE_ID = l_SUPP_AWT_CODE_ID_CD

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);*/
1721:
1722:
1723: UPDATE JL_ZZ_AP_INV_DIS_WH SET SUPP_AWT_CODE_ID = l_SUPP_AWT_CODE_ID_CD
1724: WHERE INV_DISTRIB_AWT_ID = l_INV_DISTRIB_AWT_ID_DIS;
1725:
1726: IF p_debug_log = 'Y' THEN
1727: FND_FILE.put_line( FND_FILE.LOG,'46 A. Updated '|| SQL%ROWCOUNT ||' records in JL_ZZ_AP_INV_DIS_WH '|| SQLCODE || 'ERROR' || SQLERRM);

Line 1727: FND_FILE.put_line( FND_FILE.LOG,'46 A. Updated '|| SQL%ROWCOUNT ||' records in JL_ZZ_AP_INV_DIS_WH '|| SQLCODE || 'ERROR' || SQLERRM);

1723: UPDATE JL_ZZ_AP_INV_DIS_WH SET SUPP_AWT_CODE_ID = l_SUPP_AWT_CODE_ID_CD
1724: WHERE INV_DISTRIB_AWT_ID = l_INV_DISTRIB_AWT_ID_DIS;
1725:
1726: IF p_debug_log = 'Y' THEN
1727: FND_FILE.put_line( FND_FILE.LOG,'46 A. Updated '|| SQL%ROWCOUNT ||' records in JL_ZZ_AP_INV_DIS_WH '|| SQLCODE || 'ERROR' || SQLERRM);
1728: FND_FILE.put_line( FND_FILE.LOG,'46 A. l_SUPP_AWT_CODE_ID_CD:'|| l_SUPP_AWT_CODE_ID_CD);
1729: FND_FILE.put_line( FND_FILE.LOG,'46 A. l_INV_DISTRIB_AWT_ID_DIS:'|| l_INV_DISTRIB_AWT_ID_DIS);
1730: END IF;
1731:

Line 1735: FND_FILE.put_line( FND_FILE.LOG,'46 B. Failed while updating records in JL_ZZ_AP_INV_DIS_WH '|| SQLCODE || 'ERROR' || SQLERRM);

1731:
1732: EXCEPTION
1733: WHEN OTHERS THEN
1734: IF p_debug_log = 'Y' THEN
1735: FND_FILE.put_line( FND_FILE.LOG,'46 B. Failed while updating records in JL_ZZ_AP_INV_DIS_WH '|| SQLCODE || 'ERROR' || SQLERRM);
1736: END IF;
1737: END;
1738:
1739: END IF;

Line 1745: FND_FILE.PUT_LINE( FND_FILE.LOG,'46 C. UPDATED DATA IN JL_ZZ_AP_INV_DIS_WH FOR SUPP_AWT_CODE_ID ');

1741: END LOOP;
1742: CLOSE CUR3;
1743:
1744: IF p_debug_log = 'Y' THEN
1745: FND_FILE.PUT_LINE( FND_FILE.LOG,'46 C. UPDATED DATA IN JL_ZZ_AP_INV_DIS_WH FOR SUPP_AWT_CODE_ID ');
1746: END IF;
1747:
1748:
1749:

Line 1866: l_INV_DISTRIB_AWT_ID_INV JL_ZZ_AP_INV_DIS_WH_ALL.INV_DISTRIB_AWT_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;
1869: l_INVOICE_DISTRIBUTION_ID_IND AP_INVOICE_DISTRIBUTIONS_ALL.INVOICE_DISTRIBUTION_ID%TYPE;
1870: l_INV_DISTRIB_AWT_ID_DIS JL_ZZ_AP_INV_DIS_WH_ALL.INV_DISTRIB_AWT_ID%TYPE;

Line 1870: l_INV_DISTRIB_AWT_ID_DIS JL_ZZ_AP_INV_DIS_WH_ALL.INV_DISTRIB_AWT_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;
1869: l_INVOICE_DISTRIBUTION_ID_IND AP_INVOICE_DISTRIBUTIONS_ALL.INVOICE_DISTRIBUTION_ID%TYPE;
1870: l_INV_DISTRIB_AWT_ID_DIS JL_ZZ_AP_INV_DIS_WH_ALL.INV_DISTRIB_AWT_ID%TYPE;
1871: l_SUPP_AWT_CODE_ID_SEQ JL_ZZ_AP_SUP_AWT_CD_ALL.SUPP_AWT_CODE_ID%TYPE;
1872:
1873:
1874: --WHO COLUMNS:

Line 2228: -- code to UPDATE/insert jl_zz_ap_inv_dis_wh_all

2224:
2225: END;
2226:
2227:
2228: -- code to UPDATE/insert jl_zz_ap_inv_dis_wh_all
2229:
2230: BEGIN
2231: -- To get the current month Supp_Awt_Code_id for the present tax_id
2232:

Line 2261: SELECT JL_ZZ_AP_INV_DIS_WH_S.NEXTVAL INTO l_INV_DISTRIB_AWT_ID_INV FROM dual;

2257: 1,10)
2258: ) ||
2259: substr(pv.global_attribute12,1,1) = TO_CHAR(l_TAXPAYER_ID);
2260:
2261: SELECT JL_ZZ_AP_INV_DIS_WH_S.NEXTVAL INTO l_INV_DISTRIB_AWT_ID_INV FROM dual;
2262:
2263: EXCEPTION
2264: WHEN OTHERS THEN
2265: IF p_debug_log = 'Y' THEN

Line 2266: FND_FILE.PUT_LINE( FND_FILE.LOG,'54 UPDATE NOT DONE FOR JL_ZZ_AP_INV_DIS_WH - '|| SQLCODE ||' -ERROR- '|| SQLERRM);

2262:
2263: EXCEPTION
2264: WHEN OTHERS THEN
2265: IF p_debug_log = 'Y' THEN
2266: FND_FILE.PUT_LINE( FND_FILE.LOG,'54 UPDATE NOT DONE FOR JL_ZZ_AP_INV_DIS_WH - '|| SQLCODE ||' -ERROR- '|| SQLERRM);
2267: END IF;
2268: END;
2269:
2270: OPEN CUR4(l_TAXPAYER_ID);

Line 2275: ---code to insert data INTO jl_zz_ap_inv_dis_wh_all

2271: LOOP
2272: FETCH CUR4 INTO INV_REC;
2273: EXIT WHEN CUR4%NOTFOUND;
2274:
2275: ---code to insert data INTO jl_zz_ap_inv_dis_wh_all
2276:
2277: BEGIN
2278:
2279: AWT_CODE_INV_AVAIL_FLAG := 'N';

Line 2282: FROM JL_ZZ_AP_INV_DIS_WH

2278:
2279: AWT_CODE_INV_AVAIL_FLAG := 'N';
2280:
2281: SELECT 'Y', INV_DISTRIB_AWT_ID INTO AWT_CODE_INV_AVAIL_FLAG, l_INV_DISTRIB_AWT_ID_DIS
2282: FROM JL_ZZ_AP_INV_DIS_WH
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;

Line 2313: INSERT INTO JL_ZZ_AP_INV_DIS_WH

2309: END IF;
2310:
2311: BEGIN
2312:
2313: INSERT INTO JL_ZZ_AP_INV_DIS_WH
2314: (INV_DISTRIB_AWT_ID,
2315: INVOICE_ID,
2316: DISTRIBUTION_LINE_NUMBER,
2317: SUPP_AWT_CODE_ID,

Line 2339: SELECT JL_ZZ_AP_INV_DIS_WH_S.NEXTVAL INTO l_INV_DISTRIB_AWT_ID_INV FROM dual;

2335: l_ORG_ID, --ORG_ID
2336: INV_REC.INVOICE_DISTRIBUTION_ID); --Invoice distribution ID -- R12 Changes
2337:
2338:
2339: SELECT JL_ZZ_AP_INV_DIS_WH_S.NEXTVAL INTO l_INV_DISTRIB_AWT_ID_INV FROM dual;
2340:
2341: IF p_debug_log = 'Y' THEN
2342: FND_FILE.PUT_LINE( FND_FILE.LOG,'55 A. INSERTED RECORDS INTO JL_ZZ_AP_INV_DIS_WH_S '|| SQL%ROWCOUNT || 'RECORDS' || SQLCODE ||' -ERROR- '|| SQLERRM);
2343: END IF;

Line 2342: FND_FILE.PUT_LINE( FND_FILE.LOG,'55 A. INSERTED RECORDS INTO JL_ZZ_AP_INV_DIS_WH_S '|| SQL%ROWCOUNT || 'RECORDS' || SQLCODE ||' -ERROR- '|| SQLERRM);

2338:
2339: SELECT JL_ZZ_AP_INV_DIS_WH_S.NEXTVAL INTO l_INV_DISTRIB_AWT_ID_INV FROM dual;
2340:
2341: IF p_debug_log = 'Y' THEN
2342: FND_FILE.PUT_LINE( FND_FILE.LOG,'55 A. INSERTED RECORDS INTO JL_ZZ_AP_INV_DIS_WH_S '|| SQL%ROWCOUNT || 'RECORDS' || SQLCODE ||' -ERROR- '|| SQLERRM);
2343: END IF;
2344:
2345: EXCEPTION
2346: WHEN OTHERS THEN

Line 2348: FND_FILE.put_line( FND_FILE.LOG,'55 A. Failed while Inserted records in JL_ZZ_AP_INV_DIS_WH '|| SQLCODE || 'ERROR' || SQLERRM);

2344:
2345: EXCEPTION
2346: WHEN OTHERS THEN
2347: IF p_debug_log = 'Y' THEN
2348: FND_FILE.put_line( FND_FILE.LOG,'55 A. Failed while Inserted records in JL_ZZ_AP_INV_DIS_WH '|| SQLCODE || 'ERROR' || SQLERRM);
2349: END IF;
2350: END;
2351:
2352: ELSE

Line 2365: FROM JL_ZZ_AP_INV_DIS_WH

2361: FND_FILE.put_line( FND_FILE.LOG,'55 B INVOICE_DISTRIBUTION_ID'|| INV_REC.INVOICE_DISTRIBUTION_ID);
2362: END IF;
2363:
2364: /*SELECT INV_DISTRIB_AWT_ID INTO l_INV_DISTRIB_AWT_ID_DIS
2365: FROM JL_ZZ_AP_INV_DIS_WH
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

Line 2376: UPDATE JL_ZZ_AP_INV_DIS_WH SET SUPP_AWT_CODE_ID = l_SUPP_AWT_CODE_ID_CD

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);*/
2375:
2376: UPDATE JL_ZZ_AP_INV_DIS_WH SET SUPP_AWT_CODE_ID = l_SUPP_AWT_CODE_ID_CD
2377: WHERE INV_DISTRIB_AWT_ID = l_INV_DISTRIB_AWT_ID_DIS;
2378:
2379: IF p_debug_log = 'Y' THEN
2380: FND_FILE.PUT_LINE( FND_FILE.LOG,'55 C.UPDATED DATA IN JL_ZZ_AP_INV_DIS_WH FOR SUPP_AWT_CODE_ID WITH CURRENT (DEF) TAX_ID for'|| SQL%ROWCOUNT || 'RECORD' || SQLCODE ||' -ERROR- '|| SQLERRM);

Line 2380: FND_FILE.PUT_LINE( FND_FILE.LOG,'55 C.UPDATED DATA IN JL_ZZ_AP_INV_DIS_WH FOR SUPP_AWT_CODE_ID WITH CURRENT (DEF) TAX_ID for'|| SQL%ROWCOUNT || 'RECORD' || SQLCODE ||' -ERROR- '|| SQLERRM);

2376: UPDATE JL_ZZ_AP_INV_DIS_WH SET SUPP_AWT_CODE_ID = l_SUPP_AWT_CODE_ID_CD
2377: WHERE INV_DISTRIB_AWT_ID = l_INV_DISTRIB_AWT_ID_DIS;
2378:
2379: IF p_debug_log = 'Y' THEN
2380: FND_FILE.PUT_LINE( FND_FILE.LOG,'55 C.UPDATED DATA IN JL_ZZ_AP_INV_DIS_WH FOR SUPP_AWT_CODE_ID WITH CURRENT (DEF) TAX_ID for'|| SQL%ROWCOUNT || 'RECORD' || SQLCODE ||' -ERROR- '|| SQLERRM);
2381: FND_FILE.put_line( FND_FILE.LOG,'55 C l_INV_DISTRIB_AWT_ID_DIS:'|| l_INV_DISTRIB_AWT_ID_DIS || 'l_SUPP_AWT_CODE_ID_CD:' || l_SUPP_AWT_CODE_ID_CD);
2382: END IF;
2383:
2384:

Line 2388: FND_FILE.put_line( FND_FILE.LOG,'56. Failed while updating records in JL_ZZ_AP_INV_DIS_WH '|| SQLCODE || 'ERROR' || SQLERRM);

2384:
2385: EXCEPTION
2386: WHEN OTHERS THEN
2387: IF p_debug_log = 'Y' THEN
2388: FND_FILE.put_line( FND_FILE.LOG,'56. Failed while updating records in JL_ZZ_AP_INV_DIS_WH '|| SQLCODE || 'ERROR' || SQLERRM);
2389: END IF;
2390: END;
2391:
2392: END IF;

Line 2398: FND_FILE.PUT_LINE( FND_FILE.LOG,'56. UPDATED DATA IN JL_ZZ_AP_INV_DIS_WH FOR SUPP_AWT_CODE_ID ');

2394: END LOOP;
2395: CLOSE CUR4;
2396:
2397: IF p_debug_log = 'Y' THEN
2398: FND_FILE.PUT_LINE( FND_FILE.LOG,'56. UPDATED DATA IN JL_ZZ_AP_INV_DIS_WH FOR SUPP_AWT_CODE_ID ');
2399: END IF;
2400:
2401:
2402: