28:
29: FUNCTION CF_4FORMULA(BLOCK_ID IN NUMBER
30: ,TYPE IN VARCHAR2
31: ,RATE IN NUMBER) RETURN NUMBER IS
32: V_TYPE JAI_FA_AST_BLOCKS.TYPE%TYPE;
33: V_RATE NUMBER;
34: V_SALE NUMBER;
35: V_BLOCK_ID NUMBER;
36: V_BLOCK_ID1 NUMBER;
38: SELECT
39: TYPE,
40: RATE
41: FROM
42: JAI_FA_AST_BLOCKS
43: WHERE BLOCK_ID = CF_4FORMULA.BLOCK_ID
44: AND BOOK_TYPE_CODE = BOOK_NAME;
45: CURSOR BLOCK_ID_CUR_RET IS
46: SELECT
45: CURSOR BLOCK_ID_CUR_RET IS
46: SELECT
47: BLOCK_ID
48: FROM
49: JAI_FA_AST_BLOCKS
50: WHERE TYPE = CF_4FORMULA.TYPE
51: AND RATE = CF_4FORMULA.RATE
52: AND START_DATE < JA_JAINASST_XMLP_PKG.START_DATE
53: AND BOOK_TYPE_CODE = BOOK_NAME;
57: ,0) SALE
58: FROM
59: JAI_FA_AST_BLOCK_DTLS JBA,
60: FA_ADDITIONS FA,
61: JAI_FA_AST_BLOCKS JABLOA,
62: FA_RETIREMENTS FAR
63: WHERE FA.OWNED_LEASED = CP_OWNED_LEASED
64: AND FA.ASSET_ID = JBA.ASSET_ID
65: AND JBA.BLOCK_ID = JABLOA.BLOCK_ID
122: '1'
123: FROM
124: JAI_FA_AST_BLOCK_DTLS JBA,
125: FA_BOOKS FAB,
126: JAI_FA_AST_BLOCKS JABOA
127: WHERE JBA.ASSET_ID = FAB.ASSET_ID
128: AND ( ( JBA.ASSET_TYPE = LV_ASSEST_CAPITALIZED
129: AND FAB.CAPITALIZE_FLAG = LV_FLAG )
130: OR JBA.ASSET_TYPE = LV_ASSET_TYPE )
140: AND JABOA.TYPE = (
141: SELECT
142: TYPE
143: FROM
144: JAI_FA_AST_BLOCKS
145: WHERE BLOCK_ID = CF_6FORMULA.BLOCK_ID )
146: AND ( JABOA.START_DATE <= NVL(JA_JAINASST_XMLP_PKG.START_DATE
147: ,JABOA.START_DATE)
148: OR JABOA.START_DATE BETWEEN NVL(JA_JAINASST_XMLP_PKG.START_DATE
148: OR JABOA.START_DATE BETWEEN NVL(JA_JAINASST_XMLP_PKG.START_DATE
149: ,JABOA.START_DATE)
150: AND NVL(END_DATE
151: ,JABOA.YEAR_ENDED) );
152: CURSOR CUR_GET_ST_OP_BAL(CP_BLOCK_ID IN JAI_FA_AST_BLOCKS.BLOCK_ID%TYPE) IS
153: SELECT
154: OPENING_WDV
155: FROM
156: JAI_FA_AST_BLOCKS JABOA
152: CURSOR CUR_GET_ST_OP_BAL(CP_BLOCK_ID IN JAI_FA_AST_BLOCKS.BLOCK_ID%TYPE) IS
153: SELECT
154: OPENING_WDV
155: FROM
156: JAI_FA_AST_BLOCKS JABOA
157: WHERE JABOA.BOOK_TYPE_CODE = BOOK_NAME
158: AND JABOA.TYPE = (
159: SELECT
160: TYPE
158: AND JABOA.TYPE = (
159: SELECT
160: TYPE
161: FROM
162: JAI_FA_AST_BLOCKS
163: WHERE BLOCK_ID = CP_BLOCK_ID )
164: ORDER BY
165: START_DATE ASC;
166: LV_EXISTS VARCHAR2(1);
163: WHERE BLOCK_ID = CP_BLOCK_ID )
164: ORDER BY
165: START_DATE ASC;
166: LV_EXISTS VARCHAR2(1);
167: LN_OPENING_WDV JAI_FA_AST_BLOCKS.OPENING_WDV%TYPE;
168: CURSOR DEPR_CUR1 IS
169: SELECT
170: A.ASSET_ID,
171: A.COST,
172: A.TRANSACTION_HEADER_ID_IN,
173: A.DATE_EFFECTIVE
174: FROM
175: FA_BOOKS A,
176: JAI_FA_AST_BLOCKS B,
177: JAI_FA_AST_BLOCK_DTLS C,
178: JAI_FA_AST_PERIOD_RATES D
179: WHERE A.ASSET_ID = C.ASSET_ID
180: AND ( ( C.ASSET_TYPE = LV_ASSEST_CAPITALIZED
198: SELECT
199: NVL(SUM(C.PROCEEDS_OF_SALE - C.COST_OF_REMOVAL)
200: ,0) SALE
201: FROM
202: JAI_FA_AST_BLOCKS A,
203: FA_ADDITIONS B,
204: FA_RETIREMENTS C,
205: JAI_FA_AST_PERIOD_RATES D
206: WHERE B.CONTEXT = P_CONTEXT_VALUE
224: SELECT
225: NVL(SUM(C.PROCEEDS_OF_SALE - C.COST_OF_REMOVAL)
226: ,0) SALE
227: FROM
228: JAI_FA_AST_BLOCKS A,
229: FA_ADDITIONS B,
230: FA_RETIREMENTS C,
231: JAI_FA_AST_PERIOD_RATES D
232: WHERE B.CONTEXT = P_CONTEXT_VALUE
497: END CF_ADDITIONS_COSTFORMULA;
498:
499: FUNCTION CF_CLOSING_WDV_TOTALFORMULA(DEP_TOT IN NUMBER
500: ,CF_3 IN NUMBER) RETURN NUMBER IS
501: LN_CLOSING_WDV_TOTAL JAI_FA_AST_BLOCKS.CLOSING_WDV%TYPE;
502: BEGIN
503: IF NVL(DEP_TOT
504: ,0) = 0 THEN
505: LN_CLOSING_WDV_TOTAL := 0;