;+
; NAME
;          EIS_RP_CHECK_SETUP
;
; PURPOSE
;          This function checks the Remote Planning setup is correct
;
; CATEGORY
;          EIS Timeline Planning
;          Remote Planning
;
; INPUTS
;          textID - widget ID of widget_text
;          wait_t - time (seconds) to pause
;
; WRITTEN
;          John A Rainnie, RAL, 22-Aug-2008
;
; HISTORY
;          v0.1 JAR 26-Aug-2008
;               Added planning_db check
;
;
;-
;______________________________________________________________________________
FUNCTION eis_rp_check_setup , textID , wait_t

;
; CMDPLN -- $HOME/remote_planning/cp/cmdpln
;
valid = eis_check_cmdpln(textID , wait_t)
IF (valid EQ 0) THEN RETURN , valid
;
; ZDBASE_USER -- $HOME/planning_db
;
valid = eis_check_planning_db(textID , wait_t)
IF (valid EQ 0) THEN RETURN , valid


RETURN , valid

END