1 PACKAGE BODY GMI_RILSM_XMLP_PKG AS
2 /* $Header: RILSMB.pls 120.0 2007/12/24 13:27:19 nchinnam noship $ */
3 FUNCTION RANGECFFORMULA RETURN VARCHAR2 IS
4 RANGE_STATUS VARCHAR2(50);
5 BEGIN
6 SELECT
7 DECODE(FROM_STATUS
8 ,NULL
9 ,DECODE(TO_STATUS
10 ,NULL
11 ,'Status Range All'
12 ,' Status Range All - ' || TO_STATUS)
13 ,DECODE(TO_STATUS
14 ,NULL
15 ,'Status Range ' || FROM_STATUS || ' - All '
16 ,'Status Range ' || FROM_STATUS || ' - ' || TO_STATUS))
17 INTO RANGE_STATUS
18 FROM
19 DUAL;
20 RETURN (RANGE_STATUS);
21 END RANGECFFORMULA;
22
23 FUNCTION ORDERCFFORMULA RETURN VARCHAR2 IS
24 ORDER_CF VARCHAR2(5);
25 BEGIN
26 SELECT
27 'Asc'
28 INTO ORDER_CF
29 FROM
30 DUAL
31 WHERE ORDER1 = 'Ascending';
32 RETURN (ORDER_CF);
33 RETURN 'Asc';
34 EXCEPTION
35 WHEN NO_DATA_FOUND THEN
36 ORDER_CF := 'Desc';
37 RETURN (ORDER_CF);
38 END ORDERCFFORMULA;
39
40 FUNCTION USERCFFORMULA RETURN VARCHAR2 IS
41 USERNAME VARCHAR2(100);
42 BEGIN
43 SELECT
44 USER_NAME
45 INTO USERNAME
46 FROM
47 FND_USER
48 WHERE USER_ID = USER_ID_1;
49 RETURN (USERNAME);
50 END USERCFFORMULA;
51
52 FUNCTION FROM_ITEMCFFORMULA RETURN VARCHAR2 IS
53 BEGIN
54 IF FROM_STATUS IS NULL THEN
55 SELECT
56 'All'
57 INTO FROM_STATUSCP
58 FROM
59 DUAL;
60 ELSE
61 FROM_STATUSCP := FROM_STATUS;
62 END IF;
63 RETURN (FROM_STATUSCP);
64 END FROM_ITEMCFFORMULA;
65
66 FUNCTION TO_STATUSCFFORMULA RETURN VARCHAR2 IS
67 BEGIN
68 IF TO_STATUS IS NULL THEN
69 SELECT
70 'All'
71 INTO TO_STATUSCP
72 FROM
73 DUAL;
74 ELSE
75 TO_STATUSCP := TO_STATUS;
76 END IF;
77 RETURN (TO_STATUSCP);
78 END TO_STATUSCFFORMULA;
79
80 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
81 BEGIN
82 USER_ID_1:=USER_ID;
83 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
84 select argument4 into order1 from FND_CONCURRENT_REQUESTS
85 where request_id =P_CONC_REQUEST_ID;
86 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
87 RETURN (TRUE);
88 END BEFOREREPORT;
89
90 FUNCTION AFTERREPORT RETURN BOOLEAN IS
91 BEGIN
92 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
93 RETURN (TRUE);
94 END AFTERREPORT;
95
96 FUNCTION FROM_STATUSCP_P RETURN VARCHAR2 IS
97 BEGIN
98 RETURN FROM_STATUSCP;
99 END FROM_STATUSCP_P;
100
101 FUNCTION TO_STATUSCP_P RETURN VARCHAR2 IS
102 BEGIN
103 RETURN TO_STATUSCP;
104 END TO_STATUSCP_P;
105
106 END GMI_RILSM_XMLP_PKG;
107