[Home] [Help]
PACKAGE BODY: APPS.PA_PAUPGRRL_XMLP_PKG
Source
1 PACKAGE BODY PA_PAUPGRRL_XMLP_PKG AS
2 /* $Header: PAUPGRRLB.pls 120.2 2008/04/18 06:12:19 krreddy noship $ */
3 FUNCTION GET_COVER_PAGE_VALUES RETURN BOOLEAN IS
4 BEGIN
5 RETURN (TRUE);
6 EXCEPTION
7 WHEN OTHERS THEN
8 RETURN (FALSE);
9 END GET_COVER_PAGE_VALUES;
10
11 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
12 BEGIN
13 DECLARE
14 INIT_FAILURE EXCEPTION;
15 NDF VARCHAR2(80);
16 ERRBUF VARCHAR2(525);
17 MESSAGE_BUF VARCHAR2(256);
18 NUMBER_OF_MESSAGES NUMBER;
19 X_RETURN_STATUS VARCHAR2(1);
20 X_MSG_COUNT NUMBER;
21 X_MSG_DATA VARCHAR2(30);
22 BEGIN
23
24 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
25 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
26 /*SRW.USER_EXIT('FND GETPROFILE
27 NAME="PA_DEBUG_MODE"
28 FIELD=":p_debug_mode"
29 PRINT_ERROR="N"')*/
30 lp_debug_mode:=FND_PROFILE.VALUE('PA_DEBUG_MODE');
31 P_RULE_OPTIMIZER := FND_PROFILE.VALUE('PA_RULE_BASED_OPTIMIZER');
32 /* IF (GET_COMPANY_NAME <> TRUE) THEN
33 RAISE INIT_FAILURE;
34 END IF; */
35 IF (GET_RESOURCE_LIST_NAME <> TRUE) THEN
36 RAISE INIT_FAILURE;
37 END IF;
38 SELECT
39 MEANING
40 INTO NDF
41 FROM
42 PA_LOOKUPS
43 WHERE LOOKUP_CODE = 'NO_DATA_FOUND'
44 AND LOOKUP_TYPE = 'MESSAGE';
45 C_NO_DATA_FOUND := NDF;
46 /*SRW.MESSAGE(1
47 ,'Concurrent request id is ' || TO_CHAR(P_CONC_REQUEST_ID))*/NULL;
48 /*SRW.MESSAGE(1
49 ,'Calling Resource List Upgrade')*/NULL;
50 PA_RES_LIST_UPGRADE_PKG.RES_LIST_TO_PLAN_RES_LIST(P_RESOURCE_LIST
51 ,'T'
52 ,'T'
53 ,X_RETURN_STATUS
54 ,X_MSG_COUNT
55 ,X_MSG_DATA);
56 IF (C_RETCODE <> 0) THEN
57 /*SRW.MESSAGE(1,ERRBUF)*/NULL;
58 NUMBER_OF_MESSAGES := PA_DEBUG.NO_OF_DEBUG_MESSAGES;
59 IF (lp_debug_mode = 'Y' AND NUMBER_OF_MESSAGES > 0) THEN
60 /*SRW.MESSAGE(1
61 ,'Debug Messages:')*/NULL;
62 FOR i IN 1 .. NUMBER_OF_MESSAGES LOOP
63 PA_DEBUG.GET_MESSAGE(I
64 ,MESSAGE_BUF);
65 /*SRW.MESSAGE(1,MESSAGE_BUF)*/NULL;
66 END LOOP;
67 END IF;
68 END IF;
69 EXCEPTION
70 WHEN NO_DATA_FOUND THEN
71 SELECT
72 MEANING
73 INTO NDF
74 FROM
75 PA_LOOKUPS
76 WHERE LOOKUP_CODE = 'NO_DATA_FOUND'
77 AND LOOKUP_TYPE = 'MESSAGE';
78 C_NO_DATA_FOUND := NDF;
79 C_DUMMY_DATA := 1;
80 WHEN OTHERS THEN
81 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,SQLERRM);
82 END;
83 RETURN (TRUE);
84 END BEFOREREPORT;
85
86 /* FUNCTION GET_COMPANY_NAME RETURN BOOLEAN IS
87 L_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
88 BEGIN
89 SELECT
90 GL.NAME
91 INTO L_NAME
92 FROM
93 GL_SETS_OF_BOOKS GL,
94 PA_IMPLEMENTATIONS PI
95 WHERE GL.SET_OF_BOOKS_ID = PI.SET_OF_BOOKS_ID;
96 C_COMPANY_NAME_HEADER := L_NAME;
97 RETURN (TRUE);
98 EXCEPTION
99 WHEN OTHERS THEN
100 RETURN (FALSE);
101 END GET_COMPANY_NAME;
102 */
103 FUNCTION AFTERREPORT RETURN BOOLEAN IS
104 BEGIN
105 DECLARE
106 MESSAGE_BUF VARCHAR2(256);
107 NUMBER_OF_MESSAGES NUMBER;
108 ACCUM_ERROR EXCEPTION;
109 BEGIN
110 NUMBER_OF_MESSAGES := PA_DEBUG.NO_OF_DEBUG_MESSAGES;
111 IF (lp_debug_mode = 'Y' AND NUMBER_OF_MESSAGES > 0) THEN
112 /*SRW.MESSAGE(1
113 ,'Debug Messages:')*/NULL;
114 FOR i IN 1 .. NUMBER_OF_MESSAGES LOOP
115 PA_DEBUG.GET_MESSAGE(I
116 ,MESSAGE_BUF);
117 /*SRW.MESSAGE(1
118 ,MESSAGE_BUF)*/NULL;
119 END LOOP;
120 END IF;
121 EXCEPTION
122 WHEN OTHERS THEN
123 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
124 END;
125 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
126 RETURN (TRUE);
127 END AFTERREPORT;
128
129 FUNCTION GET_RESOURCE_LIST_NAME RETURN BOOLEAN IS
130 RL_NAME PA_RESOURCE_LISTS.NAME%TYPE;
131 BEGIN
132 IF (P_RESOURCE_LIST IS NOT NULL) THEN
133 SELECT
134 NAME
135 INTO RL_NAME
136 FROM
137 PA_RESOURCE_LISTS
138 WHERE RESOURCE_LIST_ID = P_RESOURCE_LIST;
139 C_RESOURCE_LIST := RL_NAME;
140 END IF;
141 RETURN (TRUE);
142 EXCEPTION
143 WHEN OTHERS THEN
144 RETURN (FALSE);
145 END GET_RESOURCE_LIST_NAME;
146
147 /* FUNCTION C_COMPANY_NAME_HEADER_P RETURN VARCHAR2 IS
148 BEGIN
149 RETURN C_COMPANY_NAME_HEADER;
150 END C_COMPANY_NAME_HEADER_P;
151 */
152 FUNCTION C_NO_DATA_FOUND_P RETURN VARCHAR2 IS
153 BEGIN
154 RETURN C_NO_DATA_FOUND;
155 END C_NO_DATA_FOUND_P;
156
157 FUNCTION C_DUMMY_DATA_P RETURN NUMBER IS
158 BEGIN
159 RETURN C_DUMMY_DATA;
160 END C_DUMMY_DATA_P;
161
162 FUNCTION C_RESOURCE_LIST_P RETURN VARCHAR2 IS
163 BEGIN
164 RETURN C_RESOURCE_LIST;
165 END C_RESOURCE_LIST_P;
166
167 FUNCTION C_RETCODE_P RETURN NUMBER IS
168 BEGIN
169 RETURN C_RETCODE;
170 END C_RETCODE_P;
171
172 END PA_PAUPGRRL_XMLP_PKG;
173