1: PACKAGE BODY JL_BR_AR_BANK_RETURNS_PKG as
2: /* $Header: jlbrremb.pls 120.4 2003/09/15 21:51:54 vsidhart ship $ */
3:
4: PROCEDURE Insert_Row(X_rowid IN OUT NOCOPY VARCHAR2,
5:
46:
47: BEGIN
48: -- Update the calling sequence
49: --
50: current_calling_sequence := 'JL_BR_AR_BANK_RETURNS_PKG.INSERT_ROW<-' ||
51: X_calling_sequence;
52: --
53: debug_info := 'Insert into JL_BR_AR_BANK_RETURNS';
54: insert into jl_br_ar_bank_returns(
193:
194: BEGIN
195: -- Update the calling sequence
196: --
197: current_calling_sequence := 'JL_BR_AR_BANK_RETURNS_PKG.LOCK_ROW<-' ||
198: X_calling_sequence;
199: debug_info := 'Open cursor C';
200: OPEN C;
201: debug_info := 'Fetch cursor C';
375: raise NO_DATA_FOUND;
376: END IF;
377: END Delete_Row;
378:
379: END JL_BR_AR_BANK_RETURNS_PKG;