[Home] [Help]
PACKAGE BODY: APPS.XTR_XTRTMSTM_XMLP_PKG
Source
1 PACKAGE BODY XTR_XTRTMSTM_XMLP_PKG AS
2 /* $Header: XTRTMSTMB.pls 120.1 2007/12/28 13:03:41 npannamp noship $ */
3 FUNCTION STATE_DATEFORMULA RETURN DATE IS
4 BEGIN
5 RETURN (AS_AT_DATE2);
6 END STATE_DATEFORMULA;
7
8 FUNCTION REF_TYPE1FORMULA(REFERENCE varchar2) RETURN VARCHAR2 IS
9 BEGIN
10 /*EXECUTE IMMEDIATE
11 'SELECT DECODE(:REFERENCE,''INCRSE'',''Princ. Incr'',''Repayment'') INTO :REF_TYPE FROM DUAL';
12 COMMIT;*/
13 SELECT DECODE(REFERENCE,'INCRSE','Princ. Incr','Repayment') INTO REF_TYPE FROM DUAL;
14 RETURN ('');
15 END REF_TYPE1FORMULA;
16
17 FUNCTION REF_TYPEFORMULA RETURN VARCHAR2 IS
18 BEGIN
19 RETURN NULL;
20 END REF_TYPEFORMULA;
21
22 FUNCTION PRIN_DED1FORMULA(REFERENCE varchar2, ADJUST_PRINCIPAL number) RETURN VARCHAR2 IS
23 BEGIN
24 /*EXECUTE IMMEDIATE
25 'SELECT DECODE(:REFERENCE,''DEDUCTION'',:ADJUST_PRINCIPAL,0) INTO :PRIN_DED FROM DUAL';
26 COMMIT;*/
27 SELECT DECODE(REFERENCE,'DEDUCTION',ADJUST_PRINCIPAL,0) INTO PRIN_DED FROM DUAL;
28 RETURN ('');
29 END PRIN_DED1FORMULA;
30
31 FUNCTION PRIN_DEDFORMULA RETURN NUMBER IS
32 BEGIN
33 RETURN NULL;
34 END PRIN_DEDFORMULA;
35
36 FUNCTION PI_RECD1FORMULA(ADJUST_INTEREST number, ADJUST_PRIN number) RETURN VARCHAR2 IS
37 BEGIN
38 /*EXECUTE IMMEDIATE
39 'SELECT (nvl(:ADJUST_INTEREST,0) + nvl(:ADJUST_PRIN,0)) INTO :PI_RECD FROM DUAL';
40 COMMIT;*/
41 SELECT (nvl(ADJUST_INTEREST,0) + nvl(ADJUST_PRIN,0)) INTO PI_RECD FROM DUAL;
42 RETURN ('');
43 END PI_RECD1FORMULA;
44
45 FUNCTION PI_RECDFORMULA RETURN NUMBER IS
46 BEGIN
47 RETURN NULL;
48 END PI_RECDFORMULA;
49
50 FUNCTION ADJUST_PRIN1FORMULA(REFERENCE varchar2, ADJUST_PRINCIPAL number) RETURN VARCHAR2 IS
51 BEGIN
52 /*EXECUTE IMMEDIATE
53 'SELECT DECODE(:REFERENCE,''DEDUCTION'',:ADJUST_PRINCIPAL,:ADJUST_PRINCIPAL) INTO :ADJUST_PRIN FROM DUAL';
54 COMMIT;*/
55 SELECT DECODE(REFERENCE,'DEDUCTION',ADJUST_PRINCIPAL,ADJUST_PRINCIPAL) INTO ADJUST_PRIN FROM DUAL;
56 RETURN to_char(ADJUST_PRIN);
57 END ADJUST_PRIN1FORMULA;
58
59 FUNCTION ADJUST_PRINFORMULA RETURN NUMBER IS
60 BEGIN
61 RETURN NULL;
62 END ADJUST_PRINFORMULA;
63
64 FUNCTION ACTUAL_BAL1FORMULA(REFERENCE varchar2, BALANCE_CFWD number, PRIN_DECRSE number) RETURN VARCHAR2 IS
65 BEGIN
66 /*EXECUTE IMMEDIATE
67 'SELECT DECODE(:REFERENCE,''INCRSE'',:BALANCE_CFWD - NVL(:PRIN_DECRSE,0),:BALANCE_CFWD) INTO :ACTUAL_BAL FROM DUAL';
68 COMMIT;*/
69 SELECT DECODE(REFERENCE,'INCRSE',BALANCE_CFWD - NVL(PRIN_DECRSE,0),BALANCE_CFWD) INTO ACTUAL_BAL FROM DUAL;
70 RETURN to_char(ACTUAL_BAL);
71 END ACTUAL_BAL1FORMULA;
72
73 FUNCTION ACTUAL_BALFORMULA RETURN NUMBER IS
74 BEGIN
75 RETURN NULL;
76 END ACTUAL_BALFORMULA;
77
78 FUNCTION DATE_NOWFORMULA RETURN DATE IS
79 BEGIN
80 RETURN (AS_AT_DATE2);
81 END DATE_NOWFORMULA;
82
83 FUNCTION NET_DUE1FORMULA(INTEREST_DUE number, BALANCE_DUE number) RETURN VARCHAR2 IS
84 BEGIN
85 /*EXECUTE IMMEDIATE
86 'SELECT nvl(:INTEREST_DUE,0) + nvl(:BALANCE_DUE,0) INTO :NET_DUE from DUAL';
87 COMMIT;*/
88 SELECT nvl(INTEREST_DUE,0) + nvl(BALANCE_DUE,0) INTO NET_DUE from DUAL;
89 RETURN ('');
90 END NET_DUE1FORMULA;
91
92 FUNCTION NET_DUEFORMULA RETURN NUMBER IS
93 BEGIN
94 RETURN NULL;
95 END NET_DUEFORMULA;
96
97 FUNCTION BEFOREPFORM RETURN BOOLEAN IS
98 L_ERROR NUMBER;
99 BEGIN
100 AS_AT_DATE2 := TRUNC(SYSDATE);
101 RETURN (TRUE);
102 END BEFOREPFORM;
103
104 FUNCTION CF_SET_PARAFORMULA RETURN VARCHAR2 IS
105 BEGIN
106 SELECT
107 SUBSTR(USER
108 ,1
109 ,10)
110 INTO
111 CP_PARA
112 FROM
113 DUAL;
114 RETURN (CP_PARA);
115 END CF_SET_PARAFORMULA;
116
117 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
118 L_DMMY_NUM NUMBER;
119 L_MESSAGE FND_NEW_MESSAGES.MESSAGE_TEXT%TYPE;
120 CURSOR GET_LANGUAGE_DESC(P_MODULE IN VARCHAR2) IS
121 SELECT
122 ITEM_NAME,
123 SUBSTR(TEXT
124 ,1
125 ,100) LANG_NAME
126 FROM
127 XTR_SYS_LANGUAGES_VL
128 WHERE MODULE_NAME = P_MODULE;
129 BEGIN
130 BEGIN
131 COMPANY_NAME_HEADER := CEP_STANDARD.GET_WINDOW_SESSION_TITLE;
132 EXCEPTION
133 WHEN OTHERS THEN
134 FND_MESSAGE.SET_NAME('XTR'
135 ,'XTR_LOOKUP_ERR');
136 L_MESSAGE := FND_MESSAGE.GET;
137 RAISE_APPLICATION_ERROR(-20101
138 ,NULL);
139 END;
140 FOR c IN GET_LANGUAGE_DESC('XTRTMSTM') LOOP
141 IF C.ITEM_NAME = 'Z2ACTION_TYPE' THEN
142 Z2ACTION_TYPE := C.LANG_NAME;
143 ELSIF C.ITEM_NAME = 'Z2AMOUNT_NAME' THEN
144 Z2AMOUNT_NAME := C.LANG_NAME;
145 ELSIF C.ITEM_NAME = 'Z2AS_AT' THEN
146 Z2AS_AT := C.LANG_NAME;
147 ELSIF C.ITEM_NAME = 'Z2A_FEE_IS_PAYABLE' THEN
148 Z2A_FEE_IS_PAYABLE := C.LANG_NAME;
149 ELSIF C.ITEM_NAME = 'Z2BALANCE' THEN
150 Z2BALANCE := C.LANG_NAME;
151 ELSIF C.ITEM_NAME = 'Z2CUSTOMER_NO' THEN
152 Z2CUSTOMER_NO := C.LANG_NAME;
153 ELSIF C.ITEM_NAME = 'Z2DATE' THEN
154 Z2DATE := C.LANG_NAME;
155 ELSIF C.ITEM_NAME = 'Z2INITIAL_AMOUNT' THEN
156 Z2INITIAL_AMOUNT := C.LANG_NAME;
157 ELSIF C.ITEM_NAME = 'Z2INTEREST_REPAID_AS_AT' THEN
158 Z2INTEREST_REPAID_AS_AT := C.LANG_NAME;
159 ELSIF C.ITEM_NAME = 'Z2INT_SETTLED' THEN
160 Z2INT_SETTLED := C.LANG_NAME;
161 ELSIF C.ITEM_NAME = 'Z2ON_REPLACEMENTS' THEN
162 Z2ON_REPLACEMENTS := C.LANG_NAME;
163 ELSIF C.ITEM_NAME = 'Z2PLEASE_RETAIN_STATEMENT' THEN
164 Z2PLEASE_RETAIN_STATEMENT := C.LANG_NAME;
165 ELSIF C.ITEM_NAME = 'Z2PRINCIPAL' THEN
166 Z2PRINCIPAL := C.LANG_NAME;
167 ELSIF C.ITEM_NAME = 'Z2PRINCIPAL_DEDUCTIONS_AS_AT' THEN
168 Z2PRINCIPAL_DEDUCTIONS_AS_AT := C.LANG_NAME;
169 ELSIF C.ITEM_NAME = 'Z2START_DATE' THEN
170 Z2START_DATE := C.LANG_NAME;
171 ELSIF C.ITEM_NAME = 'Z2STATEMENT_OF_ACCOUNTS' THEN
172 Z2STATEMENT_OF_ACCOUNTS := C.LANG_NAME;
173 ELSIF C.ITEM_NAME = 'Z2TOTAL_SETTLED' THEN
174 Z2TOTAL_SETTLED := C.LANG_NAME;
175 ELSIF C.ITEM_NAME = 'Z2TOTAL_TO_SETTLE_AS_AT' THEN
176 Z2TOTAL_TO_SETTLE_AS_AT := C.LANG_NAME;
177 ELSIF C.ITEM_NAME = 'REPORT_DATE' THEN
178 REPORT_DATE := C.LANG_NAME;
179 ELSIF C.ITEM_NAME = 'Z_LOAN_NO' THEN
180 Z_LOAN_NO := C.LANG_NAME;
181 ELSIF C.ITEM_NAME = 'Z_DEP_NO' THEN
182 Z_DEP_NO := C.LANG_NAME;
183 ELSIF C.ITEM_NAME = 'Z_OF_YOUR' THEN
184 Z_OF_YOUR := C.LANG_NAME;
185 ELSIF C.ITEM_NAME = 'Z_LOAN_FOLLOW' THEN
186 Z_LOAN_FOLLOW := C.LANG_NAME;
187 ELSIF C.ITEM_NAME = 'Z_DEP_FOLLOW' THEN
188 Z_DEP_FOLLOW := C.LANG_NAME;
189 END IF;
190 END LOOP;
191 RETURN (TRUE);
192 END BEFOREREPORT;
193
194 FUNCTION AFTERPFORM RETURN BOOLEAN IS
195 BEGIN
196 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
197 SELECT
198 CP.USER_CONCURRENT_PROGRAM_NAME
199 INTO
200 REPORT_SHORT_NAME
201 FROM
202 FND_CONCURRENT_PROGRAMS_VL CP,
203 FND_CONCURRENT_REQUESTS CR
204 WHERE CR.REQUEST_ID = P_CONC_REQUEST_ID
205 AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
206 AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
207 /*P_TO_DATE := TO_CHAR(TO_DATE(P_TO_DATE
208 ,'YYYY/MM/DD HH24:MI:SS')
209 ,'DD-MON-YYYY');
210 P_FROM_DATE := TO_CHAR(TO_DATE(P_FROM_DATE
211 ,'YYYY/MM/DD HH24:MI:SS')
212 ,'DD-MON-YYYY');*/
213
214 LP_TO_DATE := TO_DATE(TO_CHAR(TO_DATE(P_TO_DATE,'YYYY/MM/DD HH24:MI:SS'),'DD-MON-YYYY'),'DD-MM-YYYY');
215 LP_FROM_DATE := TO_DATE(TO_CHAR(TO_DATE(P_FROM_DATE,'YYYY/MM/DD HH24:MI:SS'),'DD-MON-YYYY'),'DD-MM-YYYY');
216
217 /*AS_AT_DATE2 := NVL(TO_DATE(P_TO_DATE
218 ,'DD-MON-YYYY')
219 ,TRUNC(SYSDATE));
220 AS_AT_DATE3 := NVL(TO_DATE(P_FROM_DATE
221 ,'DD-MON-YYYY')
222 ,TRUNC(SYSDATE));*/
223 AS_AT_DATE2 := NVL(LP_TO_DATE, TRUNC(SYSDATE));
224 LAS_AT_DATE2 := ''''||TO_CHAR(AS_AT_DATE2, 'DD-MON-YYYY')||'''';
225 AS_AT_DATE3 := NVL(LP_FROM_DATE, TRUNC(SYSDATE));
226
227 --RAISE_APPLICATION_ERROR(-20501, 'Values of date : '||P_FROM_DATE||', '||P_TO_DATE);
228
229 DEAL_NO2 := P_DEAL_NUMBER;
230 CPARTY_CODE2 := P_CLIENT;
231 DEAL_SUBTYPE2 := P_DEPOSIT_ADVANCE;
232 RETURN (TRUE);
233 END AFTERPFORM;
234
235 FUNCTION AFTERREPORT RETURN BOOLEAN IS
236 BEGIN
237 RETURN (TRUE);
238 END AFTERREPORT;
239
240 FUNCTION REF_TYPE_P RETURN VARCHAR2 IS
241 BEGIN
242 RETURN REF_TYPE;
243 END REF_TYPE_P;
244
245 FUNCTION PRIN_DED_P RETURN NUMBER IS
246 BEGIN
247 RETURN PRIN_DED;
248 END PRIN_DED_P;
249
250 FUNCTION PI_RECD_P RETURN NUMBER IS
251 BEGIN
252 RETURN PI_RECD;
253 END PI_RECD_P;
254
255 FUNCTION ADJUST_PRIN_P RETURN NUMBER IS
256 BEGIN
257 RETURN ADJUST_PRIN;
258 END ADJUST_PRIN_P;
259
260 FUNCTION ACTUAL_BAL_P RETURN NUMBER IS
261 BEGIN
262 RETURN ACTUAL_BAL;
263 END ACTUAL_BAL_P;
264
265 FUNCTION NET_DUE_P RETURN NUMBER IS
266 BEGIN
267 RETURN NET_DUE;
268 END NET_DUE_P;
269
270 FUNCTION CP_PARA_P RETURN VARCHAR2 IS
271 BEGIN
272 RETURN CP_PARA;
273 END CP_PARA_P;
274
275 END XTR_XTRTMSTM_XMLP_PKG;
276
277