HLPOSTQ ;ALB/JRP - POST-INIT QUESTIONS;23-MAR-95
 ;;1.6;HEALTH LEVEL SEVEN;;Oct 13, 1995
RUNAGAIN(RUNDATE) ;ASK USER IF POST-INIT SHOULD BE RUN AGAIN
 ;INPUT  : RUNDATE - Date post-init was originally run
 ;OUTPUT : 1 = Yes
 ;         0 = No
 ;        -1 = Error (bad input/time out/user abort)
 ;
 ;CHECK INPUT
 Q:('$G(RUNDATE)) -1
 Q:(RUNDATE'?7N.1".".6N) -1
 ;DECLARE VARIABLES
 N X,Y,DIR,DTOUT,DUOUT,DIRUT,DIROUT
 S Y=RUNDATE
 X ^DD("DD")
 S RUNDATE=$P(Y,"@",1)_" @ "_$P(Y,"@",2)
 S DIR(0)="YA"
 S DIR("A")="Do you wish to continue ? "
 S DIR("A",1)="Post-init was already run on "_RUNDATE
 S DIR("B")="NO"
 S DIR("?",1)="This post-init has already been run.  Answering 'YES' will allow you to"
 S DIR("?",2)="selectively re-run portions of the post-init.  If you do not want to do"
 S DIR("?")="this, answer 'NO' (the default response)."
 W !!
 D ^DIR
 ;USER ABORT
 Q:($D(DIRUT)) -1
 ;RETURN Y
 Q (+Y)
PROTINST() ;ASK USER IF PROTOCOLS SHOULD BE RE-INSTALLED
 ;INPUT  : None
 ;OUTPUT : 1 = Yes
 ;         0 = No
 ;        -1 = Error (bad input/time out/user abort)
 ;
 ;DECLARE VARIABLES
 N X,Y,DIR,DTOUT,DUOUT,DIRUT,DIROUT
 S DIR(0)="YA"
 S DIR("A")="Do you want to re-install PROTOCOLS ? "
 S DIR("B")="YES"
 S DIR("?",1)="This package distributes a set of protocols which may have already"
 S DIR("?",2)="been installed.  Answering 'YES' (the default and recommended response)"
 S DIR("?")="will re-install these protocols."
 W !!
 D ^DIR
 ;USER ABORT
 Q:($D(DIRUT)) -1
 ;RETURN Y
 Q (+Y)
LISTINST() ;ASK USER IF LIST TEMPLATES SHOULD BE RE-INSTALLED
 ;INPUT  : None
 ;OUTPUT : 1 = Yes
 ;         0 = No
 ;        -1 = Error (bad input/time out/user abort)
 ;
 ;DECLARE VARIABLES
 N X,Y,DIR,DTOUT,DUOUT,DIRUT,DIROUT
 S DIR(0)="YA"
 S DIR("A")="Do you want to re-install LIST TEMPLATES ? "
 S DIR("B")="YES"
 S DIR("?",1)="This package distributes a set of list templates which may have already"
 S DIR("?",2)="been installed.  Answering 'YES' (the default and recommended response)"
 S DIR("?")="will re-install these list templates."
 W !!
 D ^DIR
 ;USER ABORT
 Q:($D(DIRUT)) -1
 ;RETURN Y
 Q (+Y)
FILECNV() ;ASK USER IF FILE CONVERSIONS SHOULD BE RE-RUN
 ;INPUT  : None
 ;OUTPUT : 1 = Yes
 ;         0 = No
 ;        -1 = Error (bad input/time out/user abort)
 ;
 ;DECLARE VARIABLES
 N X,Y,DIR,DTOUT,DUOUT,DIRUT,DIROUT
 S DIR(0)="YA"
 S DIR("A")="Do you want to re-run the file conversions ? "
 S DIR("B")="YES"
 S DIR("?",1)="Installation of this package requires that a set of file conversions be"
 S DIR("?",2)="run.  Answering 'YES' (the default and recommended response) will allow"
 S DIR("?",3)="these conversions to be re-run.  Answer 'NO' if the file conversions"
 S DIR("?")="have already run to completion."
 W !!
 D ^DIR
 ;USER ABORT
 Q:($D(DIRUT))
 ;RETURN Y
 Q (+Y)