[Home] [Help]
1: PACKAGE BODY PA_GET_RESOURCE AS
2: /* $Header: PAGTRESB.pls 120.4 2006/05/10 16:33:20 ramurthy noship $*/
3:
4: Procedure Get_Resource_group (p_resource_list_id In Number,
5: p_resource_group In Varchar2,
63:
64: BEGIN
65: l_old_stack := p_err_stack;
66: p_err_code := 0;
67: p_err_stack := p_err_stack ||'->PA_GET_RESOURCE.Get_resource_group';
68: p_err_stage := ' Select group_resource_type_id from pa_resource_lists';
69:
70: --- Get the group_resource_type_id of the resource_list
71: --- from pa_resource_lists using
145: --- To get the resource_list_member_id , we need the resource_id. hence
146: --- Check whether the resource_group has already been created as
147: --- a resource in PA_RESOURCE table and get the resource_id.
148: --- Hence, call Get_resource
149: PA_GET_RESOURCE.Get_Resource
150: (p_resource_name => l_resource_name,
151: p_resource_type_Code => l_resource_type_code,
152: p_person_id => NULL,
153: p_job_id => NULL,
209: -- Dont reset p_err_stage as it will already be populated to correct value
210:
211: p_err_stack := p_err_stack || ' : ' || SUBSTRB(SQLERRM,1,100);
212: Fnd_Msg_Pub.add_exc_msg
213: ( p_pkg_name => 'PA_GET_RESOURCE'
214: , p_procedure_name => 'Get_Resource_group'
215: , p_error_text => p_err_stack);
216: -- 4537865 : End
217:
279: AND resource_id = l_resource_id;
280: BEGIN
281: l_old_stack := p_err_stack;
282: p_err_code := 0;
283: p_err_stack := p_err_stack ||'->PA_GET_RESOURCE.Get_Resource_list_member';
284: IF p_group_resource_type_id = 0 AND
285: p_parent_member_id IS NOT NULL THEN
286: -- This means the resource list has not been grouped.
287: ---Hence,parent_member_id should be null
298: END IF;
299: -- First need to get the resource_id of the input resource
300: -- Hence,call Get_resource
301:
302: PA_GET_RESOURCE.Get_Resource
303: (p_resource_name => p_resource_name,
304: p_resource_type_Code => p_resource_type_code,
305: p_person_id => p_person_id,
306: p_job_id => p_job_id,
371: -- Dont reset p_err_stage as it will already be populated to correct value
372:
373: p_err_stack := p_err_stack || ' : ' || SUBSTRB(SQLERRM,1,100);
374: Fnd_Msg_Pub.add_exc_msg
375: ( p_pkg_name => 'PA_GET_RESOURCE'
376: , p_procedure_name => 'Get_Resource_list_member'
377: , p_error_text => p_err_stack);
378: -- 4537865 : End
379:
524:
525: BEGIN
526: l_old_stack := p_err_stack;
527: p_err_code := 0;
528: p_err_stack := p_err_stack ||'->PA_GET_RESOURCE.Get_Resource';
529:
530: -- Based on the Resource_type_code Ensure that the corresponding
531: -- attribute has a valid value.
532:
648: p_resource_id := NULL ;
649: p_err_stack := p_err_stack || ' ' || SUBSTRB(SQLERRM,1,100) ;
650:
651: Fnd_Msg_Pub.add_exc_msg
652: ( p_pkg_name => 'PA_GET_RESOURCE'
653: , p_procedure_name => 'Get_Resource'
654: , p_error_text => p_err_stack);
655: -- 4537865 : dont reset p_err_stage as it will be already properly populated.
656:
697:
698: BEGIN
699: l_old_stack := p_err_stack;
700: p_err_code := 0;
701: p_err_stack := p_err_stack ||'->PA_GET_RESOURCE.Get_Resource_Information';
702:
703: -- Based on the Resource_type_code form the dynamic SQL statement
704: -- to fetch from the appropriate views
705: -- Since all the Id fields like person_id,job_id etc are number fields
850: p_err_code := SQLCODE;
851: p_err_stack := p_err_stack || ' : ' || SUBSTRB(SQLERRM,1,100);
852:
853: Fnd_Msg_Pub.add_exc_msg
854: ( p_pkg_name => 'PA_GET_RESOURCE'
855: , p_procedure_name => 'Get_Resource_Information'
856: , p_error_text => p_err_stack);
857: RAISE;
858: End Get_Resource_Information;
885:
886: BEGIN
887: l_old_stack := p_err_stack;
888: p_err_code := 0;
889: p_err_stack := p_err_stack ||'->PA_GET_RESOURCE.Get_Uncateg_Resource_Info';
890:
891: OPEN resource_list_uncateg_csr;
892: FETCH resource_list_uncateg_csr INTO
893: p_resource_list_id,
912: p_track_as_labor_flag := NULL ;
913:
914: p_err_stack := p_err_stack || ' : ' || SUBSTRB(SQLERRM,1,100);
915: Fnd_Msg_Pub.add_exc_msg
916: ( p_pkg_name => 'PA_GET_RESOURCE'
917: , p_procedure_name => 'Get_Uncateg_Resource_Info'
918: , p_error_text => p_err_stack);
919: -- 4537865 : End
920: RAISE;
955:
956: BEGIN
957: l_old_stack := p_err_stack;
958: p_err_code := 0;
959: p_err_stack := p_err_stack ||'->PA_GET_RESOURCE.Get_Unclassified_Member';
960:
961: ---If parent_member_id is Null, then need to return the
962: --- resource_list_member_id of the Unclassified resource at the Resource
963: --- list level;
998: p_track_as_labor_flag := NULL;
999: p_err_stack := p_err_stack || ': ' || SUBSTRB(SQLERRM,1,100);
1000:
1001: Fnd_Msg_Pub.add_exc_msg
1002: ( p_pkg_name => 'PA_GET_RESOURCE'
1003: , p_procedure_name => 'Get_Unclassified_Member'
1004: , p_error_text => p_err_stack);
1005: -- 4537865 : ENd
1006: RAISE;
1031: l_old_stack varchar2(2000);
1032: BEGIN
1033: l_old_stack := p_err_stack;
1034: p_err_code := 0;
1035: p_err_stack := p_err_stack ||'->PA_GET_RESOURCE.Get_Unclassified_Resource';
1036:
1037: OPEN unclassified_res_csr;
1038: FETCH unclassified_res_csr INTO
1039: p_resource_id,
1057: p_unit_of_measure := NULL ;
1058: p_rollup_quantity_flag := NULL ;
1059: p_err_stack := p_err_stack || ' : ' || SUBSTRB(SQLERRM,1,100);
1060: Fnd_Msg_Pub.add_exc_msg
1061: ( p_pkg_name => 'PA_GET_RESOURCE'
1062: , p_procedure_name => 'Get_Unclassified_Resource'
1063: , p_error_text => p_err_stack);
1064: -- 4537865 : End
1065:
1391: return;
1392:
1393: END delete_resource_list_member_ok;
1394:
1395: END PA_GET_RESOURCE;