The following lines contain the word 'select', 'insert', 'update' or 'delete':
x_diff_hecs_ind_update_who IN VARCHAR2 DEFAULT NULL,
x_diff_hecs_ind_update_on IN DATE DEFAULT NULL,
x_outside_aus_res_ind IN VARCHAR2 DEFAULT NULL,
x_nz_citizen_ind IN VARCHAR2 DEFAULT NULL,
x_nz_citizen_less2yr_ind IN VARCHAR2 DEFAULT NULL,
x_nz_citizen_not_res_ind IN VARCHAR2 DEFAULT NULL,
x_safety_net_ind IN VARCHAR2 DEFAULT NULL,
x_tax_file_number IN NUMBER DEFAULT NULL,
x_tax_file_number_collected_dt IN DATE DEFAULT NULL,
x_tax_file_invalid_dt IN DATE DEFAULT NULL,
x_tax_file_certificate_number IN NUMBER DEFAULT NULL,
x_diff_hecs_ind_update_comment IN VARCHAR2 DEFAULT NULL,
x_creation_date IN DATE DEFAULT NULL,
x_created_by IN NUMBER DEFAULT NULL,
x_last_update_date IN DATE DEFAULT NULL,
x_last_updated_by IN NUMBER DEFAULT NULL,
x_last_update_login IN NUMBER DEFAULT NULL
) AS
CURSOR cur_old_ref_values IS
SELECT *
FROM IGS_EN_STDNTPSHECSOP
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');
new_references.diff_hecs_ind_update_who := x_diff_hecs_ind_update_who;
new_references.diff_hecs_ind_update_on := x_diff_hecs_ind_update_on;
new_references.diff_hecs_ind_update_comments := x_diff_hecs_ind_update_comment;
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);
IF p_inserting THEN
-- Validate if the insert is allowed.
IF IGS_EN_VAL_SCHO.enrp_val_scho_insert (
new_references.person_id,
new_references.course_cd,
v_message_name) = FALSE THEN
fnd_message.set_name('IGS',v_message_name);
-- Validate if the delete is allowed.
IF IGS_EN_VAL_SCHO.enrp_val_scho_trgdel (
old_references.person_id,
old_references.course_cd,
old_references.start_dt,
v_message_name) = FALSE THEN
fnd_message.set_name('IGS',v_message_name);
-- Validate if the update is allowed.
IF (NVL(old_references.differential_hecs_ind, 'NULL') <>
NVL(new_references.differential_hecs_ind, 'NULL') ) OR
(NVL(old_references.outside_aus_res_ind, 'NULL') <>
NVL(new_references.outside_aus_res_ind, 'NULL') ) OR
(NVL(old_references.nz_citizen_ind, 'NULL') <>
NVL(new_references.nz_citizen_ind, 'NULL') ) OR
(NVL(old_references.nz_citizen_less2yr_ind, 'NULL') <>
NVL(new_references.nz_citizen_less2yr_ind, 'NULL') ) OR
(NVL(old_references.nz_citizen_not_res_ind, 'NULL') <>
NVL(new_references.nz_citizen_not_res_ind, 'NULL') ) THEN
IF IGS_EN_VAL_SCHO.enrp_val_scho_update (
old_references.start_dt,
v_message_name) = FALSE THEN
fnd_message.set_name('IGS',v_message_name);
IF p_inserting OR p_updating THEN
-- Set audit details.
--new_references.last_updated_by := USER;
--new_references.last_update_date := SYSDATE;
-- updateable, so only need to check the end date is not null.
IF new_references.end_dt IS NOT NULL AND
(p_inserting OR
NVL(old_references.end_dt, IGS_GE_DATE.IGSDATE('1900/01/01')) <>
new_references.end_dt) THEN
IF igs_ad_val_edtl.genp_val_strt_end_dt (
new_references.start_dt,
new_references.end_dt,
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_message_name varchar2(30);
IF p_inserting OR (NVL(old_references.end_dt, IGS_GE_DATE.IGSDATE('1900/01/01')) <>
NVL(new_references.end_dt,IGS_GE_DATE.IGSDATE('1900/01/01'))) THEN
IF v_rowid_saved = FALSE THEN
v_rowid_saved := TRUE;
-- and the form handles the update of tax file number in 2 update
-- statements.
END IF;
-- For all the 4 cases above where the rowid has been inserted the processing is done below
-- Dt: 8-Nov-99
IF v_rowid_saved = TRUE THEN
-- If trigger has not been disabled, perform required processing
IF igs_as_val_suaap.genp_val_sdtt_sess('IGS_EN_STDNTPSHECSOP') THEN
-- Validate for open ended IGS_EN_STDNTPSHECSOP records.
IF New_References.end_dt IS NULL THEN
IF IGS_EN_VAL_SCHO.enrp_val_scho_open (
New_References.person_id,
New_References.course_cd,
New_References.start_dt,
v_message_name) = FALSE THEN
fnd_message.set_name('IGS',v_message_name);
END AfterRowInsertUpdate2;
elsif upper(column_name) = 'DIFF_HECS_IND_UPDATE_WHO' then
new_references.diff_hecs_ind_update_who := column_value;
if upper(column_name) = 'DIFF_HECS_IND_UPDATE_WHO' OR
column_name is null then
if new_references.diff_hecs_ind_update_who <>
upper(new_references.diff_hecs_ind_update_who) then
Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
SELECT rowid
FROM IGS_EN_STDNTPSHECSOP
WHERE person_id = x_person_id
AND course_cd = x_course_cd
AND start_dt = x_start_dt
FOR UPDATE NOWAIT;
SELECT rowid
FROM IGS_EN_STDNTPSHECSOP
WHERE hecs_payment_option = x_hecs_payment_option ;
SELECT rowid
FROM IGS_EN_STDNTPSHECSOP
WHERE person_id = x_person_id
AND course_cd = x_course_cd ;
x_diff_hecs_ind_update_who IN VARCHAR2 DEFAULT NULL,
x_diff_hecs_ind_update_on IN DATE DEFAULT NULL,
x_outside_aus_res_ind IN VARCHAR2 DEFAULT NULL,
x_nz_citizen_ind IN VARCHAR2 DEFAULT NULL,
x_nz_citizen_less2yr_ind IN VARCHAR2 DEFAULT NULL,
x_nz_citizen_not_res_ind IN VARCHAR2 DEFAULT NULL,
x_safety_net_ind IN VARCHAR2 DEFAULT NULL,
x_tax_file_number IN NUMBER DEFAULT NULL,
x_tax_file_number_collected_dt IN DATE DEFAULT NULL,
x_tax_file_invalid_dt IN DATE DEFAULT NULL,
x_tax_file_certificate_number IN NUMBER DEFAULT NULL,
x_diff_hecs_ind_update_comment IN VARCHAR2 DEFAULT NULL,
x_creation_date IN DATE DEFAULT NULL,
x_created_by IN NUMBER DEFAULT NULL,
x_last_update_date IN DATE DEFAULT NULL,
x_last_updated_by IN NUMBER DEFAULT NULL,
x_last_update_login IN NUMBER DEFAULT NULL
) AS
BEGIN
Set_Column_Values (
p_action,
x_rowid,
x_person_id,
x_course_cd,
x_start_dt,
x_end_dt,
x_hecs_payment_option,
x_differential_hecs_ind,
x_diff_hecs_ind_update_who,
x_diff_hecs_ind_update_on,
x_outside_aus_res_ind,
x_nz_citizen_ind,
x_nz_citizen_less2yr_ind,
x_nz_citizen_not_res_ind,
x_safety_net_ind,
x_tax_file_number,
x_tax_file_number_collected_dt,
x_tax_file_invalid_dt,
x_tax_file_certificate_number,
x_diff_hecs_ind_update_comment,
x_creation_date,
x_created_by,
x_last_update_date,
x_last_updated_by,
x_last_update_login
);
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.
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.person_id,
new_references.course_cd,
new_references.start_dt
) then
Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
ELSIF (p_action = 'VALIDATE_UPDATE') THEN
Check_constraints;
ELSIF (p_action = 'VALIDATE_DELETE') THEN
null;
IF (p_action = 'INSERT') THEN
-- Call all the procedures related to After Insert.
AfterRowInsertUpdate2 ( p_inserting => TRUE );
ELSIF (p_action = 'UPDATE') THEN
-- Call all the procedures related to After Update.
AfterRowInsertUpdate2 ( p_updating => TRUE );
ELSIF (p_action = 'DELETE') THEN
-- Call all the procedures related to After Delete.
Null;
procedure INSERT_ROW (
X_ROWID in out NOCOPY VARCHAR2,
X_PERSON_ID in NUMBER,
X_COURSE_CD in VARCHAR2,
X_START_DT in out NOCOPY DATE,
X_END_DT in DATE,
X_HECS_PAYMENT_OPTION in VARCHAR2,
X_DIFFERENTIAL_HECS_IND in VARCHAR2,
X_DIFF_HECS_IND_UPDATE_WHO in VARCHAR2,
X_DIFF_HECS_IND_UPDATE_ON in DATE,
X_OUTSIDE_AUS_RES_IND in VARCHAR2,
X_NZ_CITIZEN_IND in VARCHAR2,
X_NZ_CITIZEN_LESS2YR_IND in VARCHAR2,
X_NZ_CITIZEN_NOT_RES_IND in VARCHAR2,
X_SAFETY_NET_IND in VARCHAR2,
X_TAX_FILE_NUMBER in NUMBER,
X_TAX_FILE_NUMBER_COLLECTED_DT in DATE,
X_TAX_FILE_INVALID_DT in DATE,
X_TAX_FILE_CERTIFICATE_NUMBER in NUMBER,
X_DIFF_HECS_IND_UPDATE_COMMENT in VARCHAR2,
X_MODE in VARCHAR2 default 'R'
) AS
cursor C is select ROWID from IGS_EN_STDNTPSHECSOP
where PERSON_ID = X_PERSON_ID
and COURSE_CD = X_COURSE_CD
and START_DT = NEW_REFERENCES.START_DT;
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;
p_action => 'INSERT',
x_rowid => X_ROWID,
x_person_id => X_PERSON_ID,
x_course_cd => X_COURSE_CD,
x_start_dt => X_START_DT,
x_end_dt => X_END_DT,
x_hecs_payment_option => X_HECS_PAYMENT_OPTION,
x_differential_hecs_ind => X_DIFFERENTIAL_HECS_IND,
x_diff_hecs_ind_update_who => X_DIFF_HECS_IND_UPDATE_WHO,
x_diff_hecs_ind_update_on => X_DIFF_HECS_IND_UPDATE_ON,
x_outside_aus_res_ind => X_OUTSIDE_AUS_RES_IND,
x_nz_citizen_ind => X_NZ_CITIZEN_IND,
x_nz_citizen_less2yr_ind => X_NZ_CITIZEN_LESS2YR_IND,
x_nz_citizen_not_res_ind => X_NZ_CITIZEN_NOT_RES_IND,
x_safety_net_ind => X_SAFETY_NET_IND,
x_tax_file_number => X_TAX_FILE_NUMBER,
x_tax_file_number_collected_dt => X_TAX_FILE_NUMBER_COLLECTED_DT,
x_tax_file_invalid_dt => X_TAX_FILE_INVALID_DT,
x_tax_file_certificate_number => X_TAX_FILE_CERTIFICATE_NUMBER,
x_diff_hecs_ind_update_comment => X_DIFF_HECS_IND_UPDATE_COMMENT,
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
);
insert into IGS_EN_STDNTPSHECSOP (
PERSON_ID,
COURSE_CD,
START_DT,
END_DT,
HECS_PAYMENT_OPTION,
DIFFERENTIAL_HECS_IND,
DIFF_HECS_IND_UPDATE_WHO,
DIFF_HECS_IND_UPDATE_ON,
OUTSIDE_AUS_RES_IND,
NZ_CITIZEN_IND,
NZ_CITIZEN_LESS2YR_IND,
NZ_CITIZEN_NOT_RES_IND,
SAFETY_NET_IND,
TAX_FILE_NUMBER,
TAX_FILE_NUMBER_COLLECTED_DT,
TAX_FILE_INVALID_DT,
TAX_FILE_CERTIFICATE_NUMBER,
DIFF_HECS_IND_UPDATE_COMMENTS,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
REQUEST_ID,
PROGRAM_ID,
PROGRAM_APPLICATION_ID,
PROGRAM_UPDATE_DATE
) values (
NEW_REFERENCES.PERSON_ID,
NEW_REFERENCES.COURSE_CD,
NEW_REFERENCES.START_DT,
NEW_REFERENCES.END_DT,
NEW_REFERENCES.HECS_PAYMENT_OPTION,
NEW_REFERENCES.DIFFERENTIAL_HECS_IND,
NEW_REFERENCES.DIFF_HECS_IND_UPDATE_WHO,
NEW_REFERENCES.DIFF_HECS_IND_UPDATE_ON,
NEW_REFERENCES.OUTSIDE_AUS_RES_IND,
NEW_REFERENCES.NZ_CITIZEN_IND,
NEW_REFERENCES.NZ_CITIZEN_LESS2YR_IND,
NEW_REFERENCES.NZ_CITIZEN_NOT_RES_IND,
NEW_REFERENCES.SAFETY_NET_IND,
NEW_REFERENCES.TAX_FILE_NUMBER,
NEW_REFERENCES.TAX_FILE_NUMBER_COLLECTED_DT,
NEW_REFERENCES.TAX_FILE_INVALID_DT,
NEW_REFERENCES.TAX_FILE_CERTIFICATE_NUMBER,
NEW_REFERENCES.DIFF_HECS_IND_UPDATE_COMMENTS,
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
);
p_action => 'INSERT',
x_rowid => X_ROWID
);
end INSERT_ROW;
X_DIFF_HECS_IND_UPDATE_WHO in VARCHAR2,
X_DIFF_HECS_IND_UPDATE_ON in DATE,
X_OUTSIDE_AUS_RES_IND in VARCHAR2,
X_NZ_CITIZEN_IND in VARCHAR2,
X_NZ_CITIZEN_LESS2YR_IND in VARCHAR2,
X_NZ_CITIZEN_NOT_RES_IND in VARCHAR2,
X_SAFETY_NET_IND in VARCHAR2,
X_TAX_FILE_NUMBER in NUMBER,
X_TAX_FILE_NUMBER_COLLECTED_DT in DATE,
X_TAX_FILE_INVALID_DT in DATE,
X_TAX_FILE_CERTIFICATE_NUMBER in NUMBER,
X_DIFF_HECS_IND_UPDATE_COMMENT in VARCHAR2
) AS
cursor c1 is select
END_DT,
HECS_PAYMENT_OPTION,
DIFFERENTIAL_HECS_IND,
DIFF_HECS_IND_UPDATE_WHO,
DIFF_HECS_IND_UPDATE_ON,
OUTSIDE_AUS_RES_IND,
NZ_CITIZEN_IND,
NZ_CITIZEN_LESS2YR_IND,
NZ_CITIZEN_NOT_RES_IND,
SAFETY_NET_IND,
TAX_FILE_NUMBER,
TAX_FILE_NUMBER_COLLECTED_DT,
TAX_FILE_INVALID_DT,
TAX_FILE_CERTIFICATE_NUMBER,
DIFF_HECS_IND_UPDATE_COMMENTS
from IGS_EN_STDNTPSHECSOP
where ROWID = X_ROWID
for update nowait;
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
AND ((tlinfo.DIFF_HECS_IND_UPDATE_WHO = X_DIFF_HECS_IND_UPDATE_WHO)
OR ((tlinfo.DIFF_HECS_IND_UPDATE_WHO is null)
AND (X_DIFF_HECS_IND_UPDATE_WHO is null)))
AND ((tlinfo.DIFF_HECS_IND_UPDATE_ON = X_DIFF_HECS_IND_UPDATE_ON)
OR ((tlinfo.DIFF_HECS_IND_UPDATE_ON is null)
AND (X_DIFF_HECS_IND_UPDATE_ON is null)))
AND (tlinfo.OUTSIDE_AUS_RES_IND = X_OUTSIDE_AUS_RES_IND)
AND (tlinfo.NZ_CITIZEN_IND = X_NZ_CITIZEN_IND)
AND (tlinfo.NZ_CITIZEN_LESS2YR_IND = X_NZ_CITIZEN_LESS2YR_IND)
AND (tlinfo.NZ_CITIZEN_NOT_RES_IND = X_NZ_CITIZEN_NOT_RES_IND)
AND (tlinfo.SAFETY_NET_IND = X_SAFETY_NET_IND)
AND ((tlinfo.TAX_FILE_NUMBER = X_TAX_FILE_NUMBER)
OR ((tlinfo.TAX_FILE_NUMBER is null)
AND (X_TAX_FILE_NUMBER is null)))
AND ((tlinfo.TAX_FILE_NUMBER_COLLECTED_DT = X_TAX_FILE_NUMBER_COLLECTED_DT)
OR ((tlinfo.TAX_FILE_NUMBER_COLLECTED_DT is null)
AND (X_TAX_FILE_NUMBER_COLLECTED_DT is null)))
AND ((tlinfo.TAX_FILE_INVALID_DT = X_TAX_FILE_INVALID_DT)
OR ((tlinfo.TAX_FILE_INVALID_DT is null)
AND (X_TAX_FILE_INVALID_DT is null)))
AND ((tlinfo.TAX_FILE_CERTIFICATE_NUMBER = X_TAX_FILE_CERTIFICATE_NUMBER)
OR ((tlinfo.TAX_FILE_CERTIFICATE_NUMBER is null)
AND (X_TAX_FILE_CERTIFICATE_NUMBER is null)))
AND ((tlinfo.DIFF_HECS_IND_UPDATE_COMMENTS = X_DIFF_HECS_IND_UPDATE_COMMENT)
OR ((tlinfo.DIFF_HECS_IND_UPDATE_COMMENTS is null)
AND (X_DIFF_HECS_IND_UPDATE_COMMENT is null)))
) then
null;
procedure UPDATE_ROW (
X_ROWID in VARCHAR2,
X_PERSON_ID in NUMBER,
X_COURSE_CD in VARCHAR2,
X_START_DT in DATE,
X_END_DT in DATE,
X_HECS_PAYMENT_OPTION in VARCHAR2,
X_DIFFERENTIAL_HECS_IND in VARCHAR2,
X_DIFF_HECS_IND_UPDATE_WHO in VARCHAR2,
X_DIFF_HECS_IND_UPDATE_ON in DATE,
X_OUTSIDE_AUS_RES_IND in VARCHAR2,
X_NZ_CITIZEN_IND in VARCHAR2,
X_NZ_CITIZEN_LESS2YR_IND in VARCHAR2,
X_NZ_CITIZEN_NOT_RES_IND in VARCHAR2,
X_SAFETY_NET_IND in VARCHAR2,
X_TAX_FILE_NUMBER in NUMBER,
X_TAX_FILE_NUMBER_COLLECTED_DT in DATE,
X_TAX_FILE_INVALID_DT in DATE,
X_TAX_FILE_CERTIFICATE_NUMBER in NUMBER,
X_DIFF_HECS_IND_UPDATE_COMMENT in VARCHAR2,
X_MODE in VARCHAR2 default 'R'
) 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;
p_action => 'UPDATE',
x_rowid => X_ROWID,
x_person_id => X_PERSON_ID,
x_course_cd => X_COURSE_CD,
x_start_dt => X_START_DT,
x_end_dt => X_END_DT,
x_hecs_payment_option => X_HECS_PAYMENT_OPTION,
x_differential_hecs_ind => X_DIFFERENTIAL_HECS_IND,
x_diff_hecs_ind_update_who => X_DIFF_HECS_IND_UPDATE_WHO,
x_diff_hecs_ind_update_on => X_DIFF_HECS_IND_UPDATE_ON,
x_outside_aus_res_ind => X_OUTSIDE_AUS_RES_IND,
x_nz_citizen_ind => X_NZ_CITIZEN_IND,
x_nz_citizen_less2yr_ind => X_NZ_CITIZEN_LESS2YR_IND,
x_nz_citizen_not_res_ind => X_NZ_CITIZEN_NOT_RES_IND,
x_safety_net_ind => X_SAFETY_NET_IND,
x_tax_file_number => X_TAX_FILE_NUMBER,
x_tax_file_number_collected_dt => X_TAX_FILE_NUMBER_COLLECTED_DT,
x_tax_file_invalid_dt => X_TAX_FILE_INVALID_DT,
x_tax_file_certificate_number => X_TAX_FILE_CERTIFICATE_NUMBER,
x_diff_hecs_ind_update_comment => X_DIFF_HECS_IND_UPDATE_COMMENT,
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_PROGRAM_UPDATE_DATE := OLD_REFERENCES.PROGRAM_UPDATE_DATE;
X_PROGRAM_UPDATE_DATE := SYSDATE;
update IGS_EN_STDNTPSHECSOP set
END_DT = X_END_DT,
HECS_PAYMENT_OPTION = NEW_REFERENCES.HECS_PAYMENT_OPTION,
DIFFERENTIAL_HECS_IND = NEW_REFERENCES.DIFFERENTIAL_HECS_IND,
DIFF_HECS_IND_UPDATE_WHO = NEW_REFERENCES.DIFF_HECS_IND_UPDATE_WHO,
DIFF_HECS_IND_UPDATE_ON = NEW_REFERENCES.DIFF_HECS_IND_UPDATE_ON,
OUTSIDE_AUS_RES_IND = NEW_REFERENCES.OUTSIDE_AUS_RES_IND,
NZ_CITIZEN_IND = NEW_REFERENCES.NZ_CITIZEN_IND,
NZ_CITIZEN_LESS2YR_IND = NEW_REFERENCES.NZ_CITIZEN_LESS2YR_IND,
NZ_CITIZEN_NOT_RES_IND = NEW_REFERENCES.NZ_CITIZEN_NOT_RES_IND,
SAFETY_NET_IND = NEW_REFERENCES.SAFETY_NET_IND,
TAX_FILE_NUMBER = NEW_REFERENCES.TAX_FILE_NUMBER,
TAX_FILE_NUMBER_COLLECTED_DT = NEW_REFERENCES.TAX_FILE_NUMBER_COLLECTED_DT,
TAX_FILE_INVALID_DT = NEW_REFERENCES.TAX_FILE_INVALID_DT,
TAX_FILE_CERTIFICATE_NUMBER = NEW_REFERENCES.TAX_FILE_CERTIFICATE_NUMBER,
DIFF_HECS_IND_UPDATE_COMMENTS = NEW_REFERENCES.DIFF_HECS_IND_UPDATE_COMMENTS,
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;
X_DIFF_HECS_IND_UPDATE_WHO in VARCHAR2,
X_DIFF_HECS_IND_UPDATE_ON in DATE,
X_OUTSIDE_AUS_RES_IND in VARCHAR2,
X_NZ_CITIZEN_IND in VARCHAR2,
X_NZ_CITIZEN_LESS2YR_IND in VARCHAR2,
X_NZ_CITIZEN_NOT_RES_IND in VARCHAR2,
X_SAFETY_NET_IND in VARCHAR2,
X_TAX_FILE_NUMBER in NUMBER,
X_TAX_FILE_NUMBER_COLLECTED_DT in DATE,
X_TAX_FILE_INVALID_DT in DATE,
X_TAX_FILE_CERTIFICATE_NUMBER in NUMBER,
X_DIFF_HECS_IND_UPDATE_COMMENT in VARCHAR2,
X_MODE in VARCHAR2 default 'R'
) AS
cursor c1 is select rowid from IGS_EN_STDNTPSHECSOP
where PERSON_ID = X_PERSON_ID
and COURSE_CD = X_COURSE_CD
and START_DT = nvl(X_START_DT,SYSDATE)
;
INSERT_ROW (
X_ROWID,
X_PERSON_ID,
X_COURSE_CD,
X_START_DT,
X_END_DT,
X_HECS_PAYMENT_OPTION,
X_DIFFERENTIAL_HECS_IND,
X_DIFF_HECS_IND_UPDATE_WHO,
X_DIFF_HECS_IND_UPDATE_ON,
X_OUTSIDE_AUS_RES_IND,
X_NZ_CITIZEN_IND,
X_NZ_CITIZEN_LESS2YR_IND,
X_NZ_CITIZEN_NOT_RES_IND,
X_SAFETY_NET_IND,
X_TAX_FILE_NUMBER,
X_TAX_FILE_NUMBER_COLLECTED_DT,
X_TAX_FILE_INVALID_DT,
X_TAX_FILE_CERTIFICATE_NUMBER,
X_DIFF_HECS_IND_UPDATE_COMMENT,
X_MODE);
UPDATE_ROW (
X_ROWID,
X_PERSON_ID,
X_COURSE_CD,
X_START_DT,
X_END_DT,
X_HECS_PAYMENT_OPTION,
X_DIFFERENTIAL_HECS_IND,
X_DIFF_HECS_IND_UPDATE_WHO,
X_DIFF_HECS_IND_UPDATE_ON,
X_OUTSIDE_AUS_RES_IND,
X_NZ_CITIZEN_IND,
X_NZ_CITIZEN_LESS2YR_IND,
X_NZ_CITIZEN_NOT_RES_IND,
X_SAFETY_NET_IND,
X_TAX_FILE_NUMBER,
X_TAX_FILE_NUMBER_COLLECTED_DT,
X_TAX_FILE_INVALID_DT,
X_TAX_FILE_CERTIFICATE_NUMBER,
X_DIFF_HECS_IND_UPDATE_COMMENT,
X_MODE);
procedure DELETE_ROW (
X_ROWID in VARCHAR2
) AS
begin
Before_DML(
p_action => 'DELETE',
x_rowid => X_ROWID
);
delete from IGS_EN_STDNTPSHECSOP
where ROWID = X_ROWID;
p_action => 'DELETE',
x_rowid => X_ROWID
);
end DELETE_ROW;