1 PACKAGE BODY GHR_GHRCPDFD_XMLP_PKG AS
2 /* $Header: GHRCPDFDB.pls 120.0 2007/12/04 07:58:03 srikrish noship $ */
3 FUNCTION AFTERPFORM RETURN BOOLEAN IS
4 BEGIN
5 IF FILENAME IS NOT NULL THEN
6 --DESNAME := FILENAME;
7 null;
8 END IF;
9 RETURN (TRUE);
10 END AFTERPFORM;
11
12 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
13 apf boolean;
14 BEGIN
15 apf := afterpform;
16 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
17 GHR_CPDF_DYNRPT.POPULATE_GHR_CPDF_TEMP(P_AGENCY_CODE || NVL(P_AGENCY_SUBELEMENT
18 ,'%')
19 ,P_REPORT_DATE_FROM
20 ,P_REPORT_DATE_TO
21 ,FALSE);
22 RETURN (TRUE);
23 END BEFOREREPORT;
24
25 FUNCTION AFTERREPORT RETURN BOOLEAN IS
26 L_RET_FLAG BOOLEAN;
27 P_WARN_FLAG VARCHAR2(1);
28 CURSOR C_LOG IS
29 SELECT
30 '1'
31 FROM
32 GHR_PROCESS_LOG
33 WHERE PROGRAM_NAME like '%' || P_CONC_REQUEST_ID;
34 BEGIN
35 GHR_CPDF_DYNRPT.CLEANUP_TABLE;
36 FOR c_log_rec IN C_LOG LOOP
37 P_WARN_FLAG := 'Y';
38 EXIT;
39 END LOOP;
40 IF P_WARN_FLAG = 'Y' THEN
41 L_RET_FLAG := FND_CONCURRENT.SET_COMPLETION_STATUS(STATUS => 'WARNING'
42 ,MESSAGE => 'Please Look at the Federal Process Log for failed records');
43 END IF;
44 RETURN (TRUE);
45 END AFTERREPORT;
46
47 FUNCTION CF_SUPER_DIFFFORMULA(FIRST_NOA_CODE IN VARCHAR2
48 ,FIRST_ACTION_LA_CODE1 IN VARCHAR2
49 ,FIRST_ACTION_LA_CODE2 IN VARCHAR2
50 ,TO_SUPERVISORY_DIFFERENTIAL IN VARCHAR2) RETURN CHAR IS
51 BEGIN
52 IF (FIRST_NOA_CODE = '810' AND (FIRST_ACTION_LA_CODE1 = 'VPH' OR FIRST_ACTION_LA_CODE2 = 'VPH')) THEN
53 IF (TO_SUPERVISORY_DIFFERENTIAL IS NULL) THEN
54 RETURN ('00000');
55 END IF;
56 ELSE
57 IF (TO_SUPERVISORY_DIFFERENTIAL = 0) THEN
58 RETURN (NULL);
59 END IF;
60 END IF;
61 RETURN (LPAD(TO_SUPERVISORY_DIFFERENTIAL
62 ,5
63 ,'0'));
64 END CF_SUPER_DIFFFORMULA;
65
66 FUNCTION CF_RETN_ALLOWFORMULA(FIRST_NOA_CODE IN VARCHAR2
67 ,FIRST_ACTION_LA_CODE1 IN VARCHAR2
68 ,FIRST_ACTION_LA_CODE2 IN VARCHAR2
69 ,TO_RETENTION_ALLOWANCE IN VARCHAR2) RETURN CHAR IS
70 BEGIN
71 IF (FIRST_NOA_CODE = '810' AND (FIRST_ACTION_LA_CODE1 = 'VPG' OR FIRST_ACTION_LA_CODE2 = 'VPG')) THEN
72 IF (TO_RETENTION_ALLOWANCE IS NULL) THEN
73 RETURN ('00000');
74 END IF;
75 ELSE
76 IF (TO_RETENTION_ALLOWANCE = 0) THEN
77 RETURN (NULL);
78 END IF;
79 END IF;
80 RETURN (LPAD(TO_RETENTION_ALLOWANCE
81 ,5
82 ,'0'));
83 END CF_RETN_ALLOWFORMULA;
84
85 END GHR_GHRCPDFD_XMLP_PKG;