51: ,0) ) SALE
52: FROM
53: FA_RETIREMENTS A,
54: JAI_FA_AST_BLOCK_DTLS B,
55: JAI_FA_AST_BLOCKS C
56: WHERE A.ASSET_ID = B.ASSET_ID
57: AND A.STATUS = 'PROCESSED'
58: AND A.ASSET_ID = ASSET_ID_v
59: AND B.BLOCK_ID = TO_CHAR(BLOCK_ID1)
96: RETURN (TRUE);
97: END AFTERPFORM;
98:
99: FUNCTION CF_4FORMULA RETURN NUMBER IS
100: V_TYPE JAI_FA_AST_BLOCKS.TYPE%TYPE;
101: V_RATE NUMBER;
102: V_SALE NUMBER;
103: V_BLOCK_ID NUMBER;
104: V_BLOCK_ID1 NUMBER;
105: CURSOR BLOCK_RET_CUR IS
106: SELECT
107: A.BLOCK_ID
108: FROM
109: JAI_FA_AST_BLOCKS A,
110: JAI_FA_AST_BLOCK_DTLS B,
111: FA_RETIREMENTS C
112: WHERE A.BLOCK_ID = B.BLOCK_ID
113: AND B.ASSET_ID = C.ASSET_ID
117: SELECT
118: TYPE,
119: RATE
120: FROM
121: JAI_FA_AST_BLOCKS
122: WHERE TO_CHAR(BLOCK_ID) = TO_CHAR(P_BLOCK_ID)
123: AND BOOK_TYPE_CODE = BOOK_NAME;
124: CURSOR BLOCK_ID_CUR_RET(P_TYPE IN VARCHAR2,P_RATE IN NUMBER) IS
125: SELECT
124: CURSOR BLOCK_ID_CUR_RET(P_TYPE IN VARCHAR2,P_RATE IN NUMBER) IS
125: SELECT
126: BLOCK_ID
127: FROM
128: JAI_FA_AST_BLOCKS
129: WHERE TYPE = P_TYPE
130: AND RATE = P_RATE
131: AND BOOK_TYPE_CODE = BOOK_NAME
132: AND START_DATE BETWEEN START_DATE
139: ,0) ) SALE
140: FROM
141: FA_RETIREMENTS A,
142: JAI_FA_AST_BLOCK_DTLS B,
143: JAI_FA_AST_BLOCKS C
144: WHERE A.ASSET_ID = B.ASSET_ID
145: AND B.BLOCK_ID = P_BLOCK_ID
146: AND C.TYPE = P_TYPE
147: AND C.RATE = P_RATE
170:
171: FUNCTION CF_5FORMULA(BLOCK_ID IN NUMBER
172: ,TYPE1 IN VARCHAR2
173: ,RATE IN NUMBER) RETURN NUMBER IS
174: V_TYPE JAI_FA_AST_BLOCKS.TYPE%TYPE;
175: V_RATE NUMBER;
176: V_SALE NUMBER;
177: V_BLOCK_ID NUMBER;
178: V_BLOCK_ID1 NUMBER;
180: SELECT
181: TYPE,
182: RATE
183: FROM
184: JAI_FA_AST_BLOCKS
185: WHERE BLOCK_ID = BLOCK_ID
186: AND BOOK_TYPE_CODE = BOOK_NAME;
187: CURSOR BLOCK_ID_CUR_RET IS
188: SELECT
187: CURSOR BLOCK_ID_CUR_RET IS
188: SELECT
189: BLOCK_ID
190: FROM
191: JAI_FA_AST_BLOCKS
192: WHERE TYPE = TYPE1
193: AND RATE = RATE
194: AND START_DATE < START_DATE;
195: CURSOR SALE_CUR(CP_OWNED_LEASED IN FA_ADDITIONS.OWNED_LEASED%TYPE,CP_STATUS IN FA_RETIREMENTS.STATUS%TYPE) IS
198: ,0) SALE
199: FROM
200: JAI_FA_AST_BLOCK_DTLS JBA,
201: FA_ADDITIONS FA,
202: JAI_FA_AST_BLOCKS JABLOA,
203: FA_RETIREMENTS FAR
204: WHERE FA.OWNED_LEASED = CP_OWNED_LEASED
205: AND FA.ASSET_ID = JBA.ASSET_ID
206: AND JBA.BLOCK_ID = JABLOA.BLOCK_ID
247: '1'
248: FROM
249: JAI_FA_AST_BLOCK_DTLS JBA,
250: FA_BOOKS FAB,
251: JAI_FA_AST_BLOCKS JABOA
252: WHERE JBA.ASSET_ID = FAB.ASSET_ID
253: AND ( ( JBA.ASSET_TYPE = LV_CAPITALIZED
254: AND FAB.CAPITALIZE_FLAG = LV_FLAG )
255: OR JBA.ASSET_TYPE = LV_EXPENSED )
265: AND JABOA.TYPE = (
266: SELECT
267: TYPE
268: FROM
269: JAI_FA_AST_BLOCKS
270: WHERE BLOCK_ID = BLOCK_ID_v )
271: AND ( JABOA.START_DATE <= NVL(START_DATE
272: ,JABOA.START_DATE)
273: OR JABOA.START_DATE BETWEEN NVL(START_DATE
273: OR JABOA.START_DATE BETWEEN NVL(START_DATE
274: ,JABOA.START_DATE)
275: AND NVL(END_DATE_N
276: ,JABOA.YEAR_ENDED) );
277: CURSOR CUR_GET_ST_OP_BAL(CP_BLOCK_ID IN JAI_FA_AST_BLOCKS.BLOCK_ID%TYPE) IS
278: SELECT
279: OPENING_WDV
280: FROM
281: JAI_FA_AST_BLOCKS JABOA
277: CURSOR CUR_GET_ST_OP_BAL(CP_BLOCK_ID IN JAI_FA_AST_BLOCKS.BLOCK_ID%TYPE) IS
278: SELECT
279: OPENING_WDV
280: FROM
281: JAI_FA_AST_BLOCKS JABOA
282: WHERE JABOA.BOOK_TYPE_CODE = BOOK_NAME
283: AND JABOA.TYPE = (
284: SELECT
285: TYPE
283: AND JABOA.TYPE = (
284: SELECT
285: TYPE
286: FROM
287: JAI_FA_AST_BLOCKS
288: WHERE BLOCK_ID = CP_BLOCK_ID )
289: ORDER BY
290: START_DATE ASC;
291: LV_EXISTS VARCHAR2(1);
288: WHERE BLOCK_ID = CP_BLOCK_ID )
289: ORDER BY
290: START_DATE ASC;
291: LV_EXISTS VARCHAR2(1);
292: LN_OPENING_WDV JAI_FA_AST_BLOCKS.OPENING_WDV%TYPE;
293: CURSOR DEPR_CUR1 IS
294: SELECT
295: A.ASSET_ID,
296: A.COST,
297: A.TRANSACTION_HEADER_ID_IN,
298: A.DATE_EFFECTIVE
299: FROM
300: FA_BOOKS A,
301: JAI_FA_AST_BLOCKS B,
302: JAI_FA_AST_BLOCK_DTLS C,
303: JAI_FA_AST_PERIOD_RATES D
304: WHERE A.ASSET_ID = C.ASSET_ID
305: AND ( ( C.ASSET_TYPE = LV_CAPITALIZED
321: SELECT
322: NVL(SUM(C.PROCEEDS_OF_SALE - C.COST_OF_REMOVAL)
323: ,0) SALE
324: FROM
325: JAI_FA_AST_BLOCKS A,
326: FA_ADDITIONS B,
327: FA_RETIREMENTS C,
328: JAI_FA_AST_PERIOD_RATES D
329: WHERE B.CONTEXT = P_CONTEXT_VALUE
347: SELECT
348: NVL(SUM(C.PROCEEDS_OF_SALE - C.COST_OF_REMOVAL)
349: ,0) SALE
350: FROM
351: JAI_FA_AST_BLOCKS A,
352: FA_ADDITIONS B,
353: FA_RETIREMENTS C,
354: JAI_FA_AST_PERIOD_RATES D
355: WHERE B.CONTEXT = P_CONTEXT_VALUE
507: ,SYSDATE
508: ,UID
509: ,UID);
510: /*SRW.MESSAGE(1053
511: ,'Before updating JAI_FA_AST_BLOCKS in DEPRECIATION1.. ')*/NULL;
512: UPDATE
513: JAI_FA_AST_BLOCKS
514: SET
515: OPENING_WDV = NVL(P_OPENING_WDV
509: ,UID);
510: /*SRW.MESSAGE(1053
511: ,'Before updating JAI_FA_AST_BLOCKS in DEPRECIATION1.. ')*/NULL;
512: UPDATE
513: JAI_FA_AST_BLOCKS
514: SET
515: OPENING_WDV = NVL(P_OPENING_WDV
516: ,0) + NVL(P_OPENING_WDV_ADJ
517: ,0)
516: ,0) + NVL(P_OPENING_WDV_ADJ
517: ,0)
518: WHERE TO_CHAR(BLOCK_ID) = TO_CHAR(P_BLOCK_ID);
519: /*SRW.MESSAGE(1054
520: ,'updated JAI_FA_AST_BLOCKS...in DEPRECIATION1..')*/NULL;
521: /*SRW.MESSAGE(1054
522: ,'No of rows updated in JAI_FA_AST_BLOCKS.....' || SQL%ROWCOUNT)*/NULL;
523: IF P_DEPN_ADJ IS NOT NULL THEN
524: /*SRW.MESSAGE(1055
518: WHERE TO_CHAR(BLOCK_ID) = TO_CHAR(P_BLOCK_ID);
519: /*SRW.MESSAGE(1054
520: ,'updated JAI_FA_AST_BLOCKS...in DEPRECIATION1..')*/NULL;
521: /*SRW.MESSAGE(1054
522: ,'No of rows updated in JAI_FA_AST_BLOCKS.....' || SQL%ROWCOUNT)*/NULL;
523: IF P_DEPN_ADJ IS NOT NULL THEN
524: /*SRW.MESSAGE(1055
525: ,'p_depn_adj is not null...DEPRECIATION1')*/NULL;
526: IF V_COUNT = 0 THEN
669: D.DATE_PLACED_IN_SERVICE,
670: E.CURRENT_UNITS
671: FROM
672: JAI_FA_AST_BLOCK_DTLS A,
673: JAI_FA_AST_BLOCKS B,
674: JAI_FA_AST_PERIOD_RATES C,
675: FA_BOOKS D,
676: FA_ADDITIONS E
677: WHERE E.OWNED_LEASED = LV_OWNED
698: SELECT
699: count(*)
700: FROM
701: JAI_FA_AST_BLOCK_DTLS A,
702: JAI_FA_AST_BLOCKS B,
703: JAI_FA_AST_PERIOD_RATES C,
704: FA_BOOKS D,
705: FA_ADDITIONS E
706: WHERE E.OWNED_LEASED = 'OWNED'
733: A.BLOCK_ID,
734: NVL(SUM(C.PROCEEDS_OF_SALE)
735: ,0) SALE
736: FROM
737: JAI_FA_AST_BLOCKS A,
738: JAI_FA_AST_BLOCK_DTLS B,
739: FA_RETIREMENTS C
740: WHERE A.BLOCK_ID = B.BLOCK_ID
741: AND A.BOOK_TYPE_CODE = P_BOOK_NAME
748: SELECT
749: TYPE,
750: RATE
751: FROM
752: JAI_FA_AST_BLOCKS
753: WHERE TO_CHAR(BLOCK_ID) = TO_CHAR(P_BLOCK_ID)
754: AND BOOK_TYPE_CODE = P_BOOK_NAME;
755: CURSOR BLOCK_ID_CUR_RET(P_TYPE IN VARCHAR2,P_RATE IN NUMBER) IS
756: SELECT
760: TYPE,
761: OPENING_WDV_ADJ,
762: DEPN_ADJ
763: FROM
764: JAI_FA_AST_BLOCKS
765: WHERE TYPE = P_TYPE
766: AND RATE = P_RATE
767: AND BOOK_TYPE_CODE = P_BOOK_NAME
768: AND START_DATE BETWEEN P_YEAR_START
774: ,0)) SALE
775: FROM
776: FA_RETIREMENTS A,
777: JAI_FA_AST_BLOCK_DTLS B,
778: JAI_FA_AST_BLOCKS C
779: WHERE A.ASSET_ID = B.ASSET_ID
780: AND B.BLOCK_ID = P_BLOCK_ID
781: AND B.BLOCK_ID = C.BLOCK_ID
782: AND A.BOOK_TYPE_CODE = P_BOOK_NAME
854: OPENING_WDV,
855: OPENING_WDV_ADJ,
856: DEPN_ADJ
857: FROM
858: JAI_FA_AST_BLOCKS
859: WHERE BLOCK_ID = P_BLOCK_ID
860: AND BOOK_TYPE_CODE = P_BOOK_NAME;
861: CURSOR LEFT_AMOUNT(P_BLOCK_ID IN NUMBER) IS
862: SELECT
900: CURSOR BLOCK_ID_CUR IS
901: SELECT
902: BLOCK_ID
903: FROM
904: JAI_FA_AST_BLOCKS
905: WHERE TO_CHAR(BLOCK_ID) NOT IN (
906: SELECT
907: BLOCK_ID
908: FROM
918: B.RATE BLOCK_RATE,
919: B.BLOCK_ID,
920: B.TYPE
921: FROM
922: JAI_FA_AST_BLOCKS B,
923: JAI_FA_AST_PERIOD_RATES C
924: WHERE B.START_DATE >= P_YEAR_START
925: AND B.START_DATE <= P_YEAR_END
926: AND C.YEAR_START >= P_YEAR_START
930: CURSOR ASSET_COUNT_CUR1(P_BLOCK_ID IN NUMBER) IS
931: SELECT
932: count(*)
933: FROM
934: JAI_FA_AST_BLOCKS
935: WHERE CLOSING_WDV is not null
936: AND YEAR_ENDED is not null
937: AND BLOCK_ID = P_BLOCK_ID
938: AND BOOK_TYPE_CODE = P_BOOK_NAME
950: count(*)
951: FROM
952: FA_RETIREMENTS A,
953: JAI_FA_AST_BLOCK_DTLS B,
954: JAI_FA_AST_BLOCKS C
955: WHERE A.DATE_RETIRED BETWEEN P_YEAR_START
956: AND P_YEAR_END
957: AND A.ASSET_ID = B.ASSET_ID
958: AND B.BLOCK_ID = C.BLOCK_ID
968: SELECT
969: RATE,
970: TYPE
971: FROM
972: JAI_FA_AST_BLOCKS
973: WHERE START_DATE BETWEEN P_YEAR_START
974: AND P_YEAR_END
975: AND OPENING_WDV_ADJ is not null
976: OR DEPN_ADJ is not null
984: SELECT
985: RATE,
986: TYPE
987: FROM
988: JAI_FA_AST_BLOCKS
989: WHERE START_DATE BETWEEN P_YEAR_START
990: AND P_YEAR_END
991: AND BOOK_TYPE_CODE = P_BOOK_NAME
992: AND CLOSING_WDV > 0
1002: CLOSING_WDV,
1003: RATE,
1004: START_DATE
1005: FROM
1006: JAI_FA_AST_BLOCKS
1007: WHERE RATE = P_RATE
1008: AND TYPE = P_TYPE
1009: AND START_DATE > P_YEAR_END
1010: AND BOOK_TYPE_CODE = P_BOOK_NAME;
1068: END IF;
1069: IF NVL(V_COUNT2
1070: ,0) = 0 THEN
1071: UPDATE
1072: JAI_FA_AST_BLOCKS
1073: SET
1074: CLOSING_WDV = NVL(V_CLOSING_BALANCE
1075: ,0) - NVL(BLOCK_ID_NEW.DEPN_ADJ
1076: ,0)
1076: ,0)
1077: ,YEAR_ENDED = P_YEAR_END
1078: WHERE BLOCK_ID = BLOCK_ID_NEW.BLOCK_ID;
1079: SELECT
1080: JAI_FA_AST_BLOCKS_S.NEXTVAL
1081: INTO V_BLOCK_ID1
1082: FROM
1083: DUAL;
1084: INSERT INTO JAI_FA_AST_BLOCKS
1080: JAI_FA_AST_BLOCKS_S.NEXTVAL
1081: INTO V_BLOCK_ID1
1082: FROM
1083: DUAL;
1084: INSERT INTO JAI_FA_AST_BLOCKS
1085: (BLOCK_ID
1086: ,TYPE
1087: ,RATE
1088: ,BOOK_TYPE_CODE
1134: DEPN_OF_ASSETS = V_DEPRECIATION
1135: WHERE BLOCK_ID = BLOCK_ID_NEW.BLOCK_ID
1136: AND SLNO = 0;
1137: UPDATE
1138: JAI_FA_AST_BLOCKS
1139: SET
1140: OPENING_WDV = NVL(V_CLOSING_BALANCE
1141: ,0) - NVL(V_UNPLANNED_DEPN
1142: ,0)
1143: WHERE START_DATE = P_YEAR_END + 1
1144: AND TYPE = BLOCK_ID_NEW.TYPE
1145: AND RATE = BLOCK_ID_NEW.RATE;
1146: UPDATE
1147: JAI_FA_AST_BLOCKS
1148: SET
1149: CLOSING_WDV = NVL(V_CLOSING_BALANCE
1150: ,0) - NVL(V_UNPLANNED_DEPN
1151: ,0)
1199: V_CLOSING NUMBER;
1200: V_MORE_AMOUNT NUMBER;
1201: V_MORE_AMOUNT1 NUMBER;
1202: V_LESS_AMOUNT NUMBER;
1203: V_TYPE JAI_FA_AST_BLOCKS.TYPE%TYPE;
1204: V_LEFT_AMOUNT NUMBER;
1205: V_LEFT_BLOCK_ID NUMBER;
1206: V_NEG_DEP NUMBER;
1207: V_ASSET_COUNT NUMBER;
1256: D.DATE_PLACED_IN_SERVICE,
1257: A.CURRENT_UNITS
1258: FROM
1259: FA_ADDITIONS A,
1260: JAI_FA_AST_BLOCKS B,
1261: JAI_FA_AST_PERIOD_RATES C,
1262: FA_BOOKS D,
1263: JAI_FA_AST_BLOCK_DTLS E
1264: WHERE A.OWNED_LEASED = LV_OWNED_LEASED
1281: SELECT
1282: BLOCK_ID,
1283: TYPE
1284: FROM
1285: JAI_FA_AST_BLOCKS
1286: WHERE BLOCK_ID NOT IN (
1287: SELECT
1288: BLOCK_ID
1289: FROM
1302: B.RATE BLOCK_RATE,
1303: B.BLOCK_ID,
1304: B.TYPE
1305: FROM
1306: JAI_FA_AST_BLOCKS B,
1307: JAI_FA_AST_PERIOD_RATES C
1308: WHERE B.START_DATE >= P_YEAR_START
1309: AND B.START_DATE <= P_YEAR_END
1310: AND C.YEAR_START >= P_YEAR_START
1317: ,0) SALE
1318: FROM
1319: FA_RETIREMENTS A,
1320: JAI_FA_AST_BLOCK_DTLS B,
1321: JAI_FA_AST_BLOCKS C,
1322: FA_BOOKS D
1323: WHERE A.ASSET_ID = B.ASSET_ID
1324: AND ( ( B.ASSET_TYPE = LV_CAPITALIZED
1325: AND D.CAPITALIZE_FLAG = LV_FLAG )
1337: SELECT
1338: NVL(SUM(C.PROCEEDS_OF_SALE - C.COST_OF_REMOVAL)
1339: ,0) SALE
1340: FROM
1341: JAI_FA_AST_BLOCKS A,
1342: JAI_FA_AST_BLOCK_DTLS B,
1343: FA_RETIREMENTS C
1344: WHERE A.BLOCK_ID = B.BLOCK_ID
1345: AND A.BOOK_TYPE_CODE = P_BOOK_NAME
1355: ,0)) SALE
1356: FROM
1357: FA_RETIREMENTS A,
1358: JAI_FA_AST_BLOCK_DTLS B,
1359: JAI_FA_AST_BLOCKS C
1360: WHERE A.ASSET_ID = B.ASSET_ID
1361: AND B.ASSET_TYPE IN ( LV_CAPITALIZED , LV_EXPENSED )
1362: AND A.STATUS = LV_STATUS
1363: AND B.BLOCK_ID = P_BLOCK_ID
1431: OPENING_WDV,
1432: OPENING_WDV_ADJ,
1433: DEPN_ADJ
1434: FROM
1435: JAI_FA_AST_BLOCKS
1436: WHERE BLOCK_ID = P_BLOCK_ID
1437: AND BOOK_TYPE_CODE = P_BOOK_NAME
1438: AND START_DATE >= P_YEAR_START
1439: AND START_DATE <= P_YEAR_END;
1480: SELECT
1481: count(*)
1482: FROM
1483: FA_ADDITIONS A,
1484: JAI_FA_AST_BLOCKS B,
1485: JAI_FA_AST_PERIOD_RATES C,
1486: FA_BOOKS D,
1487: JAI_FA_AST_BLOCK_DTLS E
1488: WHERE A.OWNED_LEASED = LV_OWNED_LEASED
1513: CURSOR ASSET_COUNT_CUR1(P_BLOCK_ID IN NUMBER) IS
1514: SELECT
1515: count(*)
1516: FROM
1517: JAI_FA_AST_BLOCKS
1518: WHERE CLOSING_WDV IS not null
1519: AND YEAR_ENDED IS not null
1520: AND BLOCK_ID = P_BLOCK_ID
1521: AND BOOK_TYPE_CODE = P_BOOK_NAME
1533: COUNT(*)
1534: FROM
1535: FA_RETIREMENTS A,
1536: JAI_FA_AST_BLOCK_DTLS B,
1537: JAI_FA_AST_BLOCKS C
1538: WHERE A.DATE_RETIRED BETWEEN P_YEAR_START
1539: AND P_YEAR_END
1540: AND A.ASSET_ID = B.ASSET_ID
1541: AND B.BLOCK_ID = C.BLOCK_ID
1551: SELECT
1552: RATE,
1553: TYPE
1554: FROM
1555: JAI_FA_AST_BLOCKS
1556: WHERE START_DATE BETWEEN P_YEAR_START
1557: AND P_YEAR_END
1558: AND NVL(OPENING_WDV_ADJ
1559: ,DEPN_ADJ) IS NOT NULL
1562: SELECT
1563: JABOA.RATE,
1564: JABOA.TYPE
1565: FROM
1566: JAI_FA_AST_BLOCKS JABOA,
1567: JAI_FA_AST_BLOCK_DTLS JBA
1568: WHERE JABOA.START_DATE BETWEEN P_YEAR_START
1569: AND P_YEAR_END
1570: AND JABOA.BOOK_TYPE_CODE = P_BOOK_NAME
1577: CLOSING_WDV,
1578: RATE,
1579: START_DATE
1580: FROM
1581: JAI_FA_AST_BLOCKS
1582: WHERE RATE = P_RATE
1583: AND TYPE = P_TYPE
1584: AND START_DATE > P_YEAR_END
1585: AND BOOK_TYPE_CODE = P_BOOK_NAME;
1723: ,'2.9 v_UNPLANNED_DEPN -> ' || V_UNPLANNED_DEPN)*/NULL;
1724: IF NVL(V_COUNT2
1725: ,0) = 0 THEN
1726: UPDATE
1727: JAI_FA_AST_BLOCKS
1728: SET
1729: CLOSING_WDV = NVL(V_CLOSING_BALANCE
1730: ,0) - NVL(CLOSING.DEPN_ADJ
1731: ,0)
1731: ,0)
1732: ,YEAR_ENDED = P_YEAR_END
1733: WHERE BLOCK_ID = CLOSING.BLOCK_ID;
1734: SELECT
1735: JAI_FA_AST_BLOCKS_S.NEXTVAL
1736: INTO V_BLOCK_ID1
1737: FROM
1738: DUAL;
1739: /*SRW.MESSAGE(1012
1737: FROM
1738: DUAL;
1739: /*SRW.MESSAGE(1012
1740: ,'2.10 closing.type -> ' || CLOSING.TYPE)*/NULL;
1741: INSERT INTO JAI_FA_AST_BLOCKS
1742: (BLOCK_ID
1743: ,TYPE
1744: ,RATE
1745: ,BOOK_TYPE_CODE
1763: ,SYSDATE
1764: ,UID
1765: ,UID);
1766: /*SRW.MESSAGE(1014
1767: ,'2.11 INSERT INTO JAI_FA_AST_BLOCKS')*/NULL;
1768: INSERT INTO JAI_FA_DEP_BLOCKS
1769: (BLOCK_DEPN_ID
1770: ,BLOCK_ID
1771: ,SLNO
1799: AND SLNO = 0;
1800: /*SRW.MESSAGE(1016
1801: ,'2.12 update JAI_FA_DEP_BLOCKS ')*/NULL;
1802: UPDATE
1803: JAI_FA_AST_BLOCKS
1804: SET
1805: OPENING_WDV = NVL(V_CLOSING_BALANCE
1806: ,0) - NVL(V_UNPLANNED_DEPN
1807: ,0)
1808: WHERE START_DATE = P_YEAR_END + 1
1809: AND TYPE = CLOSING.TYPE
1810: AND BOOK_TYPE_CODE = P_BOOK_NAME;
1811: /*SRW.MESSAGE(1017
1812: ,'2.13 Update opening wdv JAI_FA_AST_BLOCKS -> ' || SQL%ROWCOUNT)*/NULL;
1813: UPDATE
1814: JAI_FA_AST_BLOCKS
1815: SET
1816: CLOSING_WDV = NVL(V_CLOSING_BALANCE
1810: AND BOOK_TYPE_CODE = P_BOOK_NAME;
1811: /*SRW.MESSAGE(1017
1812: ,'2.13 Update opening wdv JAI_FA_AST_BLOCKS -> ' || SQL%ROWCOUNT)*/NULL;
1813: UPDATE
1814: JAI_FA_AST_BLOCKS
1815: SET
1816: CLOSING_WDV = NVL(V_CLOSING_BALANCE
1817: ,0) - NVL(V_UNPLANNED_DEPN
1818: ,0)
1818: ,0)
1819: ,YEAR_ENDED = P_YEAR_END
1820: WHERE BLOCK_ID = CLOSING.BLOCK_ID;
1821: /*SRW.MESSAGE(1017
1822: ,'2.14 Update closing wdv JAI_FA_AST_BLOCKS -> ' || SQL%ROWCOUNT)*/NULL;
1823: IF CLOSING.DEPN_ADJ IS NOT NULL THEN
1824: /*SRW.MESSAGE(1018
1825: ,'2.15 IF closing.depn_adj IS NOT NULL THEN')*/NULL;
1826: UPDATE
2268: ELSE
2269: V_AMOUNT1 := 0;
2270: END IF;
2271: DECLARE
2272: CURSOR CUR_GET_VALID_ASSETS(CP_BLOCK_ID IN JAI_FA_AST_BLOCKS.BLOCK_ID%TYPE) IS
2273: SELECT
2274: '1'
2275: FROM
2276: JAI_FA_AST_BLOCK_DTLS JBA,
2274: '1'
2275: FROM
2276: JAI_FA_AST_BLOCK_DTLS JBA,
2277: FA_BOOKS FAB,
2278: JAI_FA_AST_BLOCKS JABOA
2279: WHERE JBA.ASSET_ID = FAB.ASSET_ID
2280: AND ( ( JBA.ASSET_TYPE = 'CAPITALIZED'
2281: AND FAB.CAPITALIZE_FLAG = 'YES' )
2282: OR JBA.ASSET_TYPE = 'EXPENSED' )
2292: AND JABOA.TYPE = (
2293: SELECT
2294: TYPE
2295: FROM
2296: JAI_FA_AST_BLOCKS
2297: WHERE BLOCK_ID = CP_BLOCK_ID )
2298: AND ( JABOA.START_DATE <= NVL(P_YEAR_START
2299: ,JABOA.START_DATE)
2300: OR JABOA.START_DATE BETWEEN NVL(P_YEAR_START
2300: OR JABOA.START_DATE BETWEEN NVL(P_YEAR_START
2301: ,JABOA.START_DATE)
2302: AND NVL(P_YEAR_END
2303: ,JABOA.YEAR_ENDED) );
2304: CURSOR CUR_GET_ST_OP_BAL(CP_BLOCK_ID IN JAI_FA_AST_BLOCKS.BLOCK_ID%TYPE) IS
2305: SELECT
2306: OPENING_WDV
2307: FROM
2308: JAI_FA_AST_BLOCKS JABOA
2304: CURSOR CUR_GET_ST_OP_BAL(CP_BLOCK_ID IN JAI_FA_AST_BLOCKS.BLOCK_ID%TYPE) IS
2305: SELECT
2306: OPENING_WDV
2307: FROM
2308: JAI_FA_AST_BLOCKS JABOA
2309: WHERE JABOA.BOOK_TYPE_CODE = P_BOOK_NAME
2310: AND JABOA.TYPE = (
2311: SELECT
2312: TYPE
2310: AND JABOA.TYPE = (
2311: SELECT
2312: TYPE
2313: FROM
2314: JAI_FA_AST_BLOCKS
2315: WHERE BLOCK_ID = CP_BLOCK_ID )
2316: ORDER BY
2317: START_DATE ASC;
2318: LV_EXISTS VARCHAR2(1);
2315: WHERE BLOCK_ID = CP_BLOCK_ID )
2316: ORDER BY
2317: START_DATE ASC;
2318: LV_EXISTS VARCHAR2(1);
2319: LN_OPENING_WDV JAI_FA_AST_BLOCKS.OPENING_WDV%TYPE;
2320: BEGIN
2321: OPEN CUR_GET_VALID_ASSETS(CP_BLOCK_ID => TEMP_REC.BLOCK_ID);
2322: FETCH CUR_GET_VALID_ASSETS
2323: INTO LV_EXISTS;
2346: IF V_CLOSING > 0 THEN
2347: IF NVL(V_COUNT1
2348: ,0) = 0 THEN
2349: UPDATE
2350: JAI_FA_AST_BLOCKS
2351: SET
2352: CLOSING_WDV = NVL(V_CLOSING_BALANCE
2353: ,0)
2354: ,YEAR_ENDED = P_YEAR_END
2353: ,0)
2354: ,YEAR_ENDED = P_YEAR_END
2355: WHERE BLOCK_ID = TEMP_REC.BLOCK_ID;
2356: /*SRW.MESSAGE(1275
2357: ,'5.7 After update of JAI_FA_AST_BLOCKS, cnt -> ' || SQL%ROWCOUNT)*/NULL;
2358: INSERT INTO JAI_FA_DEP_BLOCKS
2359: (BLOCK_DEPN_ID
2360: ,BLOCK_ID
2361: ,SLNO
2379: ,UID
2380: ,UID
2381: ,V_DEPN_ADJ);
2382: SELECT
2383: JAI_FA_AST_BLOCKS_S.NEXTVAL
2384: INTO V_BLOCK_ID
2385: FROM
2386: DUAL;
2387: NULL;
2384: INTO V_BLOCK_ID
2385: FROM
2386: DUAL;
2387: NULL;
2388: INSERT INTO JAI_FA_AST_BLOCKS
2389: (BLOCK_ID
2390: ,TYPE
2391: ,RATE
2392: ,OPENING_WDV
2410: ,UID
2411: ,UID);
2412: ELSE
2413: UPDATE
2414: JAI_FA_AST_BLOCKS
2415: SET
2416: CLOSING_WDV = NVL(V_CLOSING_BALANCE
2417: ,0)
2418: ,YEAR_ENDED = P_YEAR_END
2417: ,0)
2418: ,YEAR_ENDED = P_YEAR_END
2419: WHERE BLOCK_ID = TEMP_REC.BLOCK_ID;
2420: /*SRW.MESSAGE(1275
2421: ,'5.9 After update of JAI_FA_AST_BLOCKS, cnt -> ' || SQL%ROWCOUNT)*/NULL;
2422: UPDATE
2423: JAI_FA_DEP_BLOCKS
2424: SET
2425: DEPN_OF_ASSETS = NVL(V_AMOUNT1
2428: AND SLNO = 0;
2429: /*SRW.MESSAGE(1275
2430: ,'5.10 After update of JAI_FA_DEP_BLOCKS, cnt -> ' || SQL%ROWCOUNT)*/NULL;
2431: UPDATE
2432: JAI_FA_AST_BLOCKS
2433: SET
2434: OPENING_WDV = NVL(V_CLOSING_BALANCE
2435: ,0)
2436: WHERE START_DATE = P_YEAR_END + 1
2437: AND TYPE = V_TYPE
2438: AND BOOK_TYPE_CODE = P_BOOK_NAME;
2439: K := 1;
2440: /*SRW.MESSAGE(1275
2441: ,'5.11 After update of JAI_FA_AST_BLOCKS, cnt -> ' || SQL%ROWCOUNT)*/NULL;
2442: IF V_DEPN_ADJ IS NOT NULL THEN
2443: UPDATE
2444: JAI_FA_DEP_BLOCKS
2445: SET
2452: END IF;
2453: END IF;
2454: IF V_CLOSING < 0 THEN
2455: UPDATE
2456: JAI_FA_AST_BLOCKS
2457: SET
2458: CLOSING_WDV = 0
2459: ,YEAR_ENDED = P_YEAR_END
2460: ,CAPITAL_GAINS = ABS(V_CLOSING)
2459: ,YEAR_ENDED = P_YEAR_END
2460: ,CAPITAL_GAINS = ABS(V_CLOSING)
2461: WHERE BLOCK_ID = TEMP_REC.BLOCK_ID;
2462: /*SRW.MESSAGE(1275
2463: ,'6.1 After update of JAI_FA_AST_BLOCKS, cnt -> ' || SQL%ROWCOUNT)*/NULL;
2464: IF NVL(V_COUNTER
2465: ,0) = 0 THEN
2466: /*SRW.MESSAGE(1275
2467: ,'6.2 insert into JAI_FA_AST_BLOCKS, temp_rec.block_id -> ' || TEMP_REC.BLOCK_ID)*/NULL;
2463: ,'6.1 After update of JAI_FA_AST_BLOCKS, cnt -> ' || SQL%ROWCOUNT)*/NULL;
2464: IF NVL(V_COUNTER
2465: ,0) = 0 THEN
2466: /*SRW.MESSAGE(1275
2467: ,'6.2 insert into JAI_FA_AST_BLOCKS, temp_rec.block_id -> ' || TEMP_REC.BLOCK_ID)*/NULL;
2468: INSERT INTO JAI_FA_DEP_BLOCKS
2469: (BLOCK_DEPN_ID
2470: ,BLOCK_ID
2471: ,SLNO
2497: /*SRW.MESSAGE(1275
2498: ,'6.3 After update of JAI_FA_DEP_BLOCKS, cnt -> ' || SQL%ROWCOUNT)*/NULL;
2499: END IF;
2500: UPDATE
2501: JAI_FA_AST_BLOCKS
2502: SET
2503: OPENING_WDV = 0
2504: WHERE START_DATE = P_YEAR_END + 1
2505: AND BOOK_TYPE_CODE = P_BOOK_NAME
2504: WHERE START_DATE = P_YEAR_END + 1
2505: AND BOOK_TYPE_CODE = P_BOOK_NAME
2506: AND TYPE = V_TYPE;
2507: /*SRW.MESSAGE(1275
2508: ,'6.4 After update of JAI_FA_AST_BLOCKS, cnt -> ' || SQL%ROWCOUNT)*/NULL;
2509: ELSIF V_CLOSING = 0 THEN
2510: UPDATE
2511: JAI_FA_AST_BLOCKS
2512: SET
2507: /*SRW.MESSAGE(1275
2508: ,'6.4 After update of JAI_FA_AST_BLOCKS, cnt -> ' || SQL%ROWCOUNT)*/NULL;
2509: ELSIF V_CLOSING = 0 THEN
2510: UPDATE
2511: JAI_FA_AST_BLOCKS
2512: SET
2513: CLOSING_WDV = 0
2514: ,YEAR_ENDED = P_YEAR_END
2515: ,CAPITAL_GAINS = NULL
2515: ,CAPITAL_GAINS = NULL
2516: ,CAPITAL_LOSS = NULL
2517: WHERE BLOCK_ID = TEMP_REC.BLOCK_ID;
2518: /*SRW.MESSAGE(1275
2519: ,'6.5 After update of JAI_FA_AST_BLOCKS, cnt -> ' || SQL%ROWCOUNT)*/NULL;
2520: IF NVL(V_COUNTER
2521: ,0) = 0 THEN
2522: INSERT INTO JAI_FA_DEP_BLOCKS
2523: (BLOCK_DEPN_ID
2553: /*SRW.MESSAGE(1275
2554: ,'6.7 After update of JAI_FA_DEP_BLOCKS, cnt -> ' || SQL%ROWCOUNT)*/NULL;
2555: END IF;
2556: UPDATE
2557: JAI_FA_AST_BLOCKS
2558: SET
2559: OPENING_WDV = 0
2560: WHERE START_DATE = P_YEAR_END + 1
2561: AND BOOK_TYPE_CODE = P_BOOK_NAME
2560: WHERE START_DATE = P_YEAR_END + 1
2561: AND BOOK_TYPE_CODE = P_BOOK_NAME
2562: AND TYPE = V_TYPE;
2563: /*SRW.MESSAGE(1275
2564: ,'6.8 After update of JAI_FA_AST_BLOCKS, cnt -> ' || SQL%ROWCOUNT)*/NULL;
2565: END IF;
2566: IF V_CLOSING > 0 AND V_ORIGINAL_COUNT = 0 THEN
2567: UPDATE
2568: JAI_FA_AST_BLOCKS
2564: ,'6.8 After update of JAI_FA_AST_BLOCKS, cnt -> ' || SQL%ROWCOUNT)*/NULL;
2565: END IF;
2566: IF V_CLOSING > 0 AND V_ORIGINAL_COUNT = 0 THEN
2567: UPDATE
2568: JAI_FA_AST_BLOCKS
2569: SET
2570: CLOSING_WDV = 0
2571: ,YEAR_ENDED = P_YEAR_END
2572: ,CAPITAL_GAINS = NULL
2572: ,CAPITAL_GAINS = NULL
2573: ,CAPITAL_LOSS = V_CLOSING
2574: WHERE BLOCK_ID = TEMP_REC.BLOCK_ID;
2575: /*SRW.MESSAGE(1275
2576: ,'7.1 After update of JAI_FA_AST_BLOCKS, cnt -> ' || SQL%ROWCOUNT)*/NULL;
2577: UPDATE
2578: JAI_FA_DEP_BLOCKS
2579: SET
2580: DEPN_OF_ASSETS = 0
2581: WHERE BLOCK_ID = TEMP_REC.BLOCK_ID;
2582: /*SRW.MESSAGE(1275
2583: ,'7.2 After update of JAI_FA_DEP_BLOCKS, cnt -> ' || SQL%ROWCOUNT)*/NULL;
2584: UPDATE
2585: JAI_FA_AST_BLOCKS
2586: SET
2587: OPENING_WDV = 0
2588: WHERE START_DATE = P_YEAR_END + 1
2589: AND BOOK_TYPE_CODE = P_BOOK_NAME
2588: WHERE START_DATE = P_YEAR_END + 1
2589: AND BOOK_TYPE_CODE = P_BOOK_NAME
2590: AND TYPE = V_TYPE;
2591: /*SRW.MESSAGE(1275
2592: ,'7.3 After update of JAI_FA_AST_BLOCKS, cnt -> ' || SQL%ROWCOUNT)*/NULL;
2593: END IF;
2594: K := 0;
2595: C_BLOCK_ID := TEMP_REC.BLOCKID;
2596: END LOOP;
2594: K := 0;
2595: C_BLOCK_ID := TEMP_REC.BLOCKID;
2596: END LOOP;
2597: UPDATE
2598: JAI_FA_AST_BLOCKS
2599: SET
2600: OPENING_WDV_ADJ = NULL
2601: ,DEPN_ADJ = NULL
2602: WHERE START_DATE BETWEEN P_YEAR_START
2604: AND OPENING_WDV_ADJ IS NOT NULL
2605: OR DEPN_ADJ IS NOT NULL
2606: AND BOOK_TYPE_CODE = P_BOOK_NAME;
2607: /*SRW.MESSAGE(1275
2608: ,'8.1 After update of JAI_FA_AST_BLOCKS, cnt -> ' || SQL%ROWCOUNT)*/NULL;
2609: DELETE FROM JAI_FA_EXEMPTIONS;
2610: /*SRW.MESSAGE(1275
2611: ,'8.2 before commit and after delete of JAI_FA_EXEMPTIONS, cnt -> ' || SQL%ROWCOUNT)*/NULL;
2612: COMMIT;
2704: D.DATE_PLACED_IN_SERVICE,
2705: A.FIXED_ASSETS_UNITS
2706: FROM
2707: FA_MASS_ADDITIONS A,
2708: JAI_FA_AST_BLOCKS B,
2709: JAI_FA_AST_PERIOD_RATES C,
2710: FA_BOOKS D
2711: WHERE NVL(A.MASS_ADDITION_ID
2712: ,0) = NVL(D.ASSET_ID
2731: SELECT
2732: count(*)
2733: FROM
2734: FA_MASS_ADDITIONS A,
2735: JAI_FA_AST_BLOCKS B,
2736: JAI_FA_AST_PERIOD_RATES C,
2737: FA_BOOKS D
2738: WHERE NVL(A.MASS_ADDITION_ID
2739: ,0) = NVL(D.ASSET_ID
2764: A.BLOCK_ID,
2765: NVL(SUM(C.PROCEEDS_OF_SALE - C.COST_OF_REMOVAL)
2766: ,0) SALE
2767: FROM
2768: JAI_FA_AST_BLOCKS A,
2769: FA_MASS_ADDITIONS B,
2770: FA_RETIREMENTS C
2771: WHERE A.BLOCK_ID = B.ATTRIBUTE2
2772: AND A.BOOK_TYPE_CODE = P_BOOK_NAME
2783: ,0)) SALE
2784: FROM
2785: FA_RETIREMENTS A,
2786: FA_MASS_ADDITIONS B,
2787: JAI_FA_AST_BLOCKS C
2788: WHERE A.ASSET_ID = B.MASS_ADDITION_ID
2789: AND B.ATTRIBUTE2 = P_BLOCK_ID
2790: AND B.ATTRIBUTE2 = C.BLOCK_ID
2791: AND A.BOOK_TYPE_CODE = P_BOOK_NAME
2862: OPENING_WDV,
2863: OPENING_WDV_ADJ,
2864: DEPN_ADJ
2865: FROM
2866: JAI_FA_AST_BLOCKS
2867: WHERE BLOCK_ID = P_BLOCK_ID
2868: AND BOOK_TYPE_CODE = P_BOOK_NAME
2869: AND START_DATE >= P_YEAR_START
2870: AND START_DATE <= P_YEAR_END;
2910: CURSOR BLOCK_ID_CUR IS
2911: SELECT
2912: BLOCK_ID
2913: FROM
2914: JAI_FA_AST_BLOCKS
2915: WHERE BLOCK_ID NOT IN (
2916: SELECT
2917: TO_NUMBER(NVL(ATTRIBUTE2
2918: ,0))
2929: B.RATE BLOCK_RATE,
2930: B.BLOCK_ID,
2931: B.TYPE
2932: FROM
2933: JAI_FA_AST_BLOCKS B,
2934: JAI_FA_AST_PERIOD_RATES C
2935: WHERE B.START_DATE >= P_YEAR_START
2936: AND B.START_DATE <= P_YEAR_END
2937: AND C.YEAR_START >= P_YEAR_START
2941: CURSOR ASSET_COUNT_CUR1(P_BLOCK_ID IN NUMBER) IS
2942: SELECT
2943: count(*)
2944: FROM
2945: JAI_FA_AST_BLOCKS
2946: WHERE CLOSING_WDV is not null
2947: AND YEAR_ENDED is not null
2948: AND BLOCK_ID = P_BLOCK_ID
2949: AND BOOK_TYPE_CODE = P_BOOK_NAME
2961: count(*)
2962: FROM
2963: FA_RETIREMENTS A,
2964: FA_MASS_ADDITIONS B,
2965: JAI_FA_AST_BLOCKS C
2966: WHERE A.DATE_RETIRED BETWEEN P_YEAR_START
2967: AND P_YEAR_END
2968: AND A.ASSET_ID = B.MASS_ADDITION_ID
2969: AND B.ATTRIBUTE2 = C.BLOCK_ID
2979: SELECT
2980: RATE,
2981: TYPE
2982: FROM
2983: JAI_FA_AST_BLOCKS
2984: WHERE START_DATE BETWEEN P_YEAR_START
2985: AND P_YEAR_END
2986: AND NVL(OPENING_WDV_ADJ
2987: ,DEPN_ADJ) is not null
2990: SELECT
2991: RATE,
2992: TYPE
2993: FROM
2994: JAI_FA_AST_BLOCKS
2995: WHERE START_DATE BETWEEN P_YEAR_START
2996: AND P_YEAR_END
2997: AND BOOK_TYPE_CODE = P_BOOK_NAME
2998: AND CLOSING_WDV > 0
3008: CLOSING_WDV,
3009: RATE,
3010: START_DATE
3011: FROM
3012: JAI_FA_AST_BLOCKS
3013: WHERE RATE = P_RATE
3014: AND TYPE = P_TYPE
3015: AND START_DATE > P_YEAR_END
3016: AND BOOK_TYPE_CODE = P_BOOK_NAME;
3105: CLOSE UNPLANNED_DEPN_CUR;
3106: IF NVL(V_COUNT2
3107: ,0) = 0 THEN
3108: UPDATE
3109: JAI_FA_AST_BLOCKS
3110: SET
3111: CLOSING_WDV = NVL(V_CLOSING_BALANCE
3112: ,0) - NVL(CLOSING.DEPN_ADJ
3113: ,0)
3113: ,0)
3114: ,YEAR_ENDED = P_YEAR_END
3115: WHERE BLOCK_ID = CLOSING.BLOCK_ID;
3116: SELECT
3117: JAI_FA_AST_BLOCKS_S.NEXTVAL
3118: INTO V_BLOCK_ID1
3119: FROM
3120: DUAL;
3121: INSERT INTO JAI_FA_AST_BLOCKS
3117: JAI_FA_AST_BLOCKS_S.NEXTVAL
3118: INTO V_BLOCK_ID1
3119: FROM
3120: DUAL;
3121: INSERT INTO JAI_FA_AST_BLOCKS
3122: (BLOCK_ID
3123: ,TYPE
3124: ,RATE
3125: ,BOOK_TYPE_CODE
3173: DEPN_OF_ASSETS = V_DEPRECIATION
3174: WHERE BLOCK_ID = CLOSING.BLOCK_ID
3175: AND SLNO = 0;
3176: UPDATE
3177: JAI_FA_AST_BLOCKS
3178: SET
3179: OPENING_WDV = NVL(V_CLOSING_BALANCE
3180: ,0) - NVL(V_UNPLANNED_DEPN
3181: ,0)
3182: WHERE START_DATE = P_YEAR_END + 1
3183: AND TYPE = CLOSING.TYPE
3184: AND RATE = CLOSING.BLOCK_RATE;
3185: UPDATE
3186: JAI_FA_AST_BLOCKS
3187: SET
3188: CLOSING_WDV = NVL(V_CLOSING_BALANCE
3189: ,0) - NVL(V_UNPLANNED_DEPN
3190: ,0)
3546: IF V_CLOSING > 0 THEN
3547: IF NVL(V_COUNT1
3548: ,0) = 0 THEN
3549: UPDATE
3550: JAI_FA_AST_BLOCKS
3551: SET
3552: CLOSING_WDV = NVL(V_CLOSING_BALANCE
3553: ,0)
3554: ,YEAR_ENDED = P_YEAR_END
3577: ,UID
3578: ,UID
3579: ,V_DEPN_ADJ);
3580: SELECT
3581: JAI_FA_AST_BLOCKS_S.NEXTVAL
3582: INTO V_BLOCK_ID
3583: FROM
3584: DUAL;
3585: INSERT INTO JAI_FA_AST_BLOCKS
3581: JAI_FA_AST_BLOCKS_S.NEXTVAL
3582: INTO V_BLOCK_ID
3583: FROM
3584: DUAL;
3585: INSERT INTO JAI_FA_AST_BLOCKS
3586: (BLOCK_ID
3587: ,TYPE
3588: ,RATE
3589: ,OPENING_WDV
3607: ,UID
3608: ,UID);
3609: ELSE
3610: UPDATE
3611: JAI_FA_AST_BLOCKS
3612: SET
3613: CLOSING_WDV = NVL(V_CLOSING_BALANCE
3614: ,0)
3615: ,YEAR_ENDED = P_YEAR_END
3621: ,0)
3622: WHERE BLOCK_ID = TEMP_REC.BLOCK_ID
3623: AND SLNO = 0;
3624: UPDATE
3625: JAI_FA_AST_BLOCKS
3626: SET
3627: OPENING_WDV = NVL(V_CLOSING_BALANCE
3628: ,0)
3629: WHERE START_DATE = P_YEAR_END + 1
3641: END IF;
3642: END IF;
3643: IF V_CLOSING < 0 THEN
3644: UPDATE
3645: JAI_FA_AST_BLOCKS
3646: SET
3647: CLOSING_WDV = 0
3648: ,YEAR_ENDED = P_YEAR_END
3649: ,CAPITAL_GAINS = ABS(V_CLOSING)
3680: DEPN_OF_ASSETS = 0
3681: WHERE BLOCK_ID = TEMP_REC.BLOCK_ID;
3682: END IF;
3683: UPDATE
3684: JAI_FA_AST_BLOCKS
3685: SET
3686: OPENING_WDV = 0
3687: WHERE START_DATE = P_YEAR_END + 1
3688: AND RATE = V_BLOCK_RATE
3688: AND RATE = V_BLOCK_RATE
3689: AND TYPE = V_TYPE;
3690: ELSIF V_CLOSING = 0 THEN
3691: UPDATE
3692: JAI_FA_AST_BLOCKS
3693: SET
3694: CLOSING_WDV = 0
3695: ,YEAR_ENDED = P_YEAR_END
3696: ,CAPITAL_GAINS = NULL
3728: DEPN_OF_ASSETS = 0
3729: WHERE BLOCK_ID = TEMP_REC.BLOCK_ID;
3730: END IF;
3731: UPDATE
3732: JAI_FA_AST_BLOCKS
3733: SET
3734: OPENING_WDV = 0
3735: WHERE START_DATE = P_YEAR_END + 1
3736: AND RATE = V_BLOCK_RATE
3737: AND TYPE = V_TYPE;
3738: END IF;
3739: IF V_CLOSING > 0 AND V_ORIGINAL_COUNT = 0 THEN
3740: UPDATE
3741: JAI_FA_AST_BLOCKS
3742: SET
3743: CLOSING_WDV = 0
3744: ,YEAR_ENDED = P_YEAR_END
3745: ,CAPITAL_GAINS = NULL
3750: SET
3751: DEPN_OF_ASSETS = 0
3752: WHERE BLOCK_ID = TEMP_REC.BLOCK_ID;
3753: UPDATE
3754: JAI_FA_AST_BLOCKS
3755: SET
3756: OPENING_WDV = 0
3757: WHERE START_DATE = P_YEAR_END + 1
3758: AND RATE = V_BLOCK_RATE
3772: V_CLOSING_BALANCE := NVL(V_PREV_CLOSING_BALANCE
3773: ,ADJUST.OPENING_WDV) - NVL(V_DEPRECIATION
3774: ,0);
3775: UPDATE
3776: JAI_FA_AST_BLOCKS
3777: SET
3778: OPENING_WDV = NVL(V_PREV_CLOSING_BALANCE
3779: ,ADJUST.OPENING_WDV)
3780: WHERE START_DATE = ADJUST.START_DATE
3786: DEPN_OF_ASSETS = V_DEPRECIATION
3787: WHERE BLOCK_ID = ADJUST.BLOCK_ID
3788: AND SLNO = 0;
3789: UPDATE
3790: JAI_FA_AST_BLOCKS
3791: SET
3792: CLOSING_WDV = NVL(V_CLOSING_BALANCE
3793: ,0)
3794: ,YEAR_ENDED = V_YEAR_END
3811: V_CLOSING_BALANCE := NVL(V_PREV_CLOSING_BALANCE
3812: ,ADJUST.OPENING_WDV) - NVL(V_DEPRECIATION
3813: ,0);
3814: UPDATE
3815: JAI_FA_AST_BLOCKS
3816: SET
3817: OPENING_WDV = NVL(V_PREV_CLOSING_BALANCE
3818: ,ADJUST.OPENING_WDV)
3819: WHERE START_DATE = ADJUST.START_DATE
3825: DEPN_OF_ASSETS = V_DEPRECIATION
3826: WHERE BLOCK_ID = ADJUST.BLOCK_ID
3827: AND SLNO = 0;
3828: UPDATE
3829: JAI_FA_AST_BLOCKS
3830: SET
3831: CLOSING_WDV = NVL(V_CLOSING_BALANCE
3832: ,0)
3833: ,YEAR_ENDED = V_YEAR_END
3840: K := 0;
3841: C_BLOCK_ID := TEMP_REC.BLOCKID;
3842: END LOOP;
3843: UPDATE
3844: JAI_FA_AST_BLOCKS
3845: SET
3846: OPENING_WDV_ADJ = NULL
3847: ,DEPN_ADJ = NULL
3848: WHERE START_DATE BETWEEN P_YEAR_START
3891: ,'CF_9 book_name -> ' || BOOK_NAME || ', Block_id -> ' || BLOCK_ID || ', START_date -> ' || START_DATE || ', END_date -> ' || END_DATE || ', v_asset_cost -> ' || V_ASSET_COST)*/NULL;
3892: RETURN (V_ASSET_COST);
3893: END CF_9FORMULA;
3894:
3895: FUNCTION TOTALDEPRN(P_BOOK_NAME IN JAI_FA_AST_BLOCKS.BOOK_TYPE_CODE%TYPE
3896: ,P_YEAR_START IN JAI_FA_AST_YEARS.YEAR_START%TYPE
3897: ,P_YEAR_END IN JAI_FA_AST_YEARS.YEAR_END%TYPE
3898: ,P_BLOCK_ID IN JAI_FA_AST_BLOCKS.BLOCK_ID%TYPE
3899: ,P_NO_ASSETS OUT NOCOPY VARCHAR2) RETURN NUMBER IS
3894:
3895: FUNCTION TOTALDEPRN(P_BOOK_NAME IN JAI_FA_AST_BLOCKS.BOOK_TYPE_CODE%TYPE
3896: ,P_YEAR_START IN JAI_FA_AST_YEARS.YEAR_START%TYPE
3897: ,P_YEAR_END IN JAI_FA_AST_YEARS.YEAR_END%TYPE
3898: ,P_BLOCK_ID IN JAI_FA_AST_BLOCKS.BLOCK_ID%TYPE
3899: ,P_NO_ASSETS OUT NOCOPY VARCHAR2) RETURN NUMBER IS
3900: LV_CAPITALIZED JAI_FA_AST_BLOCK_DTLS.ASSET_TYPE%TYPE;
3901: LV_FLAG FA_BOOKS.CAPITALIZE_FLAG%TYPE;
3902: LV_EXPENSED JAI_FA_AST_BLOCK_DTLS.ASSET_TYPE%TYPE;
3906: '1'
3907: FROM
3908: JAI_FA_AST_BLOCK_DTLS JBA,
3909: FA_BOOKS FAB,
3910: JAI_FA_AST_BLOCKS JABOA
3911: WHERE JBA.ASSET_ID = FAB.ASSET_ID
3912: AND ( ( JBA.ASSET_TYPE = LV_CAPITALIZED
3913: AND FAB.CAPITALIZE_FLAG = LV_FLAG )
3914: OR JBA.ASSET_TYPE = LV_EXPENSED )
3924: AND JABOA.TYPE = (
3925: SELECT
3926: TYPE
3927: FROM
3928: JAI_FA_AST_BLOCKS
3929: WHERE BLOCK_ID = P_BLOCK_ID )
3930: AND ( JABOA.START_DATE <= NVL(P_YEAR_START
3931: ,JABOA.START_DATE)
3932: OR JABOA.START_DATE BETWEEN NVL(P_YEAR_START
3932: OR JABOA.START_DATE BETWEEN NVL(P_YEAR_START
3933: ,JABOA.START_DATE)
3934: AND NVL(P_YEAR_END
3935: ,JABOA.YEAR_ENDED) );
3936: CURSOR CUR_GET_ST_OP_BAL(CP_BLOCK_ID IN JAI_FA_AST_BLOCKS.BLOCK_ID%TYPE) IS
3937: SELECT
3938: OPENING_WDV
3939: FROM
3940: JAI_FA_AST_BLOCKS JABOA
3936: CURSOR CUR_GET_ST_OP_BAL(CP_BLOCK_ID IN JAI_FA_AST_BLOCKS.BLOCK_ID%TYPE) IS
3937: SELECT
3938: OPENING_WDV
3939: FROM
3940: JAI_FA_AST_BLOCKS JABOA
3941: WHERE JABOA.BOOK_TYPE_CODE = P_BOOK_NAME
3942: AND JABOA.TYPE = (
3943: SELECT
3944: TYPE
3942: AND JABOA.TYPE = (
3943: SELECT
3944: TYPE
3945: FROM
3946: JAI_FA_AST_BLOCKS
3947: WHERE BLOCK_ID = CP_BLOCK_ID )
3948: ORDER BY
3949: START_DATE ASC;
3950: LV_EXISTS VARCHAR2(1);
3947: WHERE BLOCK_ID = CP_BLOCK_ID )
3948: ORDER BY
3949: START_DATE ASC;
3950: LV_EXISTS VARCHAR2(1);
3951: LN_OPENING_WDV JAI_FA_AST_BLOCKS.OPENING_WDV%TYPE;
3952: CURSOR DEPR_CUR1 IS
3953: SELECT
3954: A.ASSET_ID,
3955: A.COST,
3956: A.TRANSACTION_HEADER_ID_IN,
3957: A.DATE_EFFECTIVE
3958: FROM
3959: FA_BOOKS A,
3960: JAI_FA_AST_BLOCKS B,
3961: JAI_FA_AST_BLOCK_DTLS C,
3962: JAI_FA_AST_PERIOD_RATES D
3963: WHERE A.ASSET_ID = C.ASSET_ID
3964: AND ( ( C.ASSET_TYPE = LV_CAPITALIZED
3984: NVL(RATE
3985: ,0) RATE,
3986: TYPE
3987: FROM
3988: JAI_FA_AST_BLOCKS
3989: WHERE BLOCK_ID = P_BLOCK_ID;
3990: CURSOR BLOCK_RET_CUR_FIR(P_BLOCK_TYPE IN VARCHAR2) IS
3991: SELECT
3992: NVL(SUM(C.PROCEEDS_OF_SALE - C.COST_OF_REMOVAL)
3991: SELECT
3992: NVL(SUM(C.PROCEEDS_OF_SALE - C.COST_OF_REMOVAL)
3993: ,0) SALE
3994: FROM
3995: JAI_FA_AST_BLOCKS A,
3996: FA_ADDITIONS B,
3997: FA_RETIREMENTS C,
3998: JAI_FA_AST_PERIOD_RATES D
3999: WHERE B.CONTEXT = P_CONTEXT_VALUE
4017: SELECT
4018: NVL(SUM(C.PROCEEDS_OF_SALE - C.COST_OF_REMOVAL)
4019: ,0) SALE
4020: FROM
4021: JAI_FA_AST_BLOCKS A,
4022: FA_ADDITIONS B,
4023: FA_RETIREMENTS C,
4024: JAI_FA_AST_PERIOD_RATES D
4025: WHERE B.CONTEXT = P_CONTEXT_VALUE
4050: SELECT
4051: NVL(OPENING_WDV
4052: ,0)
4053: FROM
4054: JAI_FA_AST_BLOCKS
4055: WHERE BLOCK_ID = P_BLOCK_ID;
4056: CURSOR ADJ_AMOUNT_CUR IS
4057: SELECT
4058: NVL(OPENING_WDV_ADJ
4057: SELECT
4058: NVL(OPENING_WDV_ADJ
4059: ,0)
4060: FROM
4061: JAI_FA_AST_BLOCKS
4062: WHERE BLOCK_ID = P_BLOCK_ID;
4063: V_COST NUMBER;
4064: V_TOTAL1 NUMBER;
4065: V_TOTAL2 NUMBER;
4071: V_SEC_DEDUCTION NUMBER;
4072: V_DEDUCTION NUMBER;
4073: V_TOTCOST NUMBER;
4074: V_OPBAL NUMBER;
4075: V_TYPE JAI_FA_AST_BLOCKS.TYPE%TYPE;
4076: V_ADJ NUMBER;
4077: LN_TOTAL_BLK_SEC_HF_COST NUMBER := 0;
4078: BEGIN
4079: /*SRW.MESSAGE(1275
4242: SELECT
4243: DISTINCT
4244: TO_CHAR(BLOCK_ID)
4245: FROM
4246: JAI_FA_AST_BLOCKS );
4247: GET_ATTR_CONTEXT_REC GET_ATTR_CONTEXT%ROWTYPE;
4248: BEGIN
4249: OPEN GET_ATTR_CONTEXT;
4250: FETCH GET_ATTR_CONTEXT
4259: SELECT
4260: DISTINCT
4261: TO_CHAR(BLOCK_ID)
4262: FROM
4263: JAI_FA_AST_BLOCKS );
4264: COMMIT;
4265: END IF;
4266: CLOSE GET_ATTR_CONTEXT;
4267: EXCEPTION
4359: END CF_8FORMULA;
4360:
4361: FUNCTION GET_TRANSACTION_HEADER_ID(P_BOOK_NAME IN FA_BOOKS.BOOK_TYPE_CODE%TYPE
4362: ,P_ASSET_ID IN FA_BOOKS.ASSET_ID%TYPE
4363: ,P_BLOCK_ID IN JAI_FA_AST_BLOCKS.BLOCK_ID%TYPE) RETURN FA_BOOKS.TRANSACTION_HEADER_ID_IN%TYPE IS
4364: CURSOR CUR_GET_ACTIVE_TRANSACTION_ID IS
4365: SELECT
4366: FAB.TRANSACTION_HEADER_ID_IN,
4367: FAB.DATE_EFFECTIVE,
4424: END GET_TRANSACTION_HEADER_ID;
4425:
4426: FUNCTION CF_CLOSING_WDV_TOTFORMULA(CF_6 IN NUMBER
4427: ,CF_2 IN NUMBER) RETURN NUMBER IS
4428: LN_CLOSING_WDV_TOTAL JAI_FA_AST_BLOCKS.CLOSING_WDV%TYPE;
4429: BEGIN
4430: IF NVL(CF_6
4431: ,0) = 0 THEN
4432: LN_CLOSING_WDV_TOTAL := 0;