AZAXLU.m

AZAXLU ;IHS/PHXAO/AEF - TEST LOOKUP ROUTINE

 ;;1.0;ANNE'S SPECIAL ROUTINES;;MAR 24, 2004

 ;

 ;DO NOT DELETE THIS ROUTINE - It is used in the FileMan class

 ;

EN ;----- USE SOUNDEX TO LOOKUP NAME

 ;

 ;

 ;S DIC="^DIZ(1991212,"

 S DIC(0)="AEQML"

 ;I $D(^DIZ(1991212,"SOUNDEX")) S D="SOUNDEX"

 I $D(@(DIC_"""SOUNDEX"""_")")) S D="SOUNDEX"

 D IX^DIC

 Q

AZAXLU    ;IHS/PHXAO/AEF - TEST LOOKUP ROUTINE

 +1       ;;1.0;ANNE'S SPECIAL ROUTINES;;MAR 24, 2004

 +2       ;

 +3       ;DO NOT DELETE THIS ROUTINE - It is used in the FileMan class

 +4       ;

EN        ;----- USE SOUNDEX TO LOOKUP NAME

 +1       ;

 +2       ;

 +3       ;S DIC="^DIZ(1991212,"

 +4        SET DIC(0)="AEQML"

 +5       ;I $D(^DIZ(1991212,"SOUNDEX")) S D="SOUNDEX"

 +6        IF $DATA(@(DIC_"""SOUNDEX"""_")"))

               SET D="SOUNDEX"

 +7        DO IX^DIC

 +8        QUIT 

 +9 

*****   ERRORS & WARNINGS IN AZAXLU   *****

   EN+9         W - Null line (no commands or comment).