[Home] [Help]
1: PACKAGE BODY igs_pe_pers_encumb_pkg AS
2: /* $Header: IGSNI18B.pls 120.0 2005/06/02 04:27:22 appldev noship $ */
3:
4: ------------------------------------------------------------------
5: -- Change History
12: ------------------------------------------------------------------
13:
14: -- Bug 1956374 msrinivi Repointed genp_val_prsn_id
15: l_rowid VARCHAR2(25);
16: old_references IGS_PE_PERS_ENCUMB%RowType;
17: new_references IGS_PE_PERS_ENCUMB%RowType;
18:
19: PROCEDURE Set_Column_Values (
20: p_action IN VARCHAR2,
13:
14: -- Bug 1956374 msrinivi Repointed genp_val_prsn_id
15: l_rowid VARCHAR2(25);
16: old_references IGS_PE_PERS_ENCUMB%RowType;
17: new_references IGS_PE_PERS_ENCUMB%RowType;
18:
19: PROCEDURE Set_Column_Values (
20: p_action IN VARCHAR2,
21: x_rowid IN VARCHAR2,
39: ) AS
40:
41: CURSOR cur_old_ref_values IS
42: SELECT *
43: FROM igs_pe_pers_encumb
44: WHERE rowid = x_rowid;
45:
46: BEGIN
47:
275:
276: -- Trigger description :-
277: -- "OSS_TST".trg_pen_ar_iu
278: -- AFTER INSERT OR UPDATE
279: -- ON IGS_PE_PERS_ENCUMB
280: -- FOR EACH ROW
281:
282: PROCEDURE AfterRowInsertUpdate2(
283: p_inserting IN BOOLEAN,
316: END IF;
317: END IF;
318: IF v_rowid_saved = TRUE THEN
319: --Validate the records
320: -- Validate for open ended IGS_PE_PERS_ENCUMB records.
321: IF new_references.expiry_dt IS NULL THEN
322: IF IGS_EN_VAL_PEN.enrp_val_pen_open (
323: new_references.person_id,
324: new_references.encumbrance_type,
373:
374: -- Trigger description :-
375: -- "OSS_TST".trg_pen_as_iu
376: -- AFTER INSERT OR UPDATE
377: -- ON IGS_PE_PERS_ENCUMB
378:
379:
380:
381: PROCEDURE Check_Constraints (
553:
554: PROCEDURE Check_Child_Existance AS
555: BEGIN
556:
557: IGS_PE_PERSENC_EFFCT_PKG.GET_FK_IGS_PE_PERS_ENCUMB (
558: old_references.person_id,
559: old_references.encumbrance_type ,
560: old_references.start_dt
561: );
569: ) RETURN BOOLEAN AS
570:
571: CURSOR cur_rowid IS
572: SELECT rowid
573: FROM IGS_PE_PERS_ENCUMB
574: WHERE person_id = x_person_id
575: AND encumbrance_type = x_encumbrance_type
576: AND start_dt = x_start_dt
577: FOR UPDATE NOWAIT;
597: x_ci_sequence_number IN NUMBER
598: ) AS
599: CURSOR cur_rowid IS
600: SELECT rowid
601: FROM IGS_PE_PERS_ENCUMB
602: WHERE (
603: CAL_TYPE = X_CAL_TYPE AND SEQUENCE_NUMBER = X_CI_SEQUENCE_NUMBER
604: );
605:
622: ) AS
623:
624: CURSOR cur_rowid IS
625: SELECT rowid
626: FROM IGS_PE_PERS_ENCUMB
627: WHERE encumbrance_type = x_encumbrance_type ;
628:
629: lv_rowid cur_rowid%RowType;
630:
648: ) AS
649:
650: CURSOR cur_rowid IS
651: SELECT rowid
652: FROM IGS_PE_PERS_ENCUMB
653: WHERE authorising_person_id = x_person_id OR
654: person_id = x_person_id ;
655:
656: lv_rowid cur_rowid%RowType;
818: x_auth_resp_id IN NUMBER,
819: x_external_reference IN VARCHAR2 ,
820: X_MODE IN VARCHAR2
821: ) AS
822: CURSOR C (cp_start_dt igs_pe_pers_encumb.start_dt%TYPE) IS
823: SELECT ROWID FROM igs_pe_pers_encumb
824: WHERE person_id = x_person_id
825: AND encumbrance_type = x_encumbrance_type
826: AND start_dt = cp_start_dt;
819: x_external_reference IN VARCHAR2 ,
820: X_MODE IN VARCHAR2
821: ) AS
822: CURSOR C (cp_start_dt igs_pe_pers_encumb.start_dt%TYPE) IS
823: SELECT ROWID FROM igs_pe_pers_encumb
824: WHERE person_id = x_person_id
825: AND encumbrance_type = x_encumbrance_type
826: AND start_dt = cp_start_dt;
827:
902: x_last_updated_by=>X_LAST_UPDATED_BY,
903: x_last_update_login=>X_LAST_UPDATE_LOGIN
904: );
905: END IF;
906: INSERT INTO igs_pe_pers_encumb (
907: person_id,
908: encumbrance_type,
909: start_dt,
910: expiry_dt,
974: CURSOR c1 IS SELECT
975: expiry_dt,
976: authorising_person_id,
977: comments
978: FROM igs_pe_pers_encumb
979: WHERE ROWID = X_ROWID
980: FOR UPDATE NOWAIT;
981: tlinfo c1%ROWTYPE;
982:
1102: x_last_updated_by=>X_LAST_UPDATED_BY,
1103: x_last_update_login=>X_LAST_UPDATE_LOGIN
1104: );
1105: END IF;
1106: UPDATE IGS_PE_PERS_ENCUMB SET
1107: expiry_dt = new_references.expiry_dt,
1108: authorising_person_id = new_references.authorising_person_id,
1109: comments = new_references.comments,
1110: cal_type = new_references.cal_type ,
1139: x_auth_resp_id IN NUMBER,
1140: x_external_reference IN VARCHAR2 ,
1141: x_mode IN VARCHAR2
1142: ) AS
1143: CURSOR c1(cp_start_dt igs_pe_pers_encumb.start_dt%TYPE) IS
1144: SELECT ROWID FROM igs_pe_pers_encumb
1145: WHERE person_id = x_person_id
1146: AND encumbrance_type = x_encumbrance_type
1147: AND start_dt = cp_start_dt ;
1140: x_external_reference IN VARCHAR2 ,
1141: x_mode IN VARCHAR2
1142: ) AS
1143: CURSOR c1(cp_start_dt igs_pe_pers_encumb.start_dt%TYPE) IS
1144: SELECT ROWID FROM igs_pe_pers_encumb
1145: WHERE person_id = x_person_id
1146: AND encumbrance_type = x_encumbrance_type
1147: AND start_dt = cp_start_dt ;
1148:
1150: SELECT s_encumbrance_cat
1151: FROM igs_fi_encmb_type
1152: WHERE encumbrance_type = cp_encumbrance_type;
1153: system_type_rec system_type_cur%ROWTYPE;
1154: l_start_dt igs_pe_pers_encumb.start_dt%TYPE;
1155: BEGIN
1156:
1157: OPEN system_type_cur(x_encumbrance_type);
1158: FETCH system_type_cur INTO system_type_rec;
1210: Before_DML(
1211: p_action => 'DELETE',
1212: x_rowid => X_ROWID
1213: );
1214: DELETE FROM IGS_PE_PERS_ENCUMB
1215: WHERE ROWID = X_ROWID;
1216: IF (SQL%NOTFOUND) THEN
1217: RAISE no_data_found;
1218: END IF;
1220: p_action => 'DELETE',
1221: x_rowid => X_ROWID
1222: );
1223: END DELETE_ROW;
1224: END IGS_PE_PERS_ENCUMB_PKG;