DBA Data[Home] [Help]

APPS.PA_BILLING_PROCESS_PKG dependencies on PA_MCB_INVOICE_PKG

Line 57: PA_MCB_INVOICE_PKG.log_message('... Enter the procedure pa_process_rev_adj');

53: AND dr.generation_error_flag = decode(pmass_gen, 1, 'Y',dr.generation_error_flag);
54:
55:
56: BEGIN
57: PA_MCB_INVOICE_PKG.log_message('... Enter the procedure pa_process_rev_adj');
58: IF pmass_gen =1 THEN
59: mass_gen := 'N';
60: ELSE
61: mass_gen := 'E';

Line 70: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Start Projects Loop');

66: ELSE
67: acc_thru_dt := pacc_thru_dt;
68: END IF;
69: IF pa_debug_mode = 'Y' THEN
70: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Start Projects Loop');
71: END IF;
72: FOR Rproj IN Cproj
73: LOOP
74: -- project loop

Line 76: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Project Id :'||Rproj.project_id);

72: FOR Rproj IN Cproj
73: LOOP
74: -- project loop
75: IF pa_debug_mode = 'Y' THEN
76: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Project Id :'||Rproj.project_id);
77: END IF;
78: projectstatus := FALSE;
79: OPEN cspf(Rproj.project_id);
80: FETCH cspf INTO temp;

Line 84: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Funding available ');

80: FETCH cspf INTO temp;
81: IF cspf%FOUND THEN
82: projectstatus := TRUE;
83: IF pa_debug_mode = 'Y' THEN
84: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Funding available ');
85: END IF;
86: ELSE
87: IF pa_debug_mode = 'Y' THEN
88: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Funding not available');

Line 88: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Funding not available');

84: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Funding available ');
85: END IF;
86: ELSE
87: IF pa_debug_mode = 'Y' THEN
88: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Funding not available');
89: END IF;
90: END IF;
91: CLOSE cspf;
92: IF projectstatus THEN

Line 104: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Start task Loop');

100: IF projectstatus THEN
101: status := FALSE;
102: distribution_rule := SUBSTR(Rproj.distribution_rule,1,4);
103: IF pa_debug_mode = 'Y' THEN
104: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Start task Loop');
105: END IF;
106: FOR Rtask IN ctask(Rproj.project_id)
107: LOOP
108: -- task loop

Line 110: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Task Id :'||Rtask.task_id);

106: FOR Rtask IN ctask(Rproj.project_id)
107: LOOP
108: -- task loop
109: IF pa_debug_mode = 'Y' THEN
110: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Task Id :'||Rtask.task_id);
111: END IF;
112: IF NOT (Rproj.enable_top_task_inv_mth_flag = 'N'
113: AND Rproj.distribution_rule = 'EVENT/EVENT'
114: )

Line 118: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Checking for EIs');

114: )
115: AND Rtask.chargeable_flag = 'Y' THEN
116: -- for expenditures
117: IF pa_debug_mode = 'Y' THEN
118: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Checking for EIs');
119: END IF;
120: BEGIN
121: SELECT 1
122: INTO temp

Line 154: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:EI found');

150: AND ei2.raw_revenue = 0
151: )
152: );
153: IF pa_debug_mode = 'Y' THEN
154: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:EI found');
155: END IF;
156: status := TRUE;
157: EXCEPTION
158: WHEN NO_DATA_FOUND THEN

Line 160: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:EI not found');

156: status := TRUE;
157: EXCEPTION
158: WHEN NO_DATA_FOUND THEN
159: IF pa_debug_mode = 'Y' THEN
160: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:EI not found');
161: END IF;
162: status := FALSE;
163: END;
164: END IF;

Line 168: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Check for Events');

164: END IF;
165: IF (NOT status AND Rtask.task_id=Rtask.top_task_id) THEN
166: -- for events
167: IF pa_debug_mode = 'Y' THEN
168: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Check for Events');
169: END IF;
170: BEGIN
171: SELECT 1
172: INTO temp

Line 203: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Event found');

