- 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 Feb 18, 2025@23:41:28 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