1: package body IGS_ST_GVT_STDNTLOAD_PKG as
2: /* $Header: IGSVI09B.pls 115.4 2003/05/20 06:09:04 svanukur ship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_ST_GVT_STDNTLOAD%RowType;
5: new_references IGS_ST_GVT_STDNTLOAD%RowType;
1: package body IGS_ST_GVT_STDNTLOAD_PKG as
2: /* $Header: IGSVI09B.pls 115.4 2003/05/20 06:09:04 svanukur ship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_ST_GVT_STDNTLOAD%RowType;
5: new_references IGS_ST_GVT_STDNTLOAD%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
1: package body IGS_ST_GVT_STDNTLOAD_PKG as
2: /* $Header: IGSVI09B.pls 115.4 2003/05/20 06:09:04 svanukur ship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_ST_GVT_STDNTLOAD%RowType;
5: new_references IGS_ST_GVT_STDNTLOAD%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
9: x_rowid IN VARCHAR2 DEFAULT NULL,
34: ) as
35:
36: CURSOR cur_old_ref_values IS
37: SELECT *
38: FROM IGS_ST_GVT_STDNTLOAD
39: WHERE rowid = x_rowid;
40:
41: BEGIN
42:
94: p_deleting IN BOOLEAN DEFAULT FALSE
95: ) as
96: v_message_name VARCHAR2(30);
97: v_transaction_type VARCHAR2(15);
98: v_submission_yr IGS_ST_GVT_STDNTLOAD.submission_yr%TYPE;
99: v_submission_number IGS_ST_GVT_STDNTLOAD.submission_number%TYPE;
100: BEGIN
101: IF p_inserting THEN
102: v_transaction_type := 'p_inserting';
95: ) as
96: v_message_name VARCHAR2(30);
97: v_transaction_type VARCHAR2(15);
98: v_submission_yr IGS_ST_GVT_STDNTLOAD.submission_yr%TYPE;
99: v_submission_number IGS_ST_GVT_STDNTLOAD.submission_number%TYPE;
100: BEGIN
101: IF p_inserting THEN
102: v_transaction_type := 'p_inserting';
103: v_submission_yr := new_references.submission_yr;
164: ) RETURN BOOLEAN as
165:
166: CURSOR cur_rowid IS
167: SELECT rowid
168: FROM IGS_ST_GVT_STDNTLOAD
169: WHERE submission_yr = x_submission_yr
170: AND submission_number = x_submission_number
171: AND person_id = x_person_id
172: AND course_cd = x_course_cd
203: ) as
204:
205: CURSOR cur_rowid IS
206: SELECT rowid
207: FROM IGS_ST_GVT_STDNTLOAD
208: WHERE submission_yr = x_submission_yr
209: AND submission_number = x_submission_number
210: AND govt_semester = x_govt_semester ;
211:
430: X_MODE in VARCHAR2 default 'R',
431: X_UNIT_CLASS IN VARCHAR2 ,
432: X_SUA_LOCATION_CD IN VARCHAR2
433: ) as
434: cursor C is select ROWID from IGS_ST_GVT_STDNTLOAD
435: where SUBMISSION_YR = X_SUBMISSION_YR
436: and SUBMISSION_NUMBER = X_SUBMISSION_NUMBER
437: and PERSON_ID = X_PERSON_ID
438: and COURSE_CD = X_COURSE_CD
511: x_sua_location_cd =>X_SUA_LOCATION_CD
512: );
513:
514:
515: insert into IGS_ST_GVT_STDNTLOAD (
516: TR_ORG_UNIT_CD,
517: TR_OU_START_DT,
518: DISCIPLINE_GROUP_CD,
519: GOVT_DISCIPLINE_GROUP_CD,
614: EFTSU,
615: UNIT_COMPLETION_STATUS,
616: CRV_VERSION_NUMBER,
617: UV_VERSION_NUMBER
618: from IGS_ST_GVT_STDNTLOAD
619: where ROWID = X_ROWID
620: for update nowait;
621: tlinfo c1%rowtype;
622:
738: else
739: X_PROGRAM_UPDATE_DATE := SYSDATE;
740: end if;
741: end if;
742: update IGS_ST_GVT_STDNTLOAD set
743: INDUSTRIAL_IND = NEW_REFERENCES.INDUSTRIAL_IND,
744: EFTSU = NEW_REFERENCES.EFTSU,
745: UNIT_COMPLETION_STATUS = NEW_REFERENCES.UNIT_COMPLETION_STATUS,
746: CRV_VERSION_NUMBER = NEW_REFERENCES.CRV_VERSION_NUMBER,
789: X_MODE in VARCHAR2 default 'R',
790: X_UNIT_CLASS in VARCHAR2,
791: X_SUA_LOCATION_CD in varchar2
792: ) as
793: cursor c1 is select rowid from IGS_ST_GVT_STDNTLOAD
794: where SUBMISSION_YR = X_SUBMISSION_YR
795: and SUBMISSION_NUMBER = X_SUBMISSION_NUMBER
796: and PERSON_ID = X_PERSON_ID
797: and COURSE_CD = X_COURSE_CD
867: p_action =>'DELETE',
868: x_rowid => X_ROWID
869: );
870:
871: delete from IGS_ST_GVT_STDNTLOAD
872: where ROWID = X_ROWID;
873: if (sql%notfound) then
874: raise no_data_found;
875: end if;
879: x_rowid => X_ROWID
880: );
881: end DELETE_ROW;
882:
883: end IGS_ST_GVT_STDNTLOAD_PKG;