XU8P328 ;OIFOO/SO- POST INSTALL;6:40 AM 9 Mar 2004
;;8.0;KERNEL;**328**;Jul 10, 1995
;
D ^XU8P328A ;EDIT COUNTY NAMES OF EXISTING COUNTY CODES($5.13) TO MATCH NPCD
D ^XU8P328B ;ADD NPCD FIPS CODES TO COUNTY CODES(#5.13)
D ^XU8P328C ;SYNC STATE(#5) COUNTY MULTIPLE TO COUNTY CODES(#(5.13)
D ^XU8P328D ;SCAN PATIENT FILE FOR COUNTY STARTING WITH "ZZ"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P328 367 printed Nov 22, 2024@17:17:21 Page 2
XU8P328 ;OIFOO/SO- POST INSTALL;6:40 AM 9 Mar 2004
+1 ;;8.0;KERNEL;**328**;Jul 10, 1995
+2 ;
+3 ;EDIT COUNTY NAMES OF EXISTING COUNTY CODES($5.13) TO MATCH NPCD
DO ^XU8P328A
+4 ;ADD NPCD FIPS CODES TO COUNTY CODES(#5.13)
DO ^XU8P328B
+5 ;SYNC STATE(#5) COUNTY MULTIPLE TO COUNTY CODES(#(5.13)
DO ^XU8P328C
+6 ;SCAN PATIENT FILE FOR COUNTY STARTING WITH "ZZ"
DO ^XU8P328D
+7 QUIT
