2859: /******************************************************************
2860: Created By : AYEDUBAT
2861: Date Created By : 16-JUN-2003
2862: Purpose : Puplate the Admission Interface Tables,
2863: IGS_AD_ADDR_INT_ALL and IGS_AD_ADDRUSAGE_INT_ALL
2864: Known limitations,enhancements,remarks:
2865:
2866: CHANGE HISTORY:
2867: WHO WHEN WHAT
2965: l_usage := NVL(p_addr_usage_corr,'CORR');
2966: END IF;
2967:
2968: -- Populating the Address Usage Interface Table for Correspondence Address
2969: INSERT INTO igs_ad_addrusage_int_all (
2970: interface_addrusage_id
2971: ,interface_addr_id
2972: ,site_use_code
2973: ,status
3050: RETURNING interface_addr_id INTO l_interface_addr_id ;
3051:
3052: -- Populating the Address Usage Interface Table for Home Address
3053: -- Usage is given by p_addr_usage_home if available, otherwise use HOME
3054: INSERT INTO igs_ad_addrusage_int_all (
3055: interface_addrusage_id
3056: ,interface_addr_id
3057: ,site_use_code
3058: ,status