1 PACKAGE BODY QP_QPXPACRL_XMLP_PKG AS
2 /* $Header: QPXPACRLB.pls 120.1 2010/11/03 15:47:55 smuhamme ship $ */
3 FUNCTION CF_PARENT_NUMBERFORMULA(PARENT_LIST_HEADER_ID IN NUMBER) RETURN CHAR IS
4 X_PARENT_NUMBER VARCHAR2(240);
5 CURSOR CUR_PARENT_NUM IS
6 SELECT
7 NAME
8 FROM
9 QP_LIST_HEADERS_VL
10 WHERE LIST_HEADER_ID = PARENT_LIST_HEADER_ID;
11 BEGIN
12 OPEN CUR_PARENT_NUM;
13 FETCH CUR_PARENT_NUM
14 INTO X_PARENT_NUMBER;
15 CLOSE CUR_PARENT_NUM;
16 RETURN (X_PARENT_NUMBER);
17 END CF_PARENT_NUMBERFORMULA;
18
19 FUNCTION CF_PARENT_VERSIONFORMULA(PARENT_LIST_HEADER_ID IN NUMBER) RETURN CHAR IS
20 X_PARENT_VERSION VARCHAR2(30);
21 CURSOR CUR_VERSION IS
22 SELECT
23 VERSION_NO
24 FROM
25 QP_LIST_HEADERS_VL
26 WHERE LIST_HEADER_ID = PARENT_LIST_HEADER_ID;
27 BEGIN
28 OPEN CUR_VERSION;
29 FETCH CUR_VERSION
30 INTO X_PARENT_VERSION;
31 CLOSE CUR_VERSION;
32 RETURN (X_PARENT_VERSION);
33 END CF_PARENT_VERSIONFORMULA;
34
35 FUNCTION CF_LIST_TYPE_CODEFORMULA(LIST_TYPE_CODE IN VARCHAR2) RETURN CHAR IS
36 X_LINE_TYPE VARCHAR2(80);
37 CURSOR CUR_LINE_TYPE IS
38 SELECT
39 MEANING
40 FROM
41 QP_LOOKUPS
42 WHERE LOOKUP_TYPE = 'LIST_TYPE_CODE'
43 AND LOOKUP_CODE = LIST_TYPE_CODE;
44 BEGIN
45 OPEN CUR_LINE_TYPE;
46 FETCH CUR_LINE_TYPE
47 INTO X_LINE_TYPE;
48 CLOSE CUR_LINE_TYPE;
49 RETURN (X_LINE_TYPE);
50 END CF_LIST_TYPE_CODEFORMULA;
51
52 FUNCTION CF_MODIFIER_LEVELFORMULA(MODIFIER_LEVEL_CODE IN VARCHAR2) RETURN CHAR IS
53 X_MODIFIER VARCHAR2(80);
54 CURSOR CUR_MODIFIER IS
55 SELECT
56 MEANING
57 FROM
58 QP_LOOKUPS
59 WHERE LOOKUP_TYPE = 'MODIFIER_LEVEL_CODE'
60 AND LOOKUP_CODE = MODIFIER_LEVEL_CODE;
61 BEGIN
62 OPEN CUR_MODIFIER;
63 FETCH CUR_MODIFIER
64 INTO X_MODIFIER;
65 CLOSE CUR_MODIFIER;
66 RETURN (X_MODIFIER);
67 END CF_MODIFIER_LEVELFORMULA;
68
69 FUNCTION CF_LIST_LINE_TYPE_CODEFORMULA(LIST_LINE_TYPE_CODE IN VARCHAR2) RETURN CHAR IS
70 X_LINE_TYPE_CODE VARCHAR2(80);
71 CURSOR CUR_LINE_TYPE IS
72 SELECT
73 MEANING
74 FROM
75 QP_LOOKUPS
76 WHERE LOOKUP_TYPE = 'LIST_LINE_TYPE_CODE'
77 AND LOOKUP_CODE = LIST_LINE_TYPE_CODE;
78 BEGIN
79 OPEN CUR_LINE_TYPE;
80 FETCH CUR_LINE_TYPE
81 INTO X_LINE_TYPE_CODE;
82 CLOSE CUR_LINE_TYPE;
83 RETURN (X_LINE_TYPE_CODE);
84 END CF_LIST_LINE_TYPE_CODEFORMULA;
85
86 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
87 BEGIN
88 BEGIN
89 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
90 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
91 EXCEPTION
92 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
93 /*SRW.MESSAGE(1000
94 ,'Failed in BEFORE REPORT trigger')*/NULL;
95 RETURN (FALSE);
96 END;
97 DECLARE
98 L_COMPANY_NAME VARCHAR2(100);
99 L_FUNCTIONAL_CURRENCY VARCHAR2(15);
100 BEGIN
101 SELECT
102 SOB.NAME,
103 SOB.CURRENCY_CODE
104 INTO L_COMPANY_NAME,L_FUNCTIONAL_CURRENCY
105 FROM
106 GL_SETS_OF_BOOKS SOB,
107 FND_CURRENCIES CUR
108 WHERE SOB.SET_OF_BOOKS_ID = P_SOB_ID
109 AND SOB.CURRENCY_CODE = CUR.CURRENCY_CODE;
110 RP_COMPANY_NAME := L_COMPANY_NAME;
111 EXCEPTION
112 WHEN NO_DATA_FOUND THEN
113 NULL;
114 END;
115 DECLARE
116 L_REPORT_NAME VARCHAR2(240);
117 BEGIN
118 SELECT
119 CP.USER_CONCURRENT_PROGRAM_NAME
120 INTO L_REPORT_NAME
121 FROM
122 FND_CONCURRENT_PROGRAMS_VL CP,
123 FND_CONCURRENT_REQUESTS CR
124 WHERE CR.REQUEST_ID = P_CONC_REQUEST_ID
125 AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
126 AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
127 RP_REPORT_NAME := L_REPORT_NAME;
128 EXCEPTION
129 WHEN NO_DATA_FOUND THEN
130 RP_REPORT_NAME := 'Accrual Details';
131 END;
132 RETURN (TRUE);
133 END BEFOREREPORT;
134
135 FUNCTION CF_QUALIFIER_CONTEXTFORMULA(QUALIFIER_CONTEXT IN VARCHAR2
136 ,QUALIFIER_ATTRIBUTE IN VARCHAR2) RETURN CHAR IS
137 X_ATTRIBUTE_CODE VARCHAR2(30);
138 X_SEGMENT_NAME VARCHAR2(80);
139 BEGIN
140 /*SRW.MESSAGE(1
141 ,' - in qual_context - ')*/NULL;
142 QP_UTIL.GET_ATTRIBUTE_CODE('QP_ATTR_DEFNS_QUALIFIER'
143 ,QUALIFIER_CONTEXT
144 ,QUALIFIER_ATTRIBUTE
145 ,X_ATTRIBUTE_CODE
146 ,X_SEGMENT_NAME);
147 /*SRW.MESSAGE(1
148 ,'segment_name = ' || X_SEGMENT_NAME)*/NULL;
149 /*SRW.MESSAGE(1
150 ,'attribute_code = ' || X_ATTRIBUTE_CODE)*/NULL;
151 RETURN (X_ATTRIBUTE_CODE);
152 END CF_QUALIFIER_CONTEXTFORMULA;
153
154 FUNCTION G_LIST_HEADERSGROUPFILTER RETURN BOOLEAN IS
155 ACCRUAL_EXISTS VARCHAR2(1) := 'N';
156 BEGIN
157 SELECT
158 'Y'
159 INTO ACCRUAL_EXISTS
160 FROM
161 DUAL
162 WHERE exists (
163 SELECT
164 'X'
165 FROM
166 QP_LIST_LINES QPL
167 WHERE QPL.LIST_HEADER_ID = LIST_HEADER_ID
168 AND QPL.ACCRUAL_FLAG = 'Y' );
169 IF ACCRUAL_EXISTS = 'Y' THEN
170 RETURN (TRUE);
171 ELSE
172 RETURN (FALSE);
173 END IF;
174 END G_LIST_HEADERSGROUPFILTER;
175
176 FUNCTION AFTERREPORT RETURN BOOLEAN IS
177 BEGIN
178 BEGIN
179 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
180 EXCEPTION
181 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
182 /*SRW.MESSAGE(1
183 ,'Failed in AFTER REPORT TRIGGER')*/NULL;
184 RETURN (FALSE);
185 END;
186 RETURN (TRUE);
187 END AFTERREPORT;
188
189 FUNCTION RP_REPORT_NAME_P RETURN VARCHAR2 IS
190 BEGIN
191 RETURN RP_REPORT_NAME;
192 END RP_REPORT_NAME_P;
193
194 FUNCTION RP_COMPANY_NAME_P RETURN VARCHAR2 IS
195 BEGIN
196 RETURN RP_COMPANY_NAME;
197 END RP_COMPANY_NAME_P;
198
199 END QP_QPXPACRL_XMLP_PKG;