30: | 04-jun-2003 |
31: *=======================================================================*/
32:
33: l_rowid VARCHAR2(25);
34: old_references igf_ap_td_item_inst_all%ROWTYPE;
35: new_references igf_ap_td_item_inst_all%ROWTYPE;
36:
37: PROCEDURE set_column_values (
38: p_action IN VARCHAR2,
31: *=======================================================================*/
32:
33: l_rowid VARCHAR2(25);
34: old_references igf_ap_td_item_inst_all%ROWTYPE;
35: new_references igf_ap_td_item_inst_all%ROWTYPE;
36:
37: PROCEDURE set_column_values (
38: p_action IN VARCHAR2,
39: x_rowid IN VARCHAR2 DEFAULT NULL,
67: */
68:
69: CURSOR cur_old_ref_values IS
70: SELECT *
71: FROM IGF_AP_TD_ITEM_INST_ALL
72: WHERE rowid = x_rowid;
73:
74: BEGIN
75:
169: || (reverse chronological order - newest change first)
170: */
171: CURSOR cur_rowid IS
172: SELECT rowid
173: FROM igf_ap_td_item_inst_all
174: WHERE base_id = x_base_id
175: AND item_sequence_number = x_item_sequence_number
176: FOR UPDATE NOWAIT;
177:
231: || (reverse chronological order - newest change first)
232: */
233: CURSOR cur_rowid IS
234: SELECT rowid
235: FROM igf_ap_td_item_inst_all
236: WHERE base_id = x_base_id
237: AND item_sequence_number = x_item_sequence_number
238: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
239:
267: || (reverse chronological order - newest change first)
268: */
269: CURSOR cur_rowid IS
270: SELECT rowid
271: FROM igf_ap_td_item_inst_all
272: WHERE ((base_id = x_base_id));
273:
274: lv_rowid cur_rowid%RowType;
275:
301: || (reverse chronological order - newest change first)
302: */
303: CURSOR cur_rowid IS
304: SELECT rowid
305: FROM igf_ap_td_item_inst_all
306: WHERE ((item_sequence_number = x_todo_number));
307:
308: lv_rowid cur_rowid%RowType;
309:
440: ) IS
441: SELECT appl_setup.*
442: FROM igf_ap_appl_setup_all appl_setup,
443: igf_ap_td_item_mst_all td_mst,
444: igf_ap_td_item_inst_all td_inst
445: WHERE td_mst.ci_cal_type = appl_setup.ci_cal_type
446: AND td_mst.ci_sequence_number = appl_setup.ci_sequence_number
447: AND td_mst.application_code = appl_setup.application_code
448: AND td_mst.todo_number = td_inst.item_sequence_number
604: || (reverse chronological order - newest change first)
605: */
606: CURSOR c IS
607: SELECT rowid
608: FROM igf_ap_td_item_inst_all
609: WHERE base_id = x_base_id
610: AND item_sequence_number = x_item_sequence_number;
611:
612: x_last_update_date DATE;
612: x_last_update_date DATE;
613: x_last_updated_by NUMBER;
614: x_last_update_login NUMBER;
615:
616: l_org_id igf_ap_td_item_inst_all.org_id%TYPE DEFAULT igf_aw_gen.get_org_id;
617:
618: BEGIN
619:
620: x_last_update_date := SYSDATE;
658: x_last_update_login => x_last_update_login,
659: x_clprl_id => x_clprl_id
660: );
661:
662: INSERT INTO igf_ap_td_item_inst_all (
663: base_id,
664: item_sequence_number,
665: status,
666: status_date,
752: required_for_application,
753: org_id,
754: legacy_record_flag,
755: clprl_id
756: FROM igf_ap_td_item_inst_all
757: WHERE rowid = x_rowid
758: FOR UPDATE NOWAIT;
759:
760: tlinfo c1%ROWTYPE;
872: x_last_update_login => x_last_update_login,
873: x_clprl_id => x_clprl_id
874: );
875:
876: UPDATE igf_ap_td_item_inst_all
877: SET
878: status = new_references.status,
879: status_date = new_references.status_date,
880: add_date = new_references.add_date,
927: || (reverse chronological order - newest change first)
928: */
929: CURSOR c1 IS
930: SELECT rowid
931: FROM igf_ap_td_item_inst_all
932: WHERE base_id = x_base_id
933: AND item_sequence_number = x_item_sequence_number;
934:
935: BEGIN
999: p_action => 'DELETE',
1000: x_rowid => x_rowid
1001: );
1002:
1003: DELETE FROM igf_ap_td_item_inst_all
1004: WHERE rowid = x_rowid;
1005:
1006: IF (SQL%NOTFOUND) THEN
1007: RAISE NO_DATA_FOUND;