[Home] [Help]
PACKAGE BODY: APPS.XTR_XTRTMAOD_XMLP_PKG
Source
1 PACKAGE BODY XTR_XTRTMAOD_XMLP_PKG AS
2 /* $Header: XTRTMAODB.pls 120.1 2007/12/31 12:26:54 vjaganat noship $ */
3 FUNCTION INT_COMPONENT1FORMULA(INT_OD_RUNNING IN NUMBER
4 ,INT_OVERDUE2 IN NUMBER
5 ,INT_OVERDUE IN NUMBER) RETURN VARCHAR2 IS
6 BEGIN
7 INT_COMPONENT := 0;
8 IF (INT_OD_RUNNING - INT_OVERDUE2 - INT_OVERDUE) < 0 THEN
9 IF (INT_OD_RUNNING - INT_OVERDUE) > 0 THEN
10 INT_COMPONENT := 0;
11 ELSE
12 INT_COMPONENT := ROUND(INT_OVERDUE2
13 ,2);
14 END IF;
15 END IF;
16 RETURN ('');
17 END INT_COMPONENT1FORMULA;
18
19 FUNCTION INT_COMPONENTFORMULA RETURN NUMBER IS
20 BEGIN
21 RETURN NULL;
22 END INT_COMPONENTFORMULA;
23
24 FUNCTION BAL_COMPONENT1FORMULA(BAL_RUNNING IN NUMBER
25 ,BAL_OVERDUE2 IN NUMBER
26 ,BAL_OVERDUE IN NUMBER) RETURN VARCHAR2 IS
27 BEGIN
28 BAL_COMPONENT := 0;
29 IF (BAL_RUNNING - BAL_OVERDUE2 - BAL_OVERDUE) < 0 THEN
30 IF (BAL_RUNNING - BAL_OVERDUE) > 0 THEN
31 BAL_COMPONENT := ROUND(BAL_OVERDUE - BAL_RUNNING + BAL_OVERDUE2
32 ,2);
33 END IF;
34 IF (BAL_RUNNING - BAL_OVERDUE) = 0 THEN
35 BAL_COMPONENT := 0;
36 END IF;
37 IF (BAL_RUNNING - BAL_OVERDUE) < 0 THEN
38 BAL_COMPONENT := ROUND(BAL_OVERDUE2
39 ,2);
40 END IF;
41 ELSE
42 BAL_COMPONENT := 0;
43 END IF;
44 RETURN ('');
45 END BAL_COMPONENT1FORMULA;
46
47 FUNCTION BAL_COMPONENTFORMULA RETURN NUMBER IS
48 BEGIN
49 RETURN NULL;
50 END BAL_COMPONENTFORMULA;
51
52 FUNCTION TOT_OVERDUE1FORMULA RETURN VARCHAR2 IS
53 BEGIN
54 /* EXECUTE IMMEDIATE
55 'SELECT nvl(round(:INT_COMPONENT,2),0) + nvl(round(:BAL_COMPONENT,2),0) INTO :TOT_OVERDUE from DUAL';
56 COMMIT;*/
57 RETURN ('');
58 END TOT_OVERDUE1FORMULA;
59
60 FUNCTION TOT_OVERDUEFORMULA RETURN NUMBER IS
61 BEGIN
62 RETURN NULL;
63 END TOT_OVERDUEFORMULA;
64
65 FUNCTION CF_SET_PARAFORMULA RETURN VARCHAR2 IS
66 BEGIN
67 SELECT
68 SUBSTR(USER
69 ,1
70 ,10)
71 INTO
72 CP_PARA
73 FROM
74 DUAL;
75 RETURN (CP_PARA);
76 END CF_SET_PARAFORMULA;
77
78 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
79 L_DMMY_NUM NUMBER;
80 L_MESSAGE FND_NEW_MESSAGES.MESSAGE_TEXT%TYPE;
81 CURSOR GET_LANGUAGE_DESC IS
82 SELECT
83 ITEM_NAME,
84 SUBSTR(TEXT
85 ,1
86 ,100) LANG_NAME
87 FROM
88 XTR_SYS_LANGUAGES_VL
89 WHERE MODULE_NAME = 'XTRTMAOD';
90 BEGIN
91 BEGIN
92 COMPANY_NAME_HEADER := CEP_STANDARD.GET_WINDOW_SESSION_TITLE;
93 EXCEPTION
94 WHEN OTHERS THEN
95 FND_MESSAGE.SET_NAME('XTR'
96 ,'XTR_LOOKUP_ERR');
97 L_MESSAGE := FND_MESSAGE.GET;
98 RAISE_APPLICATION_ERROR(-20101
99 ,NULL);
100 END;
101 IF (P_DISPLAY_DEBUG = 'Y') THEN
102 NULL;
103 END IF;
104 FOR c IN GET_LANGUAGE_DESC LOOP
105 IF C.ITEM_NAME = 'Z1AS_AT_DATE' THEN
106 Z1AS_AT_DATE := C.LANG_NAME;
107 ELSIF C.ITEM_NAME = 'Z1DEAL_NUMBER' THEN
108 Z1DEAL_NUMBER := C.LANG_NAME;
109 ELSIF C.ITEM_NAME = 'Z1ORDER_BY_COLUMN' THEN
110 Z1ORDER_BY_COLUMN := C.LANG_NAME;
111 ELSIF C.ITEM_NAME = 'Z1PARAMETERS' THEN
112 Z1PARAMETERS := C.LANG_NAME;
113 ELSIF C.ITEM_NAME = 'Z1PARTY_CODE' THEN
114 Z1PARTY_CODE := C.LANG_NAME;
115 ELSIF C.ITEM_NAME = 'Z1PARTY_NAME' THEN
116 Z1PARTY_NAME := C.LANG_NAME;
117 ELSIF C.ITEM_NAME = 'Z1PRODUCT' THEN
118 Z1PRODUCT := C.LANG_NAME;
119 ELSIF C.ITEM_NAME = 'Z1SHOW_DETAILS' THEN
120 Z1SHOW_DETAILS := C.LANG_NAME;
121 ELSIF C.ITEM_NAME = 'Z2AMOUNT' THEN
122 Z2AMOUNT := C.LANG_NAME;
123 ELSIF C.ITEM_NAME = 'Z2BALANCE' THEN
124 Z2BALANCE := C.LANG_NAME;
125 ELSIF C.ITEM_NAME = 'Z2CLIENT' THEN
126 Z2CLIENT := C.LANG_NAME;
127 ELSIF C.ITEM_NAME = 'Z2CLIENT_NAME' THEN
128 Z2CLIENT_NAME := C.LANG_NAME;
129 ELSIF C.ITEM_NAME = 'Z2CODE' THEN
130 Z2CODE := C.LANG_NAME;
131 ELSIF C.ITEM_NAME = 'Z2CURRENT' THEN
132 Z2CURRENT := C.LANG_NAME;
133 ELSIF C.ITEM_NAME = 'Z2DEAL' THEN
134 Z2DEAL := C.LANG_NAME;
135 ELSIF C.ITEM_NAME = 'Z2DUE_DATE' THEN
136 Z2DUE_DATE := C.LANG_NAME;
137 ELSIF C.ITEM_NAME = 'Z2END_OF_REPORT' THEN
138 Z2END_OF_REPORT := C.LANG_NAME;
139 ELSIF C.ITEM_NAME = 'Z2INTEREST' THEN
140 Z2INTEREST := C.LANG_NAME;
141 ELSIF C.ITEM_NAME = 'Z2MOST_RECENT' THEN
142 Z2MOST_RECENT := C.LANG_NAME;
143 ELSIF C.ITEM_NAME = 'Z2NUMBER' THEN
144 Z2NUMBER := C.LANG_NAME;
145 ELSIF C.ITEM_NAME = 'Z2OVERDUE_AMOUNTS' THEN
146 Z2OVERDUE_AMOUNTS := C.LANG_NAME;
147 ELSIF C.ITEM_NAME = 'Z2OVERDUE_AMOUNTS_BY_PERIODS' THEN
148 Z2OVERDUE_AMOUNTS_BY_PERIODS := C.LANG_NAME;
149 ELSIF C.ITEM_NAME = 'Z2PRINCIPAL' THEN
150 Z2PRINCIPAL := C.LANG_NAME;
151 ELSIF C.ITEM_NAME = 'Z2PRODUCT' THEN
152 Z2PRODUCT := C.LANG_NAME;
153 ELSIF C.ITEM_NAME = 'Z2RECEIVED' THEN
154 Z2RECEIVED := C.LANG_NAME;
155 ELSIF C.ITEM_NAME = 'Z2ROLLOVER' THEN
156 Z2ROLLOVER := C.LANG_NAME;
157 ELSIF C.ITEM_NAME = 'Z2TOTAL' THEN
158 Z2TOTAL := C.LANG_NAME;
159 ELSIF C.ITEM_NAME = 'Z2TOTAL_DUE' THEN
160 Z2TOTAL_DUE := C.LANG_NAME;
161 ELSIF C.ITEM_NAME = 'Z2TYPE' THEN
162 Z2TYPE := C.LANG_NAME;
163 ELSIF C.ITEM_NAME = 'Z2PAGE' THEN
164 Z2PAGE := C.LANG_NAME;
165 ELSIF C.ITEM_NAME = 'REPORT_DATE' THEN
166 REPORT_DATE := C.LANG_NAME;
167 END IF;
168 END LOOP;
169 RETURN (TRUE);
170 END BEFOREREPORT;
171
172 FUNCTION AFTERREPORT RETURN BOOLEAN IS
173 BEGIN
174 RETURN (TRUE);
175 END AFTERREPORT;
176
177 FUNCTION AFTERPFORM RETURN BOOLEAN IS
178 BEGIN
179 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
180 P_AS_OF_DATE_1 := TO_CHAR(TO_DATE(P_AS_OF_DATE
181 ,'YYYY/MM/DD HH24:MI:SS')
182 ,'DD-MON-YYYY');
183 PRODUCT_TYPE2 := P_PRODUCT_TYPE;
184 CPARTY_CODE2 := P_CPARTY;
185 DEAL_NO2 := P_DEAL_NUMBER;
186 SHOW_DETAILS2 := P_INCLUDE_PREV_ACT;
187 AS_AT_DATE2 := P_AS_OF_DATE_1;
188 ORDER_BY_COLUMN2 := P_SORT_BY;
189 SELECT
190 MEANING
191 INTO
192 P_SHOW_DETAILS_DSP
193 FROM
194 FND_LOOKUPS
195 WHERE LOOKUP_TYPE = 'YES_NO'
196 AND LOOKUP_CODE = SHOW_DETAILS2;
197 SELECT
198 MEANING
199 INTO
200 P_SORT_BY_DSP
201 FROM
202 FND_LOOKUPS
203 WHERE LOOKUP_TYPE = 'XTR_MISC'
204 AND LOOKUP_CODE = ORDER_BY_COLUMN2;
205 SELECT
206 CP.USER_CONCURRENT_PROGRAM_NAME
207 INTO
208 REPORT_SHORT_NAME2
209 FROM
210 FND_CONCURRENT_PROGRAMS_VL CP,
211 FND_CONCURRENT_REQUESTS CR
212 WHERE CR.REQUEST_ID = P_CONC_REQUEST_ID
213 AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
214 AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
215 REPORT_SHORT_NAME2 := substr(REPORT_SHORT_NAME2,1,instr(REPORT_SHORT_NAME2,' (XML)'));
216 RETURN (TRUE);
217 END AFTERPFORM;
218
219 FUNCTION PRIN_AMT_DUEFORMULA(PI_AMOUNT_DUE IN NUMBER) RETURN NUMBER IS
220 BEGIN
221 RETURN (PI_AMOUNT_DUE - BAL_COMPONENT);
222 END PRIN_AMT_DUEFORMULA;
223
224 FUNCTION INT_COMPONENT_P RETURN NUMBER IS
225 BEGIN
226 RETURN INT_COMPONENT;
227 END INT_COMPONENT_P;
228
229 FUNCTION BAL_COMPONENT_P RETURN NUMBER IS
230 BEGIN
231 RETURN BAL_COMPONENT;
232 END BAL_COMPONENT_P;
233
234 FUNCTION TOT_OVERDUE_P RETURN NUMBER IS
235 BEGIN
236 RETURN TOT_OVERDUE;
237 END TOT_OVERDUE_P;
238
239 FUNCTION CP_PARA_P RETURN VARCHAR2 IS
240 BEGIN
241 RETURN CP_PARA;
242 END CP_PARA_P;
243
244 END XTR_XTRTMAOD_XMLP_PKG;
245