1 PACKAGE BODY QA_QLTCHARR_XMLP_PKG AS
2 /* $Header: QLTCHARRB.pls 120.0 2007/12/24 10:32:55 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 AFTERPFORM RETURN BOOLEAN IS
16 BEGIN
17 IF P_ELEMENT IS NOT NULL THEN
18 SELECT
19 NAME
20 INTO P_ELEMENT
21 FROM
22 QA_CHARS
23 WHERE CHAR_ID = P_ELEMENT;
24 P_ELEMENT_LIMITER := 'and qcv.Name = ''' || P_ELEMENT || '''';
25 END IF;
26 IF P_ENABLED = 1 THEN
27 P_ENABLED_LIMITER := 'and qcv.ENABLED_FLAG = 1';
28 END IF;
29 IF P_ENABLED IS NOT NULL THEN
30 SELECT
31 MEANING
32 INTO P_ENABLED_MEANING
33 FROM
34 MFG_LOOKUPS
35 WHERE LOOKUP_TYPE = 'SYS_YES_NO'
36 AND LOOKUP_CODE = P_ENABLED;
37 END IF;
38 IF P_ELEMENT_TYPE IS NOT NULL THEN
39 P_ELEMENT_TYPE_LIMITER := 'and qcv.char_type_code = ''' || P_ELEMENT_TYPE || '''';
40 SELECT
41 MEANING
42 INTO P_ELEMENT_TYPE_MEANING
43 FROM
44 FND_COMMON_LOOKUPS
45 WHERE LOOKUP_TYPE = 'ELEMENT_TYPE'
46 AND LOOKUP_CODE = P_ELEMENT_TYPE;
47 END IF;
48 RETURN (TRUE);
49 END AFTERPFORM;
50
51 FUNCTION BEFOREPFORM RETURN BOOLEAN IS
52 BEGIN
53 RETURN (TRUE);
54 END BEFOREPFORM;
55
56 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
57 apf boolean;
58 BEGIN
59 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
60 apf := AFTERPFORM;
61 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
62 RETURN (TRUE);
63 END BEFOREREPORT;
64
65 FUNCTION BETWEENPAGE RETURN BOOLEAN IS
66 BEGIN
67 RETURN (TRUE);
68 END BETWEENPAGE;
69
70 FUNCTION AFTERREPORT RETURN BOOLEAN IS
71 BEGIN
72 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
73 RETURN (TRUE);
74 END AFTERREPORT;
75
76 END QA_QLTCHARR_XMLP_PKG;
77