[Home] [Help]
59: l_proc varchar2(72) := g_package||'get_asg_from_tt';
60:
61: begin
62: --dbms_output.put_line(' ');
63: hr_utility.set_location('Entering:'||l_proc, 5);
64: p_assignment_rec.assignment_id:=
65: hr_transaction_api.get_number_value
66: (p_transaction_step_id => p_transaction_step_id
67: ,p_name => 'P_ASSIGNMENT_ID');
510: hr_transaction_api.get_date_value
511: (p_transaction_step_id => p_transaction_step_id
512: ,p_name => 'P_PROJ_ASGN_END');
513:
514: hr_utility.set_location('Exiting:'||l_proc, 15);
515: end get_asg_from_tt;
516: --
517: procedure get_assignment_from_tt
518: (p_item_type in varchar2
708:
709: begin
710:
711:
712: hr_utility.set_location('Entering:'||l_proc, 5);
713: if p_transaction_step_id is null then
714:
715: hr_utility.set_location('if p_transaction_step_id is null then:'||l_proc,10);
716: hr_assignment_common_save_web.get_step
711:
712: hr_utility.set_location('Entering:'||l_proc, 5);
713: if p_transaction_step_id is null then
714:
715: hr_utility.set_location('if p_transaction_step_id is null then:'||l_proc,10);
716: hr_assignment_common_save_web.get_step
717: (p_item_type => p_item_type
718: ,p_item_key => p_item_key
719: ,p_api_name => g_api_name
723: l_transaction_step_id := to_number(p_transaction_step_id);
724: end if;
725:
726: if l_transaction_step_id is null then
727: hr_utility.set_location('l_transaction_step_id is null thenExiting:'||l_proc, 15);
728: return;
729: end if;
730: --
731: p_assignment_id:= to_char(
1239: -- (p_transaction_step_id => l_transaction_step_id
1240: -- ,p_name => 'P_SUPERVISOR_ASSIGNMENT_ID'));
1241: --
1242:
1243: hr_utility.set_location('Exiting:'||l_proc, 20);
1244: end get_assignment_from_tt;
1245:
1246: procedure get_assignment_from_tt
1247: (p_transaction_step_id in number
1344: l_proc varchar2(72) := g_package||'get_assignment_from_tt';
1345:
1346: begin
1347: --
1348: hr_utility.set_location('Entering:'||l_proc, 5);
1349: p_assignment_id:=
1350: hr_transaction_api.get_number_value
1351: (p_transaction_step_id => p_transaction_step_id
1352: ,p_name => 'P_ASSIGNMENT_ID');
1817: hr_transaction_api.get_date_value
1818: (p_transaction_step_id => p_transaction_step_id
1819: ,p_name => 'P_PROJ_ASGN_END');
1820:
1821: hr_utility.set_location('Exiting:'||l_proc, 15);
1822: end get_assignment_from_tt;
1823:
1824: procedure process_save
1825: (p_save_mode in varchar2 default null
1954: ) is
1955: l_proc varchar2(72) := g_package||'process_save';
1956: begin
1957:
1958: hr_utility.set_location('Entering:'||l_proc, 5);
1959: process_save
1960: (p_save_mode => p_save_mode
1961: ,p_item_type => p_item_type
1962: ,p_item_key => p_item_key
2090: ,p_vendor_site_id => to_number(p_vendor_site_id)
2091: ,p_proj_asgn_end => p_projected_asgn_end
2092:
2093: );
2094: hr_utility.set_location('Exiting:'||l_proc, 15);
2095:
2096: end process_save;
2097:
2098: -- This code is for applying several workflow steps of assignment data in
2452: and l_effective_date between effective_start_date and effective_end_date;
2453: --
2454: begin
2455:
2456: hr_utility.set_location('Entering:'||l_proc, 5);
2457: l_object_version_number := p_object_version_number;
2458:
2459: -- first check if this is being called for registration.
2460: if p_flow_mode is not null and
2459: -- first check if this is being called for registration.
2460: if p_flow_mode is not null and
2461: p_flow_mode = hr_process_assignment_ss.g_new_hire_registration
2462: then
2463: hr_utility.set_location('p_flow_mode = hr_process_assignment_ss.g_new_hire_registration:'||l_proc,10);
2464: g_registration := true;
2465: end if;
2466:
2467: -- validate seesion
2492: end if;
2493: --End of ReHire Code
2494: --Validate the p_assignment_id
2495: if g_registration then
2496: hr_utility.set_location(' if g_registration then:'||l_proc,15);
2497: open csr_assignment;
2498: fetch csr_assignment into l_assignment_id;
2499: if csr_assignment%notfound then
2500: hr_utility.set_location(' if csr_assignment%notfound then:'||l_proc,20);
2496: hr_utility.set_location(' if g_registration then:'||l_proc,15);
2497: open csr_assignment;
2498: fetch csr_assignment into l_assignment_id;
2499: if csr_assignment%notfound then
2500: hr_utility.set_location(' if csr_assignment%notfound then:'||l_proc,20);
2501: hr_api.legislation_hooks('DISABLE'); -- bug 6405208
2502: hr_new_user_reg_ss.processNewUserTransaction
2503: (WfItemType => l_item_type
2504: ,WfItemKey => l_item_key
2523: l_effective_date :=to_date(p_effective_date, g_date_format);
2524: exception
2525: when others then
2526: --Should add page level error
2527: hr_utility.set_location('Exception:Others'||l_proc,555);
2528: hr_utility.raise_error;
2529: /*hr_errors_api.addErrorToTable
2530: (p_errorfield => null
2531: ,p_errorcode => to_char(SQLCODE)
2524: exception
2525: when others then
2526: --Should add page level error
2527: hr_utility.set_location('Exception:Others'||l_proc,555);
2528: hr_utility.raise_error;
2529: /*hr_errors_api.addErrorToTable
2530: (p_errorfield => null
2531: ,p_errorcode => to_char(SQLCODE)
2532: ,p_errormsg => sqlerrm
2623: -- if we cannot find this assignment record then there must be an error
2624: --
2625: --Should add page level error
2626: fnd_message.set_name('PER','HR_ASG_NOT_FOUND');
2627: hr_utility.raise_error;
2628: /*hr_errors_api.addErrorToTable
2629: (p_errorfield => null
2630: ,p_errormsg => fnd_message.get);*/
2631: else
2636: --
2637: -- if the effective date is after the date of the last change then we
2638: -- are doing an update
2639: --
2640: hr_utility.set_location('l_effective_date>l_last_change_date then:'||l_proc,30);
2641: l_datetrack_update_mode:='UPDATE';
2642:
2643: -- registration always need this as Correction.
2644: if (p_flow_mode is not null and
2643: -- registration always need this as Correction.
2644: if (p_flow_mode is not null and
2645: p_flow_mode = hr_process_assignment_ss.g_new_hire_registration) OR (nvl(l_re_hire_flow,'N') = 'EX_EMP')
2646: then
2647: hr_utility.set_location('p_flow_mode is not null and: NewHireReg'||l_proc,35);
2648: l_datetrack_update_mode := 'CORRECTION';
2649: end if;
2650:
2651: else
2656: -- if the effective date is equal an existing assignment
2657: -- start date then we
2658: -- are doing a correction
2659: --
2660: hr_utility.set_location('if correction_date%FOUND then:'||l_proc,40);
2661: l_datetrack_update_mode:='CORRECTION';
2662: else
2663: --
2664: IF ( fnd_profile.value('PQH_DT_RULE_FUTUR_CHANGE_FOUND')
2662: else
2663: --
2664: IF ( fnd_profile.value('PQH_DT_RULE_FUTUR_CHANGE_FOUND')
2665: = 'APPROVE_ONLY') THEN
2666: hr_utility.set_location('Approve only:'||l_proc,45);
2667: l_datetrack_update_mode:='UPDATE_CHANGE_INSERT';
2668: ELSE
2669: --Throw error if date track profile is turned off and
2670: --future dated change is found
2668: ELSE
2669: --Throw error if date track profile is turned off and
2670: --future dated change is found
2671: fnd_message.set_name('PER','HR_DATE_TOO_EARLY');
2672: hr_utility.raise_error;
2673: END IF;
2674: --
2675: end if;
2676:
2678:
2679: end if;
2680:
2681: IF l_transaction_step_id is null then
2682: hr_utility.set_location('IF l_transaction_step_id is null then:'||l_proc,50);
2683: --
2684: --since this is the first time in, we take the display pos and activity_id
2685: -- as they are.
2686: --
2723: ,g_date_format))
2724: then
2725: --Should add page level error
2726: fnd_message.set_name('PER','HR_EFF_DATE_CHANGED');
2727: hr_utility.raise_error;
2728: /*hr_errors_api.addErrorToTable
2729: (p_errorfield => null
2730: ,p_errormsg => fnd_message.get);*/
2731: end if;
4804: (p_item_type => l_item_type
4805: ,p_item_key => l_item_key);
4806: if l_transaction_id is null then
4807: fnd_message.set_name('PER', 'HR_CREATE_TRANSACTION_ID_ERR');
4808: hr_utility.raise_error;
4809: end if;
4810: end if;
4811: --
4812: -- create a transaction step
5757: -- ignore salary change warning
5758:
5759: if(p_salary_change_warning <> 'IGNORE') then
5760: p_salary_change_warning := 'WARNING';
5761: hr_utility.trace('p_salary_change_warning' || p_salary_change_warning);
5762: end if;
5763:
5764: p_gsp_salary_effective_date := ltt_salary_data(1).salary_effective_date;
5765:
5906: if (g_applicant_hire) then
5907: g_applicant_hire := false;
5908: end if;
5909:
5910: if (hr_utility.check_warning) then
5911: p_page_warning_msg := hr_utility.get_message;
5912: end if;
5913:
5914: EXCEPTION
5907: g_applicant_hire := false;
5908: end if;
5909:
5910: if (hr_utility.check_warning) then
5911: p_page_warning_msg := hr_utility.get_message;
5912: end if;
5913:
5914: EXCEPTION
5915: when hr_utility.hr_error then
5911: p_page_warning_msg := hr_utility.get_message;
5912: end if;
5913:
5914: EXCEPTION
5915: when hr_utility.hr_error then
5916: hr_message.provide_error;
5917: p_page_error := hr_message.last_message_app;
5918: --p_page_error_msg := hr_message.last_message_name;
5919: p_page_error_msg := hr_message.get_message_text;
5938: rollback to applicant_hire;
5939: g_applicant_hire := false;
5940: end if;
5941: raise;
5942: hr_utility.set_location('Exiting:'||l_proc, 40);
5943: end process_save;
5944:
5945: procedure update_object_version
5946: (p_transaction_step_id in number
5959: l_proc varchar2(72) := g_package||'update_object_version';
5960:
5961: begin
5962:
5963: hr_utility.set_location('Entering:'||l_proc, 5);
5964: l_assignment_id :=
5965: hr_transaction_api.get_number_value
5966: (p_transaction_step_id => p_transaction_step_id
5967: ,p_name => 'P_ASSIGNMENT_ID');
5975: (p_transaction_step_id => p_transaction_step_id
5976: ,p_name => 'P_OBJECT_VERSION_NUMBER');
5977:
5978: if l_old_object_number <> l_new_object_number then
5979: hr_utility.set_location('if l_old_object_number <> l_new_object_number then:'||l_proc,10);
5980: hr_transaction_api.set_number_value
5981: (p_transaction_step_id => p_transaction_step_id
5982: ,p_person_id => p_login_person_id
5983: ,p_name => 'P_OBJECT_VERSION_NUMBER'
5983: ,p_name => 'P_OBJECT_VERSION_NUMBER'
5984: ,p_value => l_new_object_number);
5985: end if;
5986:
5987: hr_utility.set_location('Exiting:'||l_proc, 15);
5988: end update_object_version;
5989: --
5990: --This procedure is to recover all of the assignment data from the transaction
5991: -- tables and save the data into database.
6086: --
6087: -- recover all of the assignment values
6088: --
6089: --
6090: hr_utility.set_location('Entering:'||l_proc, 5);
6091: if (p_effective_date is not null) then
6092: hr_utility.set_location(' if (p_effective_date is not null) then:'||l_proc,10);
6093: l_effective_date:= to_date(p_effective_date,g_date_format);
6094: else
6088: --
6089: --
6090: hr_utility.set_location('Entering:'||l_proc, 5);
6091: if (p_effective_date is not null) then
6092: hr_utility.set_location(' if (p_effective_date is not null) then:'||l_proc,10);
6093: l_effective_date:= to_date(p_effective_date,g_date_format);
6094: else
6095: l_effective_date:= to_date(
6096: hr_transaction_ss.get_wf_effective_date
6152: -- adding the session id check to avoid connection pooling problems.
6153: if (( hr_process_person_ss.g_assignment_id is not null) and
6154: (hr_process_person_ss.g_session_id= ICX_SEC.G_SESSION_ID))
6155: then
6156: hr_utility.set_location('session id is ICX_SEC.G_SESSION_ID:'||l_proc,15);
6157: l_assignment_rec.person_id := hr_process_person_ss.g_person_id;
6158: l_assignment_rec.assignment_id := hr_process_person_ss.g_assignment_id;
6159: l_assignment_rec.object_version_number:=hr_process_person_ss.g_asg_object_version_number;
6160: -- Hard code ovn to 1 for the new user registration process
6170: -- latest object version
6171: -- number of the applicant who has became employee in BD page
6172: if (hr_process_person_ss.g_is_applicant and
6173: (hr_process_person_ss.g_session_id= ICX_SEC.G_SESSION_ID)) then
6174: hr_utility.set_location('Applicaant ICX_SEC.G_SESSION_ID:'||l_proc,20);
6175: open asg_applicant_rec(l_assignment_rec.assignment_id, l_effective_date);
6176: fetch asg_applicant_rec into l_assignment_rec.object_version_number
6177: ,l_appl_assignment_type
6178: ,l_assignment_rec.assignment_status_type_id;
6181: end if;
6182: -- end registration
6183:
6184: if l_new_hire_appl_hire = 'Y' then
6185: hr_utility.set_location('if l_new_hire_appl_hire = Y then:'||l_proc,25);
6186: l_login_person_id:=
6187: hr_transaction_api.get_number_value
6188: (p_transaction_step_id => p_transaction_step_id
6189: ,p_name => 'P_LOGIN_PERSON_ID');
6818: l_old_conc_segments hr_soft_coding_keyflex.concatenated_segments%TYPE;
6819:
6820: begin
6821:
6822: hr_utility.set_location('Entering:'||l_proc, 5);
6823: l_effective_date :=trunc(p_effective_date);
6824:
6825: l_validate_start_date := p_effective_start_date;
6826: l_validate_end_date := p_effective_end_date;
6869: -- find the scl hide flag logic in order to set the default values for gre and
6870: -- workschedule segments Bug fix for 3116369
6871: l_scl_hide_flag := 'N';
6872: if p_assignment_type = 'C' then
6873: hr_utility.set_location('if p_assignment_type = C then:'||l_proc,25);
6874: OPEN csr_cwk_scl_idsel(l_legislation_code);
6875: FETCH csr_cwk_scl_idsel INTO l_flex_num;
6876: IF csr_cwk_scl_idsel%NOTFOUND THEN
6877: l_scl_hide_flag := 'Y';
6995: l_validate := p_validate;
6996:
6997: if (p_j_changed = 'Y' or p_j_changed is null) then
6998: if p_assignment_type = 'C' then
6999: hr_utility.set_location('if p_assignment_type = C then:'||l_proc,30);
7000: l_add_struct_k.extend(1);
7001: l_add_struct_k(l_add_struct_k.count) := 'SCL';
7002: hr_kflex_utility.create_ignore_kf_validation(p_rec => l_add_struct_k);
7003: --
7306: --
7307: -- since p_element_changed is null, the warning has not already been
7308: -- raised, so raise it
7309: --
7310: hr_utility.set_location('if p_element_changed is null then:'||l_proc,35);
7311: p_element_changed:='W';
7312: --fnd_message.set_name('PER', 'HR_ELEMENT_CHANGED_WARNING_WEB');
7313: --hr_utility.raise_error;
7314: -- Should add page level warning
7309: --
7310: hr_utility.set_location('if p_element_changed is null then:'||l_proc,35);
7311: p_element_changed:='W';
7312: --fnd_message.set_name('PER', 'HR_ELEMENT_CHANGED_WARNING_WEB');
7313: --hr_utility.raise_error;
7314: -- Should add page level warning
7315: /*hr_errors_api.addErrorToTable
7316: (p_errorfield => null
7317: ,p_errorcode => to_char(SQLCODE)
7330: -- we want a error, so raise one.
7331: --
7332: -- Should add page level warning
7333: fnd_message.set_name('PER', 'HR_ELEMENT_CHANGED_WEB');
7334: hr_utility.raise_error;
7335: /*hr_errors_api.addErrorToTable
7336: (p_errorfield => null
7337: ,p_errorcode => to_char(SQLCODE)
7338: ,p_errormsg => hr_util_misc_web.return_msg_text
7394: ,p_application_id => 'PER')
7395: );*/
7396: -- l_validate:=TRUE;
7397: -- fnd_message.set_name('PER', 'HR_JOB_CHANGES_WC_RATE_WEB');
7398: -- hr_utility.raise_error;
7399: -- end if;
7400: -- end if; --end check wc_code
7401: --
7402: -- if there is no manager in the organization now then raise a warning
7403: --
7404: /*if (l_org_now_no_manager_warning) then
7405: --Should add page level warning
7406: fnd_message.set_name('PER','HR_51124_MMV_NO_MGR_EXIST_ORG');
7407: hr_utility.raise_error;
7408: hr_errors_api.addErrorToTable
7409: (p_errorfield => null
7410: ,p_errormsg => fnd_message.get
7411: ,p_warningflag => TRUE);
7415: --
7416: /*if (l_other_manager_warning) then
7417: --Should add page level warning
7418: fnd_message.set_name('PER','HR_51125_MMV_MRE_MRG_EXIST_ORG');
7419: hr_utility.raise_error;
7420: hr_errors_api.addErrorToTable
7421: (p_errorfield => null
7422: ,p_errormsg => fnd_message.get
7423: ,p_warningflag => TRUE);
7567: --
7568: /*if(l_org_now_no_manager_warning) then
7569: --Should add page level warning
7570: --fnd_message.set_name('PER','HR_51124_MMV_NO_MGR_EXIST_ORG');
7571: --hr_utility.raise_error;
7572: hr_errors_api.addErrorToTable
7573: (p_errorfield => null
7574: ,p_errormsg => fnd_message.get
7575: ,p_warningflag => TRUE);
7576: end if;
7577: if(l_other_manager_warning) then
7578: --Should add page level warning
7579: --fnd_message.set_name('PER','HR_51125_MMV_MRE_MRG_EXIST_ORG');
7580: --hr_utility.raise_error;
7581: hr_errors_api.addErrorToTable
7582: (p_errorfield => null
7583: ,p_errormsg => fnd_message.get
7584: ,p_warningflag => TRUE);
7626: if l_assignment_status_type='ACTIVE_ASSIGN' then
7627: --
7628: -- active emp assignment
7629: --
7630: hr_utility.set_location('if l_assignment_status_type=ACTIVE_ASSIGN then:'||l_proc,40);
7631: hr_assignment_api.activate_emp_asg
7632: (p_effective_date => l_effective_date
7633: ,p_datetrack_update_mode => 'CORRECTION'
7634: ,p_assignment_id => p_assignment_id
7744: p_effective_date => l_effective_date,
7745: p_grd_ldr_exists_flag => lb_grd_ldr_exists_flag);
7746: -- may be required to add grade or step or ladder change condition
7747: if(lb_grd_ldr_exists_flag) then
7748: hr_utility.set_location('if(lb_grd_ldr_exists_flag) then:'||l_proc,45);
7749: hr_pay_rate_gsp_ss.get_employee_salary(
7750: p_assignment_id => p_assignment_id,
7751: P_effective_date => l_effective_date,
7752: p_ltt_salary_data => p_ltt_salary_data);
7760: --
7761: -- if we are in validate only mode, rollback
7762: --
7763: if l_validate=TRUE then
7764: hr_utility.set_location('if l_validate=TRUE then:rollback'||l_proc,50);
7765: rollback to validate_assignment;
7766: end if;
7767:
7768: --
7769: -- handle any errors that are raised.
7770: --
7771: exception
7772: when others then
7773: hr_utility.set_location('Exception:Others'||l_proc,555);
7774: rollback to validate_assignment;
7775: --hr_utility.raise_error;
7776: raise;
7777: --hr_message.provide_error;
7771: exception
7772: when others then
7773: hr_utility.set_location('Exception:Others'||l_proc,555);
7774: rollback to validate_assignment;
7775: --hr_utility.raise_error;
7776: raise;
7777: --hr_message.provide_error;
7778: --Should add page level error
7779: /*hr_errors_api.addErrorToTable
7803: where assignment_id = l_assignment_id and trunc(l_effective_date)
7804: between effective_start_date and effective_end_date;
7805:
7806: begin
7807: hr_utility.set_location('Entering:'||l_proc, 5);
7808:
7809: -- Fetch Original Manager Flag
7810: l_old_mgr_flag := hr_transaction_api.get_original_varchar2_value(p_transaction_step_id,'P_MANAGER_FLAG');
7811: -- Fetch Original Labour Union Flag
7830: (p_transaction_step_id => p_transaction_step_id
7831: ,p_transaction_data => asgRec);
7832:
7833: IF (asgRec.name.count < 108) THEN
7834: hr_utility.set_location('IF (asgRec.name.count < 108) THEN:'||l_proc,10);
7835: BEGIN
7836: hr_utility.set_location('Entering For Loop:'||l_proc,15);
7837: FOR I in asgRec.name.count+1 .. 108 LOOP
7838: asgRec.name(I) := null;
7832:
7833: IF (asgRec.name.count < 108) THEN
7834: hr_utility.set_location('IF (asgRec.name.count < 108) THEN:'||l_proc,10);
7835: BEGIN
7836: hr_utility.set_location('Entering For Loop:'||l_proc,15);
7837: FOR I in asgRec.name.count+1 .. 108 LOOP
7838: asgRec.name(I) := null;
7839: asgRec.number_value(I) := null;
7840: asgRec.varchar2_value(I) := null;
7839: asgRec.number_value(I) := null;
7840: asgRec.varchar2_value(I) := null;
7841: asgRec.date_value(I) := null;
7842: END LOOP;
7843: hr_utility.set_location('Exiting For Loop:'||l_proc,15);
7844: END;
7845: END IF;
7846:
7847: open csr for
8009: and (trunc(sysdate) between nvl(hl_bargaining_unit.start_date_active(+), trunc(sysdate))
8010: and nvl(hl_bargaining_unit.end_date_active(+), trunc(sysdate)));
8011:
8012:
8013: hr_utility.set_location('Exiting:'||l_proc, 20);
8014: return csr;
8015: END;
8016:
8017: FUNCTION get_rec_cnt
8017: FUNCTION get_rec_cnt
8018: RETURN NUMBER IS
8019: Cnt NUMBER:= 1;
8020: BEGIN
8021: hr_utility.set_location('Entering:get_rec_cnt', 5);
8022: hr_utility.set_location('Exiting:get_rec_cnt', 10);
8023: RETURN Cnt;
8024: END;
8025: --
8018: RETURN NUMBER IS
8019: Cnt NUMBER:= 1;
8020: BEGIN
8021: hr_utility.set_location('Entering:get_rec_cnt', 5);
8022: hr_utility.set_location('Exiting:get_rec_cnt', 10);
8023: RETURN Cnt;
8024: END;
8025: --
8026:
8069: l_po_number po_temp_labor_headers_v.po_number%TYPE;
8070: l_proc varchar2(72) := g_package||'get_po_number';
8071:
8072: BEGIN
8073: hr_utility.set_location('Entering:'||l_proc, 5);
8074: open csr_po_number(p_po_header_id);
8075: fetch csr_po_number into l_po_number;
8076: close csr_po_number;
8077:
8074: open csr_po_number(p_po_header_id);
8075: fetch csr_po_number into l_po_number;
8076: close csr_po_number;
8077:
8078: hr_utility.set_location('Exiting:'||l_proc, 15);
8079: return l_po_number;
8080: END;
8081:
8082: FUNCTION get_po_line_nuber(p_po_line_id in number)
8089: l_po_line_number number;
8090: l_proc varchar2(72) := g_package||'get_po_line_nuber';
8091:
8092: BEGIN
8093: hr_utility.set_location('Entering:'||l_proc, 5);
8094: open csr_po_line_number(p_po_line_id);
8095: fetch csr_po_line_number into l_po_line_number;
8096: close csr_po_line_number;
8097:
8095: fetch csr_po_line_number into l_po_line_number;
8096: close csr_po_line_number;
8097:
8098:
8099: hr_utility.set_location('Exiting:'||l_proc, 15);
8100: return l_po_line_number;
8101: END;
8102:
8103: FUNCTION get_vend_site_name(p_vendor_site_id in number)
8110: l_vendor_site_name po_vendor_sites_all.vendor_site_code%TYPE;
8111: l_proc varchar2(72) := g_package||'get_vend_site_name';
8112:
8113: BEGIN
8114: hr_utility.set_location('Entering:'||l_proc, 5);
8115: open csr_vendor_site_name(p_vendor_site_id);
8116: fetch csr_vendor_site_name into l_vendor_site_name;
8117: close csr_vendor_site_name;
8118:
8116: fetch csr_vendor_site_name into l_vendor_site_name;
8117: close csr_vendor_site_name;
8118:
8119:
8120: hr_utility.set_location('Exiting:'||l_proc, 15);
8121: return l_vendor_site_name;
8122: END;
8123:
8124: -- End of NTF change