Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: DVBWCHK

DVBWCHK.m

Go to the documentation of this file.

DVBWCHK ;ISC-Albany.domain.ext/PKE-check for installed PIMS v5.3; 14-SEP-1993

 ;;V4.0;HINQ;**14**;03/25/92

 I '$D(^DD(2,0,"VR")) K DIFQ D MES Q

 I ^DD(2,0,"VR")<5.3 K DIFQ D MES Q

MES W !!,*7,"DVBWCHK...This init should run after PIMS v5.3 is installed" Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBWCHK   269     printed  Dec 13, 2024@01:59:15                                                                                                                                                                                                      Page 2

DVBWCHK   ;ISC-Albany.domain.ext/PKE-check for installed PIMS v5.3; 14-SEP-1993

 +1       ;;V4.0;HINQ;**14**;03/25/92

 +2       ;

 +3        IF '$DATA(^DD(2,0,"VR"))

               KILL DIFQ

               DO MES

               QUIT

 +4        IF ^DD(2,0,"VR")<5.3

               KILL DIFQ

               DO MES

               QUIT

 +5        QUIT

MES        WRITE !!,*7,"DVBWCHK...This init should run after PIMS v5.3 is installed"

           QUIT