1: PACKAGE BODY JL_BR_AR_OCCURRENCE_DOCS_PKG1 as
2: /* $Header: jlbrri2b.pls 120.2 2005/02/23 23:28:30 vsidhart noship $ */
3:
4: PROCEDURE Lock_Row(X_Rowid VARCHAR2,
5: X_Occurrence_Id NUMBER,
71: X_calling_sequence VARCHAR2) IS
72: --
73: CURSOR C IS
74: SELECT *
75: FROM JL_BR_AR_OCCURRENCE_DOCS
76: WHERE rowid = X_Rowid
77: FOR UPDATE of Document_Id NOWAIT;
78: Recinfo C%ROWTYPE;
79: --
81: debug_info VARCHAR2(100);
82:
83: BEGIN
84: -- Update the calling sequence
85: current_calling_sequence := 'JL_BR_AR_OCCURRENCE_DOCS_PKG.LOCK_ROW<-' ||
86: X_calling_sequence;
87: debug_info := 'Open cursor C';
88: OPEN C;
89: debug_info := 'Fetch cursor C';
304: debug_info VARCHAR2(100);
305: BEGIN
306: -- Update the calling sequence
307: --
308: current_calling_sequence := 'JL_BR_AR_OCCURRENCE_DOCS_PKG.DELETE_ROW<-' ||
309: X_calling_sequence;
310: debug_info := 'Delete from JL_BR_AR_OCCURRENCE_DOCS';
311: DELETE FROM JL_BR_AR_OCCURRENCE_DOCS
312: WHERE rowid = X_Rowid;
306: -- Update the calling sequence
307: --
308: current_calling_sequence := 'JL_BR_AR_OCCURRENCE_DOCS_PKG.DELETE_ROW<-' ||
309: X_calling_sequence;
310: debug_info := 'Delete from JL_BR_AR_OCCURRENCE_DOCS';
311: DELETE FROM JL_BR_AR_OCCURRENCE_DOCS
312: WHERE rowid = X_Rowid;
313: --
314: IF (SQL%NOTFOUND) THEN
307: --
308: current_calling_sequence := 'JL_BR_AR_OCCURRENCE_DOCS_PKG.DELETE_ROW<-' ||
309: X_calling_sequence;
310: debug_info := 'Delete from JL_BR_AR_OCCURRENCE_DOCS';
311: DELETE FROM JL_BR_AR_OCCURRENCE_DOCS
312: WHERE rowid = X_Rowid;
313: --
314: IF (SQL%NOTFOUND) THEN
315: RAISE NO_DATA_FOUND;
327: APP_EXCEPTION.RAISE_EXCEPTION;
328: --
329: END Delete_Row;
330:
331: END JL_BR_AR_OCCURRENCE_DOCS_PKG1;