[Home] [Help]
2440: p_app_valid_status IN OUT NOCOPY BOOLEAN) AS
2441: /******************************************************************
2442: Created By : AYEDUBAT
2443: Date Created By : 16-JUN-2003
2444: Purpose : Puplate the Admission Interface Table, IGS_AD_DISABLTY_INT_ALL for
2445: importing the Special Needs data and set the parameter,p_app_valid_status
2446: to FALSE if any validation is failed or an exception is raised.
2447: Known limitations,enhancements,remarks:
2448:
2477: WHERE person_id = cp_person_id
2478: AND TRUNC(start_date) <= TRUNC(SYSDATE)
2479: AND end_date IS NULL;
2480:
2481: l_dis_start_dt IGS_AD_DISABLTY_INT_ALL.start_date%TYPE;
2482: l_dis_end_dated BOOLEAN;
2483:
2484: BEGIN
2485:
2519: --- Loop through the existing disability records with end date as NULL
2520: FOR cur_other_disablty_dtls_rec IN cur_other_disablty_dtls(p_person_id) LOOP
2521:
2522: -- Populate the Interface Table for the Disability type with End Date as SYSDATE
2523: -- Populate the Interface Table, IGS_AD_DISABLTY_INT_ALL
2524: l_dis_end_dated := TRUE;
2525: INSERT INTO igs_ad_disablty_int_all (
2526: interface_disablty_id
2527: ,interface_id
2521:
2522: -- Populate the Interface Table for the Disability type with End Date as SYSDATE
2523: -- Populate the Interface Table, IGS_AD_DISABLTY_INT_ALL
2524: l_dis_end_dated := TRUE;
2525: INSERT INTO igs_ad_disablty_int_all (
2526: interface_disablty_id
2527: ,interface_id
2528: ,disability_type
2529: ,start_date
2556: ELSE
2557: l_dis_start_dt := TRUNC(p_application_date);
2558: END IF;
2559:
2560: -- Populate the Interface Table, IGS_AD_DISABLTY_INT_ALL
2561: INSERT INTO igs_ad_disablty_int_all (
2562: interface_disablty_id
2563: ,interface_id
2564: ,disability_type
2557: l_dis_start_dt := TRUNC(p_application_date);
2558: END IF;
2559:
2560: -- Populate the Interface Table, IGS_AD_DISABLTY_INT_ALL
2561: INSERT INTO igs_ad_disablty_int_all (
2562: interface_disablty_id
2563: ,interface_id
2564: ,disability_type
2565: ,start_date