PACKAGE BODY: APPS.GHR_GHRCPDFS_XMLP_PKG

Source

1 PACKAGE BODY GHR_GHRCPDFS_XMLP_PKG AS
2 /* $Header: GHRCPDFSB.pls 120.0 2007/12/04 08:07:22 srikrish noship $ */
3   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4     apf boolean;
5   BEGIN
6     apf := afterpform;
7     P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
8     GHR_CPDF_STATRPT.POPULATE_GHR_CPDF_TEMP(P_AGENCY_CODE || NVL(P_AGENCY_SUBELEMENT
9                                                ,'%')
10                                            ,P_REPORT_DATE);
11     RETURN (TRUE);
12   END BEFOREREPORT;
13 
14   FUNCTION AFTERPFORM RETURN BOOLEAN IS
15   BEGIN
16     IF FILENAME IS NOT NULL THEN
17       --DESNAME := FILENAME;
18       null;
19     END IF;
20     RETURN (TRUE);
21   END AFTERPFORM;
22 
23   FUNCTION AFTERREPORT RETURN BOOLEAN IS
24     L_RET_FLAG BOOLEAN;
25     P_WARN_FLAG VARCHAR2(1);
26     CURSOR C_LOG IS
27       SELECT
28         '1'
29       FROM
30         GHR_PROCESS_LOG
31       WHERE PROGRAM_NAME like '%' || P_CONC_REQUEST_ID;
32   BEGIN
33     GHR_CPDF_STATRPT.CLEANUP_TABLE;
34     FOR c_log_rec IN C_LOG LOOP
35       P_WARN_FLAG := 'Y';
36       EXIT;
37     END LOOP;
38     IF P_WARN_FLAG = 'Y' THEN
39       L_RET_FLAG := FND_CONCURRENT.SET_COMPLETION_STATUS(STATUS => 'WARNING'
40                                                         ,MESSAGE => 'Please Look at the Federal Process Log for failed records');
41     END IF;
42     RETURN (TRUE);
43   END AFTERREPORT;
44 
45 END GHR_GHRCPDFS_XMLP_PKG;