179: open CHK_ACCT;
180: fetch CHK_ACCT INTO dummy;
181: if CHK_ACCT%NOTFOUND then
182: close CHK_ACCT;
183: FND_MESSAGE.SET_NAME('XTR','XTR_997');
184: error_msg := FND_MESSAGE.GET;
185: insert into XTR_IMPORT_TRANSFER_ERRORS_V
186: (SOURCE,CREATION_DATE,CURRENCY,NET_AMOUNT,NET_DEBIT_AMOUNT,
187: NET_CREDIT_AMOUNT,NET_TRANS_NOS,TRANSFER_ON,TRANSFER_BY,COMMENTS)
180: fetch CHK_ACCT INTO dummy;
181: if CHK_ACCT%NOTFOUND then
182: close CHK_ACCT;
183: FND_MESSAGE.SET_NAME('XTR','XTR_997');
184: error_msg := FND_MESSAGE.GET;
185: insert into XTR_IMPORT_TRANSFER_ERRORS_V
186: (SOURCE,CREATION_DATE,CURRENCY,NET_AMOUNT,NET_DEBIT_AMOUNT,
187: NET_CREDIT_AMOUNT,NET_TRANS_NOS,TRANSFER_ON,TRANSFER_BY,COMMENTS)
188: values
201: end if;
202: close CHK_ACCT;
203: else
204: -- No Batch A/c has been specified
205: FND_MESSAGE.SET_NAME('XTR','XTR_998');
206: error_msg := FND_MESSAGE.GET;
207: insert into XTR_IMPORT_TRANSFER_ERRORS_V
208: (SOURCE,CREATION_DATE,CURRENCY,NET_AMOUNT,NET_DEBIT_AMOUNT,
209: NET_CREDIT_AMOUNT,NET_TRANS_NOS,TRANSFER_ON,TRANSFER_BY,COMMENTS)
202: close CHK_ACCT;
203: else
204: -- No Batch A/c has been specified
205: FND_MESSAGE.SET_NAME('XTR','XTR_998');
206: error_msg := FND_MESSAGE.GET;
207: insert into XTR_IMPORT_TRANSFER_ERRORS_V
208: (SOURCE,CREATION_DATE,CURRENCY,NET_AMOUNT,NET_DEBIT_AMOUNT,
209: NET_CREDIT_AMOUNT,NET_TRANS_NOS,TRANSFER_ON,TRANSFER_BY,COMMENTS)
210: values
237: l_net_trans := nvl(l_dr_trans,0) + nvl(l_cr_trans,0);
238: if nvl(l_total,0) <> 0 then
239: if nvl(l_net_amount,0) <> nvl(l_total,0) then
240: l_error := nvl(l_error,0) + 1;
241: FND_MESSAGE.SET_NAME('XTR','XTR_999');
242: error_msg := FND_MESSAGE.GET;
243: insert into XTR_IMPORT_TRANSFER_ERRORS_V
244: (SOURCE,CREATION_DATE,CURRENCY,NET_AMOUNT,NET_DEBIT_AMOUNT,
245: NET_CREDIT_AMOUNT,NET_TRANS_NOS,TRANSFER_ON,TRANSFER_BY,COMMENTS)
238: if nvl(l_total,0) <> 0 then
239: if nvl(l_net_amount,0) <> nvl(l_total,0) then
240: l_error := nvl(l_error,0) + 1;
241: FND_MESSAGE.SET_NAME('XTR','XTR_999');
242: error_msg := FND_MESSAGE.GET;
243: insert into XTR_IMPORT_TRANSFER_ERRORS_V
244: (SOURCE,CREATION_DATE,CURRENCY,NET_AMOUNT,NET_DEBIT_AMOUNT,
245: NET_CREDIT_AMOUNT,NET_TRANS_NOS,TRANSFER_ON,TRANSFER_BY,COMMENTS)
246: values
260: if nvl(l_net_debit,0) <> nvl(l_db_total,0) or
261: nvl(l_net_credit,0) <> nvl(l_cr_total,0) or
262: nvl(l_net_trans,0) <> nvl(l_num_trans,0) then
263: -- Contains Errors
264: FND_MESSAGE.SET_NAME('XTR','XTR_1000');
265: error_msg := FND_MESSAGE.GET;
266: insert into XTR_IMPORT_TRANSFER_ERRORS_V
267: (SOURCE,CREATION_DATE,CURRENCY,NET_AMOUNT,NET_DEBIT_AMOUNT,
268: NET_CREDIT_AMOUNT,NET_TRANS_NOS,TRANSFER_ON,TRANSFER_BY,COMMENTS)
261: nvl(l_net_credit,0) <> nvl(l_cr_total,0) or
262: nvl(l_net_trans,0) <> nvl(l_num_trans,0) then
263: -- Contains Errors
264: FND_MESSAGE.SET_NAME('XTR','XTR_1000');
265: error_msg := FND_MESSAGE.GET;
266: insert into XTR_IMPORT_TRANSFER_ERRORS_V
267: (SOURCE,CREATION_DATE,CURRENCY,NET_AMOUNT,NET_DEBIT_AMOUNT,
268: NET_CREDIT_AMOUNT,NET_TRANS_NOS,TRANSFER_ON,TRANSFER_BY,COMMENTS)
269: values
293:
294: else
295: -- Verification Reqd but control record (Trailer does not exist).
296: l_error := nvl(l_error,0) + 1;
297: FND_MESSAGE.SET_NAME('XTR','XTR_1001');
298: error_msg := FND_MESSAGE.GET;
299: insert into XTR_IMPORT_TRANSFER_ERRORS_V
300: (SOURCE,CREATION_DATE,CURRENCY,NET_AMOUNT,NET_DEBIT_AMOUNT,
301: NET_CREDIT_AMOUNT,NET_TRANS_NOS,TRANSFER_ON,TRANSFER_BY,COMMENTS)
294: else
295: -- Verification Reqd but control record (Trailer does not exist).
296: l_error := nvl(l_error,0) + 1;
297: FND_MESSAGE.SET_NAME('XTR','XTR_1001');
298: error_msg := FND_MESSAGE.GET;
299: insert into XTR_IMPORT_TRANSFER_ERRORS_V
300: (SOURCE,CREATION_DATE,CURRENCY,NET_AMOUNT,NET_DEBIT_AMOUNT,
301: NET_CREDIT_AMOUNT,NET_TRANS_NOS,TRANSFER_ON,TRANSFER_BY,COMMENTS)
302: values