[Home] [Help]
1: PACKAGE BODY igs_uc_map_off_resp_pkg AS
2: /* $Header: IGSXI46B.pls 115.6 2003/10/30 13:32:54 rghosh noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_uc_map_off_resp%ROWTYPE;
1: PACKAGE BODY igs_uc_map_off_resp_pkg AS
2: /* $Header: IGSXI46B.pls 115.6 2003/10/30 13:32:54 rghosh noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_uc_map_off_resp%ROWTYPE;
6: new_references igs_uc_map_off_resp%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSXI46B.pls 115.6 2003/10/30 13:32:54 rghosh noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_uc_map_off_resp%ROWTYPE;
6: new_references igs_uc_map_off_resp%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
30: */
31:
32: CURSOR cur_old_ref_values IS
33: SELECT *
34: FROM igs_uc_map_off_resp
35: WHERE rowid = x_rowid;
36:
37: BEGIN
38:
131: || (reverse chronological order - newest change first)
132: */
133: CURSOR cur_rowid IS
134: SELECT rowid
135: FROM igs_uc_map_off_resp
136: WHERE system_code = x_system_code
137: AND decision_code = x_decision_code
138: AND reply_code = x_reply_code ;
139:
169: || (reverse chronological order - newest change first)
170: */
171: CURSOR cur_rowid IS
172: SELECT rowid
173: FROM igs_uc_map_off_resp
174: WHERE ((decision_code = x_decision_code) AND
175: (system_code = x_system_code));
176:
177: lv_rowid cur_rowid%RowType;
205: || (reverse chronological order - newest change first)
206: */
207: CURSOR cur_rowid IS
208: SELECT rowid
209: FROM igs_uc_map_off_resp
210: WHERE ((adm_offer_resp_status = x_adm_offer_resp_status));
211:
212: lv_rowid cur_rowid%RowType;
213:
360: x_last_updated_by => x_last_updated_by,
361: x_last_update_login => x_last_update_login
362: );
363:
364: INSERT INTO igs_uc_map_off_resp (
365: system_code,
366: decision_code,
367: reply_code,
368: adm_offer_resp_status,
408: CURSOR c1 IS
409: SELECT
410: adm_offer_resp_status,
411: closed_ind
412: FROM igs_uc_map_off_resp
413: WHERE rowid = x_rowid
414: FOR UPDATE NOWAIT;
415:
416: tlinfo c1%ROWTYPE;
501: x_last_updated_by => x_last_updated_by,
502: x_last_update_login => x_last_update_login
503: );
504:
505: UPDATE igs_uc_map_off_resp
506: SET
507: adm_offer_resp_status = new_references.adm_offer_resp_status,
508: closed_ind = new_references.closed_ind,
509: last_update_date = x_last_update_date,
537: || (reverse chronological order - newest change first)
538: */
539: CURSOR c1 IS
540: SELECT rowid
541: FROM igs_uc_map_off_resp
542: WHERE system_code = x_system_code
543: AND decision_code = x_decision_code
544: AND reply_code = x_reply_code;
545:
594: p_action => 'DELETE',
595: x_rowid => x_rowid
596: );
597:
598: DELETE FROM igs_uc_map_off_resp
599: WHERE rowid = x_rowid;
600:
601: IF (SQL%NOTFOUND) THEN
602: RAISE NO_DATA_FOUND;
604:
605: END delete_row;
606:
607:
608: END igs_uc_map_off_resp_pkg;