[Home] [Help]
1: package body IGS_AD_PECRS_OFOP_DT_PKG AS
2: /* $Header: IGSAI35B.pls 115.7 2003/10/30 13:19:57 rghosh ship $*/
3: l_rowid VARCHAR2(25);
4: old_references IGS_AD_PECRS_OFOP_DT%RowType;
5: new_references IGS_AD_PECRS_OFOP_DT%RowType;
1: package body IGS_AD_PECRS_OFOP_DT_PKG AS
2: /* $Header: IGSAI35B.pls 115.7 2003/10/30 13:19:57 rghosh ship $*/
3: l_rowid VARCHAR2(25);
4: old_references IGS_AD_PECRS_OFOP_DT%RowType;
5: new_references IGS_AD_PECRS_OFOP_DT%RowType;
6: PROCEDURE Set_Column_Values (
7: p_action IN VARCHAR2,
8: x_rowid IN VARCHAR2 ,
1: package body IGS_AD_PECRS_OFOP_DT_PKG AS
2: /* $Header: IGSAI35B.pls 115.7 2003/10/30 13:19:57 rghosh ship $*/
3: l_rowid VARCHAR2(25);
4: old_references IGS_AD_PECRS_OFOP_DT%RowType;
5: new_references IGS_AD_PECRS_OFOP_DT%RowType;
6: PROCEDURE Set_Column_Values (
7: p_action IN VARCHAR2,
8: x_rowid IN VARCHAR2 ,
9: x_adm_cal_type IN VARCHAR2 ,
28: ) AS
29:
30: CURSOR cur_old_ref_values IS
31: SELECT *
32: FROM IGS_AD_PECRS_OFOP_DT
33: WHERE rowid = x_rowid;
34:
35: BEGIN
36:
537: AS
538:
539: CURSOR cur_rowid IS
540: SELECT rowid
541: FROM IGS_AD_PECRS_OFOP_DT
542: WHERE adm_cal_type = x_adm_cal_type
543: AND adm_ci_sequence_number = x_adm_ci_sequence_number
544: AND admission_cat = x_admission_cat
545: AND dt_alias = x_dt_alias
567: ) AS
568:
569: CURSOR cur_rowid IS
570: SELECT rowid
571: FROM IGS_AD_PECRS_OFOP_DT
572: WHERE attendance_mode = x_attendance_mode ;
573:
574: lv_rowid cur_rowid%RowType;
575:
595: ) AS
596:
597: CURSOR cur_rowid IS
598: SELECT rowid
599: FROM IGS_AD_PECRS_OFOP_DT
600: WHERE adm_cal_type = x_adm_cal_type
601: AND adm_ci_sequence_number = x_adm_ci_sequence_number
602: AND admission_cat = x_admission_cat ;
603:
626: ) AS
627:
628: CURSOR cur_rowid IS
629: SELECT rowid
630: FROM IGS_AD_PECRS_OFOP_DT
631: WHERE adm_cal_type = x_adm_cal_type
632: AND adm_ci_sequence_number = x_adm_ci_sequence_number
633: AND admission_cat = x_admission_cat
634: AND s_admission_process_type = x_s_admission_process_type ;
655: ) AS
656:
657: CURSOR cur_rowid IS
658: SELECT rowid
659: FROM IGS_AD_PECRS_OFOP_DT
660: WHERE attendance_type = x_attendance_type ;
661:
662: lv_rowid cur_rowid%RowType;
663:
683: ) AS
684:
685: CURSOR cur_rowid IS
686: SELECT rowid
687: FROM IGS_AD_PECRS_OFOP_DT
688: WHERE course_cd = x_course_cd
689: AND version_number = x_version_number
690: AND acad_cal_type = x_cal_type ;
691:
714: ) AS
715:
716: CURSOR cur_rowid IS
717: SELECT rowid
718: FROM IGS_AD_PECRS_OFOP_DT
719: WHERE dt_alias = x_dt_alias
720: AND dai_sequence_number = x_sequence_number
721: AND adm_cal_type = x_cal_type
722: AND adm_ci_sequence_number = x_ci_sequence_number ;
743: ) AS
744:
745: CURSOR cur_rowid IS
746: SELECT rowid
747: FROM IGS_AD_PECRS_OFOP_DT
748: WHERE location_cd = x_location_cd ;
749:
750: lv_rowid cur_rowid%RowType;
751:
769: ) AS
770:
771: CURSOR cur_rowid IS
772: SELECT rowid
773: FROM IGS_AD_PECRS_OFOP_DT
774: WHERE s_admission_process_type = x_s_admission_process_type ;
775:
776: lv_rowid cur_rowid%RowType;
777:
916: X_ATTENDANCE_TYPE in VARCHAR2,
917: X_ROLLOVER_INCLUSION_IND in VARCHAR2,
918: X_MODE in VARCHAR2
919: ) AS
920: cursor C is select ROWID from IGS_AD_PECRS_OFOP_DT
921: where ADM_CAL_TYPE = X_ADM_CAL_TYPE
922: and ADM_CI_SEQUENCE_NUMBER = X_ADM_CI_SEQUENCE_NUMBER
923: and ADMISSION_CAT = X_ADMISSION_CAT
924: and DT_ALIAS = X_DT_ALIAS
968: x_last_updated_by => X_LAST_UPDATED_BY,
969: x_last_update_login => X_LAST_UPDATE_LOGIN
970: );
971:
972: insert into IGS_AD_PECRS_OFOP_DT (
973: ADM_CAL_TYPE,
974: ADM_CI_SEQUENCE_NUMBER,
975: ADMISSION_CAT,
976: DT_ALIAS,
1050: LOCATION_CD,
1051: ATTENDANCE_MODE,
1052: ATTENDANCE_TYPE,
1053: ROLLOVER_INCLUSION_IND
1054: from IGS_AD_PECRS_OFOP_DT
1055: where ROWID = X_ROWID for update nowait;
1056: tlinfo c1%rowtype;
1057:
1058: begin
1162: x_last_updated_by => X_LAST_UPDATED_BY,
1163: x_last_update_login => X_LAST_UPDATE_LOGIN
1164: );
1165:
1166: update IGS_AD_PECRS_OFOP_DT set
1167: S_ADMISSION_PROCESS_TYPE = NEW_REFERENCES.S_ADMISSION_PROCESS_TYPE,
1168: COURSE_CD = NEW_REFERENCES.COURSE_CD,
1169: VERSION_NUMBER = NEW_REFERENCES.VERSION_NUMBER,
1170: DAI_SEQUENCE_NUMBER = NEW_REFERENCES.DAI_SEQUENCE_NUMBER,
1204: X_ATTENDANCE_TYPE in VARCHAR2,
1205: X_ROLLOVER_INCLUSION_IND in VARCHAR2,
1206: X_MODE in VARCHAR2
1207: ) AS
1208: cursor c1 is select rowid from IGS_AD_PECRS_OFOP_DT
1209: where ADM_CAL_TYPE = X_ADM_CAL_TYPE
1210: and ADM_CI_SEQUENCE_NUMBER = X_ADM_CI_SEQUENCE_NUMBER
1211: and ADMISSION_CAT = X_ADMISSION_CAT
1212: and DT_ALIAS = X_DT_ALIAS
1264: Before_DML(
1265: p_action =>'DELETE',
1266: x_rowid => X_ROWID
1267: );
1268: delete from IGS_AD_PECRS_OFOP_DT
1269: where ROWID = X_ROWID;
1270: if (sql%notfound) then
1271: raise no_data_found;
1272: end if;
1275: x_rowid => X_ROWID
1276: );
1277: end DELETE_ROW;
1278:
1279: end IGS_AD_PECRS_OFOP_DT_PKG;