1 PACKAGE BODY GMF_AR_GET_SALES_REPS AS
2 /* $Header: gmfrepnb.pls 115.1 2002/11/11 00:41:27 rseshadr ship $ */
3 CURSOR CUR_AR_GET_SALES_REPS(ST_DATE DATE, EN_DATE DATE)
4 IS
5 SELECT NAME,
6 '',
7 START_DATE_ACTIVE,
8 END_DATE_ACTIVE
9 FROM RA_SALESREPS_ALL
10 WHERE CREATION_DATE
11 BETWEEN NVL(ST_DATE, CREATION_DATE)
12 AND NVL(EN_DATE, CREATION_DATE);
13
14 PROCEDURE PROC_AR_GET_SALES_REPS(
15 ST_DATE IN OUT NOCOPY DATE,
16 EN_DATE IN OUT NOCOPY DATE,
17 REP_NAME OUT NOCOPY VARCHAR2,
18 ENA_FLAG OUT NOCOPY VARCHAR2,
19 ST_DATE_EFF OUT NOCOPY DATE,
20 EN_DATE_EFF OUT NOCOPY DATE,
21 ROW_TO_FETCH IN OUT NOCOPY NUMBER,
22 ERROR_STATUS OUT NOCOPY NUMBER) IS
23 BEGIN /* BEGINNING OF PROCEDURE PROC_AR_GET_SALES_REPS */
24 IF NOT CUR_AR_GET_SALES_REPS%ISOPEN THEN
25 OPEN CUR_AR_GET_SALES_REPS(ST_DATE, EN_DATE);
26 END IF;
27
28 FETCH CUR_AR_GET_SALES_REPS
29 INTO REP_NAME, ENA_FLAG, ST_DATE_EFF, EN_DATE_EFF;
30
31 IF CUR_AR_GET_SALES_REPS%NOTFOUND OR ROW_TO_FETCH = 1 THEN
32 CLOSE CUR_AR_GET_SALES_REPS;
33 IF CUR_AR_GET_SALES_REPS%NOTFOUND THEN
34 ERROR_STATUS := 100;
35 END IF;
36 RETURN;
37 END IF;
38 EXCEPTION
39 WHEN OTHERS THEN
40 ERROR_STATUS := SQLCODE;
41 END; /* END OF PROCEDURE PROC_AR_GET_SALES_REPS */
42 END GMF_AR_GET_SALES_REPS; /* END GMF_AR_GET_SALES_REPS */