1 PACKAGE BODY QA_QLTPLACR_XMLP_PKG AS
2 /* $Header: QLTPLACRB.pls 120.0 2007/12/24 10:34:29 krreddy noship $ */
3 FUNCTION AFTERPFORM RETURN BOOLEAN IS
4 BEGIN
5 P_PLAN_LIMITER := ' ';
6 P_ELEMENT_LIMITER :=' ';
7 P_Element_Enabled_Limiter := ' ';
8 P_org_limiter:= ' ';
9
10 IF (P_PLAN_NAME IS NOT NULL) THEN
11 SELECT
12 NAME
13 INTO P_PLAN_NAME
14 FROM
15 QA_PLANS
16 WHERE PLAN_ID = P_PLAN_NAME;
17 P_PLAN_LIMITER := 'and qp1.name = ''' || P_PLAN_NAME || '''';
18 END IF;
19 IF (P_PLAN_ENABLED IS NOT NULL) THEN
20 P_ENABLED_FLAG := TO_NUMBER(P_PLAN_ENABLED);
21 SELECT
22 MEANING
23 INTO P_PLAN_ENABLED_MEANING
24 FROM
25 MFG_LOOKUPS
26 WHERE LOOKUP_TYPE = 'SYS_YES_NO'
27 AND LOOKUP_CODE = P_PLAN_ENABLED;
28 IF P_ENABLED_FLAG = 1 THEN
29 P_TABLE := 'QA_PLANS_VAL_V';
30 ELSE
31 P_TABLE := 'QA_PLANS_V';
32 END IF;
33 END IF;
34 IF (P_ELEMENT IS NOT NULL) THEN
35 SELECT
36 NAME
37 INTO P_ELEMENT
38 FROM
39 QA_CHARS
40 WHERE CHAR_ID = P_ELEMENT;
41 P_ELEMENT_LIMITER := 'and qc.name = ''' || P_ELEMENT || '''';
42 END IF;
43 IF (P_ELEMENT_ENABLED IS NOT NULL) THEN
44 P_ELEMENT_ENABLED_LIMITER := 'and ml2.lookup_code = ''' || P_ELEMENT_ENABLED || '''';
45 SELECT
46 MEANING
47 INTO P_ELEMENT_ENABLED_MEANING
48 FROM
49 MFG_LOOKUPS
50 WHERE LOOKUP_TYPE = 'SYS_YES_NO'
51 AND LOOKUP_CODE = P_ELEMENT_ENABLED;
52 END IF;
53 IF (P_ORGANIZATION_ID IS NOT NULL) THEN
54 P_ORG_LIMITER := 'and qp1.organization_id = ''' || TO_CHAR(P_ORGANIZATION_ID) || '''';
55 END IF;
56 RETURN (TRUE);
57 END AFTERPFORM;
58
59 FUNCTION TRANSLLATE(ENABLED_MEANING IN VARCHAR2) RETURN NUMBER IS
60 CURSOR C1(ENABLED_MEANNING IN VARCHAR2) IS
61 SELECT
62 LOOKUP_CODE
63 FROM
64 MFG_LOOKUPS
65 WHERE LOOKUP_TYPE = 'SYS_YES_NO'
66 AND MEANING = ENABLED_MEANNING;
67 TRANSLATED NUMBER;
68 BEGIN
69 OPEN C1(ENABLED_MEANING);
70 FETCH C1
71 INTO TRANSLATED;
72 CLOSE C1;
73 RETURN TRANSLATED;
74 END TRANSLLATE;
75
76 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
77 BEGIN
78 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
79 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
80 RETURN (TRUE);
81 END BEFOREREPORT;
82
83 FUNCTION AFTERREPORT RETURN BOOLEAN IS
84 BEGIN
85 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
86 RETURN (TRUE);
87 END AFTERREPORT;
88
89 END QA_QLTPLACR_XMLP_PKG;
90
91
92
|
|
|