DBA Data[Home] [Help]

APPS.PA_PLANNING_RESOURCE_UTILS dependencies on DBMS_SQL

Line 6637: l_cursor := dbms_sql.open_cursor;

6633: END;
6634: /********************************
6635: * Open Cursor
6636: ********************************/
6637: l_cursor := dbms_sql.open_cursor;
6638: /**************************************************************
6639: * Constructing the Select Statement based on the values passed
6640: * as parameters to this procedure.
6641: ***********************************************************/

Line 6781: dbms_sql.parse(l_cursor,l_stmt,dbms_sql.native);

6777: -- dbms_output.put_line('p_project_id is :' || p_project_id);
6778: /*************************************
6779: * Parse the Select Stmt
6780: ************************************/
6781: dbms_sql.parse(l_cursor,l_stmt,dbms_sql.native);
6782:
6783: /************************************
6784: * Bind the Variables
6785: ********************************/

Line 6792: dbms_sql.bind_variable(l_cursor,'resource_list_id', l_resource_list_id);

6788: * Desc - Added code to Binnd the variables
6789: * resource_list_id, res_format_id
6790: *********************************************/
6791: --Binding the resource_list_id column
6792: dbms_sql.bind_variable(l_cursor,'resource_list_id', l_resource_list_id);
6793: --Binding the res_format_id column
6794: dbms_sql.bind_variable(l_cursor,'res_format_id', p_res_format_id);
6795:
6796: --Binding the person_id column when p_person_id is not null

Line 6794: dbms_sql.bind_variable(l_cursor,'res_format_id', p_res_format_id);

6790: *********************************************/
6791: --Binding the resource_list_id column
6792: dbms_sql.bind_variable(l_cursor,'resource_list_id', l_resource_list_id);
6793: --Binding the res_format_id column
6794: dbms_sql.bind_variable(l_cursor,'res_format_id', p_res_format_id);
6795:
6796: --Binding the person_id column when p_person_id is not null
6797: IF -- p_person_id IS NOT NULL AND
6798: l_fmt_details.Res_Type_Enabled_Flag = 'Y' AND

Line 6801: dbms_sql.bind_variable(l_cursor,'person_id', p_person_id);

6797: IF -- p_person_id IS NOT NULL AND
6798: l_fmt_details.Res_Type_Enabled_Flag = 'Y' AND
6799: l_fmt_details.Res_Type_Code = 'NAMED_PERSON'
6800: THEN
6801: dbms_sql.bind_variable(l_cursor,'person_id', p_person_id);
6802: END IF;
6803: --Binding the job_id column when p_job_id is not null
6804: IF -- p_job_id IS NOT NULL AND
6805: l_fmt_details.Res_Type_Enabled_Flag = 'Y' AND

Line 6809: dbms_sql.bind_variable(l_cursor,'job_id', p_job_id);

6805: l_fmt_details.Res_Type_Enabled_Flag = 'Y' AND
6806: l_fmt_details.Res_Type_Code = 'JOB'
6807: THEN
6808: -- dbms_output.put_line('p_job_id is :' || p_job_id);
6809: dbms_sql.bind_variable(l_cursor,'job_id', p_job_id);
6810: END IF;
6811: --Binding the organization_id column when p_organization_id is not null
6812: IF -- p_organization_id IS NOT NULL AND
6813: l_fmt_details.Orgn_Enabled_Flag = 'Y'

Line 6816: dbms_sql.bind_variable(l_cursor,'organization_id', p_organization_id);

6812: IF -- p_organization_id IS NOT NULL AND
6813: l_fmt_details.Orgn_Enabled_Flag = 'Y'
6814: THEN
6815: -- dbms_output.put_line('p_organization_id is :' || p_organization_id);
6816: dbms_sql.bind_variable(l_cursor,'organization_id', p_organization_id);
6817: END IF;
6818: --Binding the expenditure_type column when p_expenditure_type is not null
6819: IF p_expenditure_type IS NOT NULL AND
6820: l_fmt_details.Fin_Cat_Enabled_Flag = 'Y'

Line 6822: dbms_sql.bind_variable(l_cursor,'expenditure_type', p_expenditure_type);

