1 PACKAGE BODY QA_QLTCHWUR_XMLP_PKG AS
2 /* $Header: QLTCHWURB.pls 120.0 2007/12/24 10:33:42 krreddy noship $ */
3 FUNCTION AFTERPFORM RETURN BOOLEAN IS
4 BEGIN
5 IF (P_CHARACTERISTIC IS NOT NULL) THEN
6 SELECT
7 NAME
8 INTO P_CHARACTERISTIC
9 FROM
10 QA_CHARS
11 WHERE CHAR_ID = P_CHARACTERISTIC;
12 P_CHARACTERISTIC_LIMITER := 'and qc.name = ''' || P_CHARACTERISTIC || '''';
13 END IF;
14 IF (P_ORGANIZATION_ID IS NOT NULL) THEN
15 P_ORG_DELIMITER := 'and qpcv.organization_id = ' || TO_CHAR(P_ORGANIZATION_ID);
16 END IF;
17 IF (P_CHAR_ENABLED IS NOT NULL) THEN
18 P_CHAR_ENABLED_DELIMITER := 'and ml.lookup_code = ''' || P_CHAR_ENABLED || '''';
19 SELECT
20 MEANING
21 INTO P_CHAR_ENABLED_MEANING
22 FROM
23 MFG_LOOKUPS
24 WHERE LOOKUP_TYPE = 'SYS_YES_NO'
25 AND LOOKUP_CODE = P_CHAR_ENABLED;
26 END IF;
27 IF (P_PLAN_CHAR_ENABLED IS NOT NULL) THEN
28 P_PLAN_ENABLED_DELIMITER := 'and qpcv.enabled_flag = ''' || P_PLAN_CHAR_ENABLED || '''';
29 SELECT
30 MEANING
31 INTO P_PLAN_ENABLED_MEANING
32 FROM
33 MFG_LOOKUPS
34 WHERE LOOKUP_TYPE = 'SYS_YES_NO'
35 AND LOOKUP_CODE = P_PLAN_CHAR_ENABLED;
36 END IF;
37 LP_CHARACTERISTIC:=P_CHARACTERISTIC;
38 LP_CHAR_ENABLED_MEANING:=P_CHAR_ENABLED_MEANING;
39 LP_PLAN_ENABLED_MEANING:=P_PLAN_ENABLED_MEANING;
40 RETURN (TRUE);
41 END AFTERPFORM;
42
43 FUNCTION C_DEF_VALUE_NUMBERFORMULA(DATATYPE1 IN NUMBER
44 ,DEFAULT_VALUE1 IN VARCHAR2) RETURN NUMBER IS
45 BEGIN
46 IF (DATATYPE1 = 2) THEN
47 RETURN (TO_NUMBER(DEFAULT_VALUE1));
48 ELSE
49 RETURN (2);
50 END IF;
51 RETURN NULL;
52 END C_DEF_VALUE_NUMBERFORMULA;
53
54 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
55 BEGIN
56 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
57 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
58 RETURN (TRUE);
59 END BEFOREREPORT;
60
61 FUNCTION AFTERREPORT RETURN BOOLEAN IS
62 BEGIN
63 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
64 RETURN (TRUE);
65 END AFTERREPORT;
66
67 END QA_QLTCHWUR_XMLP_PKG;
68