PACKAGE BODY: APPS.GMF_RA_GET_CUST_TRX_ID

Source

1 PACKAGE BODY GMF_RA_GET_CUST_TRX_ID AS
2 /* $Header: gmfcusrb.pls 115.1 2002/11/11 00:37:09 rseshadr ship $ */
3      CURSOR get_cust_trx_id(    startdate date,
4                       enddate date,
5                       trxtype varchar2) IS
6         SELECT cust_trx_type_id
7         FROM RA_CUST_TRX_TYPES_ALL
8         WHERE TYPE like nvl(trxtype,'%')  AND
9             creation_date  BETWEEN
10             nvl(startdate,creation_date)  AND
11             nvl(enddate,creation_date);
12     PROCEDURE ra_get_cust_trx_id(  startdate date,
13                         enddate date,
14                         trxtype varchar2,
15                         custtrxtypeid out NOCOPY number,
16                         row_to_fetch in out NOCOPY number,
17                         statuscode out NOCOPY number) IS
18       BEGIN
19         IF NOT get_cust_trx_id%ISOPEN THEN
20           OPEN get_cust_trx_id(startdate,enddate,trxtype);
21         END IF;
22         FETCH  get_cust_trx_id INTO custtrxtypeid;
23         IF get_cust_trx_id%NOTFOUND or row_to_fetch = 1 THEN
24           CLOSE get_cust_trx_id;
25           statuscode := 100;
26         END IF;
27         EXCEPTION
28           WHEN others THEN
29             statuscode := SQLCODE;
30       END;
31 END GMF_RA_GET_CUST_TRX_ID;