1: PACKAGE BODY igp_ac_accounts_pkg AS
2: /* $Header: IGSPADBB.pls 120.0 2005/06/01 17:34:42 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igp_ac_accounts%ROWTYPE;
1: PACKAGE BODY igp_ac_accounts_pkg AS
2: /* $Header: IGSPADBB.pls 120.0 2005/06/01 17:34:42 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igp_ac_accounts%ROWTYPE;
6: new_references igp_ac_accounts%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSPADBB.pls 120.0 2005/06/01 17:34:42 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igp_ac_accounts%ROWTYPE;
6: new_references igp_ac_accounts%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
29: */
30:
31: CURSOR cur_old_ref_values IS
32: SELECT *
33: FROM igp_ac_accounts
34: WHERE rowid = x_rowid;
35:
36: BEGIN
37:
82: || (reverse chronological order - newest change first)
83: */
84: BEGIN
85:
86: igp_ac_acc_classes_pkg.get_fk_igp_ac_accounts (
87: old_references.account_id
88: );
89:
90: END check_child_existance;
103: || (reverse chronological order - newest change first)
104: */
105: CURSOR cur_rowid IS
106: SELECT rowid
107: FROM igp_ac_accounts
108: WHERE account_id = x_account_id
109: FOR UPDATE NOWAIT;
110:
111: lv_rowid cur_rowid%RowType;
232: x_last_update_login := -1;
233: END IF;
234: ELSE
235: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
236: fnd_message.set_token ('ROUTINE', 'IGP_AC_ACCOUNTS_PKG.INSERT_ROW');
237: igs_ge_msg_stack.add;
238: app_exception.raise_exception;
239: END IF;
240:
253: x_last_updated_by => x_last_updated_by,
254: x_last_update_login => x_last_update_login
255: );
256:
257: INSERT INTO igp_ac_accounts (
258: account_id,
259: party_id,
260: user_id,
261: object_version_number,
264: last_update_date,
265: last_updated_by,
266: last_update_login
267: ) VALUES (
268: igp_ac_accounts_s.NEXTVAL,
269: new_references.party_id,
270: new_references.user_id,
271: new_references.object_version_number,
272: x_last_update_date,
299: SELECT
300: party_id,
301: user_id,
302: object_version_number
303: FROM igp_ac_accounts
304: WHERE rowid = x_rowid
305: FOR UPDATE NOWAIT;
306:
307: tlinfo c1%ROWTYPE;
373: x_last_update_login := -1;
374: END IF;
375: ELSE
376: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
377: fnd_message.set_token ('ROUTINE', 'IGP_AC_ACCOUNTS_PKG.UPDATE_ROW');
378: igs_ge_msg_stack.add;
379: app_exception.raise_exception;
380: END IF;
381:
392: x_last_updated_by => x_last_updated_by,
393: x_last_update_login => x_last_update_login
394: );
395:
396: UPDATE igp_ac_accounts
397: SET
398: party_id = new_references.party_id,
399: user_id = new_references.user_id,
400: object_version_number = new_references.object_version_number,
428: || (reverse chronological order - newest change first)
429: */
430: CURSOR c1 IS
431: SELECT rowid
432: FROM igp_ac_accounts
433: WHERE account_id = x_account_id;
434:
435: BEGIN
436:
481: p_action => 'DELETE',
482: x_rowid => x_rowid
483: );
484:
485: DELETE FROM igp_ac_accounts
486: WHERE rowid = x_rowid;
487:
488: IF (SQL%NOTFOUND) THEN
489: RAISE NO_DATA_FOUND;
491:
492: END delete_row;
493:
494:
495: END igp_ac_accounts_pkg;