PACKAGE BODY: APPS.GMF_AR_GET_SALESREP_CODE

Source

1 PACKAGE BODY GMF_AR_GET_SALESREP_CODE AS
2 /* $Header: gmfrepcb.pls 115.1 2002/11/11 00:40:48 rseshadr ship $ */
3   CURSOR GET_SALESREP_CODE(STARTDATE    DATE,
4                            ENDDATE      DATE,
5                            SALESREPNAME VARCHAR2) IS
6   SELECT SALESREP_ID
7   FROM   RA_SALESREPS_ALL
8   WHERE  NAME LIKE NVL(SALESREPNAME,'%')
9   AND    CREATION_DATE
10   BETWEEN NVL(STARTDATE,CREATION_DATE)
11           AND
12           NVL(ENDDATE,CREATION_DATE);
13 
14   PROCEDURE RA_GET_SALESREP_CODE(STARTDATE                   DATE,
15                                  ENDDATE                     DATE,
16                                  SALESREPNAME                VARCHAR2,
17                                  SALESREPID    OUT    NOCOPY NUMBER,
18                                  ROW_TO_FETCH  IN OUT NOCOPY NUMBER,
19                                  STATUSCODE    OUT    NOCOPY NUMBER) IS
20   BEGIN
21     IF NOT GET_SALESREP_CODE%ISOPEN THEN
22       OPEN GET_SALESREP_CODE(STARTDATE,ENDDATE,SALESREPNAME);
23     END IF;
24 
25     FETCH GET_SALESREP_CODE INTO SALESREPID;
26 
27     IF GET_SALESREP_CODE%NOTFOUND OR ROW_TO_FETCH = 1 THEN
28       CLOSE GET_SALESREP_CODE;
29       IF GET_SALESREP_CODE%NOTFOUND THEN
30         STATUSCODE := 100;
31       END IF;
32     END IF;
33   EXCEPTION
34     WHEN OTHERS THEN
35       STATUSCODE := SQLCODE;
36   END;
37 END GMF_AR_GET_SALESREP_CODE;