DBA Data[Home] [Help]

APPS.PA_BILLING_PROCESS_PKG dependencies on PA_MCB_INVOICE_PKG

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

68: v_inv_cursor cur_type;
69: rproj pa_projects_all%ROWTYPE;
70: --Bug13600015 End here
71: BEGIN
72: PA_MCB_INVOICE_PKG.log_message('... Enter the procedure pa_process_rev_adj');
73:
74: --Bug 13600015 Below lines added
75: v_inv_query1 := 'SELECT p.*'||' FROM pa_projects p, pa_project_types t '||
76: 'WHERE ((segment1 BETWEEN :pfrmprj AND :ptoprj )'||

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

125: ELSE
126: acc_thru_dt := pacc_thru_dt;
127: END IF;
128: IF pa_debug_mode = 'Y' THEN
129: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Start Projects Loop');
130: END IF;
131: --Bug13600015 Added below lines
132: PA_MCB_INVOICE_PKG.log_message('Dynamic Query '||v_inv_query1);
133: Open v_inv_cursor for v_inv_query1 using pfromproj, ptoproj, pproject_id;

Line 132: PA_MCB_INVOICE_PKG.log_message('Dynamic Query '||v_inv_query1);

128: IF pa_debug_mode = 'Y' THEN
129: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Start Projects Loop');
130: END IF;
131: --Bug13600015 Added below lines
132: PA_MCB_INVOICE_PKG.log_message('Dynamic Query '||v_inv_query1);
133: Open v_inv_cursor for v_inv_query1 using pfromproj, ptoproj, pproject_id;
134:
135: --FOR Rproj IN Cproj
136: --Bug13600015 End here

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

141: EXIT WHEN v_inv_cursor%NOTFOUND;
142: --Bug13600015 End here
143:
144: IF pa_debug_mode = 'Y' THEN
145: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Project Id :'||Rproj.project_id);
146: END IF;
147: projectstatus := FALSE;
148: OPEN cspf(Rproj.project_id);
149: FETCH cspf INTO temp;

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

149: FETCH cspf INTO temp;
150: IF cspf%FOUND THEN
151: projectstatus := TRUE;
152: IF pa_debug_mode = 'Y' THEN
153: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Funding available ');
154: END IF;
155: ELSE
156: IF pa_debug_mode = 'Y' THEN
157: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Funding not available');

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

153: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Funding available ');
154: END IF;
155: ELSE
156: IF pa_debug_mode = 'Y' THEN
157: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Funding not available');
158: END IF;
159: END IF;
160: CLOSE cspf;
161: IF projectstatus THEN

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

169: IF projectstatus THEN
170: status := FALSE;
171: distribution_rule := SUBSTR(Rproj.distribution_rule,1,4);
172: IF pa_debug_mode = 'Y' THEN
173: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Start task Loop');
174: END IF;
175: /* FOR Rtask IN ctask(Rproj.project_id)
176: LOOP commented for bug 8813330*/
177: -- task loop

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

175: /* FOR Rtask IN ctask(Rproj.project_id)
176: LOOP commented for bug 8813330*/
177: -- task loop
178: /* IF pa_debug_mode = 'Y' THEN
179: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Task Id :'||Rtask.task_id);
180: END IF; commented for bug 8813330*/
181: /* IF NOT (Rproj.enable_top_task_inv_mth_flag = 'N'
182: AND Rproj.distribution_rule = 'EVENT/EVENT'
183: )

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

183: )
184: AND Rtask.chargeable_flag = 'Y' THEN commented for bug 8813330*/
185: -- for expenditures
186: IF pa_debug_mode = 'Y' THEN
187: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Checking for EIs');
188: END IF;
189: BEGIN
190: /* Hint added for bug 8644400, Modified below query for bug 8813330*/
191: SELECT 1

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

241: AND ei2.raw_revenue = 0
242: )
243: );
244: IF pa_debug_mode = 'Y' THEN
245: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:EI found');
246: END IF;
247: status := TRUE;
248: EXCEPTION
249: WHEN NO_DATA_FOUND THEN

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

247: status := TRUE;
248: EXCEPTION
249: WHEN NO_DATA_FOUND THEN
250: IF pa_debug_mode = 'Y' THEN
251: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:EI not found');
252: END IF;
253: status := FALSE;
254: END;
255: -- END IF; commented for bug 8813330

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

