1 PACKAGE BODY PA_PACCGLER_XMLP_PKG AS
2 /* $Header: PACCGLERB.pls 120.0 2008/01/02 10:52:22 krreddy noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
6 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
7 /*SRW.USER_EXIT('FND GETPROFILE
8 NAME="USER_ID"
9 FIELD=":P_user_id"
10 PRINT_ERROR="N"')*/NULL;
11 P_DEBUG_MODE := FND_PROFILE.VALUE('PA_DEBUG_MODE');
12 SELECT
13 ORG_ID,
14 SET_OF_BOOKS_ID
15 INTO P_ORG_ID,P_SOB_ID
16 FROM
17 PA_IMPLEMENTATIONS;
18 SELECT
19 START_DATE,
20 END_DATE
21 INTO P_FIRST_DATE,P_LAST_DATE
22 FROM
23 GL_PERIOD_STATUSES
24 WHERE APPLICATION_ID = 101
25 AND SET_OF_BOOKS_ID = P_SOB_ID
26 AND PERIOD_NAME = P_GL_PERIOD;
27 GET_COMPANY_NAME;
28 IF P_MODE = 'S' THEN
29 PA_XLA_SWEEP_TXN_PKG.SWEEP_TXNS(P_ORG_ID => P_ORG_ID
30 ,P_GL_PERIOD => P_GL_PERIOD
31 ,P_TRAN_TYPE => P_TRAN_TYPE);
32 END IF;
33 RETURN (TRUE);
34 END BEFOREREPORT;
35
36 FUNCTION AFTERREPORT RETURN BOOLEAN IS
37 BEGIN
38 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
39 RETURN (TRUE);
40 END AFTERREPORT;
41
42 PROCEDURE GET_COMPANY_NAME IS
43 L_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
44 BEGIN
45 SELECT
46 GL.NAME
47 INTO L_NAME
48 FROM
49 GL_SETS_OF_BOOKS GL,
50 PA_IMPLEMENTATIONS PI
51 WHERE GL.SET_OF_BOOKS_ID = PI.SET_OF_BOOKS_ID;
52 C_COMPANY_NAME_HEADER := L_NAME;
53 EXCEPTION
54 WHEN OTHERS THEN
55 NULL;
56 END GET_COMPANY_NAME;
57
58 FUNCTION CF_REPORT_DATEFORMULA RETURN DATE IS
59 BEGIN
60 RETURN (SYSDATE);
61 END CF_REPORT_DATEFORMULA;
62
63 FUNCTION CF_TRAN_TYPEFORMULA RETURN CHAR IS
64 L_TRAN_TYPE VARCHAR2(20);
65 BEGIN
66 IF P_TRAN_TYPE IS NOT NULL THEN
67 SELECT
68 MEANING
69 INTO L_TRAN_TYPE
70 FROM
71 PA_LOOKUPS
72 WHERE LOOKUP_TYPE = 'PROJECT PROCESS ENTITIES'
73 AND LOOKUP_CODE = P_TRAN_TYPE;
74 ELSE
75 L_TRAN_TYPE := NULL;
76 END IF;
77 RETURN (L_TRAN_TYPE);
78 END CF_TRAN_TYPEFORMULA;
79
80 FUNCTION C_LEGAL_ENTITYFORMULA RETURN CHAR IS
81 L_LEGAL_ENTITY_NAME VARCHAR2(240);
82 BEGIN
83 SELECT
84 NAME
85 INTO L_LEGAL_ENTITY_NAME
86 FROM
87 XLE_ENTITY_PROFILES XEP,
88 HR_ORGANIZATION_INFORMATION HRI
89 WHERE LEGAL_ENTITY_ID = HRI.ORG_INFORMATION2
90 AND ORGANIZATION_ID = P_ORG_ID
91 AND ORG_INFORMATION_CONTEXT = 'Operating Unit Information';
92 RETURN (L_LEGAL_ENTITY_NAME);
93 EXCEPTION
94 WHEN OTHERS THEN
95 RETURN (NULL);
96 END C_LEGAL_ENTITYFORMULA;
97
98 FUNCTION C_CURR_CODEFORMULA RETURN CHAR IS
99 L_CURR_CODE VARCHAR2(100);
100 BEGIN
101 SELECT
102 GL.CURRENCY_CODE
103 INTO L_CURR_CODE
104 FROM
105 GL_SETS_OF_BOOKS GL,
106 PA_IMPLEMENTATIONS IMP
107 WHERE IMP.SET_OF_BOOKS_ID = GL.SET_OF_BOOKS_ID;
108 RETURN (L_CURR_CODE);
109 EXCEPTION
110 WHEN NO_DATA_FOUND THEN
111 RETURN (NULL);
112 END C_CURR_CODEFORMULA;
113
114 FUNCTION C_COMPANY_NAME_HEADER_P RETURN VARCHAR2 IS
115 BEGIN
116 RETURN C_COMPANY_NAME_HEADER;
117 END C_COMPANY_NAME_HEADER_P;
118
119 END PA_PACCGLER_XMLP_PKG;
120