[Home] [Help]
1: package body IGS_PE_CRS_GRP_EXCL_PKG AS
2: /* $Header: IGSNI14B.pls 115.5 2003/02/20 10:29:33 shtatiko ship $ */
3:
4:
5:
3:
4:
5:
6: l_rowid VARCHAR2(25);
7: old_references IGS_PE_CRS_GRP_EXCL%RowType;
8: new_references IGS_PE_CRS_GRP_EXCL%RowType;
9:
10: PROCEDURE Set_Column_Values (
11: p_action IN VARCHAR2,
4:
5:
6: l_rowid VARCHAR2(25);
7: old_references IGS_PE_CRS_GRP_EXCL%RowType;
8: new_references IGS_PE_CRS_GRP_EXCL%RowType;
9:
10: PROCEDURE Set_Column_Values (
11: p_action IN VARCHAR2,
12: x_rowid IN VARCHAR2 DEFAULT NULL,
27: ) AS
28:
29: CURSOR cur_old_ref_values IS
30: SELECT *
31: FROM IGS_PE_CRS_GRP_EXCL
32: WHERE rowid = x_rowid;
33:
34: BEGIN
35:
133: -- effect type.
134: IF p_inserting THEN
135: IF IGS_EN_VAL_PCE.enrp_val_pee_table (
136: new_references.s_encmb_effect_type,
137: 'IGS_PE_CRS_GRP_EXCL',
138: v_message_name) = FALSE THEN
139: Fnd_Message.Set_Name('IGS', v_message_name);
140: IGS_GE_MSG_STACK.ADD;
141: App_Exception.Raise_Exception;
147:
148: -- Trigger description :-
149: -- "OSS_TST".trg_pcge_ar_iu
150: -- AFTER INSERT OR DELETE OR UPDATE
151: -- ON IGS_PE_CRS_GRP_EXCL
152: -- FOR EACH ROW
153:
154: PROCEDURE AfterRowInsertUpdateDelete2(
155: p_inserting IN BOOLEAN DEFAULT FALSE,
186:
187: -- Trigger description :-
188: -- "OSS_TST".trg_pcge_as_iu
189: -- AFTER INSERT OR UPDATE
190: -- ON IGS_PE_CRS_GRP_EXCL
191:
192:
193: PROCEDURE Check_Constraints (
194: Column_Name IN VARCHAR2 DEFAULT NULL,
297: ) RETURN BOOLEAN AS
298:
299: CURSOR cur_rowid IS
300: SELECT rowid
301: FROM IGS_PE_CRS_GRP_EXCL
302: WHERE person_id = x_person_id
303: AND encumbrance_type = x_encumbrance_type
304: AND pen_start_dt = x_pen_start_dt
305: AND s_encmb_effect_type = x_s_encmb_effect_type
334: ) AS
335:
336: CURSOR cur_rowid IS
337: SELECT rowid
338: FROM IGS_PE_CRS_GRP_EXCL
339: WHERE person_id = x_person_id
340: AND encumbrance_type = x_encumbrance_type
341: AND pen_start_dt = x_pen_start_dt
342: AND s_encmb_effect_type = x_s_encmb_effect_type
489: X_PCGE_START_DT in DATE,
490: X_EXPIRY_DT in DATE,
491: X_MODE in VARCHAR2 default 'R'
492: ) AS
493: cursor C is select ROWID from IGS_PE_CRS_GRP_EXCL
494: where PERSON_ID = X_PERSON_ID
495: and ENCUMBRANCE_TYPE = X_ENCUMBRANCE_TYPE
496: and PEN_START_DT = X_PEN_START_DT
497: and S_ENCMB_EFFECT_TYPE = X_S_ENCMB_EFFECT_TYPE
540: x_last_updated_by=>X_LAST_UPDATED_BY,
541: x_last_update_login=>X_LAST_UPDATE_LOGIN
542: );
543:
544: insert into IGS_PE_CRS_GRP_EXCL (
545: PERSON_ID,
546: ENCUMBRANCE_TYPE,
547: PEN_START_DT,
548: S_ENCMB_EFFECT_TYPE,
599: X_EXPIRY_DT in DATE
600: ) AS
601: cursor c1 is select
602: EXPIRY_DT
603: from IGS_PE_CRS_GRP_EXCL
604: where ROWID = X_ROWID
605: for update nowait;
606: tlinfo c1%rowtype;
607:
681: x_last_update_date=>X_LAST_UPDATE_DATE,
682: x_last_updated_by=>X_LAST_UPDATED_BY,
683: x_last_update_login=>X_LAST_UPDATE_LOGIN
684: );
685: update IGS_PE_CRS_GRP_EXCL set
686: EXPIRY_DT = NEW_REFERENCES.EXPIRY_DT,
687: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
688: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
689: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
710: X_PCGE_START_DT in DATE,
711: X_EXPIRY_DT in DATE,
712: X_MODE in VARCHAR2 default 'R'
713: ) AS
714: cursor c1 is select rowid from IGS_PE_CRS_GRP_EXCL
715: where PERSON_ID = X_PERSON_ID
716: and ENCUMBRANCE_TYPE = X_ENCUMBRANCE_TYPE
717: and PEN_START_DT = X_PEN_START_DT
718: and S_ENCMB_EFFECT_TYPE = X_S_ENCMB_EFFECT_TYPE
763: Before_DML(
764: p_action => 'DELETE',
765: x_rowid => X_ROWID
766: );
767: delete from IGS_PE_CRS_GRP_EXCL
768: where ROWID = X_ROWID;
769: if (sql%notfound) then
770: raise no_data_found;
771: end if;
774: x_rowid => X_ROWID
775: );
776: end DELETE_ROW;
777:
778: end IGS_PE_CRS_GRP_EXCL_PKG;