403: X_calling_sequence IN VARCHAR2
404:
405: ) IS
406:
407: l_invoice_amount AP_INVOICES_ALL.INVOICE_AMOUNT%TYPE;
408: l_payment_status_flag AP_INVOICES_ALL.PAYMENT_STATUS_FLAG%TYPE;
409: l_invoice_type_lookup_code AP_INVOICES_ALL.INVOICE_TYPE_LOOKUP_CODE%TYPE;
410: l_tax_hold_codes AP_ETAX_SERVICES_PKG.Rel_Hold_Codes_Type;
411: l_approval_status VARCHAR2(100);
404:
405: ) IS
406:
407: l_invoice_amount AP_INVOICES_ALL.INVOICE_AMOUNT%TYPE;
408: l_payment_status_flag AP_INVOICES_ALL.PAYMENT_STATUS_FLAG%TYPE;
409: l_invoice_type_lookup_code AP_INVOICES_ALL.INVOICE_TYPE_LOOKUP_CODE%TYPE;
410: l_tax_hold_codes AP_ETAX_SERVICES_PKG.Rel_Hold_Codes_Type;
411: l_approval_status VARCHAR2(100);
412: l_success BOOLEAN := TRUE;
405: ) IS
406:
407: l_invoice_amount AP_INVOICES_ALL.INVOICE_AMOUNT%TYPE;
408: l_payment_status_flag AP_INVOICES_ALL.PAYMENT_STATUS_FLAG%TYPE;
409: l_invoice_type_lookup_code AP_INVOICES_ALL.INVOICE_TYPE_LOOKUP_CODE%TYPE;
410: l_tax_hold_codes AP_ETAX_SERVICES_PKG.Rel_Hold_Codes_Type;
411: l_approval_status VARCHAR2(100);
412: l_success BOOLEAN := TRUE;
413: l_error_code VARCHAR2(4000);
522: invoice_type_lookup_code
523: INTO l_invoice_amount,
524: l_payment_status_flag,
525: l_invoice_type_lookup_code
526: FROM ap_invoices
527: WHERE invoice_id = x_invoice_id;
528:
529: l_approval_status := ap_invoices_pkg.get_approval_status(x_invoice_id,
530: l_invoice_amount,
525: l_invoice_type_lookup_code
526: FROM ap_invoices
527: WHERE invoice_id = x_invoice_id;
528:
529: l_approval_status := ap_invoices_pkg.get_approval_status(x_invoice_id,
530: l_invoice_amount,
531: l_payment_status_flag,
532: l_invoice_type_lookup_code);
533:
625: END Delete_Row;
626:
627: -----------------------------------------------------------------------
628: -- PROCEDURE insert_single_hold inserts a single record into
629: -- the AP_HOLDS table given a record in ap_invoices.
630: -----------------------------------------------------------------------
631: PROCEDURE insert_single_hold (X_invoice_id IN number,
632: X_hold_lookup_code IN varchar2,
633: X_hold_type IN varchar2 DEFAULT NULL,
738: FND_GLOBAL.user_id, -- 7299826
739: nvl(X_held_by,FND_GLOBAL.user_id), -- 7299826
740: l_hold_reason,
741: ORG_ID,L_HOLD_ID
742: FROM ap_invoices
743: WHERE invoice_id = X_invoice_id
744: AND not exists
745: (SELECT 'Already on this hold'
746: FROM ap_holds
807: IS
808: current_calling_sequence VARCHAR2(2000);
809: debug_info VARCHAR2(100);
810: l_hold_reason ap_hold_codes.description%TYPE;
811: l_last_updated_by ap_invoices.last_updated_by%TYPE;
812: l_last_update_login ap_invoices.last_update_login%TYPE;
813:
814: cursor invoice_who_cursor is
815: select last_updated_by,
808: current_calling_sequence VARCHAR2(2000);
809: debug_info VARCHAR2(100);
810: l_hold_reason ap_hold_codes.description%TYPE;
811: l_last_updated_by ap_invoices.last_updated_by%TYPE;
812: l_last_update_login ap_invoices.last_update_login%TYPE;
813:
814: cursor invoice_who_cursor is
815: select last_updated_by,
816: last_update_login
813:
814: cursor invoice_who_cursor is
815: select last_updated_by,
816: last_update_login
817: from ap_invoices
818: where invoice_id = X_invoice_id;
819:
820: BEGIN
821:
824: current_calling_sequence :=
825: 'AP_HOLDS_PKG.release_single_hold<-'||
826: X_calling_sequence;
827:
828: debug_info := 'Select from AP_INVOICES';
829:
830: open invoice_who_cursor;
831: fetch invoice_who_cursor into l_last_updated_by, l_last_update_login;
832: close invoice_who_cursor;
911: current_calling_sequence VARCHAR2(2000);
912: debug_info VARCHAR2(100);
913:
914: cursor l_invoice_status_cursor is
915: select ap_invoices_pkg.get_holds_count(invoice_id),
916: ap_invoices_pkg.get_approval_status(
917: invoice_id,
918: invoice_amount,
919: payment_status_flag,
912: debug_info VARCHAR2(100);
913:
914: cursor l_invoice_status_cursor is
915: select ap_invoices_pkg.get_holds_count(invoice_id),
916: ap_invoices_pkg.get_approval_status(
917: invoice_id,
918: invoice_amount,
919: payment_status_flag,
920: invoice_type_lookup_code)
917: invoice_id,
918: invoice_amount,
919: payment_status_flag,
920: invoice_type_lookup_code)
921: from ap_invoices
922: where invoice_id = X_invoice_id;
923:
924: cursor tax_holds_cursor is
925: select hold_lookup_code