1: PACKAGE BODY igs_pe_felony_dtls_pkg AS
2: /* $Header: IGSNI91B.pls 120.5 2005/10/17 02:22:21 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pe_felony_dtls%ROWTYPE;
1: PACKAGE BODY igs_pe_felony_dtls_pkg AS
2: /* $Header: IGSNI91B.pls 120.5 2005/10/17 02:22:21 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pe_felony_dtls%ROWTYPE;
6: new_references igs_pe_felony_dtls%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSNI91B.pls 120.5 2005/10/17 02:22:21 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pe_felony_dtls%ROWTYPE;
6: new_references igs_pe_felony_dtls%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 ,
31: */
32:
33: CURSOR cur_old_ref_values IS
34: SELECT *
35: FROM igs_pe_felony_dtls
36: WHERE rowid = x_rowid;
37:
38: BEGIN
39:
245: || (reverse chronological order - newest change first)
246: */
247: CURSOR cur_rowid IS
248: SELECT rowid
249: FROM igs_pe_felony_dtls
250: WHERE felony_details_id = x_felony_details_id
251: FOR UPDATE NOWAIT;
252:
253: lv_rowid cur_rowid%RowType;
282: || (reverse chronological order - newest change first)
283: */
284: CURSOR cur_rowid IS
285: SELECT rowid
286: FROM igs_pe_felony_dtls
287: WHERE person_id = x_person_id
288: AND crime_nature = x_crime_nature
289: AND crime_date = x_crime_date
290: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
319: || (reverse chronological order - newest change first)
320: */
321: CURSOR cur_rowid IS
322: SELECT rowid
323: FROM igs_pe_felony_dtls
324: WHERE ((person_id = x_party_id));
325:
326: lv_rowid cur_rowid%RowType;
327:
449: || (reverse chronological order - newest change first)
450: */
451: CURSOR c IS
452: SELECT rowid
453: FROM igs_pe_felony_dtls
454: WHERE felony_details_id = x_felony_details_id;
455:
456: x_last_update_date DATE;
457: x_last_updated_by NUMBER;
477: igs_ge_msg_stack.add;
478: app_exception.raise_exception;
479: END IF;
480:
481: SELECT igs_pe_felony_dtls_s.NEXTVAL
482: INTO x_felony_details_id
483: FROM dual;
484:
485: before_dml(
500:
501: IF (x_mode = 'S') THEN
502: igs_sc_gen_001.set_ctx('R');
503: END IF;
504: INSERT INTO igs_pe_felony_dtls (
505: felony_details_id,
506: person_id,
507: crime_nature,
508: crime_date,
580: crime_nature,
581: crime_date,
582: convict_ind,
583: disp_action_info
584: FROM igs_pe_felony_dtls
585: WHERE rowid = x_rowid
586: FOR UPDATE NOWAIT;
587:
588: tlinfo c1%ROWTYPE;
686:
687: IF (x_mode = 'S') THEN
688: igs_sc_gen_001.set_ctx('R');
689: END IF;
690: UPDATE igs_pe_felony_dtls
691: SET
692: person_id = new_references.person_id,
693: crime_nature = new_references.crime_nature,
694: crime_date = new_references.crime_date,
747: || (reverse chronological order - newest change first)
748: */
749: CURSOR c1 IS
750: SELECT rowid
751: FROM igs_pe_felony_dtls
752: WHERE felony_details_id = x_felony_details_id;
753:
754: BEGIN
755:
808:
809: IF (x_mode = 'S') THEN
810: igs_sc_gen_001.set_ctx('R');
811: END IF;
812: DELETE FROM igs_pe_felony_dtls
813: WHERE rowid = x_rowid;
814:
815: IF (SQL%NOTFOUND) THEN
816: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
825:
826: END delete_row;
827:
828:
829: END igs_pe_felony_dtls_pkg;