[Home] [Help]
PACKAGE BODY: APPS.PA_PACCGLTR_XMLP_PKG
Source
1 PACKAGE BODY PA_PACCGLTR_XMLP_PKG AS
2 /* $Header: PACCGLTRB.pls 120.0 2008/01/02 10:53:10 krreddy noship $ */
3 FUNCTION CF_ACCOUNT_IDFORMULA(ACCOUNT_ID IN NUMBER) RETURN CHAR IS
4 BEGIN
5 RETURN FND_FLEX_EXT.GET_SEGS('SQLGL'
6 ,'GL#'
7 ,P_COA_ID
8 ,ACCOUNT_ID);
9 END CF_ACCOUNT_IDFORMULA;
10
11 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
12 BEGIN
13 DECLARE
14 V_DUMMY NUMBER;
15 V_COMPANY_NAME VARCHAR2(200);
16 NDF VARCHAR2(80);
17 V_PROCESS_MODE VARCHAR2(20) := 'REPORT';
18 X_RETCODE VARCHAR2(630) := NULL;
19 X_ERRBUF VARCHAR2(630);
20 NUMBER_OF_MESSAGES NUMBER;
21 MESSAGE_BUF VARCHAR2(2000);
22 V_CHART_OF_ACCOUNT_ID NUMBER;
23 INIT_FAILURE EXCEPTION;
24 BEGIN
25 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
26 P_END_GL_DATE_1:=to_char(P_END_GL_DATE,'DD-MON-YY');
27 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
28 IF NOT GET_COMPANY_NAME_CHART_OF_ACCT THEN
29 RAISE INIT_FAILURE;
30 END IF;
31 IF P_PROCESS_CATEGORY = 'BORROWED_LENT' THEN
32 P_GL_CATEGORY := 'BL';
33 ELSIF P_PROCESS_CATEGORY = 'PROVIDER_COST_RECLASS' THEN
34 P_GL_CATEGORY := 'PC';
35 END IF;
36 PA_CC_GL_TRANS_CCDS.TRANSFER_CCDS_TO_GL(P_GL_CATEGORY
37 ,P_EXPENDITURE_BATCH
38 ,P_START_PROJECT_NUMBER
39 ,P_END_PROJECT_NUMBER
40 ,P_END_GL_DATE
41 ,P_DEBUG_MODE
42 ,X_RETCODE
43 ,X_ERRBUF);
44 IF (X_RETCODE <> '0') THEN
45 /*SRW.MESSAGE('101'
46 ,X_ERRBUF)*/NULL;
47 NUMBER_OF_MESSAGES := PA_DEBUG.NO_OF_DEBUG_MESSAGES;
48 /*SRW.MESSAGE(1
49 ,'Debug Messages:')*/NULL;
50 FOR i IN 1 .. NUMBER_OF_MESSAGES LOOP
51 PA_DEBUG.GET_MESSAGE(I
52 ,MESSAGE_BUF);
53 /*SRW.MESSAGE(1
54 ,MESSAGE_BUF)*/NULL;
55 END LOOP;
56 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
57 END IF;
58 EXCEPTION
59 WHEN NO_DATA_FOUND THEN
60 SELECT
61 MEANING
62 INTO NDF
63 FROM
64 PA_LOOKUPS
65 WHERE LOOKUP_CODE = 'NO_DATA_FOUND'
66 AND LOOKUP_TYPE = 'MESSAGE';
67 CP_NODATAFOUND := NDF;
68 WHEN INIT_FAILURE THEN
69 /*SRW.MESSAGE('102'
70 ,'Unable to get the Title')*/NULL;
71 WHEN OTHERS THEN
72 X_RETCODE := SQLCODE;
73 X_ERRBUF := SQLERRM;
74 /*SRW.MESSAGE('101'
75 ,SUBSTR(X_ERRBUF
76 ,1
77 ,100))*/NULL;
78 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
79 END;
80 RETURN (TRUE);
81 END BEFOREREPORT;
82
83 FUNCTION CF_ACCOUNT_ID2FORMULA(ACCOUNT_ID2 IN NUMBER) RETURN CHAR IS
84 BEGIN
85 RETURN FND_FLEX_EXT.GET_SEGS('SQLGL'
86 ,'GL#'
87 ,P_COA_ID
88 ,ACCOUNT_ID2);
89 END CF_ACCOUNT_ID2FORMULA;
90
91 FUNCTION EXCEPTION_EXIST RETURN VARCHAR2 IS
92 EXCEP varchar2(10);
93 BEGIN
94 SELECT
95 'Y'
96 INTO EXCEP
97 FROM
98 DUAL
99 WHERE exists (
100 SELECT
101 'yes'
102 FROM
103 PA_CC_DIST_LINES
104 WHERE TRANSFER_STATUS_CODE = 'R'
105 AND REQUEST_ID = FND_GLOBAL.CONC_REQUEST_ID );
106 RETURN EXCEP;
107 EXCEPTION
108 WHEN NO_DATA_FOUND THEN
109 EXCEP := 'N';
110 RETURN EXCEP;
111 END EXCEPTION_EXIST;
112
113 FUNCTION SUCCESS_EXIST RETURN VARCHAR2 IS
114 SUCCESS varchar2(10);
115 BEGIN
116 SELECT
117 'Y'
118 INTO SUCCESS
119 FROM
120 DUAL
121 WHERE exists (
122 SELECT
123 'yes'
124 FROM
125 PA_CC_DIST_LINES
126 WHERE TRANSFER_STATUS_CODE = 'A'
127 AND REQUEST_ID = FND_GLOBAL.CONC_REQUEST_ID );
128 RETURN SUCCESS;
129 EXCEPTION
130 WHEN NO_DATA_FOUND THEN
131 SUCCESS := 'N';
132 RETURN SUCCESS;
133 END SUCCESS_EXIST;
134
135 FUNCTION GET_COMPANY_NAME_CHART_OF_ACCT RETURN BOOLEAN IS
136 V_DUMMY NUMBER;
137 V_COMPANY_NAME VARCHAR2(200);
138 BEGIN
139 SELECT
140 GLB.CHART_OF_ACCOUNTS_ID,
141 GLB.NAME
142 INTO V_DUMMY,V_COMPANY_NAME
143 FROM
144 GL_SETS_OF_BOOKS GLB,
145 PA_IMPLEMENTATIONS IMP
146 WHERE GLB.SET_OF_BOOKS_ID = IMP.SET_OF_BOOKS_ID;
147 P_COA_ID := V_DUMMY;
148 CP_COMPANY_NAME := V_COMPANY_NAME;
149 RETURN (TRUE);
150 EXCEPTION
151 WHEN OTHERS THEN
152 RETURN (FALSE);
153 END GET_COMPANY_NAME_CHART_OF_ACCT;
154
155 FUNCTION AFTERREPORT RETURN BOOLEAN IS
156 BEGIN
157 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
158 RETURN (TRUE);
159 END AFTERREPORT;
160
161 FUNCTION CF_CURRENCY_CODEFORMULA RETURN VARCHAR2 IS
162 L_CURR_CODE GL_SETS_OF_BOOKS.CURRENCY_CODE%TYPE;
163 BEGIN
164 RETURN (PA_MULTI_CURRENCY.GET_ACCT_CURRENCY_CODE);
165 END CF_CURRENCY_CODEFORMULA;
166
167 FUNCTION AFTERPFORM RETURN BOOLEAN IS
168 BEGIN
169 RETURN (TRUE);
170 END AFTERPFORM;
171
172 FUNCTION CP_COMPANY_NAME_P RETURN VARCHAR2 IS
173 BEGIN
174 RETURN CP_COMPANY_NAME;
175 END CP_COMPANY_NAME_P;
176
177 FUNCTION CP_NODATAFOUND_P RETURN VARCHAR2 IS
178 BEGIN
179 RETURN CP_NODATAFOUND;
180 END CP_NODATAFOUND_P;
181
182 END PA_PACCGLTR_XMLP_PKG;
183