[Home] [Help]
1: PACKAGE BODY igs_fi_bill_addr_pkg AS
2: /* $Header: IGSSIB8B.pls 115.3 2002/11/29 04:05:40 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_fi_bill_addr%ROWTYPE;
1: PACKAGE BODY igs_fi_bill_addr_pkg AS
2: /* $Header: IGSSIB8B.pls 115.3 2002/11/29 04:05:40 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_fi_bill_addr%ROWTYPE;
6: new_references igs_fi_bill_addr%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSSIB8B.pls 115.3 2002/11/29 04:05:40 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_fi_bill_addr%ROWTYPE;
6: new_references igs_fi_bill_addr%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
39: */
40:
41: CURSOR cur_old_ref_values IS
42: SELECT *
43: FROM IGS_FI_BILL_ADDR
44: WHERE rowid = x_rowid;
45:
46: BEGIN
47:
130: || (reverse chronological order - newest change first)
131: */
132: CURSOR cur_rowid IS
133: SELECT rowid
134: FROM igs_fi_bill_addr
135: WHERE bill_addr_id = x_bill_addr_id
136: FOR UPDATE NOWAIT;
137:
138: lv_rowid cur_rowid%RowType;
165: || (reverse chronological order - newest change first)
166: */
167: CURSOR cur_rowid IS
168: SELECT rowid
169: FROM igs_fi_bill_addr
170: WHERE ((bill_id = x_bill_id));
171:
172: lv_rowid cur_rowid%RowType;
173:
176: OPEN cur_rowid;
177: FETCH cur_rowid INTO lv_rowid;
178: IF (cur_rowid%FOUND) THEN
179: CLOSE cur_rowid;
180: fnd_message.set_name ('IGS', 'IGS_FI_BILL_ADDR_FK');
181: igs_ge_msg_stack.add;
182: app_exception.raise_exception;
183: RETURN;
184: END IF;
303: || (reverse chronological order - newest change first)
304: */
305: CURSOR c IS
306: SELECT rowid
307: FROM igs_fi_bill_addr
308: WHERE bill_addr_id = x_bill_addr_id;
309:
310: x_last_update_date DATE;
311: x_last_updated_by NUMBER;
347: igs_ge_msg_stack.add;
348: app_exception.raise_exception;
349: END IF;
350:
351: SELECT igs_fi_bill_addr_s.NEXTVAL
352: INTO x_bill_addr_id
353: FROM dual;
354:
355: before_dml(
375: x_last_updated_by => x_last_updated_by,
376: x_last_update_login => x_last_update_login
377: );
378:
379: INSERT INTO igs_fi_bill_addr (
380: bill_addr_id,
381: bill_id,
382: addr_type,
383: addr_line_1,
477: county,
478: country,
479: postal_code,
480: delivery_point_code
481: FROM igs_fi_bill_addr
482: WHERE rowid = x_rowid
483: FOR UPDATE NOWAIT;
484:
485: tlinfo c1%ROWTYPE;
617: x_program_update_date := SYSDATE;
618: END IF;
619: END IF;
620:
621: UPDATE igs_fi_bill_addr
622: SET
623: bill_id = new_references.bill_id,
624: addr_type = new_references.addr_type,
625: addr_line_1 = new_references.addr_line_1,
677: || (reverse chronological order - newest change first)
678: */
679: CURSOR c1 IS
680: SELECT rowid
681: FROM igs_fi_bill_addr
682: WHERE bill_addr_id = x_bill_addr_id;
683:
684: BEGIN
685:
750: p_action => 'DELETE',
751: x_rowid => x_rowid
752: );
753:
754: DELETE FROM igs_fi_bill_addr
755: WHERE rowid = x_rowid;
756:
757: IF (SQL%NOTFOUND) THEN
758: RAISE NO_DATA_FOUND;
760:
761: END delete_row;
762:
763:
764: END igs_fi_bill_addr_pkg;