MCENVCHK ;WISC/DCB-ENVIROMENT CHECK ROUTINE ;11/16/93
;;2.3;Medicine;;09/13/1996
START ;This routine checks to see if the MCINSTALL routine was used
Q:$G(MCSTART)="OKTOGO"
W !,"You need to enter D ^MCARINS to install Medicine."
K DIFQ
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMCENVCHK 249 printed Dec 13, 2024@02:15 Page 2
MCENVCHK ;WISC/DCB-ENVIROMENT CHECK ROUTINE ;11/16/93
+1 ;;2.3;Medicine;;09/13/1996
START ;This routine checks to see if the MCINSTALL routine was used
+1 if $GET(MCSTART)="OKTOGO"
QUIT
+2 WRITE !,"You need to enter D ^MCARINS to install Medicine."
+3 KILL DIFQ
+4 QUIT