1 PACKAGE BODY HXT_HXT952A_XMLP_PKG AS
2 /* $Header: HXT952AB.pls 120.1 2008/03/26 09:18:10 amakrish noship $ */
3 FUNCTION HIGH1FORMULA(TOT_HOURS IN NUMBER
4 ,HIGH IN NUMBER) RETURN NUMBER IS
5 HIGH1 NUMBER(8,2);
6 BEGIN
7 IF NVL(TOT_HOURS
8 ,0) > NVL(HIGH
9 ,0) THEN
10 HIGH1 := NVL(TOT_HOURS
11 ,0) - NVL(HIGH
12 ,0);
13 ELSE
14 HIGH1 := 0;
15 END IF;
16 RETURN HIGH1;
17 END HIGH1FORMULA;
18
19 FUNCTION LOW1FORMULA(TOT_HOURS IN NUMBER
20 ,LOW IN NUMBER) RETURN NUMBER IS
21 LOW1 NUMBER(8,2);
22 BEGIN
23 IF NVL(TOT_HOURS
24 ,0) < NVL(LOW
25 ,0) THEN
26 LOW1 := NVL(LOW
27 ,0) - NVL(TOT_HOURS
28 ,0);
29 ELSE
30 LOW1 := 0;
31 END IF;
32 RETURN LOW1;
33 END LOW1FORMULA;
34
35 FUNCTION AVERAGE1FORMULA(TOT_HOURS IN NUMBER
36 ,AVERAGE IN NUMBER) RETURN NUMBER IS
37 AVERAGE1 NUMBER(8,2);
38 BEGIN
39 AVERAGE1 := NVL(TOT_HOURS
40 ,0) - NVL(AVERAGE
41 ,0);
42 RETURN AVERAGE1;
43 END AVERAGE1FORMULA;
44
45 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
46 BEGIN
47 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
48 START_DATE1 := TO_CHAR(START_DATE,'DD-MON-YYYY');
49 END_DATE1 := TO_CHAR(END_DATE,'DD-MON-YYYY');
50 IF START_DATE IS NULL THEN
51 START_DATE1 := TO_CHAR(HR_GENERAL.START_OF_TIME,'DD-MON-YYYY');
52 END IF;
53 IF END_DATE IS NULL THEN
54 END_DATE1 := TO_CHAR(HR_GENERAL.END_OF_TIME,'DD-MON-YYYY');
55 END IF;
56 RETURN (TRUE);
57 END BEFOREREPORT;
58
59 FUNCTION AFTERREPORT RETURN BOOLEAN IS
60 BEGIN
61 RETURN (TRUE);
62 END AFTERREPORT;
63
64 END HXT_HXT952A_XMLP_PKG;