[Home] [Help]
5: /*
6: Procedure OTHR_CHRG_MATCH does the actual matching (linking) of a
7: standard Invoice/ CM/DM to a particular rcv transaction. It creates the
8: actual Charge Lines in AP_INVOICE_LINES and 1 invoice distribution
9: per charge line in AP_INVOICE_DISTRIBUTIONS and stores the associated
10: rcv_transaction_id for that line. One Charge Invoice line will be created
11: in AP_INVOICE_LINES for Receipt/Receipt Line the user selects to match to
12: in the Other Charge Matching Window. Invoice Distributions will be generated
13: immediately during the matching, 1 per invoice line.
1020:
1021:
1022: /*-------------------------------------------------------------------------
1023: INSERT_INVOICE_DIST
1024: This procedure inserts a distribution into ap_invoice distributions.
1025: --------------------------------------------------------------------------*/
1026:
1027: Procedure Insert_Invoice_dist (
1028: X_invoice_id IN NUMBER,
1029: X_invoice_line_number IN NUMBER,
1030: X_description IN VARCHAR2,
1031: x_calling_sequence IN VARCHAR2) IS
1032:
1033: l_invoice_distribution_id AP_INVOICE_DISTRIBUTIONS.INVOICE_DISTRIBUTION_ID%TYPE;
1034: current_calling_sequence VARCHAR2(2000);
1035: l_debug_info VARCHAR2(2000);
1036:
1037: Begin
1038:
1039: -- Update calling sequence
1040: current_calling_sequence := 'Insert_Invoice_Dist <-' ||X_calling_sequence;
1041:
1042: -- insert into ap_invoice_distributions
1043:
1044: l_debug_info := 'insert into ap_invoice_distributions';
1045:
1046: INSERT INTO ap_invoice_distributions (
1040: current_calling_sequence := 'Insert_Invoice_Dist <-' ||X_calling_sequence;
1041:
1042: -- insert into ap_invoice_distributions
1043:
1044: l_debug_info := 'insert into ap_invoice_distributions';
1045:
1046: INSERT INTO ap_invoice_distributions (
1047: batch_id,
1048: invoice_id,
1042: -- insert into ap_invoice_distributions
1043:
1044: l_debug_info := 'insert into ap_invoice_distributions';
1045:
1046: INSERT INTO ap_invoice_distributions (
1047: batch_id,
1048: invoice_id,
1049: invoice_line_number,
1050: invoice_distribution_id,
1195: rcv_charge_addition_flag)
1196: SELECT g_batch_id, --batch_id
1197: x_invoice_id, --invoice_id
1198: x_invoice_line_number, --invoice_line_number
1199: ap_invoice_distributions_s.nextval, --invoice_distribution_id
1200: 1, --distribution_line_number
1201: ail.line_type_lookup_code, --line_type_lookup_code
1202: ail.description, --description
1203: 'OTHER_TO_RECEIPT', --dist_match_type
1351: AND gcc.code_combination_id = ail.default_dist_ccid
1352: AND rcv.transaction_id = ail.rcv_transaction_id;
1353:
1354:
1355: UPDATE ap_invoice_distributions_all id
1356: SET (project_id,
1357: task_id,
1358: expenditure_type,
1359: expenditure_item_date,
1379: 'SHOP FLOOR', PD.expenditure_organization_id,
1380: 'INVENTORY', PD.expenditure_organization_id), --expenditure_organization_id
1381: DECODE(PD.destination_type_code,
1382: 'EXPENSE', PD.award_id) --award_id
1383: FROM ap_invoice_distributions_all aid,
1384: rcv_transactions rcv,
1385: po_distributions_all pd
1386: WHERE aid.invoice_distribution_id = l_invoice_distribution_id
1387: AND aid.rcv_transaction_id = rcv.transaction_id
1389: WHERE id.invoice_distribution_id = l_invoice_distribution_id;
1390:
1391: --Bug 4539462 DBI logging
1392: AP_DBI_PKG.Maintain_DBI_Summary
1393: (p_table_name => 'AP_INVOICE_DISTRIBUTIONS',
1394: p_operation => 'I',
1395: p_key_value1 => x_invoice_id,
1396: p_key_value2 => l_invoice_distribution_id,
1397: p_calling_sequence => current_calling_sequence);