190: l_cost_price_rec AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type := p_x_cost_price_rec;
191:
192: BEGIN
193: --
194: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
195: fnd_log.string
196: (
197: fnd_log.level_procedure,
198: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Get_Task_Cost_Details.begin',
191:
192: BEGIN
193: --
194: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
195: fnd_log.string
196: (
197: fnd_log.level_procedure,
198: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Get_Task_Cost_Details.begin',
199: 'At the start of PLSQL procedure'
193: --
194: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
195: fnd_log.string
196: (
197: fnd_log.level_procedure,
198: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Get_Task_Cost_Details.begin',
199: 'At the start of PLSQL procedure'
200: );
201: END IF;
211: -- Initialize API return status to success
212: x_return_status := FND_API.G_RET_STS_SUCCESS;
213:
214: --
215: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
216: fnd_log.string
217: (
218: fnd_log.level_statement,
219: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
212: x_return_status := FND_API.G_RET_STS_SUCCESS;
213:
214: --
215: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
216: fnd_log.string
217: (
218: fnd_log.level_statement,
219: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
220: 'Request for cost details of Visit Task ID : ' || l_cost_price_rec.visit_task_id
214: --
215: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
216: fnd_log.string
217: (
218: fnd_log.level_statement,
219: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
220: 'Request for cost details of Visit Task ID : ' || l_cost_price_rec.visit_task_id
221: );
222: fnd_log.string
218: fnd_log.level_statement,
219: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
220: 'Request for cost details of Visit Task ID : ' || l_cost_price_rec.visit_task_id
221: );
222: fnd_log.string
223: (
224: fnd_log.level_statement,
225: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
226: 'Request for task cost details of Cost Session ID : ' || l_cost_price_rec.cost_session_id
220: 'Request for cost details of Visit Task ID : ' || l_cost_price_rec.visit_task_id
221: );
222: fnd_log.string
223: (
224: fnd_log.level_statement,
225: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
226: 'Request for task cost details of Cost Session ID : ' || l_cost_price_rec.cost_session_id
227: );
228: fnd_log.string
224: fnd_log.level_statement,
225: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
226: 'Request for task cost details of Cost Session ID : ' || l_cost_price_rec.cost_session_id
227: );
228: fnd_log.string
229: (
230: fnd_log.level_statement,
231: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
232: 'Request for task cost details of MR Session ID : ' || l_cost_price_rec.mr_session_id
226: 'Request for task cost details of Cost Session ID : ' || l_cost_price_rec.cost_session_id
227: );
228: fnd_log.string
229: (
230: fnd_log.level_statement,
231: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
232: 'Request for task cost details of MR Session ID : ' || l_cost_price_rec.mr_session_id
233: );
234: END IF;
237: IF(l_cost_price_rec.visit_task_id IS NULL OR
238: l_cost_price_rec.visit_task_id = FND_API.G_MISS_NUM) THEN
239: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INPUT_MISS');
240: FND_MSG_PUB.ADD;
241: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
242: fnd_log.string
243: (
244: fnd_log.level_error,
245: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
238: l_cost_price_rec.visit_task_id = FND_API.G_MISS_NUM) THEN
239: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INPUT_MISS');
240: FND_MSG_PUB.ADD;
241: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
242: fnd_log.string
243: (
244: fnd_log.level_error,
245: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
246: 'Visit Task id is mandatory but found null in input '
240: FND_MSG_PUB.ADD;
241: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
242: fnd_log.string
243: (
244: fnd_log.level_error,
245: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
246: 'Visit Task id is mandatory but found null in input '
247: );
248: END IF;
260: --End of changes by amagrawa
261: FND_MESSAGE.set_name( 'AHL','AHL_VWP_TASK_INVALID' );
262: FND_MESSAGE.SET_TOKEN('TASK_NUM',l_task_number);
263: FND_MSG_PUB.add;
264: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
265: fnd_log.string
266: (
267: fnd_log.level_error,
268: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
261: FND_MESSAGE.set_name( 'AHL','AHL_VWP_TASK_INVALID' );
262: FND_MESSAGE.SET_TOKEN('TASK_NUM',l_task_number);
263: FND_MSG_PUB.add;
264: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
265: fnd_log.string
266: (
267: fnd_log.level_error,
268: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
269: 'Visit Task not found in ahl_visit_tasks_b table'
263: FND_MSG_PUB.add;
264: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
265: fnd_log.string
266: (
267: fnd_log.level_error,
268: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
269: 'Visit Task not found in ahl_visit_tasks_b table'
270: );
271: END IF;
286: l_cost_price_rec.task_start_date := l_task_cost_price_rec.start_date_time;
287: l_cost_price_rec.task_end_date := l_task_cost_price_rec.close_date_time;
288:
289: --log messages
290: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
291: fnd_log.string
292: (
293: fnd_log.level_statement,
294: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
287: l_cost_price_rec.task_end_date := l_task_cost_price_rec.close_date_time;
288:
289: --log messages
290: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
291: fnd_log.string
292: (
293: fnd_log.level_statement,
294: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
295: 'Actual Price : '||l_cost_price_rec.ACTUAL_PRICE
289: --log messages
290: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
291: fnd_log.string
292: (
293: fnd_log.level_statement,
294: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
295: 'Actual Price : '||l_cost_price_rec.ACTUAL_PRICE
296: );
297: fnd_log.string
293: fnd_log.level_statement,
294: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
295: 'Actual Price : '||l_cost_price_rec.ACTUAL_PRICE
296: );
297: fnd_log.string
298: (
299: fnd_log.level_statement,
300: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
301: 'Estimated Price : '||l_cost_price_rec.ESTIMATED_PRICE
295: 'Actual Price : '||l_cost_price_rec.ACTUAL_PRICE
296: );
297: fnd_log.string
298: (
299: fnd_log.level_statement,
300: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
301: 'Estimated Price : '||l_cost_price_rec.ESTIMATED_PRICE
302: );
303: fnd_log.string
299: fnd_log.level_statement,
300: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
301: 'Estimated Price : '||l_cost_price_rec.ESTIMATED_PRICE
302: );
303: fnd_log.string
304: (
305: fnd_log.level_statement,
306: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
307: 'Price List Id: '||l_cost_price_rec.PRICE_LIST_ID
301: 'Estimated Price : '||l_cost_price_rec.ESTIMATED_PRICE
302: );
303: fnd_log.string
304: (
305: fnd_log.level_statement,
306: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
307: 'Price List Id: '||l_cost_price_rec.PRICE_LIST_ID
308: );
309: fnd_log.string
305: fnd_log.level_statement,
306: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
307: 'Price List Id: '||l_cost_price_rec.PRICE_LIST_ID
308: );
309: fnd_log.string
310: (
311: fnd_log.level_statement,
312: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
313: 'Visit Id : '||l_cost_price_rec.VISIT_ID
307: 'Price List Id: '||l_cost_price_rec.PRICE_LIST_ID
308: );
309: fnd_log.string
310: (
311: fnd_log.level_statement,
312: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
313: 'Visit Id : '||l_cost_price_rec.VISIT_ID
314: );
315: fnd_log.string
311: fnd_log.level_statement,
312: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
313: 'Visit Id : '||l_cost_price_rec.VISIT_ID
314: );
315: fnd_log.string
316: (
317: fnd_log.level_statement,
318: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
319: 'Outside Party Flag : '||l_cost_price_rec.OUTSIDE_PARTY_FLAG
313: 'Visit Id : '||l_cost_price_rec.VISIT_ID
314: );
315: fnd_log.string
316: (
317: fnd_log.level_statement,
318: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
319: 'Outside Party Flag : '||l_cost_price_rec.OUTSIDE_PARTY_FLAG
320: );
321: fnd_log.string
317: fnd_log.level_statement,
318: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
319: 'Outside Party Flag : '||l_cost_price_rec.OUTSIDE_PARTY_FLAG
320: );
321: fnd_log.string
322: (
323: fnd_log.level_statement,
324: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
325: 'Customer Id: '||l_cost_price_rec.CUSTOMER_ID
319: 'Outside Party Flag : '||l_cost_price_rec.OUTSIDE_PARTY_FLAG
320: );
321: fnd_log.string
322: (
323: fnd_log.level_statement,
324: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
325: 'Customer Id: '||l_cost_price_rec.CUSTOMER_ID
326: );
327: fnd_log.string
323: fnd_log.level_statement,
324: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
325: 'Customer Id: '||l_cost_price_rec.CUSTOMER_ID
326: );
327: fnd_log.string
328: (
329: fnd_log.level_statement,
330: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
331: 'MR Route Id: '||l_task_cost_price_rec.mr_route_id
325: 'Customer Id: '||l_cost_price_rec.CUSTOMER_ID
326: );
327: fnd_log.string
328: (
329: fnd_log.level_statement,
330: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
331: 'MR Route Id: '||l_task_cost_price_rec.mr_route_id
332: );
333: END IF;
340: FETCH Get_price_list_name_cur INTO l_cost_price_rec.price_list_name;
341: IF Get_price_list_name_cur%NOTFOUND THEN
342: FND_MESSAGE.set_name( 'AHL','AHL_VWP_PRICE_LIST_INVALID' );
343: FND_MSG_PUB.add;
344: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
345: fnd_log.string
346: (
347: fnd_log.level_error,
348: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
341: IF Get_price_list_name_cur%NOTFOUND THEN
342: FND_MESSAGE.set_name( 'AHL','AHL_VWP_PRICE_LIST_INVALID' );
343: FND_MSG_PUB.add;
344: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
345: fnd_log.string
346: (
347: fnd_log.level_error,
348: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
349: 'Price List Name not found in qp_list_headers table'
343: FND_MSG_PUB.add;
344: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
345: fnd_log.string
346: (
347: fnd_log.level_error,
348: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
349: 'Price List Name not found in qp_list_headers table'
350: );
351: END IF;
356:
357: END IF; -- Price list not null
358:
359: --Log messages
360: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
361: fnd_log.string
362: (
363: fnd_log.level_statement,
364: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
357: END IF; -- Price list not null
358:
359: --Log messages
360: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
361: fnd_log.string
362: (
363: fnd_log.level_statement,
364: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
365: 'Price List Name from QP_LIST_HEADERS: '||l_cost_price_rec.price_list_name
359: --Log messages
360: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
361: fnd_log.string
362: (
363: fnd_log.level_statement,
364: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
365: 'Price List Name from QP_LIST_HEADERS: '||l_cost_price_rec.price_list_name
366: );
367: fnd_log.string
363: fnd_log.level_statement,
364: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
365: 'Price List Name from QP_LIST_HEADERS: '||l_cost_price_rec.price_list_name
366: );
367: fnd_log.string
368: (
369: fnd_log.level_statement,
370: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
371: 'Mr Route Id : '||l_task_cost_price_rec.MR_ROUTE_ID
365: 'Price List Name from QP_LIST_HEADERS: '||l_cost_price_rec.price_list_name
366: );
367: fnd_log.string
368: (
369: fnd_log.level_statement,
370: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
371: 'Mr Route Id : '||l_task_cost_price_rec.MR_ROUTE_ID
372: );
373: END IF;
381: CLOSE Get_billing_item_cur;
382: END IF; --Mr route id not null
383:
384: --Log messages
385: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
386: fnd_log.string
387: (
388: fnd_log.level_statement,
389: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
382: END IF; --Mr route id not null
383:
384: --Log messages
385: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
386: fnd_log.string
387: (
388: fnd_log.level_statement,
389: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
390: 'Billing Item Id : '||l_cost_price_rec.billing_item_id
384: --Log messages
385: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
386: fnd_log.string
387: (
388: fnd_log.level_statement,
389: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
390: 'Billing Item Id : '||l_cost_price_rec.billing_item_id
391: );
392: fnd_log.string
388: fnd_log.level_statement,
389: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
390: 'Billing Item Id : '||l_cost_price_rec.billing_item_id
391: );
392: fnd_log.string
393: (
394: fnd_log.level_statement,
395: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
396: 'Is Cst Pr Info Required flag : '||l_cost_price_rec.Is_Cst_Pr_Info_Required
390: 'Billing Item Id : '||l_cost_price_rec.billing_item_id
391: );
392: fnd_log.string
393: (
394: fnd_log.level_statement,
395: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
396: 'Is Cst Pr Info Required flag : '||l_cost_price_rec.Is_Cst_Pr_Info_Required
397: );
398: fnd_log.string
394: fnd_log.level_statement,
395: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
396: 'Is Cst Pr Info Required flag : '||l_cost_price_rec.Is_Cst_Pr_Info_Required
397: );
398: fnd_log.string
399: (
400: fnd_log.level_statement,
401: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
402: 'Billing Item : '||l_cost_price_rec.item_name
396: 'Is Cst Pr Info Required flag : '||l_cost_price_rec.Is_Cst_Pr_Info_Required
397: );
398: fnd_log.string
399: (
400: fnd_log.level_statement,
401: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
402: 'Billing Item : '||l_cost_price_rec.item_name
403: );
404: END IF;
408:
409: IF (visit_info_csr%NOTFOUND)THEN
410: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INV_VISIT');
411: FND_MSG_PUB.ADD;
412: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
413: fnd_log.string
414: (
415: fnd_log.level_exception,
416: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
409: IF (visit_info_csr%NOTFOUND)THEN
410: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INV_VISIT');
411: FND_MSG_PUB.ADD;
412: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
413: fnd_log.string
414: (
415: fnd_log.level_exception,
416: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
417: 'Visit id not found in ahl_visits_b table'
411: FND_MSG_PUB.ADD;
412: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
413: fnd_log.string
414: (
415: fnd_log.level_exception,
416: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
417: 'Visit id not found in ahl_visits_b table'
418: );
419: END IF;
424:
425: -- Not to calculate cost if visit is in cancelled status
426: IF l_visit_status <>'CANCELLED' THEN
427:
428: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
429: fnd_log.string
430: (
431: fnd_log.level_procedure,
432: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
425: -- Not to calculate cost if visit is in cancelled status
426: IF l_visit_status <>'CANCELLED' THEN
427:
428: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
429: fnd_log.string
430: (
431: fnd_log.level_procedure,
432: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
433: 'Before calling ahl_vwp_cost_pvt.Calculate Wo Cost'
427:
428: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
429: fnd_log.string
430: (
431: fnd_log.level_procedure,
432: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
433: 'Before calling ahl_vwp_cost_pvt.Calculate Wo Cost'
434: );
435: END IF;
438: ahl_vwp_cost_pvt.calculate_wo_cost
439: ( p_x_cost_price_rec => l_cost_price_rec,
440: x_return_status => l_return_status);
441:
442: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
443: fnd_log.string
444: (
445: fnd_log.level_procedure,
446: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
439: ( p_x_cost_price_rec => l_cost_price_rec,
440: x_return_status => l_return_status);
441:
442: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
443: fnd_log.string
444: (
445: fnd_log.level_procedure,
446: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
447: 'After calling Calculate wo cost Return Status is: '|| l_return_status
441:
442: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
443: fnd_log.string
444: (
445: fnd_log.level_procedure,
446: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
447: 'After calling Calculate wo cost Return Status is: '|| l_return_status
448: );
449: END IF;
447: 'After calling Calculate wo cost Return Status is: '|| l_return_status
448: );
449: END IF;
450:
451: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
452: fnd_log.string
453: (
454: fnd_log.level_statement,
455: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
448: );
449: END IF;
450:
451: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
452: fnd_log.string
453: (
454: fnd_log.level_statement,
455: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
456: 'Cost Session ID : ' || l_cost_price_rec.cost_session_id
450:
451: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
452: fnd_log.string
453: (
454: fnd_log.level_statement,
455: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
456: 'Cost Session ID : ' || l_cost_price_rec.cost_session_id
457: );
458: fnd_log.string
454: fnd_log.level_statement,
455: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
456: 'Cost Session ID : ' || l_cost_price_rec.cost_session_id
457: );
458: fnd_log.string
459: (
460: fnd_log.level_statement,
461: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
462: 'MR Session ID : ' || l_cost_price_rec.mr_session_id
456: 'Cost Session ID : ' || l_cost_price_rec.cost_session_id
457: );
458: fnd_log.string
459: (
460: fnd_log.level_statement,
461: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
462: 'MR Session ID : ' || l_cost_price_rec.mr_session_id
463: );
464: END IF;
469: x_return_status := FND_API.G_RET_STS_ERROR;
470: RAISE FND_API.G_EXC_ERROR;
471: END IF;
472:
473: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
474: fnd_log.string
475: (
476: fnd_log.level_statement,
477: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': Derieved',
470: RAISE FND_API.G_EXC_ERROR;
471: END IF;
472:
473: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
474: fnd_log.string
475: (
476: fnd_log.level_statement,
477: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': Derieved',
478: 'Is Cst Struc Updated Flag: '|| l_cost_price_rec.Is_Cst_Struc_updated
472:
473: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
474: fnd_log.string
475: (
476: fnd_log.level_statement,
477: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': Derieved',
478: 'Is Cst Struc Updated Flag: '|| l_cost_price_rec.Is_Cst_Struc_updated
479: );
480: END IF;
481:
482: IF(l_cost_price_rec.Is_Cst_Struc_updated = 'N') AND (l_cost_price_rec.workorder_id IS NOT NULL) THEN
483:
484: --Log message
485: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
486: fnd_log.string
487: (
488: fnd_log.level_statement,
489: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
482: IF(l_cost_price_rec.Is_Cst_Struc_updated = 'N') AND (l_cost_price_rec.workorder_id IS NOT NULL) THEN
483:
484: --Log message
485: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
486: fnd_log.string
487: (
488: fnd_log.level_statement,
489: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
490: 'Inside Cost Struc Updated flag = N, Workorder Id: '|| l_cost_price_rec.workorder_id
484: --Log message
485: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
486: fnd_log.string
487: (
488: fnd_log.level_statement,
489: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
490: 'Inside Cost Struc Updated flag = N, Workorder Id: '|| l_cost_price_rec.workorder_id
491: );
492: fnd_log.string
488: fnd_log.level_statement,
489: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
490: 'Inside Cost Struc Updated flag = N, Workorder Id: '|| l_cost_price_rec.workorder_id
491: );
492: fnd_log.string
493: (
494: fnd_log.level_statement,
495: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
496: ' MR Session ID : ' || l_cost_price_rec.mr_session_id
490: 'Inside Cost Struc Updated flag = N, Workorder Id: '|| l_cost_price_rec.workorder_id
491: );
492: fnd_log.string
493: (
494: fnd_log.level_statement,
495: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
496: ' MR Session ID : ' || l_cost_price_rec.mr_session_id
497: );
498: fnd_log.string
494: fnd_log.level_statement,
495: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
496: ' MR Session ID : ' || l_cost_price_rec.mr_session_id
497: );
498: fnd_log.string
499: (
500: fnd_log.level_statement,
501: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
502: 'Before calling ahl vwp cost pvt.calculate task cost '
496: ' MR Session ID : ' || l_cost_price_rec.mr_session_id
497: );
498: fnd_log.string
499: (
500: fnd_log.level_statement,
501: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
502: 'Before calling ahl vwp cost pvt.calculate task cost '
503: );
504: END IF;
510: x_Actual_cost => l_wo_actual_cost,
511: x_Estimated_cost => l_wo_estimated_cost,
512: x_return_status => l_return_status);
513:
514: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
515: fnd_log.string
516: (
517: fnd_log.level_procedure,
518: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
511: x_Estimated_cost => l_wo_estimated_cost,
512: x_return_status => l_return_status);
513:
514: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
515: fnd_log.string
516: (
517: fnd_log.level_procedure,
518: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
519: 'After calling ahl vwp cost pvt.Calculate task Cost Return Status is: '|| l_return_status
513:
514: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
515: fnd_log.string
516: (
517: fnd_log.level_procedure,
518: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
519: 'After calling ahl vwp cost pvt.Calculate task Cost Return Status is: '|| l_return_status
520: );
521: END IF;
527: RAISE FND_API.G_EXC_ERROR;
528: END IF;
529:
530: --Log message
531: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
532: fnd_log.string
533: (
534: fnd_log.level_statement,
535: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved ',
528: END IF;
529:
530: --Log message
531: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
532: fnd_log.string
533: (
534: fnd_log.level_statement,
535: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved ',
536: 'Actual Cost : '|| l_wo_actual_cost
530: --Log message
531: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
532: fnd_log.string
533: (
534: fnd_log.level_statement,
535: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved ',
536: 'Actual Cost : '|| l_wo_actual_cost
537: );
538: fnd_log.string
534: fnd_log.level_statement,
535: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved ',
536: 'Actual Cost : '|| l_wo_actual_cost
537: );
538: fnd_log.string
539: (
540: fnd_log.level_statement,
541: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
542: 'Estimated Cost : '|| l_wo_estimated_cost
536: 'Actual Cost : '|| l_wo_actual_cost
537: );
538: fnd_log.string
539: (
540: fnd_log.level_statement,
541: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
542: 'Estimated Cost : '|| l_wo_estimated_cost
543: );
544:
550:
551: END IF;
552:
553: --Log message
554: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
555: fnd_log.string
556: (
557: fnd_log.level_procedure,
558: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
551: END IF;
552:
553: --Log message
554: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
555: fnd_log.string
556: (
557: fnd_log.level_procedure,
558: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
559: 'Before calling ahl vwp cost pvt.get profit or loss '
553: --Log message
554: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
555: fnd_log.string
556: (
557: fnd_log.level_procedure,
558: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
559: 'Before calling ahl vwp cost pvt.get profit or loss '
560: );
561: END IF;
570: x_actual_profit => l_cost_price_rec.actual_profit,
571: x_estimated_profit => l_cost_price_rec.estimated_profit,
572: x_return_status => l_return_status);
573:
574: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
575: fnd_log.string
576: (
577: fnd_log.level_procedure,
578: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
571: x_estimated_profit => l_cost_price_rec.estimated_profit,
572: x_return_status => l_return_status);
573:
574: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
575: fnd_log.string
576: (
577: fnd_log.level_procedure,
578: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
579: 'After calling ahl vwp cost pvt.Get Profit Or Loss Return Status is: '|| l_return_status
573:
574: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
575: fnd_log.string
576: (
577: fnd_log.level_procedure,
578: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
579: 'After calling ahl vwp cost pvt.Get Profit Or Loss Return Status is: '|| l_return_status
580: );
581:
588: RAISE FND_API.G_EXC_ERROR;
589: END IF;
590:
591: --Log message
592: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
593: fnd_log.string
594: (
595: fnd_log.level_statement,
596: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved ',
589: END IF;
590:
591: --Log message
592: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
593: fnd_log.string
594: (
595: fnd_log.level_statement,
596: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved ',
597: 'Actual Profit : '|| l_cost_price_rec.actual_profit
591: --Log message
592: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
593: fnd_log.string
594: (
595: fnd_log.level_statement,
596: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved ',
597: 'Actual Profit : '|| l_cost_price_rec.actual_profit
598: );
599:
596: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved ',
597: 'Actual Profit : '|| l_cost_price_rec.actual_profit
598: );
599:
600: fnd_log.string
601: (
602: fnd_log.level_statement,
603: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
604: 'Estimated Profit : '|| l_cost_price_rec.estimated_profit
598: );
599:
600: fnd_log.string
601: (
602: fnd_log.level_statement,
603: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
604: 'Estimated Profit : '|| l_cost_price_rec.estimated_profit
605: );
606:
607: END IF;
608:
609: END IF; -- status <> CANCELLED
610:
611: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
612:
613: fnd_log.string
614: (
615: fnd_log.level_statement,
609: END IF; -- status <> CANCELLED
610:
611: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
612:
613: fnd_log.string
614: (
615: fnd_log.level_statement,
616: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
617: 'Before calling ahl vwp cost pvt.check currency for costing '
611: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
612:
613: fnd_log.string
614: (
615: fnd_log.level_statement,
616: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
617: 'Before calling ahl vwp cost pvt.check currency for costing '
618: );
619: END IF;
624: x_currency_code => l_cost_price_rec.currency);
625:
626:
627: --Log message
628: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
629:
630: fnd_log.string
631: (
632: fnd_log.level_statement,
626:
627: --Log message
628: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
629:
630: fnd_log.string
631: (
632: fnd_log.level_statement,
633: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved ',
634: 'Curency code : '|| l_cost_price_rec.currency
628: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
629:
630: fnd_log.string
631: (
632: fnd_log.level_statement,
633: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved ',
634: 'Curency code : '|| l_cost_price_rec.currency
635: );
636: END IF;
638: -- Assign derived values
639: p_x_cost_price_rec := l_cost_price_rec;
640:
641: --Log messages
642: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
643: fnd_log.string
644: (
645: fnd_log.level_statement,
646: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved ',
639: p_x_cost_price_rec := l_cost_price_rec;
640:
641: --Log messages
642: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
643: fnd_log.string
644: (
645: fnd_log.level_statement,
646: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved ',
647: 'Actual Price : '|| p_x_cost_price_rec.actual_price
641: --Log messages
642: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
643: fnd_log.string
644: (
645: fnd_log.level_statement,
646: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved ',
647: 'Actual Price : '|| p_x_cost_price_rec.actual_price
648: );
649: fnd_log.string
645: fnd_log.level_statement,
646: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved ',
647: 'Actual Price : '|| p_x_cost_price_rec.actual_price
648: );
649: fnd_log.string
650: (
651: fnd_log.level_statement,
652: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
653: 'Estimated Price : '|| p_x_cost_price_rec.estimated_price
647: 'Actual Price : '|| p_x_cost_price_rec.actual_price
648: );
649: fnd_log.string
650: (
651: fnd_log.level_statement,
652: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
653: 'Estimated Price : '|| p_x_cost_price_rec.estimated_price
654: );
655:
652: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
653: 'Estimated Price : '|| p_x_cost_price_rec.estimated_price
654: );
655:
656: fnd_log.string
657: (
658: fnd_log.level_statement,
659: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
660: 'Actual Cost : '|| p_x_cost_price_rec.actual_cost
654: );
655:
656: fnd_log.string
657: (
658: fnd_log.level_statement,
659: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
660: 'Actual Cost : '|| p_x_cost_price_rec.actual_cost
661: );
662:
659: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
660: 'Actual Cost : '|| p_x_cost_price_rec.actual_cost
661: );
662:
663: fnd_log.string
664: (
665: fnd_log.level_statement,
666: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
667: 'Estimated Cost : '|| p_x_cost_price_rec.estimated_cost
661: );
662:
663: fnd_log.string
664: (
665: fnd_log.level_statement,
666: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
667: 'Estimated Cost : '|| p_x_cost_price_rec.estimated_cost
668: );
669:
666: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
667: 'Estimated Cost : '|| p_x_cost_price_rec.estimated_cost
668: );
669:
670: fnd_log.string
671: (
672: fnd_log.level_statement,
673: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
674: 'Actual Profit : '|| p_x_cost_price_rec.actual_profit
668: );
669:
670: fnd_log.string
671: (
672: fnd_log.level_statement,
673: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
674: 'Actual Profit : '|| p_x_cost_price_rec.actual_profit
675: );
676:
673: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
674: 'Actual Profit : '|| p_x_cost_price_rec.actual_profit
675: );
676:
677: fnd_log.string
678: (
679: fnd_log.level_statement,
680: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
681: 'Estimated Profit : '|| p_x_cost_price_rec.estimated_profit
675: );
676:
677: fnd_log.string
678: (
679: fnd_log.level_statement,
680: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
681: 'Estimated Profit : '|| p_x_cost_price_rec.estimated_profit
682: );
683:
680: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
681: 'Estimated Profit : '|| p_x_cost_price_rec.estimated_profit
682: );
683:
684: fnd_log.string
685: (
686: fnd_log.level_statement,
687: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
688: 'Cost Session Id : '|| p_x_cost_price_rec.cost_session_id
682: );
683:
684: fnd_log.string
685: (
686: fnd_log.level_statement,
687: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
688: 'Cost Session Id : '|| p_x_cost_price_rec.cost_session_id
689: );
690:
687: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
688: 'Cost Session Id : '|| p_x_cost_price_rec.cost_session_id
689: );
690:
691: fnd_log.string
692: (
693: fnd_log.level_statement,
694: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
695: 'Mr Session Id : '|| p_x_cost_price_rec.mr_session_id
689: );
690:
691: fnd_log.string
692: (
693: fnd_log.level_statement,
694: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
695: 'Mr Session Id : '|| p_x_cost_price_rec.mr_session_id
696: );
697:
694: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
695: 'Mr Session Id : '|| p_x_cost_price_rec.mr_session_id
696: );
697:
698: fnd_log.string
699: (
700: fnd_log.level_statement,
701: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
702: 'Price list Id : '|| p_x_cost_price_rec.price_list_id
696: );
697:
698: fnd_log.string
699: (
700: fnd_log.level_statement,
701: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
702: 'Price list Id : '|| p_x_cost_price_rec.price_list_id
703: );
704:
701: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
702: 'Price list Id : '|| p_x_cost_price_rec.price_list_id
703: );
704:
705: fnd_log.string
706: (
707: fnd_log.level_statement,
708: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
709: 'Price list Name : '|| p_x_cost_price_rec.price_list_name
703: );
704:
705: fnd_log.string
706: (
707: fnd_log.level_statement,
708: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
709: 'Price list Name : '|| p_x_cost_price_rec.price_list_name
710: );
711: fnd_log.string
707: fnd_log.level_statement,
708: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
709: 'Price list Name : '|| p_x_cost_price_rec.price_list_name
710: );
711: fnd_log.string
712: (
713: fnd_log.level_statement,
714: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
715: 'OutSide Party Flag : '|| p_x_cost_price_rec.outside_party_flag
709: 'Price list Name : '|| p_x_cost_price_rec.price_list_name
710: );
711: fnd_log.string
712: (
713: fnd_log.level_statement,
714: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
715: 'OutSide Party Flag : '|| p_x_cost_price_rec.outside_party_flag
716: );
717: fnd_log.string
713: fnd_log.level_statement,
714: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
715: 'OutSide Party Flag : '|| p_x_cost_price_rec.outside_party_flag
716: );
717: fnd_log.string
718: (
719: fnd_log.level_statement,
720: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
721: 'Customer Id : '|| p_x_cost_price_rec.customer_id
715: 'OutSide Party Flag : '|| p_x_cost_price_rec.outside_party_flag
716: );
717: fnd_log.string
718: (
719: fnd_log.level_statement,
720: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
721: 'Customer Id : '|| p_x_cost_price_rec.customer_id
722: );
723: fnd_log.string
719: fnd_log.level_statement,
720: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
721: 'Customer Id : '|| p_x_cost_price_rec.customer_id
722: );
723: fnd_log.string
724: (
725: fnd_log.level_statement,
726: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
727: 'Workorder Id : '|| p_x_cost_price_rec.workorder_id
721: 'Customer Id : '|| p_x_cost_price_rec.customer_id
722: );
723: fnd_log.string
724: (
725: fnd_log.level_statement,
726: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
727: 'Workorder Id : '|| p_x_cost_price_rec.workorder_id
728: );
729: fnd_log.string
725: fnd_log.level_statement,
726: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
727: 'Workorder Id : '|| p_x_cost_price_rec.workorder_id
728: );
729: fnd_log.string
730: (
731: fnd_log.level_statement,
732: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
733: 'Task Start Date : '|| p_x_cost_price_rec.task_start_date
727: 'Workorder Id : '|| p_x_cost_price_rec.workorder_id
728: );
729: fnd_log.string
730: (
731: fnd_log.level_statement,
732: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
733: 'Task Start Date : '|| p_x_cost_price_rec.task_start_date
734: );
735: fnd_log.string
731: fnd_log.level_statement,
732: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
733: 'Task Start Date : '|| p_x_cost_price_rec.task_start_date
734: );
735: fnd_log.string
736: (
737: fnd_log.level_statement,
738: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
739: 'Task End Date : '|| p_x_cost_price_rec.task_end_date
733: 'Task Start Date : '|| p_x_cost_price_rec.task_start_date
734: );
735: fnd_log.string
736: (
737: fnd_log.level_statement,
738: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
739: 'Task End Date : '|| p_x_cost_price_rec.task_end_date
740: );
741:
738: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':Derieved',
739: 'Task End Date : '|| p_x_cost_price_rec.task_end_date
740: );
741:
742: fnd_log.string
743: (
744: fnd_log.level_statement,
745: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
746: 'Billing Item : '||p_x_cost_price_rec.item_name
740: );
741:
742: fnd_log.string
743: (
744: fnd_log.level_statement,
745: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
746: 'Billing Item : '||p_x_cost_price_rec.item_name
747: );
748:
759: IF FND_API.TO_BOOLEAN(p_commit) THEN
760: COMMIT WORK;
761: END IF;
762:
763: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
764: fnd_log.string
765: (
766: fnd_log.level_procedure,
767: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Get_Task_Cost_Details.end',
760: COMMIT WORK;
761: END IF;
762:
763: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
764: fnd_log.string
765: (
766: fnd_log.level_procedure,
767: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Get_Task_Cost_Details.end',
768: 'At the end of PLSQL procedure'
762:
763: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
764: fnd_log.string
765: (
766: fnd_log.level_procedure,
767: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Get_Task_Cost_Details.end',
768: 'At the end of PLSQL procedure'
769: );
770: END IF;
918: l_cost_price_rec AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type := p_cost_price_rec;
919:
920: BEGIN
921:
922: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
923: fnd_log.string
924: (
925: fnd_log.level_procedure,
926: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Update_Task_Cost_Details.begin',
919:
920: BEGIN
921:
922: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
923: fnd_log.string
924: (
925: fnd_log.level_procedure,
926: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Update_Task_Cost_Details.begin',
927: 'At the start of PLSQL procedure'
921:
922: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
923: fnd_log.string
924: (
925: fnd_log.level_procedure,
926: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Update_Task_Cost_Details.begin',
927: 'At the start of PLSQL procedure'
928: );
929:
939:
940: -- Initialize API return status to success
941: x_return_status := FND_API.G_RET_STS_SUCCESS;
942: --
943: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
944: fnd_log.string
945: (
946: fnd_log.level_statement,
947: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
940: -- Initialize API return status to success
941: x_return_status := FND_API.G_RET_STS_SUCCESS;
942: --
943: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
944: fnd_log.string
945: (
946: fnd_log.level_statement,
947: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
948: 'Request for Updating cost details for Task ID : ' || l_cost_price_rec.visit_task_id
942: --
943: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
944: fnd_log.string
945: (
946: fnd_log.level_statement,
947: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
948: 'Request for Updating cost details for Task ID : ' || l_cost_price_rec.visit_task_id
949: );
950: END IF;
953: IF(l_cost_price_rec.visit_task_id IS NULL OR
954: l_cost_price_rec.visit_task_id = FND_API.G_MISS_NUM) THEN
955: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INPUT_MISS');
956: FND_MSG_PUB.ADD;
957: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
958: fnd_log.string
959: (
960: fnd_log.level_error,
961: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
954: l_cost_price_rec.visit_task_id = FND_API.G_MISS_NUM) THEN
955: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INPUT_MISS');
956: FND_MSG_PUB.ADD;
957: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
958: fnd_log.string
959: (
960: fnd_log.level_error,
961: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
962: 'Visit Task id is mandatory but found null in input '
956: FND_MSG_PUB.ADD;
957: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
958: fnd_log.string
959: (
960: fnd_log.level_error,
961: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
962: 'Visit Task id is mandatory but found null in input '
963: );
964: END IF;
971: IF Get_visit_task_dtls_cur%NOTFOUND THEN
972: FND_MESSAGE.set_name( 'AHL','AHL_VWP_TASK_INVALID' );
973: FND_MESSAGE.Set_Token('TASK_NUM', l_cost_price_rec.visit_task_number);
974: FND_MSG_PUB.add;
975: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
976: fnd_log.string
977: (
978: fnd_log.level_error,
979: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
972: FND_MESSAGE.set_name( 'AHL','AHL_VWP_TASK_INVALID' );
973: FND_MESSAGE.Set_Token('TASK_NUM', l_cost_price_rec.visit_task_number);
974: FND_MSG_PUB.add;
975: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
976: fnd_log.string
977: (
978: fnd_log.level_error,
979: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
980: 'Task id not found in ahl_visit_tasks_b table'
974: FND_MSG_PUB.add;
975: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
976: fnd_log.string
977: (
978: fnd_log.level_error,
979: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
980: 'Task id not found in ahl_visit_tasks_b table'
981: );
982: END IF;
995: FETCH Get_visit_dtls_cur INTO l_visit_dtls_rec;
996: IF Get_visit_dtls_cur%NOTFOUND THEN
997: FND_MESSAGE.set_name( 'AHL','AHL_VWP_VISIT_INVALID' );
998: FND_MSG_PUB.add;
999: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1000: fnd_log.string
1001: (
1002: fnd_log.level_error,
1003: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
996: IF Get_visit_dtls_cur%NOTFOUND THEN
997: FND_MESSAGE.set_name( 'AHL','AHL_VWP_VISIT_INVALID' );
998: FND_MSG_PUB.add;
999: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1000: fnd_log.string
1001: (
1002: fnd_log.level_error,
1003: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1004: 'Visit id not found in ahl_visits_b table'
998: FND_MSG_PUB.add;
999: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1000: fnd_log.string
1001: (
1002: fnd_log.level_error,
1003: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1004: 'Visit id not found in ahl_visits_b table'
1005: );
1006: END IF;
1015:
1016: -- Convert price list name to price list ID
1017: l_cost_price_rec.price_list_id := NULL;
1018: IF l_cost_price_rec.price_list_name IS NOT NULL THEN
1019: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1020: fnd_log.string
1021: (
1022: fnd_log.level_statement,
1023: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1016: -- Convert price list name to price list ID
1017: l_cost_price_rec.price_list_id := NULL;
1018: IF l_cost_price_rec.price_list_name IS NOT NULL THEN
1019: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1020: fnd_log.string
1021: (
1022: fnd_log.level_statement,
1023: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1024: 'Price List conversion : ' || l_cost_price_rec.price_list_name
1018: IF l_cost_price_rec.price_list_name IS NOT NULL THEN
1019: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1020: fnd_log.string
1021: (
1022: fnd_log.level_statement,
1023: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1024: 'Price List conversion : ' || l_cost_price_rec.price_list_name
1025: );
1026: END IF;
1029: -- First look if any SR for visit and if has customer defined
1030: IF l_visit_dtls_rec.service_request_id IS NOT NULL AND
1031: l_visit_dtls_rec.customer_id IS NOT NULL THEN
1032:
1033: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1034: fnd_log.string
1035: (
1036: fnd_log.level_statement,
1037: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1030: IF l_visit_dtls_rec.service_request_id IS NOT NULL AND
1031: l_visit_dtls_rec.customer_id IS NOT NULL THEN
1032:
1033: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1034: fnd_log.string
1035: (
1036: fnd_log.level_statement,
1037: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1038: 'Check for customer Id and service request id : '
1032:
1033: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1034: fnd_log.string
1035: (
1036: fnd_log.level_statement,
1037: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1038: 'Check for customer Id and service request id : '
1039: );
1040: END IF;
1048: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_PLIST_NFOUND');
1049: FND_MESSAGE.Set_Token('PRICE_LIST',p_price_list_name);
1050: FND_MSG_PUB.ADD;
1051:
1052: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1053: fnd_log.string
1054: (
1055: fnd_log.level_error,
1056: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
1049: FND_MESSAGE.Set_Token('PRICE_LIST',p_price_list_name);
1050: FND_MSG_PUB.ADD;
1051:
1052: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1053: fnd_log.string
1054: (
1055: fnd_log.level_error,
1056: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
1057: 'Valid price list not found with price list name ' || p_price_list_name
1051:
1052: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1053: fnd_log.string
1054: (
1055: fnd_log.level_error,
1056: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
1057: 'Valid price list not found with price list name ' || p_price_list_name
1058: );
1059: END IF;
1066: END IF;
1067: END IF;
1068:
1069: --
1070: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1071: THEN
1072: fnd_log.string
1073: (
1074: fnd_log.level_statement,
1068:
1069: --
1070: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1071: THEN
1072: fnd_log.string
1073: (
1074: fnd_log.level_statement,
1075: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1076: 'Price List Id:'||l_cost_price_rec.price_list_id
1070: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1071: THEN
1072: fnd_log.string
1073: (
1074: fnd_log.level_statement,
1075: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1076: 'Price List Id:'||l_cost_price_rec.price_list_id
1077: );
1078: END IF;
1082: FETCH Get_price_list_cur INTO l_price_list_rec;
1083: IF Get_price_list_cur%NOTFOUND THEN
1084: FND_MESSAGE.set_name( 'AHL','AHL_VWP_PRICE_LIST_INVALID' );
1085: FND_MSG_PUB.add;
1086: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1087: fnd_log.string
1088: (
1089: fnd_log.level_error,
1090: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1083: IF Get_price_list_cur%NOTFOUND THEN
1084: FND_MESSAGE.set_name( 'AHL','AHL_VWP_PRICE_LIST_INVALID' );
1085: FND_MSG_PUB.add;
1086: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1087: fnd_log.string
1088: (
1089: fnd_log.level_error,
1090: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1091: 'Price List Name not found in qp_list_headers table'
1085: FND_MSG_PUB.add;
1086: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1087: fnd_log.string
1088: (
1089: fnd_log.level_error,
1090: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1091: 'Price List Name not found in qp_list_headers table'
1092: );
1093: END IF;
1113: (TRUNC(l_price_list_active_end_date) < TRUNC(l_start_date_time)) THEN
1114:
1115: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_PRICE_LIST_INV_STR');
1116: FND_MSG_PUB.ADD;
1117: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1118: fnd_log.string
1119: (
1120: fnd_log.level_error,
1121: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.update_task_cost_details',
1114:
1115: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_PRICE_LIST_INV_STR');
1116: FND_MSG_PUB.ADD;
1117: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1118: fnd_log.string
1119: (
1120: fnd_log.level_error,
1121: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.update_task_cost_details',
1122: 'Price List is not active on visit start date'
1116: FND_MSG_PUB.ADD;
1117: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1118: fnd_log.string
1119: (
1120: fnd_log.level_error,
1121: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.update_task_cost_details',
1122: 'Price List is not active on visit start date'
1123: );
1124: END IF;
1134: (TRUNC(l_price_list_active_end_date) < TRUNC(l_close_date_time)) THEN
1135:
1136: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_PRICE_LIST_INV_END');
1137: FND_MSG_PUB.ADD;
1138: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1139: fnd_log.string
1140: (
1141: fnd_log.level_error,
1142: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.update_task_cost_details',
1135:
1136: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_PRICE_LIST_INV_END');
1137: FND_MSG_PUB.ADD;
1138: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1139: fnd_log.string
1140: (
1141: fnd_log.level_error,
1142: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.update_task_cost_details',
1143: 'Price List is not active on visit end date'
1137: FND_MSG_PUB.ADD;
1138: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1139: fnd_log.string
1140: (
1141: fnd_log.level_error,
1142: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.update_task_cost_details',
1143: 'Price List is not active on visit end date'
1144: );
1145: END IF;
1159:
1160: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_PRICE_LIST_INV_SYS');
1161: -- CHANGE THIS MESSAGE TEST AND NAME TOO -- IMPORTANT
1162: FND_MSG_PUB.ADD;
1163: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1164: fnd_log.string
1165: (
1166: fnd_log.level_error,
1167: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.update_task_cost_details',
1160: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_PRICE_LIST_INV_SYS');
1161: -- CHANGE THIS MESSAGE TEST AND NAME TOO -- IMPORTANT
1162: FND_MSG_PUB.ADD;
1163: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1164: fnd_log.string
1165: (
1166: fnd_log.level_error,
1167: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.update_task_cost_details',
1168: 'Price List is not active on current todays date'
1162: FND_MSG_PUB.ADD;
1163: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1164: fnd_log.string
1165: (
1166: fnd_log.level_error,
1167: 'ahl.plsql.AHL_VWP_VISIT_CST_PR_PVT.update_task_cost_details',
1168: 'Price List is not active on current todays date'
1169: );
1170: END IF;
1178: END IF; -- Check for price list id not null
1179:
1180: -- End of changes by Shbhanda on 30th Dec 2003 --
1181:
1182: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1183: fnd_log.string
1184: (
1185: fnd_log.level_statement,
1186: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1179:
1180: -- End of changes by Shbhanda on 30th Dec 2003 --
1181:
1182: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1183: fnd_log.string
1184: (
1185: fnd_log.level_statement,
1186: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1187: ' Before Update Ahl Visit Tasks B Table, Price List Id: ' || l_cost_price_rec.price_list_id
1181:
1182: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1183: fnd_log.string
1184: (
1185: fnd_log.level_statement,
1186: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1187: ' Before Update Ahl Visit Tasks B Table, Price List Id: ' || l_cost_price_rec.price_list_id
1188: );
1189: fnd_log.string
1185: fnd_log.level_statement,
1186: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1187: ' Before Update Ahl Visit Tasks B Table, Price List Id: ' || l_cost_price_rec.price_list_id
1188: );
1189: fnd_log.string
1190: (
1191: fnd_log.level_statement,
1192: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1193: ' Before Update Ahl Visit Tasks B Table, Estimated Price: ' || l_cost_price_rec.estimated_price
1187: ' Before Update Ahl Visit Tasks B Table, Price List Id: ' || l_cost_price_rec.price_list_id
1188: );
1189: fnd_log.string
1190: (
1191: fnd_log.level_statement,
1192: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1193: ' Before Update Ahl Visit Tasks B Table, Estimated Price: ' || l_cost_price_rec.estimated_price
1194: );
1195: fnd_log.string
1191: fnd_log.level_statement,
1192: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1193: ' Before Update Ahl Visit Tasks B Table, Estimated Price: ' || l_cost_price_rec.estimated_price
1194: );
1195: fnd_log.string
1196: (
1197: fnd_log.level_statement,
1198: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1199: ' Before Update Ahl Visit Tasks B Table, Actual Price: ' || l_cost_price_rec.actual_price
1193: ' Before Update Ahl Visit Tasks B Table, Estimated Price: ' || l_cost_price_rec.estimated_price
1194: );
1195: fnd_log.string
1196: (
1197: fnd_log.level_statement,
1198: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1199: ' Before Update Ahl Visit Tasks B Table, Actual Price: ' || l_cost_price_rec.actual_price
1200: );
1201: fnd_log.string
1197: fnd_log.level_statement,
1198: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1199: ' Before Update Ahl Visit Tasks B Table, Actual Price: ' || l_cost_price_rec.actual_price
1200: );
1201: fnd_log.string
1202: (
1203: fnd_log.level_statement,
1204: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1205: ' Before Update Ahl Visit Tasks B Table, Actual Cost: ' || l_cost_price_rec.actual_cost
1199: ' Before Update Ahl Visit Tasks B Table, Actual Price: ' || l_cost_price_rec.actual_price
1200: );
1201: fnd_log.string
1202: (
1203: fnd_log.level_statement,
1204: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1205: ' Before Update Ahl Visit Tasks B Table, Actual Cost: ' || l_cost_price_rec.actual_cost
1206: );
1207: END IF;
1228: IF FND_API.TO_BOOLEAN(p_commit) THEN
1229: COMMIT WORK;
1230: END IF;
1231:
1232: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1233: fnd_log.string
1234: (
1235: fnd_log.level_procedure,
1236: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Update_Task_Cost_Details.end',
1229: COMMIT WORK;
1230: END IF;
1231:
1232: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1233: fnd_log.string
1234: (
1235: fnd_log.level_procedure,
1236: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Update_Task_Cost_Details.end',
1237: 'At the end of PLSQL procedure'
1231:
1232: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1233: fnd_log.string
1234: (
1235: fnd_log.level_procedure,
1236: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Update_Task_Cost_Details.end',
1237: 'At the end of PLSQL procedure'
1238: );
1239: END IF;
1339: l_release_visit_required VARCHAR2(1) :='N';
1340:
1341: BEGIN
1342:
1343: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1344: fnd_log.string
1345: (
1346: fnd_log.level_procedure,
1347: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Cost.begin',
1340:
1341: BEGIN
1342:
1343: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1344: fnd_log.string
1345: (
1346: fnd_log.level_procedure,
1347: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Cost.begin',
1348: 'At the start of PLSQL procedure'
1342:
1343: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1344: fnd_log.string
1345: (
1346: fnd_log.level_procedure,
1347: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Cost.begin',
1348: 'At the start of PLSQL procedure'
1349: );
1350:
1359: END IF;
1360: -- Initialize API return status to success
1361: x_return_status := FND_API.G_RET_STS_SUCCESS;
1362: --
1363: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1364: fnd_log.string
1365: (
1366: fnd_log.level_statement,
1367: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1360: -- Initialize API return status to success
1361: x_return_status := FND_API.G_RET_STS_SUCCESS;
1362: --
1363: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1364: fnd_log.string
1365: (
1366: fnd_log.level_statement,
1367: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1368: 'Request for Estimating cost for Task ID : ' || l_cost_price_rec.visit_task_id
1362: --
1363: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1364: fnd_log.string
1365: (
1366: fnd_log.level_statement,
1367: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1368: 'Request for Estimating cost for Task ID : ' || l_cost_price_rec.visit_task_id
1369: );
1370:
1367: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1368: 'Request for Estimating cost for Task ID : ' || l_cost_price_rec.visit_task_id
1369: );
1370:
1371: fnd_log.string
1372: (
1373: fnd_log.level_statement,
1374: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1375: 'Got request for task cost details of Cost Session ID : ' || l_cost_price_rec.cost_session_id
1369: );
1370:
1371: fnd_log.string
1372: (
1373: fnd_log.level_statement,
1374: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1375: 'Got request for task cost details of Cost Session ID : ' || l_cost_price_rec.cost_session_id
1376: );
1377:
1374: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1375: 'Got request for task cost details of Cost Session ID : ' || l_cost_price_rec.cost_session_id
1376: );
1377:
1378: fnd_log.string
1379: (
1380: fnd_log.level_statement,
1381: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1382: 'Got request for task cost details of MR Session ID : ' || l_cost_price_rec.mr_session_id
1376: );
1377:
1378: fnd_log.string
1379: (
1380: fnd_log.level_statement,
1381: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1382: 'Got request for task cost details of MR Session ID : ' || l_cost_price_rec.mr_session_id
1383: );
1384:
1387: IF(l_cost_price_rec.visit_task_id IS NULL OR
1388: l_cost_price_rec.visit_task_id = FND_API.G_MISS_NUM) THEN
1389: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INPUT_MISS');
1390: FND_MSG_PUB.ADD;
1391: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1392: fnd_log.string
1393: (
1394: fnd_log.level_error,
1395: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1388: l_cost_price_rec.visit_task_id = FND_API.G_MISS_NUM) THEN
1389: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INPUT_MISS');
1390: FND_MSG_PUB.ADD;
1391: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1392: fnd_log.string
1393: (
1394: fnd_log.level_error,
1395: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1396: 'Visit Task id is mandatory but found null in input '
1390: FND_MSG_PUB.ADD;
1391: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1392: fnd_log.string
1393: (
1394: fnd_log.level_error,
1395: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1396: 'Visit Task id is mandatory but found null in input '
1397: );
1398: END IF;
1417:
1418: -- Release visit if required
1419: IF l_release_visit_required ='Y' THEN
1420:
1421: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1422: fnd_log.string
1423: (
1424: fnd_log.level_statement,
1425: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1418: -- Release visit if required
1419: IF l_release_visit_required ='Y' THEN
1420:
1421: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1422: fnd_log.string
1423: (
1424: fnd_log.level_statement,
1425: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1426: 'Before calling ahl vwp proj prod pvt.release visit'
1420:
1421: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1422: fnd_log.string
1423: (
1424: fnd_log.level_statement,
1425: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1426: 'Before calling ahl vwp proj prod pvt.release visit'
1427: );
1428:
1438: x_return_status => l_return_status,
1439: x_msg_count => l_msg_count,
1440: x_msg_data => l_msg_data);
1441:
1442: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1443: fnd_log.string
1444: (
1445: fnd_log.level_statement,
1446: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
1439: x_msg_count => l_msg_count,
1440: x_msg_data => l_msg_data);
1441:
1442: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1443: fnd_log.string
1444: (
1445: fnd_log.level_statement,
1446: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
1447: 'After calling ahl vwp proj prod pvt.Release Visit task wo Return Status : '|| l_return_status
1441:
1442: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1443: fnd_log.string
1444: (
1445: fnd_log.level_statement,
1446: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
1447: 'After calling ahl vwp proj prod pvt.Release Visit task wo Return Status : '|| l_return_status
1448: );
1449: END IF;
1460:
1461: END IF; --- p_module type = 'JSP'
1462:
1463:
1464: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1465: fnd_log.string
1466: (
1467: fnd_log.level_statement,
1468: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1461: END IF; --- p_module type = 'JSP'
1462:
1463:
1464: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1465: fnd_log.string
1466: (
1467: fnd_log.level_statement,
1468: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1469: 'Before calling ahl vwp cost pvt.calculate wo cost '
1463:
1464: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1465: fnd_log.string
1466: (
1467: fnd_log.level_statement,
1468: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1469: 'Before calling ahl vwp cost pvt.calculate wo cost '
1470: );
1471: END IF;
1481: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1482: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1483: END IF;
1484:
1485: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1486: fnd_log.string
1487: (
1488: fnd_log.level_procedure,
1489: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
1482: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1483: END IF;
1484:
1485: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1486: fnd_log.string
1487: (
1488: fnd_log.level_procedure,
1489: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
1490: 'After calling ahl vwp cost pvt.Calculate Wo Cost Return Status : '|| l_return_status
1484:
1485: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1486: fnd_log.string
1487: (
1488: fnd_log.level_procedure,
1489: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
1490: 'After calling ahl vwp cost pvt.Calculate Wo Cost Return Status : '|| l_return_status
1491: );
1492: END IF;
1491: );
1492: END IF;
1493:
1494:
1495: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1496: THEN
1497: fnd_log.string
1498: (
1499: fnd_log.level_statement,
1493:
1494:
1495: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1496: THEN
1497: fnd_log.string
1498: (
1499: fnd_log.level_statement,
1500: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1501: 'Is Cst Struc updated Flag: ' || l_cost_price_rec.Is_Cst_Struc_updated
1495: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1496: THEN
1497: fnd_log.string
1498: (
1499: fnd_log.level_statement,
1500: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1501: 'Is Cst Struc updated Flag: ' || l_cost_price_rec.Is_Cst_Struc_updated
1502: );
1503: fnd_log.string
1499: fnd_log.level_statement,
1500: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1501: 'Is Cst Struc updated Flag: ' || l_cost_price_rec.Is_Cst_Struc_updated
1502: );
1503: fnd_log.string
1504: (
1505: fnd_log.level_statement,
1506: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1507: 'Cost Session Id: ' || l_cost_price_rec.cost_session_id
1501: 'Is Cst Struc updated Flag: ' || l_cost_price_rec.Is_Cst_Struc_updated
1502: );
1503: fnd_log.string
1504: (
1505: fnd_log.level_statement,
1506: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1507: 'Cost Session Id: ' || l_cost_price_rec.cost_session_id
1508: );
1509: fnd_log.string
1505: fnd_log.level_statement,
1506: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1507: 'Cost Session Id: ' || l_cost_price_rec.cost_session_id
1508: );
1509: fnd_log.string
1510: (
1511: fnd_log.level_statement,
1512: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1513: 'Mr Session Id: ' || l_cost_price_rec.mr_session_id
1507: 'Cost Session Id: ' || l_cost_price_rec.cost_session_id
1508: );
1509: fnd_log.string
1510: (
1511: fnd_log.level_statement,
1512: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1513: 'Mr Session Id: ' || l_cost_price_rec.mr_session_id
1514: );
1515:
1523: IF FND_API.TO_BOOLEAN(p_commit) THEN
1524: COMMIT WORK;
1525: END IF;
1526:
1527: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1528: fnd_log.string
1529: (
1530: fnd_log.level_procedure,
1531: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Cost.end',
1524: COMMIT WORK;
1525: END IF;
1526:
1527: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1528: fnd_log.string
1529: (
1530: fnd_log.level_procedure,
1531: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Cost.end',
1532: 'At the end of PLSQL procedure'
1526:
1527: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1528: fnd_log.string
1529: (
1530: fnd_log.level_procedure,
1531: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Cost.end',
1532: 'At the end of PLSQL procedure'
1533: );
1534: END IF;
1688:
1689: l_commit VARCHAR2(10) := Fnd_Api.G_FALSE;
1690:
1691: BEGIN
1692: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1693: fnd_log.string
1694: (
1695: fnd_log.level_procedure,
1696: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price.begin',
1689: l_commit VARCHAR2(10) := Fnd_Api.G_FALSE;
1690:
1691: BEGIN
1692: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1693: fnd_log.string
1694: (
1695: fnd_log.level_procedure,
1696: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price.begin',
1697: 'At the start of PLSQL procedure'
1691: BEGIN
1692: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1693: fnd_log.string
1694: (
1695: fnd_log.level_procedure,
1696: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price.begin',
1697: 'At the start of PLSQL procedure'
1698: );
1699:
1706: END IF;
1707: -- Initialize API return status to success
1708: x_return_status := FND_API.G_RET_STS_SUCCESS;
1709: --
1710: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1711: fnd_log.string
1712: (
1713: fnd_log.level_statement,
1714: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1707: -- Initialize API return status to success
1708: x_return_status := FND_API.G_RET_STS_SUCCESS;
1709: --
1710: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1711: fnd_log.string
1712: (
1713: fnd_log.level_statement,
1714: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1715: 'Request for Estimating Price for Task ID : ' || l_cost_price_rec.visit_task_id
1709: --
1710: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1711: fnd_log.string
1712: (
1713: fnd_log.level_statement,
1714: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1715: 'Request for Estimating Price for Task ID : ' || l_cost_price_rec.visit_task_id
1716: );
1717:
1716: );
1717:
1718: END IF;
1719:
1720: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1721: fnd_log.string
1722: (
1723: fnd_log.level_statement,
1724: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1717:
1718: END IF;
1719:
1720: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1721: fnd_log.string
1722: (
1723: fnd_log.level_statement,
1724: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1725: 'Request for Estimating Task Price for Currency code : ' || l_cost_price_rec.currency
1719:
1720: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1721: fnd_log.string
1722: (
1723: fnd_log.level_statement,
1724: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1725: 'Request for Estimating Task Price for Currency code : ' || l_cost_price_rec.currency
1726: );
1727:
1731: IF(l_cost_price_rec.visit_task_id IS NULL OR
1732: l_cost_price_rec.visit_task_id = FND_API.G_MISS_NUM) THEN
1733: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INPUT_MISS');
1734: FND_MSG_PUB.ADD;
1735: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1736: fnd_log.string
1737: (
1738: fnd_log.level_error,
1739: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1732: l_cost_price_rec.visit_task_id = FND_API.G_MISS_NUM) THEN
1733: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INPUT_MISS');
1734: FND_MSG_PUB.ADD;
1735: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1736: fnd_log.string
1737: (
1738: fnd_log.level_error,
1739: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1740: 'Visit Task id is mandatory but found null in input '
1734: FND_MSG_PUB.ADD;
1735: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1736: fnd_log.string
1737: (
1738: fnd_log.level_error,
1739: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1740: 'Visit Task id is mandatory but found null in input '
1741: );
1742: END IF;
1748: FETCH Get_visit_task_dtls_cur INTO l_visit_task_dtls_rec;
1749: IF Get_visit_task_dtls_cur%NOTFOUND THEN
1750: FND_MESSAGE.set_name( 'AHL','AHL_VWP_VISIT_TASK_INVALID' );
1751: FND_MSG_PUB.add;
1752: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1753: fnd_log.string
1754: (
1755: fnd_log.level_error,
1756: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1749: IF Get_visit_task_dtls_cur%NOTFOUND THEN
1750: FND_MESSAGE.set_name( 'AHL','AHL_VWP_VISIT_TASK_INVALID' );
1751: FND_MSG_PUB.add;
1752: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1753: fnd_log.string
1754: (
1755: fnd_log.level_error,
1756: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1757: 'Visit Task not found in ahl_visit_tasks_b table'
1751: FND_MSG_PUB.add;
1752: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1753: fnd_log.string
1754: (
1755: fnd_log.level_error,
1756: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1757: 'Visit Task not found in ahl_visit_tasks_b table'
1758: );
1759: END IF;
1769: l_cost_price_rec.customer_id := l_visit_task_dtls_rec.customer_id;
1770: l_cost_price_rec.organization_id := l_visit_task_dtls_rec.organization_id;
1771:
1772: --
1773: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1774: fnd_log.string
1775: (
1776: fnd_log.level_statement,
1777: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1770: l_cost_price_rec.organization_id := l_visit_task_dtls_rec.organization_id;
1771:
1772: --
1773: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1774: fnd_log.string
1775: (
1776: fnd_log.level_statement,
1777: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1778: 'Price List Id : ' || l_cost_price_rec.price_list_id
1772: --
1773: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1774: fnd_log.string
1775: (
1776: fnd_log.level_statement,
1777: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1778: 'Price List Id : ' || l_cost_price_rec.price_list_id
1779: );
1780:
1777: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1778: 'Price List Id : ' || l_cost_price_rec.price_list_id
1779: );
1780:
1781: fnd_log.string
1782: (
1783: fnd_log.level_statement,
1784: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1785: 'Customer Id : ' || l_cost_price_rec.customer_id
1779: );
1780:
1781: fnd_log.string
1782: (
1783: fnd_log.level_statement,
1784: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1785: 'Customer Id : ' || l_cost_price_rec.customer_id
1786: );
1787:
1784: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1785: 'Customer Id : ' || l_cost_price_rec.customer_id
1786: );
1787:
1788: fnd_log.string
1789: (
1790: fnd_log.level_statement,
1791: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1792: 'Visit Id : ' || l_cost_price_rec.visit_id
1786: );
1787:
1788: fnd_log.string
1789: (
1790: fnd_log.level_statement,
1791: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1792: 'Visit Id : ' || l_cost_price_rec.visit_id
1793: );
1794:
1803: -- error handling
1804: IF l_cost_price_rec.currency IS NULL THEN
1805: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_NO_CURRENCY');
1806: FND_MSG_PUB.ADD;
1807: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1808: fnd_log.string
1809: (
1810: fnd_log.level_error,
1811: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
1804: IF l_cost_price_rec.currency IS NULL THEN
1805: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_NO_CURRENCY');
1806: FND_MSG_PUB.ADD;
1807: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1808: fnd_log.string
1809: (
1810: fnd_log.level_error,
1811: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
1812: 'No curency is defined for the organization of the visit'
1806: FND_MSG_PUB.ADD;
1807: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1808: fnd_log.string
1809: (
1810: fnd_log.level_error,
1811: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
1812: 'No curency is defined for the organization of the visit'
1813: );
1814: END IF;
1815: RAISE FND_API.G_EXC_ERROR;
1816: END IF; -- error handling
1817: END IF; --If currency is null
1818:
1819: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1820: fnd_log.string
1821: (
1822: fnd_log.level_statement,
1823: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1816: END IF; -- error handling
1817: END IF; --If currency is null
1818:
1819: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1820: fnd_log.string
1821: (
1822: fnd_log.level_statement,
1823: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1824: 'Currency : ' || l_cost_price_rec.currency
1818:
1819: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1820: fnd_log.string
1821: (
1822: fnd_log.level_statement,
1823: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1824: 'Currency : ' || l_cost_price_rec.currency
1825: );
1826:
1831: IF (l_cost_price_rec.price_list_id IS NULL OR
1832: l_cost_price_rec.price_list_id = FND_API.G_MISS_NUM ) THEN
1833: FND_MESSAGE.set_name( 'AHL','AHL_VWP_PRICE_LIST_INVALID' );
1834: FND_MSG_PUB.add;
1835: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1836: fnd_log.string
1837: (
1838: fnd_log.level_error,
1839: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1832: l_cost_price_rec.price_list_id = FND_API.G_MISS_NUM ) THEN
1833: FND_MESSAGE.set_name( 'AHL','AHL_VWP_PRICE_LIST_INVALID' );
1834: FND_MSG_PUB.add;
1835: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1836: fnd_log.string
1837: (
1838: fnd_log.level_error,
1839: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1840: 'Price list not found for either Task Or Visit'
1834: FND_MSG_PUB.add;
1835: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1836: fnd_log.string
1837: (
1838: fnd_log.level_error,
1839: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1840: 'Price list not found for either Task Or Visit'
1841: );
1842: END IF;
1844: END IF;
1845:
1846: IF p_module_type = 'JSP' THEN
1847:
1848: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1849: fnd_log.string
1850: (
1851: fnd_log.level_procedure,
1852: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1845:
1846: IF p_module_type = 'JSP' THEN
1847:
1848: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1849: fnd_log.string
1850: (
1851: fnd_log.level_procedure,
1852: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1853: 'Before calling ahl vwp task cost.Estimate Task Cost '
1847:
1848: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1849: fnd_log.string
1850: (
1851: fnd_log.level_procedure,
1852: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1853: 'Before calling ahl vwp task cost.Estimate Task Cost '
1854: );
1855:
1873: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1874: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1875: END IF;
1876:
1877: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1878: fnd_log.string
1879: (
1880: fnd_log.level_procedure,
1881: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
1874: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1875: END IF;
1876:
1877: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1878: fnd_log.string
1879: (
1880: fnd_log.level_procedure,
1881: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
1882: 'After calling ahl vwp task cost pvt.Estimate Task cost Return Status : '|| l_return_status
1876:
1877: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1878: fnd_log.string
1879: (
1880: fnd_log.level_procedure,
1881: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
1882: 'After calling ahl vwp task cost pvt.Estimate Task cost Return Status : '|| l_return_status
1883: );
1884: END IF;
1896: -- If the task has mrs associated and task type is summary get estimated price for the MR
1897:
1898: IF (l_cost_price_rec.mr_id IS NOT NULL AND l_visit_task_dtls_rec.task_type_code = 'SUMMARY')
1899: THEN
1900: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1901: fnd_log.string
1902: (
1903: fnd_log.level_procedure,
1904: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1897:
1898: IF (l_cost_price_rec.mr_id IS NOT NULL AND l_visit_task_dtls_rec.task_type_code = 'SUMMARY')
1899: THEN
1900: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1901: fnd_log.string
1902: (
1903: fnd_log.level_procedure,
1904: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1905: 'Before calling ahl vwp mr cst pr pvt.Estimate Mr Price'
1899: THEN
1900: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1901: fnd_log.string
1902: (
1903: fnd_log.level_procedure,
1904: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1905: 'Before calling ahl vwp mr cst pr pvt.Estimate Mr Price'
1906: );
1907:
1906: );
1907:
1908: END IF;
1909:
1910: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1911: fnd_log.string
1912: (
1913: fnd_log.level_statement,
1914: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
1907:
1908: END IF;
1909:
1910: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1911: fnd_log.string
1912: (
1913: fnd_log.level_statement,
1914: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
1915: 'Mr Id : ' || l_cost_price_rec.mr_id
1909:
1910: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1911: fnd_log.string
1912: (
1913: fnd_log.level_statement,
1914: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
1915: 'Mr Id : ' || l_cost_price_rec.mr_id
1916: );
1917:
1928: x_return_status => l_return_status,
1929: x_msg_count => l_msg_count,
1930: x_msg_data => l_msg_data);
1931:
1932: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1933: fnd_log.string
1934: (
1935: fnd_log.level_procedure,
1936: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
1929: x_msg_count => l_msg_count,
1930: x_msg_data => l_msg_data);
1931:
1932: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1933: fnd_log.string
1934: (
1935: fnd_log.level_procedure,
1936: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
1937: 'After calling ahl vwp cst pr pvt.Estimate Mr Price Return Status : '|| l_return_status
1931:
1932: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1933: fnd_log.string
1934: (
1935: fnd_log.level_procedure,
1936: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
1937: 'After calling ahl vwp cst pr pvt.Estimate Mr Price Return Status : '|| l_return_status
1938: );
1939: END IF;
1949: l_estimated_price := l_cost_price_rec.estimated_price;
1950: l_actual_price := l_cost_price_rec.actual_price;
1951:
1952: --Log messages
1953: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1954: fnd_log.string
1955: (
1956: fnd_log.level_statement,
1957: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
1950: l_actual_price := l_cost_price_rec.actual_price;
1951:
1952: --Log messages
1953: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1954: fnd_log.string
1955: (
1956: fnd_log.level_statement,
1957: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
1958: 'Derieved value from Estimate Mr price for Summary task, Estimated Price : ' || l_estimated_price
1952: --Log messages
1953: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1954: fnd_log.string
1955: (
1956: fnd_log.level_statement,
1957: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
1958: 'Derieved value from Estimate Mr price for Summary task, Estimated Price : ' || l_estimated_price
1959: );
1960:
1957: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
1958: 'Derieved value from Estimate Mr price for Summary task, Estimated Price : ' || l_estimated_price
1959: );
1960:
1961: fnd_log.string
1962: (
1963: fnd_log.level_statement,
1964: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
1965: 'Derieved value from Estimate Mr price for Summary task, Actual Price : ' || l_actual_price
1959: );
1960:
1961: fnd_log.string
1962: (
1963: fnd_log.level_statement,
1964: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
1965: 'Derieved value from Estimate Mr price for Summary task, Actual Price : ' || l_actual_price
1966: );
1967:
1970: Else --- other type of tasks (planned/unplanned/unassociated)
1971:
1972:
1973:
1974: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1975: fnd_log.string
1976: (
1977: fnd_log.level_procedure,
1978: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1971:
1972:
1973:
1974: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1975: fnd_log.string
1976: (
1977: fnd_log.level_procedure,
1978: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1979: 'Before calling ahl vwp rules pvt.Check Job Status'
1973:
1974: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1975: fnd_log.string
1976: (
1977: fnd_log.level_procedure,
1978: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1979: 'Before calling ahl vwp rules pvt.Check Job Status'
1980: );
1981:
1989: x_status_code => l_job_status_code,
1990: x_status_meaning => l_job_status_mean);
1991:
1992: --Log Messages
1993: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1994: fnd_log.string
1995: (
1996: fnd_log.level_procedure,
1997: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
1990: x_status_meaning => l_job_status_mean);
1991:
1992: --Log Messages
1993: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1994: fnd_log.string
1995: (
1996: fnd_log.level_procedure,
1997: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
1998: 'After calling ahl vwp rules pvt.Check Job Status, Return Status : '|| l_return_status
1992: --Log Messages
1993: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1994: fnd_log.string
1995: (
1996: fnd_log.level_procedure,
1997: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
1998: 'After calling ahl vwp rules pvt.Check Job Status, Return Status : '|| l_return_status
1999: );
2000: END IF;
2006: RAISE FND_API.G_EXC_ERROR;
2007: END IF;
2008: END IF;
2009:
2010: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2011: fnd_log.string
2012: (
2013: fnd_log.level_statement,
2014: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2007: END IF;
2008: END IF;
2009:
2010: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2011: fnd_log.string
2012: (
2013: fnd_log.level_statement,
2014: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2015: ' Job Status Code: ' || l_job_status_code
2009:
2010: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2011: fnd_log.string
2012: (
2013: fnd_log.level_statement,
2014: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2015: ' Job Status Code: ' || l_job_status_code
2016: );
2017: fnd_log.string
2013: fnd_log.level_statement,
2014: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2015: ' Job Status Code: ' || l_job_status_code
2016: );
2017: fnd_log.string
2018: (
2019: fnd_log.level_statement,
2020: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2021: ' Job Status Mean: ' || l_job_status_mean
2015: ' Job Status Code: ' || l_job_status_code
2016: );
2017: fnd_log.string
2018: (
2019: fnd_log.level_statement,
2020: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2021: ' Job Status Mean: ' || l_job_status_mean
2022: );
2023: fnd_log.string
2019: fnd_log.level_statement,
2020: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2021: ' Job Status Mean: ' || l_job_status_mean
2022: );
2023: fnd_log.string
2024: (
2025: fnd_log.level_statement,
2026: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2027: 'task start date :' ||l_cost_price_rec.task_start_date
2021: ' Job Status Mean: ' || l_job_status_mean
2022: );
2023: fnd_log.string
2024: (
2025: fnd_log.level_statement,
2026: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2027: 'task start date :' ||l_cost_price_rec.task_start_date
2028: );
2029: END IF;
2043: SELECT ROUTE_ID INTO l_route_id
2044: FROM ahl_mr_routes_v
2045: WHERE mr_route_id = l_visit_task_dtls_rec.mr_route_id;
2046:
2047: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2048: fnd_log.string
2049: (
2050: fnd_log.level_statement,
2051: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2044: FROM ahl_mr_routes_v
2045: WHERE mr_route_id = l_visit_task_dtls_rec.mr_route_id;
2046:
2047: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2048: fnd_log.string
2049: (
2050: fnd_log.level_statement,
2051: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2052: ' For task with Route Id: ' || l_route_id
2046:
2047: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2048: fnd_log.string
2049: (
2050: fnd_log.level_statement,
2051: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2052: ' For task with Route Id: ' || l_route_id
2053: );
2054: END IF;
2063: --Use the task start date and end date.
2064: l_cost_price_rec.task_start_date :=l_visit_task_dtls_rec.start_date_time;
2065: l_cost_price_rec.task_end_date := l_visit_task_dtls_rec.end_date_time;
2066:
2067: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2068: fnd_log.string
2069: (
2070: fnd_log.level_statement,
2071: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2064: l_cost_price_rec.task_start_date :=l_visit_task_dtls_rec.start_date_time;
2065: l_cost_price_rec.task_end_date := l_visit_task_dtls_rec.end_date_time;
2066:
2067: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2068: fnd_log.string
2069: (
2070: fnd_log.level_statement,
2071: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2072: ' Derieved task start date: ' || l_cost_price_rec.task_start_date
2066:
2067: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2068: fnd_log.string
2069: (
2070: fnd_log.level_statement,
2071: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2072: ' Derieved task start date: ' || l_cost_price_rec.task_start_date
2073: );
2074:
2078:
2079: --When Job Status is DRAFT, estimated price for tasks w/Route will be derived
2080: -- based on route material requirements and resource requirements
2081:
2082: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2083: fnd_log.string
2084: (
2085: fnd_log.level_procedure,
2086: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2079: --When Job Status is DRAFT, estimated price for tasks w/Route will be derived
2080: -- based on route material requirements and resource requirements
2081:
2082: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2083: fnd_log.string
2084: (
2085: fnd_log.level_procedure,
2086: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2087: 'Before calling ahl vwp price pvt.Get Task Estimated Price'
2081:
2082: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2083: fnd_log.string
2084: (
2085: fnd_log.level_procedure,
2086: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2087: 'Before calling ahl vwp price pvt.Get Task Estimated Price'
2088: );
2089:
2088: );
2089:
2090: END IF;
2091:
2092: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2093: fnd_log.string
2094: (
2095: fnd_log.level_statement,
2096: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2089:
2090: END IF;
2091:
2092: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2093: fnd_log.string
2094: (
2095: fnd_log.level_statement,
2096: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2097: ' Before Calling Task Estimated Price, Route Id: ' || l_route_id
2091:
2092: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2093: fnd_log.string
2094: (
2095: fnd_log.level_statement,
2096: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2097: ' Before Calling Task Estimated Price, Route Id: ' || l_route_id
2098: );
2099: fnd_log.string
2095: fnd_log.level_statement,
2096: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2097: ' Before Calling Task Estimated Price, Route Id: ' || l_route_id
2098: );
2099: fnd_log.string
2100: (
2101: fnd_log.level_statement,
2102: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2103: ' Before Calling Task Estimated Price, Price List Id: ' || l_cost_price_rec.price_list_id
2097: ' Before Calling Task Estimated Price, Route Id: ' || l_route_id
2098: );
2099: fnd_log.string
2100: (
2101: fnd_log.level_statement,
2102: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2103: ' Before Calling Task Estimated Price, Price List Id: ' || l_cost_price_rec.price_list_id
2104: );
2105:
2102: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2103: ' Before Calling Task Estimated Price, Price List Id: ' || l_cost_price_rec.price_list_id
2104: );
2105:
2106: fnd_log.string
2107: (
2108: fnd_log.level_statement,
2109: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2110: ' Before Calling Task Estimated Price, Customer Id: ' || l_cost_price_rec.customer_id
2104: );
2105:
2106: fnd_log.string
2107: (
2108: fnd_log.level_statement,
2109: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2110: ' Before Calling Task Estimated Price, Customer Id: ' || l_cost_price_rec.customer_id
2111: );
2112: fnd_log.string
2108: fnd_log.level_statement,
2109: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2110: ' Before Calling Task Estimated Price, Customer Id: ' || l_cost_price_rec.customer_id
2111: );
2112: fnd_log.string
2113: (
2114: fnd_log.level_statement,
2115: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2116: ' Before Calling Task Estimated Price, Currency: ' || l_cost_price_rec.currency
2110: ' Before Calling Task Estimated Price, Customer Id: ' || l_cost_price_rec.customer_id
2111: );
2112: fnd_log.string
2113: (
2114: fnd_log.level_statement,
2115: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2116: ' Before Calling Task Estimated Price, Currency: ' || l_cost_price_rec.currency
2117: );
2118: fnd_log.string
2114: fnd_log.level_statement,
2115: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2116: ' Before Calling Task Estimated Price, Currency: ' || l_cost_price_rec.currency
2117: );
2118: fnd_log.string
2119: (
2120: fnd_log.level_statement,
2121: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2122: ' Before Calling Task Estimated Price, Task Start Date: ' || l_cost_price_rec.task_start_date
2116: ' Before Calling Task Estimated Price, Currency: ' || l_cost_price_rec.currency
2117: );
2118: fnd_log.string
2119: (
2120: fnd_log.level_statement,
2121: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2122: ' Before Calling Task Estimated Price, Task Start Date: ' || l_cost_price_rec.task_start_date
2123: );
2124: fnd_log.string
2120: fnd_log.level_statement,
2121: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2122: ' Before Calling Task Estimated Price, Task Start Date: ' || l_cost_price_rec.task_start_date
2123: );
2124: fnd_log.string
2125: (
2126: fnd_log.level_statement,
2127: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2128: ' Before Calling Task Estimated Price, Organization Id: ' || l_cost_price_rec.organization_id
2122: ' Before Calling Task Estimated Price, Task Start Date: ' || l_cost_price_rec.task_start_date
2123: );
2124: fnd_log.string
2125: (
2126: fnd_log.level_statement,
2127: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2128: ' Before Calling Task Estimated Price, Organization Id: ' || l_cost_price_rec.organization_id
2129: );
2130:
2155: x_estimated_price => l_estimated_price,
2156: x_return_status => l_return_status);
2157:
2158: --Log messages
2159: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2160: fnd_log.string
2161: (
2162: fnd_log.level_procedure,
2163: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
2156: x_return_status => l_return_status);
2157:
2158: --Log messages
2159: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2160: fnd_log.string
2161: (
2162: fnd_log.level_procedure,
2163: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
2164: 'After calling ahl vwp price pvt.Get Task Estimated Price, Return Status : '|| l_return_status
2158: --Log messages
2159: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2160: fnd_log.string
2161: (
2162: fnd_log.level_procedure,
2163: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
2164: 'After calling ahl vwp price pvt.Get Task Estimated Price, Return Status : '|| l_return_status
2165: );
2166: END IF;
2182: END IF; --Planned/Unplanned Tasks
2183:
2184: l_cost_price_rec.actual_price := 0;
2185:
2186: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2187: fnd_log.string
2188: (
2189: fnd_log.level_statement,
2190: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2183:
2184: l_cost_price_rec.actual_price := 0;
2185:
2186: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2187: fnd_log.string
2188: (
2189: fnd_log.level_statement,
2190: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2191: ' Derieved Value for Estimated Price: ' || l_cost_price_rec.estimated_price
2185:
2186: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2187: fnd_log.string
2188: (
2189: fnd_log.level_statement,
2190: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2191: ' Derieved Value for Estimated Price: ' || l_cost_price_rec.estimated_price
2192: );
2193: fnd_log.string
2189: fnd_log.level_statement,
2190: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2191: ' Derieved Value for Estimated Price: ' || l_cost_price_rec.estimated_price
2192: );
2193: fnd_log.string
2194: (
2195: fnd_log.level_statement,
2196: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2197: ' Derieved Value for Actual Price: ' || l_cost_price_rec.actual_price
2191: ' Derieved Value for Estimated Price: ' || l_cost_price_rec.estimated_price
2192: );
2193: fnd_log.string
2194: (
2195: fnd_log.level_statement,
2196: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2197: ' Derieved Value for Actual Price: ' || l_cost_price_rec.actual_price
2198: );
2199: END IF;
2200:
2201: ELSE
2202: --If job status other than 'DRAFT''
2203:
2204: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2205: fnd_log.string
2206: (
2207: fnd_log.level_procedure,
2208: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2201: ELSE
2202: --If job status other than 'DRAFT''
2203:
2204: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2205: fnd_log.string
2206: (
2207: fnd_log.level_procedure,
2208: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2209: 'Before calling ahl vwp price pvt.Get Job Estimated Price'
2203:
2204: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2205: fnd_log.string
2206: (
2207: fnd_log.level_procedure,
2208: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2209: 'Before calling ahl vwp price pvt.Get Job Estimated Price'
2210: );
2211:
2210: );
2211:
2212: END IF;
2213:
2214: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2215: fnd_log.string
2216: (
2217: fnd_log.level_statement,
2218: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2211:
2212: END IF;
2213:
2214: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2215: fnd_log.string
2216: (
2217: fnd_log.level_statement,
2218: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2219: ' Before Calling Job Estimated Price, Price List Id: ' || l_cost_price_rec.price_list_id
2213:
2214: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2215: fnd_log.string
2216: (
2217: fnd_log.level_statement,
2218: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2219: ' Before Calling Job Estimated Price, Price List Id: ' || l_cost_price_rec.price_list_id
2220: );
2221: fnd_log.string
2217: fnd_log.level_statement,
2218: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2219: ' Before Calling Job Estimated Price, Price List Id: ' || l_cost_price_rec.price_list_id
2220: );
2221: fnd_log.string
2222: (
2223: fnd_log.level_statement,
2224: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2225: ' Before Calling Job Estimated Price, Customer Id: ' || l_cost_price_rec.customer_id
2219: ' Before Calling Job Estimated Price, Price List Id: ' || l_cost_price_rec.price_list_id
2220: );
2221: fnd_log.string
2222: (
2223: fnd_log.level_statement,
2224: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2225: ' Before Calling Job Estimated Price, Customer Id: ' || l_cost_price_rec.customer_id
2226: );
2227: fnd_log.string
2223: fnd_log.level_statement,
2224: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2225: ' Before Calling Job Estimated Price, Customer Id: ' || l_cost_price_rec.customer_id
2226: );
2227: fnd_log.string
2228: (
2229: fnd_log.level_statement,
2230: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2231: ' Before Calling Job Estimated Price, Currency: ' || l_cost_price_rec.currency
2225: ' Before Calling Job Estimated Price, Customer Id: ' || l_cost_price_rec.customer_id
2226: );
2227: fnd_log.string
2228: (
2229: fnd_log.level_statement,
2230: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price',
2231: ' Before Calling Job Estimated Price, Currency: ' || l_cost_price_rec.currency
2232: );
2233:
2240: p_currency_code => l_cost_price_rec.currency,
2241: x_estimated_price => l_estimated_price,
2242: x_return_status => l_return_status);
2243: --Log messages
2244: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2245: fnd_log.string
2246: (
2247: fnd_log.level_procedure,
2248: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
2241: x_estimated_price => l_estimated_price,
2242: x_return_status => l_return_status);
2243: --Log messages
2244: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2245: fnd_log.string
2246: (
2247: fnd_log.level_procedure,
2248: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
2249: 'After calling ahl vwp price pvt.Get Job Estimated Price, Return Status : '|| l_return_status
2243: --Log messages
2244: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2245: fnd_log.string
2246: (
2247: fnd_log.level_procedure,
2248: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
2249: 'After calling ahl vwp price pvt.Get Job Estimated Price, Return Status : '|| l_return_status
2250: );
2251: END IF;
2259:
2260: -- Assign
2261: l_cost_price_rec.estimated_price := l_estimated_price;
2262:
2263: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2264: fnd_log.string
2265: (
2266: fnd_log.level_statement,
2267: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2260: -- Assign
2261: l_cost_price_rec.estimated_price := l_estimated_price;
2262:
2263: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2264: fnd_log.string
2265: (
2266: fnd_log.level_statement,
2267: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2268: ' Derieved value from Job Estimated Price, Estimated Price: ' || l_estimated_price
2262:
2263: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2264: fnd_log.string
2265: (
2266: fnd_log.level_statement,
2267: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2268: ' Derieved value from Job Estimated Price, Estimated Price: ' || l_estimated_price
2269: );
2270: END IF;
2269: );
2270: END IF;
2271:
2272: -- Call ahl_vwp_price_pvt.get_task_actual_price
2273: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2274: fnd_log.string
2275: (
2276: fnd_log.level_procedure,
2277: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2270: END IF;
2271:
2272: -- Call ahl_vwp_price_pvt.get_task_actual_price
2273: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2274: fnd_log.string
2275: (
2276: fnd_log.level_procedure,
2277: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2278: 'Before calling ahl vwp price pvt.Get Job Actual Price'
2272: -- Call ahl_vwp_price_pvt.get_task_actual_price
2273: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2274: fnd_log.string
2275: (
2276: fnd_log.level_procedure,
2277: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2278: 'Before calling ahl vwp price pvt.Get Job Actual Price'
2279: );
2280:
2279: );
2280:
2281: END IF;
2282:
2283: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2284: fnd_log.string
2285: (
2286: fnd_log.level_statement,
2287: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2280:
2281: END IF;
2282:
2283: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2284: fnd_log.string
2285: (
2286: fnd_log.level_statement,
2287: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2288: ' Before Calling Job Actual Price, Price List Id: ' || l_cost_price_rec.price_list_id
2282:
2283: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2284: fnd_log.string
2285: (
2286: fnd_log.level_statement,
2287: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2288: ' Before Calling Job Actual Price, Price List Id: ' || l_cost_price_rec.price_list_id
2289: );
2290: fnd_log.string
2286: fnd_log.level_statement,
2287: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2288: ' Before Calling Job Actual Price, Price List Id: ' || l_cost_price_rec.price_list_id
2289: );
2290: fnd_log.string
2291: (
2292: fnd_log.level_statement,
2293: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2294: ' Before Calling Job Actual Price, Customer Id: ' || l_cost_price_rec.customer_id
2288: ' Before Calling Job Actual Price, Price List Id: ' || l_cost_price_rec.price_list_id
2289: );
2290: fnd_log.string
2291: (
2292: fnd_log.level_statement,
2293: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2294: ' Before Calling Job Actual Price, Customer Id: ' || l_cost_price_rec.customer_id
2295: );
2296: fnd_log.string
2292: fnd_log.level_statement,
2293: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2294: ' Before Calling Job Actual Price, Customer Id: ' || l_cost_price_rec.customer_id
2295: );
2296: fnd_log.string
2297: (
2298: fnd_log.level_statement,
2299: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2300: ' Before Calling Job Actual Price, Currency: ' || l_cost_price_rec.currency
2294: ' Before Calling Job Actual Price, Customer Id: ' || l_cost_price_rec.customer_id
2295: );
2296: fnd_log.string
2297: (
2298: fnd_log.level_statement,
2299: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2300: ' Before Calling Job Actual Price, Currency: ' || l_cost_price_rec.currency
2301: );
2302:
2309: p_currency_code => l_cost_price_rec.currency,
2310: x_actual_price => l_actual_price,
2311: x_return_status => l_return_status);
2312:
2313: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2314: fnd_log.string
2315: (
2316: fnd_log.level_procedure,
2317: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
2310: x_actual_price => l_actual_price,
2311: x_return_status => l_return_status);
2312:
2313: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2314: fnd_log.string
2315: (
2316: fnd_log.level_procedure,
2317: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
2318: 'After calling ahl vwp rules pvt.Get Job Actual Price, Return Status : '|| l_return_status
2312:
2313: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2314: fnd_log.string
2315: (
2316: fnd_log.level_procedure,
2317: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
2318: 'After calling ahl vwp rules pvt.Get Job Actual Price, Return Status : '|| l_return_status
2319: );
2320: END IF;
2328:
2329: --Assign derived value
2330: l_cost_price_rec.actual_price := l_actual_price;
2331:
2332: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2333: fnd_log.string
2334: (
2335: fnd_log.level_statement,
2336: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2329: --Assign derived value
2330: l_cost_price_rec.actual_price := l_actual_price;
2331:
2332: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2333: fnd_log.string
2334: (
2335: fnd_log.level_statement,
2336: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2337: ' Derieved value from Job Actual Price, Actual Price: ' || l_cost_price_rec.actual_price
2331:
2332: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2333: fnd_log.string
2334: (
2335: fnd_log.level_statement,
2336: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2337: ' Derieved value from Job Actual Price, Actual Price: ' || l_cost_price_rec.actual_price
2338: );
2339:
2348: -- And all the parent MR level
2349:
2350: IF p_module_type = 'JSP' THEN
2351:
2352: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2353: fnd_log.string
2354: (
2355: fnd_log.level_statement,
2356: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2349:
2350: IF p_module_type = 'JSP' THEN
2351:
2352: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2353: fnd_log.string
2354: (
2355: fnd_log.level_statement,
2356: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2357: ' If p_module_type = JSP : ' || p_module_type
2351:
2352: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2353: fnd_log.string
2354: (
2355: fnd_log.level_statement,
2356: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2357: ' If p_module_type = JSP : ' || p_module_type
2358: );
2359:
2361:
2362: IF (l_cost_price_rec.actual_price <> nvl(l_visit_task_dtls_rec.task_actual_price,0) OR
2363: l_cost_price_rec.estimated_price <> nvl(l_visit_task_dtls_rec.task_estimated_price,0) ) THEN
2364:
2365: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2366: fnd_log.string
2367: (
2368: fnd_log.level_statement,
2369: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2362: IF (l_cost_price_rec.actual_price <> nvl(l_visit_task_dtls_rec.task_actual_price,0) OR
2363: l_cost_price_rec.estimated_price <> nvl(l_visit_task_dtls_rec.task_estimated_price,0) ) THEN
2364:
2365: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2366: fnd_log.string
2367: (
2368: fnd_log.level_statement,
2369: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2370: ' After l_Actual Price <> l_visit_task_dtls_rec.task_actual_price: ' || l_visit_task_dtls_rec.task_actual_price
2364:
2365: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2366: fnd_log.string
2367: (
2368: fnd_log.level_statement,
2369: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2370: ' After l_Actual Price <> l_visit_task_dtls_rec.task_actual_price: ' || l_visit_task_dtls_rec.task_actual_price
2371: );
2372: fnd_log.string
2368: fnd_log.level_statement,
2369: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2370: ' After l_Actual Price <> l_visit_task_dtls_rec.task_actual_price: ' || l_visit_task_dtls_rec.task_actual_price
2371: );
2372: fnd_log.string
2373: (
2374: fnd_log.level_statement,
2375: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2376: ' After l_Estimated Price <> l_visit_task_dtls_rec.task_estimated_price: ' || l_visit_task_dtls_rec.task_estimated_price
2370: ' After l_Actual Price <> l_visit_task_dtls_rec.task_actual_price: ' || l_visit_task_dtls_rec.task_actual_price
2371: );
2372: fnd_log.string
2373: (
2374: fnd_log.level_statement,
2375: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2376: ' After l_Estimated Price <> l_visit_task_dtls_rec.task_estimated_price: ' || l_visit_task_dtls_rec.task_estimated_price
2377: );
2378:
2382:
2383: IF (l_visit_task_dtls_rec.task_type_code <> 'UNASSOCIATED'
2384: AND l_visit_task_dtls_rec.originating_task_id IS NOT NULL) THEN
2385:
2386: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2387: fnd_log.string
2388: (
2389: fnd_log.level_statement,
2390: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2383: IF (l_visit_task_dtls_rec.task_type_code <> 'UNASSOCIATED'
2384: AND l_visit_task_dtls_rec.originating_task_id IS NOT NULL) THEN
2385:
2386: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2387: fnd_log.string
2388: (
2389: fnd_log.level_statement,
2390: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2391: ' If task_type_code <> UNASSOCIATED and task is not at the top level: ' || l_visit_task_dtls_rec.task_type_code
2385:
2386: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2387: fnd_log.string
2388: (
2389: fnd_log.level_statement,
2390: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2391: ' If task_type_code <> UNASSOCIATED and task is not at the top level: ' || l_visit_task_dtls_rec.task_type_code
2392: );
2393:
2419: l_estimate_price_dif := (l_cost_price_rec.estimated_price - nvl(l_visit_task_dtls_rec.task_estimated_price,0));
2420: l_parent_task_rec.estimated_price := (nvl(l_parent_task_rec.estimated_price,0) + l_estimate_price_dif);
2421: END IF;
2422:
2423: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2424: fnd_log.string
2425: (
2426: fnd_log.level_statement,
2427: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2420: l_parent_task_rec.estimated_price := (nvl(l_parent_task_rec.estimated_price,0) + l_estimate_price_dif);
2421: END IF;
2422:
2423: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2424: fnd_log.string
2425: (
2426: fnd_log.level_statement,
2427: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2428: ' Before updating parent task ahl_visit_tasks_b, Actual Price: ' || l_parent_task_rec.actual_price
2422:
2423: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2424: fnd_log.string
2425: (
2426: fnd_log.level_statement,
2427: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2428: ' Before updating parent task ahl_visit_tasks_b, Actual Price: ' || l_parent_task_rec.actual_price
2429: );
2430: fnd_log.string
2426: fnd_log.level_statement,
2427: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2428: ' Before updating parent task ahl_visit_tasks_b, Actual Price: ' || l_parent_task_rec.actual_price
2429: );
2430: fnd_log.string
2431: (
2432: fnd_log.level_statement,
2433: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2434: ' Before updating parent task ahl_visit_tasks_b, Estimated Price: ' || l_parent_task_rec.estimated_price
2428: ' Before updating parent task ahl_visit_tasks_b, Actual Price: ' || l_parent_task_rec.actual_price
2429: );
2430: fnd_log.string
2431: (
2432: fnd_log.level_statement,
2433: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2434: ' Before updating parent task ahl_visit_tasks_b, Estimated Price: ' || l_parent_task_rec.estimated_price
2435: );
2436:
2473: l_estimate_price_dif := (l_cost_price_rec.estimated_price - nvl(l_visit_task_dtls_rec.task_estimated_price,0));
2474: l_visit_task_dtls_rec.visit_estimated_price := (nvl(l_visit_task_dtls_rec.visit_estimated_price,0) + l_estimate_price_dif);
2475: END IF;
2476:
2477: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2478: fnd_log.string
2479: (
2480: fnd_log.level_statement,
2481: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2474: l_visit_task_dtls_rec.visit_estimated_price := (nvl(l_visit_task_dtls_rec.visit_estimated_price,0) + l_estimate_price_dif);
2475: END IF;
2476:
2477: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2478: fnd_log.string
2479: (
2480: fnd_log.level_statement,
2481: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2482: ' Before updating visit ahl_visits_b, Actual Price: ' || l_visit_task_dtls_rec.visit_actual_price
2476:
2477: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2478: fnd_log.string
2479: (
2480: fnd_log.level_statement,
2481: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2482: ' Before updating visit ahl_visits_b, Actual Price: ' || l_visit_task_dtls_rec.visit_actual_price
2483: );
2484: fnd_log.string
2480: fnd_log.level_statement,
2481: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2482: ' Before updating visit ahl_visits_b, Actual Price: ' || l_visit_task_dtls_rec.visit_actual_price
2483: );
2484: fnd_log.string
2485: (
2486: fnd_log.level_statement,
2487: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2488: ' Before updating visit ahl_visits_b, Estimated Price: ' || l_visit_task_dtls_rec.visit_estimated_price
2482: ' Before updating visit ahl_visits_b, Actual Price: ' || l_visit_task_dtls_rec.visit_actual_price
2483: );
2484: fnd_log.string
2485: (
2486: fnd_log.level_statement,
2487: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2488: ' Before updating visit ahl_visits_b, Estimated Price: ' || l_visit_task_dtls_rec.visit_estimated_price
2489: );
2490:
2496: estimated_price = l_visit_task_dtls_rec.visit_estimated_price,
2497: object_version_number = l_visit_task_dtls_rec.visit_object_version_number + 1
2498: WHERE visit_id = l_visit_task_dtls_rec.visit_id;
2499:
2500: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2501: fnd_log.string
2502: (
2503: fnd_log.level_statement,
2504: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2497: object_version_number = l_visit_task_dtls_rec.visit_object_version_number + 1
2498: WHERE visit_id = l_visit_task_dtls_rec.visit_id;
2499:
2500: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2501: fnd_log.string
2502: (
2503: fnd_log.level_statement,
2504: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2505: ' Before updating task ahl_visit_tasks_b, Actual Price: ' || l_actual_price
2499:
2500: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2501: fnd_log.string
2502: (
2503: fnd_log.level_statement,
2504: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2505: ' Before updating task ahl_visit_tasks_b, Actual Price: ' || l_actual_price
2506: );
2507: fnd_log.string
2503: fnd_log.level_statement,
2504: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2505: ' Before updating task ahl_visit_tasks_b, Actual Price: ' || l_actual_price
2506: );
2507: fnd_log.string
2508: (
2509: fnd_log.level_statement,
2510: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2511: ' Before updating task ahl_visit_tasks_b, Estimated Price: ' || l_estimated_price
2505: ' Before updating task ahl_visit_tasks_b, Actual Price: ' || l_actual_price
2506: );
2507: fnd_log.string
2508: (
2509: fnd_log.level_statement,
2510: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2511: ' Before updating task ahl_visit_tasks_b, Estimated Price: ' || l_estimated_price
2512: );
2513:
2528: p_x_cost_price_rec.actual_price := l_cost_price_rec.actual_price;
2529: p_x_cost_price_rec.estimated_price := l_cost_price_rec.estimated_price;
2530:
2531:
2532: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2533: fnd_log.string
2534: (
2535: fnd_log.level_statement,
2536: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2529: p_x_cost_price_rec.estimated_price := l_cost_price_rec.estimated_price;
2530:
2531:
2532: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2533: fnd_log.string
2534: (
2535: fnd_log.level_statement,
2536: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2537: ' End of API p_x_cost_price_rec Actual Price: ' || p_x_cost_price_rec.actual_price
2531:
2532: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2533: fnd_log.string
2534: (
2535: fnd_log.level_statement,
2536: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2537: ' End of API p_x_cost_price_rec Actual Price: ' || p_x_cost_price_rec.actual_price
2538: );
2539: fnd_log.string
2535: fnd_log.level_statement,
2536: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2537: ' End of API p_x_cost_price_rec Actual Price: ' || p_x_cost_price_rec.actual_price
2538: );
2539: fnd_log.string
2540: (
2541: fnd_log.level_statement,
2542: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2543: ' End of API p_x_cost_price_rec Estimated Price: ' || p_x_cost_price_rec.estimated_price
2537: ' End of API p_x_cost_price_rec Actual Price: ' || p_x_cost_price_rec.actual_price
2538: );
2539: fnd_log.string
2540: (
2541: fnd_log.level_statement,
2542: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2543: ' End of API p_x_cost_price_rec Estimated Price: ' || p_x_cost_price_rec.estimated_price
2544: );
2545:
2542: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2543: ' End of API p_x_cost_price_rec Estimated Price: ' || p_x_cost_price_rec.estimated_price
2544: );
2545:
2546: fnd_log.string
2547: (
2548: fnd_log.level_statement,
2549: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2550: ' End of API p_x_cost_price_rec Cost Session Id: ' || p_x_cost_price_rec.cost_session_id
2544: );
2545:
2546: fnd_log.string
2547: (
2548: fnd_log.level_statement,
2549: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2550: ' End of API p_x_cost_price_rec Cost Session Id: ' || p_x_cost_price_rec.cost_session_id
2551: );
2552: fnd_log.string
2548: fnd_log.level_statement,
2549: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2550: ' End of API p_x_cost_price_rec Cost Session Id: ' || p_x_cost_price_rec.cost_session_id
2551: );
2552: fnd_log.string
2553: (
2554: fnd_log.level_statement,
2555: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2556: ' End of API p_x_cost_price_rec Mr Session Id: ' || p_x_cost_price_rec.mr_session_id
2550: ' End of API p_x_cost_price_rec Cost Session Id: ' || p_x_cost_price_rec.cost_session_id
2551: );
2552: fnd_log.string
2553: (
2554: fnd_log.level_statement,
2555: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2556: ' End of API p_x_cost_price_rec Mr Session Id: ' || p_x_cost_price_rec.mr_session_id
2557: );
2558:
2568: IF FND_API.TO_BOOLEAN(p_commit) THEN
2569: COMMIT WORK;
2570: END IF;
2571:
2572: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2573: fnd_log.string
2574: (
2575: fnd_log.level_procedure,
2576: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price.end',
2569: COMMIT WORK;
2570: END IF;
2571:
2572: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2573: fnd_log.string
2574: (
2575: fnd_log.level_procedure,
2576: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price.end',
2577: 'At the end of PLSQL procedure'
2571:
2572: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2573: fnd_log.string
2574: (
2575: fnd_log.level_procedure,
2576: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Estimate_Task_Price.end',
2577: 'At the end of PLSQL procedure'
2578: );
2579: END IF;
2668: BEGIN
2669:
2670: SAVEPOINT Get_Node_Cost_Details_pvt;
2671:
2672: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2673: fnd_log.string
2674: (
2675: fnd_log.level_procedure,
2676: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Get_Node_Cost_Details',
2669:
2670: SAVEPOINT Get_Node_Cost_Details_pvt;
2671:
2672: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2673: fnd_log.string
2674: (
2675: fnd_log.level_procedure,
2676: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Get_Node_Cost_Details',
2677: 'At the start of procedure Get_Node_Cost_Details_pvt and the values are visit_id:'||l_cost_price_rec.visit_id||' visit task_id'||l_cost_price_rec.visit_task_id||
2671:
2672: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2673: fnd_log.string
2674: (
2675: fnd_log.level_procedure,
2676: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Get_Node_Cost_Details',
2677: 'At the start of procedure Get_Node_Cost_Details_pvt and the values are visit_id:'||l_cost_price_rec.visit_id||' visit task_id'||l_cost_price_rec.visit_task_id||
2678: 'mr_Sesion_id'||l_cost_price_rec.mr_session_id|| ' cost session_id '||l_cost_price_rec.cost_Session_id
2679: );
2692:
2693: -- Initialize API return status to success
2694: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2695:
2696: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2697: fnd_log.string
2698: (
2699: fnd_log.level_statement,
2700: 'AHL_VWP_TASK_CST_PR_PVT.Get_Node_Cost_Details Visit Task Id'||l_cost_price_rec.visit_task_id,
2693: -- Initialize API return status to success
2694: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2695:
2696: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2697: fnd_log.string
2698: (
2699: fnd_log.level_statement,
2700: 'AHL_VWP_TASK_CST_PR_PVT.Get_Node_Cost_Details Visit Task Id'||l_cost_price_rec.visit_task_id,
2701: 'Visit ID: ' || l_cost_price_rec.visit_id
2695:
2696: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2697: fnd_log.string
2698: (
2699: fnd_log.level_statement,
2700: 'AHL_VWP_TASK_CST_PR_PVT.Get_Node_Cost_Details Visit Task Id'||l_cost_price_rec.visit_task_id,
2701: 'Visit ID: ' || l_cost_price_rec.visit_id
2702: );
2703: END IF;
2714:
2715: IF (visit_info_csr%NOTFOUND)THEN
2716: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INV_VISIT');
2717: FND_MSG_PUB.ADD;
2718: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
2719: fnd_log.string
2720: (
2721: fnd_log.level_exception,
2722: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2715: IF (visit_info_csr%NOTFOUND)THEN
2716: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INV_VISIT');
2717: FND_MSG_PUB.ADD;
2718: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
2719: fnd_log.string
2720: (
2721: fnd_log.level_exception,
2722: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2723: 'Visit id not found in ahl_visits_b table'
2717: FND_MSG_PUB.ADD;
2718: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
2719: fnd_log.string
2720: (
2721: fnd_log.level_exception,
2722: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2723: 'Visit id not found in ahl_visits_b table'
2724: );
2725: END IF;
2730:
2731: -- Not to calculate cost if visit is in cancelled status
2732: IF l_visit_status <>'CANCELLED' THEN
2733:
2734: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2735: fnd_log.string
2736: (
2737: fnd_log.level_procedure,
2738: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2731: -- Not to calculate cost if visit is in cancelled status
2732: IF l_visit_status <>'CANCELLED' THEN
2733:
2734: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2735: fnd_log.string
2736: (
2737: fnd_log.level_procedure,
2738: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2739: 'Before call to AHL_VWP_COST_PVT.calculate_wo_cost'
2733:
2734: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2735: fnd_log.string
2736: (
2737: fnd_log.level_procedure,
2738: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2739: 'Before call to AHL_VWP_COST_PVT.calculate_wo_cost'
2740: );
2741: END IF;
2750:
2751: --x_msg_count := Fnd_Msg_Pub.count_msg;
2752: IF x_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
2753:
2754: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2755: fnd_log.string
2756: (
2757: fnd_log.level_procedure,
2758: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2751: --x_msg_count := Fnd_Msg_Pub.count_msg;
2752: IF x_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
2753:
2754: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2755: fnd_log.string
2756: (
2757: fnd_log.level_procedure,
2758: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2759: 'Error thrown by AHL_VWP_COST_PVT.calculate_wo_cost'
2753:
2754: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2755: fnd_log.string
2756: (
2757: fnd_log.level_procedure,
2758: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2759: 'Error thrown by AHL_VWP_COST_PVT.calculate_wo_cost'
2760: );
2761: END IF;
2766:
2767: IF (l_cost_price_rec.Is_Cst_Struc_updated = 'N') AND (l_cost_price_rec.workorder_id IS NOT NULL) THEN
2768:
2769:
2770: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2771: fnd_log.string
2772: (
2773: fnd_log.level_procedure,
2774: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2767: IF (l_cost_price_rec.Is_Cst_Struc_updated = 'N') AND (l_cost_price_rec.workorder_id IS NOT NULL) THEN
2768:
2769:
2770: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2771: fnd_log.string
2772: (
2773: fnd_log.level_procedure,
2774: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2775: 'Before call to AHL_VWP_COST_PVT.calculate_task_cost'
2769:
2770: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2771: fnd_log.string
2772: (
2773: fnd_log.level_procedure,
2774: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
2775: 'Before call to AHL_VWP_COST_PVT.calculate_task_cost'
2776: );
2777: END IF;
2790: -- yazhou 09Aug2005 ends
2791:
2792: ELSE
2793: -- Error : Visit Task id is null
2794: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2795: fnd_log.string
2796: (
2797: fnd_log.level_error,
2798: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Get_Node_Cost_Details',
2791:
2792: ELSE
2793: -- Error : Visit Task id is null
2794: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2795: fnd_log.string
2796: (
2797: fnd_log.level_error,
2798: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Get_Node_Cost_Details',
2799: 'Error : visit task id is null'
2793: -- Error : Visit Task id is null
2794: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2795: fnd_log.string
2796: (
2797: fnd_log.level_error,
2798: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.Get_Node_Cost_Details',
2799: 'Error : visit task id is null'
2800: );
2801:
2807: END IF;
2808:
2809: x_msg_count := Fnd_Msg_Pub.count_msg;
2810: IF x_msg_count > 0 THEN
2811: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2812: fnd_log.string
2813: (
2814: fnd_log.level_procedure,
2815: 'ahl.plsql.AHL_VWP_COST_PVT.calculate_task_cost',
2808:
2809: x_msg_count := Fnd_Msg_Pub.count_msg;
2810: IF x_msg_count > 0 THEN
2811: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2812: fnd_log.string
2813: (
2814: fnd_log.level_procedure,
2815: 'ahl.plsql.AHL_VWP_COST_PVT.calculate_task_cost',
2816: 'Error thrown by AHL_VWP_COST_PVT.calculate_task_cost'
2810: IF x_msg_count > 0 THEN
2811: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2812: fnd_log.string
2813: (
2814: fnd_log.level_procedure,
2815: 'ahl.plsql.AHL_VWP_COST_PVT.calculate_task_cost',
2816: 'Error thrown by AHL_VWP_COST_PVT.calculate_task_cost'
2817: );
2818: END IF;
3010:
3011:
3012: BEGIN
3013:
3014: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3015: fnd_log.string
3016: (
3017: fnd_log.level_procedure,
3018: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_TASK_ITEMS_NO_PRICE.begin',
3011:
3012: BEGIN
3013:
3014: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3015: fnd_log.string
3016: (
3017: fnd_log.level_procedure,
3018: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_TASK_ITEMS_NO_PRICE.begin',
3019: 'At the start of PLSQL procedure'
3013:
3014: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3015: fnd_log.string
3016: (
3017: fnd_log.level_procedure,
3018: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_TASK_ITEMS_NO_PRICE.begin',
3019: 'At the start of PLSQL procedure'
3020: );
3021:
3036:
3037: -- Initialize API return status to success
3038: x_return_status := FND_API.G_RET_STS_SUCCESS;
3039:
3040: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3041: fnd_log.string
3042: (
3043: fnd_log.level_statement,
3044: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3037: -- Initialize API return status to success
3038: x_return_status := FND_API.G_RET_STS_SUCCESS;
3039:
3040: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3041: fnd_log.string
3042: (
3043: fnd_log.level_statement,
3044: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3045: 'Request to get items without price for Task ID : ' || l_cost_price_rec.visit_task_id
3039:
3040: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3041: fnd_log.string
3042: (
3043: fnd_log.level_statement,
3044: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3045: 'Request to get items without price for Task ID : ' || l_cost_price_rec.visit_task_id
3046: );
3047:
3051: IF(l_cost_price_rec.visit_task_id IS NULL OR
3052: l_cost_price_rec.visit_task_id = FND_API.G_MISS_NUM) THEN
3053: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INPUT_MISS');
3054: FND_MSG_PUB.ADD;
3055: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3056: fnd_log.string
3057: (
3058: fnd_log.level_error,
3059: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3052: l_cost_price_rec.visit_task_id = FND_API.G_MISS_NUM) THEN
3053: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_VWP_CST_INPUT_MISS');
3054: FND_MSG_PUB.ADD;
3055: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3056: fnd_log.string
3057: (
3058: fnd_log.level_error,
3059: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3060: 'Visit Task id is mandatory but found null in input '
3054: FND_MSG_PUB.ADD;
3055: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3056: fnd_log.string
3057: (
3058: fnd_log.level_error,
3059: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3060: 'Visit Task id is mandatory but found null in input '
3061: );
3062: END IF;
3071:
3072: IF c_task_csr%NOTFOUND THEN
3073: FND_MESSAGE.set_name( 'AHL','AHL_VWP_VISIT_TASK_INVALID' );
3074: FND_MSG_PUB.add;
3075: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3076: fnd_log.string
3077: (
3078: fnd_log.level_error,
3079: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3072: IF c_task_csr%NOTFOUND THEN
3073: FND_MESSAGE.set_name( 'AHL','AHL_VWP_VISIT_TASK_INVALID' );
3074: FND_MSG_PUB.add;
3075: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3076: fnd_log.string
3077: (
3078: fnd_log.level_error,
3079: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3080: 'Visit Task not found in ahl_visit_tasks_b table'
3074: FND_MSG_PUB.add;
3075: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3076: fnd_log.string
3077: (
3078: fnd_log.level_error,
3079: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3080: 'Visit Task not found in ahl_visit_tasks_b table'
3081: );
3082: END IF;
3105:
3106: -- Release visit if required
3107: IF l_release_visit_required ='Y' THEN
3108:
3109: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3110: fnd_log.string
3111: (
3112: fnd_log.level_procedure,
3113: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3106: -- Release visit if required
3107: IF l_release_visit_required ='Y' THEN
3108:
3109: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3110: fnd_log.string
3111: (
3112: fnd_log.level_procedure,
3113: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3114: 'Before calling ahl vwp proj prod pvt.release visit'
3108:
3109: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3110: fnd_log.string
3111: (
3112: fnd_log.level_procedure,
3113: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3114: 'Before calling ahl vwp proj prod pvt.release visit'
3115: );
3116:
3128: x_msg_data =>x_msg_data,
3129: p_visit_id =>l_task_rec.visit_id
3130: );
3131:
3132: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3133: fnd_log.string
3134: (
3135: fnd_log.level_procedure,
3136: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
3129: p_visit_id =>l_task_rec.visit_id
3130: );
3131:
3132: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3133: fnd_log.string
3134: (
3135: fnd_log.level_procedure,
3136: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
3137: 'After calling ahl vwp proj prod pvt.Release Visit task wo Return Status : '|| l_return_status
3131:
3132: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3133: fnd_log.string
3134: (
3135: fnd_log.level_procedure,
3136: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
3137: 'After calling ahl vwp proj prod pvt.Release Visit task wo Return Status : '|| l_return_status
3138: );
3139: END IF;
3175: END IF;
3176:
3177: End if;
3178:
3179: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3180: fnd_log.string
3181: (
3182: fnd_log.level_statement,
3183: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3176:
3177: End if;
3178:
3179: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3180: fnd_log.string
3181: (
3182: fnd_log.level_statement,
3183: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3184: 'Price List ID :' ||l_cost_price_rec.price_list_id
3178:
3179: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3180: fnd_log.string
3181: (
3182: fnd_log.level_statement,
3183: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3184: 'Price List ID :' ||l_cost_price_rec.price_list_id
3185: );
3186: END IF;
3188:
3189: l_cost_price_rec.organization_id:=l_visit_rec.organization_id;
3190:
3191:
3192: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3193: fnd_log.string
3194: (
3195: fnd_log.level_statement,
3196: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3189: l_cost_price_rec.organization_id:=l_visit_rec.organization_id;
3190:
3191:
3192: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3193: fnd_log.string
3194: (
3195: fnd_log.level_statement,
3196: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3197: 'Organization ID :' ||l_cost_price_rec.organization_id
3191:
3192: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3193: fnd_log.string
3194: (
3195: fnd_log.level_statement,
3196: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3197: 'Organization ID :' ||l_cost_price_rec.organization_id
3198: );
3199: END IF;
3206: fetch c_customer_csr into l_cost_price_rec.customer_id;
3207: close c_customer_csr;
3208: END IF;
3209:
3210: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3211: fnd_log.string
3212: (
3213: fnd_log.level_statement,
3214: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3207: close c_customer_csr;
3208: END IF;
3209:
3210: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3211: fnd_log.string
3212: (
3213: fnd_log.level_statement,
3214: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3215: 'Customer ID :' ||l_cost_price_rec.customer_id
3209:
3210: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3211: fnd_log.string
3212: (
3213: fnd_log.level_statement,
3214: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3215: 'Customer ID :' ||l_cost_price_rec.customer_id
3216: );
3217: END IF;
3228: -- Check for value is null
3229: IF l_cost_price_rec.currency IS NULL THEN
3230: FND_MESSAGE.Set_Name(G_PKG_NAME,'AHL_VWP_CST_NO_CURRENCY');
3231: FND_MSG_PUB.ADD;
3232: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3233: fnd_log.string
3234: (
3235: fnd_log.level_statement,
3236: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
3229: IF l_cost_price_rec.currency IS NULL THEN
3230: FND_MESSAGE.Set_Name(G_PKG_NAME,'AHL_VWP_CST_NO_CURRENCY');
3231: FND_MSG_PUB.ADD;
3232: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3233: fnd_log.string
3234: (
3235: fnd_log.level_statement,
3236: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
3237: 'No curency is defined for the organization of the visit'
3231: FND_MSG_PUB.ADD;
3232: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3233: fnd_log.string
3234: (
3235: fnd_log.level_statement,
3236: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
3237: 'No curency is defined for the organization of the visit'
3238: );
3239: END IF;
3240: RAISE FND_API.G_EXC_ERROR;
3241: END IF;
3242: END IF; --If currency is null
3243:
3244: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3245: fnd_log.string
3246: (
3247: fnd_log.level_statement,
3248: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3241: END IF;
3242: END IF; --If currency is null
3243:
3244: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3245: fnd_log.string
3246: (
3247: fnd_log.level_statement,
3248: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3249: 'Currency Code :' ||l_cost_price_rec.currency
3243:
3244: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3245: fnd_log.string
3246: (
3247: fnd_log.level_statement,
3248: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3249: 'Currency Code :' ||l_cost_price_rec.currency
3250: );
3251: END IF;
3265: RAISE FND_API.G_EXC_ERROR;
3266: END IF;
3267: END IF;
3268:
3269: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3270: fnd_log.string
3271: (
3272: fnd_log.level_statement,
3273: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3266: END IF;
3267: END IF;
3268:
3269: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3270: fnd_log.string
3271: (
3272: fnd_log.level_statement,
3273: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3274: 'Job Status :' ||l_job_status_code
3268:
3269: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3270: fnd_log.string
3271: (
3272: fnd_log.level_statement,
3273: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3274: 'Job Status :' ||l_job_status_code
3275: );
3276: fnd_log.string
3272: fnd_log.level_statement,
3273: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3274: 'Job Status :' ||l_job_status_code
3275: );
3276: fnd_log.string
3277: (
3278: fnd_log.level_statement,
3279: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3280: 'task start date :' ||l_cost_price_rec.task_start_date
3274: 'Job Status :' ||l_job_status_code
3275: );
3276: fnd_log.string
3277: (
3278: fnd_log.level_statement,
3279: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3280: 'task start date :' ||l_cost_price_rec.task_start_date
3281: );
3282: END IF;
3291: END IF; -- job status
3292:
3293:
3294:
3295: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3296: fnd_log.string
3297: (
3298: fnd_log.level_statement,
3299: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3292:
3293:
3294:
3295: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3296: fnd_log.string
3297: (
3298: fnd_log.level_statement,
3299: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3300: 'Task Start Date is: ' ||l_cost_price_rec.Task_Start_Date
3294:
3295: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3296: fnd_log.string
3297: (
3298: fnd_log.level_statement,
3299: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3300: 'Task Start Date is: ' ||l_cost_price_rec.Task_Start_Date
3301: );
3302: END IF;
3300: 'Task Start Date is: ' ||l_cost_price_rec.Task_Start_Date
3301: );
3302: END IF;
3303:
3304: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3305: fnd_log.string
3306: (
3307: fnd_log.level_statement,
3308: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3301: );
3302: END IF;
3303:
3304: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3305: fnd_log.string
3306: (
3307: fnd_log.level_statement,
3308: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3309: 'Task Type is: ' ||l_task_rec.task_type_code
3303:
3304: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3305: fnd_log.string
3306: (
3307: fnd_log.level_statement,
3308: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3309: 'Task Type is: ' ||l_task_rec.task_type_code
3310: );
3311: END IF;
3367: x_item_tbl =>l_item_tbl
3368: );
3369: end if;
3370:
3371: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
3372: THEN
3373: fnd_log.string
3374: (
3375: fnd_log.level_statement,
3369: end if;
3370:
3371: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
3372: THEN
3373: fnd_log.string
3374: (
3375: fnd_log.level_statement,
3376: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3377: 'Number of rows in Item List table : ' ||l_item_tbl.count
3371: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
3372: THEN
3373: fnd_log.string
3374: (
3375: fnd_log.level_statement,
3376: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3377: 'Number of rows in Item List table : ' ||l_item_tbl.count
3378: );
3379: END IF;
3388: x_item_tbl =>l_x_item_tbl,
3389: x_return_status =>l_return_status
3390: );
3391:
3392: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
3393: THEN
3394: fnd_log.string
3395: (
3396: fnd_log.level_statement,
3390: );
3391:
3392: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
3393: THEN
3394: fnd_log.string
3395: (
3396: fnd_log.level_statement,
3397: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3398: 'Number of rows in Item Without Price table : ' ||l_item_tbl.count
3392: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
3393: THEN
3394: fnd_log.string
3395: (
3396: fnd_log.level_statement,
3397: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
3398: 'Number of rows in Item Without Price table : ' ||l_item_tbl.count
3399: );
3400: END IF;
3452: COMMIT;
3453: END IF;
3454:
3455:
3456: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3457: fnd_log.string
3458: (
3459: fnd_log.level_procedure,
3460: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_TASK_ITEMS_NO_PRICE.begin',
3453: END IF;
3454:
3455:
3456: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3457: fnd_log.string
3458: (
3459: fnd_log.level_procedure,
3460: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_TASK_ITEMS_NO_PRICE.begin',
3461: 'At the end of PLSQL procedure'
3455:
3456: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3457: fnd_log.string
3458: (
3459: fnd_log.level_procedure,
3460: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_TASK_ITEMS_NO_PRICE.begin',
3461: 'At the end of PLSQL procedure'
3462: );
3463:
3527: l_item_tbl AHL_VWP_RULES_PVT.ITEM_TBL_TYPE;
3528:
3529: BEGIN
3530:
3531: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3532: fnd_log.string
3533: (
3534: fnd_log.level_procedure,
3535: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_UNASSOCIATED_ITEMS.begin',
3528:
3529: BEGIN
3530:
3531: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3532: fnd_log.string
3533: (
3534: fnd_log.level_procedure,
3535: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_UNASSOCIATED_ITEMS.begin',
3536: 'At the start of PLSQL procedure'
3530:
3531: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3532: fnd_log.string
3533: (
3534: fnd_log.level_procedure,
3535: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_UNASSOCIATED_ITEMS.begin',
3536: 'At the start of PLSQL procedure'
3537: );
3538:
3549: x_item_tbl =>l_item_tbl1,
3550: x_return_status =>l_return_status
3551: );
3552:
3553: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3554: fnd_log.string
3555: (
3556: fnd_log.level_statement,
3557: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_UNASSOCIATED_ITEMS.begin',
3550: x_return_status =>l_return_status
3551: );
3552:
3553: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3554: fnd_log.string
3555: (
3556: fnd_log.level_statement,
3557: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_UNASSOCIATED_ITEMS.begin',
3558: 'Number of items for resource transactions: ' || l_item_tbl1.count
3552:
3553: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3554: fnd_log.string
3555: (
3556: fnd_log.level_statement,
3557: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_UNASSOCIATED_ITEMS.begin',
3558: 'Number of items for resource transactions: ' || l_item_tbl1.count
3559: );
3560:
3567: x_return_status =>l_return_status
3568: );
3569:
3570:
3571: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3572: fnd_log.string
3573: (
3574: fnd_log.level_statement,
3575: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_UNASSOCIATED_ITEMS.begin',
3568: );
3569:
3570:
3571: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3572: fnd_log.string
3573: (
3574: fnd_log.level_statement,
3575: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_UNASSOCIATED_ITEMS.begin',
3576: 'Number of items for materials transactions: ' || l_item_tbl2.count
3570:
3571: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3572: fnd_log.string
3573: (
3574: fnd_log.level_statement,
3575: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_UNASSOCIATED_ITEMS.begin',
3576: 'Number of items for materials transactions: ' || l_item_tbl2.count
3577: );
3578:
3594: p_item_tbl2 =>l_item_tbl2,
3595: x_item_tbl =>l_item_tbl
3596: );
3597:
3598: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3599: fnd_log.string
3600: (
3601: fnd_log.level_statement,
3602: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_UNASSOCIATED_ITEMS.begin',
3595: x_item_tbl =>l_item_tbl
3596: );
3597:
3598: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3599: fnd_log.string
3600: (
3601: fnd_log.level_statement,
3602: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_UNASSOCIATED_ITEMS.begin',
3603: 'Number of items for material and resource transactions: ' || l_item_tbl.count
3597:
3598: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3599: fnd_log.string
3600: (
3601: fnd_log.level_statement,
3602: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_UNASSOCIATED_ITEMS.begin',
3603: 'Number of items for material and resource transactions: ' || l_item_tbl.count
3604: );
3605:
3611: IF FND_API.TO_BOOLEAN(p_commit) THEN
3612: COMMIT WORK;
3613: END IF;
3614:
3615: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3616: fnd_log.string
3617: (
3618: fnd_log.level_statement,
3619: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_UNASSOCIATED_ITEMS.end',
3612: COMMIT WORK;
3613: END IF;
3614:
3615: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3616: fnd_log.string
3617: (
3618: fnd_log.level_statement,
3619: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_UNASSOCIATED_ITEMS.end',
3620: 'At the end of PLSQL procedure'
3614:
3615: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3616: fnd_log.string
3617: (
3618: fnd_log.level_statement,
3619: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_UNASSOCIATED_ITEMS.end',
3620: 'At the end of PLSQL procedure'
3621: );
3622:
3700: l_msg_count NUMBER;
3701:
3702: BEGIN
3703:
3704: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3705: fnd_log.string
3706: (
3707: fnd_log.level_procedure,
3708: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_OTHER_TASK_ITEMS.begin',
3701:
3702: BEGIN
3703:
3704: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3705: fnd_log.string
3706: (
3707: fnd_log.level_procedure,
3708: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_OTHER_TASK_ITEMS.begin',
3709: 'At the begining of PLSQL procedure'
3703:
3704: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3705: fnd_log.string
3706: (
3707: fnd_log.level_procedure,
3708: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_OTHER_TASK_ITEMS.begin',
3709: 'At the begining of PLSQL procedure'
3710: );
3711:
3752: x_return_status =>l_return_status
3753: );
3754:
3755:
3756: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3757: fnd_log.string
3758: (
3759: fnd_log.level_statement,
3760: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_OTHER_TASK_ITEMS',
3753: );
3754:
3755:
3756: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3757: fnd_log.string
3758: (
3759: fnd_log.level_statement,
3760: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_OTHER_TASK_ITEMS',
3761: 'Number of items for route resource requirements: ' || l_item_tbl_res.count
3755:
3756: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3757: fnd_log.string
3758: (
3759: fnd_log.level_statement,
3760: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_OTHER_TASK_ITEMS',
3761: 'Number of items for route resource requirements: ' || l_item_tbl_res.count
3762: );
3763:
3772: x_return_status =>l_return_status
3773: );
3774:
3775:
3776: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3777: fnd_log.string
3778: (
3779: fnd_log.level_statement,
3780: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_OTHER_TASK_ITEMS',
3773: );
3774:
3775:
3776: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3777: fnd_log.string
3778: (
3779: fnd_log.level_statement,
3780: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_OTHER_TASK_ITEMS',
3781: 'Number of items for route material requirements: ' || l_item_tbl_mat.count
3775:
3776: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3777: fnd_log.string
3778: (
3779: fnd_log.level_statement,
3780: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_OTHER_TASK_ITEMS',
3781: 'Number of items for route material requirements: ' || l_item_tbl_mat.count
3782: );
3783:
3799: x_item_tbl =>l_item_tbl_res,
3800: x_return_status =>l_return_status
3801: );
3802:
3803: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3804: fnd_log.string
3805: (
3806: fnd_log.level_statement,
3807: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_OTHER_TASK_ITEMS',
3800: x_return_status =>l_return_status
3801: );
3802:
3803: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3804: fnd_log.string
3805: (
3806: fnd_log.level_statement,
3807: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_OTHER_TASK_ITEMS',
3808: 'Number of items for production resource requirements: ' || l_item_tbl_res.count
3802:
3803: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3804: fnd_log.string
3805: (
3806: fnd_log.level_statement,
3807: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_OTHER_TASK_ITEMS',
3808: 'Number of items for production resource requirements: ' || l_item_tbl_res.count
3809: );
3810:
3816: x_item_tbl =>l_item_tbl_mat,
3817: x_return_status =>l_return_status
3818: );
3819:
3820: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3821: fnd_log.string
3822: (
3823: fnd_log.level_statement,
3824: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_OTHER_TASK_ITEMS',
3817: x_return_status =>l_return_status
3818: );
3819:
3820: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3821: fnd_log.string
3822: (
3823: fnd_log.level_statement,
3824: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_OTHER_TASK_ITEMS',
3825: 'Number of items for production material requirements: ' || l_item_tbl_mat.count
3819:
3820: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3821: fnd_log.string
3822: (
3823: fnd_log.level_statement,
3824: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_OTHER_TASK_ITEMS',
3825: 'Number of items for production material requirements: ' || l_item_tbl_mat.count
3826: );
3827:
3833: p_item_tbl2 =>l_item_tbl_mat,
3834: x_item_tbl =>l_item_tbl2
3835: );
3836:
3837: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3838: fnd_log.string
3839: (
3840: fnd_log.level_statement,
3841: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_OTHER_TASK_ITEMS',
3834: x_item_tbl =>l_item_tbl2
3835: );
3836:
3837: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3838: fnd_log.string
3839: (
3840: fnd_log.level_statement,
3841: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_OTHER_TASK_ITEMS',
3842: 'Number of items for production material and resource requirements: ' || l_item_tbl.count
3836:
3837: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3838: fnd_log.string
3839: (
3840: fnd_log.level_statement,
3841: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_OTHER_TASK_ITEMS',
3842: 'Number of items for production material and resource requirements: ' || l_item_tbl.count
3843: );
3844:
3850: x_item_tbl =>l_item_tbl_res,
3851: x_return_status =>l_return_status
3852: );
3853:
3854: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3855: fnd_log.string
3856: (
3857: fnd_log.level_statement,
3858: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_OTHER_TASK_ITEMS',
3851: x_return_status =>l_return_status
3852: );
3853:
3854: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3855: fnd_log.string
3856: (
3857: fnd_log.level_statement,
3858: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_OTHER_TASK_ITEMS',
3859: 'Number of items for production resource transactions: ' || l_item_tbl_res.count
3853:
3854: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3855: fnd_log.string
3856: (
3857: fnd_log.level_statement,
3858: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_OTHER_TASK_ITEMS',
3859: 'Number of items for production resource transactions: ' || l_item_tbl_res.count
3860: );
3861:
3867: x_item_tbl =>l_item_tbl_mat,
3868: x_return_status =>l_return_status
3869: );
3870:
3871: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3872: fnd_log.string
3873: (
3874: fnd_log.level_statement,
3875: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_OTHER_TASK_ITEMS',
3868: x_return_status =>l_return_status
3869: );
3870:
3871: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3872: fnd_log.string
3873: (
3874: fnd_log.level_statement,
3875: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_OTHER_TASK_ITEMS',
3876: 'Number of items for production material transactions: ' || l_item_tbl_mat.count
3870:
3871: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3872: fnd_log.string
3873: (
3874: fnd_log.level_statement,
3875: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_OTHER_TASK_ITEMS',
3876: 'Number of items for production material transactions: ' || l_item_tbl_mat.count
3877: );
3878:
3884: p_item_tbl2 =>l_item_tbl_mat,
3885: x_item_tbl =>l_item_tbl1
3886: );
3887:
3888: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3889: fnd_log.string
3890: (
3891: fnd_log.level_statement,
3892: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_OTHER_TASK_ITEMS',
3885: x_item_tbl =>l_item_tbl1
3886: );
3887:
3888: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3889: fnd_log.string
3890: (
3891: fnd_log.level_statement,
3892: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_OTHER_TASK_ITEMS',
3893: 'Number of items for production material and resource transactions: ' || l_item_tbl1.count
3887:
3888: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3889: fnd_log.string
3890: (
3891: fnd_log.level_statement,
3892: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_OTHER_TASK_ITEMS',
3893: 'Number of items for production material and resource transactions: ' || l_item_tbl1.count
3894: );
3895:
3905:
3906:
3907: End if;
3908:
3909: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3910:
3911: fnd_log.string
3912: (
3913: fnd_log.level_statement,
3907: End if;
3908:
3909: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3910:
3911: fnd_log.string
3912: (
3913: fnd_log.level_statement,
3914: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_OTHER_TASK_ITEMS',
3915: 'Number of items for all requirements and transactions: ' || l_item_tbl.count
3909: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3910:
3911: fnd_log.string
3912: (
3913: fnd_log.level_statement,
3914: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_OTHER_TASK_ITEMS',
3915: 'Number of items for all requirements and transactions: ' || l_item_tbl.count
3916: );
3917:
3931: IF FND_API.TO_BOOLEAN(p_commit) THEN
3932: COMMIT WORK;
3933: END IF;
3934:
3935: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3936: fnd_log.string
3937: (
3938: fnd_log.level_statement,
3939: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_OTHER_TASK_ITEMS.end',
3932: COMMIT WORK;
3933: END IF;
3934:
3935: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3936: fnd_log.string
3937: (
3938: fnd_log.level_statement,
3939: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_OTHER_TASK_ITEMS.end',
3940: 'At the end of PLSQL procedure'
3934:
3935: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3936: fnd_log.string
3937: (
3938: fnd_log.level_statement,
3939: 'ahl.plsql.AHL_VWP_TASK_CST_PR_PVT.GET_OTHER_TASK_ITEMS.end',
3940: 'At the end of PLSQL procedure'
3941: );
3942: