1: PACKAGE BODY igs_he_st_prog_all_pkg AS
2: /* $Header: IGSWI26B.pls 120.1 2006/02/06 19:54:15 jbaber noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_st_prog_all%ROWTYPE;
1: PACKAGE BODY igs_he_st_prog_all_pkg AS
2: /* $Header: IGSWI26B.pls 120.1 2006/02/06 19:54:15 jbaber noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_st_prog_all%ROWTYPE;
6: new_references igs_he_st_prog_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSWI26B.pls 120.1 2006/02/06 19:54:15 jbaber noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_st_prog_all%ROWTYPE;
6: new_references igs_he_st_prog_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 ,
63: */
64:
65: CURSOR cur_old_ref_values IS
66: SELECT *
67: FROM IGS_HE_ST_PROG_ALL
68: WHERE rowid = x_rowid;
69:
70: BEGIN
71:
204: || (reverse chronological order - newest change first)
205: */
206: CURSOR cur_rowid IS
207: SELECT rowid
208: FROM igs_he_st_prog_all
209: WHERE hesa_st_prog_id = x_hesa_st_prog_id
210: FOR UPDATE NOWAIT;
211:
212: lv_rowid cur_rowid%RowType;
240: || (reverse chronological order - newest change first)
241: */
242: CURSOR cur_rowid IS
243: SELECT rowid
244: FROM igs_he_st_prog_all
245: WHERE course_cd = x_course_cd
246: AND version_number = x_version_number
247: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
248:
277: || (reverse chronological order - newest change first)
278: */
279: CURSOR cur_rowid IS
280: SELECT rowid
281: FROM igs_he_st_prog_all
282: WHERE ((course_cd = x_course_cd) AND
283: (version_number = x_version_number));
284:
285: lv_rowid cur_rowid%RowType;
527: || (reverse chronological order - newest change first)
528: */
529: CURSOR c IS
530: SELECT rowid
531: FROM igs_he_st_prog_all
532: WHERE hesa_st_prog_id = x_hesa_st_prog_id;
533:
534: x_last_update_date DATE;
535: x_last_updated_by NUMBER;
557: igs_ge_msg_stack.add;
558: app_exception.raise_exception;
559: END IF;
560:
561: SELECT igs_he_st_prog_all_s.NEXTVAL
562: INTO x_hesa_st_prog_id
563: FROM dual;
564:
565: before_dml(
607: x_franch_out_arr_cd => x_franch_out_arr_cd ,
608: x_exclude_flag => x_exclude_flag
609: );
610:
611: INSERT INTO igs_he_st_prog_all (
612: hesa_st_prog_id,
613: org_id,
614: course_cd,
615: version_number,
793: disadv_uplift_elig_cd,
794: franch_partner_cd ,
795: franch_out_arr_cd ,
796: exclude_flag
797: FROM igs_he_st_prog_all
798: WHERE rowid = x_rowid
799: FOR UPDATE NOWAIT;
800:
801: tlinfo c1%ROWTYPE;
987: x_franch_out_arr_cd => x_franch_out_arr_cd ,
988: x_exclude_flag => x_exclude_flag
989: );
990:
991: UPDATE igs_he_st_prog_all
992: SET
993: course_cd = new_references.course_cd,
994: version_number = new_references.version_number,
995: teacher_train_prog_id = new_references.teacher_train_prog_id,
1089: || (reverse chronological order - newest change first)
1090: */
1091: CURSOR c1 IS
1092: SELECT rowid
1093: FROM igs_he_st_prog_all
1094: WHERE hesa_st_prog_id = x_hesa_st_prog_id;
1095:
1096: l_mode VARCHAR2(1);
1097:
1210: p_action => 'DELETE',
1211: x_rowid => x_rowid
1212: );
1213:
1214: DELETE FROM igs_he_st_prog_all
1215: WHERE rowid = x_rowid;
1216:
1217: IF (SQL%NOTFOUND) THEN
1218: RAISE NO_DATA_FOUND;
1220:
1221: END delete_row;
1222:
1223:
1224: END igs_he_st_prog_all_pkg;