XU8P297.m

XU8P297 ;ISC-SF/GB-CLEAN COUNTY CODES FOR STATE FILE ;04/10/2003  08:40 [ 01/09/2004  4:33 PM ]

 ;;8.0;KERNEL;**297,1010**;Jul 10, 1995

 Q

POST ; Re-index the B xref of file 3.51

 K ^XMB(3.51,"B")

 N DIK

 S DIK="^XMB(3.51,"

 S DIK(1)=.01

 D ENALL^DIK

 Q

XU8P297   ;ISC-SF/GB-CLEAN COUNTY CODES FOR STATE FILE ;04/10/2003  08:40 [ 01/09/2004  4:33 PM ]

 +1       ;;8.0;KERNEL;**297,1010**;Jul 10, 1995

 +2        QUIT 

POST      ; Re-index the B xref of file 3.51

 +1        KILL ^XMB(3.51,"B")

 +2        NEW DIK

 +3        SET DIK="^XMB(3.51,"

 +4        SET DIK(1)=.01

 +5        DO ENALL^DIK

 +6        QUIT