          SUBROUTINE (PASSER)
** Version# 3.0002[1] - 04/13/2014 - 05:06pm - TSMITH - eclipse
** Copied from BP SLS.DVR.SLSM.COMP Version# 3 - 05/27/2011 - 04:30pm - NKURTH - main
** Copied from BP SLS.DVR.SLSM.GP Version# 5 - 10/08/2001 - 09:59pm - DONS - develop
*-------------------------------------------------------------------------*
*** Subroutine:  SLS.DVR.SLSM.GP
*-------------------------------------------------------------------------*
*** This is the driver for the Gross Profit by Salesperson Report.
*-------------------------------------------------------------------------*
***       PASSER - not used
*-------------------------------------------------------------------------*

          SCREEN

          MENU.LOAD  2,9,5,1,'P'
          MENU.LOAD 10,9,4,1,'H'
          MENU.LOAD 17,9,4,1,'O'
          MENU.LOAD 24,9,4,1,'S'

          DRPT$     = 'Salesperson Gross Profit Report'
          AOD       = ''
          WRTR      = ''
          FITEM     = ''
          TYPE      = "Outside"
          BR.DET    = "Summary"
          BRCHS     = ''
          SRTBY     = 'Ship-To'
          TERR.TYPE = 1
*-------------------------------------------------------------------------*
*** Allow the user to specify the branches to report off of.
INBR:     INP.BR 16,3,10,BR,NAME,BRCHS,TERR.TYPE
          IF F12 THEN GOTO FINISH
          ON MOVE+1 GOTO INBR,INBR,INBR,INBR
*-------------------------------------------------------------------------*
*** Allow the user to specify the as of date to accumalate data for
INAOD:    INP AOD,16,4,10,'VD4/'
          IF F12 THEN GOTO FINISH
          ON MOVE+1 GOTO INAOD,INAOD,INBR,INAOD
*-------------------------------------------------------------------------*
*** Allow the user to select the salesperson to run the report on.
INWRTR:   INP WRTR,16,5,10,V_'INITIALS'
          IF F12 THEN GOTO FINISH
          ON MOVE+1 GOTO INWRTR,INWRTR,INAOD,INWRTR
*-------------------------------------------------------------------------*
*** Allow the user to select the salesperson to run the report on.
INTYPE:   INP TYPE,21,6,7,V_"D:,Inside,Outside,Writer"
          IF F12 THEN GOTO FINISH
          ON MOVE+1 GOTO INTYPE,INTYPE,INWRTR,INTYPE
*-------------------------------------------------------------------------*
*** Allow the user to select the salesperson to run the report on.
INDET:    INP BR.DET,21,7,7,V_"D:,Detail,Summary"
          IF F12 THEN GOTO FINISH
          ON MOVE+1 GOTO INDET,INDET,INTYPE,INDET,INDET,INDET
*-------------------------------------------------------------------------*
SUBS:     IF OPTION = 4 THEN GOTO FSEL
          IF AOD   = '' THEN PRINT BELL:; RETURN TO INAOD
          IF BRCHS = '' THEN PRINT BELL:; RETURN TO INBR

          IF OPTION=1 OR OPTION=2 THEN
             PH.COST.AUTH.CHECK CTYPE
             IF F12 THEN RETURN TO INBR
             IF NOT(CTYPE) THEN PRINT BELL:; RETURN TO INBR
          END

          IF BR.DET[1,1] = 'D' THEN DET = YES ELSE DET = NO

          PH.SETUP.BR.ARGS BR,,TERR.TYPE,,BRDISP,BRLIST
          PH.EXE 'SLS.PHR.SLSM.COMP.GPS',BRLIST,BRDISP,AOD,WRTR,TYPE,DET,FITEM,CTYPE
          IF F12 THEN RETURN

          RETURN TO FINISH
*-------------------------------------------------------------------------*
FSEL:     FILTER.INPUT 'S',FITEM
          RETURN
*-------------------------------------------------------------------------*
FINISH:   WINDOW.CLOSE
          RETURN
!TSMITH~04/13/14~17:06
