1: package body IGS_AD_OS_SEC_ED_SUB_PKG as
2: /* $Header: IGSAI40B.pls 115.3 2002/11/28 22:04:52 nsidana ship $ */
3:
4:
5: l_rowid VARCHAR2(25);
2: /* $Header: IGSAI40B.pls 115.3 2002/11/28 22:04:52 nsidana ship $ */
3:
4:
5: l_rowid VARCHAR2(25);
6: old_references IGS_AD_OS_SEC_ED_SUB%RowType;
7: new_references IGS_AD_OS_SEC_ED_SUB%RowType;
8:
9: PROCEDURE Set_Column_Values (
10: p_action IN VARCHAR2,
3:
4:
5: l_rowid VARCHAR2(25);
6: old_references IGS_AD_OS_SEC_ED_SUB%RowType;
7: new_references IGS_AD_OS_SEC_ED_SUB%RowType;
8:
9: PROCEDURE Set_Column_Values (
10: p_action IN VARCHAR2,
11: x_rowid IN VARCHAR2 DEFAULT NULL,
25: ) AS
26:
27: CURSOR cur_old_ref_values IS
28: SELECT *
29: FROM IGS_AD_OS_SEC_ED_SUB
30: WHERE rowid = x_rowid;
31:
32: BEGIN
33:
205: )return BOOLEAN AS
206:
207: CURSOR cur_rowid is
208: SELECT rowid
209: FROM IGS_AD_OS_SEC_ED_SUB
210: WHERE person_id = x_person_id
211: AND ose_sequence_number = x_ose_sequence_number
212: AND sequence_number = x_sequence_number
213: FOR UPDATE NOWAIT;
234: ) AS
235:
236: CURSOR cur_rowid IS
237: SELECT rowid
238: FROM IGS_AD_OS_SEC_ED_SUB
239: WHERE person_id = x_person_id
240: AND ose_sequence_number = x_sequence_number ;
241:
242: lv_rowid cur_rowid%RowType;
350: X_RESULT in VARCHAR2,
351: X_SUBJECT_RESULT_YR in NUMBER,
352: X_MODE in VARCHAR2 default 'R'
353: ) AS
354: cursor C is select ROWID from IGS_AD_OS_SEC_ED_SUB
355: where PERSON_ID = X_PERSON_ID
356: and OSE_SEQUENCE_NUMBER = X_OSE_SEQUENCE_NUMBER
357: and SEQUENCE_NUMBER = X_SEQUENCE_NUMBER;
358: X_LAST_UPDATE_DATE DATE;
396: x_last_update_login=> X_LAST_UPDATE_LOGIN
397: );
398:
399:
400: insert into IGS_AD_OS_SEC_ED_SUB (
401: PERSON_ID,
402: OSE_SEQUENCE_NUMBER,
403: SEQUENCE_NUMBER,
404: SUBJECT_CD,
459: SUBJECT_DESC,
460: RESULT_TYPE,
461: RESULT,
462: SUBJECT_RESULT_YR
463: from IGS_AD_OS_SEC_ED_SUB
464: WHERE ROWID = X_ROWID for update nowait ;
465: tlinfo c1%rowtype;
466:
467: begin
553: );
554:
555:
556:
557: update IGS_AD_OS_SEC_ED_SUB set
558: SUBJECT_CD = NEW_REFERENCES.SUBJECT_CD,
559: SUBJECT_DESC = NEW_REFERENCES.SUBJECT_DESC,
560: RESULT_TYPE = NEW_REFERENCES.RESULT_TYPE,
561: RESULT = NEW_REFERENCES.RESULT,
586: X_RESULT in VARCHAR2,
587: X_SUBJECT_RESULT_YR in NUMBER,
588: X_MODE in VARCHAR2 default 'R'
589: ) AS
590: cursor c1 is select rowid from IGS_AD_OS_SEC_ED_SUB
591: where PERSON_ID = X_PERSON_ID
592: and OSE_SEQUENCE_NUMBER = X_OSE_SEQUENCE_NUMBER
593: and SEQUENCE_NUMBER = X_SEQUENCE_NUMBER
594: ;
635: p_action=>'DELETE',
636: x_rowid=> X_ROWID
637: );
638:
639: delete from IGS_AD_OS_SEC_ED_SUB
640: where ROWID = X_ROWID;
641: if (sql%notfound) then
642: raise no_data_found;
643: end if;
649: );
650:
651: end DELETE_ROW;
652:
653: end IGS_AD_OS_SEC_ED_SUB_PKG;