| 1 | HLPOSTQ ;ALB/JRP - POST-INIT QUESTIONS;23-MAR-95
|
|---|
| 2 | ;;1.6;HEALTH LEVEL SEVEN;;Oct 13, 1995
|
|---|
| 3 | RUNAGAIN(RUNDATE) ;ASK USER IF POST-INIT SHOULD BE RUN AGAIN
|
|---|
| 4 | ;INPUT : RUNDATE - Date post-init was originally run
|
|---|
| 5 | ;OUTPUT : 1 = Yes
|
|---|
| 6 | ; 0 = No
|
|---|
| 7 | ; -1 = Error (bad input/time out/user abort)
|
|---|
| 8 | ;
|
|---|
| 9 | ;CHECK INPUT
|
|---|
| 10 | Q:('$G(RUNDATE)) -1
|
|---|
| 11 | Q:(RUNDATE'?7N.1".".6N) -1
|
|---|
| 12 | ;DECLARE VARIABLES
|
|---|
| 13 | N X,Y,DIR,DTOUT,DUOUT,DIRUT,DIROUT
|
|---|
| 14 | S Y=RUNDATE
|
|---|
| 15 | X ^DD("DD")
|
|---|
| 16 | S RUNDATE=$P(Y,"@",1)_" @ "_$P(Y,"@",2)
|
|---|
| 17 | S DIR(0)="YA"
|
|---|
| 18 | S DIR("A")="Do you wish to continue ? "
|
|---|
| 19 | S DIR("A",1)="Post-init was already run on "_RUNDATE
|
|---|
| 20 | S DIR("B")="NO"
|
|---|
| 21 | S DIR("?",1)="This post-init has already been run. Answering 'YES' will allow you to"
|
|---|
| 22 | S DIR("?",2)="selectively re-run portions of the post-init. If you do not want to do"
|
|---|
| 23 | S DIR("?")="this, answer 'NO' (the default response)."
|
|---|
| 24 | W !!
|
|---|
| 25 | D ^DIR
|
|---|
| 26 | ;USER ABORT
|
|---|
| 27 | Q:($D(DIRUT)) -1
|
|---|
| 28 | ;RETURN Y
|
|---|
| 29 | Q (+Y)
|
|---|
| 30 | PROTINST() ;ASK USER IF PROTOCOLS SHOULD BE RE-INSTALLED
|
|---|
| 31 | ;INPUT : None
|
|---|
| 32 | ;OUTPUT : 1 = Yes
|
|---|
| 33 | ; 0 = No
|
|---|
| 34 | ; -1 = Error (bad input/time out/user abort)
|
|---|
| 35 | ;
|
|---|
| 36 | ;DECLARE VARIABLES
|
|---|
| 37 | N X,Y,DIR,DTOUT,DUOUT,DIRUT,DIROUT
|
|---|
| 38 | S DIR(0)="YA"
|
|---|
| 39 | S DIR("A")="Do you want to re-install PROTOCOLS ? "
|
|---|
| 40 | S DIR("B")="YES"
|
|---|
| 41 | S DIR("?",1)="This package distributes a set of protocols which may have already"
|
|---|
| 42 | S DIR("?",2)="been installed. Answering 'YES' (the default and recommended response)"
|
|---|
| 43 | S DIR("?")="will re-install these protocols."
|
|---|
| 44 | W !!
|
|---|
| 45 | D ^DIR
|
|---|
| 46 | ;USER ABORT
|
|---|
| 47 | Q:($D(DIRUT)) -1
|
|---|
| 48 | ;RETURN Y
|
|---|
| 49 | Q (+Y)
|
|---|
| 50 | LISTINST() ;ASK USER IF LIST TEMPLATES SHOULD BE RE-INSTALLED
|
|---|
| 51 | ;INPUT : None
|
|---|
| 52 | ;OUTPUT : 1 = Yes
|
|---|
| 53 | ; 0 = No
|
|---|
| 54 | ; -1 = Error (bad input/time out/user abort)
|
|---|
| 55 | ;
|
|---|
| 56 | ;DECLARE VARIABLES
|
|---|
| 57 | N X,Y,DIR,DTOUT,DUOUT,DIRUT,DIROUT
|
|---|
| 58 | S DIR(0)="YA"
|
|---|
| 59 | S DIR("A")="Do you want to re-install LIST TEMPLATES ? "
|
|---|
| 60 | S DIR("B")="YES"
|
|---|
| 61 | S DIR("?",1)="This package distributes a set of list templates which may have already"
|
|---|
| 62 | S DIR("?",2)="been installed. Answering 'YES' (the default and recommended response)"
|
|---|
| 63 | S DIR("?")="will re-install these list templates."
|
|---|
| 64 | W !!
|
|---|
| 65 | D ^DIR
|
|---|
| 66 | ;USER ABORT
|
|---|
| 67 | Q:($D(DIRUT)) -1
|
|---|
| 68 | ;RETURN Y
|
|---|
| 69 | Q (+Y)
|
|---|
| 70 | FILECNV() ;ASK USER IF FILE CONVERSIONS SHOULD BE RE-RUN
|
|---|
| 71 | ;INPUT : None
|
|---|
| 72 | ;OUTPUT : 1 = Yes
|
|---|
| 73 | ; 0 = No
|
|---|
| 74 | ; -1 = Error (bad input/time out/user abort)
|
|---|
| 75 | ;
|
|---|
| 76 | ;DECLARE VARIABLES
|
|---|
| 77 | N X,Y,DIR,DTOUT,DUOUT,DIRUT,DIROUT
|
|---|
| 78 | S DIR(0)="YA"
|
|---|
| 79 | S DIR("A")="Do you want to re-run the file conversions ? "
|
|---|
| 80 | S DIR("B")="YES"
|
|---|
| 81 | S DIR("?",1)="Installation of this package requires that a set of file conversions be"
|
|---|
| 82 | S DIR("?",2)="run. Answering 'YES' (the default and recommended response) will allow"
|
|---|
| 83 | S DIR("?",3)="these conversions to be re-run. Answer 'NO' if the file conversions"
|
|---|
| 84 | S DIR("?")="have already run to completion."
|
|---|
| 85 | W !!
|
|---|
| 86 | D ^DIR
|
|---|
| 87 | ;USER ABORT
|
|---|
| 88 | Q:($D(DIRUT))
|
|---|
| 89 | ;RETURN Y
|
|---|
| 90 | Q (+Y)
|
|---|
