PACKAGE BODY: APPS.XTR_XTRAUSRM_XMLP_PKG

Source

1 PACKAGE BODY XTR_XTRAUSRM_XMLP_PKG AS
2 /* $Header: XTRAUSRMB.pls 120.1 2007/12/28 12:42:04 npannamp noship $ */
3   FUNCTION CF_SET_PARAFORMULA RETURN VARCHAR2 IS
4   BEGIN
5     SELECT
6       SUBSTR(USER
7             ,1
8             ,10)
9     INTO CP_PARA
10     FROM
11       DUAL;
12     RETURN (CP_PARA);
13   END CF_SET_PARAFORMULA;
14 
15   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
16     L_DMMY_NUM NUMBER;
17     CURSOR GET_LANGUAGE_DESC IS
18       SELECT
19         ITEM_NAME,
20         TEXT LANG_NAME
21       FROM
22         XTR_SYS_LANGUAGES_VL
23       WHERE MODULE_NAME = nvl(P_REPORT_NOS,'XTRAUSRM');
24   BEGIN
25     P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
26     /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
27     FOR c IN GET_LANGUAGE_DESC LOOP
28       IF C.ITEM_NAME = 'Z1AUDIT_REQUESTS_FROM' THEN
29         Z1AUDIT_REQUESTS_FROM := C.LANG_NAME;
30       ELSIF C.ITEM_NAME = 'Z1AUDIT_REQUESTS_TO' THEN
31         Z1AUDIT_REQUESTS_TO := C.LANG_NAME;
32       ELSIF C.ITEM_NAME = 'Z1COLUMN_CHANGED' THEN
33         Z1COLUMN_CHANGED := C.LANG_NAME;
34       ELSIF C.ITEM_NAME = 'Z1EVENT_TYPE' THEN
35         Z1EVENT_TYPE := C.LANG_NAME;
36       ELSIF C.ITEM_NAME = 'Z1PARAMETERS' THEN
37         Z1PARAMETERS := C.LANG_NAME;
38       ELSIF C.ITEM_NAME = 'Z1REPORT_NOS' THEN
39         Z1REPORT_NOS := C.LANG_NAME;
40       ELSIF C.ITEM_NAME = 'Z1REFERENCE_CODE' THEN
41         Z1REFERENCE_CODE := C.LANG_NAME;
42       ELSIF C.ITEM_NAME = 'Z1UPDATED_BY' THEN
43         Z1UPDATED_BY := C.LANG_NAME;
44       ELSIF C.ITEM_NAME = 'Z2END_OF_REPORT' THEN
45         Z2END_OF_REPORT := C.LANG_NAME;
46       ELSIF C.ITEM_NAME = 'Z2EVENT_TYPE' THEN
47         Z2EVENT_TYPE := C.LANG_NAME;
48       ELSIF C.ITEM_NAME = 'Z2NAME_OF_COLUMN_CHANGED' THEN
49         Z2NAME_OF_COLUMN_CHANGED := C.LANG_NAME;
50       ELSIF C.ITEM_NAME = 'Z2NEW_VALUE' THEN
51         Z2NEW_VALUE := C.LANG_NAME;
52       ELSIF C.ITEM_NAME = 'Z2ORIGINAL_VALUE' THEN
53         Z2ORIGINAL_VALUE := C.LANG_NAME;
54       ELSIF C.ITEM_NAME = 'Z2REFERENCE_CODE' THEN
55         Z2REFERENCE_CODE := C.LANG_NAME;
56       ELSIF C.ITEM_NAME = 'Z2UPDATED_BY' THEN
57         Z2UPDATED_BY := C.LANG_NAME;
58       ELSIF C.ITEM_NAME = 'Z2UPDATE_DATE_TIME' THEN
59         Z2UPDATE_DATE_TIME := C.LANG_NAME;
60       ELSIF C.ITEM_NAME = 'Z2PAGE' THEN
61         Z2PAGE := C.LANG_NAME;
62       ELSIF C.ITEM_NAME = 'Z2REPORT' THEN
63         Z2REPORT := C.LANG_NAME;
64       ELSIF C.ITEM_NAME = 'Z2REQUESTED_BY' THEN
65         Z2REQUESTED_BY := C.LANG_NAME;
66       END IF;
67     END LOOP;
68     RETURN (TRUE);
69   END BEFOREREPORT;
70 
71   FUNCTION AFTERPFORM RETURN BOOLEAN IS
72   BEGIN
73     P_A_REQUEST_FROM := TO_CHAR(TO_DATE(P_AUDIT_REQUEST_FROM
74                                            ,'YYYY/MM/DD HH24:MI:SS')
75                                    ,'DD-MON-YYYY');
76     P_A_REQUEST_TO := TO_CHAR(TO_DATE(P_AUDIT_REQUEST_TO
77                                          ,'YYYY/MM/DD HH24:MI:SS')
78                                  ,'DD-MON-YYYY');
79     /* P_A_REQUEST_FROM := P_AUDIT_REQUEST_FROM;
80     P_A_REQUEST_TO := P_AUDIT_REQUEST_TO;*/
81     RETURN (TRUE);
82   END AFTERPFORM;
83 
84   FUNCTION AFTERREPORT RETURN BOOLEAN IS
85   BEGIN
86     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
87     RETURN (TRUE);
88   END AFTERREPORT;
89 
90   FUNCTION CP_PARA_P RETURN VARCHAR2 IS
91   BEGIN
92     RETURN CP_PARA;
93   END CP_PARA_P;
94 
95 END XTR_XTRAUSRM_XMLP_PKG;
96