PACKAGE BODY: APPS.GMI_RILMS_XMLP_PKG

Source

1 PACKAGE BODY GMI_RILMS_XMLP_PKG AS
2 /* $Header: RILMSB.pls 120.0 2007/12/24 13:23:49 nchinnam noship $ */
3   FUNCTION RANGE1CFFORMULA RETURN VARCHAR2 IS
4     RANGEV VARCHAR2(200);
5   BEGIN
6     SELECT
7       DECODE(FROM_ITEM
8             ,NULL
9             ,DECODE(TO_ITEM
10                   ,NULL
11                   ,'Item Range: All'
12                   ,' Item Range: All - ' || TO_ITEM)
13             ,DECODE(TO_ITEM
14                   ,NULL
15                   ,'Item Range: ' || FROM_ITEM || ' - All '
16                   ,'Item Range: ' || FROM_ITEM || ' - ' || TO_ITEM))
17     INTO RANGEV
18     FROM
19       DUAL;
20     RETURN (RANGEV);
21   END RANGE1CFFORMULA;
22 
23   FUNCTION USERCFFORMULA RETURN VARCHAR2 IS
24     USERNAME VARCHAR2(100);
25   BEGIN
26     SELECT
27       USER_NAME
28     INTO USERNAME
29     FROM
30       FND_USER
31     WHERE USER_ID = GMI_RILMS_XMLP_PKG.USER_ID;
32     RETURN (USERNAME);
33   END USERCFFORMULA;
34 
35   FUNCTION FROM_ITEMCFFORMULA RETURN VARCHAR2 IS
36   BEGIN
37     IF FROM_ITEM IS NULL THEN
38       SELECT
39         'All'
40       INTO FROM_ITEMCP
41       FROM
42         DUAL;
43     ELSE
44       FROM_ITEMCP := FROM_ITEM;
45     END IF;
46     RETURN (FROM_ITEMCP);
47   END FROM_ITEMCFFORMULA;
48 
49   FUNCTION TO_ITEMCFFORMULA RETURN VARCHAR2 IS
50   BEGIN
51     IF TO_ITEM IS NULL THEN
52       SELECT
53         'All'
54       INTO TO_ITEMCP
55       FROM
56         DUAL;
57     ELSE
58       TO_ITEMCP := TO_ITEM;
59     END IF;
60     RETURN (TO_ITEMCP);
61   END TO_ITEMCFFORMULA;
62 
63   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
64   BEGIN
65     P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
66     /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
67     RETURN (TRUE);
68   END BEFOREREPORT;
69 
70   FUNCTION AFTERREPORT RETURN BOOLEAN IS
71   BEGIN
72     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
73     RETURN (TRUE);
74   END AFTERREPORT;
75 
76   FUNCTION FROM_ITEMCP_P RETURN VARCHAR2 IS
77   BEGIN
78     RETURN FROM_ITEMCP;
79   END FROM_ITEMCP_P;
80 
81   FUNCTION TO_ITEMCP_P RETURN VARCHAR2 IS
82   BEGIN
83     RETURN TO_ITEMCP;
84   END TO_ITEMCP_P;
85 
86 END GMI_RILMS_XMLP_PKG;
87