DBA Data[Home] [Help]

APPS.JL_BR_AR_BORDEROS_PKG dependencies on JL_BR_AR_BORDEROS

Line 1: PACKAGE BODY JL_BR_AR_BORDEROS_PKG as

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:

Line 34: CURSOR C IS SELECT rowid FROM JL_BR_AR_BORDEROS

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:

Line 42: current_calling_sequence := 'JL_BR_AR_BORDEROS_PKG.INSERT_ROW<-' ||

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

Line 45: debug_info := '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,

Line 46: INSERT INTO JL_BR_AR_BORDEROS

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,

Line 160: FROM JL_BR_AR_BORDEROS

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:

Line 171: current_calling_sequence := 'JL_BR_AR_BORDEROS_PKG.LOCK_ROW<-' ||

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';

Line 296: current_calling_sequence := 'JL_BR_AR_BORDEROS_PKG.UPDATE_ROW<-' ||

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

Line 298: debug_info := 'Update JL_BR_AR_BORDEROS';

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 ,

Line 299: UPDATE JL_BR_AR_BORDEROS

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 ,

Line 353: current_calling_sequence := 'JL_BR_AR_BORDEROS_PKG.DELETE_ROW<-' ||

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;

Line 355: debug_info := 'Delete from JL_BR_AR_BORDEROS';

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

Line 356: DELETE FROM JL_BR_AR_BORDEROS

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;

Line 377: END JL_BR_AR_BORDEROS_PKG;

373:
374: END Delete_Row;
375:
376:
377: END JL_BR_AR_BORDEROS_PKG;