ATXPOST.m

ATXPOST ; IHS/OHPRD/TMJ - POST INIT VS 5.1 ; 

 ;;5.1;TAXONOMY;;FEB 04, 1997

 ;

 ;Post Init for Version 5.1

 ;

 ;Check to see if Taxonomy file exists

 I '$D(^ATXAX(0)) W !!,"You do not have the Taxonomy System Installed",!,"I will NOT run the Post Init!" H 5 Q

 ;

 ;Fix 21st Node of Taxonomy Global to be consistent

 ;

 D ^ATX21FX

 ;

 ;Install Surveillance Pneumococcal Risk Taxonomy

 ;

 D ^ATXTX

 Q

ATXPOST   ; IHS/OHPRD/TMJ - POST INIT VS 5.1 ; 

 +1       ;;5.1;TAXONOMY;;FEB 04, 1997

 +2       ;

 +3       ;Post Init for Version 5.1

 +4       ;

 +5       ;Check to see if Taxonomy file exists

 +6        IF '$DATA(^ATXAX(0))

               WRITE !!,"You do not have the Taxonomy System Installed",!,"I will NOT run the Post Init!"

               HANG 5

               QUIT 

 +7       ;

 +8       ;Fix 21st Node of Taxonomy Global to be consistent

 +9       ;

 +10       DO ^ATX21FX

 +11      ;

 +12      ;Install Surveillance Pneumococcal Risk Taxonomy

 +13      ;

 +14       DO ^ATXTX

 +15       QUIT