[Home] [Help]
PACKAGE BODY: APPS.XTR_XTRMILNS_XMLP_PKG
Source
1 PACKAGE BODY XTR_XTRMILNS_XMLP_PKG AS
2 /* $Header: XTRMILNSB.pls 120.1 2007/12/28 12:56:47 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 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
16 L_DMMY_NUM NUMBER;
17 L_MESSAGE FND_NEW_MESSAGES.MESSAGE_TEXT%TYPE;
18 CURSOR GET_LANGUAGE_DESC IS
19 SELECT
20 ITEM_NAME,
21 SUBSTR(TEXT
22 ,1
23 ,100) LANG_NAME
24 FROM
25 XTR_SYS_LANGUAGES_VL
26 WHERE MODULE_NAME = 'XTRMILNS';
27 BEGIN
28 BEGIN
29 COMPANY_NAME_HEADER := CEP_STANDARD.GET_WINDOW_SESSION_TITLE;
30 EXCEPTION
31 WHEN OTHERS THEN
32 FND_MESSAGE.SET_NAME('XTR'
33 ,'XTR_LOOKUP_ERR');
34 L_MESSAGE := FND_MESSAGE.GET;
35 RAISE_APPLICATION_ERROR(-20101
36 ,NULL);
37 END;
38 IF (P_DISPLAY_DEBUG = 'Y') THEN
39 NULL;
40 END IF;
41 FOR c IN GET_LANGUAGE_DESC LOOP
42 IF C.ITEM_NAME = 'Z1ACCT_MGR' THEN
43 Z1ACCT_MGR := C.LANG_NAME;
44 ELSIF C.ITEM_NAME = 'Z1NAME' THEN
45 Z1NAME := C.LANG_NAME;
46 ELSIF C.ITEM_NAME = 'Z1COMPANY' THEN
47 Z1COMPANY := C.LANG_NAME;
48 ELSIF C.ITEM_NAME = 'Z1ORDER_BY_PTY_MGR' THEN
49 Z1ORDER_BY_PTY_MGR := C.LANG_NAME;
50 ELSIF C.ITEM_NAME = 'Z1PARAMETERS' THEN
51 Z1PARAMETERS := C.LANG_NAME;
52 ELSIF C.ITEM_NAME = 'Z1PARTY_CODE' THEN
53 Z1PARTY_CODE := C.LANG_NAME;
54 ELSIF C.ITEM_NAME = 'Z1PRIORITY_SUM' THEN
55 Z1PRIORITY_SUM := C.LANG_NAME;
56 ELSIF C.ITEM_NAME = 'Z1VALUATION_AMOUNT' THEN
57 Z1VALUATION_AMOUNT := C.LANG_NAME;
58 ELSIF C.ITEM_NAME = 'Z1VALUATION_REVIEWS_BEFORE' THEN
59 Z1VALUATION_REVIEWS_BEFORE := C.LANG_NAME;
60 ELSIF C.ITEM_NAME = 'Z1VALUER' THEN
61 Z1VALUER := C.LANG_NAME;
62 ELSIF C.ITEM_NAME = 'Z2COMPANY' THEN
63 Z2COMPANY := C.LANG_NAME;
64 ELSIF C.ITEM_NAME = 'Z2END_OF_REPORT' THEN
65 Z2END_OF_REPORT := C.LANG_NAME;
66 ELSIF C.ITEM_NAME = 'Z2ISSUED_BY' THEN
67 Z2ISSUED_BY := C.LANG_NAME;
68 ELSIF C.ITEM_NAME = 'Z2PARTY_ACCT_MANAGER' THEN
69 Z2PARTY_ACCT_MANAGER := C.LANG_NAME;
70 ELSIF C.ITEM_NAME = 'Z2PARTY_NAME1' THEN
71 Z2PARTY_NAME1 := C.LANG_NAME;
72 ELSIF C.ITEM_NAME = 'Z2PRIORITY_SUM' THEN
73 Z2PRIORITY_SUM := C.LANG_NAME;
74 ELSIF C.ITEM_NAME = 'Z2SECURITY_DESCRIPTION' THEN
75 Z2SECURITY_DESCRIPTION := C.LANG_NAME;
76 ELSIF C.ITEM_NAME = 'Z2SECURITY_REF' THEN
77 Z2SECURITY_REF := C.LANG_NAME;
78 ELSIF C.ITEM_NAME = 'Z2SEC_VALUE' THEN
79 Z2SEC_VALUE := C.LANG_NAME;
80 ELSIF C.ITEM_NAME = 'Z2VALUE_DATE' THEN
81 Z2VALUE_DATE := C.LANG_NAME;
82 ELSIF C.ITEM_NAME = 'Z2PAGE' THEN
83 Z2PAGE := C.LANG_NAME;
84 ELSIF C.ITEM_NAME = 'REPORT_DATE' THEN
85 REPORT_DATE := C.LANG_NAME;
86 ELSIF C.ITEM_NAME = 'Z1P_FACTOR' THEN
87 Z1P_FACTOR := C.LANG_NAME;
88 END IF;
89 END LOOP;
90 RETURN (TRUE);
91 END BEFOREREPORT;
92 FUNCTION AFTERREPORT RETURN BOOLEAN IS
93 BEGIN
94 RETURN (TRUE);
95 END AFTERREPORT;
96 FUNCTION AFTERPFORM RETURN BOOLEAN IS
97 TEMP NUMBER(15) := 1000;
98 BEGIN
99 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
100 IF P_FACTOR IS NOT NULL THEN
101 SELECT
102 SUBSTRB(DESCRIPTION
103 ,1
104 ,20),
105 DECODE(SUBSTR(P_FACTOR
106 ,1
107 ,1)
108 ,'U'
109 ,1
110 ,'T'
111 ,1000
112 ,'M'
113 ,1000000
114 ,'B'
115 ,100000000)
116 INTO
117 LP_FACTOR_DESC
118 ,TEMP
119 FROM
120 FND_LOOKUPS
121 WHERE LOOKUP_TYPE = 'XTR_FACTOR'
122 AND LOOKUP_CODE = SUBSTR(P_FACTOR
123 ,1
124 ,1);
125 ELSE
126 SELECT
127 SUBSTRB(DESCRIPTION
128 ,1
129 ,20)
130 INTO
131 LP_FACTOR_DESC
132 FROM
133 FND_LOOKUPS
134 WHERE LOOKUP_TYPE = 'XTR_FACTOR'
135 AND LOOKUP_CODE = 'T';
136 TEMP := 1000;
137 END IF;
138 AMT_UNIT2 := TEMP;
139 PARTY_CODE2 := P_CPARTY;
140 VALUER2 := P_VALUER;
141 BEFORE_VALUE_DATE2 := TRUNC(P_BEFORE_DATE);
142 OVER_VALUATION2 := P_VALIDATION_AMOUNT;
143 OVER_PRIORITY_SUM2 := P_PRIORITY_TOTAL;
144 ACCOUNT_MANAGER2 := P_ACCOUNT_MANAGER;
145 SELECT
146 CP.USER_CONCURRENT_PROGRAM_NAME
147 INTO
148 REPORT_SHORT_NAME
149 FROM
150 FND_CONCURRENT_PROGRAMS_VL CP,
151 FND_CONCURRENT_REQUESTS CR
152 WHERE CR.REQUEST_ID = P_CONC_REQUEST_ID
153 AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
154 AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
155 REPORT_SHORT_NAME := substr(REPORT_SHORT_NAME,1,instr(REPORT_SHORT_NAME,' (XML)'));
156 RETURN (TRUE);
157 END AFTERPFORM;
158 FUNCTION CP_PARA_P RETURN VARCHAR2 IS
159 BEGIN
160 RETURN CP_PARA;
161 END CP_PARA_P;
162 END XTR_XTRMILNS_XMLP_PKG;
163