[Home] [Help]
1: package body IGS_PE_PERS_NOTE_PKG AS
2: /* $Header: IGSNI27B.pls 120.1 2005/06/28 06:09:32 appldev ship $ */
3:
4:
5: l_rowid VARCHAR2(25);
2: /* $Header: IGSNI27B.pls 120.1 2005/06/28 06:09:32 appldev ship $ */
3:
4:
5: l_rowid VARCHAR2(25);
6: old_references IGS_PE_PERS_NOTE%RowType;
7: new_references IGS_PE_PERS_NOTE%RowType;
8:
9: PROCEDURE Set_Column_Values (
10: p_action IN VARCHAR2,
3:
4:
5: l_rowid VARCHAR2(25);
6: old_references IGS_PE_PERS_NOTE%RowType;
7: new_references IGS_PE_PERS_NOTE%RowType;
8:
9: PROCEDURE Set_Column_Values (
10: p_action IN VARCHAR2,
11: x_rowid IN VARCHAR2, -- DEFAULT NULL,
22: ) AS
23:
24: CURSOR cur_old_ref_values IS
25: SELECT *
26: FROM IGS_PE_PERS_NOTE
27: WHERE rowid = x_rowid;
28:
29: BEGIN
30: l_rowid := x_rowid;
138: ) RETURN BOOLEAN AS
139:
140: CURSOR cur_rowid IS
141: SELECT rowid
142: FROM IGS_PE_PERS_NOTE
143: WHERE person_id = x_person_id
144: AND reference_number = x_reference_number
145: FOR UPDATE NOWAIT;
146:
165: ) AS
166:
167: CURSOR cur_rowid IS
168: SELECT rowid
169: FROM IGS_PE_PERS_NOTE
170: WHERE reference_number = x_reference_number ;
171:
172: lv_rowid cur_rowid%RowType;
173:
191: ) AS
192:
193: CURSOR cur_rowid IS
194: SELECT rowid
195: FROM IGS_PE_PERS_NOTE
196: WHERE person_id = x_person_id ;
197:
198: lv_rowid cur_rowid%RowType;
199:
217: ) AS
218:
219: CURSOR cur_rowid IS
220: SELECT rowid
221: FROM IGS_PE_PERS_NOTE
222: WHERE pe_note_type = x_pe_note_type ;
223:
224: lv_rowid cur_rowid%RowType;
225:
335: X_START_DATE IN DATE,
336: X_END_DATE IN DATE,
337: X_MODE in VARCHAR2
338: ) AS
339: cursor C is select ROWID from IGS_PE_PERS_NOTE
340: where PERSON_ID = X_PERSON_ID
341: and REFERENCE_NUMBER = X_REFERENCE_NUMBER;
342: X_LAST_UPDATE_DATE DATE;
343: X_LAST_UPDATED_BY NUMBER;
379:
380: IF (x_mode = 'S') THEN
381: igs_sc_gen_001.set_ctx('R');
382: END IF;
383: insert into IGS_PE_PERS_NOTE (
384: PERSON_ID,
385: REFERENCE_NUMBER,
386: PE_NOTE_TYPE,
387: START_DATE,
447: cursor c1 is select
448: PE_NOTE_TYPE,
449: START_DATE,
450: END_DATE
451: from IGS_PE_PERS_NOTE
452: where ROWID = X_ROWID
453: for update nowait;
454: tlinfo c1%rowtype;
455:
525: );
526: IF (x_mode = 'S') THEN
527: igs_sc_gen_001.set_ctx('R');
528: END IF;
529: update IGS_PE_PERS_NOTE set
530: PE_NOTE_TYPE = NEW_REFERENCES.PE_NOTE_TYPE,
531: START_DATE = NEW_REFERENCES.START_DATE,
532: END_DATE = NEW_REFERENCES.END_DATE,
533: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
574: X_START_DATE IN DATE,
575: X_END_DATE IN DATE,
576: X_MODE in VARCHAR2
577: ) AS
578: cursor c1 is select rowid from IGS_PE_PERS_NOTE
579: where PERSON_ID = X_PERSON_ID
580: and REFERENCE_NUMBER = X_REFERENCE_NUMBER
581: ;
582:
619:
620: IF (x_mode = 'S') THEN
621: igs_sc_gen_001.set_ctx('R');
622: END IF;
623: delete from IGS_PE_PERS_NOTE
624: where ROWID = X_ROWID;
625: if (sql%notfound) then
626: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
627: igs_ge_msg_stack.add;
639: );
640:
641: end DELETE_ROW;
642:
643: end IGS_PE_PERS_NOTE_PKG;