[Home] [Help]
PACKAGE BODY: APPS.IGI_CIS_PAYMENT_VOUCHERS_PKG
Source
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;
6 l_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
7 l_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
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
17 ,p_vendor_site_id NUMBER
18 ,p_pmt_vch_number VARCHAR2
19 ,p_pmt_vch_amount NUMBER
20 ,p_pmt_vch_received_date DATE
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;
30 BEGIN
31 OPEN c_lock;
32 FETCH c_lock INTO l_lock_rec;
33 IF (c_lock%NOTFOUND) THEN
34 CLOSE c_lock;
35 FND_MESSAGE.Set_Name('FND','FORM_RECORD_DELETED');
36 IF ( l_excep_level >= l_debug_level ) THEN
37 FND_LOG.MESSAGE (l_excep_level, l_path || 'Lock_Row',FALSE);
38 END IF;
39 APP_EXCEPTION.Raise_Exception;
40 END IF;
41 CLOSE c_lock;
42
43 IF l_lock_rec.invoice_payment_id = p_invoice_payment_id AND
44 l_lock_rec.vendor_id = p_vendor_id AND
45 l_lock_rec.vendor_site_id = p_vendor_site_id AND
46 l_lock_rec.pmt_vch_number = p_pmt_vch_number AND
47 l_lock_rec.pmt_vch_amount = p_pmt_vch_amount AND
48 l_lock_rec.pmt_vch_received_date = p_pmt_vch_received_date AND
49 l_lock_rec.pmt_vch_description = p_pmt_vch_description
50 THEN
51 RETURN;
52 ELSE
53 FND_MESSAGE.Set_Name('FND','FORM_RECORD_CHANGED');
54 IF ( l_excep_level >= l_debug_level ) THEN
55 FND_LOG.MESSAGE (l_excep_level, l_path || 'Lock_Row',FALSE);
56 END IF;
57 APP_EXCEPTION.Raise_Exception;
58 END IF;
59 END Lock_Row;
60
61
62 PROCEDURE Insert_Row(p_org_id NUMBER
63 ,p_row_id IN OUT NOCOPY VARCHAR2
64 ,p_invoice_payment_id NUMBER
65 ,p_vendor_id NUMBER
66 ,p_vendor_site_id NUMBER
67 ,p_pmt_vch_number VARCHAR2
68 ,p_pmt_vch_amount NUMBER
69 ,p_pmt_vch_received_date DATE
70 ,p_pmt_vch_description VARCHAR2
71 ,p_creation_date DATE
72 ,p_created_by NUMBER
73 ,p_last_update_date DATE
74 ,p_last_updated_by NUMBER
75 ,p_last_update_login NUMBER
76 ,p_calling_sequence IN OUT NOCOPY VARCHAR2) IS
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
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
94 ,vendor_id
95 ,vendor_site_id
96 ,pmt_vch_number
97 ,pmt_vch_amount
98 ,pmt_vch_received_date
99 ,pmt_vch_description
100 ,creation_date
101 ,created_by
102 ,last_update_date
103 ,last_updated_by
104 ,last_update_login)
105 VALUES
106 (p_org_id
107 ,p_invoice_payment_id
108 ,p_vendor_id
109 ,p_vendor_site_id
110 ,p_pmt_vch_number
111 ,p_pmt_vch_amount
112 ,p_pmt_vch_received_date
113 ,p_pmt_vch_description
114 ,p_creation_date
115 ,p_created_by
116 ,p_last_update_date
117 ,p_last_updated_by
118 ,p_last_update_login);
119
120 l_debug_info := 'Open c_ins';
121 OPEN c_ins;
122 l_debug_info := 'Fetch c_ins';
123 FETCH c_ins INTO p_row_id;
124 IF c_ins%NOTFOUND THEN
125 l_debug_info := 'Close c_ins NOTFOUND';
126 CLOSE c_ins;
127 RAISE No_Data_Found;
128 END IF;
129 l_debug_info := 'Close c_ins';
130 CLOSE c_ins;
131
132 EXCEPTION
133 WHEN OTHERS THEN
134 FND_MESSAGE.Set_Name('SQLAP','AP_DEBUG');
135 FND_MESSAGE.Set_Token('ERROR',SQLERRM);
136 FND_MESSAGE.Set_Token('CALLING_SEQUENCE',p_calling_sequence);
137 FND_MESSAGE.Set_Token('DEBUG_INFO',l_debug_info);
138
139 IF ( l_unexp_level >= l_debug_level ) THEN
140 FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
141 FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
142 FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
143 FND_LOG.MESSAGE ( l_unexp_level,l_path || 'Insert_Row', TRUE);
144 END IF;
145
146 APP_EXCEPTION.Raise_Exception;
147 END Insert_Row;
148
149
150 PROCEDURE Update_Row(p_row_id VARCHAR2
151 ,p_vendor_id NUMBER
152 ,p_vendor_site_id NUMBER
153 ,p_pmt_vch_number VARCHAR2
154 ,p_pmt_vch_amount NUMBER
155 ,p_pmt_vch_received_date DATE
156 ,p_pmt_vch_description VARCHAR2
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
166 ,pmt_vch_received_date = p_pmt_vch_received_date
167 ,pmt_vch_description = p_pmt_vch_description
168 ,last_update_date = p_last_update_date
169 ,last_updated_by = p_last_updated_by
170 ,last_update_login = p_last_update_login
171 WHERE rowid = p_row_id;
172
173 IF SQL%NOTFOUND THEN
174 RAISE No_Data_Found;
175 END IF;
176 END Update_Row;
177
178 END IGI_CIS_PAYMENT_VOUCHERS_PKG;