58:
59: debug_info := 'Count rows with this batch_name';
60: select count(1)
61: into dummy
62: from ap_batches_all
63: where batch_name = X_BATCH_NAME
64: and ((X_ROWID is null) or (rowid <> X_ROWID));
65:
66: if (dummy >= 1) then
125: X_Org_Id NUMBER,
126: X_calling_sequence IN VARCHAR2,
127: X_gl_date DATE -- **1
128: ) IS
129: CURSOR C IS SELECT rowid FROM AP_BATCHES_ALL
130: WHERE batch_id = X_Batch_Id;
131: current_calling_sequence VARCHAR2(2000);
132: debug_info VARCHAR2(100);
133:
142: X_BATCH_NAME,
143: X_calling_sequence => current_calling_sequence);
144:
145: debug_info := 'Insert into AP_BATCHES';
146: INSERT INTO AP_BATCHES_ALL(
147: batch_id,
148: batch_name,
149: batch_date,
150: last_update_date,
287: X_gl_date DATE -- **1
288: ) IS
289: CURSOR C IS
290: SELECT *
291: FROM AP_BATCHES_ALL
292: WHERE rowid = X_Rowid
293: FOR UPDATE of Batch_Id NOWAIT;
294: Recinfo C%ROWTYPE;
295: current_calling_sequence VARCHAR2(2000);
487: ap_batches_pkg.check_unique(X_ROWID,
488: X_BATCH_NAME,
489: X_calling_sequence => current_calling_sequence);
490:
491: debug_info := 'Update AP_BATCHES_ALL';
492: UPDATE AP_BATCHES_ALL
493: SET
494: batch_id = X_Batch_Id,
495: batch_name = X_Batch_Name,
488: X_BATCH_NAME,
489: X_calling_sequence => current_calling_sequence);
490:
491: debug_info := 'Update AP_BATCHES_ALL';
492: UPDATE AP_BATCHES_ALL
493: SET
494: batch_id = X_Batch_Id,
495: batch_name = X_Batch_Name,
496: batch_date = X_Batch_Date,
556: --
557: current_calling_sequence := 'AP_BATCHES_PKG.DELETE_ROW<-' ||
558: X_calling_sequence;
559: debug_info := 'Delete from AP_BATCHES';
560: DELETE FROM AP_BATCHES_ALL
561: WHERE rowid = X_Rowid;
562:
563: if (SQL%NOTFOUND) then
564: Raise NO_DATA_FOUND;