1: PACKAGE BODY JL_BR_AR_SELECT_ACCOUNTS_PKG as
2: /* $Header: jlbrrsab.pls 120.5 2003/09/18 21:03:34 vsidhart ship $ */
3:
4: PROCEDURE Insert_Row ( X_Rowid IN OUT NOCOPY VARCHAR2,
5:
45:
46: X_calling_sequence VARCHAR2,
47: X_ORG_ID NUMBER
48: ) IS
49: CURSOR C IS SELECT rowid FROM JL_BR_AR_SELECT_ACCOUNTS
50: WHERE select_account_id = X_select_account_id;
51: current_calling_sequence VARCHAR2(2000);
52: debug_info VARCHAR2(100);
53:
53:
54: BEGIN
55: -- Update the calling sequence
56: --
57: current_calling_sequence := 'JL_BR_AR_SELECT_ACCOUNTS_PKG.INSERT_ROW<-' ||
58: X_calling_sequence;
59:
60: debug_info := 'Insert into JL_BR_AR_SELECT_ACCOUNTS';
61: INSERT INTO JL_BR_AR_SELECT_ACCOUNTS
56: --
57: current_calling_sequence := 'JL_BR_AR_SELECT_ACCOUNTS_PKG.INSERT_ROW<-' ||
58: X_calling_sequence;
59:
60: debug_info := 'Insert into JL_BR_AR_SELECT_ACCOUNTS';
61: INSERT INTO JL_BR_AR_SELECT_ACCOUNTS
62: (
63: SELECT_ACCOUNT_ID,
64: SELECTION_CONTROL_ID,
57: current_calling_sequence := 'JL_BR_AR_SELECT_ACCOUNTS_PKG.INSERT_ROW<-' ||
58: X_calling_sequence;
59:
60: debug_info := 'Insert into JL_BR_AR_SELECT_ACCOUNTS';
61: INSERT INTO JL_BR_AR_SELECT_ACCOUNTS
62: (
63: SELECT_ACCOUNT_ID,
64: SELECTION_CONTROL_ID,
65: BANK_ACCT_USE_ID,
216: X_calling_sequence VARCHAR2
217: ) IS
218: CURSOR C IS
219: SELECT *
220: FROM JL_BR_AR_SELECT_ACCOUNTS
221: WHERE rowid = X_Rowid
222: FOR UPDATE of select_account_id NOWAIT;
223: Recinfo C%ROWTYPE;
224:
227:
228: BEGIN
229: -- Update the calling sequence
230: --
231: current_calling_sequence := 'JL_BR_AR_SELECT_ACCOUNTS_PKG.LOCK_ROW<-' ||
232: X_calling_sequence;
233: debug_info := 'Open cursor C';
234: OPEN C;
235: debug_info := 'Fetch cursor C';
414: debug_info VARCHAR2(100);
415: BEGIN
416: -- Update the calling sequence
417: --
418: current_calling_sequence := 'JL_BR_AR_SELECT_ACCOUNTS_PKG.UPDATE_ROW<-' ||
419: X_calling_sequence;
420: debug_info := 'Update JL_BR_AR_SELECT_ACCOUNTS';
421: UPDATE JL_BR_AR_SELECT_ACCOUNTS
422: SET
416: -- Update the calling sequence
417: --
418: current_calling_sequence := 'JL_BR_AR_SELECT_ACCOUNTS_PKG.UPDATE_ROW<-' ||
419: X_calling_sequence;
420: debug_info := 'Update JL_BR_AR_SELECT_ACCOUNTS';
421: UPDATE JL_BR_AR_SELECT_ACCOUNTS
422: SET
423: SELECT_ACCOUNT_ID = X_SELECT_ACCOUNT_ID ,
424: SELECTION_CONTROL_ID = X_SELECTION_CONTROL_ID ,
417: --
418: current_calling_sequence := 'JL_BR_AR_SELECT_ACCOUNTS_PKG.UPDATE_ROW<-' ||
419: X_calling_sequence;
420: debug_info := 'Update JL_BR_AR_SELECT_ACCOUNTS';
421: UPDATE JL_BR_AR_SELECT_ACCOUNTS
422: SET
423: SELECT_ACCOUNT_ID = X_SELECT_ACCOUNT_ID ,
424: SELECTION_CONTROL_ID = X_SELECTION_CONTROL_ID ,
425: BANK_ACCT_USE_ID = X_BANK_ACCT_USE_ID ,
486: debug_info VARCHAR2(100);
487: BEGIN
488: -- Update the calling sequence
489: --
490: current_calling_sequence := 'JL_BR_AR_SELECT_ACCOUNTS_PKG.DELETE_ROW<-' ||
491: X_calling_sequence;
492: debug_info := 'Delete from JL_BR_AR_SELECT_ACCOUNTS';
493: DELETE FROM JL_BR_AR_SELECT_ACCOUNTS
494: WHERE rowid = X_Rowid;
488: -- Update the calling sequence
489: --
490: current_calling_sequence := 'JL_BR_AR_SELECT_ACCOUNTS_PKG.DELETE_ROW<-' ||
491: X_calling_sequence;
492: debug_info := 'Delete from JL_BR_AR_SELECT_ACCOUNTS';
493: DELETE FROM JL_BR_AR_SELECT_ACCOUNTS
494: WHERE rowid = X_Rowid;
495:
496: if (SQL%NOTFOUND) then
489: --
490: current_calling_sequence := 'JL_BR_AR_SELECT_ACCOUNTS_PKG.DELETE_ROW<-' ||
491: X_calling_sequence;
492: debug_info := 'Delete from JL_BR_AR_SELECT_ACCOUNTS';
493: DELETE FROM JL_BR_AR_SELECT_ACCOUNTS
494: WHERE rowid = X_Rowid;
495:
496: if (SQL%NOTFOUND) then
497: Raise NO_DATA_FOUND;
510:
511: END Delete_Row;
512:
513:
514: END JL_BR_AR_SELECT_ACCOUNTS_PKG;