[Home] [Help]
1: PACKAGE BODY igs_he_ou_cc_pkg AS
2: /* $Header: IGSWI45B.pls 120.0 2005/06/01 14:17:50 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_ou_cc%ROWTYPE;
1: PACKAGE BODY igs_he_ou_cc_pkg AS
2: /* $Header: IGSWI45B.pls 120.0 2005/06/01 14:17:50 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_ou_cc%ROWTYPE;
6: new_references igs_he_ou_cc%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSWI45B.pls 120.0 2005/06/01 14:17:50 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_ou_cc%ROWTYPE;
6: new_references igs_he_ou_cc%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_he_ou_cc
35: WHERE rowid = x_rowid;
36:
37: BEGIN
38:
137: || (reverse chronological order - newest change first)
138: */
139: CURSOR cur_rowid IS
140: SELECT rowid
141: FROM igs_he_ou_cc
142: WHERE hesa_ou_cc_id = x_hesa_ou_cc_id
143: FOR UPDATE NOWAIT;
144:
145: lv_rowid cur_rowid%RowType;
174: || (reverse chronological order - newest change first)
175: */
176: CURSOR cur_rowid IS
177: SELECT rowid
178: FROM igs_he_ou_cc
179: WHERE org_unit_cd = x_org_unit_cd
180: AND cost_centre = x_cost_centre
181: AND subject = x_subject
182: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
312: x_last_update_login := -1;
313: END IF;
314: ELSE
315: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
316: fnd_message.set_token ('ROUTINE', 'IGS_HE_OU_CC_PKG.INSERT_ROW');
317: igs_ge_msg_stack.add;
318: app_exception.raise_exception;
319: END IF;
320:
334: x_last_updated_by => x_last_updated_by,
335: x_last_update_login => x_last_update_login
336: );
337:
338: INSERT INTO igs_he_ou_cc (
339: hesa_ou_cc_id,
340: org_unit_cd,
341: cost_centre,
342: subject,
346: last_update_date,
347: last_updated_by,
348: last_update_login
349: ) VALUES (
350: igs_he_ou_cc_s.NEXTVAL,
351: new_references.org_unit_cd,
352: new_references.cost_centre,
353: new_references.subject,
354: new_references.proportion,
384: org_unit_cd,
385: cost_centre,
386: subject,
387: proportion
388: FROM igs_he_ou_cc
389: WHERE rowid = x_rowid
390: FOR UPDATE NOWAIT;
391:
392: tlinfo c1%ROWTYPE;
460: x_last_update_login := -1;
461: END IF;
462: ELSE
463: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
464: fnd_message.set_token ('ROUTINE', 'IGS_HE_OU_CC_PKG.UPDATE_ROW');
465: igs_ge_msg_stack.add;
466: app_exception.raise_exception;
467: END IF;
468:
480: x_last_updated_by => x_last_updated_by,
481: x_last_update_login => x_last_update_login
482: );
483:
484: UPDATE igs_he_ou_cc
485: SET
486: org_unit_cd = new_references.org_unit_cd,
487: cost_centre = new_references.cost_centre,
488: subject = new_references.subject,
518: || (reverse chronological order - newest change first)
519: */
520: CURSOR c1 IS
521: SELECT rowid
522: FROM igs_he_ou_cc
523: WHERE hesa_ou_cc_id = x_hesa_ou_cc_id;
524:
525: BEGIN
526:
573: p_action => 'DELETE',
574: x_rowid => x_rowid
575: );
576:
577: DELETE FROM igs_he_ou_cc
578: WHERE rowid = x_rowid;
579:
580: IF (SQL%NOTFOUND) THEN
581: RAISE NO_DATA_FOUND;
583:
584: END delete_row;
585:
586:
587: END igs_he_ou_cc_pkg;