6818: --Binding the expenditure_type column when p_expenditure_type is not null
6819: IF p_expenditure_type IS NOT NULL AND
6820: l_fmt_details.Fin_Cat_Enabled_Flag = 'Y'
6821: THEN
6822: dbms_sql.bind_variable(l_cursor,'expenditure_type', p_expenditure_type);
6823: END IF;
6824: --Binding the expenditure_category column when
6825: --p_expenditure_category is not null
6826: IF p_expenditure_category IS NOT NULL AND p_expenditure_type IS NULL AND

Line 6829: dbms_sql.bind_variable(l_cursor,'expenditure_category',p_expenditure_category);

6825: --p_expenditure_category is not null
6826: IF p_expenditure_category IS NOT NULL AND p_expenditure_type IS NULL AND
6827: l_fmt_details.Fin_Cat_Enabled_Flag = 'Y'
6828: THEN
6829: dbms_sql.bind_variable(l_cursor,'expenditure_category',p_expenditure_category);
6830: END IF;
6831:
6832: IF p_expenditure_category IS NULL AND p_expenditure_type IS NULL AND
6833: l_fmt_details.Fin_Cat_Enabled_Flag = 'Y'

Line 6835: dbms_sql.bind_variable(l_cursor,'expenditure_category',l_fin_category_name);

6831:
6832: IF p_expenditure_category IS NULL AND p_expenditure_type IS NULL AND
6833: l_fmt_details.Fin_Cat_Enabled_Flag = 'Y'
6834: THEN
6835: dbms_sql.bind_variable(l_cursor,'expenditure_category',l_fin_category_name);
6836: END IF;
6837: --Binding the project_role_id column when p_project_role_id is not null
6838: --Binding the named_role column when p_named_role is not null
6839: IF p_project_role_id IS NOT NULL AND p_named_role IS NOT NULL AND

Line 6842: dbms_sql.bind_variable(l_cursor,'project_role_id', p_project_role_id);

6838: --Binding the named_role column when p_named_role is not null
6839: IF p_project_role_id IS NOT NULL AND p_named_role IS NOT NULL AND
6840: l_fmt_details.Role_Enabled_Flag = 'Y'
6841: THEN
6842: dbms_sql.bind_variable(l_cursor,'project_role_id', p_project_role_id);
6843: dbms_sql.bind_variable(l_cursor,'named_role', p_named_role);
6844: END IF;
6845: --Binding the person_type_code column when p_person_type_code is not null
6846: IF -- p_person_type_code IS NOT NULL AND

Line 6843: dbms_sql.bind_variable(l_cursor,'named_role', p_named_role);

6839: IF p_project_role_id IS NOT NULL AND p_named_role IS NOT NULL AND
6840: l_fmt_details.Role_Enabled_Flag = 'Y'
6841: THEN
6842: dbms_sql.bind_variable(l_cursor,'project_role_id', p_project_role_id);
6843: dbms_sql.bind_variable(l_cursor,'named_role', p_named_role);
6844: END IF;
6845: --Binding the person_type_code column when p_person_type_code is not null
6846: IF -- p_person_type_code IS NOT NULL AND
6847: l_fmt_details.Res_Type_Enabled_Flag = 'Y' AND

Line 6850: dbms_sql.bind_variable(l_cursor,'person_type_code', p_person_type_code);

6846: IF -- p_person_type_code IS NOT NULL AND
6847: l_fmt_details.Res_Type_Enabled_Flag = 'Y' AND
6848: l_fmt_details.Res_Type_Code = 'PERSON_TYPE'
6849: THEN
6850: dbms_sql.bind_variable(l_cursor,'person_type_code', p_person_type_code);
6851: END IF;
6852: --Binding the object_type1 column when l_central_control equals Y
6853: IF l_central_control = 'Y' THEN
6854: dbms_sql.bind_variable(l_cursor,'object_type1', 'RESOURCE_LIST');

Line 6854: dbms_sql.bind_variable(l_cursor,'object_type1', 'RESOURCE_LIST');

6850: dbms_sql.bind_variable(l_cursor,'person_type_code', p_person_type_code);
6851: END IF;
6852: --Binding the object_type1 column when l_central_control equals Y
6853: IF l_central_control = 'Y' THEN
6854: dbms_sql.bind_variable(l_cursor,'object_type1', 'RESOURCE_LIST');
6855: END IF;
6856: --Binding the object_type2 and project_id
6857: -- column when l_central_control does not equal Y
6858: IF l_central_control <> 'Y' THEN

