PACKAGE BODY: APPS.FV_BA_UPG_PKG

Source

1 PACKAGE BODY FV_BA_UPG_PKG AS
2 /* $Header: FVBAUPGB.pls 115.4 2003/12/17 21:19:44 ksriniva noship $ */
3   g_module_name VARCHAR2(200) := 'fv.plsql.FV_BA_UPG_PKG.';
4 
5 
6 PROCEDURE ap_acct_in_use  IS
7 
8   l_module_name VARCHAR2(200) := g_module_name || 'ap_acct_in_use';
9   l_errbuf      VARCHAR2(1024);
10 
11 BEGIN
12 
13     IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14      FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'fv_ba_upg_pkg.ap_acct_in_use()+');
15      FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'updating ce_upg_bank_accts_gt for fv_ar_batches');
16     END IF;
17 
18    update ce_upg_bank_accts_gt ce
19         set    acct_in_use_flag = 'Y'
20         where  exists
21           (SELECT null FROM fv_ar_batches_all fab
22             WHERE fab.bank_account_id = ce.bank_account_id)
23         and    acct_in_use_flag = 'N';
24 
25     IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
26      FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'updating ce_upg_bank_accts_gt for fv_interim_cash_receipts');
27     END IF;
28 
29      update ce_upg_bank_accts_gt ce
30         set    acct_in_use_flag = 'Y'
31         where  exists
32           (SELECT null FROM fv_interim_cash_receipts_all ficr
33             WHERE ficr.bank_account_id = ce.bank_account_id)
34         and    acct_in_use_flag = 'N';
35 
36 EXCEPTION
37 
38   WHEN OTHERS THEN
39     l_errbuf := SQLERRM;
40     FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',l_errbuf);
41     RAISE;
42 
43 END ap_acct_in_use;
44 
45 END fv_ba_upg_pkg;