AGGEV1P1.m

AGGEV1P1 ;VNGT/HS/ALA-Environmental check program ; 03 Jan 2011  2:24 PM

 ;;1.0;PATIENT REGISTRATION GUI;**1**;Nov 15, 2010

 ;;

EN ;

 I $G(XPDENV)=1 S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0

 F X="XPO1","XPZ1","XPZ2","XPI1" S XPDDIQ(X)=0

 I $$VERSION^XPDUTL("AGG")'="1.0" W !,"Version 1.0 of Patient Registration GUI is required",!! D  Q

 . K DIFQ

 . S XPDQUIT=1

 Q

AGGEV1P1  ;VNGT/HS/ALA-Environmental check program ; 03 Jan 2011  2:24 PM

 +1       ;;1.0;PATIENT REGISTRATION GUI;**1**;Nov 15, 2010

 +2       ;;

EN        ;

 +1        IF $GET(XPDENV)=1

               SET (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0

 +2        FOR X="XPO1","XPZ1","XPZ2","XPI1"

               SET XPDDIQ(X)=0

 +3        IF $$VERSION^XPDUTL("AGG")'="1.0"

               WRITE !,"Version 1.0 of Patient Registration GUI is required",!!

               Begin DoDot:1

 +4                KILL DIFQ

 +5                SET XPDQUIT=1

               End DoDot:1

               QUIT 

 +6        QUIT