[Home] [Help]
96: CURSOR C IS SELECT rowid
97: FROM CE_STATEMENT_HEADERS
98: WHERE statement_header_id = X_Statement_Header_Id;
99: CURSOR C2 IS SELECT CE_STATEMENT_HEADERS_S.nextval FROM SYS.dual;
100: CURSOR C3 IS SELECT CE_BANK_ACCT_BALANCES_S.nextval FROM SYS.dual;
101: BEGIN
102: IF (X_statement_header_id IS NULL) THEN
103: OPEN C2;
104: FETCH C2 INTO X_statement_header_id;
238: ELSE
239: p_bank_acct_balance_id := X_bank_acct_balance_id;
240: END IF;
241: --if ((p_xtr_val and x_balance_flag= 'N') or x_balance_flag = 'NM') then
242: INSERT INTO CE_BANK_ACCT_BALANCES
243: (bank_acct_balance_id,
244: bank_account_id,
245: balance_date,
246: ledger_balance,
278: X_last_updated_by,
279: '1');
280: --end if;
281: ELSIF X_balance_flag = 'YO' THEN
282: UPDATE CE_BANK_ACCT_BALANCES
283: SET
284: BALANCE_DATE = X_statement_date,
285: LEDGER_BALANCE = X_control_end_balance,
286: AVAILABLE_BALANCE = X_cashflow_balance,
378: INTO X_bank_account_id,X_Balance_Date
379: FROM CE_STATEMENT_HEADERS
380: WHERE STATEMENT_HEADER_ID = X_Statement_Header_Id;
381:
382: UPDATE CE_BANK_ACCT_BALANCES
383: SET
384: BALANCE_DATE = X_statement_date,
385: LEDGER_BALANCE = X_control_end_balance,
386: AVAILABLE_BALANCE = X_cashflow_balance,
480: INTO X_bank_account_id,X_balance_date
481: FROM CE_STATEMENT_HEADERS
482: WHERE rowid = X_Row_Id;
483:
484: DELETE FROM CE_BANK_ACCT_BALANCES
485: WHERE bank_account_id = X_bank_account_id
486: AND balance_date = X_balance_date;
487: EXCEPTION
488: WHEN OTHERS THEN
565: Recinfo C%ROWTYPE;
566:
567: /* CURSOR C1 IS
568: SELECT *
569: FROM CE_BANK_ACCT_BALANCES
570: WHERE BANK_ACCOUNT_ID = X_bank_account_id
571: AND BALANCE_DATE = X_statement_date
572: FOR UPDATE of BANK_ACCT_BALANCE_ID NOWAIT;
573: Recinfo1 C1%ROWTYPE;*/