[Home] [Help]
1: package body IGS_ST_GOVT_STDNT_EN_PKG as
2: /* $Header: IGSVI10B.pls 115.4 2002/11/29 04:33:14 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_ST_GOVT_STDNT_EN%RowType;
1: package body IGS_ST_GOVT_STDNT_EN_PKG as
2: /* $Header: IGSVI10B.pls 115.4 2002/11/29 04:33:14 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_ST_GOVT_STDNT_EN%RowType;
6: new_references IGS_ST_GOVT_STDNT_EN%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSVI10B.pls 115.4 2002/11/29 04:33:14 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_ST_GOVT_STDNT_EN%RowType;
6: new_references IGS_ST_GOVT_STDNT_EN%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
61: ) AS
62:
63: CURSOR cur_old_ref_values IS
64: SELECT *
65: FROM IGS_ST_GOVT_STDNT_EN
66: WHERE rowid = x_rowid;
67:
68: BEGIN
69:
147: p_deleting IN BOOLEAN DEFAULT FALSE
148: ) AS
149: v_message_name VARCHAR2(30);
150: v_transaction_type VARCHAR2(11);
151: v_submission_yr IGS_ST_GOVT_STDNT_EN.submission_yr%TYPE;
152: v_submission_number IGS_ST_GOVT_STDNT_EN.submission_number%TYPE;
153: BEGIN
154: IF p_inserting THEN
155: v_transaction_type := 'p_inserting';
148: ) AS
149: v_message_name VARCHAR2(30);
150: v_transaction_type VARCHAR2(11);
151: v_submission_yr IGS_ST_GOVT_STDNT_EN.submission_yr%TYPE;
152: v_submission_number IGS_ST_GOVT_STDNT_EN.submission_number%TYPE;
153: BEGIN
154: IF p_inserting THEN
155: v_transaction_type := 'p_inserting';
156: v_submission_yr := new_references.submission_yr;
206: )return BOOLEAN AS
207:
208: CURSOR cur_rowid IS
209: SELECT rowid
210: FROM IGS_ST_GOVT_STDNT_EN
211: WHERE submission_yr = x_submission_yr
212: AND submission_number = x_submission_number
213: AND person_id = x_person_id
214: AND course_cd = x_course_cd
236: ) AS
237:
238: CURSOR cur_rowid IS
239: SELECT rowid
240: FROM IGS_ST_GOVT_STDNT_EN
241: WHERE submission_yr = x_submission_yr
242: AND submission_number = x_submission_number ;
243:
244: lv_rowid cur_rowid%RowType;
465: X_GOVT_BASIS_FOR_ADM_TYPE in VARCHAR2,
466: X_GOVT_DISABILITY in VARCHAR2,
467: X_MODE in VARCHAR2 default 'R'
468: ) AS
469: cursor C is select ROWID from IGS_ST_GOVT_STDNT_EN
470: where SUBMISSION_YR = X_SUBMISSION_YR
471: and SUBMISSION_NUMBER = X_SUBMISSION_NUMBER
472: and PERSON_ID = X_PERSON_ID
473: and COURSE_CD = X_COURSE_CD;
563: x_last_updated_by => X_LAST_UPDATED_BY,
564: x_last_update_login => X_LAST_UPDATE_LOGIN
565: );
566:
567: insert into IGS_ST_GOVT_STDNT_EN (
568: SUBMISSION_YR,
569: SUBMISSION_NUMBER,
570: PERSON_ID,
571: COURSE_CD,
779: TERTIARY_ENTRANCE_SCORE,
780: BASIS_FOR_ADMISSION_TYPE,
781: GOVT_BASIS_FOR_ADMISSION_TYPE,
782: GOVT_DISABILITY
783: from IGS_ST_GOVT_STDNT_EN
784: where ROWID = X_ROWID
785: for update nowait;
786: tlinfo c1%rowtype;
787:
995: X_PROGRAM_UPDATE_DATE := SYSDATE;
996: end if;
997: end if;
998:
999: update IGS_ST_GOVT_STDNT_EN set
1000: VERSION_NUMBER = NEW_REFERENCES.VERSION_NUMBER,
1001: BIRTH_DT = NEW_REFERENCES.BIRTH_DT,
1002: SEX = NEW_REFERENCES.SEX,
1003: ABORIG_TORRES_CD = NEW_REFERENCES.ABORIG_TORRES_CD,
1105: X_GOVT_BASIS_FOR_ADM_TYPE in VARCHAR2,
1106: X_GOVT_DISABILITY in VARCHAR2,
1107: X_MODE in VARCHAR2 default 'R'
1108: ) AS
1109: cursor c1 is select rowid from IGS_ST_GOVT_STDNT_EN
1110: where SUBMISSION_YR = X_SUBMISSION_YR
1111: and SUBMISSION_NUMBER = X_SUBMISSION_NUMBER
1112: and PERSON_ID = X_PERSON_ID
1113: and COURSE_CD = X_COURSE_CD
1225: Before_DML (
1226: p_action => 'DELETE',
1227: x_rowid => X_ROWID
1228: );
1229: delete from IGS_ST_GOVT_STDNT_EN
1230: where ROWID = X_ROWID;
1231: if (sql%notfound) then
1232: raise no_data_found;
1233: end if;
1236: x_rowid => X_ROWID
1237: );
1238: end DELETE_ROW;
1239:
1240: end IGS_ST_GOVT_STDNT_EN_PKG;