AULMFICD.m

AULMFICD ;FIND ICD CODES 12263-12340 IN PATIENT FILE [ 10/07/86  1:42 PM ]

 S N=""

 F I=0:0 S N=$O(^AUPNPAT(N)) Q:(N="")!(N'?.N)  I $D(^AUPNPAT(N,11)) S P14=$P(^AUPNPAT(N,11),"^",14) D CHKIT

CHKIT IF (P14>12262)&(P14<12341) W !,^AUPNPAT(N,11),"  ",P14," ",N Q  

AULMFICD  ;FIND ICD CODES 12263-12340 IN PATIENT FILE [ 10/07/86  1:42 PM ]

 +1        SET N=""

 +2        FOR I=0:0

               SET N=$ORDER(^AUPNPAT(N))

               IF (N="")!(N'?.N)

                   QUIT 

               IF $DATA(^AUPNPAT(N,11))

                   SET P14=$PIECE(^AUPNPAT(N,11),"^",14)

                   DO CHKIT

CHKIT      IF (P14>12262)&(P14<12341)

               WRITE !,^AUPNPAT(N,11),"  ",P14," ",N

               QUIT