1: PACKAGE BODY igs_he_unt_ou_cc_pkg AS
2: /* $Header: IGSWI46B.pls 120.0 2005/06/02 04:23:29 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_unt_ou_cc%ROWTYPE;
1: PACKAGE BODY igs_he_unt_ou_cc_pkg AS
2: /* $Header: IGSWI46B.pls 120.0 2005/06/02 04:23:29 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_unt_ou_cc%ROWTYPE;
6: new_references igs_he_unt_ou_cc%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSWI46B.pls 120.0 2005/06/02 04:23:29 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_unt_ou_cc%ROWTYPE;
6: new_references igs_he_unt_ou_cc%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 igs_he_unt_ou_cc
37: WHERE rowid = x_rowid;
38:
39: BEGIN
40:
150: || (reverse chronological order - newest change first)
151: */
152: CURSOR cur_rowid IS
153: SELECT rowid
154: FROM igs_he_unt_ou_cc
155: WHERE hesa_unit_cc_id = x_hesa_unit_cc_id
156: FOR UPDATE NOWAIT;
157:
158: lv_rowid cur_rowid%RowType;
189: || (reverse chronological order - newest change first)
190: */
191: CURSOR cur_rowid IS
192: SELECT rowid
193: FROM igs_he_unt_ou_cc
194: WHERE unit_cd = x_unit_cd
195: AND version_number = x_version_number
196: AND org_unit_cd = x_org_unit_cd
197: AND cost_centre = x_cost_centre
230: || (reverse chronological order - newest change first)
231: */
232: CURSOR cur_rowid IS
233: SELECT rowid
234: FROM igs_he_unt_ou_cc
235: WHERE ((org_unit_cd = x_org_unit_cd) AND
236: (unit_cd = x_unit_cd) AND
237: (version_number = x_version_number));
238:
374: x_last_update_login := -1;
375: END IF;
376: ELSE
377: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
378: fnd_message.set_token ('ROUTINE', 'IGS_HE_UNT_OU_CC_PKG.INSERT_ROW');
379: igs_ge_msg_stack.add;
380: app_exception.raise_exception;
381: END IF;
382:
398: x_last_updated_by => x_last_updated_by,
399: x_last_update_login => x_last_update_login
400: );
401:
402: INSERT INTO igs_he_unt_ou_cc (
403: hesa_unit_cc_id,
404: unit_cd,
405: version_number,
406: org_unit_cd,
412: last_update_date,
413: last_updated_by,
414: last_update_login
415: ) VALUES (
416: igs_he_unt_ou_cc_s.NEXTVAL,
417: new_references.unit_cd,
418: new_references.version_number,
419: new_references.org_unit_cd,
420: new_references.cost_centre,
456: org_unit_cd,
457: cost_centre,
458: subject,
459: proportion
460: FROM igs_he_unt_ou_cc
461: WHERE rowid = x_rowid
462: FOR UPDATE NOWAIT;
463:
464: tlinfo c1%ROWTYPE;
536: x_last_update_login := -1;
537: END IF;
538: ELSE
539: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
540: fnd_message.set_token ('ROUTINE', 'IGS_HE_UNT_OU_CC_PKG.UPDATE_ROW');
541: igs_ge_msg_stack.add;
542: app_exception.raise_exception;
543: END IF;
544:
558: x_last_updated_by => x_last_updated_by,
559: x_last_update_login => x_last_update_login
560: );
561:
562: UPDATE igs_he_unt_ou_cc
563: SET
564: unit_cd = new_references.unit_cd,
565: version_number = new_references.version_number,
566: org_unit_cd = new_references.org_unit_cd,
600: || (reverse chronological order - newest change first)
601: */
602: CURSOR c1 IS
603: SELECT rowid
604: FROM igs_he_unt_ou_cc
605: WHERE hesa_unit_cc_id = x_hesa_unit_cc_id;
606:
607: BEGIN
608:
659: p_action => 'DELETE',
660: x_rowid => x_rowid
661: );
662:
663: DELETE FROM igs_he_unt_ou_cc
664: WHERE rowid = x_rowid;
665:
666: IF (SQL%NOTFOUND) THEN
667: RAISE NO_DATA_FOUND;
669:
670: END delete_row;
671:
672:
673: END igs_he_unt_ou_cc_pkg;