[Home] [Help]
1: PACKAGE BODY igs_he_ut_prs_dtls_pkg AS
2: /* $Header: IGSWI40B.pls 120.2 2005/07/03 18:45:30 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_ut_prs_dtls%ROWTYPE;
1: PACKAGE BODY igs_he_ut_prs_dtls_pkg AS
2: /* $Header: IGSWI40B.pls 120.2 2005/07/03 18:45:30 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_ut_prs_dtls%ROWTYPE;
6: new_references igs_he_ut_prs_dtls%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSWI40B.pls 120.2 2005/07/03 18:45:30 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_ut_prs_dtls%ROWTYPE;
6: new_references igs_he_ut_prs_dtls%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_ut_prs_dtls
35: WHERE rowid = x_rowid;
36:
37: BEGIN
38:
126: || (reverse chronological order - newest change first)
127: */
128: CURSOR cur_rowid IS
129: SELECT rowid
130: FROM igs_he_ut_prs_dtls
131: WHERE tariff_calc_type_cd = x_tariff_calc_type_cd
132: AND person_id = x_person_id
133: AND award_cd = x_award_cd
134: FOR UPDATE NOWAIT;
155: ) IS
156:
157: CURSOR cur_rowid IS
158: SELECT rowid
159: FROM igs_he_ut_prs_dtls
160: WHERE ((tariff_calc_type_cd = x_tariff_calc_type_cd) AND
161: (person_id = x_person_id));
162:
163: lv_rowid cur_rowid%ROWTYPE;
292: x_last_update_login := -1;
293: END IF;
294: ELSE
295: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
296: fnd_message.set_token ('ROUTINE', 'IGS_HE_UT_PRS_DTLS_PKG.INSERT_ROW');
297: igs_ge_msg_stack.add;
298: app_exception.raise_exception;
299: END IF;
300:
315:
316: IF (x_mode = 'S') THEN
317: igs_sc_gen_001.set_ctx('R');
318: END IF;
319: INSERT INTO igs_he_ut_prs_dtls (
320: tariff_calc_type_cd,
321: person_id,
322: award_cd,
323: number_of_qual,
382: CURSOR c1 IS
383: SELECT
384: number_of_qual,
385: tariff_score
386: FROM igs_he_ut_prs_dtls
387: WHERE rowid = x_rowid
388: FOR UPDATE NOWAIT;
389:
390: tlinfo c1%ROWTYPE;
456: x_last_update_login := -1;
457: END IF;
458: ELSE
459: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
460: fnd_message.set_token ('ROUTINE', 'IGS_HE_UT_PRS_DTLS_PKG.UPDATE_ROW');
461: igs_ge_msg_stack.add;
462: app_exception.raise_exception;
463: END IF;
464:
479:
480: IF (x_mode = 'S') THEN
481: igs_sc_gen_001.set_ctx('R');
482: END IF;
483: UPDATE igs_he_ut_prs_dtls
484: SET
485: number_of_qual = new_references.number_of_qual,
486: tariff_score = new_references.tariff_score,
487: last_update_date = x_last_update_date,
537: || (reverse chronological order - newest change first)
538: */
539: CURSOR c1 IS
540: SELECT rowid
541: FROM igs_he_ut_prs_dtls
542: WHERE tariff_calc_type_cd = x_tariff_calc_type_cd
543: AND person_id = x_person_id
544: AND award_cd = x_award_cd;
545:
598:
599: IF (x_mode = 'S') THEN
600: igs_sc_gen_001.set_ctx('R');
601: END IF;
602: DELETE FROM igs_he_ut_prs_dtls
603: WHERE rowid = x_rowid;
604:
605: IF (SQL%NOTFOUND) THEN
606: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
617:
618: END delete_row;
619:
620:
621: END igs_he_ut_prs_dtls_pkg;