1: PACKAGE BODY JL_BR_AR_COLLECTION_DOC2_PKG as
2: /* $Header: jlbrrc2b.pls 120.3 2005/02/23 23:27:47 vsidhart ship $ */
3:
4: PROCEDURE Lock_Row ( X_Rowid VARCHAR2,
5:
80:
81: BEGIN
82: -- Update the calling sequence
83: --
84: current_calling_sequence := 'JL_BR_AR_COLLECTION_DOC2_PKG.LOCK_ROW<-' ||
85: X_calling_sequence;
86: debug_info := 'Open cursor C';
87: OPEN C;
88: debug_info := 'Fetch cursor C';
276: debug_info VARCHAR2(100);
277: BEGIN
278: -- Update the calling sequence
279: --
280: current_calling_sequence := 'JL_BR_AR_COLLECTION_DOC2_PKG.DELETE_ROW<-' ||
281: X_calling_sequence;
282: debug_info := 'Delete from JL_BR_AR_COLLECTION_DOCS';
283: DELETE FROM JL_BR_AR_COLLECTION_DOCS
284: WHERE rowid = X_Rowid;
300:
301: END Delete_Row;
302:
303:
304: END JL_BR_AR_COLLECTION_DOC2_PKG;