AZHNFINX.m

AZHNFINX ;NEW PROGRAM [ 11/30/2000  2:42 PM ]

 S X=""

 F  S X=$O(^ASUMX("C",X)) Q:'X  D

 .I $D(^ASUMS(40007,1,X,1,0)) Q

 .E  W !!,"HEY, YOU HAVE A PROBLEM WITH "_X

AZHNFINX  ;NEW PROGRAM [ 11/30/2000  2:42 PM ]

 +1        SET X=""

 +2        FOR 

               SET X=$ORDER(^ASUMX("C",X))

               IF 'X

                   QUIT 

               Begin DoDot:1

 +3                IF $DATA(^ASUMS(40007,1,X,1,0))

                       QUIT 

 +4               IF '$TEST

                       WRITE !!,"HEY, YOU HAVE A PROBLEM WITH "_X

               End DoDot:1