[Home] [Help]
1: PACKAGE BODY igs_he_st_spa_cc_pkg AS
2: /* $Header: IGSWI43B.pls 120.2 2005/07/03 18:46:10 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_st_spa_cc%ROWTYPE;
1: PACKAGE BODY igs_he_st_spa_cc_pkg AS
2: /* $Header: IGSWI43B.pls 120.2 2005/07/03 18:46:10 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_st_spa_cc%ROWTYPE;
6: new_references igs_he_st_spa_cc%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSWI43B.pls 120.2 2005/07/03 18:46:10 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_st_spa_cc%ROWTYPE;
6: new_references igs_he_st_spa_cc%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
31: */
32:
33: CURSOR cur_old_ref_values IS
34: SELECT *
35: FROM igs_he_st_spa_cc
36: WHERE rowid = x_rowid;
37:
38: BEGIN
39:
115: || (reverse chronological order - newest change first)
116: */
117: CURSOR cur_rowid IS
118: SELECT rowid
119: FROM igs_he_st_spa_cc
120: WHERE he_spa_cc_id = x_he_spa_cc_id
121: FOR UPDATE NOWAIT;
122:
123: lv_rowid cur_rowid%RowType;
153: || (reverse chronological order - newest change first)
154: */
155: CURSOR cur_rowid IS
156: SELECT rowid
157: FROM igs_he_st_spa_cc
158: WHERE person_id = x_person_id
159: AND course_cd = x_course_cd
160: AND cost_centre = x_cost_centre
161: AND subject = x_subject
297: x_last_update_login := -1;
298: END IF;
299: ELSE
300: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
301: fnd_message.set_token ('ROUTINE', 'IGS_HE_ST_SPA_CC_PKG.INSERT_ROW');
302: igs_ge_msg_stack.add;
303: app_exception.raise_exception;
304: END IF;
305:
323:
324: IF (x_mode = 'S') THEN
325: igs_sc_gen_001.set_ctx('R');
326: END IF;
327: INSERT INTO igs_he_st_spa_cc (
328: he_spa_cc_id,
329: person_id,
330: course_cd,
331: cost_centre,
336: last_update_date,
337: last_updated_by,
338: last_update_login
339: ) VALUES (
340: igs_he_st_spa_cc_s.NEXTVAL,
341: new_references.person_id,
342: new_references.course_cd,
343: new_references.cost_centre,
344: new_references.subject,
396: course_cd,
397: cost_centre,
398: subject,
399: proportion
400: FROM igs_he_st_spa_cc
401: WHERE rowid = x_rowid
402: FOR UPDATE NOWAIT;
403:
404: tlinfo c1%ROWTYPE;
474: x_last_update_login := -1;
475: END IF;
476: ELSE
477: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
478: fnd_message.set_token ('ROUTINE', 'IGS_HE_ST_SPA_CC_PKG.UPDATE_ROW');
479: igs_ge_msg_stack.add;
480: app_exception.raise_exception;
481: END IF;
482:
498:
499: IF (x_mode = 'S') THEN
500: igs_sc_gen_001.set_ctx('R');
501: END IF;
502: UPDATE igs_he_st_spa_cc
503: SET
504: person_id = new_references.person_id,
505: course_cd = new_references.course_cd,
506: cost_centre = new_references.cost_centre,
560: || (reverse chronological order - newest change first)
561: */
562: CURSOR c1 IS
563: SELECT rowid
564: FROM igs_he_st_spa_cc
565: WHERE he_spa_cc_id = x_he_spa_cc_id;
566:
567: BEGIN
568:
621:
622: IF (x_mode = 'S') THEN
623: igs_sc_gen_001.set_ctx('R');
624: END IF;
625: DELETE FROM igs_he_st_spa_cc
626: WHERE rowid = x_rowid;
627:
628: IF (SQL%NOTFOUND) THEN
629: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
640:
641: END delete_row;
642:
643:
644: END igs_he_st_spa_cc_pkg;