The following lines contain the word 'select', 'insert', 'update' or 'delete':
x_last_update_date IN DATE DEFAULT NULL,
x_last_updated_by IN NUMBER DEFAULT NULL,
x_last_update_login IN NUMBER DEFAULT NULL,
x_adm_ps_appl_inst_unit_id IN NUMBER DEFAULT NULL
) AS
CURSOR cur_old_ref_values IS
SELECT *
FROM IGS_AD_PS_APLINSTUNT_ALL
WHERE rowid = x_rowid;
IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
Close cur_old_ref_values;
Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
IF (p_action = 'UPDATE') THEN
new_references.creation_date := old_references.creation_date;
new_references.last_update_date := x_last_update_date;
new_references.last_updated_by := x_last_updated_by;
new_references.last_update_login := x_last_update_login;
PROCEDURE BeforeRowInsertUpdateDelete1(
p_inserting IN BOOLEAN DEFAULT FALSE,
p_updating IN BOOLEAN DEFAULT FALSE,
p_deleting IN BOOLEAN DEFAULT FALSE
) AS
v_message_name varchar2(30);
SELECT s_admission_step_type
FROM IGS_AD_PRCS_CAT_STEP
WHERE admission_cat = cp_admission_cat AND
s_admission_process_type = cp_s_admission_process_type AND
step_group_type <> 'TRACK'; --2402377
SELECT adm_cal_type,
adm_ci_sequence_number,
course_cd
FROM IGS_AD_PS_APPL_INST
WHERE person_id = cp_person_id AND
admission_appl_number = cp_admission_appl_number AND
nominated_course_cd = cp_nominated_course_cd AND
sequence_number = cp_sequence_number;
IF p_inserting OR p_updating OR p_deleting THEN
IF p_deleting THEN
v_person_id := old_references.person_id;
IF p_inserting OR p_updating THEN
-- Determine the Academic and Admission period for validation.
OPEN c_acai (
new_references.person_id,
new_references.admission_appl_number,
new_references.nominated_course_cd,
new_references.acai_sequence_number);
IF p_inserting THEN
-- Validate the unit code.
IF IGS_AD_VAL_ACAIU.admp_val_acaiu_unit (
new_references.unit_cd,
new_references.uv_version_number,
v_adm_cal_type,
v_adm_ci_sequence_number,
v_acad_cal_type,
v_acad_ci_sequence_number,
v_s_admission_process_type,
v_offer_ind,
v_message_name) = FALSE THEN
Fnd_Message.Set_Name('IGS',v_message_name);
IF p_inserting OR p_updating THEN
-- Validate admission unit outcome status
IF NVL(old_references.adm_unit_outcome_status, '-1') <>
new_references.adm_unit_outcome_status THEN
IF IGS_AD_VAL_ACAIU.admp_val_acaiu_auos (
new_references.person_id,
new_references.admission_appl_number,
new_references.nominated_course_cd,
new_references.acai_sequence_number,
new_references.adm_unit_outcome_status,
v_message_name) = FALSE THEN
Fnd_Message.Set_Name('IGS',v_message_name);
END BeforeRowInsertUpdateDelete1;
PROCEDURE AfterRowInsertUpdate2(
p_inserting IN BOOLEAN DEFAULT FALSE,
p_updating IN BOOLEAN DEFAULT FALSE,
p_deleting IN BOOLEAN DEFAULT FALSE
) AS
v_admission_cat IGS_AD_APPL.admission_cat%TYPE;
SELECT s_admission_step_type,
step_type_restriction_num
FROM IGS_AD_PRCS_CAT_STEP
WHERE admission_cat = cp_admission_cat AND
s_admission_process_type = cp_s_admission_process_type AND
step_group_type <> 'TRACK'; --2402377
IF p_inserting OR p_updating THEN
IF p_inserting THEN
--
-- Get admission application details required for validation.
--
IGS_AD_GEN_002.ADMP_GET_AA_DTL(
new_references.person_id,
new_references.admission_appl_number,
v_admission_cat,
v_s_admission_process_type,
v_acad_cal_type,
v_aa_acad_ci_sequence_number,
v_aa_adm_cal_type,
v_aa_adm_ci_sequence_number,
v_appl_dt,
v_adm_appl_status,
v_adm_fee_status);
IF p_inserting THEN
-- Validate restriction number of admission course application instance unit.
IF IGS_AD_VAL_ACAIU.admp_val_acaiu_restr (
new_references.person_id,
new_references.admission_appl_number,
new_references.nominated_course_cd,
new_references.acai_sequence_number,
new_references.unit_cd,
v_unit_restriction_num,
v_message_name,
new_references.uv_version_number,
new_references.cal_type,
new_references.ci_sequence_number,
new_references.location_cd,
new_references.unit_class ) = FALSE THEN
Fnd_Message.Set_Name('IGS',v_message_name);
END AfterRowInsertUpdate2;
PROCEDURE AfterRowUpdateDelete3(
p_inserting IN BOOLEAN DEFAULT FALSE,
p_updating IN BOOLEAN DEFAULT FALSE,
p_deleting IN BOOLEAN DEFAULT FALSE
) AS
v_message_name varchar2(30);
SELECT rowid,acaiuh.*
FROM IGS_AD_PS_APINTUNTHS acaiuh
WHERE acaiuh.adm_ps_appl_inst_unit_id = old_references.adm_ps_appl_inst_unit_id
FOR UPDATE OF acaiuh.person_id NOWAIT;
new_references.last_updated_by,
old_references.last_updated_by,
new_references.last_update_date,
old_references.last_update_date);
IGS_AD_PS_APINTUNTHS_PKG.DELETE_ROW (
X_ROWID => v_acaiuh_rec.rowid );
END AfterRowUpdateDelete3;
Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
SELECT rowid
FROM IGS_AD_PS_APLINSTUNT_ALL
WHERE adm_ps_appl_inst_unit_id = x_adm_ps_appl_inst_unit_id
FOR UPDATE NOWAIT;
SELECT rowid
FROM IGS_AD_PS_APLINSTUNT_ALL
WHERE person_id = x_person_id
AND admission_appl_number = x_admission_appl_number
AND nominated_course_cd = x_nominated_course_cd
AND acai_sequence_number = x_acai_sequence_number
AND unit_cd = x_unit_cd
AND uv_version_number = x_uv_version_number
AND NVL(cal_type,'*') = NVL(x_cal_type,'*')
AND NVL(ci_sequence_number,-1) = NVL(x_ci_sequence_number,-1)
AND NVL(location_cd,'*') = NVL(x_location_cd,'*')
AND NVL(unit_class,'*') = NVL(x_unit_class,'*')
AND (l_rowid IS NULL OR rowid <> l_rowid)
FOR UPDATE NOWAIT;
SELECT rowid
FROM IGS_AD_PS_APLINSTUNT_ALL
WHERE person_id = x_person_id
AND admission_appl_number = x_admission_appl_number
AND nominated_course_cd = x_nominated_course_cd
AND acai_sequence_number = x_sequence_number ;
SELECT rowid
FROM IGS_AD_PS_APLINSTUNT_ALL
WHERE adm_unit_outcome_status = x_adm_unit_outcome_status ;
SELECT rowid
FROM IGS_AD_PS_APLINSTUNT_ALL
WHERE location_cd = x_location_cd ;
SELECT rowid
FROM IGS_AD_PS_APLINSTUNT_ALL
WHERE rule_waived_person_id = x_person_id ;
SELECT rowid
FROM IGS_AD_PS_APLINSTUNT_ALL
WHERE sup_unit_cd = x_unit_cd
AND sup_uv_version_number = x_version_number ;
SELECT rowid
FROM IGS_AD_PS_APLINSTUNT_ALL
WHERE ass_tracking_id = x_tracking_id ;
SELECT rowid
FROM IGS_AD_PS_APLINSTUNT_ALL
WHERE unit_mode = x_unit_mode ;
SELECT rowid
FROM IGS_AD_PS_APLINSTUNT_ALL
WHERE unit_cd = x_unit_cd
AND uv_version_number = x_version_number
AND cal_type = x_cal_type
AND ci_sequence_number = x_ci_sequence_number
AND location_cd = x_location_cd
AND unit_class = x_unit_class ;
SELECT rowid
FROM IGS_AD_PS_APLINSTUNT_ALL
WHERE unit_cd = x_unit_cd
AND uv_version_number = x_version_number
AND cal_type = x_cal_type
AND ci_sequence_number = x_ci_sequence_number ;
x_last_update_date IN DATE DEFAULT NULL,
x_last_updated_by IN NUMBER DEFAULT NULL,
x_last_update_login IN NUMBER DEFAULT NULL,
x_adm_ps_appl_inst_unit_id IN NUMBER DEFAULT NULL
) AS
BEGIN
Set_Column_Values (
p_action,
x_rowid,
x_org_id,
x_person_id,
x_admission_appl_number,
x_nominated_course_cd,
x_acai_sequence_number,
x_unit_cd,
x_uv_version_number,
x_cal_type,
x_ci_sequence_number,
x_location_cd,
x_unit_class,
x_unit_mode,
x_adm_unit_outcome_status,
x_ass_tracking_id,
x_rule_waived_dt,
x_rule_waived_person_id,
x_sup_unit_cd,
x_sup_uv_version_number,
x_creation_date,
x_created_by,
x_last_update_date,
x_last_updated_by,
x_last_update_login,
x_adm_ps_appl_inst_unit_id
);
IF (p_action = 'INSERT') THEN
-- Call all the procedures related to Before Insert.
BeforeRowInsertUpdateDelete1 ( p_inserting => TRUE );
ELSIF (p_action = 'UPDATE') THEN
-- Call all the procedures related to Before Update.
IF Get_UK_For_Validation (
new_references.person_id,
new_references.admission_appl_number,
new_references.nominated_course_cd,
new_references.acai_sequence_number,
new_references.unit_cd,
new_references.uv_version_number,
new_references.cal_type,
new_references.ci_sequence_number,
new_references.location_cd,
new_references.unit_class
) THEN
Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
BeforeRowInsertUpdateDelete1 ( p_updating => TRUE );
ELSIF (p_action = 'DELETE') THEN
-- Call all the procedures related to Before Delete.
BeforeRowInsertUpdateDelete1 ( p_deleting => TRUE );
ELSIF (p_action = 'VALIDATE_INSERT') THEN
IF Get_PK_For_Validation (new_references.adm_ps_appl_inst_unit_id) OR
Get_UK_For_Validation (
new_references.person_id,
new_references.admission_appl_number,
new_references.nominated_course_cd,
new_references.acai_sequence_number,
new_references.unit_cd,
new_references.uv_version_number,
new_references.cal_type,
new_references.ci_sequence_number,
new_references.location_cd,
new_references.unit_class
) THEN
Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
ELSIF (p_action = 'VALIDATE_UPDATE') THEN
IF Get_UK_For_Validation (
new_references.person_id,
new_references.admission_appl_number,
new_references.nominated_course_cd,
new_references.acai_sequence_number,
new_references.unit_cd,
new_references.uv_version_number,
new_references.cal_type,
new_references.ci_sequence_number,
new_references.location_cd,
new_references.unit_class
) THEN
Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
IF (p_action = 'INSERT') THEN
AfterRowInsertUpdate2 ( p_inserting => TRUE );
ELSIF (p_action = 'UPDATE') THEN
AfterRowInsertUpdate2 ( p_updating => TRUE );
AfterRowUpdateDelete3 ( p_updating => TRUE );
ELSIF (p_action = 'DELETE') THEN
AfterRowUpdateDelete3 ( p_deleting => TRUE );
procedure INSERT_ROW (
X_ROWID in out NOCOPY VARCHAR2,
X_ORG_ID in NUMBER,
X_PERSON_ID in NUMBER,
X_ADMISSION_APPL_NUMBER in NUMBER,
X_NOMINATED_COURSE_CD in VARCHAR2,
X_ACAI_SEQUENCE_NUMBER in NUMBER,
X_UNIT_CD in VARCHAR2,
X_UV_VERSION_NUMBER in NUMBER,
X_CAL_TYPE in VARCHAR2,
X_CI_SEQUENCE_NUMBER in NUMBER,
X_LOCATION_CD in VARCHAR2,
X_UNIT_CLASS in VARCHAR2,
X_UNIT_MODE in VARCHAR2,
X_ADM_UNIT_OUTCOME_STATUS in VARCHAR2,
X_ASS_TRACKING_ID in NUMBER,
X_RULE_WAIVED_DT in DATE,
X_RULE_WAIVED_PERSON_ID in NUMBER,
X_SUP_UNIT_CD in VARCHAR2,
X_SUP_UV_VERSION_NUMBER in NUMBER,
X_MODE in VARCHAR2,
X_ADM_PS_APPL_INST_UNIT_ID in out NOCOPY NUMBER
) as
cursor C is select ROWID, ADM_PS_APPL_INST_UNIT_ID from IGS_AD_PS_APLINSTUNT_ALL
where PERSON_ID = X_PERSON_ID
and ADMISSION_APPL_NUMBER = X_ADMISSION_APPL_NUMBER
and NOMINATED_COURSE_CD = X_NOMINATED_COURSE_CD
and ACAI_SEQUENCE_NUMBER = X_ACAI_SEQUENCE_NUMBER
and UNIT_CD = X_UNIT_CD
and NVL(UV_VERSION_NUMBER,-1) = NVL(X_UV_VERSION_NUMBER,-1)
and NVL(CAL_TYPE,'*') = NVL(X_CAL_TYPE,'*')
and NVL(CI_SEQUENCE_NUMBER,-1) = NVL(X_CI_SEQUENCE_NUMBER,-1)
and NVL(LOCATION_CD,'*') = NVL(X_LOCATION_CD,'*')
and NVL(UNIT_CLASS,'*') = NVL(X_UNIT_CLASS,'*');
X_LAST_UPDATE_DATE DATE;
X_LAST_UPDATED_BY NUMBER;
X_LAST_UPDATE_LOGIN NUMBER;
X_PROGRAM_UPDATE_DATE DATE;
X_LAST_UPDATE_DATE := SYSDATE;
X_LAST_UPDATED_BY := 1;
X_LAST_UPDATE_LOGIN := 0;
X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
if X_LAST_UPDATED_BY is NULL then
X_LAST_UPDATED_BY := -1;
X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
if X_LAST_UPDATE_LOGIN is NULL then
X_LAST_UPDATE_LOGIN := -1;
X_PROGRAM_UPDATE_DATE := NULL;
X_PROGRAM_UPDATE_DATE := SYSDATE;
Before_DML(p_action =>'INSERT',
x_rowid =>X_ROWID,
x_org_id => igs_ge_gen_003.get_org_id,
x_person_id =>X_PERSON_ID,
x_admission_appl_number =>X_ADMISSION_APPL_NUMBER,
x_nominated_course_cd =>X_NOMINATED_COURSE_CD,
x_acai_sequence_number =>X_ACAI_SEQUENCE_NUMBER,
x_unit_cd =>X_UNIT_CD,
x_uv_version_number =>X_UV_VERSION_NUMBER,
x_cal_type =>X_CAL_TYPE ,
x_ci_sequence_number =>X_CI_SEQUENCE_NUMBER,
x_location_cd =>X_LOCATION_CD,
x_unit_class =>X_UNIT_CLASS,
x_unit_mode => X_UNIT_MODE,
x_adm_unit_outcome_status => X_ADM_UNIT_OUTCOME_STATUS,
x_ass_tracking_id => X_ASS_TRACKING_ID,
x_rule_waived_dt => X_RULE_WAIVED_DT,
x_rule_waived_person_id => X_RULE_WAIVED_PERSON_ID,
x_sup_unit_cd => X_SUP_UNIT_CD,
x_sup_uv_version_number => X_SUP_UV_VERSION_NUMBER,
x_creation_date => X_LAST_UPDATE_DATE,
x_created_by => X_LAST_UPDATED_BY,
x_last_update_date => X_LAST_UPDATE_DATE,
x_last_updated_by => X_LAST_UPDATED_BY,
x_last_update_login => X_LAST_UPDATE_LOGIN,
x_adm_ps_appl_inst_unit_id => X_ADM_PS_APPL_INST_UNIT_ID
);
insert into IGS_AD_PS_APLINSTUNT_ALL (
ORG_ID,
PERSON_ID,
ADMISSION_APPL_NUMBER,
NOMINATED_COURSE_CD,
ACAI_SEQUENCE_NUMBER,
UNIT_CD,
UV_VERSION_NUMBER,
CAL_TYPE,
CI_SEQUENCE_NUMBER,
LOCATION_CD,
UNIT_CLASS,
UNIT_MODE,
ADM_UNIT_OUTCOME_STATUS,
ASS_TRACKING_ID,
RULE_WAIVED_DT,
RULE_WAIVED_PERSON_ID,
SUP_UNIT_CD,
SUP_UV_VERSION_NUMBER,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
REQUEST_ID,
PROGRAM_ID,
PROGRAM_APPLICATION_ID,
PROGRAM_UPDATE_DATE ,
ADM_PS_APPL_INST_UNIT_ID
) values (
NEW_REFERENCES.ORG_ID,
NEW_REFERENCES.PERSON_ID,
NEW_REFERENCES.ADMISSION_APPL_NUMBER,
NEW_REFERENCES.NOMINATED_COURSE_CD,
NEW_REFERENCES.ACAI_SEQUENCE_NUMBER,
NEW_REFERENCES.UNIT_CD,
NEW_REFERENCES.UV_VERSION_NUMBER,
NEW_REFERENCES.CAL_TYPE,
NEW_REFERENCES.CI_SEQUENCE_NUMBER,
NEW_REFERENCES.LOCATION_CD,
NEW_REFERENCES.UNIT_CLASS,
NEW_REFERENCES.UNIT_MODE,
NEW_REFERENCES.ADM_UNIT_OUTCOME_STATUS,
NEW_REFERENCES.ASS_TRACKING_ID,
NEW_REFERENCES.RULE_WAIVED_DT,
NEW_REFERENCES.RULE_WAIVED_PERSON_ID,
NEW_REFERENCES.SUP_UNIT_CD,
NEW_REFERENCES.SUP_UV_VERSION_NUMBER,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN,
X_REQUEST_ID,
X_PROGRAM_ID,
X_PROGRAM_APPLICATION_ID,
X_PROGRAM_UPDATE_DATE,
IGS_AD_PS_APLINSTUNT_S.NEXTVAL
);
p_action =>'INSERT',
x_rowid => X_ROWID
);
end INSERT_ROW;
cursor c1 is select
UV_VERSION_NUMBER,
CAL_TYPE,
CI_SEQUENCE_NUMBER,
LOCATION_CD,
UNIT_CLASS,
UNIT_MODE,
ADM_UNIT_OUTCOME_STATUS,
ASS_TRACKING_ID,
RULE_WAIVED_DT,
RULE_WAIVED_PERSON_ID,
SUP_UNIT_CD,
SUP_UV_VERSION_NUMBER
from IGS_AD_PS_APLINSTUNT_ALL
where ROWID = X_ROWID for update nowait;
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
procedure UPDATE_ROW (
X_ROWID in VARCHAR2,
X_PERSON_ID in NUMBER,
X_ADMISSION_APPL_NUMBER in NUMBER,
X_NOMINATED_COURSE_CD in VARCHAR2,
X_ACAI_SEQUENCE_NUMBER in NUMBER,
X_UNIT_CD in VARCHAR2,
X_UV_VERSION_NUMBER in NUMBER,
X_CAL_TYPE in VARCHAR2,
X_CI_SEQUENCE_NUMBER in NUMBER,
X_LOCATION_CD in VARCHAR2,
X_UNIT_CLASS in VARCHAR2,
X_UNIT_MODE in VARCHAR2,
X_ADM_UNIT_OUTCOME_STATUS in VARCHAR2,
X_ASS_TRACKING_ID in NUMBER,
X_RULE_WAIVED_DT in DATE,
X_RULE_WAIVED_PERSON_ID in NUMBER,
X_SUP_UNIT_CD in VARCHAR2,
X_SUP_UV_VERSION_NUMBER in NUMBER,
X_MODE in VARCHAR2,
X_ADM_PS_APPL_INST_UNIT_ID in NUMBER
) AS
X_LAST_UPDATE_DATE DATE;
X_LAST_UPDATED_BY NUMBER;
X_LAST_UPDATE_LOGIN NUMBER;
X_PROGRAM_UPDATE_DATE DATE;
X_LAST_UPDATE_DATE := SYSDATE;
X_LAST_UPDATED_BY := 1;
X_LAST_UPDATE_LOGIN := 0;
X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
if X_LAST_UPDATED_BY is NULL then
X_LAST_UPDATED_BY := -1;
X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
if X_LAST_UPDATE_LOGIN is NULL then
X_LAST_UPDATE_LOGIN := -1;
Before_DML(p_action =>'UPDATE',
x_rowid =>X_ROWID,
x_person_id =>X_PERSON_ID,
x_admission_appl_number =>X_ADMISSION_APPL_NUMBER,
x_nominated_course_cd =>X_NOMINATED_COURSE_CD,
x_acai_sequence_number =>X_ACAI_SEQUENCE_NUMBER,
x_unit_cd =>X_UNIT_CD,
x_uv_version_number =>X_UV_VERSION_NUMBER,
x_cal_type =>X_CAL_TYPE ,
x_ci_sequence_number =>X_CI_SEQUENCE_NUMBER,
x_location_cd =>X_LOCATION_CD,
x_unit_class =>X_UNIT_CLASS,
x_unit_mode => X_UNIT_MODE,
x_adm_unit_outcome_status => X_ADM_UNIT_OUTCOME_STATUS,
x_ass_tracking_id => X_ASS_TRACKING_ID,
x_rule_waived_dt => X_RULE_WAIVED_DT,
x_rule_waived_person_id => X_RULE_WAIVED_PERSON_ID,
x_sup_unit_cd => X_SUP_UNIT_CD,
x_sup_uv_version_number => X_SUP_UV_VERSION_NUMBER,
x_creation_date => X_LAST_UPDATE_DATE,
x_created_by => X_LAST_UPDATED_BY,
x_last_update_date => X_LAST_UPDATE_DATE,
x_last_updated_by => X_LAST_UPDATED_BY,
x_last_update_login => X_LAST_UPDATE_LOGIN,
x_adm_ps_appl_inst_unit_id => X_ADM_PS_APPL_INST_UNIT_ID
);
X_PROGRAM_UPDATE_DATE := SYSDATE;
update IGS_AD_PS_APLINSTUNT_ALL set
UV_VERSION_NUMBER = NEW_REFERENCES.UV_VERSION_NUMBER,
CAL_TYPE = NEW_REFERENCES.CAL_TYPE,
CI_SEQUENCE_NUMBER = NEW_REFERENCES.CI_SEQUENCE_NUMBER,
LOCATION_CD = NEW_REFERENCES.LOCATION_CD,
UNIT_CLASS = NEW_REFERENCES.UNIT_CLASS,
UNIT_MODE = NEW_REFERENCES.UNIT_MODE,
ADM_UNIT_OUTCOME_STATUS = NEW_REFERENCES.ADM_UNIT_OUTCOME_STATUS,
ASS_TRACKING_ID = NEW_REFERENCES.ASS_TRACKING_ID,
RULE_WAIVED_DT = NEW_REFERENCES.RULE_WAIVED_DT,
RULE_WAIVED_PERSON_ID = NEW_REFERENCES.RULE_WAIVED_PERSON_ID,
SUP_UNIT_CD = NEW_REFERENCES.SUP_UNIT_CD,
SUP_UV_VERSION_NUMBER = NEW_REFERENCES.SUP_UV_VERSION_NUMBER,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
REQUEST_ID = X_REQUEST_ID,
PROGRAM_ID = X_PROGRAM_ID,
PROGRAM_APPLICATION_ID = X_PROGRAM_APPLICATION_ID,
PROGRAM_UPDATE_DATE = X_PROGRAM_UPDATE_DATE
where ROWID = X_ROWID
;
p_action =>'UPDATE',
x_rowid => X_ROWID
);
end UPDATE_ROW;
cursor c1 is select rowid from IGS_AD_PS_APLINSTUNT_ALL
where ADM_PS_APPL_INST_UNIT_ID = X_ADM_PS_APPL_INST_UNIT_ID
;
INSERT_ROW (
X_ROWID,
X_ORG_ID,
X_PERSON_ID,
X_ADMISSION_APPL_NUMBER,
X_NOMINATED_COURSE_CD,
X_ACAI_SEQUENCE_NUMBER,
X_UNIT_CD,
X_UV_VERSION_NUMBER,
X_CAL_TYPE,
X_CI_SEQUENCE_NUMBER,
X_LOCATION_CD,
X_UNIT_CLASS,
X_UNIT_MODE,
X_ADM_UNIT_OUTCOME_STATUS,
X_ASS_TRACKING_ID,
X_RULE_WAIVED_DT,
X_RULE_WAIVED_PERSON_ID,
X_SUP_UNIT_CD,
X_SUP_UV_VERSION_NUMBER,
X_MODE,
X_ADM_PS_APPL_INST_UNIT_ID);
UPDATE_ROW (
X_ROWID,
X_PERSON_ID,
X_ADMISSION_APPL_NUMBER,
X_NOMINATED_COURSE_CD,
X_ACAI_SEQUENCE_NUMBER,
X_UNIT_CD,
X_UV_VERSION_NUMBER,
X_CAL_TYPE,
X_CI_SEQUENCE_NUMBER,
X_LOCATION_CD,
X_UNIT_CLASS,
X_UNIT_MODE,
X_ADM_UNIT_OUTCOME_STATUS,
X_ASS_TRACKING_ID,
X_RULE_WAIVED_DT,
X_RULE_WAIVED_PERSON_ID,
X_SUP_UNIT_CD,
X_SUP_UV_VERSION_NUMBER,
X_MODE,
X_ADM_PS_APPL_INST_UNIT_ID);
procedure DELETE_ROW (
X_ROWID in VARCHAR2,
x_mode IN VARCHAR2
) AS
begin
Before_DML(
p_action =>'DELETE',
x_rowid => X_ROWID
);
delete from IGS_AD_PS_APLINSTUNT_ALL
where ROWID = X_ROWID;
p_action =>'DELETE',
x_rowid => X_ROWID
);
end DELETE_ROW;