[Home] [Help]
PACKAGE BODY: APPS.PA_PAXPRFRP_XMLP_PKG
Source
1 PACKAGE BODY PA_PAXPRFRP_XMLP_PKG AS
2 /* $Header: PAXPRFRPB.pls 120.0 2008/01/02 11:51:26 krreddy noship $ */
3 FUNCTION AFTERREPORT RETURN BOOLEAN IS
4 X_RETURN_STATUS VARCHAR2(1);
5 X_MSG_COUNT NUMBER;
6 X_MSG_DATA VARCHAR2(250);
7 BEGIN
8 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
9 PA_FUND_REVAL_PVT.CLEAR_DISTRIBUTION_WARNINGS(P_REQUEST_ID => P_CONC_REQUEST_ID
10 ,X_RETURN_STATUS => X_RETURN_STATUS
11 ,X_MSG_COUNT => X_MSG_COUNT
12 ,X_MSG_DATA => X_MSG_DATA);
13 IF L_ERROR_FLAG = 'T' THEN
14 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
15 RETURN (FALSE);
16 END IF;
17 RETURN (TRUE);
18 END AFTERREPORT;
19
20 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
21 X_RETURN_STATUS VARCHAR2(1);
22 X_MSG_COUNT NUMBER;
23 X_MSG_DATA VARCHAR2(250);
24 BEGIN
25 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
26
27 P_THRU_DATE_DISP:= TO_CHAR(P_THRU_DATE,'DD-MON-YY');
28 P_RATE_DATE_DISP:= TO_CHAR(P_RATE_DATE,'DD-MON-YY');
29 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
30 /*SRW.USER_EXIT('FND GETPROFILE
31 NAME="PA_DEBUG_MODE"
32 FIELD=":p_debug_mode"
33 PRINT_ERROR="N"')*/NULL;
34 PA_FUND_REVAL_PVT.REVALUATE_FUNDING(P_PROJECT_ID => P_PROJECT_ID
35 ,P_PROJECT_TYPE_ID => P_PROJECT_TYPE_ID
36 ,P_FROM_PROJ_NUMBER => P_FROM_PROJ_NUMBER
37 ,P_TO_PROJ_NUMBER => P_TO_PROJ_NUMBER
38 ,P_THRU_DATE => P_THRU_DATE
39 ,P_RATE_TYPE => P_RATE_TYPE
40 ,P_RATE_DATE => P_RATE_DATE
41 ,P_BASELINE_FLAG => P_BASELINE_FLAG
42 ,P_DEBUG_MODE => P_DEBUG_MODE
43 ,P_RUN_MODE => P_RUN_MODE
44 ,X_RETURN_STATUS => X_RETURN_STATUS
45 ,X_MSG_COUNT => X_MSG_COUNT
46 ,X_MSG_DATA => X_MSG_DATA);
47 IF X_RETURN_STATUS <> 'S' THEN
48 L_ERROR_FLAG := 'T';
49 END IF;
50 RETURN (TRUE);
51 EXCEPTION
52 WHEN OTHERS THEN
53 /*SRW.MESSAGE(1
54 ,'From When-Others in Before Report')*/NULL;
55 /*SRW.MESSAGE(1
56 ,SQLERRM)*/NULL;
57 L_ERROR_FLAG := 'T';
58 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
59 END BEFOREREPORT;
60
61 FUNCTION CF_COMPANY_NAMEFORMULA RETURN CHAR IS
62 V_COMPANY_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
63 BEGIN
64 SELECT
65 GLB.NAME
66 INTO V_COMPANY_NAME
67 FROM
68 GL_SETS_OF_BOOKS GLB,
69 PA_IMPLEMENTATIONS PI
70 WHERE GLB.SET_OF_BOOKS_ID = PI.SET_OF_BOOKS_ID;
71 CP_COMPANY_NAME := V_COMPANY_NAME;
72 RETURN CP_COMPANY_NAME;
73 EXCEPTION
74 WHEN OTHERS THEN
75 RETURN CP_COMPANY_NAME;
76 END CF_COMPANY_NAMEFORMULA;
77
78 FUNCTION CF_BASELINE_FUNDINGFORMULA RETURN CHAR IS
79 V_MEANING VARCHAR2(80);
80 BEGIN
81 SELECT
82 MEANING
83 INTO V_MEANING
84 FROM
85 FND_LOOKUPS
86 WHERE LOOKUP_TYPE = 'YES_NO'
87 AND LOOKUP_CODE = P_BASELINE_FLAG;
88 CP_BASELINE_FUNDING := V_MEANING;
89 RETURN CP_BASELINE_FUNDING;
90 EXCEPTION
91 WHEN OTHERS THEN
92 RETURN CP_BASELINE_FUNDING;
93 END CF_BASELINE_FUNDINGFORMULA;
94
95 FUNCTION CF_PROJECT_TYPEFORMULA RETURN CHAR IS
96 V_PROJECT_TYPE VARCHAR2(20);
97 BEGIN
98 SELECT
99 PROJECT_TYPE
100 INTO V_PROJECT_TYPE
101 FROM
102 PA_PROJECT_TYPES
103 WHERE PROJECT_TYPE_ID = P_PROJECT_TYPE_ID
104 AND DIRECT_FLAG = 'Y'
105 AND SYSDATE between START_DATE_ACTIVE
106 AND NVL(END_DATE_ACTIVE
107 ,SYSDATE);
108 CP_PROJECT_TYPE := V_PROJECT_TYPE;
109 RETURN CP_PROJECT_TYPE;
110 EXCEPTION
111 WHEN OTHERS THEN
112 RETURN CP_PROJECT_TYPE;
113 END CF_PROJECT_TYPEFORMULA;
114
115 FUNCTION CF_RATE_TYPEFORMULA RETURN CHAR IS
116 V_RATE_TYPE VARCHAR2(30);
117 BEGIN
118 SELECT
119 USER_CONVERSION_TYPE
120 INTO V_RATE_TYPE
121 FROM
122 PA_CONVERSION_TYPES_V
123 WHERE CONVERSION_TYPE = P_RATE_TYPE;
124 CP_RATE_TYPE := V_RATE_TYPE;
125 RETURN CP_RATE_TYPE;
126 EXCEPTION
127 WHEN OTHERS THEN
128 CP_RATE_TYPE := P_RATE_TYPE;
129 RETURN CP_RATE_TYPE;
130 END CF_RATE_TYPEFORMULA;
131
132 FUNCTION CF_PROJECT_NUMBERFORMULA RETURN CHAR IS
133 V_PROJECT_NUMBER VARCHAR2(25);
134 BEGIN
135 SELECT
136 SEGMENT1
137 INTO V_PROJECT_NUMBER
138 FROM
139 PA_PROJECTS
140 WHERE PROJECT_ID = P_PROJECT_ID;
141 CP_PROJECT_NUMBER := V_PROJECT_NUMBER;
142 RETURN CP_PROJECT_NUMBER;
143 EXCEPTION
144 WHEN OTHERS THEN
145 RETURN CP_PROJECT_NUMBER;
146 END CF_PROJECT_NUMBERFORMULA;
147
148 FUNCTION CP_COMPANY_NAME_P RETURN VARCHAR2 IS
149 BEGIN
150 RETURN CP_COMPANY_NAME;
151 END CP_COMPANY_NAME_P;
152
153 FUNCTION CP_NODATAFOUND_P RETURN VARCHAR2 IS
154 BEGIN
155 RETURN CP_NODATAFOUND;
156 END CP_NODATAFOUND_P;
157
158 FUNCTION CP_PROJECT_NUMBER_P RETURN VARCHAR2 IS
159 BEGIN
160 RETURN CP_PROJECT_NUMBER;
161 END CP_PROJECT_NUMBER_P;
162
163 FUNCTION CP_PROJECT_TYPE_P RETURN VARCHAR2 IS
164 BEGIN
165 RETURN CP_PROJECT_TYPE;
166 END CP_PROJECT_TYPE_P;
167
168 FUNCTION CP_RATE_TYPE_P RETURN VARCHAR2 IS
169 BEGIN
170 RETURN CP_RATE_TYPE;
171 END CP_RATE_TYPE_P;
172
173 FUNCTION CP_BASELINE_FUNDING_P RETURN VARCHAR2 IS
174 BEGIN
175 RETURN CP_BASELINE_FUNDING;
176 END CP_BASELINE_FUNDING_P;
177
178 END PA_PAXPRFRP_XMLP_PKG;
179