83: ccr_rec_list ccr_rec_type;
84: l_ind NUMBER :=1;
85: l_Vendor_Site_Reg_Expired VARCHAR2(1) :='N';
86: l_system_user NUMBER :=5;
87: l_holds AP_APPROVAL_PKG.HOLDSARRAY;
88: l_hold_count AP_APPROVAL_PKG.COUNTARRAY;
89: l_release_count AP_APPROVAL_PKG.COUNTARRAY;
90: l_calling_sequence VARCHAR2(2000);
91: l_debug_info varchar2(2000);
84: l_ind NUMBER :=1;
85: l_Vendor_Site_Reg_Expired VARCHAR2(1) :='N';
86: l_system_user NUMBER :=5;
87: l_holds AP_APPROVAL_PKG.HOLDSARRAY;
88: l_hold_count AP_APPROVAL_PKG.COUNTARRAY;
89: l_release_count AP_APPROVAL_PKG.COUNTARRAY;
90: l_calling_sequence VARCHAR2(2000);
91: l_debug_info varchar2(2000);
92:
85: l_Vendor_Site_Reg_Expired VARCHAR2(1) :='N';
86: l_system_user NUMBER :=5;
87: l_holds AP_APPROVAL_PKG.HOLDSARRAY;
88: l_hold_count AP_APPROVAL_PKG.COUNTARRAY;
89: l_release_count AP_APPROVAL_PKG.COUNTARRAY;
90: l_calling_sequence VARCHAR2(2000);
91: l_debug_info varchar2(2000);
92:
93:
121: ,ccr_rec_info.remit_to_supplier_site_id_tab
122:
123: LIMIT 1000;
124:
125: l_debug_info := 'CALLING AP_APPROVAL_PKG.CHECK_CCR_VENDOR ';
126: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
127: fnd_file.put_line(FND_FILE.LOG,l_debug_info);
128: END IF;
129:
128: END IF;
129:
130: for i in 1 .. ccr_rec_info.invoice_id_tab.count loop
131:
132: AP_APPROVAL_PKG.CHECK_CCR_VENDOR(
133: P_INVOICE_ID => ccr_rec_info.invoice_id_tab(i),
134: P_VENDOR_ID => ccr_rec_info.vendor_id_tab(i),
135: P_VENDOR_SITE_ID => ccr_rec_info.vendor_site_id_tab(i),
136: P_REMIT_TO_SUPPLIER_SITE_ID => ccr_rec_info.remit_to_supplier_site_id_tab(i),