1: PACKAGE BODY IGI_CIS_PAYMENT_VOUCHERS_PKG AS
2: /* $Header: igiciscb.pls 115.9 2003/12/17 13:35:06 hkaniven ship $ */
3:
4:
5: l_debug_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
8: l_event_level NUMBER := FND_LOG.LEVEL_EVENT;
9: l_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
10: l_error_level NUMBER := FND_LOG.LEVEL_ERROR;
11: l_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
12: l_path VARCHAR2(50) := 'IGI.PLSQL.igiciscb.IGI_CIS_PAYMENT_VOUCHERS_PKG.';
13:
14: PROCEDURE Lock_Row(p_row_id VARCHAR2
15: ,p_invoice_payment_id NUMBER
16: ,p_vendor_id NUMBER
21: ,p_pmt_vch_description VARCHAR2) IS
22:
23: CURSOR c_lock IS
24: SELECT *
25: FROM igi_cis_payment_vouchers_all
26: WHERE rowid = p_row_id
27: FOR UPDATE OF invoice_payment_id NOWAIT;
28:
29: l_lock_rec c_lock%ROWTYPE;
77:
78: l_debug_info VARCHAR2(100);
79:
80: CURSOR c_ins IS SELECT rowid
81: FROM igi_cis_payment_vouchers
82: WHERE invoice_payment_id = p_invoice_payment_id
83: AND vendor_id = p_vendor_id
84: AND vendor_site_id = p_vendor_site_id;
85: BEGIN
82: WHERE invoice_payment_id = p_invoice_payment_id
83: AND vendor_id = p_vendor_id
84: AND vendor_site_id = p_vendor_site_id;
85: BEGIN
86: p_calling_sequence := 'IGI_CIS_PAYMENT_VOUCHERS_PKG.Insert_Row<=' ||
87: p_calling_sequence;
88:
89: l_debug_info := 'Insert Into igi_cis_payment_vouchers_all';
90:
85: BEGIN
86: p_calling_sequence := 'IGI_CIS_PAYMENT_VOUCHERS_PKG.Insert_Row<=' ||
87: p_calling_sequence;
88:
89: l_debug_info := 'Insert Into igi_cis_payment_vouchers_all';
90:
91: INSERT INTO igi_cis_payment_vouchers_all
92: (org_id
93: ,invoice_payment_id
87: p_calling_sequence;
88:
89: l_debug_info := 'Insert Into igi_cis_payment_vouchers_all';
90:
91: INSERT INTO igi_cis_payment_vouchers_all
92: (org_id
93: ,invoice_payment_id
94: ,vendor_id
95: ,vendor_site_id
157: ,p_last_update_date DATE
158: ,p_last_updated_by NUMBER
159: ,p_last_update_login NUMBER) IS
160: BEGIN
161: UPDATE igi_cis_payment_vouchers_all
162: SET vendor_id = p_vendor_id
163: ,vendor_site_id = p_vendor_site_id
164: ,pmt_vch_number = p_pmt_vch_number
165: ,pmt_vch_amount = p_pmt_vch_amount
174: RAISE No_Data_Found;
175: END IF;
176: END Update_Row;
177:
178: END IGI_CIS_PAYMENT_VOUCHERS_PKG;