PACKAGE BODY: APPS.GMI_RILIN_XMLP_PKG

Source

1 PACKAGE BODY GMI_RILIN_XMLP_PKG AS
2 /* $Header: RILINB.pls 120.0 2007/12/24 13:22:29 nchinnam noship $ */
3   FUNCTION RANGE1CFFORMULA RETURN VARCHAR2 IS
4     RANGEV VARCHAR2(300);
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 = USER_ID_1;
32     RETURN (USERNAME);
33   END USERCFFORMULA;
34 
35   FUNCTION ALLCFFORMULA RETURN VARCHAR2 IS
36   BEGIN
37     IF FROM_WHSE IS NULL THEN
38       SELECT
39         'All'
40       INTO FROM_WHSECP
41       FROM
42         DUAL;
43     ELSE
44       FROM_WHSECP := FROM_WHSE;
45     END IF;
46     RETURN (FROM_WHSECP);
47   END ALLCFFORMULA;
48 
49   FUNCTION TO_WHSECFFORMULA RETURN VARCHAR2 IS
50   BEGIN
51     IF FROM_ITEM IS NULL THEN
52       SELECT
53         'All'
54       INTO FROM_ITEMCP
55       FROM
56         DUAL;
57     ELSE
58       FROM_ITEMCP := FROM_ITEM;
59     END IF;
60     RETURN (FROM_ITEMCP);
61   END TO_WHSECFFORMULA;
62 
63   FUNCTION FROM_ITEMCFFORMULA RETURN VARCHAR2 IS
64   BEGIN
65     IF TO_WHSE IS NULL THEN
66       SELECT
67         'All'
68       INTO TO_WHSECP
69       FROM
70         DUAL;
71     ELSE
72       TO_WHSECP := TO_WHSE;
73     END IF;
74     RETURN (TO_WHSECP);
75   END FROM_ITEMCFFORMULA;
76 
77   FUNCTION TO_ITEMCFFORMULA RETURN VARCHAR2 IS
78   BEGIN
79     IF TO_ITEM IS NULL THEN
80       SELECT
81         'All'
82       INTO TO_ITEMCP
83       FROM
84         DUAL;
85     ELSE
86       TO_ITEMCP := TO_ITEM;
87     END IF;
88     RETURN (TO_ITEMCP);
89   END TO_ITEMCFFORMULA;
90 
91   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
92   BEGIN
93 
94     P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
95     /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
96     RETURN (TRUE);
97   END BEFOREREPORT;
98 
99   FUNCTION AFTERPFORM RETURN BOOLEAN IS
100   BEGIN
101   USER_ID_1:=USER_ID;
102     DEFLOT := FND_PROFILE.VALUE('IC$DEFAULT_LOT');
103     RETURN (TRUE);
104   END AFTERPFORM;
105 
106   PROCEDURE HEADER IS
107   BEGIN
108     NULL;
109   END HEADER;
110 
111   FUNCTION AFTERREPORT RETURN BOOLEAN IS
112   BEGIN
113     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
114     RETURN (TRUE);
115   END AFTERREPORT;
116 
117   FUNCTION FROM_WHSECP_P RETURN VARCHAR2 IS
118   BEGIN
119     RETURN FROM_WHSECP;
120   END FROM_WHSECP_P;
121 
122   FUNCTION FROM_ITEMCP_P RETURN VARCHAR2 IS
123   BEGIN
124     RETURN FROM_ITEMCP;
125   END FROM_ITEMCP_P;
126 
127   FUNCTION TO_ITEMCP_P RETURN VARCHAR2 IS
128   BEGIN
129     RETURN TO_ITEMCP;
130   END TO_ITEMCP_P;
131 
132   FUNCTION TO_WHSECP_P RETURN VARCHAR2 IS
133   BEGIN
134     RETURN TO_WHSECP;
135   END TO_WHSECP_P;
136 
137 END GMI_RILIN_XMLP_PKG;
138