[Home] [Help]
1: PACKAGE BODY igs_fi_pp_tmpl_lns_pkg AS
2: /* $Header: IGSSID9B.pls 115.1 2003/09/08 16:56:40 smvk noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_fi_pp_tmpl_lns%ROWTYPE;
1: PACKAGE BODY igs_fi_pp_tmpl_lns_pkg AS
2: /* $Header: IGSSID9B.pls 115.1 2003/09/08 16:56:40 smvk noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_fi_pp_tmpl_lns%ROWTYPE;
6: new_references igs_fi_pp_tmpl_lns%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSSID9B.pls 115.1 2003/09/08 16:56:40 smvk noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_fi_pp_tmpl_lns%ROWTYPE;
6: new_references igs_fi_pp_tmpl_lns%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_fi_pp_tmpl_lns
35: WHERE rowid = x_rowid;
36:
37: BEGIN
38:
139: || (reverse chronological order - newest change first)
140: */
141: CURSOR cur_rowid IS
142: SELECT rowid
143: FROM igs_fi_pp_tmpl_lns
144: WHERE plan_line_id = x_plan_line_id
145: FOR UPDATE NOWAIT;
146:
147: lv_rowid cur_rowid%RowType;
175: || (reverse chronological order - newest change first)
176: */
177: CURSOR cur_rowid IS
178: SELECT rowid
179: FROM igs_fi_pp_tmpl_lns
180: WHERE payment_plan_name = x_payment_plan_name
181: AND plan_line_num = x_plan_line_num
182: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
183:
313: x_last_update_login := -1;
314: END IF;
315: ELSE
316: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
317: fnd_message.set_token ('ROUTINE', 'IGS_FI_PP_TMPL_LNS_PKG.INSERT_ROW');
318: igs_ge_msg_stack.add;
319: app_exception.raise_exception;
320: END IF;
321:
335: x_last_updated_by => x_last_updated_by,
336: x_last_update_login => x_last_update_login
337: );
338:
339: INSERT INTO igs_fi_pp_tmpl_lns (
340: plan_line_id,
341: payment_plan_name,
342: plan_line_num,
343: plan_percent,
347: last_update_date,
348: last_updated_by,
349: last_update_login
350: ) VALUES (
351: igs_fi_pp_tmpl_lns_s.NEXTVAL,
352: new_references.payment_plan_name,
353: new_references.plan_line_num,
354: new_references.plan_percent,
355: new_references.plan_amt,
385: payment_plan_name,
386: plan_line_num,
387: plan_percent,
388: plan_amt
389: FROM igs_fi_pp_tmpl_lns
390: WHERE rowid = x_rowid
391: FOR UPDATE NOWAIT;
392:
393: tlinfo c1%ROWTYPE;
461: x_last_update_login := -1;
462: END IF;
463: ELSE
464: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
465: fnd_message.set_token ('ROUTINE', 'IGS_FI_PP_TMPL_LNS_PKG.UPDATE_ROW');
466: igs_ge_msg_stack.add;
467: app_exception.raise_exception;
468: END IF;
469:
481: x_last_updated_by => x_last_updated_by,
482: x_last_update_login => x_last_update_login
483: );
484:
485: UPDATE igs_fi_pp_tmpl_lns
486: SET
487: payment_plan_name = new_references.payment_plan_name,
488: plan_line_num = new_references.plan_line_num,
489: plan_percent = new_references.plan_percent,
519: || (reverse chronological order - newest change first)
520: */
521: CURSOR c1 IS
522: SELECT rowid
523: FROM igs_fi_pp_tmpl_lns
524: WHERE plan_line_id = x_plan_line_id;
525:
526: BEGIN
527:
574: p_action => 'DELETE',
575: x_rowid => x_rowid
576: );
577:
578: DELETE FROM igs_fi_pp_tmpl_lns
579: WHERE rowid = x_rowid;
580:
581: IF (SQL%NOTFOUND) THEN
582: RAISE NO_DATA_FOUND;
584:
585: END delete_row;
586:
587:
588: END igs_fi_pp_tmpl_lns_pkg;