1 PACKAGE BODY IGI_IGISLSSG_XMLP_PKG AS
2 /* $Header: IGISLSSGB.pls 120.0.12010000.1 2008/07/29 08:59:42 appldev ship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
6 P_GROUP_TYPE_T := nvl(P_GROUP_TYPE,'%');
7 P_GROUP_NAME_T := nvl(P_GROUP_NAME,'%');
8 RETURN (TRUE);
9 END BEFOREREPORT;
10
11 FUNCTION AFTERREPORT RETURN BOOLEAN IS
12 BEGIN
13 NULL;
14 RETURN (TRUE);
15 END AFTERREPORT;
16
17 FUNCTION CF_2FORMULA(SEC_NAME IN VARCHAR2) RETURN NUMBER IS
18 BEGIN
19 CP_SEC_NAME := SEC_NAME;
20 RETURN (1);
21 END CF_2FORMULA;
22
23 FUNCTION CF_1FORMULA(PROC_NAME IN VARCHAR2) RETURN NUMBER IS
24 BEGIN
25 CP_PRC_NAME := PROC_NAME;
26 RETURN (1);
27 END CF_1FORMULA;
28
29 FUNCTION CP_PRC_NAME_P RETURN VARCHAR2 IS
30 BEGIN
31 RETURN CP_PRC_NAME;
32 END CP_PRC_NAME_P;
33
34 FUNCTION CP_SEC_NAME_P RETURN VARCHAR2 IS
35 BEGIN
36 RETURN CP_SEC_NAME;
37 END CP_SEC_NAME_P;
38
39 FUNCTION F_DATE_ENABLED1FORMATTRIGGER(SEC_DT_ENABLED IN DATE,SEC_DT_DISABLED IN DATE,SEC_DT_REMOVED IN DATE,SEC_DT_ENABLED_AU IN DATE,SEC_DT_DISABLED_AU IN DATE,SEC_DT_REMOVED_AU IN DATE) RETURN VARCHAR2 IS
40 P_DATE DATE := SYSDATE;
41 BEGIN
42 IF NVL(SEC_DT_ENABLED,P_DATE) = NVL(SEC_DT_ENABLED_AU,P_DATE)
43 AND NVL(SEC_DT_DISABLED,P_DATE)= NVL(SEC_DT_DISABLED_AU,P_DATE)
44 AND NVL(SEC_DT_REMOVED,P_DATE) = NVL(SEC_DT_REMOVED_AU,P_DATE)
45 THEN
46 RETURN ('N');
47 ELSE
48 RETURN ('Y');
49 END IF;
50
51 END;
52
53 FUNCTION F_PRC_DT_ENABLED_AU1FORMATTRIG(PROC_DT_ENABLED IN DATE,PROC_DT_DISABLED IN DATE,PROC_DT_REMOVED IN DATE,PRC_DT_ENABLED_AU IN DATE,PRC_DT_DISABLED_AU IN DATE,PRC_DT_REMOVED_AU IN DATE) RETURN VARCHAR2 IS
54 P_DATE DATE := SYSDATE;
55 BEGIN
56 IF NVL(PROC_DT_ENABLED,P_DATE) = NVL(PRC_DT_ENABLED_AU,P_DATE)
57 AND NVL(PROC_DT_DISABLED,P_DATE) = NVL(PRC_DT_DISABLED_AU,P_DATE)
58 AND NVL(PROC_DT_REMOVED,P_DATE) = NVL(PRC_DT_REMOVED_AU,P_DATE)
59 THEN
60 RETURN ('N');
61 ELSE
62 RETURN ('Y');
63 END IF;
64
65 END;
66
67
68
69
70
71 END IGI_IGISLSSG_XMLP_PKG;