199: AND decode(drx.generation_error_flag,mass_gen,decode(drx.released_date,NULL,1,0),0)
200: = decode(drx.released_date,NULL,1,0)
201: );
202: IF pa_debug_mode = 'Y' THEN
203: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Event found');
204: END IF;
205: status := TRUE;
206: EXCEPTION
207: WHEN NO_DATA_FOUND THEN

Line 209: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Event not found');

205: status := TRUE;
206: EXCEPTION
207: WHEN NO_DATA_FOUND THEN
208: IF pa_debug_mode = 'Y' THEN
209: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Event not found');
210: END IF;
211: status := FALSE;
212: END;
213: END IF;

Line 220: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:End task Loop');

216: EXIT;
217: END IF;
218: END LOOP; -- task loop
219: IF pa_debug_mode = 'Y' THEN
220: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:End task Loop');
221: END IF;
222: IF NOT status THEN
223: IF pa_debug_mode = 'Y' THEN
224: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:checking for Project level events');

Line 224: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:checking for Project level events');

220: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:End task Loop');
221: END IF;
222: IF NOT status THEN
223: IF pa_debug_mode = 'Y' THEN
224: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:checking for Project level events');
225: END IF;
226: -- For project level events
227: BEGIN
228: SELECT 1

Line 259: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Project level Event found');

255: AND decode(drx.generation_error_flag,mass_gen,decode(drx.released_date,NULL,1,0),0)
256: = decode(drx.released_date,NULL,1,0)
257: );
258: IF pa_debug_mode = 'Y' THEN
259: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Project level Event found');
260: END IF;
261: status := TRUE;
262: EXCEPTION
263: WHEN NO_DATA_FOUND THEN

Line 265: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Project level Event not found');

261: status := TRUE;
262: EXCEPTION
263: WHEN NO_DATA_FOUND THEN
264: IF pa_debug_mode = 'Y' THEN
265: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Project level Event not found');
266: END IF;
267: status := FALSE;
268: END;
269: END IF;

Line 272: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Checking for Billing extensions');

268: END;
269: END IF;
270: IF NOT status THEN
271: IF pa_debug_mode = 'Y' THEN
272: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Checking for Billing extensions');
273: END IF;
274: --Billing extension
275: BEGIN
276: SELECT 1

Line 293: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Billing extensions Found');

289: AND be.call_after_adj_flag = 'Y'
290: AND be.trx_independent_flag = 'Y'
291: );
292: IF pa_debug_mode = 'Y' THEN
293: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Billing extensions Found');
294: END IF;
295: status := TRUE;
296: EXCEPTION
297: WHEN NO_DATA_FOUND THEN

Line 299: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Billing extensions Not Found');

295: status := TRUE;
296: EXCEPTION
297: WHEN NO_DATA_FOUND THEN
298: IF pa_debug_mode = 'Y' THEN
299: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Billing extensions Not Found');
300: END IF;
301: status := FALSE;
302: END;
303: END IF;

Line 306: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Inserting project id :'||Rproj.project_id);

302: END;
303: END IF;
304: IF status THEN
305: IF pa_debug_mode = 'Y' THEN
306: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Inserting project id :'||Rproj.project_id);
307: END IF;
308: INSERT INTO PA_BILLING_PROCESS_GT(project_id,request_id,process)
309: VALUES(Rproj.project_id,g_request_id,'REV_ADJ');
310: --insert record

Line 315: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:End task Loop');

311: END IF;
312: END IF; -- If projectstatus then
313: END LOOP; -- project loop
314: IF pa_debug_mode = 'Y' THEN
315: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:End task Loop');
316: END IF;
317: PA_MCB_INVOICE_PKG.log_message('... Leaving the procedure pa_process_rev_adj');
318: END PA_PROCESS_REV_ADJ;
319: END PA_BILLING_PROCESS_PKG;

Line 317: PA_MCB_INVOICE_PKG.log_message('... Leaving the procedure pa_process_rev_adj');

313: END LOOP; -- project loop
314: IF pa_debug_mode = 'Y' THEN
315: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:End task Loop');
316: END IF;
317: PA_MCB_INVOICE_PKG.log_message('... Leaving the procedure pa_process_rev_adj');
318: END PA_PROCESS_REV_ADJ;
319: END PA_BILLING_PROCESS_PKG;