1: PACKAGE BODY JL_BR_AR_REC_MET_ACCTS_EXT_PKG as
2: /* $Header: jlbrrdpb.pls 120.6 2005/06/22 04:25:15 appradha ship $ */
3:
4: PROCEDURE Insert_Row ( X_Rowid IN OUT NOCOPY VARCHAR2,
5:
63:
64: BEGIN
65: -- Update the calling sequence
66: --
67: current_calling_sequence := 'JL_BR_AR_REC_MET_ACCTS_EXT_PKG.INSERT_ROW<-' ||
68: X_calling_sequence;
69:
70: debug_info := 'Insert into JL_BR_AR_REC_MET_ACCTS_EXT';
71: INSERT INTO JL_BR_AR_REC_MET_ACCTS_EXT
266:
267: BEGIN
268: -- Update the calling sequence
269: --
270: current_calling_sequence := 'JL_BR_AR_REC_MET_ACCTS_EXT_PKG.LOCK_ROW<-' ||
271: X_calling_sequence;
272: debug_info := 'Open cursor C';
273: OPEN C;
274: debug_info := 'Fetch cursor C';
472: debug_info VARCHAR2(100);
473: BEGIN
474: -- Update the calling sequence
475: --
476: current_calling_sequence := 'JL_BR_AR_REC_MET_ACCTS_EXT_PKG.UPDATE_ROW<-' ||
477: X_calling_sequence;
478: debug_info := 'Update JL_BR_AR_REC_MET_ACCTS_EXT';
479: UPDATE JL_BR_AR_REC_MET_ACCTS_EXT
480: SET
559: debug_info VARCHAR2(100);
560: BEGIN
561: -- Update the calling sequence
562: --
563: current_calling_sequence := 'JL_BR_AR_REC_MET_ACCTS_EXT_PKG.DELETE_ROW<-' ||
564: X_calling_sequence;
565: debug_info := 'Delete from JL_BR_AR_REC_MET_ACCTS_EXT';
566: DELETE FROM JL_BR_AR_REC_MET_ACCTS_EXT
567: WHERE rowid = X_Rowid;
584: END Delete_Row;
585:
586:
587:
588: END JL_BR_AR_REC_MET_ACCTS_EXT_PKG;