PACKAGE BODY: APPS.GMI_RIEDJL_XMLP_PKG

Source

1 PACKAGE BODY GMI_RIEDJL_XMLP_PKG AS
2 /* $Header: RIEDJLB.pls 120.0 2007/12/24 13:19:58 nchinnam noship $ */
3   FUNCTION SORTFFORMULA RETURN VARCHAR2 IS
4   BEGIN
5     /*SRW.REFERENCE(SORTCP)*/NULL;
6     IF SORT_ORDER1 = 'Journal Entry' THEN
7       SORTCP := 'organization_id, journal_no, doc_line';
8     ELSIF SORT_ORDER1 = 'Item No,Warehouse' THEN
9       SORTCP := 'organization_id, item_no, whse_code';
10       SORT_ORDER1 := 'Item Number,Warehouse';
11     ELSIF SORT_ORDER1 = 'Warehouse,Item No' THEN
12       SORTCP := 'organization_id, whse_code, item_no';
13       SORT_ORDER1 := 'Warehouse,Item Number';
14     ELSIF SORT_ORDER1 = 'Operator' THEN
15       SORTCP := 'orgn_code,doc_line,last_updated_by';
16     ELSE
17       SORTCP := 'orgn_code, journal_no, doc_line';
18     END IF;
19     RETURN NULL;
20   END SORTFFORMULA;
21 
22   FUNCTION USERCFFORMULA RETURN VARCHAR2 IS
23     USERNAME VARCHAR2(100);
24   BEGIN
25     SELECT
26       USER_NAME
27     INTO USERNAME
28     FROM
29       FND_USER
30     WHERE USER_ID = GMI_RIEDJL_XMLP_PKG.USER_ID;
31     RETURN (USERNAME);
32   END USERCFFORMULA;
33 
34   FUNCTION ORGNNAMECFFORMULA RETURN VARCHAR2 IS
35     ORGNNAME VARCHAR2(100);
36   BEGIN
37     SELECT
38       ORGN_NAME
39     INTO ORGNNAME
40     FROM
41       SY_ORGN_MST
42     WHERE ORGN_CODE = P_ORGN;
43     RETURN (ORGNNAME);
44   END ORGNNAMECFFORMULA;
45 
46   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
47   BEGIN
48   SORT_ORDER1:=SORT_ORDER;
49     P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
50     /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
51     RETURN (TRUE);
52   END BEFOREREPORT;
53 
54   FUNCTION USERNAME_FORMULAFORMULA(LAST_UPDATED_BY1 IN NUMBER) RETURN VARCHAR2 IS
55     UNAME VARCHAR2(100);
56   BEGIN
57     SELECT
58       USER_NAME
59     INTO UNAME
60     FROM
61       FND_USER
62     WHERE USER_ID = LAST_UPDATED_BY1;
63     RETURN (UNAME);
64   END USERNAME_FORMULAFORMULA;
65 
66   PROCEDURE HEADER IS
67   BEGIN
68     NULL;
69   END HEADER;
70 
71   FUNCTION AFTERREPORT RETURN BOOLEAN IS
72   BEGIN
73     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
74     RETURN (TRUE);
75   END AFTERREPORT;
76 
77   FUNCTION SORTCP_P RETURN VARCHAR2 IS
78   BEGIN
79     RETURN SORTCP;
80   END SORTCP_P;
81 
82 END GMI_RIEDJL_XMLP_PKG;
83