1 PACKAGE BODY QA_QLTPLCHR_XMLP_PKG AS
2 /* $Header: QLTPLCHRB.pls 120.0 2007/12/24 10:36:54 krreddy noship $ */
3 FUNCTION C_DEFAULT_VALUE_NUMFORMULA(DATATYPE_NUM IN NUMBER
4 ,DEFAULT_VALUE IN VARCHAR2) RETURN NUMBER IS
5 BEGIN
6 IF (DATATYPE_NUM = 2) THEN
7 RETURN (TO_NUMBER(DEFAULT_VALUE
8 ,'9999999999999999.999999'));
9 ELSE
10 RETURN (2);
11 END IF;
12 RETURN NULL;
13 END C_DEFAULT_VALUE_NUMFORMULA;
14
15 FUNCTION P_PLANVALIDTRIGGER RETURN BOOLEAN IS
16 BEGIN
17 RETURN (TRUE);
18 END P_PLANVALIDTRIGGER;
19
20 FUNCTION AFTERPFORM RETURN BOOLEAN IS
21 BEGIN
22 IF (P_ORGANIZATION_ID IS NOT NULL) THEN
23 P_ORG_LIMITER := 'and qpv.organization_id = ''' || TO_CHAR(P_ORGANIZATION_ID) || '''';
24 END IF;
25 IF (P_PLAN_TYPE_DESC IS NOT NULL) THEN
26 P_PLAN_TYPE_DESC_LIMITER := 'and qpv.plan_type_code = ''' || P_PLAN_TYPE_DESC || '''';
27 SELECT
28 MEANING
29 INTO P_PLAN_TYPE_MEANING
30 FROM
31 FND_COMMON_LOOKUPS
32 WHERE LOOKUP_TYPE = 'COLLECTION_PLAN_TYPE'
33 AND LOOKUP_CODE = P_PLAN_TYPE_DESC;
34 END IF;
35 IF (P_PLAN IS NOT NULL) THEN
36 SELECT
37 NAME
38 INTO P_PLAN
39 FROM
40 QA_PLANS
41 WHERE PLAN_ID = P_PLAN;
42 P_PLAN_LIMITER := 'and qpv.name = ''' || P_PLAN || '''';
43 END IF;
44 P_PLAN_ENABLED_FLAG := NVL(TO_NUMBER(P_PLAN_ENABLED)
45 ,1);
46 SELECT
47 MEANING
48 INTO P_PLAN_ENABLED_MEANING
49 FROM
50 MFG_LOOKUPS
51 WHERE LOOKUP_TYPE = 'SYS_YES_NO'
52 AND LOOKUP_CODE = P_PLAN_ENABLED_FLAG;
53 IF (P_PLAN_ENABLED_FLAG = 1) THEN
54 P_PLAN_ENABLED_LIMITER := 'and ((to_date(''' || TO_CHAR(SYSDATE) || ''',''DD-MON-RRRR'')
55 between qpv.effective_from and qpv.effective_to) or
56 (qpv.effective_from is null and to_date(''' || TO_CHAR(SYSDATE) || ''',''DD-MON-RRRR'') <=
57 qpv.effective_to) or
58 (qpv.effective_to is null and to_date(''' || TO_CHAR(SYSDATE) || ''',''DD-MON-RRRR'') >=
59 qpv.effective_from) or (qpv.effective_from is null and qpv.effective_to is null))';
60 ELSIF (P_PLAN_ENABLED_FLAG = 2) THEN
61 P_PLAN_ENABLED_LIMITER := 'and ((''' || TO_CHAR(SYSDATE) || '''
62 not between qpv.effective_from and qpv.effective_to) or
63 (qpv.effective_from is null and ''' || TO_CHAR(SYSDATE) || ''' >
64 qpv.effective_to) or
65 (qpv.effective_to is null and ''' || TO_CHAR(SYSDATE) || ''' <
66 qpv.effective_from))';
67 END IF;
68 RETURN (TRUE);
69 END AFTERPFORM;
70
71 FUNCTION TRANSLLATE(ENABLED_MEANING IN VARCHAR2) RETURN NUMBER IS
72 CURSOR C1(ENABLED_MEANNING IN VARCHAR2) IS
73 SELECT
74 LOOKUP_CODE
75 FROM
76 MFG_LOOKUPS
77 WHERE LOOKUP_TYPE = 'SYS_YES_NO'
78 AND MEANING = ENABLED_MEANNING;
79 TRANSLATED NUMBER;
80 BEGIN
81 OPEN C1(ENABLED_MEANING);
82 FETCH C1
83 INTO TRANSLATED;
84 CLOSE C1;
85 RETURN TRANSLATED;
86 END TRANSLLATE;
87
88 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
89 apf boolean;
90 BEGIN
91 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
92 apf := AFTERPFORM;
93 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
94 RETURN (TRUE);
95 END BEFOREREPORT;
96
97 FUNCTION AFTERREPORT RETURN BOOLEAN IS
98 BEGIN
99 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
100 RETURN (TRUE);
101 END AFTERREPORT;
102
103 END QA_QLTPLCHR_XMLP_PKG;
104