1 PACKAGE BODY QA_QLTPLANR_XMLP_PKG AS
2 /* $Header: QLTPLANRB.pls 120.0 2007/12/24 10:35:27 krreddy noship $ */
3 FUNCTION AFTERPFORM RETURN BOOLEAN IS
4 BEGIN
5 IF P_ORGANIZATION_ID IS NOT NULL THEN
6 P_ORG_DELIMITER := 'and qpv.Organization_id = ' || TO_CHAR(P_ORGANIZATION_ID);
7 END IF;
8 IF P_PLAN_TYPE IS NOT NULL THEN
9 P_PLAN_TYPE_DELIMITER := 'and qpv.plan_type_code = ''' || P_PLAN_TYPE || '''';
10 SELECT
11 MEANING
12 INTO P_PLAN_TYPE_MEANING
13 FROM
14 FND_COMMON_LOOKUPS
15 WHERE LOOKUP_TYPE = 'COLLECTION_PLAN_TYPE'
16 AND LOOKUP_CODE = P_PLAN_TYPE;
17 END IF;
18 RETURN (TRUE);
19 END AFTERPFORM;
20 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
21 BEGIN
22 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
23 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
24 LP_PLAN_TYPE_MEANING:=P_PLAN_TYPE_MEANING;
25 RETURN (TRUE);
26 END BEFOREREPORT;
27 FUNCTION AFTERREPORT RETURN BOOLEAN IS
28 BEGIN
29 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
30 RETURN (TRUE);
31 END AFTERREPORT;
32 END QA_QLTPLANR_XMLP_PKG;
33