1: PACKAGE BODY JL_BR_AR_BORDEROS_PKG as
2: /* $Header: jlbrrbdb.pls 120.5 2003/09/18 20:24:26 vsidhart ship $ */
3:
4: PROCEDURE Insert_Row ( X_Rowid IN OUT NOCOPY VARCHAR2,
5:
30:
31: X_calling_sequence VARCHAR2,
32: X_ORG_ID NUMBER
33: ) IS
34: CURSOR C IS SELECT rowid FROM JL_BR_AR_BORDEROS
35: WHERE bordero_id = X_bordero_id;
36: current_calling_sequence VARCHAR2(2000);
37: debug_info VARCHAR2(100);
38:
38:
39: BEGIN
40: -- Update the calling sequence
41: --
42: current_calling_sequence := 'JL_BR_AR_BORDEROS_PKG.INSERT_ROW<-' ||
43: X_calling_sequence;
44:
45: debug_info := 'Insert into JL_BR_AR_BORDEROS';
46: INSERT INTO JL_BR_AR_BORDEROS
41: --
42: current_calling_sequence := 'JL_BR_AR_BORDEROS_PKG.INSERT_ROW<-' ||
43: X_calling_sequence;
44:
45: debug_info := 'Insert into JL_BR_AR_BORDEROS';
46: INSERT INTO JL_BR_AR_BORDEROS
47: (
48: BORDERO_ID,
49: SELECTION_CONTROL_ID,
42: current_calling_sequence := 'JL_BR_AR_BORDEROS_PKG.INSERT_ROW<-' ||
43: X_calling_sequence;
44:
45: debug_info := 'Insert into JL_BR_AR_BORDEROS';
46: INSERT INTO JL_BR_AR_BORDEROS
47: (
48: BORDERO_ID,
49: SELECTION_CONTROL_ID,
50: BANK_ACCT_USE_ID,
156: X_calling_sequence VARCHAR2
157: ) IS
158: CURSOR C IS
159: SELECT *
160: FROM JL_BR_AR_BORDEROS
161: WHERE rowid = X_Rowid
162: FOR UPDATE of bordero_id NOWAIT;
163: Recinfo C%ROWTYPE;
164:
167:
168: BEGIN
169: -- Update the calling sequence
170: --
171: current_calling_sequence := 'JL_BR_AR_BORDEROS_PKG.LOCK_ROW<-' ||
172: X_calling_sequence;
173: debug_info := 'Open cursor C';
174: OPEN C;
175: debug_info := 'Fetch cursor C';
292: debug_info VARCHAR2(100);
293: BEGIN
294: -- Update the calling sequence
295: --
296: current_calling_sequence := 'JL_BR_AR_BORDEROS_PKG.UPDATE_ROW<-' ||
297: X_calling_sequence;
298: debug_info := 'Update JL_BR_AR_BORDEROS';
299: UPDATE JL_BR_AR_BORDEROS
300: SET
294: -- Update the calling sequence
295: --
296: current_calling_sequence := 'JL_BR_AR_BORDEROS_PKG.UPDATE_ROW<-' ||
297: X_calling_sequence;
298: debug_info := 'Update JL_BR_AR_BORDEROS';
299: UPDATE JL_BR_AR_BORDEROS
300: SET
301: BORDERO_ID = X_BORDERO_ID ,
302: SELECTION_CONTROL_ID = X_SELECTION_CONTROL_ID ,
295: --
296: current_calling_sequence := 'JL_BR_AR_BORDEROS_PKG.UPDATE_ROW<-' ||
297: X_calling_sequence;
298: debug_info := 'Update JL_BR_AR_BORDEROS';
299: UPDATE JL_BR_AR_BORDEROS
300: SET
301: BORDERO_ID = X_BORDERO_ID ,
302: SELECTION_CONTROL_ID = X_SELECTION_CONTROL_ID ,
303: BANK_ACCT_USE_ID = X_BANK_ACCT_USE_ID ,
349: debug_info VARCHAR2(100);
350: BEGIN
351: -- Update the calling sequence
352: --
353: current_calling_sequence := 'JL_BR_AR_BORDEROS_PKG.DELETE_ROW<-' ||
354: X_calling_sequence;
355: debug_info := 'Delete from JL_BR_AR_BORDEROS';
356: DELETE FROM JL_BR_AR_BORDEROS
357: WHERE rowid = X_Rowid;
351: -- Update the calling sequence
352: --
353: current_calling_sequence := 'JL_BR_AR_BORDEROS_PKG.DELETE_ROW<-' ||
354: X_calling_sequence;
355: debug_info := 'Delete from JL_BR_AR_BORDEROS';
356: DELETE FROM JL_BR_AR_BORDEROS
357: WHERE rowid = X_Rowid;
358:
359: if (SQL%NOTFOUND) then
352: --
353: current_calling_sequence := 'JL_BR_AR_BORDEROS_PKG.DELETE_ROW<-' ||
354: X_calling_sequence;
355: debug_info := 'Delete from JL_BR_AR_BORDEROS';
356: DELETE FROM JL_BR_AR_BORDEROS
357: WHERE rowid = X_Rowid;
358:
359: if (SQL%NOTFOUND) then
360: Raise NO_DATA_FOUND;
373:
374: END Delete_Row;
375:
376:
377: END JL_BR_AR_BORDEROS_PKG;