1 PACKAGE BODY GMF_CMR11USR_XMLP_PKG AS
2 /* $Header: CMR11USRB.pls 120.0 2007/12/24 13:23:20 nchinnam noship $ */
3 FUNCTION ALLOCATIONCFFORMULA RETURN VARCHAR2 IS
4 BEGIN
5 /*SRW.REFERENCE(ALLOCATIONCP)*/NULL;
6 IF FROM_ALLOC_CODE1 IS NOT NULL AND TO_ALLOC_CODE1 IS NOT NULL THEN
7 ALLOCATIONCP := ' and m.alloc_code >= ''' || FROM_ALLOC_CODE1 || ''' and m.alloc_code <= ''' || TO_ALLOC_CODE1 || '''';
8 ELSIF FROM_ALLOC_CODE1 IS NULL AND TO_ALLOC_CODE1 IS NULL THEN
9 ALLOCATIONCP := NULL;
10 FROM_ALLOC_CODE1 := SY_ALL;
11 TO_ALLOC_CODE1 := SY_ALL;
12 ELSIF FROM_ALLOC_CODE1 IS NOT NULL AND TO_ALLOC_CODE1 IS NULL THEN
13 ALLOCATIONCP := ' and m.alloc_code >= ''' || FROM_ALLOC_CODE1 || '''';
14 TO_ALLOC_CODE1 := SY_ALL;
15 ELSIF FROM_ALLOC_CODE1 IS NULL AND TO_ALLOC_CODE1 IS NOT NULL THEN
16 ALLOCATIONCP := ' and m.alloc_code <= ''' || TO_ALLOC_CODE1 || '''';
17 FROM_ALLOC_CODE1 := SY_ALL;
18 END IF;
19 IF (AllocationCP IS NULL) THEN
20 AllocationCP := ' ';
21 END IF;
22 RETURN NULL;
23 END ALLOCATIONCFFORMULA;
24
25 FUNCTION ALLOCATIONCPFORMULA(ALLOCATIONCF IN VARCHAR2) RETURN VARCHAR2 IS
26 BEGIN
27 /*SRW.REFERENCE(ALLOCATIONCF)*/NULL;
28 RETURN NULL;
29 END ALLOCATIONCPFORMULA;
30
31 FUNCTION AFTERPFORM RETURN BOOLEAN IS
32 BEGIN
33 IF FROM_ALLOC_CODE1 > TO_ALLOC_CODE1 THEN
34 /*SRW.MESSAGE(100
35 ,'CM_FROM_ALLOC_LTE_TO_ALLOC_CODE')*/NULL;
36 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
37 END IF;
38 RETURN (TRUE);
39 END AFTERPFORM;
40
41 FUNCTION BAS_CURRCFFORMULA (LEGAL_ENTITY_ID1 IN NUMBER) RETURN VARCHAR2 IS
42 BCURR VARCHAR2(15);
43 BEGIN
44 BEGIN
45 SELECT
46 '(' || BASE_CURRENCY_CODE || ')'
47 INTO BCURR
48 FROM
49 GMF_FISCAL_POLICIES
50 WHERE LEGAL_ENTITY_ID = LEGAL_ENTITY_ID1;
51 EXCEPTION
52 WHEN OTHERS THEN
53 BCURR := NULL;
54 END;
55 RETURN (BCURR);
56 END BAS_CURRCFFORMULA;
57
58 PROCEDURE GMF_CMR11USR_XMLP_PKG_HEADER IS
59 BEGIN
60 NULL;
61 END GMF_CMR11USR_XMLP_PKG_HEADER;
62
63 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
64 BEGIN
65 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
66 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
67 FROM_ALLOC_CODE1 := FROM_ALLOC_CODE;
68 TO_ALLOC_CODE1 := TO_ALLOC_CODE;
69 LEGAL_ENTITY_ID1 := LEGAL_ENTITY_ID;
70 PERIOD_CODE1 := PERIOD_CODE;
71 RETURN (TRUE);
72 END BEFOREREPORT;
73
74 FUNCTION CF_LEGAL_ENTITYFORMULA RETURN CHAR IS
75 P_LEGAL_ENTITY_NAME VARCHAR2(240);
76 BEGIN
77 IF (LEGAL_ENTITY_ID1 IS NOT NULL) THEN
78 P_LEGAL_ENTITY_NAME := GMF_UTILITIES_GRP.GET_LEGAL_ENTITY(LEGAL_ENTITY_ID1);
79 IF P_LEGAL_ENTITY_NAME IS NOT NULL THEN
80 RETURN (P_LEGAL_ENTITY_NAME);
81 END IF;
82 END IF;
83 END CF_LEGAL_ENTITYFORMULA;
84
85 FUNCTION ACCOUNT_CODEFORMULA(ACCOUNT_ID IN NUMBER) RETURN CHAR IS
86 BEGIN
87 IF ACCOUNT_ID IS NOT NULL THEN
88 RETURN (GMF_UTILITIES_GRP.GET_ACCOUNT_CODE(NVL(ACCOUNT_ID
89 ,-1)
90 ,LEGAL_ENTITY_ID1));
91 ELSE
92 RETURN (NULL);
93 END IF;
94 END ACCOUNT_CODEFORMULA;
95
96 FUNCTION ACCOUNT_DESCFORMULA(ACCOUNT_ID IN NUMBER) RETURN CHAR IS
97 BEGIN
98 IF ACCOUNT_ID IS NOT NULL THEN
99 RETURN (GMF_UTILITIES_GRP.GET_ACCOUNT_DESC(NVL(ACCOUNT_ID
100 ,-1)
101 ,LEGAL_ENTITY_ID1
102 ,'I'));
103 ELSE
104 RETURN (NULL);
105 END IF;
106 END ACCOUNT_DESCFORMULA;
107
108 FUNCTION CALENDAR_DESCFORMULA RETURN CHAR IS
109 L_CALENDAR_DESC VARCHAR2(240);
110 BEGIN
111 BEGIN
112 SELECT
113 CALENDAR_DESC
114 INTO L_CALENDAR_DESC
115 FROM
116 CM_CLDR_HDR
117 WHERE CALENDAR_CODE = COST_CALENDAR;
118 EXCEPTION
119 WHEN OTHERS THEN
120 L_CALENDAR_DESC := NULL;
121 END;
122 RETURN (L_CALENDAR_DESC);
123 END CALENDAR_DESCFORMULA;
124
125 FUNCTION PERIOD_DESCFORMULA (PERIOD_CODE1 IN VARCHAR2) RETURN CHAR IS
126 L_PERIOD_DESC VARCHAR2(240);
127 BEGIN
128 BEGIN
129 SELECT
130 PERIOD_DESC
131 INTO L_PERIOD_DESC
132 FROM
133 CM_CLDR_DTL
134 WHERE
135 PERIOD_CODE = PERIOD_CODE1
136 --PERIOD_CODE = PERIOD_CODE
137 AND CALENDAR_CODE = COST_CALENDAR;
138 EXCEPTION
139 WHEN OTHERS THEN
140 L_PERIOD_DESC := NULL;
141 END;
142 RETURN (L_PERIOD_DESC);
143 END PERIOD_DESCFORMULA;
144
145 FUNCTION ACCOUNT_CODE1FORMULA(ACCOUNT_ID1 IN NUMBER) RETURN CHAR IS
146 BEGIN
147 IF ACCOUNT_ID1 IS NOT NULL THEN
148 RETURN (GMF_UTILITIES_GRP.GET_ACCOUNT_CODE(NVL(ACCOUNT_ID1
149 ,-1)
150 ,LEGAL_ENTITY_ID1));
151 ELSE
152 RETURN (NULL);
153 END IF;
154 END ACCOUNT_CODE1FORMULA;
155
156 FUNCTION ACCOUNT_DESC1FORMULA(ACCOUNT_ID1 IN NUMBER) RETURN CHAR IS
157 BEGIN
158 IF ACCOUNT_ID1 IS NOT NULL THEN
159 RETURN (GMF_UTILITIES_GRP.GET_ACCOUNT_DESC(NVL(ACCOUNT_ID1
160 ,-1)
161 ,LEGAL_ENTITY_ID1
162 ,'I'));
163 ELSE
164 RETURN (NULL);
165 END IF;
166 END ACCOUNT_DESC1FORMULA;
167
168 FUNCTION AFTERREPORT RETURN BOOLEAN IS
169 BEGIN
170 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
171 RETURN (TRUE);
172 END AFTERREPORT;
173
174 FUNCTION ALLOCATIONCP_P RETURN VARCHAR2 IS
175 BEGIN
176 RETURN ALLOCATIONCP;
177 END ALLOCATIONCP_P;
178
179 END GMF_CMR11USR_XMLP_PKG;
180