PACKAGE BODY: APPS.GMF_AR_GET_BANK_CODES

Source

1 PACKAGE BODY GMF_AR_GET_BANK_CODES AS
2 /* $Header: gmfbancb.pls 115.0 99/07/16 04:14:38 porting shi $ */
3 
4     CURSOR bank_codes(  startdate date,
5                   enddate date,
6                   sobname varchar2)  IS
7        SELECT    gsob.name    ,
8               aba.bank_account_name  ,
9               aba.bank_account_num  ,
10               aba.currency_code  ,
11               aba.description    ,
12               aba.max_check_amount  ,
13               aba.min_check_amount  ,
14               aba.bank_account_type  ,
15               aba.multi_currency_flag  ,
16               aba.inactive_date
17        FROM      ap_bank_accounts_all aba,
18               gl_sets_of_books gsob
19        WHERE      aba.set_of_books_id =
20               gsob.set_of_books_id  AND
21                gsob.name like sobname  AND
22               aba.creation_date  BETWEEN
23               nvl(startdate,aba.creation_date)  AND
24               nvl(enddate,aba.creation_date);
25 
26     PROCEDURE ap_get_bank_codes(  startdate in date,
27                       enddate in date,
28                         sobname in out varchar2,
29                       bankaccountname out varchar2,
30                       bankaccountnum out varchar2,
31                       currencycode out varchar2,
32                        descrip out varchar2,
33                       maxcheckamount out number,
34                       mincheckamount out number,
35                       bankaccounttype out varchar2,
36                       multicurrencyflag out varchar2,
37                       inactivedate out date,
38                       row_to_fetch in out number,
39                       statuscode out number) IS
40 
41   BEGIN
42     IF NOT bank_codes%ISOPEN THEN
43       OPEN bank_codes(startdate,enddate,sobname);
44     END IF;
45     FETCH bank_codes
46     INTO   sobname ,
47         bankaccountname ,
48         bankaccountnum ,
49         currencycode ,
50         descrip ,
51         maxcheckamount ,
52         mincheckamount ,
53         bankaccounttype ,
54         multicurrencyflag ,
55         inactivedate;
56     IF bank_codes%NOTFOUND or row_to_fetch = 1 THEN
57       CLOSE bank_codes;
58       if bank_codes%NOTFOUND then
59          statuscode := 100;
60          end if;
61     END IF;
62     EXCEPTION
63       WHEN OTHERS THEN
64         statuscode := SQLCODE;
65    END ap_get_bank_codes;
66 END GMF_AR_GET_BANK_CODES;