40: p_endDate IN DATE DEFAULT NULL,
41: p_invoiceId OUT NOCOPY NUMBER )
42: IS
43: l_count NUMBER := 0;
44: l_sum AP_WEB_DB_AP_INT_PKG.invIntf_invAmt := 0;
45: l_card_trxn_id AP_WEB_DB_CCARD_PKG.ccTrxn_trxID;
46: l_transaction_date DATE; --3028505, renamed this variable
47: l_invoice_id AP_WEB_DB_AP_INT_PKG.invLines_invID;
48: l_invoice_id_temp AP_WEB_DB_AP_INT_PKG.invLines_invID; -- Bug 6687752
43: l_count NUMBER := 0;
44: l_sum AP_WEB_DB_AP_INT_PKG.invIntf_invAmt := 0;
45: l_card_trxn_id AP_WEB_DB_CCARD_PKG.ccTrxn_trxID;
46: l_transaction_date DATE; --3028505, renamed this variable
47: l_invoice_id AP_WEB_DB_AP_INT_PKG.invLines_invID;
48: l_invoice_id_temp AP_WEB_DB_AP_INT_PKG.invLines_invID; -- Bug 6687752
49: l_invoice_line_id AP_WEB_DB_AP_INT_PKG.invLines_invLineID;
50: l_party_id ap_suppliers.party_id%TYPE;
51: l_party_site_id ap_supplier_sites.party_site_id%TYPE;
44: l_sum AP_WEB_DB_AP_INT_PKG.invIntf_invAmt := 0;
45: l_card_trxn_id AP_WEB_DB_CCARD_PKG.ccTrxn_trxID;
46: l_transaction_date DATE; --3028505, renamed this variable
47: l_invoice_id AP_WEB_DB_AP_INT_PKG.invLines_invID;
48: l_invoice_id_temp AP_WEB_DB_AP_INT_PKG.invLines_invID; -- Bug 6687752
49: l_invoice_line_id AP_WEB_DB_AP_INT_PKG.invLines_invLineID;
50: l_party_id ap_suppliers.party_id%TYPE;
51: l_party_site_id ap_supplier_sites.party_site_id%TYPE;
52: l_vendor_id AP_WEB_DB_CCARD_PKG.cardProgs_vendorID;
45: l_card_trxn_id AP_WEB_DB_CCARD_PKG.ccTrxn_trxID;
46: l_transaction_date DATE; --3028505, renamed this variable
47: l_invoice_id AP_WEB_DB_AP_INT_PKG.invLines_invID;
48: l_invoice_id_temp AP_WEB_DB_AP_INT_PKG.invLines_invID; -- Bug 6687752
49: l_invoice_line_id AP_WEB_DB_AP_INT_PKG.invLines_invLineID;
50: l_party_id ap_suppliers.party_id%TYPE;
51: l_party_site_id ap_supplier_sites.party_site_id%TYPE;
52: l_vendor_id AP_WEB_DB_CCARD_PKG.cardProgs_vendorID;
53: l_vendor_site_id AP_WEB_DB_CCARD_PKG.cardProgs_vendorSiteID;
51: l_party_site_id ap_supplier_sites.party_site_id%TYPE;
52: l_vendor_id AP_WEB_DB_CCARD_PKG.cardProgs_vendorID;
53: l_vendor_site_id AP_WEB_DB_CCARD_PKG.cardProgs_vendorSiteID;
54: l_terms_id AP_TERMS.TERM_ID%TYPE; -- Bug: 7234744 populate terms-id in the interface table.
55: l_ccid AP_WEB_DB_AP_INT_PKG.invLines_distCodeCombID;
56: l_invoice_currency_code AP_WEB_DB_AP_INT_PKG.invIntf_invCurrCode;
57: l_pay_group_lookup_code AP_WEB_DB_AP_INT_PKG.vendorSites_payGroupLookupCode;
58: l_accts_pay_ccid AP_WEB_DB_AP_INT_PKG.invIntf_acctsPayCCID;
59:
52: l_vendor_id AP_WEB_DB_CCARD_PKG.cardProgs_vendorID;
53: l_vendor_site_id AP_WEB_DB_CCARD_PKG.cardProgs_vendorSiteID;
54: l_terms_id AP_TERMS.TERM_ID%TYPE; -- Bug: 7234744 populate terms-id in the interface table.
55: l_ccid AP_WEB_DB_AP_INT_PKG.invLines_distCodeCombID;
56: l_invoice_currency_code AP_WEB_DB_AP_INT_PKG.invIntf_invCurrCode;
57: l_pay_group_lookup_code AP_WEB_DB_AP_INT_PKG.vendorSites_payGroupLookupCode;
58: l_accts_pay_ccid AP_WEB_DB_AP_INT_PKG.invIntf_acctsPayCCID;
59:
60: l_debugInfo VARCHAR2(2000);
53: l_vendor_site_id AP_WEB_DB_CCARD_PKG.cardProgs_vendorSiteID;
54: l_terms_id AP_TERMS.TERM_ID%TYPE; -- Bug: 7234744 populate terms-id in the interface table.
55: l_ccid AP_WEB_DB_AP_INT_PKG.invLines_distCodeCombID;
56: l_invoice_currency_code AP_WEB_DB_AP_INT_PKG.invIntf_invCurrCode;
57: l_pay_group_lookup_code AP_WEB_DB_AP_INT_PKG.vendorSites_payGroupLookupCode;
58: l_accts_pay_ccid AP_WEB_DB_AP_INT_PKG.invIntf_acctsPayCCID;
59:
60: l_debugInfo VARCHAR2(2000);
61: l_payment_due_code VARCHAR2(15);
54: l_terms_id AP_TERMS.TERM_ID%TYPE; -- Bug: 7234744 populate terms-id in the interface table.
55: l_ccid AP_WEB_DB_AP_INT_PKG.invLines_distCodeCombID;
56: l_invoice_currency_code AP_WEB_DB_AP_INT_PKG.invIntf_invCurrCode;
57: l_pay_group_lookup_code AP_WEB_DB_AP_INT_PKG.vendorSites_payGroupLookupCode;
58: l_accts_pay_ccid AP_WEB_DB_AP_INT_PKG.invIntf_acctsPayCCID;
59:
60: l_debugInfo VARCHAR2(2000);
61: l_payment_due_code VARCHAR2(15);
62: l_result BOOLEAN;
68: --3028505, added variables below
69: l_period_name gl_period_statuses.period_name%TYPE;
70: l_open_date date;
71: l_full_name per_people_f.full_name%TYPE;
72: l_description AP_WEB_DB_AP_INT_PKG.invLines_description;
73: l_employee_id per_employees_x.employee_id%type;
74: --
75: -- 4458253, added variable
76: l_org_id NUMBER;
80: x_msg_count NUMBER;
81: x_msg_data VARCHAR2(4000);
82: l_rejection_list AP_IMPORT_INVOICES_PKG.rejection_tab_type;
83:
84: l_doc_cat_code AP_WEB_DB_AP_INT_PKG.invIntf_docCategoryCode := 'PAY REQ INV';
85:
86: --
87: --
88: BEGIN
144: l_debugInfo := 'Get the clearing account id';
145: -------------------------------------------------------------------
146: -- Bug 3068119: CardProgramID passed to GetExpenseClearingCCID.
147:
148: l_result := AP_WEB_DB_AP_INT_PKG.GetExpenseClearingCCID( l_ccid,
149: p_cardProgramID,
150: l_employee_id,
151: l_transaction_date);
152:
160: IF ( l_count = 1 ) THEN
161: --------------------------------------------------------------------
162: l_debugInfo := 'Getting next sequence from AP_INVOICES_INTERFACE_S';
163: --------------------------------------------------------------------
164: l_result := AP_WEB_DB_AP_INT_PKG.GetNextInvoiceId(
165: l_invoice_id );
166:
167: IF ( l_result <> TRUE ) THEN
168: l_invoice_id := NULL;
171:
172: --------------------------------------------------------------------
173: l_debugInfo := 'Getting next sequence from AP_INVOICE_LINES_INTERFACE_S';
174: --------------------------------------------------------------------
175: l_result := AP_WEB_DB_AP_INT_PKG.GetNextInvoiceLineId(
176: l_invoice_line_id );
177: IF ( l_result <> TRUE ) THEN
178: l_invoice_line_id := NULL;
179: END IF;
194:
195: ---------------------------------------------------------------------
196: l_debugInfo := 'Inserting into AP_INVOICE_LINES_INTERFACE';
197: ---------------------------------------------------------------------
198: l_result := AP_WEB_DB_AP_INT_PKG.InsertInvoiceLinesInterface(
199: l_invoice_id,
200: l_invoice_line_id,
201: l_count,
202: 'ITEM',
256:
257: -----------------------------------------------------------------------
258: l_debugInfo := 'Retrieving Pay Group Lookup Code from po_vendors';
259: -----------------------------------------------------------------------
260: l_result := AP_WEB_DB_AP_INT_PKG.GetPayGroupLookupCode(
261: l_vendor_id,
262: l_vendor_site_id,
263: l_pay_group_lookup_code);
264:
264:
265: -----------------------------------------------------------------------
266: l_debugInfo := 'Retrieving accts_pay_code_combination_id from po_vendors';
267: -----------------------------------------------------------------------
268: l_result := AP_WEB_DB_AP_INT_PKG.GetVendorCodeCombID(
269: l_vendor_id,
270: l_accts_pay_ccid);
271: -- Bug 6838894
272: BEGIN
303: ------------------------------------------------------------------------
304: l_debugInfo := 'Inserting into AP_INVOICES_INTERFACE';
305: fnd_file.put_line(fnd_file.log, l_debugInfo);
306: ------------------------------------------------------------------------
307: l_result := AP_WEB_DB_AP_INT_PKG.InsertInvoiceInterface(
308: l_invoice_id,
309: l_party_id,
310: l_vendor_id,
311: l_vendor_site_id,
411: IS
412: l_cCardLineCursor AP_WEB_DB_EXPLINE_PKG.CCTrxnCursor;
413: l_debugInfo VARCHAR2(2000);
414: l_clearingCCID NUMBER;
415: l_invoiceAmt AP_WEB_DB_AP_INT_PKG.invLines_amount := 0;
416: l_baseAmt AP_WEB_DB_AP_INT_PKG.invAll_baseAmount;
417: l_totalCCardAmt NUMBER := 0;
418: l_callingSequence varchar2(100);
419: l_minAcctUnit AP_WEB_DB_COUNTRY_PKG.curr_minAcctUnit ;
412: l_cCardLineCursor AP_WEB_DB_EXPLINE_PKG.CCTrxnCursor;
413: l_debugInfo VARCHAR2(2000);
414: l_clearingCCID NUMBER;
415: l_invoiceAmt AP_WEB_DB_AP_INT_PKG.invLines_amount := 0;
416: l_baseAmt AP_WEB_DB_AP_INT_PKG.invAll_baseAmount;
417: l_totalCCardAmt NUMBER := 0;
418: l_callingSequence varchar2(100);
419: l_minAcctUnit AP_WEB_DB_COUNTRY_PKG.curr_minAcctUnit ;
420: l_precision AP_WEB_DB_COUNTRY_PKG.curr_precision;
417: l_totalCCardAmt NUMBER := 0;
418: l_callingSequence varchar2(100);
419: l_minAcctUnit AP_WEB_DB_COUNTRY_PKG.curr_minAcctUnit ;
420: l_precision AP_WEB_DB_COUNTRY_PKG.curr_precision;
421: l_exchangeRate AP_WEB_DB_AP_INT_PKG.invAll_exchangeRate;
422: l_prepaidInvId AP_WEB_DB_CCARD_PKG.ccTrxn_companyPrepaidInvID;
423: l_cCardLineAmt AP_WEB_DB_EXPLINE_PKG.expLines_amount;
424: l_cardProgramID NUMBER;
425: l_Personal VARCHAR2(10);
431: l_callingSequence := 'createCCardReversals';
432: ------------------------------------------------------------------
433: l_debugInfo := 'Get the invoice amount.';
434: ------------------------------------------------------------------
435: if (AP_WEB_DB_AP_INT_PKG.GetInvoiceAmt(p_invoiceId,l_invoiceAmt, l_exchangeRate,
436: l_minAcctUnit, l_precision) <> true) then
437: raise NO_DATA_FOUND;
438: end if;
439:
457:
458: IF (l_Personal <> 'PERSONAL') THEN
459:
460: -- Bug 3068119: CardProgramID passed to GetExpenseClearingCCID.
461: IF (AP_WEB_DB_AP_INT_PKG.GetExpenseClearingCCID(l_clearingCCID,l_cardProgramID,
462: l_employee_id, l_transaction_date) <> true) then
463: raise NO_DATA_FOUND;
464: END IF;
465:
525: l_baseAmt := ROUND(l_invoiceAmt*l_exchangeRate, l_precision);
526: else
527: l_baseAmt := ROUND(l_invoiceAmt*l_exchangeRate/l_minAcctUnit) * l_minAcctUnit;
528: end if;
529: if (AP_WEB_DB_AP_INT_PKG.SetInvoiceAmount(p_invoiceId, l_invoiceAmt, l_baseAmt) <> true) then
530: raise NO_DATA_FOUND;
531: end if;
532: end if;
533:
554: RETURN NUMBER IS
555: l_cCardLineCursor AP_WEB_DB_EXPLINE_PKG.CCTrxnCursor;
556: l_debugInfo VARCHAR2(2000);
557: l_clearingCCID NUMBER;
558: l_invoiceAmt AP_WEB_DB_AP_INT_PKG.invLines_amount := p_invoiceTotal;
559: l_totalCCardAmt NUMBER := 0;
560: l_prepaidInvId AP_WEB_DB_CCARD_PKG.ccTrxn_companyPrepaidInvID;
561: l_cCardLineAmt AP_WEB_DB_EXPLINE_PKG.expLines_amount;
562: l_cardProgramID NUMBER;
589:
590: IF (l_Personal <> 'PERSONAL') THEN
591:
592: -- Bug 3068119: CardProgramID passed to GetExpenseClearingCCID.
593: IF (AP_WEB_DB_AP_INT_PKG.GetExpenseClearingCCID(l_clearingCCID,l_cardProgramID,
594: l_employee_id, l_transaction_date) <> true) then
595: raise NO_DATA_FOUND;
596: END IF;
597: