[Home] [Help]
PACKAGE BODY: APPS.XTR_XTRTMNEW_XMLP_PKG
Source
1 PACKAGE BODY XTR_XTRTMNEW_XMLP_PKG AS
2 /* $Header: XTRTMNEWB.pls 120.1 2007/12/28 13:02:27 npannamp noship $ */
3 FUNCTION CF_SET_PARAFORMULA RETURN VARCHAR2 IS
4 BEGIN
5 SELECT
6 SUBSTR(USER
7 ,1
8 ,10)
9 INTO
10 CP_PARA
11 FROM
12 DUAL;
13 RETURN (CP_PARA);
14 END CF_SET_PARAFORMULA;
15
16 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
17 L_DMMY_NUM NUMBER;
18 L_MESSAGE FND_NEW_MESSAGES.MESSAGE_TEXT%TYPE;
19 apf boolean;
20 CURSOR GET_LANGUAGE_DESC IS
21 SELECT
22 ITEM_NAME,
23 SUBSTR(TEXT
24 ,1
25 ,100) LANG_NAME
26 FROM
27 XTR_SYS_LANGUAGES_VL
28 WHERE MODULE_NAME = 'XTRTMNEW';
29 BEGIN
30 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
31 apf := AFTERPFORM;
32 CP_NEW_DEALS_FROM := to_char(P_NEW_DEALS_FROM,'DD-MON-YY');
33 CP_NEW_DEALS_TO := to_char(P_NEW_DEALS_TO,'DD-MON-YY');
34 CP_DEALS_REPAID_FROM := to_char(P_DEALS_REPAID_FROM,'DD-MON-YY');
35 BEGIN
36 COMPANY_NAME_HEADER := CEP_STANDARD.GET_WINDOW_SESSION_TITLE;
37 EXCEPTION
38 WHEN OTHERS THEN
39 FND_MESSAGE.SET_NAME('XTR'
40 ,'XTR_LOOKUP_ERR');
41 L_MESSAGE := FND_MESSAGE.GET;
42 RAISE_APPLICATION_ERROR(-20101
43 ,NULL);
44 END;
45 IF (P_DISPLAY_DEBUG = 'Y') THEN
46 NULL;
47 END IF;
48 FOR c IN GET_LANGUAGE_DESC LOOP
49 IF C.ITEM_NAME = 'Z1NEW_DEALS_FROM' THEN
50 Z1NEW_DEALS_FROM1 := C.LANG_NAME;
51 ELSIF C.ITEM_NAME = 'Z1NEW_SETTLED_BOTH' THEN
52 Z1NEW_SETTLED_BOTH := C.LANG_NAME;
53 ELSIF C.ITEM_NAME = 'Z1ORDER_BY' THEN
54 Z1ORDER_BY := C.LANG_NAME;
55 ELSIF C.ITEM_NAME = 'Z1PARAMETERS' THEN
56 Z1PARAMETERS := C.LANG_NAME;
57 ELSIF C.ITEM_NAME = 'Z1SETTLED_DEALS_FROM' THEN
58 Z1SETTLED_DEALS_FROM := C.LANG_NAME;
59 ELSIF C.ITEM_NAME = 'Z1TO' THEN
60 Z1TO := C.LANG_NAME;
61 ELSIF C.ITEM_NAME = 'Z2CCY' THEN
62 Z2CCY := C.LANG_NAME;
63 ELSIF C.ITEM_NAME = 'Z2CLIENT' THEN
64 Z2CLIENT := C.LANG_NAME;
65 ELSIF C.ITEM_NAME = 'Z2DEAL_NO' THEN
66 Z2DEAL_NO := C.LANG_NAME;
67 ELSIF C.ITEM_NAME = 'Z2END_OF_REPORT' THEN
68 Z2END_OF_REPORT := C.LANG_NAME;
69 ELSIF C.ITEM_NAME = 'Z2FACE_VALUE' THEN
70 Z2FACE_VALUE := C.LANG_NAME;
71 ELSIF C.ITEM_NAME = 'Z2INTEREST_RATE' THEN
72 Z2INTEREST_RATE := C.LANG_NAME;
73 ELSIF C.ITEM_NAME = 'Z2MATURITY_DATE' THEN
74 Z2MATURITY_DATE := C.LANG_NAME;
75 ELSIF C.ITEM_NAME = 'Z2NAME' THEN
76 Z2NAME := C.LANG_NAME;
77 ELSIF C.ITEM_NAME = 'Z2NEW_TRANSACTIONS' THEN
78 Z2NEW_TRANSACTIONS := C.LANG_NAME;
79 ELSIF C.ITEM_NAME = 'Z2PAYMENT_FREQUENCY' THEN
80 Z2PAYMENT_FREQUENCY := C.LANG_NAME;
81 ELSIF C.ITEM_NAME = 'Z2PRODUCT' THEN
82 Z2PRODUCT := C.LANG_NAME;
83 ELSIF C.ITEM_NAME = 'Z2PRODUCT_TYPE' THEN
84 Z2PRODUCT_TYPE := C.LANG_NAME;
85 ELSIF C.ITEM_NAME = 'Z2P_I_AMOUNT' THEN
86 Z2P_I_AMOUNT := C.LANG_NAME;
87 ELSIF C.ITEM_NAME = 'Z2SETTLED_TRANSACTIONS' THEN
88 Z2SETTLED_TRANSACTIONS := C.LANG_NAME;
89 ELSIF C.ITEM_NAME = 'Z2SETTLE_DATE' THEN
90 Z2SETTLE_DATE := C.LANG_NAME;
91 ELSIF C.ITEM_NAME = 'Z2START_DATE' THEN
92 Z2START_DATE := C.LANG_NAME;
93 ELSIF C.ITEM_NAME = 'Z2PAGE' THEN
94 Z2PAGE := C.LANG_NAME;
95 ELSIF C.ITEM_NAME = 'REPORT_DATE' THEN
96 REPORT_DATE := C.LANG_NAME;
97 END IF;
98 END LOOP;
99 RETURN (TRUE);
100 END BEFOREREPORT;
101
102 FUNCTION AFTERREPORT RETURN BOOLEAN IS
103 BEGIN
104 RETURN (TRUE);
105 END AFTERREPORT;
106
107 FUNCTION AFTERPFORM RETURN BOOLEAN IS
108 BEGIN
109 IF P_NEW_DEALS_FROM IS NOT NULL THEN
110 IF P_NEW_DEALS_TO IS NOT NULL THEN
111 LP_START_DATE_Q1 := 'AND d.start_date between ''' || P_NEW_DEALS_FROM || ''' and ''' || P_NEW_DEALS_TO || '''';
112 ELSE
113 LP_START_DATE_Q1 := 'AND d.start_date > ''' || P_NEW_DEALS_FROM || '''';
114 END IF;
115 ELSE
116 IF P_NEW_DEALS_TO IS NOT NULL THEN
117 LP_START_DATE_Q1 := 'AND d.start_date < ''' || P_NEW_DEALS_TO || '''';
118 END IF;
119 END IF;
120 IF P_DEALS_REPAID_FROM IS NOT NULL THEN
121 IF P_DEALS_REPAID_TO IS NOT NULL THEN
122 LP_SETTLED_DATE_Q2 := 'AND r.settle_date between ''' || P_DEALS_REPAID_FROM || ''' and ''' || P_DEALS_REPAID_TO || '''';
123 ELSE
124 LP_SETTLED_DATE_Q2 := 'AND r.settle_date > ''' || P_DEALS_REPAID_FROM || '''';
125 END IF;
126 ELSE
127 IF P_DEALS_REPAID_TO IS NOT NULL THEN
128 LP_SETTLED_DATE_Q2 := 'AND r.settle_date < ''' || P_DEALS_REPAID_TO || '''';
129 END IF;
130 END IF;
131
132 if LP_SETTLED_DATE_Q2 is null then
133 LP_SETTLED_DATE_Q2 := 'and 1 = 1 ';
134 end if;
135
136 if LP_START_DATE_Q1 is null then
137 LP_START_DATE_Q1 := 'and 1 = 1 ';
138 end if;
139
140 SELECT
141 substr(CP.USER_CONCURRENT_PROGRAM_NAME,1,instr(CP.USER_CONCURRENT_PROGRAM_NAME,' (XML)'))
142 INTO
143 REPORT_SHORT_NAME
144 FROM
145 FND_CONCURRENT_PROGRAMS_VL CP,
146 FND_CONCURRENT_REQUESTS CR
147 WHERE CR.REQUEST_ID = P_CONC_REQUEST_ID
148 AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
149 AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
150 IF FALSE THEN
151 NULL;
152 END IF;
153 RETURN (TRUE);
154 END AFTERPFORM;
155
156 FUNCTION CP_PARA_P RETURN VARCHAR2 IS
157 BEGIN
158 RETURN CP_PARA;
159 END CP_PARA_P;
160
161 END XTR_XTRTMNEW_XMLP_PKG;
162