PACKAGE BODY: APPS.GMF_AP_GET_PAYMENT_METHODS

Source

1 PACKAGE BODY GMF_AP_GET_PAYMENT_METHODS AS
2 /* $Header: gmfpaymb.pls 115.0 99/07/16 04:21:34 porting shi $ */
3     CURSOR payment_methods(  startdate date,
4                     enddate date,
5                     payment_method varchar2) IS
6          SELECT    lookup_code,
7                 description
8          FROM    AP_LOOKUP_CODES
9          WHERE    lookup_type like nvl(payment_method, lookup_type);
10      PROCEDURE ap_get_payment_methods(  startdate in date,
11                             enddate in date,
12                             payment_method in varchar2,
13                             lookupcode out varchar2,
14                             descr out varchar2,
15                             row_to_fetch in out number,
16                             statuscode out number) IS
17      BEGIN
18 
19         IF NOT payment_methods%ISOPEN THEN
20           OPEN payment_methods(startdate,enddate,payment_method);
21         END IF;
22         FETCH payment_methods
23         INTO   lookupcode,
24             descr;
25         IF payment_methods%NOTFOUND or row_to_fetch = 1 THEN
26           CLOSE payment_methods;
27           if payment_methods%NOTFOUND then
28              statuscode := 100;
29           end if;
30         END IF;
31         EXCEPTION
32           WHEN OTHERS THEN
33             statuscode := SQLCODE;
34     END ap_get_payment_methods;
35 END GMF_AP_GET_PAYMENT_METHODS;