12: X_Inactive_Date DATE DEFAULT NULL,
13: X_calling_sequence IN VARCHAR2
14: ) IS
15: l_Batch_Set_Id NUMBER;
16: CURSOR C IS SELECT rowid FROM ap_pbatch_sets
17: WHERE batch_set_id = l_Batch_Set_Id;
18: current_calling_sequence VARCHAR2(2000);
19: debug_info VARCHAR2(100);
20:
25: 'AP_PBATCH_SET_HEADER_PKG.INSERT_ROW<-'||X_Calling_Sequence;
26:
27: debug_info := 'Get next Batch set Id';
28:
29: select ap_pbatch_sets_s.nextval
30: into l_batch_set_id
31: from sys.dual;
32:
33: debug_info := 'Insert into ap_pbatch_sets';
29: select ap_pbatch_sets_s.nextval
30: into l_batch_set_id
31: from sys.dual;
32:
33: debug_info := 'Insert into ap_pbatch_sets';
34: INSERT INTO ap_pbatch_sets(
35: batch_set_name,
36: batch_set_id,
37: inactive_date,
30: into l_batch_set_id
31: from sys.dual;
32:
33: debug_info := 'Insert into ap_pbatch_sets';
34: INSERT INTO ap_pbatch_sets(
35: batch_set_name,
36: batch_set_id,
37: inactive_date,
38: last_update_date,
86:
87: ) IS
88: CURSOR C IS
89: SELECT *
90: FROM ap_pbatch_sets
91: WHERE rowid = X_Rowid
92: FOR UPDATE of Batch_Set_Name NOWAIT;
93: Recinfo C%ROWTYPE;
94: current_calling_sequence VARCHAR2(2000);
159: --
160: current_calling_sequence :=
161: 'AP_PBATCH_SET_HEADER_PKG.UPDATE_ROW<-'||X_Calling_Sequence;
162:
163: debug_info := 'Update ap_pbatch_sets';
164: UPDATE ap_pbatch_sets
165: SET
166: batch_set_name = X_Batch_Set_Name,
167: batch_set_id = X_Batch_Set_Id,
160: current_calling_sequence :=
161: 'AP_PBATCH_SET_HEADER_PKG.UPDATE_ROW<-'||X_Calling_Sequence;
162:
163: debug_info := 'Update ap_pbatch_sets';
164: UPDATE ap_pbatch_sets
165: SET
166: batch_set_name = X_Batch_Set_Name,
167: batch_set_id = X_Batch_Set_Id,
168: inactive_date = X_Inactive_Date,
200: --
201: current_calling_sequence :=
202: 'AP_PBATCH_SET_HEADER_PKG.DELETE_ROW<-'||X_Calling_Sequence;
203:
204: debug_info := 'Delete from ap_pbatch_sets';
205: DELETE FROM ap_pbatch_sets
206: WHERE rowid = X_Rowid;
207:
208: if (SQL%NOTFOUND) then
201: current_calling_sequence :=
202: 'AP_PBATCH_SET_HEADER_PKG.DELETE_ROW<-'||X_Calling_Sequence;
203:
204: debug_info := 'Delete from ap_pbatch_sets';
205: DELETE FROM ap_pbatch_sets
206: WHERE rowid = X_Rowid;
207:
208: if (SQL%NOTFOUND) then
209: Raise NO_DATA_FOUND;