255: -- END IF; commented for bug 8813330
256: IF (NOT status ) THEN /* Modified for bug 8813330*/
257: -- for events
258: IF pa_debug_mode = 'Y' THEN
259: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Check for Events');
260: END IF;
261: BEGIN
262: /* Modified below query for bug 8813330*/
263: SELECT 1

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

295: AND decode(drx.generation_error_flag,mass_gen,decode(drx.released_date,NULL,1,0),0)
296: = decode(drx.released_date,NULL,1,0)
297: );
298: IF pa_debug_mode = 'Y' THEN
299: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Event found');
300: END IF;
301: status := TRUE;
302: EXCEPTION
303: WHEN NO_DATA_FOUND THEN

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

301: status := TRUE;
302: EXCEPTION
303: WHEN NO_DATA_FOUND THEN
304: IF pa_debug_mode = 'Y' THEN
305: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Event not found');
306: END IF;
307: status := FALSE;
308: END;
309: END IF;

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

312: EXIT;
313: END IF;commented for bug 8873015 */
314: -- END LOOP; commented for bug 8813330 task loop
315: IF pa_debug_mode = 'Y' THEN
316: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:End task Loop');
317: END IF;
318: IF NOT status THEN
319: IF pa_debug_mode = 'Y' THEN
320: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:checking for Project level events');

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

316: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:End task Loop');
317: END IF;
318: IF NOT status THEN
319: IF pa_debug_mode = 'Y' THEN
320: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:checking for Project level events');
321: END IF;
322: -- For project level events
323: BEGIN
324: SELECT 1

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

351: AND decode(drx.generation_error_flag,mass_gen,decode(drx.released_date,NULL,1,0),0)
352: = decode(drx.released_date,NULL,1,0)
353: );
354: IF pa_debug_mode = 'Y' THEN
355: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Project level Event found');
356: END IF;
357: status := TRUE;
358: EXCEPTION
359: WHEN NO_DATA_FOUND THEN

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

357: status := TRUE;
358: EXCEPTION
359: WHEN NO_DATA_FOUND THEN
360: IF pa_debug_mode = 'Y' THEN
361: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Project level Event not found');
362: END IF;
363: status := FALSE;
364: END;
365: END IF;

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

364: END;
365: END IF;
366: IF NOT status THEN
367: IF pa_debug_mode = 'Y' THEN
368: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Checking for Billing extensions');
369: END IF;
370: --Billing extension
371: BEGIN
372: SELECT 1

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

385: AND be.call_after_adj_flag = 'Y'
386: AND be.trx_independent_flag = 'Y'
387: );
388: IF pa_debug_mode = 'Y' THEN
389: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Billing extensions Found');
390: END IF;
391: status := TRUE;
392: EXCEPTION
393: WHEN NO_DATA_FOUND THEN

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

391: status := TRUE;
392: EXCEPTION
393: WHEN NO_DATA_FOUND THEN
394: IF pa_debug_mode = 'Y' THEN
395: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Billing extensions Not Found');
396: END IF;
397: status := FALSE;
398: END;
399: END IF;

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

398: END;
399: END IF;
400: IF status THEN
401: IF pa_debug_mode = 'Y' THEN
402: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:Inserting project id :'||Rproj.project_id);
403: END IF;
404: INSERT INTO PA_BILLING_PROCESS_GT(project_id,request_id,process)
405: VALUES(Rproj.project_id,g_request_id,'REV_ADJ');
406: --insert record

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

408: END IF; -- If projectstatus then
409: END LOOP; -- project loop
410: close v_inv_cursor;
411: /* IF pa_debug_mode = 'Y' THEN
412: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:End task Loop');
413: END IF; commented for bug 8813330 */
414: PA_MCB_INVOICE_PKG.log_message('... Leaving the procedure pa_process_rev_adj');
415: END PA_PROCESS_REV_ADJ;
416: END PA_BILLING_PROCESS_PKG;

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

410: close v_inv_cursor;
411: /* IF pa_debug_mode = 'Y' THEN
412: PA_MCB_INVOICE_PKG.log_message('pa_process_rev_adj:End task Loop');
413: END IF; commented for bug 8813330 */
414: PA_MCB_INVOICE_PKG.log_message('... Leaving the procedure pa_process_rev_adj');
415: END PA_PROCESS_REV_ADJ;
416: END PA_BILLING_PROCESS_PKG;