1 PACKAGE BODY JL_JLCOFARR_XMLP_PKG AS
2 /* $Header: JLCOFARRB.pls 120.1 2007/12/25 16:45:01 dwkrishn noship $ */
3 PROCEDURE GET_BASE_CURR_DATA IS
4 COMPANY_NAME FA_SYSTEM_CONTROLS.COMPANY_NAME%TYPE;
5 CAT_FLEX NUMBER;
6 BEGIN
7 COMPANY_NAME := '';
8 BEGIN
9 SELECT
10 COMPANY_NAME,
11 CATEGORY_FLEX_STRUCTURE
12 INTO COMPANY_NAME,CAT_FLEX
13 FROM
14 FA_SYSTEM_CONTROLS;
15 EXCEPTION
16 WHEN OTHERS THEN
17 RAISE_ORA_ERR('JL_CO_FA_GENERAL_ERROR');
18 END;
19 C_COMPANY_NAME := COMPANY_NAME;
20 CAT_FLEX_STRUCT := CAT_FLEX;
21 BEGIN
22 SELECT
23 DISTINCT
24 C.CURRENCY_CODE
25 INTO CURRENCY_CODE
26 FROM
27 GL_SETS_OF_BOOKS C,
28 FA_BOOK_CONTROLS B,
29 FA_BOOKS A
30 WHERE A.BOOK_TYPE_CODE = P_BOOK_TYPE_CODE
31 AND A.BOOK_TYPE_CODE = B.BOOK_TYPE_CODE
32 AND B.SET_OF_BOOKS_ID = C.SET_OF_BOOKS_ID;
33 EXCEPTION
34 WHEN NO_DATA_FOUND THEN
35 RAISE_ERR('JL_AR_FA_CURR_DET_NOT_DEFINED');
36 WHEN OTHERS THEN
37 RAISE_ORA_ERR('JL_CO_FA_GENERAL_ERROR');
38 END;
39 END GET_BASE_CURR_DATA;
40
41 PROCEDURE RAISE_ERR(MSGNAME IN VARCHAR2) IS
42 ERRMSG VARCHAR2(1000);
43 BEGIN
44 FND_MESSAGE.SET_NAME('JL'
45 ,MSGNAME);
46 ERRMSG := FND_MESSAGE.GET;
47 /*SRW.MESSAGE(JL_ZZ_FA_UTILITIES_PKG.GET_APP_ERRNUM('JL'
48 ,MSGNAME)
49 ,ERRMSG)*/NULL;
50 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
51 END RAISE_ERR;
52
53 PROCEDURE RAISE_ORA_ERR(MSGNAME IN VARCHAR2) IS
54 ERRMSG VARCHAR2(1000);
55 ERRNUM NUMBER;
56 BEGIN
57 FND_MESSAGE.SET_NAME('JL'
58 ,MSGNAME);
59 ERRMSG := FND_MESSAGE.GET;
60 /*SRW.MESSAGE(JL_ZZ_FA_UTILITIES_PKG.GET_APP_ERRNUM('JL'
61 ,MSGNAME)
62 ,ERRMSG)*/NULL;
63 ERRNUM := SQLCODE;
64 ERRMSG := SQLERRM;
65 /*SRW.MESSAGE(ERRNUM
66 ,ERRMSG)*/NULL;
67 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
68 END RAISE_ORA_ERR;
69
70 FUNCTION AFTERREPORT RETURN BOOLEAN IS
71 BEGIN
72 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
73 RETURN (TRUE);
74 END AFTERREPORT;
75
76 FUNCTION F_NET_VALFORMULA(CURRENT_VALUATION IN NUMBER
77 ,PRIOR_VALUATION IN NUMBER) RETURN NUMBER IS
78 NET_VAL NUMBER;
79 BEGIN
80 NET_VAL := CURRENT_VALUATION - PRIOR_VALUATION;
81 RETURN (NET_VAL);
82 END F_NET_VALFORMULA;
83
84 FUNCTION F_APP_VALUATIONFORMULA(APPRAISAL_VALUE IN NUMBER
85 ,CURRENT_VALUATION IN NUMBER) RETURN NUMBER IS
86 APP_VAL NUMBER;
87 BEGIN
88 APP_VAL := APPRAISAL_VALUE - CURRENT_VALUATION;
89 RETURN (APP_VAL);
90 END F_APP_VALUATIONFORMULA;
91
92 FUNCTION FORMULA2FORMULA(CS_APPRAISAL_VALUE IN NUMBER) RETURN NUMBER IS
93 VALOR NUMBER;
94 BEGIN
95 VALOR := CS_APPRAISAL_VALUE;
96 RETURN (VALOR);
97 END FORMULA2FORMULA;
98
99 FUNCTION C_COMPANY_NAME_P RETURN VARCHAR2 IS
100 BEGIN
101 RETURN C_COMPANY_NAME;
102 END C_COMPANY_NAME_P;
103
104 FUNCTION C_STATUS_P RETURN VARCHAR2 IS
105 BEGIN
106 RETURN C_STATUS;
107 END C_STATUS_P;
108
109 FUNCTION C_APP_VALUATION_P RETURN NUMBER IS
110 BEGIN
111 RETURN C_APP_VALUATION;
112 END C_APP_VALUATION_P;
113
114 FUNCTION CP_NET_VALUE_P RETURN NUMBER IS
115 BEGIN
116 RETURN CP_NET_VALUE;
117 END CP_NET_VALUE_P;
118
119 FUNCTION CAT_FLEX_STRUCT_P RETURN NUMBER IS
120 BEGIN
121 RETURN CAT_FLEX_STRUCT;
122 END CAT_FLEX_STRUCT_P;
123
124 FUNCTION C_ALL_SEGS_P RETURN VARCHAR2 IS
125 BEGIN
126 RETURN C_ALL_SEGS;
127 END C_ALL_SEGS_P;
128
129 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
130 BEGIN
131 get_base_curr_data;
132 /*SRW.USER_EXIT('FND SRWINIT');
133
134
135 SRW.REFERENCE(:cat_flex_struct);
136 SRW.USER_EXIT('FND FLEXSQL CODE="CAT#"
137 NUM=":cat_flex_struct"
138 APPL_SHORT_NAME="OFA"
139 TABLEALIAS="ct"
140 OUTPUT=":c_all_segs"
141 MODE="SELECT"
142 DISPLAY="ALL"');*/
143
144 return (TRUE);
145 END;
146
147 END JL_JLCOFARR_XMLP_PKG;
148
149