1: PACKAGE BODY AP_BATCHES_PKG as
2: /* $Header: apibatcb.pls 120.3 2004/10/28 00:00:52 pjena noship $ */
3:
4:
5: -----------------------------------------------------------------------
50:
51: begin
52: --Update the calling sequence
53: --
54: current_calling_sequence := 'AP_BATCHES_PKG.CHECK_UNIQUE<-' ||
55: X_calling_sequence;
56:
57: debug_info := 'Count rows with this batch_name';
58: select count(1)
131:
132: BEGIN
133: --Update the calling sequence
134: --
135: current_calling_sequence := 'AP_BATCHES_PKG.INSERT_ROW<-' ||
136: X_calling_sequence;
137:
138: -- Check uniqueness first
139: ap_batches_pkg.check_unique(X_ROWID,
135: current_calling_sequence := 'AP_BATCHES_PKG.INSERT_ROW<-' ||
136: X_calling_sequence;
137:
138: -- Check uniqueness first
139: ap_batches_pkg.check_unique(X_ROWID,
140: X_BATCH_NAME,
141: X_calling_sequence => current_calling_sequence);
142:
143: debug_info := 'Insert into AP_BATCHES';
296:
297: BEGIN
298: -- Update the calling sequence
299: --
300: current_calling_sequence := 'AP_BATCHES_PKG.LOCK_ROW<-' ||
301: X_calling_sequence;
302: debug_info := 'Open cursor C';
303: OPEN C;
304: debug_info := 'Fetch cursor C';
477: debug_info VARCHAR2(100);
478: BEGIN
479: --Update the calling sequence
480: --
481: current_calling_sequence := 'AP_BATCHES_PKG.UPDATE_ROW<-' ||
482: X_calling_sequence;
483:
484: -- Check uniqueness first
485: ap_batches_pkg.check_unique(X_ROWID,
481: current_calling_sequence := 'AP_BATCHES_PKG.UPDATE_ROW<-' ||
482: X_calling_sequence;
483:
484: -- Check uniqueness first
485: ap_batches_pkg.check_unique(X_ROWID,
486: X_BATCH_NAME,
487: X_calling_sequence => current_calling_sequence);
488:
489: debug_info := 'Update AP_BATCHES_ALL';
551: debug_info VARCHAR2(100);
552: BEGIN
553: -- Update the calling sequence
554: --
555: current_calling_sequence := 'AP_BATCHES_PKG.DELETE_ROW<-' ||
556: X_calling_sequence;
557: debug_info := 'Delete from AP_BATCHES';
558: DELETE FROM AP_BATCHES_ALL
559: WHERE rowid = X_Rowid;
575:
576: END Delete_Row;
577:
578:
579: END AP_BATCHES_PKG;