1: PACKAGE BODY igf_ap_person_match_pkg AS
2: /* $Header: IGFAI42B.pls 115.4 2002/11/28 14:01:36 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_ap_person_match_all%ROWTYPE;
6: new_references igf_ap_person_match_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2 ,
2: /* $Header: IGFAI42B.pls 115.4 2002/11/28 14:01:36 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_ap_person_match_all%ROWTYPE;
6: new_references igf_ap_person_match_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2 ,
10: x_rowid IN VARCHAR2 ,
33: */
34:
35: CURSOR cur_old_ref_values IS
36: SELECT *
37: FROM IGF_AP_PERSON_MATCH_ALL
38: WHERE rowid = x_rowid;
39:
40: BEGIN
41:
119: || (reverse chronological order - newest change first)
120: */
121: BEGIN
122:
123: igf_ap_match_details_pkg.get_fk_igf_ap_person_match_all (
124: old_references.apm_id
125: );
126:
127: END check_child_existance;
140: || (reverse chronological order - newest change first)
141: */
142: CURSOR cur_rowid IS
143: SELECT rowid
144: FROM igf_ap_person_match_all
145: WHERE apm_id = x_apm_id
146: FOR UPDATE NOWAIT;
147:
148: lv_rowid cur_rowid%RowType;
176: || (reverse chronological order - newest change first)
177: */
178: CURSOR cur_rowid IS
179: SELECT rowid
180: FROM igf_ap_person_match_all
181: WHERE ((ci_cal_type = x_cal_type) AND
182: (ci_sequence_number = x_sequence_number));
183:
184: lv_rowid cur_rowid%RowType;
302: || (reverse chronological order - newest change first)
303: */
304: CURSOR c IS
305: SELECT rowid
306: FROM igf_ap_person_match_all
307: WHERE apm_id = x_apm_id;
308:
309: x_last_update_date DATE;
310: x_last_updated_by NUMBER;
330: igs_ge_msg_stack.add;
331: app_exception.raise_exception;
332: END IF;
333:
334: SELECT igf_ap_person_match_all_s.NEXTVAL
335: INTO x_apm_id
336: FROM dual;
337:
338: new_references.org_id := igs_ge_gen_003.get_org_id;
354: x_last_updated_by => x_last_updated_by,
355: x_last_update_login => x_last_update_login
356: );
357:
358: INSERT INTO igf_ap_person_match_all (
359: apm_id,
360: css_id,
361: si_id,
362: org_id,
426: date_run,
427: ci_cal_type,
428: ci_sequence_number,
429: record_status
430: FROM igf_ap_person_match_all
431: WHERE rowid = x_rowid
432: FOR UPDATE NOWAIT;
433:
434: tlinfo c1%ROWTYPE;
530: x_last_updated_by => x_last_updated_by,
531: x_last_update_login => x_last_update_login
532: );
533:
534: UPDATE igf_ap_person_match_all
535: SET
536: css_id = new_references.css_id,
537: si_id = new_references.si_id,
538: record_type = new_references.record_type,
574: || (reverse chronological order - newest change first)
575: */
576: CURSOR c1 IS
577: SELECT rowid
578: FROM igf_ap_person_match_all
579: WHERE apm_id = x_apm_id;
580:
581: BEGIN
582:
635: p_action => 'DELETE',
636: x_rowid => x_rowid
637: );
638:
639: DELETE FROM igf_ap_person_match_all
640: WHERE rowid = x_rowid;
641:
642: IF (SQL%NOTFOUND) THEN
643: RAISE NO_DATA_FOUND;