DVBWCHK.m

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

 Q

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DVBWCHK   269     printed  Feb 18, 2025@23:25:41                                                                                                                                                                                                      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