AGPREI1.m

AGPREI1 ; IHS/ASDS/EFG - DISPLAY CHANGES TO THIS VERSION ; 

 ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

 S Y=$O(^DIC(9.4,"B","IHS PATIENT REGISTRATION",""))

 Q:'Y

 I '$D(^DIC(9.4,Y,"VERSION")) S ^DIC(9.4,Y,"VERSION")="" Q

 I ^DIC(9.4,Y,"VERSION")<4.5 G OUT

 Q

 ;

OUT W !!,*7,"LAST INSTALLED VERSION OF REGISTRATION IS NOT VERSION 4.5!",!!,?10,"YOU MUST COMPLETE THE INSTALLATION OF PREVIOUS VERSIONS!"

 W !!,?15,"INSTALLATON IS NOW TERMINATED!"

 S AGOUT=""

 K DIFQ

 Q

AGPREI1   ; IHS/ASDS/EFG - DISPLAY CHANGES TO THIS VERSION ; 

 +1       ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

 +2        SET Y=$ORDER(^DIC(9.4,"B","IHS PATIENT REGISTRATION",""))

 +3        IF 'Y

               QUIT 

 +4        IF '$DATA(^DIC(9.4,Y,"VERSION"))

               SET ^DIC(9.4,Y,"VERSION")=""

               QUIT 

 +5        IF ^DIC(9.4,Y,"VERSION")<4.5

               GOTO OUT

 +6        QUIT 

 +7       ;

OUT        WRITE !!,*7,"LAST INSTALLED VERSION OF REGISTRATION IS NOT VERSION 4.5!",!!,?10,"YOU MUST COMPLETE THE INSTALLATION OF PREVIOUS VERSIONS!"

 +1        WRITE !!,?15,"INSTALLATON IS NOW TERMINATED!"

 +2        SET AGOUT=""

 +3        KILL DIFQ

 +4        QUIT