- AZHNFINV ;NEW PROGRAM [ 11/30/2000 2:40 PM ]
- S X=""
- F S X=$O(^ASUMS("C",X)) Q:'X D
- .I $D(^ASUMS(40007,1,X,1,0)) Q
- .E W !!,"HEY, YOU HAVE A PROBLEM WITH "_X
- AZHNFINV ;NEW PROGRAM [ 11/30/2000 2:40 PM ]
- +1 SET X=""
- +2 FOR
- SET X=$ORDER(^ASUMS("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