Routine: XU8P295

XU8P295 ;BP-OAK/BDT-CLEAN COUNTY CODES FOR STATE FILE; [ 01/09/2004  4:54 PM ]

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

POST ;POST ROUTINE

 ;Correct spelling for counties

 D CRTP^XUST

 ;Clean-up VA COUNTY CODE

 D CLEANUP^XUST

 ;Clean up the routines.

N X

 F X="XUST","XUST01","XUST02","XUST04","XUST05","XUST06","XUST08","XUST09","XUST12","XUST13","XUST15","XUST17","XUST18","XUST19","XUST20","XUST21","XUST22","XUST24","XUST25","XUST26","XUST27","XUST28","XUST29","XUST35" X ^%ZOSF("DEL")

XU8P295   ;BP-OAK/BDT-CLEAN COUNTY CODES FOR STATE FILE; [ 01/09/2004  4:54 PM ]

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

 +2       ;

POST      ;POST ROUTINE

 +1       ;Correct spelling for counties

 +2        DO CRTP^XUST

 +3       ;Clean-up VA COUNTY CODE

 +4        DO CLEANUP^XUST

 +5       ;Clean up the routines.

 +6        NEW X

 +7        FOR X="XUST","XUST01","XUST02","XUST04","XUST05","XUST06","XUST08","XUST09","XUST12","XUST13","XUST15","XUST17","XUST18","XUST19","XUST20","XUST21","XUST22","XUST24","XUST25","XUST26","XUST27","XUST28","XUST29","XUST35"

               XECUTE ^%ZOSF("DEL")

 +8       ;

 +9        QUIT

XU8P295.m