[Home] [Help]
PACKAGE BODY: APPS.XTR_XTRAUNCL_XMLP_PKG
Source
1 PACKAGE BODY XTR_XTRAUNCL_XMLP_PKG AS
2 /* $Header: XTRAUNCLB.pls 120.1 2007/12/28 12:41:28 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 = 'XTRAUNCL';
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 IF (P_DISPLAY_DEBUG = 'Y') THEN
40 NULL;
41 END IF;
42 FOR c IN GET_LANGUAGE_DESC LOOP
43 IF C.ITEM_NAME = 'Z1CANCELLED_BY' THEN
44 Z1CANCELLED_BY := C.LANG_NAME;
45 ELSIF C.ITEM_NAME = 'Z1CANCELLED_FROM' THEN
46 Z1CANCELLED_FROM := C.LANG_NAME;
47 ELSIF C.ITEM_NAME = 'Z1COMPANY' THEN
48 Z1COMPANY := C.LANG_NAME;
49 ELSIF C.ITEM_NAME = 'Z1DEAL_TYPE' THEN
50 Z1DEAL_TYPE := C.LANG_NAME;
51 ELSIF C.ITEM_NAME = 'Z1PARAMETERS' THEN
52 Z1PARAMETERS := C.LANG_NAME;
53 ELSIF C.ITEM_NAME = 'Z1TO' THEN
54 Z1TO := C.LANG_NAME;
55 ELSIF C.ITEM_NAME = 'Z2CANCELLED_ON' THEN
56 Z2CANCELLED_ON := C.LANG_NAME;
57 ELSIF C.ITEM_NAME = 'Z2CCY' THEN
58 Z2CCY := C.LANG_NAME;
59 ELSIF C.ITEM_NAME = 'Z2CPARTY' THEN
60 Z2CPARTY := C.LANG_NAME;
61 ELSIF C.ITEM_NAME = 'Z2CREATED_BY' THEN
62 Z2CREATED_BY := C.LANG_NAME;
63 ELSIF C.ITEM_NAME = 'Z2CREATED_ON' THEN
64 Z2CREATED_ON := C.LANG_NAME;
65 ELSIF C.ITEM_NAME = 'Z2DEAL_REF' THEN
66 Z2DEAL_REF := C.LANG_NAME;
67 ELSIF C.ITEM_NAME = 'Z2END_OF_REPORT' THEN
68 Z2END_OF_REPORT := C.LANG_NAME;
69 ELSIF C.ITEM_NAME = 'Z2PRODUCT' THEN
70 Z2PRODUCT := C.LANG_NAME;
71 ELSIF C.ITEM_NAME = 'Z2SUBTYPE' THEN
72 Z2SUBTYPE := C.LANG_NAME;
73 ELSIF C.ITEM_NAME = 'Z2TRANS_REF' THEN
74 Z2TRANS_REF := C.LANG_NAME;
75 ELSIF C.ITEM_NAME = 'Z2TYPE' THEN
76 Z2TYPE := C.LANG_NAME;
77 ELSIF C.ITEM_NAME = 'Z2PAGE' THEN
78 Z2PAGE := C.LANG_NAME;
79 ELSIF C.ITEM_NAME = 'REPORT_DATE' THEN
80 REPORT_DATE := C.LANG_NAME;
81 END IF;
82 END LOOP;
83 RETURN (TRUE);
84 END BEFOREREPORT;
85
86 FUNCTION AFTERREPORT RETURN BOOLEAN IS
87 BEGIN
88 RETURN (TRUE);
89 END AFTERREPORT;
90
91 FUNCTION AFTERPFORM RETURN BOOLEAN IS
92 CURSOR USER_DT IS
93 SELECT
94 USER_DEAL_TYPE
95 FROM
96 XTR_DEAL_TYPES
97 WHERE DEAL_TYPE = P_DEAL_TYPE;
98 BEGIN
99 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
100
101 IF P_DEAL_TYPE IS NOT NULL THEN
102 OPEN USER_DT;
103 FETCH USER_DT
104 INTO
105 P_USER_DEAL_TYPE;
106 CLOSE USER_DT;
107 END IF;
108 /*P_CANCELLED_FROM := TO_CHAR(TO_DATE(P_CANCELLED_FROM
109 ,'YYYY/MM/DD HH24:MI:SS')
110 ,'DD-MON-YYYY');
111 P_CANCELLED_TO := TO_CHAR(TO_DATE(P_CANCELLED_TO
112 ,'YYYY/MM/DD HH24:MI:SS')
113 ,'DD-MON-YYYY');*/
114 P_CANCELLED_FROM_T := TO_CHAR(TO_DATE(P_CANCELLED_FROM
115 ,'YYYY/MM/DD HH24:MI:SS')
116 ,'DD-MON-YYYY');
117 P_CANCELLED_TO_T := TO_CHAR(TO_DATE(P_CANCELLED_TO
118 ,'YYYY/MM/DD HH24:MI:SS')
119 ,'DD-MON-YYYY');
120 COMP_CODE2 := P_COMPANY;
121 CANCELLED_BY2 := P_CANCELLED_BY;
122 DEAL_TYPE2 := P_DEAL_TYPE;
123 CANCEL_FROM2 := P_CANCELLED_FROM_T;
124 CANCEL_TO2 := P_CANCELLED_TO_T;
125 SELECT
126 CP.USER_CONCURRENT_PROGRAM_NAME
127 INTO
128 REPORT_SHORT_NAME2
129 FROM
130 FND_CONCURRENT_PROGRAMS_VL CP,
131 FND_CONCURRENT_REQUESTS CR
132 WHERE CR.REQUEST_ID = P_CONC_REQUEST_ID
133 AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
134 AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
135 REPORT_SHORT_NAME2 := substr(REPORT_SHORT_NAME2,1,instr(REPORT_SHORT_NAME2,' (XML)'));
136
137 RETURN (TRUE);
138 END AFTERPFORM;
139
140 FUNCTION CP_PARA_P RETURN VARCHAR2 IS
141 BEGIN
142 RETURN CP_PARA;
143 END CP_PARA_P;
144
145 END XTR_XTRAUNCL_XMLP_PKG;
146