138: ,x_claim_rec.effective_date
139: ,x_claim_rec.comments
140: ,x_claim_rec.org_id
141: ,x_claim_rec.legal_entity_id
142: FROM ozf_claims_all
143: WHERE claim_id = p_claim_id ;
144:
145: x_return_status := FND_API.g_ret_sts_success;
146: EXCEPTION
184: l_reference VARCHAR2(240);
185:
186: CURSOR csr_claim_ref_detail(cv_claim_id IN NUMBER) IS
187: SELECT customer_ref_number
188: FROM ozf_claims
189: WHERE claim_id = cv_claim_id;
190:
191: CURSOR invoice_int_seq_csr IS
192: select ap_invoices_interface_s.nextval
557: ,l_vendor_clearing_account
558: ,l_claim_rec.org_id
559: ,l_final_descr
560: ,682
561: ,'OZF_CLAIMS_ALL'
562: ,l_claim_rec.claim_id
563: ,l_claim_rec.customer_ref_date
564: ,l_claim_rec.customer_ref_number
565: ,l_claim_rec.customer_reason
564: ,l_claim_rec.customer_ref_number
565: ,l_claim_rec.customer_reason
566: ,l_claim_line_rec.claim_line_id
567: ,682
568: ,'OZF_CLAIMS'
569: , 'TRADE_MGT_PAYABLES'
570: );
571: l_invoice_line_num := l_invoice_line_num + 1;
572: END LOOP;
644: ,l_accts_pay_code_comb_id
645: ,l_claim_rec.org_id
646: ,l_claim_rec.legal_entity_id
647: ,682
648: ,'OZF_CLAIMS_ALL'
649: ,l_claim_rec.claim_id
650: ,l_claim_rec.customer_ref_date
651: ,l_claim_rec.customer_ref_number
652: ,l_claim_rec.customer_reason
655: , 'Y'
656: );
657:
658: --Update payment information in Claim after invoice is been created.
659: UPDATE ozf_claims_all
660: SET payment_reference_id = l_invoice_id
661: , payment_reference_number = l_claim_number
662: , payment_reference_date = l_claim_rec.settled_date
663: , payment_status = 'INTERFACED'
663: , payment_status = 'INTERFACED'
664: WHERE claim_id = p_claim_id;
665: -- if invoice is already created, update payment_status and payment_reference_number only
666: ELSE -- [ if l_x_claim_number is NOT NULL ]
667: UPDATE ozf_claims_all
668: SET payment_status = 'INTERFACED'
669: , payment_reference_number = l_claim_number
670: , payment_reference_date = l_claim_rec.settled_date
671: , payment_reference_id = l_invoice_id