[Home] [Help]
1: PACKAGE BODY igf_ap_attend_map_pkg AS
2: /* $Header: IGFAI44B.pls 115.9 2002/11/28 14:02:04 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_ap_attend_map_all%ROWTYPE;
1: PACKAGE BODY igf_ap_attend_map_pkg AS
2: /* $Header: IGFAI44B.pls 115.9 2002/11/28 14:02:04 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_ap_attend_map_all%ROWTYPE;
6: new_references igf_ap_attend_map_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2 ,
2: /* $Header: IGFAI44B.pls 115.9 2002/11/28 14:02:04 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_ap_attend_map_all%ROWTYPE;
6: new_references igf_ap_attend_map_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2 ,
10: x_rowid IN VARCHAR2 ,
32: */
33:
34: CURSOR cur_old_ref_values IS
35: SELECT *
36: FROM IGF_AP_ATTEND_MAP_ALL
37: WHERE rowid = x_rowid;
38:
39: BEGIN
40:
151: || (reverse chronological order - newest change first)
152: */
153: CURSOR cur_rowid IS
154: SELECT rowid
155: FROM igf_ap_attend_map_all
156: WHERE atm_id = x_atm_id
157: FOR UPDATE NOWAIT;
158:
159: lv_rowid cur_rowid%RowType;
189: || vvutukur 18-feb-2002 modified org_id check in cur_rowid cursor with new local variable l_org_id.Bug:2222272.
190: || (reverse chronological order - newest change first)
191: */
192:
193: l_org_id igf_ap_attend_map.org_id%TYPE := igf_aw_gen.get_org_id;
194:
195: CURSOR cur_rowid IS
196: SELECT rowid
197: FROM igf_ap_attend_map
193: l_org_id igf_ap_attend_map.org_id%TYPE := igf_aw_gen.get_org_id;
194:
195: CURSOR cur_rowid IS
196: SELECT rowid
197: FROM igf_ap_attend_map
198: WHERE attendance_type = x_attendance_type
199: AND cal_type = x_cal_type
200: AND sequence_number = x_sequence_number
201: AND NVL(org_id,NVL(l_org_id,-99)) = NVL(l_org_id,-99)
232: || (reverse chronological order - newest change first)
233: */
234: CURSOR cur_rowid IS
235: SELECT rowid
236: FROM igf_ap_attend_map_all
237: WHERE ((cal_type = x_cal_type) AND
238: (sequence_number = x_sequence_number)
239: );
240: lv_rowid cur_rowid%RowType;
269: || (reverse chronological order - newest change first)
270: */
271: CURSOR cur_rowid IS
272: SELECT rowid
273: FROM igf_ap_attend_map_all
274: WHERE ((attendance_type = x_attendance_type));
275:
276: lv_rowid cur_rowid%RowType;
277:
391: || (reverse chronological order - newest change first)
392: */
393: CURSOR c IS
394: SELECT rowid
395: FROM igf_ap_attend_map_all
396: WHERE atm_id = x_atm_id;
397:
398: x_last_update_date DATE;
399: x_last_updated_by NUMBER;
419: igs_ge_msg_stack.add;
420: app_exception.raise_exception;
421: END IF;
422:
423: SELECT igf_ap_attend_map_s.NEXTVAL
424: INTO x_atm_id
425: FROM dual;
426:
427: new_references.org_id := igs_ge_gen_003.get_org_id;
442: x_last_updated_by => x_last_updated_by,
443: x_last_update_login => x_last_update_login
444: );
445:
446: INSERT INTO igf_ap_attend_map_all (
447: atm_id,
448: attendance_type,
449: pell_att_code,
450: cl_att_code,
510: cl_att_code,
511: ap_att_code,
512: cal_type ,
513: sequence_number
514: FROM igf_ap_attend_map_all
515: WHERE rowid = x_rowid
516: FOR UPDATE NOWAIT;
517:
518: tlinfo c1%ROWTYPE;
611: x_last_updated_by => x_last_updated_by,
612: x_last_update_login => x_last_update_login
613: );
614:
615: UPDATE igf_ap_attend_map_all
616: SET
617: attendance_type = new_references.attendance_type,
618: pell_att_code = new_references.pell_att_code,
619: cl_att_code = new_references.cl_att_code,
653: || (reverse chronological order - newest change first)
654: */
655: CURSOR c1 IS
656: SELECT rowid
657: FROM igf_ap_attend_map_all
658: WHERE atm_id = x_atm_id;
659:
660: BEGIN
661:
712: p_action => 'DELETE',
713: x_rowid => x_rowid
714: );
715:
716: DELETE FROM igf_ap_attend_map_all
717: WHERE rowid = x_rowid;
718:
719: IF (SQL%NOTFOUND) THEN
720: RAISE NO_DATA_FOUND;
722:
723: END delete_row;
724:
725:
726: END igf_ap_attend_map_pkg;