[Home] [Help]
1: package body IGS_PS_FEE_TRG_PKG AS
2: /* $Header: IGSPI11B.pls 120.1 2005/09/08 15:56:49 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PS_FEE_TRG%RowType;
1: package body IGS_PS_FEE_TRG_PKG AS
2: /* $Header: IGSPI11B.pls 120.1 2005/09/08 15:56:49 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PS_FEE_TRG%RowType;
6: new_references IGS_PS_FEE_TRG%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSPI11B.pls 120.1 2005/09/08 15:56:49 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PS_FEE_TRG%RowType;
6: new_references IGS_PS_FEE_TRG%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
30: ) AS
31:
32: CURSOR cur_old_ref_values IS
33: SELECT *
34: FROM IGS_PS_FEE_TRG
35: WHERE rowid = x_rowid;
36:
37: BEGIN
38:
81:
82: -- Trigger description :-
83: -- "OSS_TST".trg_cft_br_iud
84: -- BEFORE INSERT OR DELETE OR UPDATE
85: -- ON IGS_PS_FEE_TRG
86: -- FOR EACH ROW
87:
88: PROCEDURE BeforeRowInsertUpdateDelete1(
89: p_inserting IN BOOLEAN DEFAULT FALSE,
168:
169: -- Trigger description :-
170: -- "OSS_TST".trg_cft_ar_iu
171: -- AFTER INSERT OR UPDATE
172: -- ON IGS_PS_FEE_TRG
173: -- FOR EACH ROW
174:
175: PROCEDURE AfterRowInsertUpdate2(
176: p_inserting IN BOOLEAN DEFAULT FALSE,
199:
200: IF v_rowid_saved = TRUE Then
201:
202: IF (p_inserting OR p_updating) THEN
203: -- Validate for open ended IGS_PS_FEE_TRG records.
204: IF new_references.logical_delete_dt IS NULL THEN
205: IF IGS_FI_VAL_CFT.finp_val_cft_open(new_references.fee_cat,
206: new_references.fee_cal_type,
207: new_references.fee_ci_sequence_number,
220: IGS_GE_MSG_STACK.ADD;
221: App_Exception.Raise_Exception;
222: END IF;
223: END IF;
224: -- Validate IGS_PS_FEE_TRG fee trigger group.
225: IF new_references.fee_trigger_group_number IS NOT NULL THEN
226: IF IGS_FI_VAL_CFT.finp_val_cft_ftg(new_references.fee_cat,
227: new_references.fee_cal_type,
228: new_references.fee_ci_sequence_number,
243:
244: -- Trigger description :-
245: -- "OSS_TST".trg_cft_ar_u_hist
246: -- AFTER UPDATE
247: -- ON IGS_PS_FEE_TRG
248: -- FOR EACH ROW
249:
250: PROCEDURE AfterRowUpdate3(
251: p_inserting IN BOOLEAN DEFAULT FALSE,
557: RETURN BOOLEAN AS
558:
559: CURSOR cur_rowid IS
560: SELECT rowid
561: FROM IGS_PS_FEE_TRG
562: WHERE fee_cat = x_fee_cat
563: AND fee_cal_type = x_fee_cal_type
564: AND fee_ci_sequence_number = x_fee_ci_sequence_number
565: AND fee_type = x_fee_type
598: RETURN BOOLEAN AS
599:
600: CURSOR cur_rowid IS
601: SELECT rowid
602: FROM IGS_PS_FEE_TRG
603: WHERE fee_cat = x_fee_cat
604: AND fee_cal_type = x_fee_cal_type
605: AND fee_ci_sequence_number = x_fee_ci_sequence_number
606: AND fee_type = x_fee_type
636: ) AS
637:
638: CURSOR cur_rowid IS
639: SELECT rowid
640: FROM IGS_PS_FEE_TRG
641: WHERE attendance_mode = x_attendance_mode ;
642:
643: lv_rowid cur_rowid%RowType;
644:
662: ) AS
663:
664: CURSOR cur_rowid IS
665: SELECT rowid
666: FROM IGS_PS_FEE_TRG
667: WHERE attendance_type = x_attendance_type ;
668:
669: lv_rowid cur_rowid%RowType;
670:
688: ) AS
689:
690: CURSOR cur_rowid IS
691: SELECT rowid
692: FROM IGS_PS_FEE_TRG
693: WHERE cal_type = x_cal_type ;
694:
695: lv_rowid cur_rowid%RowType;
696:
714: ) AS
715:
716: CURSOR cur_rowid IS
717: SELECT rowid
718: FROM IGS_PS_FEE_TRG
719: WHERE course_cd = x_course_cd ;
720:
721: lv_rowid cur_rowid%RowType;
722:
744: ) AS
745:
746: CURSOR cur_rowid IS
747: SELECT rowid
748: FROM IGS_PS_FEE_TRG
749: WHERE fee_cat = x_fee_cat
750: AND fee_cal_type = x_fee_cal_type
751: AND fee_ci_sequence_number = x_fee_ci_sequence_number
752: AND fee_type = x_fee_type
775: ) AS
776:
777: CURSOR cur_rowid IS
778: SELECT rowid
779: FROM IGS_PS_FEE_TRG
780: WHERE location_cd = x_location_cd ;
781:
782: lv_rowid cur_rowid%RowType;
783:
928: X_FEE_TRIGGER_GROUP_NUMBER in NUMBER,
929: X_LOGICAL_DELETE_DT in DATE,
930: X_MODE in VARCHAR2 default 'R'
931: ) AS
932: cursor C is select ROWID from IGS_PS_FEE_TRG
933: where FEE_CAT = X_FEE_CAT
934: and FEE_TYPE = X_FEE_TYPE
935: and COURSE_CD = X_COURSE_CD
936: and SEQUENCE_NUMBER = X_SEQUENCE_NUMBER
999: x_last_updated_by => X_LAST_UPDATED_BY ,
1000: x_last_update_login => X_LAST_UPDATE_LOGIN
1001: );
1002:
1003: insert into IGS_PS_FEE_TRG (
1004: FEE_CAT,
1005: FEE_CAL_TYPE,
1006: FEE_CI_SEQUENCE_NUMBER,
1007: FEE_TYPE,
1090: ATTENDANCE_TYPE,
1091: CREATE_DT,
1092: FEE_TRIGGER_GROUP_NUMBER,
1093: LOGICAL_DELETE_DT
1094: from IGS_PS_FEE_TRG
1095: where ROWID = X_ROWID
1096: for update nowait;
1097: tlinfo c1%rowtype;
1098:
1223: X_PROGRAM_UPDATE_DATE := SYSDATE;
1224: end if;
1225: end if;
1226:
1227: update IGS_PS_FEE_TRG set
1228: VERSION_NUMBER = NEW_REFERENCES.VERSION_NUMBER,
1229: CAL_TYPE = NEW_REFERENCES.CAL_TYPE,
1230: LOCATION_CD = NEW_REFERENCES.LOCATION_CD,
1231: ATTENDANCE_MODE = NEW_REFERENCES.ATTENDANCE_MODE,
1268: X_FEE_TRIGGER_GROUP_NUMBER in NUMBER,
1269: X_LOGICAL_DELETE_DT in DATE,
1270: X_MODE in VARCHAR2 default 'R'
1271: ) AS
1272: cursor c1 is select rowid from IGS_PS_FEE_TRG
1273: where FEE_CAT = X_FEE_CAT
1274: and FEE_TYPE = X_FEE_TYPE
1275: and COURSE_CD = X_COURSE_CD
1276: and SEQUENCE_NUMBER = X_SEQUENCE_NUMBER
1328: Before_DML (
1329: p_action => 'DELETE',
1330: x_rowid => X_ROWID
1331: );
1332: delete from IGS_PS_FEE_TRG
1333: where ROWID = X_ROWID;
1334: if (sql%notfound) then
1335: raise no_data_found;
1336: end if;
1339: x_rowid => X_ROWID
1340: );
1341: end DELETE_ROW;
1342:
1343: end IGS_PS_FEE_TRG_PKG;