1: PACKAGE BODY JL_BR_AP_COLLECTION_DOCS_PKG as
2: /* $Header: jlbrpecb.pls 120.4 2006/02/24 03:46:56 amohiudd ship $ */
3:
4: PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
5:
89:
90: BEGIN
91: -- Update the calling sequence
92: --
93: current_calling_sequence := 'JL_BR_AP_COLLECTION_DOCS_PKG.INSERT_ROW<-' ||
94: X_calling_sequence;
95:
96: debug_info := 'Insert into JL_BR_AP_COLLECTION_DOCS';
97: INSERT INTO JL_BR_AP_COLLECTION_DOCS
371:
372: BEGIN
373: -- Update the calling sequence
374: --
375: current_calling_sequence := 'JL_BR_AP_COLLECTION_DOCS_PKG.LOCK_ROW<-' ||
376: X_calling_sequence;
377: debug_info := 'Open cursor C';
378: OPEN C;
379: debug_info := 'Fetch cursor C';
610:
611: END Lock_Row;
612:
613:
614: END JL_BR_AP_COLLECTION_DOCS_PKG;