1: PACKAGE BODY JL_BR_AP_COLLECTION_DOCS_PKG as
2: /* $Header: jlbrpecb.pls 120.4.12010000.2 2009/11/19 16:05:14 gmeni ship $ */
3:
4: PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
5:
82: X_calling_sequence VARCHAR2,
83: X_BARCODE VARCHAR2 DEFAULT NULL,
84: X_ELECTRONIC_FORMAT_FLAG VARCHAR2 DEFAULT NULL
85: ) IS
86: CURSOR C IS SELECT rowid FROM JL_BR_AP_COLLECTION_DOCS
87: WHERE bank_collection_id = X_bank_collection_id;
88: current_calling_sequence VARCHAR2(2000);
89: debug_info VARCHAR2(100);
90:
90:
91: BEGIN
92: -- Update the calling sequence
93: --
94: current_calling_sequence := 'JL_BR_AP_COLLECTION_DOCS_PKG.INSERT_ROW<-' ||
95: X_calling_sequence;
96:
97: debug_info := 'Insert into JL_BR_AP_COLLECTION_DOCS';
98: INSERT INTO JL_BR_AP_COLLECTION_DOCS
93: --
94: current_calling_sequence := 'JL_BR_AP_COLLECTION_DOCS_PKG.INSERT_ROW<-' ||
95: X_calling_sequence;
96:
97: debug_info := 'Insert into JL_BR_AP_COLLECTION_DOCS';
98: INSERT INTO JL_BR_AP_COLLECTION_DOCS
99: (
100: BANK_COLLECTION_ID,
101: LAST_UPDATED_BY,
94: current_calling_sequence := 'JL_BR_AP_COLLECTION_DOCS_PKG.INSERT_ROW<-' ||
95: X_calling_sequence;
96:
97: debug_info := 'Insert into JL_BR_AP_COLLECTION_DOCS';
98: INSERT INTO JL_BR_AP_COLLECTION_DOCS
99: (
100: BANK_COLLECTION_ID,
101: LAST_UPDATED_BY,
102: LAST_UPDATE_DATE,
366: X_ELECTRONIC_FORMAT_FLAG VARCHAR2 DEFAULT NULL
367: ) IS
368: CURSOR C IS
369: SELECT *
370: FROM JL_BR_AP_COLLECTION_DOCS
371: WHERE rowid = X_Rowid
372: FOR UPDATE of bank_collection_id NOWAIT;
373: Recinfo C%ROWTYPE;
374:
377:
378: BEGIN
379: -- Update the calling sequence
380: --
381: current_calling_sequence := 'JL_BR_AP_COLLECTION_DOCS_PKG.LOCK_ROW<-' ||
382: X_calling_sequence;
383: debug_info := 'Open cursor C';
384: OPEN C;
385: debug_info := 'Fetch cursor C';
623:
624: END Lock_Row;
625:
626:
627: END JL_BR_AP_COLLECTION_DOCS_PKG;