PACKAGE BODY: APPS.QA_QASEQAUD_XMLP_PKG

Source

1 PACKAGE BODY QA_QASEQAUD_XMLP_PKG AS
2 /* $Header: QASEQAUDB.pls 120.1 2007/12/24 10:24:41 krreddy noship $ */
3   FUNCTION AFTERPFORM RETURN BOOLEAN IS
4   BEGIN
5   P_CHAR_LIMITER:= ' ';
6   P_AUDIT_DATE_LIMITER := ' ';
7     IF P_CHAR_ID IS NOT NULL THEN
8       P_CHAR_LIMITER := 'and qv.char_id = :p_char_id ';
9     END IF;
10     IF P_DATE_FROM IS NOT NULL AND P_DATE_TO IS NOT NULL THEN
11       P_AUDIT_DATE_LIMITER := ' and qv.audit_date BETWEEN  :p_date_from AND :p_date_to ';
12     ELSIF P_DATE_FROM IS NOT NULL THEN
13       P_AUDIT_DATE_LIMITER := ' and  qv.audit_date > = :p_date_from ';
14     ELSIF P_DATE_TO IS NOT NULL THEN
15       P_AUDIT_DATE_LIMITER := ' and qv.audit_date < = :p_date_to ';
16     END IF;
17     RETURN (TRUE);
18   END AFTERPFORM;
19 
20   FUNCTION P_CHAR_NAMEVALIDTRIGGER RETURN BOOLEAN IS
21   BEGIN
22     IF P_CHAR_ID IS NOT NULL THEN
23       SELECT
24         NAME
25       INTO P_CHAR_NAME
26       FROM
27         QA_CHARS
28       WHERE CHAR_ID = P_CHAR_ID;
29     END IF;
30     RETURN (TRUE);
31   END P_CHAR_NAMEVALIDTRIGGER;
32 
33   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
34   BEGIN
35     P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
36     /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
37     RETURN (TRUE);
38   END BEFOREREPORT;
39 
40   FUNCTION AFTERREPORT RETURN BOOLEAN IS
41   BEGIN
42     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
43     RETURN (TRUE);
44   END AFTERREPORT;
45 
46 END QA_QASEQAUD_XMLP_PKG;
47 
48