source: WorldVistAEHR/trunk/r/HEALTH_LEVEL_SEVEN-HL/HLPOSTQ.m@ 619

Last change on this file since 619 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.7 KB
Line 
1HLPOSTQ ;ALB/JRP - POST-INIT QUESTIONS;23-MAR-95
2 ;;1.6;HEALTH LEVEL SEVEN;;Oct 13, 1995
3RUNAGAIN(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)
30PROTINST() ;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)
50LISTINST() ;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)
70FILECNV() ;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)
Note: See TracBrowser for help on using the repository browser.