[Home] [Help]
3907: Pa_Debug.g_err_stage:= 'PA_PROJ_ELEMENTS_UTILS : CHECK_TASK_HAS_TRANSACTION : check expenditure item for '|| p_task_id;
3908: Pa_Debug.WRITE(g_module_name , Pa_Debug.g_err_stage , l_debug_level3);
3909: END IF;
3910: l_status_code :=
3911: pa_proj_tsk_utils.check_exp_item_exists(null, p_task_id);
3912: IF ( l_status_code = 1 ) THEN
3913: x_error_code := 50;
3914: x_error_msg_code := 'PA_TSK_EXP_ITEM_EXIST';
3915: return;
3924: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
3925: l_debug_level3);
3926: END IF;
3927: l_status_code :=
3928: pa_proj_tsk_utils.check_po_dist_exists(NULL, p_task_id);
3929: IF ( l_status_code = 1 ) THEN
3930: x_error_code := 60;
3931: x_error_msg_code := 'PA_TSK_PO_DIST_EXIST';
3932: return;
3942: l_debug_level3);
3943: END IF;
3944:
3945: l_status_code :=
3946: pa_proj_tsk_utils.check_po_req_dist_exists(NULL, p_task_id);
3947: IF ( l_status_code = 1 ) THEN
3948: x_error_code := 70;
3949: x_error_msg_code := 'PA_TSK_PO_REQ_DIST_EXIST';
3950: return;
3960: l_debug_level3);
3961: END IF;
3962:
3963: l_status_code :=
3964: pa_proj_tsk_utils.check_ap_invoice_exists(NULL, p_task_id);
3965: IF ( l_status_code = 1 ) THEN
3966: x_error_code := 80;
3967: x_error_msg_code := 'PA_TSK_AP_INV_EXIST';
3968: return;
3978: l_debug_level3);
3979: END IF;
3980:
3981: l_status_code :=
3982: pa_proj_tsk_utils.check_ap_inv_dist_exists(NULL, p_task_id);
3983: IF ( l_status_code = 1 ) THEN
3984: x_error_code := 90;
3985: x_error_msg_code := 'PA_TSK_AP_INV_DIST_EXIST';
3986: return;
3995: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
3996: l_debug_level3);
3997: END IF;
3998: l_status_code :=
3999: pa_proj_tsk_utils.check_commitment_txn_exists(null, p_task_id);
4000: IF ( l_status_code = 1 ) THEN
4001: x_error_code := 110;
4002: x_error_msg_code := 'PA_TSK_CMT_TXN_EXIST';
4003: return;
4013: l_debug_level3);
4014: END IF;
4015:
4016: l_status_code :=
4017: pa_proj_tsk_utils.check_comp_rule_set_exists(NULL, p_task_id);
4018: IF ( l_status_code = 1 ) THEN
4019: x_error_code := 120;
4020: x_error_msg_code := 'PA_TSK_COMP_RULE_SET_EXIST';
4021: return;
4076: l_debug_level3);
4077: END IF;
4078:
4079: l_status_code :=
4080: pa_proj_tsk_utils.check_draft_inv_details_exists(p_task_id);
4081: IF ( l_status_code = 1 ) THEN
4082: x_error_code := 160;
4083: x_error_msg_code := 'PA_TSK_CC_DINV_EXIST';
4084: return;
4095: END IF;
4096:
4097:
4098: l_status_code :=
4099: pa_proj_tsk_utils.check_project_customer_exists(p_task_id);
4100: IF ( l_status_code = 1 ) THEN
4101: x_error_code := 170;
4102: x_error_msg_code := 'PA_TSK_CC_CUST_EXIST';
4103: return;
4158: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
4159: l_debug_level3);
4160: END IF;
4161:
4162: l_status_code := pa_proj_tsk_utils.check_iex_task_charged(p_task_id);
4163: IF ( l_status_code = 1 ) THEN
4164: x_error_code := 210;
4165: x_error_msg_code := 'PA_TSK_EXP_ITEM_EXIST';
4166: return;
5331: END IF;
5332:
5333: IF l_debug_mode = 'Y' THEN
5334: Pa_Debug.g_err_stage:= 'TASK_VALIDATIONS : Printing Input parameters';
5335: Pa_Debug.WRITE('pa_proj_tsk_utils', Pa_Debug.g_err_stage ,l_debug_level3 );
5336: Pa_Debug.WRITE('pa_proj_tsk_utils', 'p_task_id'||':'||p_task_id , l_debug_level3);
5337: END IF;
5338:
5339: /*OPEN c_tasks_in_hierarchy; -- Commented this for Bug#4964992
5332:
5333: IF l_debug_mode = 'Y' THEN
5334: Pa_Debug.g_err_stage:= 'TASK_VALIDATIONS : Printing Input parameters';
5335: Pa_Debug.WRITE('pa_proj_tsk_utils', Pa_Debug.g_err_stage ,l_debug_level3 );
5336: Pa_Debug.WRITE('pa_proj_tsk_utils', 'p_task_id'||':'||p_task_id , l_debug_level3);
5337: END IF;
5338:
5339: /*OPEN c_tasks_in_hierarchy; -- Commented this for Bug#4964992
5340: FETCH c_tasks_in_hierarchy BULK COLLECT INTO l_task_id_tbl;
5369: EXCEPTION
5370: WHEN NO_DATA_FOUND THEN
5371: Pa_Debug.g_err_stage:= ' TASK_VALIDATIONS : No Expenditure Items exist in the entire task hierarchy';
5372: IF l_debug_mode = 'Y' THEN
5373: Pa_Debug.WRITE('pa_proj_tsk_utils',Pa_Debug.g_err_stage,l_debug_level3);
5374: END IF;
5375: WHEN OTHERS THEN
5376: x_error_code := SQLCODE;
5377: x_error_msg_code := substrb(SQLERRM,1,120);
5377: x_error_msg_code := substrb(SQLERRM,1,120);
5378: Pa_Debug.g_err_stage:= ' TASK_VALIDATIONS :Unexpected Error occured while checking Expenditure Items';
5379:
5380: IF l_debug_mode = 'Y' THEN
5381: Pa_Debug.WRITE('pa_proj_tsk_utils',Pa_Debug.g_err_stage,l_debug_level3);
5382: END IF;
5383: return;
5384: END;
5385:
5405: EXCEPTION
5406: WHEN NO_DATA_FOUND THEN
5407: Pa_Debug.g_err_stage:= 'API : TASK_VALIDATIONS : No purchase order distribution exist in the entire task hierarchy';
5408: IF l_debug_mode = 'Y' THEN
5409: Pa_Debug.WRITE('pa_proj_tsk_utils',Pa_Debug.g_err_stage,l_debug_level3);
5410: END IF;
5411: WHEN OTHERS THEN
5412: x_error_code := SQLCODE;
5413: x_error_msg_code := substrb(SQLERRM,1,120);
5413: x_error_msg_code := substrb(SQLERRM,1,120);
5414: Pa_Debug.g_err_stage:= ' TASK_VALIDATIONS :Unexpected Error occured while checking purchase order distribution';
5415:
5416: IF l_debug_mode = 'Y' THEN
5417: Pa_Debug.WRITE('pa_proj_tsk_utils',Pa_Debug.g_err_stage,l_debug_level3);
5418: END IF;
5419:
5420: return;
5421: END;
5442: EXCEPTION
5443: WHEN NO_DATA_FOUND THEN
5444: Pa_Debug.g_err_stage:= 'API : TASK_VALIDATIONS : No purchase order requisition exist in the entire task hierarchy';
5445: IF l_debug_mode = 'Y' THEN
5446: Pa_Debug.WRITE('pa_proj_tsk_utils',Pa_Debug.g_err_stage,l_debug_level3);
5447: END IF;
5448: WHEN OTHERS THEN
5449: x_error_code := SQLCODE;
5450: x_error_msg_code := substrb(SQLERRM,1,120);
5450: x_error_msg_code := substrb(SQLERRM,1,120);
5451: Pa_Debug.g_err_stage:= ' TASK_VALIDATIONS :Unexpected Error occured while checking purchase order requisition';
5452:
5453: IF l_debug_mode = 'Y' THEN
5454: Pa_Debug.WRITE('pa_proj_tsk_utils',Pa_Debug.g_err_stage,l_debug_level3);
5455: END IF;
5456:
5457: return;
5458: END;
5479: EXCEPTION
5480: WHEN NO_DATA_FOUND THEN
5481: Pa_Debug.g_err_stage:= 'API : TASK_VALIDATIONS : No supplier invoices exist in the entire task hierarchy' ;
5482: IF l_debug_mode = 'Y' THEN
5483: Pa_Debug.WRITE('pa_proj_tsk_utils',Pa_Debug.g_err_stage,l_debug_level3);
5484: END IF;
5485: WHEN OTHERS THEN
5486: x_error_code := SQLCODE;
5487: x_error_msg_code := substrb(SQLERRM,1,120);
5487: x_error_msg_code := substrb(SQLERRM,1,120);
5488: Pa_Debug.g_err_stage:= ' TASK_VALIDATIONS :Unexpected Error occured while checking supplier invoices';
5489:
5490: IF l_debug_mode = 'Y' THEN
5491: Pa_Debug.WRITE('pa_proj_tsk_utils',Pa_Debug.g_err_stage,l_debug_level3);
5492: END IF;
5493: return;
5494: END;
5495:
5515: EXCEPTION
5516: WHEN NO_DATA_FOUND THEN
5517: Pa_Debug.g_err_stage:= 'API : TASK_VALIDATIONS : No supplier invoice distribution exist';
5518: IF l_debug_mode = 'Y' THEN
5519: Pa_Debug.WRITE('pa_proj_tsk_utils',Pa_Debug.g_err_stage,l_debug_level3);
5520: END IF;
5521: WHEN OTHERS THEN
5522: x_error_code := SQLCODE;
5523: x_error_msg_code := substrb(SQLERRM,1,120);
5523: x_error_msg_code := substrb(SQLERRM,1,120);
5524: Pa_Debug.g_err_stage:= ' TASK_VALIDATIONS :Unexpected Error occured while checking supplier invoice distribution' ;
5525:
5526: IF l_debug_mode = 'Y' THEN
5527: Pa_Debug.WRITE('pa_proj_tsk_utils',Pa_Debug.g_err_stage,l_debug_level3);
5528: END IF;
5529: return;
5530: END;
5531:
5551: EXCEPTION
5552: WHEN NO_DATA_FOUND THEN
5553: Pa_Debug.g_err_stage:= 'API : TASK_VALIDATIONS : No commitment transaction exist';
5554: IF l_debug_mode = 'Y' THEN
5555: Pa_Debug.WRITE('pa_proj_tsk_utils',Pa_Debug.g_err_stage,l_debug_level3);
5556: END IF;
5557: WHEN OTHERS THEN
5558: x_error_code := SQLCODE;
5559: x_error_msg_code := substrb(SQLERRM,1,120);
5559: x_error_msg_code := substrb(SQLERRM,1,120);
5560: Pa_Debug.g_err_stage:= ' TASK_VALIDATIONS :Unexpected Error occured while checking commitment transaction';
5561:
5562: IF l_debug_mode = 'Y' THEN
5563: Pa_Debug.WRITE('pa_proj_tsk_utils',Pa_Debug.g_err_stage,l_debug_level3);
5564: END IF;
5565: return;
5566: END;
5567:
5591: EXCEPTION
5592: WHEN NO_DATA_FOUND THEN
5593: Pa_Debug.g_err_stage:= 'API : TASK_VALIDATIONS : No compensation rule set exist';
5594: IF l_debug_mode = 'Y' THEN
5595: Pa_Debug.WRITE('pa_proj_tsk_utils',Pa_Debug.g_err_stage,l_debug_level3);
5596: END IF;
5597: WHEN OTHERS THEN
5598: x_error_code := SQLCODE;
5599: x_error_msg_code := substrb(SQLERRM,1,120);
5599: x_error_msg_code := substrb(SQLERRM,1,120);
5600: Pa_Debug.g_err_stage:= ' TASK_VALIDATIONS :Unexpected Error occured while checking compensation rule set';
5601:
5602: IF l_debug_mode = 'Y' THEN
5603: Pa_Debug.WRITE('pa_proj_tsk_utils',Pa_Debug.g_err_stage,l_debug_level3);
5604: END IF;
5605: return;
5606: END;
5607:
5626: EXCEPTION
5627: WHEN NO_DATA_FOUND THEN
5628: Pa_Debug.g_err_stage:= 'API : TASK_VALIDATIONS : No draft invoice exist';
5629: IF l_debug_mode = 'Y' THEN
5630: Pa_Debug.WRITE('pa_proj_tsk_utils',Pa_Debug.g_err_stage,l_debug_level3);
5631: END IF;
5632: WHEN OTHERS THEN
5633: x_error_code := SQLCODE;
5634: x_error_msg_code := substrb(SQLERRM,1,120);
5634: x_error_msg_code := substrb(SQLERRM,1,120);
5635: Pa_Debug.g_err_stage:= ' TASK_VALIDATIONS :Unexpected Error occured while checking draft invoices';
5636:
5637: IF l_debug_mode = 'Y' THEN
5638: Pa_Debug.WRITE('pa_proj_tsk_utils',Pa_Debug.g_err_stage,l_debug_level3);
5639: END IF;
5640: return;
5641: END;
5642:
5662: EXCEPTION
5663: WHEN NO_DATA_FOUND THEN
5664: Pa_Debug.g_err_stage:= 'API : TASK_VALIDATIONS : No Project_customers exist';
5665: IF l_debug_mode = 'Y' THEN
5666: Pa_Debug.WRITE('pa_proj_tsk_utils',Pa_Debug.g_err_stage,l_debug_level3);
5667: END IF;
5668: WHEN OTHERS THEN
5669: x_error_code := SQLCODE;
5670: x_error_msg_code := substrb(SQLERRM,1,120);
5670: x_error_msg_code := substrb(SQLERRM,1,120);
5671: Pa_Debug.g_err_stage:= ' TASK_VALIDATIONS :Unexpected Error occured while checking project customers';
5672:
5673: IF l_debug_mode = 'Y' THEN
5674: Pa_Debug.WRITE('pa_proj_tsk_utils',Pa_Debug.g_err_stage,l_debug_level3);
5675: END IF;
5676: return;
5677: END;
5678:
5699: EXCEPTION
5700: WHEN NO_DATA_FOUND THEN
5701: Pa_Debug.g_err_stage:= 'API : TASK_VALIDATIONS : No IExpenses exist in the entire task hierarchy';
5702: IF l_debug_mode = 'Y' THEN
5703: Pa_Debug.WRITE('pa_proj_tsk_utils',Pa_Debug.g_err_stage,l_debug_level3);
5704: END IF;
5705: WHEN OTHERS THEN
5706: x_error_code := SQLCODE;
5707: x_error_msg_code := substrb(SQLERRM,1,120);
5707: x_error_msg_code := substrb(SQLERRM,1,120);
5708: Pa_Debug.g_err_stage:= ' TASK_VALIDATIONS :Unexpected Error occured while checking IExpense Records';
5709:
5710: IF l_debug_mode = 'Y' THEN
5711: Pa_Debug.WRITE('pa_proj_tsk_utils',Pa_Debug.g_err_stage,l_debug_level3);
5712: END IF;
5713:
5714: return;
5715: END;
5736: EXCEPTION
5737: WHEN NO_DATA_FOUND THEN
5738: Pa_Debug.g_err_stage:= 'API : TASK_VALIDATIONS : No Inventory transactions exist in the entire task hierarchy';
5739: IF l_debug_mode = 'Y' THEN
5740: Pa_Debug.WRITE('pa_proj_tsk_utils',Pa_Debug.g_err_stage,l_debug_level3);
5741: END IF;
5742: WHEN OTHERS THEN
5743: x_error_code := SQLCODE;
5744: x_error_msg_code := substrb(SQLERRM,1,120);
5744: x_error_msg_code := substrb(SQLERRM,1,120);
5745: Pa_Debug.g_err_stage:= ' TASK_VALIDATIONS :Unexpected Error occured while checking Inventory Records';
5746:
5747: IF l_debug_mode = 'Y' THEN
5748: Pa_Debug.WRITE('pa_proj_tsk_utils',Pa_Debug.g_err_stage,l_debug_level3);
5749: END IF;
5750:
5751: return;
5752: END;
5765:
5766: Pa_Debug.g_err_stage:= 'Unexpected Error'||x_error_msg_code;
5767:
5768: Fnd_Msg_Pub.add_exc_msg
5769: ( p_pkg_name => 'pa_proj_tsk_utils'
5770: ,p_procedure_name => 'TASK_VALIDATIONS'
5771: ,p_error_text => x_error_msg_code);
5772:
5773: IF l_debug_mode = 'Y' THEN
5770: ,p_procedure_name => 'TASK_VALIDATIONS'
5771: ,p_error_text => x_error_msg_code);
5772:
5773: IF l_debug_mode = 'Y' THEN
5774: Pa_Debug.WRITE('pa_proj_tsk_utils',Pa_Debug.g_err_stage,
5775: l_debug_level5);
5776:
5777: Pa_Debug.reset_curr_function;
5778: END IF;
5863: EXCEPTION
5864: WHEN OTHERS THEN
5865: Pa_Debug.g_err_stage:= ' API:get_task_hierarchy :Unexpected Error occured while retrieving task strucutre for '|| p_task_id;
5866: IF l_debug_mode = 'Y' THEN
5867: Pa_Debug.WRITE('pa_proj_tsk_utils',Pa_Debug.g_err_stage,l_debug_level3);
5868: END IF;
5869: RAISE;
5870: END get_task_hierarchy;
5871: