40: BEGIN -- admp_ext_tac_arts
41: -- This program reads a decrypted request file from the TAC (Tertiary
42: -- Admissions Centre) ARTS (Automated Results Transfer System). It
43: -- then validates and interprets each student header record and
44: -- endeavours to match the input file record to a IGS_PE_PERSON record on
45: -- the database. If successful it writes academic details for the
46: -- matching people to the result file, which will then be encrypted
47: -- and retured to the TAC.
48: DECLARE
87: t_previous_name t_previous_name_type;
88: t_previous_name_clear t_previous_name_type;
89: -- Table of Matched ID's
90: TYPE r_matched_id_rec_type IS RECORD (
91: person_id IGS_PE_PERSON.person_id%TYPE,
92: basis_of_match VARCHAR2(3),
93: reason_code VARCHAR2(1));
94: r_matched_id_rec r_matched_id_rec_type;
95: TYPE t_matched_id_type IS TABLE OF r_matched_id_rec%TYPE
187: END admpl_strip_spaces;
188: ---------------
189: ---------------
190: PROCEDURE admpl_store_matched_table (
191: p_target_person_id IN IGS_PE_PERSON.person_id%TYPE,
192: p_basis_of_match IN VARCHAR2,
193: p_number_of_matches IN OUT NOCOPY NUMBER)
194: IS
195: cst_result_blk CONSTANT IGS_PE_PERSENC_EFFCT.s_encmb_effect_type%TYPE :=
272: END admpl_store_matched_table;
273: ---------------
274: ---------------
275: PROCEDURE admpl_match_criteria11 (
276: p_convert_birth_dt IN IGS_PE_PERSON.birth_dt%TYPE,
277: p_number_of_matches IN OUT NOCOPY NUMBER)
278: IS
279: cst_match11 CONSTANT VARCHAR2(3) := 'PFB';
280: v_number_of_matches NUMBER(4);
278: IS
279: cst_match11 CONSTANT VARCHAR2(3) := 'PFB';
280: v_number_of_matches NUMBER(4);
281: CURSOR c_pe (
282: cp_previous_family_name IGS_PE_PERSON.surname%TYPE) IS
283: SELECT pe.person_id
284: FROM igs_pe_person_base_v pe /* Replaced IGS_PE_PERSON with HZ tables Bug 3150054 */
285: WHERE pe.last_name = cp_previous_family_name AND
286: pe.birth_date = p_convert_birth_dt;
280: v_number_of_matches NUMBER(4);
281: CURSOR c_pe (
282: cp_previous_family_name IGS_PE_PERSON.surname%TYPE) IS
283: SELECT pe.person_id
284: FROM igs_pe_person_base_v pe /* Replaced IGS_PE_PERSON with HZ tables Bug 3150054 */
285: WHERE pe.last_name = cp_previous_family_name AND
286: pe.birth_date = p_convert_birth_dt;
287: BEGIN -- admpl_match_criteria11
288: -- Find match on previous family name and date of birth
305: END admpl_match_criteria11;
306: ---------------
307: ---------------
308: PROCEDURE admpl_match_criteria10 (
309: p_convert_family_name IN IGS_PE_PERSON.surname%TYPE,
310: p_convert_birth_dt IN IGS_PE_PERSON.birth_dt%TYPE,
311: p_number_of_matches IN OUT NOCOPY NUMBER)
312: IS
313: cst_match10 CONSTANT VARCHAR2(3) := 'CFB';
306: ---------------
307: ---------------
308: PROCEDURE admpl_match_criteria10 (
309: p_convert_family_name IN IGS_PE_PERSON.surname%TYPE,
310: p_convert_birth_dt IN IGS_PE_PERSON.birth_dt%TYPE,
311: p_number_of_matches IN OUT NOCOPY NUMBER)
312: IS
313: cst_match10 CONSTANT VARCHAR2(3) := 'CFB';
314: v_number_of_matches NUMBER(4);
313: cst_match10 CONSTANT VARCHAR2(3) := 'CFB';
314: v_number_of_matches NUMBER(4);
315: CURSOR c_pe IS
316: SELECT pe.person_id
317: FROM igs_pe_person_base_v pe /* Replaced IGS_PE_PERSON with HZ tables Bug 3150054 */
318: WHERE pe.last_name = p_convert_family_name AND
319: pe.birth_date = p_convert_birth_dt;
320: BEGIN -- admpl_match_criteria10
321: -- Find match on current family name and date of birth
341: p_number_of_matches IN OUT NOCOPY NUMBER)
342: IS
343: cst_match9 CONSTANT VARCHAR2(3) := 'P';
344: v_number_of_matches NUMBER(4);
345: v_db_given_name IGS_PE_PERSON.given_names%TYPE;
346: v_other_names IGS_PE_PERSON.given_names%TYPE;
347: CURSOR c_pe (
348: cp_previous_family_name IGS_PE_PERSON.surname%TYPE) IS
349: SELECT hz.party_id person_id /* Replaced IGS_PE_PERSON with HZ tables Bug 3150054 */
342: IS
343: cst_match9 CONSTANT VARCHAR2(3) := 'P';
344: v_number_of_matches NUMBER(4);
345: v_db_given_name IGS_PE_PERSON.given_names%TYPE;
346: v_other_names IGS_PE_PERSON.given_names%TYPE;
347: CURSOR c_pe (
348: cp_previous_family_name IGS_PE_PERSON.surname%TYPE) IS
349: SELECT hz.party_id person_id /* Replaced IGS_PE_PERSON with HZ tables Bug 3150054 */
350: FROM hz_parties hz
344: v_number_of_matches NUMBER(4);
345: v_db_given_name IGS_PE_PERSON.given_names%TYPE;
346: v_other_names IGS_PE_PERSON.given_names%TYPE;
347: CURSOR c_pe (
348: cp_previous_family_name IGS_PE_PERSON.surname%TYPE) IS
349: SELECT hz.party_id person_id /* Replaced IGS_PE_PERSON with HZ tables Bug 3150054 */
350: FROM hz_parties hz
351: WHERE hz.person_last_name = cp_previous_family_name;
352: BEGIN -- admpl_match_criteria9
345: v_db_given_name IGS_PE_PERSON.given_names%TYPE;
346: v_other_names IGS_PE_PERSON.given_names%TYPE;
347: CURSOR c_pe (
348: cp_previous_family_name IGS_PE_PERSON.surname%TYPE) IS
349: SELECT hz.party_id person_id /* Replaced IGS_PE_PERSON with HZ tables Bug 3150054 */
350: FROM hz_parties hz
351: WHERE hz.person_last_name = cp_previous_family_name;
352: BEGIN -- admpl_match_criteria9
353: -- Find match on previous family name and a given name
395: END admpl_match_criteria9;
396: ---------------
397: ---------------
398: PROCEDURE admpl_match_criteria8 (
399: p_convert_family_name IN IGS_PE_PERSON.surname%TYPE,
400: p_convert_first_name IN VARCHAR2,
401: p_convert_second_name IN VARCHAR2,
402: p_number_of_matches IN OUT NOCOPY NUMBER)
403: IS
402: p_number_of_matches IN OUT NOCOPY NUMBER)
403: IS
404: cst_match8 CONSTANT VARCHAR2(3) := 'C';
405: v_number_of_matches NUMBER(4);
406: v_db_given_name IGS_PE_PERSON.given_names%TYPE;
407: v_other_names IGS_PE_PERSON.given_names%TYPE;
408: CURSOR c_pe IS
409: SELECT hz.party_id person_id
410: FROM hz_parties hz
403: IS
404: cst_match8 CONSTANT VARCHAR2(3) := 'C';
405: v_number_of_matches NUMBER(4);
406: v_db_given_name IGS_PE_PERSON.given_names%TYPE;
407: v_other_names IGS_PE_PERSON.given_names%TYPE;
408: CURSOR c_pe IS
409: SELECT hz.party_id person_id
410: FROM hz_parties hz
411: WHERE hz.person_last_name = p_convert_family_name;
437: END admpl_match_criteria8;
438: ---------------
439: ---------------
440: PROCEDURE admpl_match_criteria7 (
441: p_convert_birth_dt IN IGS_PE_PERSON.birth_dt%TYPE,
442: p_convert_first_name IN VARCHAR2,
443: p_convert_second_name IN VARCHAR2,
444: p_number_of_matches IN OUT NOCOPY NUMBER)
445: IS
444: p_number_of_matches IN OUT NOCOPY NUMBER)
445: IS
446: cst_match7 CONSTANT VARCHAR2(3) := 'PB';
447: v_number_of_matches NUMBER(4);
448: v_db_given_name IGS_PE_PERSON.given_names%TYPE;
449: v_other_names IGS_PE_PERSON.given_names%TYPE;
450: CURSOR c_pe (
451: cp_previous_family_name IGS_PE_PERSON.surname%TYPE) IS
452: SELECT pe.person_id
445: IS
446: cst_match7 CONSTANT VARCHAR2(3) := 'PB';
447: v_number_of_matches NUMBER(4);
448: v_db_given_name IGS_PE_PERSON.given_names%TYPE;
449: v_other_names IGS_PE_PERSON.given_names%TYPE;
450: CURSOR c_pe (
451: cp_previous_family_name IGS_PE_PERSON.surname%TYPE) IS
452: SELECT pe.person_id
453: FROM igs_pe_person_base_v pe /* Replaced IGS_PE_PERSON with HZ tables Bug 3150054 */
447: v_number_of_matches NUMBER(4);
448: v_db_given_name IGS_PE_PERSON.given_names%TYPE;
449: v_other_names IGS_PE_PERSON.given_names%TYPE;
450: CURSOR c_pe (
451: cp_previous_family_name IGS_PE_PERSON.surname%TYPE) IS
452: SELECT pe.person_id
453: FROM igs_pe_person_base_v pe /* Replaced IGS_PE_PERSON with HZ tables Bug 3150054 */
454: WHERE pe.last_name = cp_previous_family_name AND
455: pe.birth_date = p_convert_birth_dt;
449: v_other_names IGS_PE_PERSON.given_names%TYPE;
450: CURSOR c_pe (
451: cp_previous_family_name IGS_PE_PERSON.surname%TYPE) IS
452: SELECT pe.person_id
453: FROM igs_pe_person_base_v pe /* Replaced IGS_PE_PERSON with HZ tables Bug 3150054 */
454: WHERE pe.last_name = cp_previous_family_name AND
455: pe.birth_date = p_convert_birth_dt;
456: BEGIN -- admpl_match_criteria7
457: -- Find match on previous family name, a given name and date of birth
498: END admpl_match_criteria7;
499: ---------------
500: ---------------
501: PROCEDURE admpl_match_criteria6 (
502: p_convert_family_name IN IGS_PE_PERSON.surname%TYPE,
503: p_convert_birth_dt IN IGS_PE_PERSON.birth_dt%TYPE,
504: p_convert_first_name IN VARCHAR2,
505: p_convert_second_name IN VARCHAR2,
506: p_number_of_matches IN OUT NOCOPY NUMBER)
499: ---------------
500: ---------------
501: PROCEDURE admpl_match_criteria6 (
502: p_convert_family_name IN IGS_PE_PERSON.surname%TYPE,
503: p_convert_birth_dt IN IGS_PE_PERSON.birth_dt%TYPE,
504: p_convert_first_name IN VARCHAR2,
505: p_convert_second_name IN VARCHAR2,
506: p_number_of_matches IN OUT NOCOPY NUMBER)
507: IS
506: p_number_of_matches IN OUT NOCOPY NUMBER)
507: IS
508: cst_match6 CONSTANT VARCHAR2(3) := 'CB';
509: v_number_of_matches NUMBER(4);
510: v_db_given_name IGS_PE_PERSON.given_names%TYPE;
511: v_other_names IGS_PE_PERSON.given_names%TYPE;
512: CURSOR c_pe IS
513: SELECT pe.person_id
514: FROM igs_pe_person_base_v pe /* Replaced IGS_PE_PERSON with HZ tables Bug 3150054 */
507: IS
508: cst_match6 CONSTANT VARCHAR2(3) := 'CB';
509: v_number_of_matches NUMBER(4);
510: v_db_given_name IGS_PE_PERSON.given_names%TYPE;
511: v_other_names IGS_PE_PERSON.given_names%TYPE;
512: CURSOR c_pe IS
513: SELECT pe.person_id
514: FROM igs_pe_person_base_v pe /* Replaced IGS_PE_PERSON with HZ tables Bug 3150054 */
515: WHERE pe.last_name = p_convert_family_name AND
510: v_db_given_name IGS_PE_PERSON.given_names%TYPE;
511: v_other_names IGS_PE_PERSON.given_names%TYPE;
512: CURSOR c_pe IS
513: SELECT pe.person_id
514: FROM igs_pe_person_base_v pe /* Replaced IGS_PE_PERSON with HZ tables Bug 3150054 */
515: WHERE pe.last_name = p_convert_family_name AND
516: pe.birth_date = p_convert_birth_dt;
517: BEGIN -- admpl_match_criteria6
518: -- Find match on current family name, a given name and date of birth
543: END admpl_match_criteria6;
544: ---------------
545: ---------------
546: PROCEDURE admpl_match_criteria5 (
547: p_convert_id IN IGS_PE_PERSON.person_id%TYPE,
548: p_number_of_matches IN OUT NOCOPY NUMBER)
549: IS
550: cst_match5 CONSTANT VARCHAR2(3) := 'S';
551: v_number_of_matches NUMBER(4);
548: p_number_of_matches IN OUT NOCOPY NUMBER)
549: IS
550: cst_match5 CONSTANT VARCHAR2(3) := 'S';
551: v_number_of_matches NUMBER(4);
552: v_person_id IGS_PE_PERSON.person_id%TYPE;
553: CURSOR c_pe IS
554: SELECT hz.party_id person_id /* Replaced IGS_PE_PERSON with HZ tables Bug 3150054 */
555: FROM hz_parties hz
556: WHERE hz.party_id = p_convert_id;
550: cst_match5 CONSTANT VARCHAR2(3) := 'S';
551: v_number_of_matches NUMBER(4);
552: v_person_id IGS_PE_PERSON.person_id%TYPE;
553: CURSOR c_pe IS
554: SELECT hz.party_id person_id /* Replaced IGS_PE_PERSON with HZ tables Bug 3150054 */
555: FROM hz_parties hz
556: WHERE hz.party_id = p_convert_id;
557: BEGIN -- admpl_match_criteria5
558: -- Find match on person ID only
577: END admpl_match_criteria5;
578: ---------------
579: ---------------
580: PROCEDURE admpl_match_criteria4a (
581: p_convert_id IN IGS_PE_PERSON.person_id%TYPE,
582: p_convert_birth_dt IN IGS_PE_PERSON.birth_dt%TYPE,
583: p_number_of_matches IN OUT NOCOPY NUMBER)
584: IS
585: cst_match4a CONSTANT VARCHAR2(3) := 'SB';
578: ---------------
579: ---------------
580: PROCEDURE admpl_match_criteria4a (
581: p_convert_id IN IGS_PE_PERSON.person_id%TYPE,
582: p_convert_birth_dt IN IGS_PE_PERSON.birth_dt%TYPE,
583: p_number_of_matches IN OUT NOCOPY NUMBER)
584: IS
585: cst_match4a CONSTANT VARCHAR2(3) := 'SB';
586: v_number_of_matches NUMBER(4);
583: p_number_of_matches IN OUT NOCOPY NUMBER)
584: IS
585: cst_match4a CONSTANT VARCHAR2(3) := 'SB';
586: v_number_of_matches NUMBER(4);
587: v_person_id IGS_PE_PERSON.person_id%TYPE;
588: CURSOR c_pe IS
589: SELECT pe.person_id
590: FROM igs_pe_person_base_v pe /* Replaced IGS_PE_PERSON with HZ tables Bug 3150054 */
591: WHERE pe.person_id = p_convert_id AND
586: v_number_of_matches NUMBER(4);
587: v_person_id IGS_PE_PERSON.person_id%TYPE;
588: CURSOR c_pe IS
589: SELECT pe.person_id
590: FROM igs_pe_person_base_v pe /* Replaced IGS_PE_PERSON with HZ tables Bug 3150054 */
591: WHERE pe.person_id = p_convert_id AND
592: pe.birth_date = p_convert_birth_dt;
593: BEGIN -- admpl_match_criteria4a
594: -- Find match on person ID and date of birth
613: END admpl_match_criteria4a;
614: ---------------
615: ---------------
616: PROCEDURE admpl_match_criteria4 (
617: p_convert_id IN IGS_PE_PERSON.person_id%TYPE,
618: p_convert_first_name IN VARCHAR2,
619: p_convert_second_name IN VARCHAR2,
620: p_number_of_matches IN OUT NOCOPY NUMBER)
621: IS
620: p_number_of_matches IN OUT NOCOPY NUMBER)
621: IS
622: cst_match4 CONSTANT VARCHAR2(3) := 'SP';
623: v_number_of_matches NUMBER(4);
624: v_person_id IGS_PE_PERSON.person_id%TYPE;
625: v_db_given_name IGS_PE_PERSON.given_names%TYPE;
626: v_other_names IGS_PE_PERSON.given_names%TYPE;
627: CURSOR c_pe (
628: cp_previous_family_name IGS_PE_PERSON.surname%TYPE) IS
621: IS
622: cst_match4 CONSTANT VARCHAR2(3) := 'SP';
623: v_number_of_matches NUMBER(4);
624: v_person_id IGS_PE_PERSON.person_id%TYPE;
625: v_db_given_name IGS_PE_PERSON.given_names%TYPE;
626: v_other_names IGS_PE_PERSON.given_names%TYPE;
627: CURSOR c_pe (
628: cp_previous_family_name IGS_PE_PERSON.surname%TYPE) IS
629: SELECT hz.party_id person_id
622: cst_match4 CONSTANT VARCHAR2(3) := 'SP';
623: v_number_of_matches NUMBER(4);
624: v_person_id IGS_PE_PERSON.person_id%TYPE;
625: v_db_given_name IGS_PE_PERSON.given_names%TYPE;
626: v_other_names IGS_PE_PERSON.given_names%TYPE;
627: CURSOR c_pe (
628: cp_previous_family_name IGS_PE_PERSON.surname%TYPE) IS
629: SELECT hz.party_id person_id
630: FROM hz_parties hz /* Replaced IGS_PE_PERSON with HZ tables Bug 3150054 */
624: v_person_id IGS_PE_PERSON.person_id%TYPE;
625: v_db_given_name IGS_PE_PERSON.given_names%TYPE;
626: v_other_names IGS_PE_PERSON.given_names%TYPE;
627: CURSOR c_pe (
628: cp_previous_family_name IGS_PE_PERSON.surname%TYPE) IS
629: SELECT hz.party_id person_id
630: FROM hz_parties hz /* Replaced IGS_PE_PERSON with HZ tables Bug 3150054 */
631: WHERE hz.party_id = p_convert_id AND
632: hz.person_last_name = cp_previous_family_name;
626: v_other_names IGS_PE_PERSON.given_names%TYPE;
627: CURSOR c_pe (
628: cp_previous_family_name IGS_PE_PERSON.surname%TYPE) IS
629: SELECT hz.party_id person_id
630: FROM hz_parties hz /* Replaced IGS_PE_PERSON with HZ tables Bug 3150054 */
631: WHERE hz.party_id = p_convert_id AND
632: hz.person_last_name = cp_previous_family_name;
633: BEGIN -- admpl_match_criteria4
634: -- Find match on person_id, previous family name and a given name
681: END admpl_match_criteria4;
682: ---------------
683: ---------------
684: PROCEDURE admpl_match_criteria3 (
685: p_convert_id IN IGS_PE_PERSON.person_id%TYPE,
686: p_convert_family_name IN IGS_PE_PERSON.surname%TYPE,
687: p_convert_first_name IN VARCHAR2,
688: p_convert_second_name IN VARCHAR2,
689: p_number_of_matches IN OUT NOCOPY NUMBER)
682: ---------------
683: ---------------
684: PROCEDURE admpl_match_criteria3 (
685: p_convert_id IN IGS_PE_PERSON.person_id%TYPE,
686: p_convert_family_name IN IGS_PE_PERSON.surname%TYPE,
687: p_convert_first_name IN VARCHAR2,
688: p_convert_second_name IN VARCHAR2,
689: p_number_of_matches IN OUT NOCOPY NUMBER)
690: IS
689: p_number_of_matches IN OUT NOCOPY NUMBER)
690: IS
691: cst_match3 CONSTANT VARCHAR2(3) := 'SC';
692: v_number_of_matches NUMBER(4);
693: v_person_id IGS_PE_PERSON.person_id%TYPE;
694: v_db_given_name IGS_PE_PERSON.given_names%TYPE;
695: v_other_names IGS_PE_PERSON.given_names%TYPE;
696: CURSOR c_pe IS
697: SELECT hz.party_id person_id
690: IS
691: cst_match3 CONSTANT VARCHAR2(3) := 'SC';
692: v_number_of_matches NUMBER(4);
693: v_person_id IGS_PE_PERSON.person_id%TYPE;
694: v_db_given_name IGS_PE_PERSON.given_names%TYPE;
695: v_other_names IGS_PE_PERSON.given_names%TYPE;
696: CURSOR c_pe IS
697: SELECT hz.party_id person_id
698: FROM hz_parties hz /* Replaced IGS_PE_PERSON with HZ tables Bug 3150054 */
691: cst_match3 CONSTANT VARCHAR2(3) := 'SC';
692: v_number_of_matches NUMBER(4);
693: v_person_id IGS_PE_PERSON.person_id%TYPE;
694: v_db_given_name IGS_PE_PERSON.given_names%TYPE;
695: v_other_names IGS_PE_PERSON.given_names%TYPE;
696: CURSOR c_pe IS
697: SELECT hz.party_id person_id
698: FROM hz_parties hz /* Replaced IGS_PE_PERSON with HZ tables Bug 3150054 */
699: WHERE hz.party_id = p_convert_id AND
694: v_db_given_name IGS_PE_PERSON.given_names%TYPE;
695: v_other_names IGS_PE_PERSON.given_names%TYPE;
696: CURSOR c_pe IS
697: SELECT hz.party_id person_id
698: FROM hz_parties hz /* Replaced IGS_PE_PERSON with HZ tables Bug 3150054 */
699: WHERE hz.party_id = p_convert_id AND
700: hz.person_last_name = p_convert_family_name;
701: BEGIN -- admpl_match_criteria3
702: -- Find match on person ID, current family name and a given name
732: END admpl_match_criteria3;
733: ---------------
734: ---------------
735: PROCEDURE admpl_match_criteria2 (
736: p_convert_id IN IGS_PE_PERSON.person_id%TYPE,
737: p_convert_birth_dt IN IGS_PE_PERSON.birth_dt%TYPE,
738: p_convert_first_name IN VARCHAR2,
739: p_convert_second_name IN VARCHAR2,
740: p_number_of_matches IN OUT NOCOPY NUMBER)
733: ---------------
734: ---------------
735: PROCEDURE admpl_match_criteria2 (
736: p_convert_id IN IGS_PE_PERSON.person_id%TYPE,
737: p_convert_birth_dt IN IGS_PE_PERSON.birth_dt%TYPE,
738: p_convert_first_name IN VARCHAR2,
739: p_convert_second_name IN VARCHAR2,
740: p_number_of_matches IN OUT NOCOPY NUMBER)
741: IS
740: p_number_of_matches IN OUT NOCOPY NUMBER)
741: IS
742: cst_match2 CONSTANT VARCHAR2(3) := 'SPB';
743: v_number_of_matches NUMBER(4);
744: v_person_id IGS_PE_PERSON.person_id%TYPE;
745: v_db_given_name IGS_PE_PERSON.given_names%TYPE;
746: v_other_names IGS_PE_PERSON.given_names%TYPE;
747: CURSOR c_pe (
748: cp_previous_family_name IGS_PE_PERSON.surname%TYPE) IS
741: IS
742: cst_match2 CONSTANT VARCHAR2(3) := 'SPB';
743: v_number_of_matches NUMBER(4);
744: v_person_id IGS_PE_PERSON.person_id%TYPE;
745: v_db_given_name IGS_PE_PERSON.given_names%TYPE;
746: v_other_names IGS_PE_PERSON.given_names%TYPE;
747: CURSOR c_pe (
748: cp_previous_family_name IGS_PE_PERSON.surname%TYPE) IS
749: SELECT pe.person_id
742: cst_match2 CONSTANT VARCHAR2(3) := 'SPB';
743: v_number_of_matches NUMBER(4);
744: v_person_id IGS_PE_PERSON.person_id%TYPE;
745: v_db_given_name IGS_PE_PERSON.given_names%TYPE;
746: v_other_names IGS_PE_PERSON.given_names%TYPE;
747: CURSOR c_pe (
748: cp_previous_family_name IGS_PE_PERSON.surname%TYPE) IS
749: SELECT pe.person_id
750: FROM igs_pe_person_base_v pe /* Replaced IGS_PE_PERSON with HZ tables Bug 3150054 */
744: v_person_id IGS_PE_PERSON.person_id%TYPE;
745: v_db_given_name IGS_PE_PERSON.given_names%TYPE;
746: v_other_names IGS_PE_PERSON.given_names%TYPE;
747: CURSOR c_pe (
748: cp_previous_family_name IGS_PE_PERSON.surname%TYPE) IS
749: SELECT pe.person_id
750: FROM igs_pe_person_base_v pe /* Replaced IGS_PE_PERSON with HZ tables Bug 3150054 */
751: WHERE pe.person_id = p_convert_id AND
752: pe.last_name = cp_previous_family_name AND
746: v_other_names IGS_PE_PERSON.given_names%TYPE;
747: CURSOR c_pe (
748: cp_previous_family_name IGS_PE_PERSON.surname%TYPE) IS
749: SELECT pe.person_id
750: FROM igs_pe_person_base_v pe /* Replaced IGS_PE_PERSON with HZ tables Bug 3150054 */
751: WHERE pe.person_id = p_convert_id AND
752: pe.last_name = cp_previous_family_name AND
753: pe.birth_date = p_convert_birth_dt;
754: BEGIN -- admpl_match_criteria2
803: END admpl_match_criteria2;
804: ---------------
805: ---------------
806: PROCEDURE admpl_match_criteria1 (
807: p_convert_id IN IGS_PE_PERSON.person_id%TYPE,
808: p_convert_family_name IN IGS_PE_PERSON.surname%TYPE,
809: p_convert_birth_dt IN IGS_PE_PERSON.birth_dt%TYPE,
810: p_convert_first_name IN VARCHAR2,
811: p_convert_second_name IN VARCHAR2,
804: ---------------
805: ---------------
806: PROCEDURE admpl_match_criteria1 (
807: p_convert_id IN IGS_PE_PERSON.person_id%TYPE,
808: p_convert_family_name IN IGS_PE_PERSON.surname%TYPE,
809: p_convert_birth_dt IN IGS_PE_PERSON.birth_dt%TYPE,
810: p_convert_first_name IN VARCHAR2,
811: p_convert_second_name IN VARCHAR2,
812: p_number_of_matches IN OUT NOCOPY NUMBER)
805: ---------------
806: PROCEDURE admpl_match_criteria1 (
807: p_convert_id IN IGS_PE_PERSON.person_id%TYPE,
808: p_convert_family_name IN IGS_PE_PERSON.surname%TYPE,
809: p_convert_birth_dt IN IGS_PE_PERSON.birth_dt%TYPE,
810: p_convert_first_name IN VARCHAR2,
811: p_convert_second_name IN VARCHAR2,
812: p_number_of_matches IN OUT NOCOPY NUMBER)
813: IS
812: p_number_of_matches IN OUT NOCOPY NUMBER)
813: IS
814: cst_match1 CONSTANT VARCHAR2(3) := 'SCB';
815: v_number_of_matches NUMBER(4);
816: v_person_id IGS_PE_PERSON.person_id%TYPE;
817: v_db_given_name IGS_PE_PERSON.given_names%TYPE;
818: v_other_names IGS_PE_PERSON.given_names%TYPE;
819: CURSOR c_pe IS
820: SELECT pe.person_id
813: IS
814: cst_match1 CONSTANT VARCHAR2(3) := 'SCB';
815: v_number_of_matches NUMBER(4);
816: v_person_id IGS_PE_PERSON.person_id%TYPE;
817: v_db_given_name IGS_PE_PERSON.given_names%TYPE;
818: v_other_names IGS_PE_PERSON.given_names%TYPE;
819: CURSOR c_pe IS
820: SELECT pe.person_id
821: FROM igs_pe_person_base_v pe /* Replaced IGS_PE_PERSON with HZ tables Bug 3150054 */
814: cst_match1 CONSTANT VARCHAR2(3) := 'SCB';
815: v_number_of_matches NUMBER(4);
816: v_person_id IGS_PE_PERSON.person_id%TYPE;
817: v_db_given_name IGS_PE_PERSON.given_names%TYPE;
818: v_other_names IGS_PE_PERSON.given_names%TYPE;
819: CURSOR c_pe IS
820: SELECT pe.person_id
821: FROM igs_pe_person_base_v pe /* Replaced IGS_PE_PERSON with HZ tables Bug 3150054 */
822: WHERE pe.person_id = p_convert_id AND
817: v_db_given_name IGS_PE_PERSON.given_names%TYPE;
818: v_other_names IGS_PE_PERSON.given_names%TYPE;
819: CURSOR c_pe IS
820: SELECT pe.person_id
821: FROM igs_pe_person_base_v pe /* Replaced IGS_PE_PERSON with HZ tables Bug 3150054 */
822: WHERE pe.person_id = p_convert_id AND
823: pe.last_name = p_convert_family_name AND
824: pe.birth_date = p_convert_birth_dt;
825: BEGIN -- admpl_match_criteria1
855: END admpl_match_criteria1;
856: ---------------
857: ---------------
858: PROCEDURE admpl_match_any_name (
859: p_convert_family_name IN IGS_PE_PERSON.surname%TYPE,
860: p_convert_birth_dt IN IGS_PE_PERSON.birth_dt%TYPE,
861: p_convert_first_name IN VARCHAR2,
862: p_convert_second_name IN VARCHAR2,
863: p_number_of_matches IN OUT NOCOPY NUMBER)
856: ---------------
857: ---------------
858: PROCEDURE admpl_match_any_name (
859: p_convert_family_name IN IGS_PE_PERSON.surname%TYPE,
860: p_convert_birth_dt IN IGS_PE_PERSON.birth_dt%TYPE,
861: p_convert_first_name IN VARCHAR2,
862: p_convert_second_name IN VARCHAR2,
863: p_number_of_matches IN OUT NOCOPY NUMBER)
864: IS
912: END admpl_match_any_name;
913: ---------------
914: ---------------
915: PROCEDURE admpl_match_loose_name (
916: p_convert_family_name IN IGS_PE_PERSON.surname%TYPE,
917: p_convert_birth_dt IN IGS_PE_PERSON.birth_dt%TYPE,
918: p_convert_first_name IN VARCHAR2,
919: p_convert_second_name IN VARCHAR2,
920: p_number_of_matches IN OUT NOCOPY NUMBER)
913: ---------------
914: ---------------
915: PROCEDURE admpl_match_loose_name (
916: p_convert_family_name IN IGS_PE_PERSON.surname%TYPE,
917: p_convert_birth_dt IN IGS_PE_PERSON.birth_dt%TYPE,
918: p_convert_first_name IN VARCHAR2,
919: p_convert_second_name IN VARCHAR2,
920: p_number_of_matches IN OUT NOCOPY NUMBER)
921: IS
954: END admpl_match_loose_name;
955: ---------------
956: ---------------
957: PROCEDURE admpl_match_exact_name (
958: p_convert_family_name IN IGS_PE_PERSON.surname%TYPE,
959: p_convert_birth_dt IN IGS_PE_PERSON.birth_dt%TYPE,
960: p_convert_first_name IN VARCHAR2,
961: p_convert_second_name IN VARCHAR2,
962: p_number_of_matches IN OUT NOCOPY NUMBER)
955: ---------------
956: ---------------
957: PROCEDURE admpl_match_exact_name (
958: p_convert_family_name IN IGS_PE_PERSON.surname%TYPE,
959: p_convert_birth_dt IN IGS_PE_PERSON.birth_dt%TYPE,
960: p_convert_first_name IN VARCHAR2,
961: p_convert_second_name IN VARCHAR2,
962: p_number_of_matches IN OUT NOCOPY NUMBER)
963: IS
979: END admpl_match_exact_name;
980: ---------------
981: ---------------
982: PROCEDURE admpl_match_any_id (
983: p_convert_id IN IGS_PE_PERSON.person_id%TYPE,
984: p_convert_family_name IN IGS_PE_PERSON.surname%TYPE,
985: p_convert_birth_dt IN IGS_PE_PERSON.birth_dt%TYPE,
986: p_convert_first_name IN VARCHAR2,
987: p_convert_second_name IN VARCHAR2,
980: ---------------
981: ---------------
982: PROCEDURE admpl_match_any_id (
983: p_convert_id IN IGS_PE_PERSON.person_id%TYPE,
984: p_convert_family_name IN IGS_PE_PERSON.surname%TYPE,
985: p_convert_birth_dt IN IGS_PE_PERSON.birth_dt%TYPE,
986: p_convert_first_name IN VARCHAR2,
987: p_convert_second_name IN VARCHAR2,
988: p_number_of_matches IN OUT NOCOPY NUMBER)
981: ---------------
982: PROCEDURE admpl_match_any_id (
983: p_convert_id IN IGS_PE_PERSON.person_id%TYPE,
984: p_convert_family_name IN IGS_PE_PERSON.surname%TYPE,
985: p_convert_birth_dt IN IGS_PE_PERSON.birth_dt%TYPE,
986: p_convert_first_name IN VARCHAR2,
987: p_convert_second_name IN VARCHAR2,
988: p_number_of_matches IN OUT NOCOPY NUMBER)
989: IS
1044: END admpl_match_any_id;
1045: ---------------
1046: ---------------
1047: PROCEDURE admpl_match_exact_id (
1048: p_convert_id IN IGS_PE_PERSON.person_id%TYPE,
1049: p_convert_family_name IN IGS_PE_PERSON.surname%TYPE,
1050: p_convert_birth_dt IN IGS_PE_PERSON.birth_dt%TYPE,
1051: p_convert_first_name IN VARCHAR2,
1052: p_convert_second_name IN VARCHAR2,
1045: ---------------
1046: ---------------
1047: PROCEDURE admpl_match_exact_id (
1048: p_convert_id IN IGS_PE_PERSON.person_id%TYPE,
1049: p_convert_family_name IN IGS_PE_PERSON.surname%TYPE,
1050: p_convert_birth_dt IN IGS_PE_PERSON.birth_dt%TYPE,
1051: p_convert_first_name IN VARCHAR2,
1052: p_convert_second_name IN VARCHAR2,
1053: p_number_of_matches IN OUT NOCOPY NUMBER)
1046: ---------------
1047: PROCEDURE admpl_match_exact_id (
1048: p_convert_id IN IGS_PE_PERSON.person_id%TYPE,
1049: p_convert_family_name IN IGS_PE_PERSON.surname%TYPE,
1050: p_convert_birth_dt IN IGS_PE_PERSON.birth_dt%TYPE,
1051: p_convert_first_name IN VARCHAR2,
1052: p_convert_second_name IN VARCHAR2,
1053: p_number_of_matches IN OUT NOCOPY NUMBER)
1054: IS
1081: END admpl_match_exact_id;
1082: ---------------
1083: ---------------
1084: PROCEDURE admpl_match_standard_6 (
1085: p_convert_family_name IN IGS_PE_PERSON.surname%TYPE,
1086: p_convert_birth_dt IN IGS_PE_PERSON.birth_dt%TYPE,
1087: p_convert_first_name IN VARCHAR2,
1088: p_convert_second_name IN VARCHAR2,
1089: p_number_of_matches IN OUT NOCOPY NUMBER)
1082: ---------------
1083: ---------------
1084: PROCEDURE admpl_match_standard_6 (
1085: p_convert_family_name IN IGS_PE_PERSON.surname%TYPE,
1086: p_convert_birth_dt IN IGS_PE_PERSON.birth_dt%TYPE,
1087: p_convert_first_name IN VARCHAR2,
1088: p_convert_second_name IN VARCHAR2,
1089: p_number_of_matches IN OUT NOCOPY NUMBER)
1090: IS
1137: IGS_GE_MSG_STACK.ADD;
1138: App_Exception.Raise_Exception;
1139: END admpl_match_standard_6;
1140: PROCEDURE admpl_match_standard (
1141: p_convert_id IN IGS_PE_PERSON.person_id%TYPE,
1142: p_convert_family_name IN IGS_PE_PERSON.surname%TYPE,
1143: p_convert_birth_dt IN IGS_PE_PERSON.birth_dt%TYPE,
1144: p_convert_first_name IN VARCHAR2,
1145: p_convert_second_name IN VARCHAR2,
1138: App_Exception.Raise_Exception;
1139: END admpl_match_standard_6;
1140: PROCEDURE admpl_match_standard (
1141: p_convert_id IN IGS_PE_PERSON.person_id%TYPE,
1142: p_convert_family_name IN IGS_PE_PERSON.surname%TYPE,
1143: p_convert_birth_dt IN IGS_PE_PERSON.birth_dt%TYPE,
1144: p_convert_first_name IN VARCHAR2,
1145: p_convert_second_name IN VARCHAR2,
1146: p_number_of_matches IN OUT NOCOPY NUMBER)
1139: END admpl_match_standard_6;
1140: PROCEDURE admpl_match_standard (
1141: p_convert_id IN IGS_PE_PERSON.person_id%TYPE,
1142: p_convert_family_name IN IGS_PE_PERSON.surname%TYPE,
1143: p_convert_birth_dt IN IGS_PE_PERSON.birth_dt%TYPE,
1144: p_convert_first_name IN VARCHAR2,
1145: p_convert_second_name IN VARCHAR2,
1146: p_number_of_matches IN OUT NOCOPY NUMBER)
1147: IS
1306: cst_withdrawn CONSTANT IGS_AS_GRD_SCH_GRADE.s_result_type%TYPE :=
1307: 'WITHDRAWN';
1308: cst_fail CONSTANT IGS_AS_GRD_SCH_GRADE.s_result_type%TYPE := 'FAIL';
1309: cst_pass CONSTANT IGS_AS_GRD_SCH_GRADE.s_result_type%TYPE := 'PASS';
1310: v_person_id IGS_PE_PERSON.person_id%TYPE;
1311: v_surname IGS_PE_PERSON.surname%TYPE;
1312: v_given_names IGS_PE_PERSON.given_names%TYPE;
1313: v_birth_dt IGS_PE_PERSON.birth_dt%TYPE;
1314: v_birth_dt_str VARCHAR2(6);
1307: 'WITHDRAWN';
1308: cst_fail CONSTANT IGS_AS_GRD_SCH_GRADE.s_result_type%TYPE := 'FAIL';
1309: cst_pass CONSTANT IGS_AS_GRD_SCH_GRADE.s_result_type%TYPE := 'PASS';
1310: v_person_id IGS_PE_PERSON.person_id%TYPE;
1311: v_surname IGS_PE_PERSON.surname%TYPE;
1312: v_given_names IGS_PE_PERSON.given_names%TYPE;
1313: v_birth_dt IGS_PE_PERSON.birth_dt%TYPE;
1314: v_birth_dt_str VARCHAR2(6);
1315: v_space_pos VARCHAR2(2);
1308: cst_fail CONSTANT IGS_AS_GRD_SCH_GRADE.s_result_type%TYPE := 'FAIL';
1309: cst_pass CONSTANT IGS_AS_GRD_SCH_GRADE.s_result_type%TYPE := 'PASS';
1310: v_person_id IGS_PE_PERSON.person_id%TYPE;
1311: v_surname IGS_PE_PERSON.surname%TYPE;
1312: v_given_names IGS_PE_PERSON.given_names%TYPE;
1313: v_birth_dt IGS_PE_PERSON.birth_dt%TYPE;
1314: v_birth_dt_str VARCHAR2(6);
1315: v_space_pos VARCHAR2(2);
1316: v_first_name IGS_PE_PERSON.given_names%TYPE;
1309: cst_pass CONSTANT IGS_AS_GRD_SCH_GRADE.s_result_type%TYPE := 'PASS';
1310: v_person_id IGS_PE_PERSON.person_id%TYPE;
1311: v_surname IGS_PE_PERSON.surname%TYPE;
1312: v_given_names IGS_PE_PERSON.given_names%TYPE;
1313: v_birth_dt IGS_PE_PERSON.birth_dt%TYPE;
1314: v_birth_dt_str VARCHAR2(6);
1315: v_space_pos VARCHAR2(2);
1316: v_first_name IGS_PE_PERSON.given_names%TYPE;
1317: v_second_name IGS_PE_PERSON.given_names%TYPE;
1312: v_given_names IGS_PE_PERSON.given_names%TYPE;
1313: v_birth_dt IGS_PE_PERSON.birth_dt%TYPE;
1314: v_birth_dt_str VARCHAR2(6);
1315: v_space_pos VARCHAR2(2);
1316: v_first_name IGS_PE_PERSON.given_names%TYPE;
1317: v_second_name IGS_PE_PERSON.given_names%TYPE;
1318: v_course_year_first_enr NUMBER(4);
1319: v_course_year_last_enr NUMBER(4);
1320: v_course_sem_first_enr NUMBER(1);
1313: v_birth_dt IGS_PE_PERSON.birth_dt%TYPE;
1314: v_birth_dt_str VARCHAR2(6);
1315: v_space_pos VARCHAR2(2);
1316: v_first_name IGS_PE_PERSON.given_names%TYPE;
1317: v_second_name IGS_PE_PERSON.given_names%TYPE;
1318: v_course_year_first_enr NUMBER(4);
1319: v_course_year_last_enr NUMBER(4);
1320: v_course_sem_first_enr NUMBER(1);
1321: v_course_sem_last_enr NUMBER(1);
1355: SELECT pe.person_id person_id,
1356: pe.last_name surname,
1357: pe.first_name given_names,
1358: pe.birth_date birth_dt
1359: FROM igs_pe_person_base_v pe /* Replaced IGS_PE_PERSON with igs_pe_person_base_v Bug 3150054 */
1360: WHERE pe.person_id = p_matched_id;
1361: CURSOR c_sua_sca IS
1362: SELECT sca.course_rqrmnt_complete_ind,
1363: sca.person_id,
2695: p_create_on OUT NOCOPY DATE )
2696: IS
2697: BEGIN -- admp_get_aa_created
2698: -- Routine to return the date an admission application was created
2699: -- and the Oracle user name of the IGS_PE_PERSON that created the admission
2700: -- application.
2701: DECLARE
2702: v_create_who IGS_AD_APPL.LAST_UPDATED_BY%TYPE DEFAULT NULL;
2703: v_create_on IGS_AD_APPL.LAST_UPDATE_DATE%TYPE DEFAULT NULL;
3843: cp_admission_appl_number igs_pe_typ_instances_all.admission_appl_number%TYPE,
3844: cp_nominated_course_cd igs_pe_typ_instances_all.nominated_course_cd%TYPE) IS
3845: SELECT pti.rowid,pti.*
3846: FROM igs_pe_typ_instances_all pti
3847: WHERE pti.person_type_code IN (SELECT pt.person_type_code FROM Igs_pe_person_types pt WHERE pt.system_type = 'APPLICANT')
3848: AND pti.person_id = cp_person_id
3849: AND pti.admission_appl_number = cp_admission_appl_number
3850: AND pti.nominated_course_cd = cp_nominated_course_cd
3851: AND pti.end_date IS NOT NULL