XU8P328C ;OIFOO/SO- POST INSTALL;7:22 AM 8 Mar 2004
;;8.0;KERNEL;**328**;Jul 10, 1995
;
DES D MES^XPDUTL("Updating STATE(#5) file's Description.") ;IA# 4293
K ^DIC(5,"%D")
S ^DIC(5,"%D",0)="^^5^5^3031105^"
S ^DIC(5,"%D",1,0)="This file contains the name of the state (or outlying area) as issued"
S ^DIC(5,"%D",2,0)="by the Department of Veterans Affairs and issued in M-1, Part I,"
S ^DIC(5,"%D",3,0)="Appendix B. These entries should remain as distributed and should not be"
S ^DIC(5,"%D",4,0)="edited or updated unless done via a software upgrade or under direction"
S ^DIC(5,"%D",5,0)="of VA Central Office."
;
RIX ;REINDEX THE 'C' XREF OF THE COUNTY MULTIPLE
D MES^XPDUTL("Reindexing the ""C"" cross reference of the COUNTY multiple...")
N IEN S IEN=0
F S IEN=$O(^DIC(5,IEN)) Q:'IEN D
. D MES^XPDUTL("Reindexing: "_$P(^DIC(5,IEN,0),U))
. K ^DIC(5,IEN,1,"C") ;KILL WHOLE XREF TO REMOVE ZIP CODE XREF
. N SIEN S SIEN=0
. F S SIEN=$O(^DIC(5,IEN,1,SIEN)) Q:'SIEN D
.. N DA S DA=SIEN
.. S DA(1)=IEN
.. N DIK S DIK="^DIC(5,"_IEN_",1,"
.. S DIK(1)="2^C"
.. D EN1^DIK
D MES^XPDUTL("Finished with reindexing.")
;
;FIX VA COUNTY CODES WHERE WE CAN
FIX D MES^XPDUTL("Looking for Counties that need VA COUNTY CODES updated...")
;
D SALV ;Check to see if only the VA COUNTY CODE needs corrected
;
D MES^XPDUTL("Finished updating VA COUNTY CODES.")
;
D MD ;Correct DADE to MIAMI-DADE if possible
;
;CHECK COUNTY MULTIPLE FOR DUPLICATES
D MES^XPDUTL("Checking for duplicate VA COUNTY CODES...")
N XUSW S XUSW=0 ;ZERO IF CLEAN
D TEST
I XUSW F Q:'XUSW S XUSW=0 D MES^XPDUTL("Checking again for duplicate VA COUNTY CODES") D TEST
D MES^XPDUTL("Finished checking for duplicate VA COUNTY CODES.")
;
D SYNC ;Sync up County County multiple with file 5.13
;
Q
MD ;CORRECT DADE TO MIAMI-DADE IF POSSIBLE
N ST,CO1,CO2
D
. N DIERR,EM
. S ST=+$$FIND1^DIC(5,"","X","FLORIDA","B","","EM")
I 'ST D MES^XPDUTL("Can not find ""FLORIDA"" in your STATE(#5) file. Installation Terminated!") Q
D
. N DIERR,EM
. D FIND^DIC(5.01,","_ST_",","@;.01;2","PX","DADE","","B","","","CO1","EM")
. D FIND^DIC(5.01,","_ST_",","@;.01;2","PX","MIAMI-DADE","","B","","","CO2","EM")
. Q
I +$P(CO2("DILIST",0),U)=0,+$P(CO1("DILIST",0),U)>0 D
. ; No MIAMI-DADE in County multiple ;Edit the first DADE
. N DIERR,FDA,EM
. S FDA(5.01,+$P(CO1("DILIST",1,0),U)_","_ST_",",.01)="MIAMI-DADE"
. S FDA(5.01,+$P(CO1("DILIST",1,0),U)_","_ST_",",2)="086"
. D FILE^DIE("","FDA","EM")
. Q
I +$P(CO2("DILIST",0),U)=1,$P(CO2("DILIST",1,0),U,3)'="086" D
. ;Just need to change VA COUNTY CODE
. N DIERR,FDA,EM
. S FDA(5.01,+$P(CO2("DILIST",1,0),U)_","_ST_",",2)="086"
. D FILE^DIE("","FDA","EM")
. Q
I +$P(CO2("DILIST",0),U)>1 D
. ;Edit all remaining MIAMI-DADEs to ZZ...
. N VCC S VCC=999
. F I=2:1:$P(CO2("DILIST",0),U) D
.. N T S T=0
.. F S T=$O(^DIC(5,ST,1,"C",VCC,T)) Q:'T S VCC=VCC-1,T=0
.. N FDA,DIERR,EM
.. S FDA(5.01,+$P(CO2("DILIST",I,0),U)_","_ST_",",.01)="ZZ"_$P(CO2("DILIST",I,0),U,2)
.. S FDA(5.01,+$P(CO2("DILIST",I,0),U)_","_ST_",",2)=VCC
.. D FILE^DIE("","FDA","EM")
D ;ADD DADE BACK IN FOR HISTORY
. N DIERR,FDA,EM
. S FDA(5.01,"?+1,"_ST_",",.01)="DADE"
. S FDA(5.01,"?+1,"_ST_",",2)="025"
. D UPDATE^DIE("","FDA","","EM")
. Q
Q
;
SYNC ;SYNC UP COUNTY MULTIPLE WITH FILE 5.13
D EP1^XIPSYNC
LIC ;LIST INACTIVE COUNTIES
D MES^XPDUTL("Displaying Inactivated Counties...")
N STNM
S STNM=""
F S STNM=$O(^DIC(5,"B",STNM)) Q:STNM="" D
. N ST,CONM
. S ST=0,ST=$O(^DIC(5,"B",STNM,ST))
. I +$P(^DIC(5,ST,0),U,3)>56,+$P(^(0),U,3)'=72 Q ;NOT US STATE OR PR
. S CONM=""
. F S CONM=$O(^DIC(5,ST,1,"B",CONM)) Q:CONM="" D
.. N CO
.. S CO=0,CO=$O(^DIC(5,ST,1,"B",CONM,CO))
.. I $P(^DIC(5,ST,1,CO,0),U,5)="" Q
.. N X
.. S X="State: "_STNM_", County: "_CONM_", County Code: "_$P(^DIC(5,ST,1,CO,0),U,3)_" Inactivated."
.. D MES^XPDUTL(X)
Q
;
TEST ;CHECK FOR DUPLICATE VA COUNTY CODES
N ST S ST=0 ;STATE FILE IEN
F S ST=$O(^DIC(5,ST)) Q:'ST D
. I +$P(^DIC(5,ST,0),U,3)>56,+$P(^(0),U,3)'=72 Q ;NOT US STATE OR PR
. N FCO S FCO="" ;FIPS COUNTY VALUE
. N VCC S VCC=999 ;START AT 999 FOR DUPLICATE COUNTY CODES
. F S FCO=$O(^DIC(5,ST,1,"C",FCO)) Q:FCO="" D
.. I $L(FCO)>3,FCO'[" " Q ;LOOKING AT ZIP CODES
.. N PCO S PCO=0 ;COUNTY IEN
.. F S PCO=$O(^DIC(5,ST,1,"C",FCO,PCO)) Q:'PCO D
... N CO,VAL1,VAL2,FST,CNAME,ZZ,Z1,Z2,F1,F2,I
... S CO=$O(^DIC(5,ST,1,"C",FCO,PCO)) Q:'CO D ;IS THERE ANOTHER?
.... S VAL1=$P(^DIC(5,ST,1,PCO,0),U)
.... S VAL2=$P(^DIC(5,ST,1,CO,0),U)
.... S FST=$P(^DIC(5,ST,0),U,3)
.... ;WHICH IS CORRECT?
.... S CNAME=VAL1 D L513 M Z1=ZZ
.... S CNAME=VAL2 D L513 M Z2=ZZ
.... S (F1,F2,I)=0
.... F S I=$O(Z1("DILIST",I)) Q:'I I $P(Z1("DILIST",I,0),U,2)=FST_FCO S F1=1
.... F S I=$O(Z2("DILIST",I)) Q:'I I $P(Z2("DILIST",I,0),U,2)=FST_FCO S F2=1
.... I F1,'F2 S VAL="ZZ"_VAL2
.... I 'F1,F2 S VAL="ZZ"_VAL1
.... I 'F1,'F2 S VAL=$S($E(VAL1,1,2)'="ZZ":"ZZ"_VAL1,1:"ZZ"_VAL2)
.... D ;COUNTY CODE OK?
..... N T S T=0
..... F S T=$O(^DIC(5,ST,1,"C",VCC,T)) Q:'T S VCC=VCC-1,T=0
.... D MES^XPDUTL("State: "_$P(^DIC(5,ST,0),U)_", County Name: "_CNAME_", VA County Code: "_FCO)
.... D MES^XPDUTL(" Changed County Name to: "_VAL_", VA County Code to: "_VCC)
.... N DIERR,EM
.... S FDA(5.01,CO_","_ST_",",.01)=VAL
.... S FDA(5.01,CO_","_ST_",",2)=VCC
.... D FILE^DIE("","FDA","EM")
.... S VCC=VCC-1,XUSW=1
Q
;
SALV ;LET'S SEE IF ALL WE NEED TO DO IS FIX THE 'VA COUNTY CODE'
N ST S ST=0 ;STATE FILE IEN
F S ST=$O(^DIC(5,ST)) Q:'ST D
. I +$P(^DIC(5,ST,0),U,3)>56,+$P(^(0),U,3)'=72 Q ;NOT US STATE OR PR
. N STV S STV=$P(^DIC(5,ST,0),U,3) ;STATE FIPS VALUE
. N CNAME S CNAME="" ;COUNTY NAME
. F S CNAME=$O(^DIC(5,ST,1,"B",CNAME)) Q:CNAME="" D
.. N Y
.. N CO S CO=0 ;COUNTY IEN OF STATE FILE
.. S CO=$O(^DIC(5,ST,1,"B",CNAME,CO))
.. D ;GET LIST OF POSSIBILITIES
... D L513
... I '+ZZ("DILIST",0) Q ;CAN'T FIND COUNTY NAME
... N I S I=0
... F S I=$O(ZZ("DILIST",I)) Q:'I D
.... I $E($P(ZZ("DILIST",I,0),U,2),1,2)'=STV Q ;NOT THE STATE WE ARE LOOKING FOR
.... N NCOV,OLDCOV,STABB,X,FDA,DIERR
.... S NCOV=$E($P(ZZ("DILIST",I,0),U,2),3,5)
.... S OLDCOV=$P(^DIC(5,ST,1,CO,0),U,3),STABB=$P(^DIC(5,ST,0),U,2)
.... I OLDCOV=NCOV Q ;COUNTY FIPS VALUES MATCH
.... S X="Changing VA COUNTY CODE, From: "_OLDCOV_" To: "_NCOV_" County: "_CNAME_" State: "_STABB
.... D MES^XPDUTL(X)
.... S FDA(5.01,CO_","_ST_",",2)=NCOV
.... D FILE^DIE("","FDA","MSG")
Q
;
L513 ;GET A LIST OF COUNTIES WHO'S NAME MATCHES FROM 5.13
N DIERR,EM
D FIND^DIC(5.13,"","@;.01;1","PX",CNAME,"","C","","","ZZ","EM")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P328C 6791 printed Nov 22, 2024@17:17:24 Page 2
XU8P328C ;OIFOO/SO- POST INSTALL;7:22 AM 8 Mar 2004
+1 ;;8.0;KERNEL;**328**;Jul 10, 1995
+2 ;
DES ;IA# 4293
DO MES^XPDUTL("Updating STATE(#5) file's Description.")
+1 KILL ^DIC(5,"%D")
+2 SET ^DIC(5,"%D",0)="^^5^5^3031105^"
+3 SET ^DIC(5,"%D",1,0)="This file contains the name of the state (or outlying area) as issued"
+4 SET ^DIC(5,"%D",2,0)="by the Department of Veterans Affairs and issued in M-1, Part I,"
+5 SET ^DIC(5,"%D",3,0)="Appendix B. These entries should remain as distributed and should not be"
+6 SET ^DIC(5,"%D",4,0)="edited or updated unless done via a software upgrade or under direction"
+7 SET ^DIC(5,"%D",5,0)="of VA Central Office."
+8 ;
RIX ;REINDEX THE 'C' XREF OF THE COUNTY MULTIPLE
+1 DO MES^XPDUTL("Reindexing the ""C"" cross reference of the COUNTY multiple...")
+2 NEW IEN
SET IEN=0
+3 FOR
SET IEN=$ORDER(^DIC(5,IEN))
if 'IEN
QUIT
Begin DoDot:1
+4 DO MES^XPDUTL("Reindexing: "_$PIECE(^DIC(5,IEN,0),U))
+5 ;KILL WHOLE XREF TO REMOVE ZIP CODE XREF
KILL ^DIC(5,IEN,1,"C")
+6 NEW SIEN
SET SIEN=0
+7 FOR
SET SIEN=$ORDER(^DIC(5,IEN,1,SIEN))
if 'SIEN
QUIT
Begin DoDot:2
+8 NEW DA
SET DA=SIEN
+9 SET DA(1)=IEN
+10 NEW DIK
SET DIK="^DIC(5,"_IEN_",1,"
+11 SET DIK(1)="2^C"
+12 DO EN1^DIK
End DoDot:2
End DoDot:1
+13 DO MES^XPDUTL("Finished with reindexing.")
+14 ;
+15 ;FIX VA COUNTY CODES WHERE WE CAN
FIX DO MES^XPDUTL("Looking for Counties that need VA COUNTY CODES updated...")
+1 ;
+2 ;Check to see if only the VA COUNTY CODE needs corrected
DO SALV
+3 ;
+4 DO MES^XPDUTL("Finished updating VA COUNTY CODES.")
+5 ;
+6 ;Correct DADE to MIAMI-DADE if possible
DO MD
+7 ;
+8 ;CHECK COUNTY MULTIPLE FOR DUPLICATES
+9 DO MES^XPDUTL("Checking for duplicate VA COUNTY CODES...")
+10 ;ZERO IF CLEAN
NEW XUSW
SET XUSW=0
+11 DO TEST
+12 IF XUSW
FOR
if 'XUSW
QUIT
SET XUSW=0
DO MES^XPDUTL("Checking again for duplicate VA COUNTY CODES")
DO TEST
+13 DO MES^XPDUTL("Finished checking for duplicate VA COUNTY CODES.")
+14 ;
+15 ;Sync up County County multiple with file 5.13
DO SYNC
+16 ;
+17 QUIT
MD ;CORRECT DADE TO MIAMI-DADE IF POSSIBLE
+1 NEW ST,CO1,CO2
+2 Begin DoDot:1
+3 NEW DIERR,EM
+4 SET ST=+$$FIND1^DIC(5,"","X","FLORIDA","B","","EM")
End DoDot:1
+5 IF 'ST
DO MES^XPDUTL("Can not find ""FLORIDA"" in your STATE(#5) file. Installation Terminated!")
QUIT
+6 Begin DoDot:1
+7 NEW DIERR,EM
+8 DO FIND^DIC(5.01,","_ST_",","@;.01;2","PX","DADE","","B","","","CO1","EM")
+9 DO FIND^DIC(5.01,","_ST_",","@;.01;2","PX","MIAMI-DADE","","B","","","CO2","EM")
+10 QUIT
End DoDot:1
+11 IF +$PIECE(CO2("DILIST",0),U)=0
IF +$PIECE(CO1("DILIST",0),U)>0
Begin DoDot:1
+12 ; No MIAMI-DADE in County multiple ;Edit the first DADE
+13 NEW DIERR,FDA,EM
+14 SET FDA(5.01,+$PIECE(CO1("DILIST",1,0),U)_","_ST_",",.01)="MIAMI-DADE"
+15 SET FDA(5.01,+$PIECE(CO1("DILIST",1,0),U)_","_ST_",",2)="086"
+16 DO FILE^DIE("","FDA","EM")
+17 QUIT
End DoDot:1
+18 IF +$PIECE(CO2("DILIST",0),U)=1
IF $PIECE(CO2("DILIST",1,0),U,3)'="086"
Begin DoDot:1
+19 ;Just need to change VA COUNTY CODE
+20 NEW DIERR,FDA,EM
+21 SET FDA(5.01,+$PIECE(CO2("DILIST",1,0),U)_","_ST_",",2)="086"
+22 DO FILE^DIE("","FDA","EM")
+23 QUIT
End DoDot:1
+24 IF +$PIECE(CO2("DILIST",0),U)>1
Begin DoDot:1
+25 ;Edit all remaining MIAMI-DADEs to ZZ...
+26 NEW VCC
SET VCC=999
+27 FOR I=2:1:$PIECE(CO2("DILIST",0),U)
Begin DoDot:2
+28 NEW T
SET T=0
+29 FOR
SET T=$ORDER(^DIC(5,ST,1,"C",VCC,T))
if 'T
QUIT
SET VCC=VCC-1
SET T=0
+30 NEW FDA,DIERR,EM
+31 SET FDA(5.01,+$PIECE(CO2("DILIST",I,0),U)_","_ST_",",.01)="ZZ"_$PIECE(CO2("DILIST",I,0),U,2)
+32 SET FDA(5.01,+$PIECE(CO2("DILIST",I,0),U)_","_ST_",",2)=VCC
+33 DO FILE^DIE("","FDA","EM")
End DoDot:2
End DoDot:1
+34 ;ADD DADE BACK IN FOR HISTORY
Begin DoDot:1
+35 NEW DIERR,FDA,EM
+36 SET FDA(5.01,"?+1,"_ST_",",.01)="DADE"
+37 SET FDA(5.01,"?+1,"_ST_",",2)="025"
+38 DO UPDATE^DIE("","FDA","","EM")
+39 QUIT
End DoDot:1
+40 QUIT
+41 ;
SYNC ;SYNC UP COUNTY MULTIPLE WITH FILE 5.13
+1 DO EP1^XIPSYNC
LIC ;LIST INACTIVE COUNTIES
+1 DO MES^XPDUTL("Displaying Inactivated Counties...")
+2 NEW STNM
+3 SET STNM=""
+4 FOR
SET STNM=$ORDER(^DIC(5,"B",STNM))
if STNM=""
QUIT
Begin DoDot:1
+5 NEW ST,CONM
+6 SET ST=0
SET ST=$ORDER(^DIC(5,"B",STNM,ST))
+7 ;NOT US STATE OR PR
IF +$PIECE(^DIC(5,ST,0),U,3)>56
IF +$PIECE(^(0),U,3)'=72
QUIT
+8 SET CONM=""
+9 FOR
SET CONM=$ORDER(^DIC(5,ST,1,"B",CONM))
if CONM=""
QUIT
Begin DoDot:2
+10 NEW CO
+11 SET CO=0
SET CO=$ORDER(^DIC(5,ST,1,"B",CONM,CO))
+12 IF $PIECE(^DIC(5,ST,1,CO,0),U,5)=""
QUIT
+13 NEW X
+14 SET X="State: "_STNM_", County: "_CONM_", County Code: "_$PIECE(^DIC(5,ST,1,CO,0),U,3)_" Inactivated."
+15 DO MES^XPDUTL(X)
End DoDot:2
End DoDot:1
+16 QUIT
+17 ;
TEST ;CHECK FOR DUPLICATE VA COUNTY CODES
+1 ;STATE FILE IEN
NEW ST
SET ST=0
+2 FOR
SET ST=$ORDER(^DIC(5,ST))
if 'ST
QUIT
Begin DoDot:1
+3 ;NOT US STATE OR PR
IF +$PIECE(^DIC(5,ST,0),U,3)>56
IF +$PIECE(^(0),U,3)'=72
QUIT
+4 ;FIPS COUNTY VALUE
NEW FCO
SET FCO=""
+5 ;START AT 999 FOR DUPLICATE COUNTY CODES
NEW VCC
SET VCC=999
+6 FOR
SET FCO=$ORDER(^DIC(5,ST,1,"C",FCO))
if FCO=""
QUIT
Begin DoDot:2
+7 ;LOOKING AT ZIP CODES
IF $LENGTH(FCO)>3
IF FCO'[" "
QUIT
+8 ;COUNTY IEN
NEW PCO
SET PCO=0
+9 FOR
SET PCO=$ORDER(^DIC(5,ST,1,"C",FCO,PCO))
if 'PCO
QUIT
Begin DoDot:3
+10 NEW CO,VAL1,VAL2,FST,CNAME,ZZ,Z1,Z2,F1,F2,I
+11 ;IS THERE ANOTHER?
SET CO=$ORDER(^DIC(5,ST,1,"C",FCO,PCO))
if 'CO
QUIT
Begin DoDot:4
+12 SET VAL1=$PIECE(^DIC(5,ST,1,PCO,0),U)
+13 SET VAL2=$PIECE(^DIC(5,ST,1,CO,0),U)
+14 SET FST=$PIECE(^DIC(5,ST,0),U,3)
+15 ;WHICH IS CORRECT?
+16 SET CNAME=VAL1
DO L513
MERGE Z1=ZZ
+17 SET CNAME=VAL2
DO L513
MERGE Z2=ZZ
+18 SET (F1,F2,I)=0
+19 FOR
SET I=$ORDER(Z1("DILIST",I))
if 'I
QUIT
IF $PIECE(Z1("DILIST",I,0),U,2)=FST_FCO
SET F1=1
+20 FOR
SET I=$ORDER(Z2("DILIST",I))
if 'I
QUIT
IF $PIECE(Z2("DILIST",I,0),U,2)=FST_FCO
SET F2=1
+21 IF F1
IF 'F2
SET VAL="ZZ"_VAL2
+22 IF 'F1
IF F2
SET VAL="ZZ"_VAL1
+23 IF 'F1
IF 'F2
SET VAL=$SELECT($EXTRACT(VAL1,1,2)'="ZZ":"ZZ"_VAL1,1:"ZZ"_VAL2)
+24 ;COUNTY CODE OK?
Begin DoDot:5
+25 NEW T
SET T=0
+26 FOR
SET T=$ORDER(^DIC(5,ST,1,"C",VCC,T))
if 'T
QUIT
SET VCC=VCC-1
SET T=0
End DoDot:5
+27 DO MES^XPDUTL("State: "_$PIECE(^DIC(5,ST,0),U)_", County Name: "_CNAME_", VA County Code: "_FCO)
+28 DO MES^XPDUTL(" Changed County Name to: "_VAL_", VA County Code to: "_VCC)
+29 NEW DIERR,EM
+30 SET FDA(5.01,CO_","_ST_",",.01)=VAL
+31 SET FDA(5.01,CO_","_ST_",",2)=VCC
+32 DO FILE^DIE("","FDA","EM")
+33 SET VCC=VCC-1
SET XUSW=1
End DoDot:4
End DoDot:3
End DoDot:2
End DoDot:1
+34 QUIT
+35 ;
SALV ;LET'S SEE IF ALL WE NEED TO DO IS FIX THE 'VA COUNTY CODE'
+1 ;STATE FILE IEN
NEW ST
SET ST=0
+2 FOR
SET ST=$ORDER(^DIC(5,ST))
if 'ST
QUIT
Begin DoDot:1
+3 ;NOT US STATE OR PR
IF +$PIECE(^DIC(5,ST,0),U,3)>56
IF +$PIECE(^(0),U,3)'=72
QUIT
+4 ;STATE FIPS VALUE
NEW STV
SET STV=$PIECE(^DIC(5,ST,0),U,3)
+5 ;COUNTY NAME
NEW CNAME
SET CNAME=""
+6 FOR
SET CNAME=$ORDER(^DIC(5,ST,1,"B",CNAME))
if CNAME=""
QUIT
Begin DoDot:2
+7 NEW Y
+8 ;COUNTY IEN OF STATE FILE
NEW CO
SET CO=0
+9 SET CO=$ORDER(^DIC(5,ST,1,"B",CNAME,CO))
+10 ;GET LIST OF POSSIBILITIES
Begin DoDot:3
+11 DO L513
+12 ;CAN'T FIND COUNTY NAME
IF '+ZZ("DILIST",0)
QUIT
+13 NEW I
SET I=0
+14 FOR
SET I=$ORDER(ZZ("DILIST",I))
if 'I
QUIT
Begin DoDot:4
+15 ;NOT THE STATE WE ARE LOOKING FOR
IF $EXTRACT($PIECE(ZZ("DILIST",I,0),U,2),1,2)'=STV
QUIT
+16 NEW NCOV,OLDCOV,STABB,X,FDA,DIERR
+17 SET NCOV=$EXTRACT($PIECE(ZZ("DILIST",I,0),U,2),3,5)
+18 SET OLDCOV=$PIECE(^DIC(5,ST,1,CO,0),U,3)
SET STABB=$PIECE(^DIC(5,ST,0),U,2)
+19 ;COUNTY FIPS VALUES MATCH
IF OLDCOV=NCOV
QUIT
+20 SET X="Changing VA COUNTY CODE, From: "_OLDCOV_" To: "_NCOV_" County: "_CNAME_" State: "_STABB
+21 DO MES^XPDUTL(X)
+22 SET FDA(5.01,CO_","_ST_",",2)=NCOV
+23 DO FILE^DIE("","FDA","MSG")
End DoDot:4
End DoDot:3
End DoDot:2
End DoDot:1
+24 QUIT
+25 ;
L513 ;GET A LIST OF COUNTIES WHO'S NAME MATCHES FROM 5.13
+1 NEW DIERR,EM
+2 DO FIND^DIC(5.13,"","@;.01;1","PX",CNAME,"","C","","","ZZ","EM")
+3 QUIT
