[Home] [Help]
PACKAGE BODY: APPS.XTR_XTRTMAVG_XMLP_PKG
Source
1 PACKAGE BODY XTR_XTRTMAVG_XMLP_PKG AS
2 /* $Header: XTRTMAVGB.pls 120.1 2007/12/28 13:01:23 npannamp noship $ */
3 FUNCTION WAVG_RATE1FORMULA RETURN VARCHAR2 IS
4 BEGIN
5 /* EXECUTE IMMEDIATE
6 'SELECT ((:SUM_WAVG_AMT / :SUM_BALANCE) * 100) INTO :WAVG_RATE FROM DUAL';
7 COMMIT;*/
8 RETURN ('');
9 END WAVG_RATE1FORMULA;
10
11 FUNCTION WAVG_RATEFORMULA RETURN NUMBER IS
12 BEGIN
13 RETURN NULL;
14 END WAVG_RATEFORMULA;
15
16 FUNCTION AVG_AMOUNT1FORMULA RETURN VARCHAR2 IS
17 BEGIN
18 /* EXECUTE IMMEDIATE
19 'SELECT (:SUM_BALANCE / :NUM_TRANS) INTO :AVG_AMOUNT FROM DUAL';
20 COMMIT;*/
21 RETURN ('');
22 END AVG_AMOUNT1FORMULA;
23
24 FUNCTION AVG_AMOUNTFORMULA RETURN NUMBER IS
25 BEGIN
26 RETURN NULL;
27 END AVG_AMOUNTFORMULA;
28
29 FUNCTION CF_SET_PARAFORMULA RETURN VARCHAR2 IS
30 BEGIN
31 SELECT
32 SUBSTR(USER
33 ,1
34 ,10)
35 INTO
36 CP_PARA
37 FROM
38 DUAL;
39 RETURN (CP_PARA);
40 END CF_SET_PARAFORMULA;
41
42 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
43 L_DMMY_NUM NUMBER;
44 L_MESSAGE FND_NEW_MESSAGES.MESSAGE_TEXT%TYPE;
45 CURSOR GET_LANGUAGE_DESC IS
46 SELECT
47 ITEM_NAME,
48 SUBSTR(TEXT
49 ,1
50 ,100) LANG_NAME
51 FROM
52 XTR_SYS_LANGUAGES_VL
53 WHERE MODULE_NAME = 'XTRTMAVG';
54 BEGIN
55 BEGIN
56 COMPANY_NAME_HEADER := CEP_STANDARD.GET_WINDOW_SESSION_TITLE;
57 EXCEPTION
58 WHEN OTHERS THEN
59 FND_MESSAGE.SET_NAME('XTR'
60 ,'XTR_LOOKUP_ERR');
61 L_MESSAGE := FND_MESSAGE.GET;
62 RAISE_APPLICATION_ERROR(-20101
63 ,NULL);
64 END;
65 IF (P_DISPLAY_DEBUG = 'Y') THEN
66 NULL;
67 END IF;
68 FOR c IN GET_LANGUAGE_DESC LOOP
69 IF C.ITEM_NAME = 'Z1AS_AT_DATE' THEN
70 Z1AS_AT_DATE := C.LANG_NAME;
71 ELSIF C.ITEM_NAME = 'Z1PARAMETERS' THEN
72 Z1PARAMETERS := C.LANG_NAME;
73 ELSIF C.ITEM_NAME = 'Z1PRODUCT_TYPE' THEN
74 Z1PRODUCT_TYPE := C.LANG_NAME;
75 ELSIF C.ITEM_NAME = 'Z1SHOW_DETAILS' THEN
76 Z1SHOW_DETAILS := C.LANG_NAME;
77 ELSIF C.ITEM_NAME = 'Z1SUBTYPE' THEN
78 Z1SUBTYPE := C.LANG_NAME;
79 ELSIF C.ITEM_NAME = 'Z2ACCRUED_INT' THEN
80 Z2ACCRUED_INT := C.LANG_NAME;
81 ELSIF C.ITEM_NAME = 'Z2AVERAGE_BALANCE' THEN
82 Z2AVERAGE_BALANCE := C.LANG_NAME;
83 ELSIF C.ITEM_NAME = 'Z2AVERAGE_RATE' THEN
84 Z2AVERAGE_RATE := C.LANG_NAME;
85 ELSIF C.ITEM_NAME = 'Z2BALANCE' THEN
86 Z2BALANCE := C.LANG_NAME;
87 ELSIF C.ITEM_NAME = 'Z2CCY' THEN
88 Z2CCY := C.LANG_NAME;
89 ELSIF C.ITEM_NAME = 'Z2CLIENT' THEN
90 Z2CLIENT := C.LANG_NAME;
91 ELSIF C.ITEM_NAME = 'Z2DEAL_NOS' THEN
92 Z2DEAL_NOS := C.LANG_NAME;
93 ELSIF C.ITEM_NAME = 'Z2DEP_ADV' THEN
94 Z2DEP_ADV := C.LANG_NAME;
95 ELSIF C.ITEM_NAME = 'Z2END_OF_REPORT' THEN
96 Z2END_OF_REPORT := C.LANG_NAME;
97 ELSIF C.ITEM_NAME = 'Z2INT_RATE' THEN
98 Z2INT_RATE := C.LANG_NAME;
99 ELSIF C.ITEM_NAME = 'Z2NAME' THEN
100 Z2NAME := C.LANG_NAME;
101 ELSIF C.ITEM_NAME = 'Z2NOS_TRANS' THEN
102 Z2NOS_TRANS := C.LANG_NAME;
103 ELSIF C.ITEM_NAME = 'Z2PREV_ROLLOVER' THEN
104 Z2PREV_ROLLOVER := C.LANG_NAME;
105 ELSIF C.ITEM_NAME = 'Z2PRODUCT' THEN
106 Z2PRODUCT := C.LANG_NAME;
107 ELSIF C.ITEM_NAME = 'Z2P_I_AMOUNT' THEN
108 Z2P_I_AMOUNT := C.LANG_NAME;
109 ELSIF C.ITEM_NAME = 'Z2TOTAL_OUTSTANDINGS' THEN
110 Z2TOTAL_OUTSTANDINGS := C.LANG_NAME;
111 ELSIF C.ITEM_NAME = 'Z2TRANS_NOS' THEN
112 Z2TRANS_NOS := C.LANG_NAME;
113 ELSIF C.ITEM_NAME = 'Z2PAGE' THEN
114 Z2PAGE := C.LANG_NAME;
115 ELSIF C.ITEM_NAME = 'REPORT_DATE' THEN
116 REPORT_DATE := C.LANG_NAME;
117 END IF;
118 END LOOP;
119 RETURN (TRUE);
120 END BEFOREREPORT;
121
122 FUNCTION AFTERREPORT RETURN BOOLEAN IS
123 BEGIN
124 RETURN (TRUE);
125 END AFTERREPORT;
126
127 FUNCTION AFTERPFORM RETURN BOOLEAN IS
128 BEGIN
129 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
130 P_AS_OF_DATE_1 := TO_CHAR(TO_DATE(P_AS_OF_DATE
131 ,'YYYY/MM/DD HH24:MI:SS')
132 ,'DD-MON-YYYY');
133 PRODUCT_TYPE2 := P_PRODUCT_TYPE;
134 DEAL_SUBTYPE2 := P_DEPOSIT_ADVANCE;
135 AS_AT_DATE2 := P_AS_OF_DATE_1;
136 SHOW_DETAIL2 := P_SHOW_CONTRACTS;
137 SELECT
138 CP.USER_CONCURRENT_PROGRAM_NAME
139 INTO
140 REPORT_SHORT_NAME2
141 FROM
142 FND_CONCURRENT_PROGRAMS_VL CP,
143 FND_CONCURRENT_REQUESTS CR
144 WHERE CR.REQUEST_ID = P_CONC_REQUEST_ID
145 AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
146 AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
147 REPORT_SHORT_NAME2 := substr(REPORT_SHORT_NAME2,1,instr(REPORT_SHORT_NAME2,' (XML)'));
148
149 RETURN (TRUE);
150 END AFTERPFORM;
151
152 FUNCTION BEFOREPFORM RETURN BOOLEAN IS
153 BEGIN
154 RETURN (TRUE);
155 END BEFOREPFORM;
156
157 FUNCTION WAVG_RATE_P RETURN NUMBER IS
158 BEGIN
159 RETURN WAVG_RATE;
160 END WAVG_RATE_P;
161
162 FUNCTION AVG_AMOUNT_P RETURN NUMBER IS
163 BEGIN
164 RETURN AVG_AMOUNT;
165 END AVG_AMOUNT_P;
166
167 FUNCTION CP_PARA_P RETURN VARCHAR2 IS
168 BEGIN
169 RETURN CP_PARA;
170 END CP_PARA_P;
171
172 END XTR_XTRTMAVG_XMLP_PKG;
173