1: PACKAGE BODY AP_AID_TABLE_HANDLER_PKG as
2: /* $Header: apaidthb.pls 120.10.12020000.2 2012/07/04 07:49:44 sbonala ship $ */
3:
4: -------------------------------------------------------------------
5: PROCEDURE CHECK_UNIQUE (
15:
16: BEGIN
17: -- Update the calling sequence
18:
19: current_calling_sequence := 'AP_AID_TABLE_HANDLER_PKG.CHECK_UNIQUE<-'||
20: p_Calling_Sequence;
21:
22: debug_info := 'Select from ap_invoice_distributions';
23:
210: BEGIN
211:
212: -- Update the calling sequence
213:
214: current_calling_sequence := 'AP_AID_TABLE_HANDLER_PKG.Insert_Row<-'
215: ||p_Calling_Sequence;
216:
217: -- Check for uniqueness of the distribution line number
218:
215: ||p_Calling_Sequence;
216:
217: -- Check for uniqueness of the distribution line number
218:
219: AP_AID_TABLE_HANDLER_PKG.CHECK_UNIQUE(
220: p_Rowid,
221: p_Invoice_Id,
222: p_Invoice_Line_Number,
223: p_Distribution_Line_Number,
220: p_Rowid,
221: p_Invoice_Id,
222: p_Invoice_Line_Number,
223: p_Distribution_Line_Number,
224: 'AP_AID_TABLE_HANDLER_PKG.Insert_Row');
225:
226: debug_info := 'Open cursor C2';
227: OPEN C2;
228: debug_info := 'Fetch cursor C2';
702: BEGIN
703:
704: -- Update the calling sequence
705:
706: current_calling_sequence := 'AP_AID_TABLE_HANDLER_PKG.Update_Row<-'
707: ||p_Calling_Sequence;
708:
709: -- Check for uniqueness of the distribution line number
710:
707: ||p_Calling_Sequence;
708:
709: -- Check for uniqueness of the distribution line number
710:
711: AP_AID_TABLE_HANDLER_PKG.CHECK_UNIQUE(
712: p_Rowid,
713: p_Invoice_Id,
714: p_Invoice_Line_Number,
715: p_Distribution_Line_Number,
712: p_Rowid,
713: p_Invoice_Id,
714: p_Invoice_Line_Number,
715: p_Distribution_Line_Number,
716: 'AP_AID_TABLE_HANDLER_PKG.Update_Row');
717:
718: debug_info := 'Update ap_invoice_distributions';
719:
720:
876: BEGIN
877:
878: -- Update the calling sequence
879:
880: current_calling_sequence := 'AP_AID_TABLE_HANDLER_PKG.Delete_Row<-'
881: ||p_Calling_Sequence;
882:
883: SELECT invoice_distribution_id, invoice_id
884: INTO l_invoice_distribution_id, l_invoice_id
911: APP_EXCEPTION.RAISE_EXCEPTION;
912:
913: END Delete_Row;
914:
915: END AP_AID_TABLE_HANDLER_PKG;