[Home] [Help]
11: gv_other_detail VARCHAR2(255);
12: BEGIN -- admp_get_tac_api
13: -- This function gets the TAC alternate person ID
14: DECLARE
15: cst_tac CONSTANT IGS_PE_PERSON_ID_TYP.s_person_id_type%TYPE := 'TAC';
16: v_tac_id IGS_PE_ALT_PERS_ID.api_person_id%TYPE;
17: CURSOR c_api_pit IS
18: SELECT api.api_person_id
19: FROM IGS_PE_ALT_PERS_ID api,
16: v_tac_id IGS_PE_ALT_PERS_ID.api_person_id%TYPE;
17: CURSOR c_api_pit IS
18: SELECT api.api_person_id
19: FROM IGS_PE_ALT_PERS_ID api,
20: IGS_PE_PERSON_ID_TYP pit
21: WHERE api.pe_person_id = p_person_id AND
22: pit.person_id_type = api.person_id_type AND
23: pit.s_person_id_type = cst_tac;
24: BEGIN
225: cst_rejected CONSTANT VARCHAR2(10) := 'REJECTED';
226: cst_active CONSTANT VARCHAR2(10) := 'ACTIVE';
227: v_message_name varchar2(30);
228: v_matched_id IGS_PE_ALT_PERS_ID.pe_person_id%TYPE;
229: v_given_names IGS_PE_PERSON.given_names%TYPE;
230: v_course_cd IGS_PS_ENT_PT_REF_CD.course_cd%TYPE;
231: v_version_number IGS_PS_ENT_PT_REF_CD.version_number%TYPE;
232: v_location_cd IGS_PS_ENT_PT_REF_CD.location_cd%TYPE;
233: v_attendance_mode IGS_PS_ENT_PT_REF_CD.attendance_mode%TYPE;
241: v_course_ins_found BOOLEAN;
242: CURSOR c_tac_id_api IS
243: SELECT api.pe_person_id
244: FROM IGS_PE_ALT_PERS_ID api,
245: IGS_PE_PERSON_ID_TYP pit
246: WHERE pit.s_person_id_type = 'TAC' AND
247: api.person_id_type = pit.person_id_type AND
248: api.api_person_id = p_tac_person_id;
249: CURSOR c_tac_id_pe(
383: END IF;
384: v_matched_id := v_tac_id_rec.person_id;
385: END LOOP;
386: IF (v_tac_match = FALSE) THEN
387: -- No match or more than one record found in IGS_PE_PERSON
388: p_message_name := 'IGS_AD_CANNOT_MATCH_PERSONID';
389: RETURN FALSE;
390: END IF;
391: ELSE