1: PACKAGE BODY JL_BR_AR_SELECT_CONTROLS_PKG as
2: /* $Header: jlbrrscb.pls 120.4 2003/07/11 18:58:15 appradha ship $ */
3:
4: PROCEDURE Insert_Row ( X_Rowid IN OUT NOCOPY VARCHAR2,
5:
58:
59: BEGIN
60: -- Update the calling sequence
61: --
62: current_calling_sequence := 'JL_BR_AR_SELECT_CONTROLS_PKG.INSERT_ROW<-' ||
63: X_calling_sequence;
64:
65: debug_info := 'Insert into JL_BR_AR_SELECT_CONTROLS';
66: INSERT INTO JL_BR_AR_SELECT_CONTROLS
247:
248: BEGIN
249: -- Update the calling sequence
250: --
251: current_calling_sequence := 'JL_BR_AR_SELECT_CONTROLS_PKG.LOCK_ROW<-' ||
252: X_calling_sequence;
253: debug_info := 'Open cursor C';
254: OPEN C;
255: debug_info := 'Fetch cursor C';
451: debug_info VARCHAR2(100);
452: BEGIN
453: -- Update the calling sequence
454: --
455: current_calling_sequence := 'JL_BR_AR_SELECT_CONTROLS_PKG.UPDATE_ROW<-' ||
456: X_calling_sequence;
457: debug_info := 'Update JL_BR_AR_SELECT_CONTROLS';
458: UPDATE JL_BR_AR_SELECT_CONTROLS
459: SET
528: debug_info VARCHAR2(100);
529: BEGIN
530: -- Update the calling sequence
531: --
532: current_calling_sequence := 'JL_BR_AR_SELECT_CONTROLS_PKG.DELETE_ROW<-' ||
533: X_calling_sequence;
534: debug_info := 'Delete from JL_BR_AR_SELECT_CONTROLS';
535: DELETE FROM JL_BR_AR_SELECT_CONTROLS
536: WHERE rowid = X_Rowid;
552:
553: END Delete_Row;
554:
555:
556: END JL_BR_AR_SELECT_CONTROLS_PKG;