PACKAGE BODY: APPS.XLA_XLAALEXP_XMLP_PKG

Source

1 PACKAGE BODY XLA_XLAALEXP_XMLP_PKG AS
2 /* $Header: XLAALEXPB.pls 120.0 2007/12/27 11:32:48 vjaganat noship $ */
3 
4   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
5     L_REQ_ID NUMBER;
6     L_RETURN_STATUS VARCHAR2(30);
7   BEGIN
8     P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
9     XLA_UTILITY_PKG.ACTIVATE('SRS_DBP'
10                             ,'XLAALEXP');
11     XLA_ENVIRONMENT_PKG.REFRESH;
12     XLA_AAD_LOADER_UTIL_PVT.RESET_ERRORS(P_APPLICATION_ID => P_APPLICATION_ID
13                                         ,P_AMB_CONTEXT_CODE => P_AMB_CONTEXT_CODE
14                                         ,P_REQUEST_CODE => 'EXPORT');
15     XLA_AAD_EXPORT_PVT.EXPORT(P_API_VERSION => 1.0
16                              ,X_RETURN_STATUS => L_RETURN_STATUS
17                              ,P_APPLICATION_ID => P_APPLICATION_ID
18                              ,P_AMB_CONTEXT_CODE => P_AMB_CONTEXT_CODE
19                              ,P_DESTINATION_PATHNAME => P_DESTINATION_PATH
20                              ,P_VERSIONING_MODE => P_VERSIONING_MODE
21                              ,P_USER_VERSION => P_USER_VERSION
22                              ,P_VERSION_COMMENT => P_VERSION_COMMENT
23                              ,X_EXPORT_STATUS => CP_RET_CODE);
24     IF (CP_RET_CODE < 'SUCCESS') THEN
25       XLA_AAD_LOADER_UTIL_PVT.INSERT_ERRORS(P_APPLICATION_ID => P_APPLICATION_ID
26                                            ,P_AMB_CONTEXT_CODE => P_AMB_CONTEXT_CODE
27                                            ,P_REQUEST_CODE => 'EXPORT');
28     END IF;
29     SET_REPORT_CONSTANTS;
30     RETURN (TRUE);
31   EXCEPTION
32     WHEN OTHERS THEN
33       RAISE_APPLICATION_ERROR(-20101
34                              ,NULL);
35   END BEFOREREPORT;
36 
37   FUNCTION AFTERREPORT RETURN BOOLEAN IS
38     L_TEMP BOOLEAN;
39   BEGIN
40     IF CP_RET_CODE = 'WARNING' THEN
41       L_TEMP := FND_CONCURRENT.SET_COMPLETION_STATUS(STATUS => 'WARNING'
42                                                     ,MESSAGE => NULL);
43     ELSIF CP_RET_CODE = 'ERROR' THEN
44       L_TEMP := FND_CONCURRENT.SET_COMPLETION_STATUS(STATUS => 'ERROR'
45                                                     ,MESSAGE => NULL);
46     END IF;
47     XLA_UTILITY_PKG.DEACTIVATE('XLAALEXP');
48     RETURN (TRUE);
49   EXCEPTION
50     WHEN OTHERS THEN
51       XLA_UTILITY_PKG.DEACTIVATE('XLAALEXP');
52       RAISE_APPLICATION_ERROR(-20101
53                              ,NULL);
54   END AFTERREPORT;
55 
56   PROCEDURE SET_REPORT_CONSTANTS IS
57     CURSOR C IS
58       SELECT
59         APP.APPLICATION_NAME,
60         AMB.MEANING
61       FROM
62         FND_APPLICATION_VL APP,
63         XLA_LOOKUPS AMB
64       WHERE APP.APPLICATION_ID = P_APPLICATION_ID
65         AND LOOKUP_TYPE = 'XLA_AMB_CONTEXT_TYPE'
66         AND LOOKUP_CODE = P_AMB_CONTEXT_CODE;
67   BEGIN
68     OPEN C;
69     FETCH C
70      INTO
71        CP_APPLICATION_NAME
72        ,CP_AMB_CONTEXT;
73     CLOSE C;
74   END SET_REPORT_CONSTANTS;
75 
76   FUNCTION CP_RET_CODE_P RETURN VARCHAR2 IS
77   BEGIN
78     RETURN CP_RET_CODE;
79   END CP_RET_CODE_P;
80 
81   FUNCTION CP_REQ_ID_P RETURN NUMBER IS
82   BEGIN
83     RETURN CP_REQ_ID;
84   END CP_REQ_ID_P;
85 
86   FUNCTION CP_APPLICATION_NAME_P RETURN VARCHAR2 IS
87   BEGIN
88     RETURN CP_APPLICATION_NAME;
89   END CP_APPLICATION_NAME_P;
90 
91   FUNCTION CP_AMB_CONTEXT_P RETURN VARCHAR2 IS
92   BEGIN
93     RETURN CP_AMB_CONTEXT;
94   END CP_AMB_CONTEXT_P;
95 
96   FUNCTION CP_STATUS_P RETURN VARCHAR2 IS
97   BEGIN
98     RETURN CP_STATUS;
99   END CP_STATUS_P;
100 
101 END XLA_XLAALEXP_XMLP_PKG;
102