[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.
1086:
1087:
1088: /*-------------------------------------------------------------------------
1089: INSERT_INVOICE_DIST
1090: This procedure inserts a distribution into ap_invoice distributions.
1091: --------------------------------------------------------------------------*/
1092:
1093: Procedure Insert_Invoice_dist (
1094: X_invoice_id IN NUMBER,
1095: X_invoice_line_number IN NUMBER,
1096: X_description IN VARCHAR2,
1097: x_calling_sequence IN VARCHAR2) IS
1098:
1099: l_invoice_distribution_id AP_INVOICE_DISTRIBUTIONS.INVOICE_DISTRIBUTION_ID%TYPE;
1100: current_calling_sequence VARCHAR2(2000);
1101: l_debug_info VARCHAR2(2000);
1102: l_copy_line_dff_flag VARCHAR2(1); -- Bug 6837035
1103:
1105:
1106: -- Update calling sequence
1107: current_calling_sequence := 'Insert_Invoice_Dist <-' ||X_calling_sequence;
1108:
1109: -- insert into ap_invoice_distributions
1110:
1111: l_debug_info := 'insert into ap_invoice_distributions';
1112: -- Bug 6837035 Retrieve the profile value to check if the DFF info should be
1113: -- copied onto distributions for imported lines.
1107: current_calling_sequence := 'Insert_Invoice_Dist <-' ||X_calling_sequence;
1108:
1109: -- insert into ap_invoice_distributions
1110:
1111: l_debug_info := 'insert into ap_invoice_distributions';
1112: -- Bug 6837035 Retrieve the profile value to check if the DFF info should be
1113: -- copied onto distributions for imported lines.
1114: l_copy_line_dff_flag := NVL(fnd_profile.value('AP_COPY_INV_LINE_DFF'),'N');
1115:
1112: -- Bug 6837035 Retrieve the profile value to check if the DFF info should be
1113: -- copied onto distributions for imported lines.
1114: l_copy_line_dff_flag := NVL(fnd_profile.value('AP_COPY_INV_LINE_DFF'),'N');
1115:
1116: INSERT INTO ap_invoice_distributions (
1117: batch_id,
1118: invoice_id,
1119: invoice_line_number,
1120: invoice_distribution_id,
1268: pay_awt_group_id) --bug 9689194
1269: SELECT g_batch_id, --batch_id
1270: x_invoice_id, --invoice_id
1271: x_invoice_line_number, --invoice_line_number
1272: ap_invoice_distributions_s.nextval, --invoice_distribution_id
1273: 1, --distribution_line_number
1274: ail.line_type_lookup_code, --line_type_lookup_code
1275: ail.description, --description
1276: 'OTHER_TO_RECEIPT', --dist_match_type
1440: AND gcc.code_combination_id = ail.default_dist_ccid
1441: AND rcv.transaction_id = ail.rcv_transaction_id;
1442:
1443:
1444: UPDATE ap_invoice_distributions_all id
1445: SET (project_id,
1446: task_id,
1447: expenditure_type,
1448: expenditure_item_date,
1468: 'SHOP FLOOR', PD.expenditure_organization_id,
1469: 'INVENTORY', PD.expenditure_organization_id), --expenditure_organization_id
1470: DECODE(PD.destination_type_code,
1471: 'EXPENSE', PD.award_id) --award_id
1472: FROM ap_invoice_distributions_all aid,
1473: rcv_transactions rcv,
1474: po_distributions_all pd
1475: WHERE aid.invoice_distribution_id = l_invoice_distribution_id
1476: AND aid.rcv_transaction_id = rcv.transaction_id
1478: WHERE id.invoice_distribution_id = l_invoice_distribution_id;
1479:
1480: --Bug 4539462 DBI logging
1481: AP_DBI_PKG.Maintain_DBI_Summary
1482: (p_table_name => 'AP_INVOICE_DISTRIBUTIONS',
1483: p_operation => 'I',
1484: p_key_value1 => x_invoice_id,
1485: p_key_value2 => l_invoice_distribution_id,
1486: p_calling_sequence => current_calling_sequence);