1 PACKAGE BODY HXC_HXCRTERR_XMLP_PKG AS
2 /* $Header: HXCRTERRB.pls 120.1 2007/12/20 14:04:58 amakrish noship $ */
3 FUNCTION CF_RESOURCEFORMULA(RESOURCE_TYPE IN VARCHAR2
4 ,RESOURCE_ID IN NUMBER) RETURN CHAR IS
5 CURSOR C_EMP_DTL(CP_PERSON_ID IN NUMBER,CP_EFFECTIVE_DATE IN DATE) IS
6 SELECT
7 PPF.LAST_NAME,
8 NVL(PPF.EMPLOYEE_NUMBER
9 ,PPF.NPW_NUMBER) EMPLOYEE_NUMBER
10 FROM
11 PER_PEOPLE_F PPF
12 WHERE PPF.PERSON_ID = CP_PERSON_ID
13 AND CP_EFFECTIVE_DATE between PPF.EFFECTIVE_START_DATE
14 AND PPF.EFFECTIVE_END_DATE;
15 BEGIN
16 IF RESOURCE_TYPE = 'PERSON' THEN
17 OPEN C_EMP_DTL(RESOURCE_ID,P_END_DATE);
18 FETCH C_EMP_DTL
19 INTO
20 CP_LAST_NAME
21 ,CP_EMPLOYEE_NUMBER;
22 CLOSE C_EMP_DTL;
23 END IF;
24 RETURN CP_EMPLOYEE_NUMBER;
25 END CF_RESOURCEFORMULA;
26
27 FUNCTION AFTERPFORM RETURN BOOLEAN IS
28 CURSOR C_RETRIEVAL_PROCESS(CP_RETRIEVAL_PROCESS_ID IN NUMBER) IS
29 SELECT
30 HRP.NAME
31 FROM
32 HXC_RETRIEVAL_PROCESSES HRP
33 WHERE HRP.RETRIEVAL_PROCESS_ID = CP_RETRIEVAL_PROCESS_ID;
34 CURSOR C_BEE_RET_PROCESS_ID IS
35 SELECT
36 RP.RETRIEVAL_PROCESS_ID
37 FROM
38 HXC_RETRIEVAL_PROCESSES RP
39 WHERE NAME = 'BEE Retrieval Process';
40 BEGIN
41 OPEN C_BEE_RET_PROCESS_ID;
42 FETCH C_BEE_RET_PROCESS_ID
43 INTO
44 P_BEE_RP_ID;
45 CLOSE C_BEE_RET_PROCESS_ID;
46 IF P_RETRIEVAL_PROCESS IS NOT NULL THEN
47 OPEN C_RETRIEVAL_PROCESS(P_RETRIEVAL_PROCESS);
48 FETCH C_RETRIEVAL_PROCESS
49 INTO
50 P_RETRIEVAL_PROCESS_LABEL;
51 CLOSE C_RETRIEVAL_PROCESS;
52 END IF;
53 RETURN (TRUE);
54 END AFTERPFORM;
55
56 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
57 BEGIN
58 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
59 P_START_DATE_DSP := TO_CHAR (P_START_DATE,'DD-MON-YYYY');
60 P_END_DATE_DSP := TO_CHAR (P_END_DATE,'DD-MON-YYYY');
61 RETURN (TRUE);
62 END BEFOREREPORT;
63
64 FUNCTION AFTERREPORT RETURN BOOLEAN IS
65 BEGIN
66 RETURN (TRUE);
67 END AFTERREPORT;
68
69 FUNCTION CP_EMPLOYEE_NUMBER_P RETURN VARCHAR2 IS
70 BEGIN
71 RETURN CP_EMPLOYEE_NUMBER;
72 END CP_EMPLOYEE_NUMBER_P;
73
74 FUNCTION CP_LAST_NAME_P RETURN VARCHAR2 IS
75 BEGIN
76 RETURN CP_LAST_NAME;
77 END CP_LAST_NAME_P;
78
79 END HXC_HXCRTERR_XMLP_PKG;