[Home] [Help]
PACKAGE BODY: APPS.QP_QPXPRQFS_XMLP_PKG
Source
1 PACKAGE BODY QP_QPXPRQFS_XMLP_PKG AS
2 /* $Header: QPXPRQFSB.pls 120.2 2010/11/03 16:16:08 smuhamme ship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 /*SRW.MESSAGE(1001
6 ,'1111')*/NULL;
7 BEGIN
8 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
9 LP_START_DATE_ACTIVE := to_char(P_START_DATE_ACTIVE, 'DD-MON-YY');
10 LP_end_date_active := to_char(P_end_date_active, 'DD-MON-YY');
11 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
12 EXCEPTION
13 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
14 /*SRW.MESSAGE(1000
15 ,'Failed in BEFORE REPORT trigger')*/NULL;
16 RETURN (FALSE);
17 END;
18 /*SRW.MESSAGE(1001
19 ,'2222')*/NULL;
20 DECLARE
21 L_COMPANY_NAME VARCHAR2(100);
22 L_FUNCTIONAL_CURRENCY VARCHAR2(15);
23 BEGIN
24 /*SRW.MESSAGE(1001
25 ,'2.5555')*/NULL;
26 /*SRW.MESSAGE(1001
27 ,'p_sob_id =' || P_SOB_ID)*/NULL;
28 SELECT
29 SOB.NAME,
30 SOB.CURRENCY_CODE
31 INTO L_COMPANY_NAME,L_FUNCTIONAL_CURRENCY
32 FROM
33 GL_SETS_OF_BOOKS SOB,
34 FND_CURRENCIES CUR
35 WHERE SOB.SET_OF_BOOKS_ID = P_SOB_ID
36 AND SOB.CURRENCY_CODE = CUR.CURRENCY_CODE;
37 /*SRW.MESSAGE(1001
38 ,'3333')*/NULL;
39 RP_COMPANY_NAME := L_COMPANY_NAME;
40 EXCEPTION
41 WHEN NO_DATA_FOUND THEN
42 NULL;
43 END;
44 DECLARE
45 L_REPORT_NAME VARCHAR2(240);
46 BEGIN
47 /*SRW.MESSAGE(1001
48 ,'3.5555')*/NULL;
49 SELECT
50 CP.USER_CONCURRENT_PROGRAM_NAME
51 INTO L_REPORT_NAME
52 FROM
53 FND_CONCURRENT_PROGRAMS_VL CP,
54 FND_CONCURRENT_REQUESTS CR
55 WHERE CR.REQUEST_ID = P_CONC_REQUEST_ID
56 AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
57 AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
58 /*SRW.MESSAGE(1001
59 ,'4444')*/NULL;
60 RP_REPORT_NAME := L_REPORT_NAME;
61 EXCEPTION
62 WHEN NO_DATA_FOUND THEN
63 RP_REPORT_NAME := 'Qualifier Grouping';
64 END;
65 RETURN (TRUE);
66 END BEFOREREPORT;
67 FUNCTION CF_QUALIFIER_CONTEXTFORMULA(QUALIFIER_CONTEXT IN VARCHAR2
68 ,QUALIFIER_ATTRIBUTE IN VARCHAR2) RETURN CHAR IS
69 X_ATTRIBUTE_CODE VARCHAR2(240);
70 X_SEGMENT_NAME VARCHAR2(240);
71 BEGIN
72 /*SRW.MESSAGE(1
73 ,' - in qual_context - ')*/NULL;
74 QP_UTIL.GET_ATTRIBUTE_CODE('QP_ATTR_DEFNS_QUALIFIER'
75 ,QUALIFIER_CONTEXT
76 ,QUALIFIER_ATTRIBUTE
77 ,X_ATTRIBUTE_CODE
78 ,X_SEGMENT_NAME);
79 /*SRW.MESSAGE(1
80 ,'segment_name = ' || X_SEGMENT_NAME)*/NULL;
81 /*SRW.MESSAGE(1
82 ,'attribute_code = ' || X_ATTRIBUTE_CODE)*/NULL;
83 RETURN (X_ATTRIBUTE_CODE);
84 END CF_QUALIFIER_CONTEXTFORMULA;
85 FUNCTION CF_QUALIFIER_ATTR_VALUEFORMULA(QUALIFIER_CONTEXT IN VARCHAR2
86 ,QUALIFIER_ATTRIBUTE IN VARCHAR2
87 ,QUALIFIER_ATTR_VALUE IN VARCHAR2) RETURN CHAR IS
88 X_ATTR_VALUE_FROM VARCHAR2(240);
89 BEGIN
90 X_ATTR_VALUE_FROM := QP_UTIL.GET_ATTRIBUTE_VALUE('QP_ATTR_DEFNS_QUALIFIER'
91 ,QUALIFIER_CONTEXT
92 ,QUALIFIER_ATTRIBUTE
93 ,QUALIFIER_ATTR_VALUE
94 ,'=');
95 RETURN (NVL(X_ATTR_VALUE_FROM
96 ,QUALIFIER_ATTR_VALUE));
97 END CF_QUALIFIER_ATTR_VALUEFORMULA;
98 FUNCTION CF_QUALIFIER_ATTR_VALUE_TOFORM(QUALIFIER_CONTEXT IN VARCHAR2
99 ,QUALIFIER_ATTRIBUTE IN VARCHAR2
100 ,QUALIFIER_ATTR_VALUE_TO IN VARCHAR2) RETURN CHAR IS
101 X_ATTR_VALUE_TO VARCHAR2(240);
102 BEGIN
103 X_ATTR_VALUE_TO := QP_UTIL.GET_ATTRIBUTE_VALUE('QP_ATTR_DEFNS_QUALIFIER'
104 ,QUALIFIER_CONTEXT
105 ,QUALIFIER_ATTRIBUTE
106 ,QUALIFIER_ATTR_VALUE_TO
107 ,'=');
108 RETURN (NVL(X_ATTR_VALUE_TO
109 ,QUALIFIER_ATTR_VALUE_TO));
110 END CF_QUALIFIER_ATTR_VALUE_TOFORM;
111 FUNCTION AFTERPFORM RETURN BOOLEAN IS
112 BEGIN
113 IF P_QUALIFIER_ATTR_VALUE_FROM IS NOT NULL THEN
114 IF P_QUALIFIER_ATTR_VALUE_TO IS NOT NULL THEN
115 LP_QUALIFIER_ATTR_VALUE_FROM := ' AND b.qualifier_attr_value >= :P_QUALIFIER_ATTR_VALUE_FROM ';
116 ELSE
117 LP_QUALIFIER_ATTR_VALUE_FROM := ' AND b.qualifier_attr_value = :P_QUALIFIER_ATTR_VALUE_FROM ';
118 END IF;
119 END IF;
120 IF (P_QUALIFIER_ATTR_VALUE_TO IS NOT NULL) AND (P_QUALIFIER_ATTR_VALUE_FROM IS NOT NULL) THEN
121 LP_QUALIFIER_ATTR_VALUE_TO := ' AND b.qualifier_attr_value <= :P_QUALIFIER_ATTR_VALUE_TO ';
122 END IF;
123 RETURN (TRUE);
124 END AFTERPFORM;
125 FUNCTION AFTERREPORT RETURN BOOLEAN IS
126 BEGIN
127 BEGIN
128 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
129 EXCEPTION
130 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
131 /*SRW.MESSAGE(1
132 ,'Failed in AFTER REPORT TRIGGER')*/NULL;
133 RETURN (FALSE);
134 END;
135 RETURN (TRUE);
136 END AFTERREPORT;
137 FUNCTION RP_REPORT_NAME_P RETURN VARCHAR2 IS
138 BEGIN
139 RETURN RP_REPORT_NAME;
140 END RP_REPORT_NAME_P;
141 FUNCTION RP_COMPANY_NAME_P RETURN VARCHAR2 IS
142 BEGIN
143 RETURN RP_COMPANY_NAME;
144 END RP_COMPANY_NAME_P;
145 END QP_QPXPRQFS_XMLP_PKG;