RA1003PR.m

RA1003PR ; ; 08 Dec 2010  9:17 AM

 ;

 ;Pre-Init Environment Check routine for VA Radiology patch 1003

 ;

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

 ;

 K XPDQUIT

 ;

 Q

 ;

RA1003PR  ; ; 08 Dec 2010  9:17 AM

 +1       ;

 +2       ;Pre-Init Environment Check routine for VA Radiology patch 1003

 +3       ;

 +4        FOR X="XPM1","XPO1","XPZ1","XPZ2","XPI1"

               SET XPDDIQ(X)=0

 +5       ;

 +6        KILL XPDQUIT

 +7       ;

 +8        QUIT 

 +9       ;