Line 6859: dbms_sql.bind_variable(l_cursor,'object_type2', 'PROJECT');

6855: END IF;
6856: --Binding the object_type2 and project_id
6857: -- column when l_central_control does not equal Y
6858: IF l_central_control <> 'Y' THEN
6859: dbms_sql.bind_variable(l_cursor,'object_type2', 'PROJECT');
6860: dbms_sql.bind_variable(l_cursor,'project_id', p_project_id);
6861: END IF;
6862:
6863: --Define Output Variables

Line 6860: dbms_sql.bind_variable(l_cursor,'project_id', p_project_id);

6856: --Binding the object_type2 and project_id
6857: -- column when l_central_control does not equal Y
6858: IF l_central_control <> 'Y' THEN
6859: dbms_sql.bind_variable(l_cursor,'object_type2', 'PROJECT');
6860: dbms_sql.bind_variable(l_cursor,'project_id', p_project_id);
6861: END IF;
6862:
6863: --Define Output Variables
6864: --dbms_sql.define_column(l_cursor,1,l_resource_list_member_id,30);

Line 6864: --dbms_sql.define_column(l_cursor,1,l_resource_list_member_id,30);

6860: dbms_sql.bind_variable(l_cursor,'project_id', p_project_id);
6861: END IF;
6862:
6863: --Define Output Variables
6864: --dbms_sql.define_column(l_cursor,1,l_resource_list_member_id,30);
6865: dbms_sql.define_column(l_cursor,1,l_resource_list_member_id);
6866:
6867: l_rows := dbms_sql.execute(l_cursor);
6868:

Line 6865: dbms_sql.define_column(l_cursor,1,l_resource_list_member_id);

6861: END IF;
6862:
6863: --Define Output Variables
6864: --dbms_sql.define_column(l_cursor,1,l_resource_list_member_id,30);
6865: dbms_sql.define_column(l_cursor,1,l_resource_list_member_id);
6866:
6867: l_rows := dbms_sql.execute(l_cursor);
6868:
6869: /****************************

Line 6867: l_rows := dbms_sql.execute(l_cursor);

6863: --Define Output Variables
6864: --dbms_sql.define_column(l_cursor,1,l_resource_list_member_id,30);
6865: dbms_sql.define_column(l_cursor,1,l_resource_list_member_id);
6866:
6867: l_rows := dbms_sql.execute(l_cursor);
6868:
6869: /****************************
6870: * Loop Through the Records
6871: ****************************/

Line 6877: IF dbms_sql.fetch_rows(l_cursor) = 0 THEN

6873: * If No Values are Found we are setting the l_exists
6874: * flag to be N. If the Value is N we need to do some
6875: * logic based on the centrally controlled flag.
6876: **********************************************/
6877: IF dbms_sql.fetch_rows(l_cursor) = 0 THEN
6878: l_exists := 'N';
6879: ELSE
6880: l_exists := 'Y';
6881: END IF;

Line 6888: dbms_sql.column_value(l_cursor,1,l_resource_list_member_id);

6884: * l_resource_list_member_id.
6885: * ********************************************************/
6886: IF l_exists = 'Y' THEN
6887: -- dbms_output.put_line('l_exists is Y');
6888: dbms_sql.column_value(l_cursor,1,l_resource_list_member_id);
6889: dbms_sql.close_cursor(l_cursor);
6890: -- dbms_output.put_line('l_resource_list_member_id is :' || l_resource_list_member_id);
6891: --Return the l_resource_list_member_id
6892: --To the calling API

Line 6889: dbms_sql.close_cursor(l_cursor);

6885: * ********************************************************/
6886: IF l_exists = 'Y' THEN
6887: -- dbms_output.put_line('l_exists is Y');
6888: dbms_sql.column_value(l_cursor,1,l_resource_list_member_id);
6889: dbms_sql.close_cursor(l_cursor);
6890: -- dbms_output.put_line('l_resource_list_member_id is :' || l_resource_list_member_id);
6891: --Return the l_resource_list_member_id
6892: --To the calling API
6893: RETURN l_resource_list_member_id;