AZSSCAN ; SCAN PATIENT NAMES [ 09/20/85 10:56 AM ]
L1 K DFN D ^AUALLLK Q:'$D(DFN) G L1
Q
L1 KILL DFN
DO ^AUALLLK
IF '$DATA(DFN)
QUIT
GOTO L1
+1 QUIT