1: PACKAGE BODY JL_BR_AR_COLLECTION_DOCS_PKG as
2: /* $Header: jlbrrcdb.pls 120.5 2003/09/15 21:52:25 vsidhart ship $ */
3:
4: PROCEDURE Insert_Row ( X_Rowid IN OUT NOCOPY VARCHAR2,
5:
77:
78: BEGIN
79: -- Update the calling sequence
80: --
81: current_calling_sequence := 'JL_BR_AR_COLLECTION_DOCS_PKG.INSERT_ROW<-' ||
82: X_calling_sequence;
83:
84: debug_info := 'Insert into JL_BR_AR_COLLECTION_DOCS';
85: INSERT INTO JL_BR_AR_COLLECTION_DOCS
314: debug_info VARCHAR2(100);
315: BEGIN
316: -- Update the calling sequence
317: --
318: current_calling_sequence := 'JL_BR_AR_COLLECTION_DOCS_PKG.UPDATE_ROW<-' ||
319: X_calling_sequence;
320: debug_info := 'Update JL_BR_AR_COLLECTION_DOCS';
321: UPDATE JL_BR_AR_COLLECTION_DOCS
322: SET
402: APP_EXCEPTION.RAISE_EXCEPTION;
403:
404: END Update_Row;
405:
406: END JL_BR_AR_COLLECTION_DOCS_PKG;