[Home] [Help]
PACKAGE BODY: APPS.XTR_XTRTMBLT_XMLP_PKG
Source
1 PACKAGE BODY XTR_XTRTMBLT_XMLP_PKG AS
2 /* $Header: XTRTMBLTB.pls 120.1 2007/12/28 13:01:56 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 CURSOR GET_LANGUAGE_DESC IS
20 SELECT
21 ITEM_NAME,
22 SUBSTR(TEXT
23 ,1
24 ,100) LANG_NAME
25 FROM
26 XTR_SYS_LANGUAGES_VL
27 WHERE MODULE_NAME = 'XTRTMBLT';
28 BEGIN
29 BEGIN
30 COMPANY_NAME_HEADER := CEP_STANDARD.GET_WINDOW_SESSION_TITLE;
31 EXCEPTION
32 WHEN OTHERS THEN
33 FND_MESSAGE.SET_NAME('XTR'
34 ,'XTR_LOOKUP_ERR');
35 L_MESSAGE := FND_MESSAGE.GET;
36 RAISE_APPLICATION_ERROR(-20101
37 ,NULL);
38 END;
39 FOR c IN GET_LANGUAGE_DESC LOOP
40 IF C.ITEM_NAME = 'Z1ACCT_MGR' THEN
41 Z1ACCT_MGR := C.LANG_NAME;
42 ELSIF C.ITEM_NAME = 'Z1AS_AT' THEN
43 Z1AS_AT := C.LANG_NAME;
44 ELSIF C.ITEM_NAME = 'Z1BALANCES_FROM' THEN
45 Z1BALANCES_FROM := C.LANG_NAME;
46 ELSIF C.ITEM_NAME = 'Z1COMPANY' THEN
47 Z1COMPANY := C.LANG_NAME;
48 ELSIF C.ITEM_NAME = 'Z1DEAL_SUBTYPE' THEN
49 Z1DEAL_SUBTYPE := C.LANG_NAME;
50 ELSIF C.ITEM_NAME = 'Z1NAME' THEN
51 Z1NAME := C.LANG_NAME;
52 ELSIF C.ITEM_NAME = 'Z1OVERDUES_ONLY' THEN
53 Z1OVERDUES_ONLY := C.LANG_NAME;
54 ELSIF C.ITEM_NAME = 'Z1PARAMETERS' THEN
55 Z1PARAMETERS := C.LANG_NAME;
56 ELSIF C.ITEM_NAME = 'Z1PARTY_CODE' THEN
57 Z1PARTY_CODE := C.LANG_NAME;
58 ELSIF C.ITEM_NAME = 'Z1PRODUCT' THEN
59 Z1PRODUCT := C.LANG_NAME;
60 ELSIF C.ITEM_NAME = 'Z2ACCRUED' THEN
61 Z2ACCRUED := C.LANG_NAME;
62 ELSIF C.ITEM_NAME = 'Z2CCY' THEN
63 Z2CCY := C.LANG_NAME;
64 ELSIF C.ITEM_NAME = 'Z2CODE' THEN
65 Z2CODE := C.LANG_NAME;
66 ELSIF C.ITEM_NAME = 'Z2COMMENCE' THEN
67 Z2COMMENCE := C.LANG_NAME;
68 ELSIF C.ITEM_NAME = 'Z2CPARTY' THEN
69 Z2CPARTY := C.LANG_NAME;
70 ELSIF C.ITEM_NAME = 'Z2END_OF_REPORT' THEN
71 Z2END_OF_REPORT := C.LANG_NAME;
72 ELSIF C.ITEM_NAME = 'Z2INTEREST' THEN
73 Z2INTEREST := C.LANG_NAME;
74 ELSIF C.ITEM_NAME = 'Z2MATURITY' THEN
75 Z2MATURITY := C.LANG_NAME;
76 ELSIF C.ITEM_NAME = 'Z2NUMBER' THEN
77 Z2NUMBER := C.LANG_NAME;
78 ELSIF C.ITEM_NAME = 'Z2PRINCIPAL_BALANCE' THEN
79 Z2PRINCIPAL_BALANCE := C.LANG_NAME;
80 ELSIF C.ITEM_NAME = 'Z2RECENT_ROLLOVER' THEN
81 Z2RECENT_ROLLOVER := C.LANG_NAME;
82 ELSIF C.ITEM_NAME = 'Z2REF' THEN
83 Z2REF := C.LANG_NAME;
84 ELSIF C.ITEM_NAME = 'Z2TOTALS' THEN
85 Z2TOTALS := C.LANG_NAME;
86 ELSIF C.ITEM_NAME = 'Z2PAGE' THEN
87 Z2PAGE := C.LANG_NAME;
88 ELSIF C.ITEM_NAME = 'REPORT_DATE' THEN
89 REPORT_DATE := C.LANG_NAME;
90 END IF;
91 END LOOP;
92 RETURN (TRUE);
93 END BEFOREREPORT;
94
95 FUNCTION AFTERREPORT RETURN BOOLEAN IS
96 BEGIN
97 RETURN (TRUE);
98 END AFTERREPORT;
99
100 FUNCTION AFTERPFORM RETURN BOOLEAN IS
101 a date;
102 BEGIN
103 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
104
105 SELECT
106 CP.USER_CONCURRENT_PROGRAM_NAME
107 INTO
108 REPORT_SHORT_NAME
109 FROM
110 FND_CONCURRENT_PROGRAMS_VL CP,
111 FND_CONCURRENT_REQUESTS CR
112 WHERE CR.REQUEST_ID = P_CONC_REQUEST_ID
113 AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
114 AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
115 REPORT_SHORT_NAME := SUBSTR(REPORT_SHORT_NAME,1,INSTR(REPORT_SHORT_NAME,' (XML)'));
116 if p_as_of_date is not null then
117 a := to_date(substr(p_as_of_date, 1, 10), 'YYYY/MM/DD');
118 else
119 a := trunc(sysdate);
120 end if;
121 lp_as_of_date := nvl(to_char(to_date(p_as_of_date,'YYYY/MM/DD HH24:MI:SS'),'DD-MON-YYYY'),trunc(sysdate));
122 /*las_at_date2 := to_date(lp_as_of_date,'YYYY/MM/DD HH24:MI:SS'); --Bug 3312910*/
123 as_at_date2 := a;
124 --as_at_date2 := to_date(a,'YYYY/MM/DD HH24:MI:SS');
125
126
127 COMPANY2 := P_COMPANY;
128 CPARTY_CODE2 := P_CPARTY;
129 CPARTY_NAME2 := P_CPARTY_NAME;
130 PRODUCT_TYPE2 := P_PRODUCT_TYPE;
131 BALANCES_FROM2 := P_BALANCES_FROM;
132 ACCOUNT_MANAGER2 := P_ACCOUNT_MANAGER;
133 OVERDUE_ONLY2 := P_OVERDUE_AMOUNTS_ONLY;
134 RETURN (TRUE);
135 END AFTERPFORM;
136
137 FUNCTION BEFOREPFORM RETURN BOOLEAN IS
138 BEGIN
139 RETURN (TRUE);
140 END BEFOREPFORM;
141
142 FUNCTION CP_PARA_P RETURN VARCHAR2 IS
143 BEGIN
144 RETURN CP_PARA;
145 END CP_PARA_P;
146
147 END XTR_XTRTMBLT_XMLP_PKG;
148