1: PACKAGE BODY JL_BR_AP_CONSOLID_INVOICES_PKG as
2: /* $Header: jlbrpcib.pls 120.2 2003/04/26 00:29:12 thwon ship $ */
3:
4: PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
5:
51:
52: BEGIN
53: -- Update the calling sequence
54: --
55: current_calling_sequence := 'JL_BR_AP_CONSOLID_INVOICES_PKG.INSERT_ROW<-' ||
56: X_calling_sequence;
57:
58: debug_info := 'Insert into JL_BR_AP_CONSOLID_INVOICES';
59: INSERT INTO JL_BR_AP_CONSOLID_INVOICES(
218:
219: BEGIN
220: -- Update the calling sequence
221: --
222: current_calling_sequence := 'JL_BR_AP_CONSOLID_INVOICES_PKG.LOCK_ROW<-' ||
223: X_calling_sequence;
224: debug_info := 'Open cursor C';
225: OPEN C;
226: debug_info := 'Fetch cursor C';
402: debug_info VARCHAR2(100);
403: BEGIN
404: -- Update the calling sequence
405: --
406: current_calling_sequence := 'JL_BR_AP_CONSOLID_INVOICES_PKG.UPDATE_ROW<-' ||
407: X_calling_sequence;
408: debug_info := 'Update JL_BR_AP_CONSOLID_INVOICES';
409: UPDATE JL_BR_AP_CONSOLID_INVOICES
410: SET
474: debug_info VARCHAR2(100);
475: BEGIN
476: -- Update the calling sequence
477: --
478: current_calling_sequence := 'JL_BR_AP_CONSOLID_INVOICES_PKG.DELETE_ROW<-' ||
479: X_calling_sequence;
480: debug_info := 'Delete from JL_BR_AP_CONSOLID_INVOICES';
481: DELETE FROM JL_BR_AP_CONSOLID_INVOICES
482: WHERE rowid = X_Rowid;
498:
499: END Delete_Row;
500:
501:
502: END JL_BR_AP_CONSOLID_INVOICES_PKG;