- RGMTMONX ;BIR/CML,PTD-MPI/PD Monitor HL7 Messaging/Filers and Setups (CONT) ;07/30/02
- ;;1.0;CLINICAL INFO RESOURCE NETWORK;**20,30,31**;30 Apr 99
- ;
- ;Reference to ^DIC(4,"D", supported by IA #3627
- ;Reference to ^HLCS(870 supported by IA #3335
- ;Reference to ^DGCN(391.91, supported by IA #2911
- ;
- START ;
- I DEV,'$D(RGHLMQ) W @IOF,"Logical Link Monitor:",!,"=====================",!
- ;
- K ^XTMP("RGMT","MONT")
- I '$D(TXTCNT) S TXTCNT=0
- I '$D(LOCSITE) S LOCSITE=$P($$SITE^VASITE(),"^")
- ;
- ;MULTID=# of multiple "D" xrefs in ^DIC(4 for Station #
- ;NOINST=# of VAxxx Links with no INSTITUTION defined
- ;BADINST=# of VAxxx Links that have an incorrect INSTITUTION defined
- ;BADTF=# of patients with invalid Treating Facilities
- ;NONVA=# of non-VAxxx Logical Links with INSTITUTION defined
- ;CNT=# of VAxxx Logical Links processed
- ;
- S (NOINST,BADINST,BADTF,MULTID,NONVA,CNT,DODHOST)=0
- ;
- 1 ;
- I DEV,'$D(RGHLMQ) W !,"=> Checks 1-3: Checking Link Setups..."
- K LINKARR
- S LINK=""
- F S LINK=$O(^HLCS(870,"B",LINK)) Q:LINK="" D
- .I LINK'="MPIVA"&($E(LINK,1,2)'="VA") Q
- .I $E(LINK,1,2)="VA"&($L(LINK," ")>1) Q
- .Q:LINK["-"
- .I $T(@LINK)']"" Q
- .S CNT=CNT+1
- .S VALSTA=$P($P($T(@LINK),";;",2),"^",2)
- .;build array of links with valid station numbers to do check 5
- .S LINKARR(VALSTA)=LINK
- 2 .;check for multiple "D" xrefs in ^DIC(4 for this station #)
- .S (XCNT,QQ)=0
- .F S QQ=$O(^DIC(4,"D",VALSTA,QQ)) Q:'QQ D
- ..S XCNT=XCNT+1
- ..I QQ["." D
- ...S ^XTMP("RGMT","MONT","DECIMEL INST IEN",VALSTA,QQ)=""
- .I XCNT>1 D
- ..S LINKIEN=$O(^HLCS(870,"B",LINK,0))
- ..S MULTID=MULTID+1
- ..S (XCNT,QQ)=0
- ..F S QQ=$O(^DIC(4,"D",VALSTA,QQ)) Q:'QQ D
- ...S ^XTMP("RGMT","MONT","MULTI DXREF",VALSTA,QQ)=$$GET1^DIQ(4,QQ_",",.01)_"^"_$$GET1^DIQ(870,LINKIEN_",",.01)_"^"_$$GET1^DIQ(870,LINKIEN_",",.02,"I")
- 3 .;check for defined INSTITUTION and set (if necessary) AUTOSTART and RESTART for links in file 870
- .S LINKIEN=$O(^HLCS(870,"B",LINK,0))
- .S LINKINST=$$GET1^DIQ(870,LINKIEN_",",.02,"I")
- .I 'LINKINST D Q
- ..S NOINST=NOINST+1
- ..S ^XTMP("RGMT","MONT","NO INST",LINK)=LINKIEN_"^"_$P($P($T(@LINK),";;",2),"^",1,2)
- ..S TXT=" ** No INSTITUTION defined for "_LINK D TXT
- 4 .;check for incorrect INSTITUTION
- .S LOCSTA=$P($$NS^XUAF4(LINKINST),"^",2)
- .I LOCSTA'=VALSTA D
- ..S BADINST=BADINST+1
- ..S ^XTMP("RGMT","MONT","BAD INST",LINK)=LOCSTA
- ..S TXT=" ** Bad INSTITUTION of Station #"_LOCSTA_" defined for "_LINK_" - should be Station #"_VALSTA D TXT
- ;
- 5 ;
- I DEV,'$D(RGHLMQ) W !,"=> Check 4 : Checking for patients with invalid Treating Facilities..."
- S TFIEN=0
- F S TFIEN=$O(^DGCN(391.91,"C",TFIEN)) Q:'TFIEN D
- .S TF=$P($$NS^XUAF4(TFIEN),"^",2)
- .I TF="" D Q
- ..S TFIFN=0 F S TFIFN=$O(^DGCN(391.91,"C",TFIEN,TFIFN)) Q:'TFIFN D
- ...S BADTF=BADTF+1
- ...S DFN=$$GET1^DIQ(391.91,TFIFN_",",.01,"I")
- ...I DEV,'$D(RGHLMQ) D
- ....W !?3,"** TF with no station # for ",$P(^DIC(4,TFIEN,0),"^")," for DFN #",DFN," - (TF IEN #",TFIFN,")"
- .I '$D(LINKARR(TF)) D
- ..S IEN=0 F S IEN=$O(^DGCN(391.91,"C",TFIEN,IEN)) Q:'IEN D
- ...I TF=200 S DODHOST=DODHOST+1 Q
- ...S DFN=$$GET1^DIQ(391.91,IEN_",",.01,"I")
- ...S BADTF=BADTF+1
- ...S ^XTMP("RGMT","MONT","BAD TF",DFN)=$$GET1^DIQ(4,TFIEN_",",.01)_"^"_IEN
- ...I DEV,'$D(RGHLMQ) W !?3,"** Bad TF of ",$P(^DIC(4,TFIEN,0),"^")," for DFN #",DFN," - (TF IEN #",IEN,")"
- ;
- 6 ;
- I DEV,'$D(RGHLMQ) W !,"=> Check 5 : Checking for non-VAxxx links with INSTITUTION defined..."
- S LINK=""
- F S LINK=$O(^HLCS(870,"B",LINK)) Q:LINK="" I $E(LINK,1,2)'="VA"!($E(LINK,1,4)="VAFC") D
- .Q:LINK="MPIVA"
- .S LINKIEN=$O(^HLCS(870,"B",LINK,0))
- .S LINKINST=$$GET1^DIQ(870,LINKIEN_",",.02,"I")
- .Q:'LINKINST
- .Q:LINKINST'=+$$SITE^VASITE()
- .S NONVA=NONVA+1
- .S ^XTMP("RGMT","MONT","NONVA LINK WITH INSTITUTION",LINK)=""
- .S TXT=" ** Non-VA Link with LOCAL INSTITUTION defined - "_LINK D TXT
- ;
- DONE ;
- S TXT="" D TXT
- ;
- S TXT="==============================" D TXT
- S TXT="Check 1: "_MULTID_" VA MPI/PD Links with multiple ""D"" xref in ^DIC(4 for Station #." D TXT
- S TXT="Check 2: "_NOINST_" VA MPI/PD Links without an INSTITUTION defined." D TXT
- S TXT="Check 3: "_BADINST_" VA MPI/PD Links with incorrect INSTITUTION defined." D TXT
- S TXT="Check 4: "_BADTF_" patients with invalid Treating Facilities. => FHIE Pts: "_DODHOST D TXT
- S TXT="Check 5: "_NONVA_" non-VA MPI/PD Links with an INSTITUTION of local site defined." D TXT
- ;
- K BADINST,BADTF,CNT,DEV,DFN,IEN,LINK,LINKARR,LINKIEN,LINKINST,LOCSITE,LOCSTA,MULTID
- K NOINST,NONVA,QQ,TF,TFIEN,TFIFN,TXT,TXTCNT,VALSTA,XCNT,DODHOST
- Q
- ;
- TXT ;
- S TXTCNT=TXTCNT+1
- I DEV,'$D(RGHLMQ) W !,TXT
- I $D(RGHLMQ) S ^XTMP("RGMT","HLMQMONT",LOCSITE,TXTCNT)=TXT
- Q
- ;
- LINKS ;
- MPIVA ;;MPI^200M
- VAALX ;;ALEXANDRIA^502
- VAALT ;;ALTOONA^503
- VAAMA ;;AMARILLO HCS^504
- VAANC ;;ANCHORAGE^463
- VAANN ;;ANN ARBOR^506
- VAASH ;;ASHEVILLE^637
- VAATG ;;ATLANTA^508
- VAAUG ;;AUGUSTA^509
- VABAC ;;BATTLE CREEK^515
- VABAY ;;BAY PINES^516
- VABEC ;;BECKLEY^517
- VABED ;;BEDFORD^518
- VABIL ;;BILOXI^520
- VABIR ;;BIRMINGHAM^521
- VABHH ;;BLACK HILLS HCS^568
- VABOI ;;BOISE^531
- VABOS ;;BOSTON HCS^523
- VABRX ;;BRONX^526
- VABUT ;;BUTLER^529
- VACAH ;;CENTRAL ALABAMA HCS^619
- VALIT ;;CENTRAL ARKANSAS HCS^598
- VAFRE ;;CENTRAL CALIFORNIA HCS^570
- VAOMA ;;CENTRAL PLAINS HCS^636
- VACTX ;;CENTRAL TEXAS HCS^674
- VACHA ;;CHARLESTON^534
- VACHY ;;CHEYENNE^442
- VACHS ;;CHICAGO HCS^537
- VACLL ;;CHILLICOTHE^538
- VACIN ;;CINCINNATI^539
- VACLA ;;CLARKSBURG^540
- VACLE ;;CLEVELAND^541
- VACOA ;;COATESVILLE^542
- VACMS ;;COLUMBIA^544
- VACOS ;;COLUMBUS^757
- VACON ;;CONNECTICUT HCS^689
- VADAY ;;DAYTON^552
- VADEN ;;DENVER^554
- VADET ;;DETROIT^553
- VADUB ;;DUBLIN^557
- VADUR ;;DURHAM^558
- VAELP ;;EL PASO^756
- VAERI ;;ERIE^562
- VAFAR ;;FARGO^437
- VAFNC ;;FAYETTEVILLE^565
- VAFAV ;;FAYETTEVILLE^564
- VAJAC ;;G. V. (SONNY) MONTGOMERY^586
- VAGRJ ;;GRAND JUNCTION^575
- VAHAM ;;HAMPTON^590
- VAHIN ;;HINES^578
- VAHON ;;HONOLULU VAMROC^459
- VAHOU ;;HOUSTON^580
- VAHVH ;;HUDSON VALLEY HCS^620
- VAHUN ;;HUNTINGTON^581
- VADAN ;;ILLIANA HEALTH CARE SYSTEM^550
- VAIND ;;INDIANAPOLIS^583
- VAIRO ;;IRON MOUNTAIN^585
- VALAS ;;LAS VEGAS^593
- VALEB ;;LEBANON^595
- VALEX ;;LEXINGTON^596
- VALOM ;;LOMA LINDA^605
- VALON ;;LONG BEACH HCS^600
- VALOU ;;LOUISVILLE^603
- VAMAD ;;MADISON^607
- VAMAN ;;MANCHESTER^608
- VAMPI ;;MANILA^358
- VAMWV ;;MARTINSBURG^613
- VAMAR ;;MARYLAND HCS^512
- VAMEM ;;MEMPHIS^614
- VAMIA ;;MIAMI^546
- VAMIW ;;MILWAUKEE^695
- VAMIN ;;MINNEAPOLIS^618
- VAFHM ;;MONTANA HCS^436
- VAMOU ;;MOUNTAIN HOME^621
- VAMUS ;;MUSKOGEE^623
- VAGAI ;;N. FLORIDA/S. GEORGIA HCS^573
- VANJH ;;NEW JERSEY HCS^561
- VAALB ;;NEW MEXICO HCS^501
- VANOL ;;NEW ORLEANS^629
- VANYN ;;NEW YORK HARBOR HCS^630
- VANCH ;;NORTH CHICAGO^556
- VANTH ;;NORTH TEXAS HCS^549
- VANHM ;;NORTHAMPTON^631
- VAPRE ;;NORTHERN ARIZONA HCS^649
- VAMAC ;;NORTHERN CALIFORNIA HCS^612
- VANIN ;;NORTHERN INDIANA HCS^610
- VANOP ;;NORTHPORT^632
- VAOKL ;;OKLAHOMA CITY^635
- VAPAL ;;PALO ALTO HCS^640
- VAPHI ;;PHILADELPHIA^642
- VAPHO ;;PHOENIX^644
- VAPTH ;;PITTSBURGH HCS^646
- VAPOR ;;PORTLAND^648
- VAPRO ;;PROVIDENCE^650
- VAPUG ;;PUGET SOUND HCS^663
- VARIC ;;RICHMOND^652
- VAROS ;;ROSEBURG^653
- VASAG ;;SAGINAW^655
- VASAM ;;SALEM^658
- VASBY ;;SALISBURY^659
- VASLC ;;SALT LAKE CITY HCS^660
- VASDC ;;SAN DIEGO HCS^664
- VASFC ;;SAN FRANCISCO^662
- VASAJ ;;SAN JUAN^672
- VASHE ;;SHERIDAN^666
- VASHR ;;SHREVEPORT^667
- VAREN ;;SIERRA NEVADA HCS^654
- VASUX ;;SIOUX FALLS^438
- VASTX ;;SOUTH TEXAS HCS^671
- VATUC ;;SOUTHERN ARIZONA HCS^678
- VASPO ;;SPOKANE^668
- VASTC ;;ST. CLOUD^656
- VATAM ;;TAMPA^673
- VANAS ;;TENNESSEE VALLEY HCS^626
- VATOG ;;TOGUS^402
- VATOM ;;TOMAH^676
- VATUA ;;TUSCALOOSA^679
- VAWNY ;;UPSTATE NEW YORK HCS^528
- VASTL ;;VA HEARTLAND - EAST, VISN 15^657
- VAKAN ;;VA HEARTLAND - WEST, VISN 15^589
- VAWWW ;;WALLA WALLA^687
- VAWAS ;;WASHINGTON^688
- VAWLA ;;WEST LA VAMC^691
- VAWPB ;;WEST PALM BEACH^548
- VABIG ;;WEST TEXAS HCS^519
- VAWCO ;;WHITE CITY^692
- VAWRJ ;;WHITE RIVER JCT^405
- VAWBP ;;WILKES BARRE^693
- VAWIM ;;WILMINGTON^460
- ;;***
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRGMTMONX 8032 printed Jan 18, 2025@02:43:40 Page 2
- RGMTMONX ;BIR/CML,PTD-MPI/PD Monitor HL7 Messaging/Filers and Setups (CONT) ;07/30/02
- +1 ;;1.0;CLINICAL INFO RESOURCE NETWORK;**20,30,31**;30 Apr 99
- +2 ;
- +3 ;Reference to ^DIC(4,"D", supported by IA #3627
- +4 ;Reference to ^HLCS(870 supported by IA #3335
- +5 ;Reference to ^DGCN(391.91, supported by IA #2911
- +6 ;
- START ;
- +1 IF DEV
- IF '$DATA(RGHLMQ)
- WRITE @IOF,"Logical Link Monitor:",!,"=====================",!
- +2 ;
- +3 KILL ^XTMP("RGMT","MONT")
- +4 IF '$DATA(TXTCNT)
- SET TXTCNT=0
- +5 IF '$DATA(LOCSITE)
- SET LOCSITE=$PIECE($$SITE^VASITE(),"^")
- +6 ;
- +7 ;MULTID=# of multiple "D" xrefs in ^DIC(4 for Station #
- +8 ;NOINST=# of VAxxx Links with no INSTITUTION defined
- +9 ;BADINST=# of VAxxx Links that have an incorrect INSTITUTION defined
- +10 ;BADTF=# of patients with invalid Treating Facilities
- +11 ;NONVA=# of non-VAxxx Logical Links with INSTITUTION defined
- +12 ;CNT=# of VAxxx Logical Links processed
- +13 ;
- +14 SET (NOINST,BADINST,BADTF,MULTID,NONVA,CNT,DODHOST)=0
- +15 ;
- 1 ;
- +1 IF DEV
- IF '$DATA(RGHLMQ)
- WRITE !,"=> Checks 1-3: Checking Link Setups..."
- +2 KILL LINKARR
- +3 SET LINK=""
- +4 FOR
- SET LINK=$ORDER(^HLCS(870,"B",LINK))
- if LINK=""
- QUIT
- Begin DoDot:1
- +5 IF LINK'="MPIVA"&($EXTRACT(LINK,1,2)'="VA")
- QUIT
- +6 IF $EXTRACT(LINK,1,2)="VA"&($LENGTH(LINK," ")>1)
- QUIT
- +7 if LINK["-"
- QUIT
- +8 IF $TEXT(@LINK)']""
- QUIT
- +9 SET CNT=CNT+1
- +10 SET VALSTA=$PIECE($PIECE($TEXT(@LINK),";;",2),"^",2)
- +11 ;build array of links with valid station numbers to do check 5
- +12 SET LINKARR(VALSTA)=LINK
- 2 ;check for multiple "D" xrefs in ^DIC(4 for this station #)
- +1 SET (XCNT,QQ)=0
- +2 FOR
- SET QQ=$ORDER(^DIC(4,"D",VALSTA,QQ))
- if 'QQ
- QUIT
- Begin DoDot:2
- +3 SET XCNT=XCNT+1
- +4 IF QQ["."
- Begin DoDot:3
- +5 SET ^XTMP("RGMT","MONT","DECIMEL INST IEN",VALSTA,QQ)=""
- End DoDot:3
- End DoDot:2
- +6 IF XCNT>1
- Begin DoDot:2
- +7 SET LINKIEN=$ORDER(^HLCS(870,"B",LINK,0))
- +8 SET MULTID=MULTID+1
- +9 SET (XCNT,QQ)=0
- +10 FOR
- SET QQ=$ORDER(^DIC(4,"D",VALSTA,QQ))
- if 'QQ
- QUIT
- Begin DoDot:3
- +11 SET ^XTMP("RGMT","MONT","MULTI DXREF",VALSTA,QQ)=$$GET1^DIQ(4,QQ_",",.01)_"^"_$$GET1^DIQ(870,LINKIEN_",",.01)_"^"_$$GET1^DIQ(870,LINKIEN_",",.02,"I")
- End DoDot:3
- End DoDot:2
- 3 ;check for defined INSTITUTION and set (if necessary) AUTOSTART and RESTART for links in file 870
- +1 SET LINKIEN=$ORDER(^HLCS(870,"B",LINK,0))
- +2 SET LINKINST=$$GET1^DIQ(870,LINKIEN_",",.02,"I")
- +3 IF 'LINKINST
- Begin DoDot:2
- +4 SET NOINST=NOINST+1
- +5 SET ^XTMP("RGMT","MONT","NO INST",LINK)=LINKIEN_"^"_$PIECE($PIECE($TEXT(@LINK),";;",2),"^",1,2)
- +6 SET TXT=" ** No INSTITUTION defined for "_LINK
- DO TXT
- End DoDot:2
- QUIT
- 4 ;check for incorrect INSTITUTION
- +1 SET LOCSTA=$PIECE($$NS^XUAF4(LINKINST),"^",2)
- +2 IF LOCSTA'=VALSTA
- Begin DoDot:2
- +3 SET BADINST=BADINST+1
- +4 SET ^XTMP("RGMT","MONT","BAD INST",LINK)=LOCSTA
- +5 SET TXT=" ** Bad INSTITUTION of Station #"_LOCSTA_" defined for "_LINK_" - should be Station #"_VALSTA
- DO TXT
- End DoDot:2
- End DoDot:1
- +6 ;
- 5 ;
- +1 IF DEV
- IF '$DATA(RGHLMQ)
- WRITE !,"=> Check 4 : Checking for patients with invalid Treating Facilities..."
- +2 SET TFIEN=0
- +3 FOR
- SET TFIEN=$ORDER(^DGCN(391.91,"C",TFIEN))
- if 'TFIEN
- QUIT
- Begin DoDot:1
- +4 SET TF=$PIECE($$NS^XUAF4(TFIEN),"^",2)
- +5 IF TF=""
- Begin DoDot:2
- +6 SET TFIFN=0
- FOR
- SET TFIFN=$ORDER(^DGCN(391.91,"C",TFIEN,TFIFN))
- if 'TFIFN
- QUIT
- Begin DoDot:3
- +7 SET BADTF=BADTF+1
- +8 SET DFN=$$GET1^DIQ(391.91,TFIFN_",",.01,"I")
- +9 IF DEV
- IF '$DATA(RGHLMQ)
- Begin DoDot:4
- +10 WRITE !?3,"** TF with no station # for ",$PIECE(^DIC(4,TFIEN,0),"^")," for DFN #",DFN," - (TF IEN #",TFIFN,")"
- End DoDot:4
- End DoDot:3
- End DoDot:2
- QUIT
- +11 IF '$DATA(LINKARR(TF))
- Begin DoDot:2
- +12 SET IEN=0
- FOR
- SET IEN=$ORDER(^DGCN(391.91,"C",TFIEN,IEN))
- if 'IEN
- QUIT
- Begin DoDot:3
- +13 IF TF=200
- SET DODHOST=DODHOST+1
- QUIT
- +14 SET DFN=$$GET1^DIQ(391.91,IEN_",",.01,"I")
- +15 SET BADTF=BADTF+1
- +16 SET ^XTMP("RGMT","MONT","BAD TF",DFN)=$$GET1^DIQ(4,TFIEN_",",.01)_"^"_IEN
- +17 IF DEV
- IF '$DATA(RGHLMQ)
- WRITE !?3,"** Bad TF of ",$PIECE(^DIC(4,TFIEN,0),"^")," for DFN #",DFN," - (TF IEN #",IEN,")"
- End DoDot:3
- End DoDot:2
- End DoDot:1
- +18 ;
- 6 ;
- +1 IF DEV
- IF '$DATA(RGHLMQ)
- WRITE !,"=> Check 5 : Checking for non-VAxxx links with INSTITUTION defined..."
- +2 SET LINK=""
- +3 FOR
- SET LINK=$ORDER(^HLCS(870,"B",LINK))
- if LINK=""
- QUIT
- IF $EXTRACT(LINK,1,2)'="VA"!($EXTRACT(LINK,1,4)="VAFC")
- Begin DoDot:1
- +4 if LINK="MPIVA"
- QUIT
- +5 SET LINKIEN=$ORDER(^HLCS(870,"B",LINK,0))
- +6 SET LINKINST=$$GET1^DIQ(870,LINKIEN_",",.02,"I")
- +7 if 'LINKINST
- QUIT
- +8 if LINKINST'=+$$SITE^VASITE()
- QUIT
- +9 SET NONVA=NONVA+1
- +10 SET ^XTMP("RGMT","MONT","NONVA LINK WITH INSTITUTION",LINK)=""
- +11 SET TXT=" ** Non-VA Link with LOCAL INSTITUTION defined - "_LINK
- DO TXT
- End DoDot:1
- +12 ;
- DONE ;
- +1 SET TXT=""
- DO TXT
- +2 ;
- +3 SET TXT="=============================="
- DO TXT
- +4 SET TXT="Check 1: "_MULTID_" VA MPI/PD Links with multiple ""D"" xref in ^DIC(4 for Station #."
- DO TXT
- +5 SET TXT="Check 2: "_NOINST_" VA MPI/PD Links without an INSTITUTION defined."
- DO TXT
- +6 SET TXT="Check 3: "_BADINST_" VA MPI/PD Links with incorrect INSTITUTION defined."
- DO TXT
- +7 SET TXT="Check 4: "_BADTF_" patients with invalid Treating Facilities. => FHIE Pts: "_DODHOST
- DO TXT
- +8 SET TXT="Check 5: "_NONVA_" non-VA MPI/PD Links with an INSTITUTION of local site defined."
- DO TXT
- +9 ;
- +10 KILL BADINST,BADTF,CNT,DEV,DFN,IEN,LINK,LINKARR,LINKIEN,LINKINST,LOCSITE,LOCSTA,MULTID
- +11 KILL NOINST,NONVA,QQ,TF,TFIEN,TFIFN,TXT,TXTCNT,VALSTA,XCNT,DODHOST
- +12 QUIT
- +13 ;
- TXT ;
- +1 SET TXTCNT=TXTCNT+1
- +2 IF DEV
- IF '$DATA(RGHLMQ)
- WRITE !,TXT
- +3 IF $DATA(RGHLMQ)
- SET ^XTMP("RGMT","HLMQMONT",LOCSITE,TXTCNT)=TXT
- +4 QUIT
- +5 ;
- LINKS ;
- MPIVA ;;MPI^200M
- VAALX ;;ALEXANDRIA^502
- VAALT ;;ALTOONA^503
- VAAMA ;;AMARILLO HCS^504
- VAANC ;;ANCHORAGE^463
- VAANN ;;ANN ARBOR^506
- VAASH ;;ASHEVILLE^637
- VAATG ;;ATLANTA^508
- VAAUG ;;AUGUSTA^509
- VABAC ;;BATTLE CREEK^515
- VABAY ;;BAY PINES^516
- VABEC ;;BECKLEY^517
- VABED ;;BEDFORD^518
- VABIL ;;BILOXI^520
- VABIR ;;BIRMINGHAM^521
- VABHH ;;BLACK HILLS HCS^568
- VABOI ;;BOISE^531
- VABOS ;;BOSTON HCS^523
- VABRX ;;BRONX^526
- VABUT ;;BUTLER^529
- VACAH ;;CENTRAL ALABAMA HCS^619
- VALIT ;;CENTRAL ARKANSAS HCS^598
- VAFRE ;;CENTRAL CALIFORNIA HCS^570
- VAOMA ;;CENTRAL PLAINS HCS^636
- VACTX ;;CENTRAL TEXAS HCS^674
- VACHA ;;CHARLESTON^534
- VACHY ;;CHEYENNE^442
- VACHS ;;CHICAGO HCS^537
- VACLL ;;CHILLICOTHE^538
- VACIN ;;CINCINNATI^539
- VACLA ;;CLARKSBURG^540
- VACLE ;;CLEVELAND^541
- VACOA ;;COATESVILLE^542
- VACMS ;;COLUMBIA^544
- VACOS ;;COLUMBUS^757
- VACON ;;CONNECTICUT HCS^689
- VADAY ;;DAYTON^552
- VADEN ;;DENVER^554
- VADET ;;DETROIT^553
- VADUB ;;DUBLIN^557
- VADUR ;;DURHAM^558
- VAELP ;;EL PASO^756
- VAERI ;;ERIE^562
- VAFAR ;;FARGO^437
- VAFNC ;;FAYETTEVILLE^565
- VAFAV ;;FAYETTEVILLE^564
- VAJAC ;;G. V. (SONNY) MONTGOMERY^586
- VAGRJ ;;GRAND JUNCTION^575
- VAHAM ;;HAMPTON^590
- VAHIN ;;HINES^578
- VAHON ;;HONOLULU VAMROC^459
- VAHOU ;;HOUSTON^580
- VAHVH ;;HUDSON VALLEY HCS^620
- VAHUN ;;HUNTINGTON^581
- VADAN ;;ILLIANA HEALTH CARE SYSTEM^550
- VAIND ;;INDIANAPOLIS^583
- VAIRO ;;IRON MOUNTAIN^585
- VALAS ;;LAS VEGAS^593
- VALEB ;;LEBANON^595
- VALEX ;;LEXINGTON^596
- VALOM ;;LOMA LINDA^605
- VALON ;;LONG BEACH HCS^600
- VALOU ;;LOUISVILLE^603
- VAMAD ;;MADISON^607
- VAMAN ;;MANCHESTER^608
- VAMPI ;;MANILA^358
- VAMWV ;;MARTINSBURG^613
- VAMAR ;;MARYLAND HCS^512
- VAMEM ;;MEMPHIS^614
- VAMIA ;;MIAMI^546
- VAMIW ;;MILWAUKEE^695
- VAMIN ;;MINNEAPOLIS^618
- VAFHM ;;MONTANA HCS^436
- VAMOU ;;MOUNTAIN HOME^621
- VAMUS ;;MUSKOGEE^623
- VAGAI ;;N. FLORIDA/S. GEORGIA HCS^573
- VANJH ;;NEW JERSEY HCS^561
- VAALB ;;NEW MEXICO HCS^501
- VANOL ;;NEW ORLEANS^629
- VANYN ;;NEW YORK HARBOR HCS^630
- VANCH ;;NORTH CHICAGO^556
- VANTH ;;NORTH TEXAS HCS^549
- VANHM ;;NORTHAMPTON^631
- VAPRE ;;NORTHERN ARIZONA HCS^649
- VAMAC ;;NORTHERN CALIFORNIA HCS^612
- VANIN ;;NORTHERN INDIANA HCS^610
- VANOP ;;NORTHPORT^632
- VAOKL ;;OKLAHOMA CITY^635
- VAPAL ;;PALO ALTO HCS^640
- VAPHI ;;PHILADELPHIA^642
- VAPHO ;;PHOENIX^644
- VAPTH ;;PITTSBURGH HCS^646
- VAPOR ;;PORTLAND^648
- VAPRO ;;PROVIDENCE^650
- VAPUG ;;PUGET SOUND HCS^663
- VARIC ;;RICHMOND^652
- VAROS ;;ROSEBURG^653
- VASAG ;;SAGINAW^655
- VASAM ;;SALEM^658
- VASBY ;;SALISBURY^659
- VASLC ;;SALT LAKE CITY HCS^660
- VASDC ;;SAN DIEGO HCS^664
- VASFC ;;SAN FRANCISCO^662
- VASAJ ;;SAN JUAN^672
- VASHE ;;SHERIDAN^666
- VASHR ;;SHREVEPORT^667
- VAREN ;;SIERRA NEVADA HCS^654
- VASUX ;;SIOUX FALLS^438
- VASTX ;;SOUTH TEXAS HCS^671
- VATUC ;;SOUTHERN ARIZONA HCS^678
- VASPO ;;SPOKANE^668
- VASTC ;;ST. CLOUD^656
- VATAM ;;TAMPA^673
- VANAS ;;TENNESSEE VALLEY HCS^626
- VATOG ;;TOGUS^402
- VATOM ;;TOMAH^676
- VATUA ;;TUSCALOOSA^679
- VAWNY ;;UPSTATE NEW YORK HCS^528
- VASTL ;;VA HEARTLAND - EAST, VISN 15^657
- VAKAN ;;VA HEARTLAND - WEST, VISN 15^589
- VAWWW ;;WALLA WALLA^687
- VAWAS ;;WASHINGTON^688
- VAWLA ;;WEST LA VAMC^691
- VAWPB ;;WEST PALM BEACH^548
- VABIG ;;WEST TEXAS HCS^519
- VAWCO ;;WHITE CITY^692
- VAWRJ ;;WHITE RIVER JCT^405
- VAWBP ;;WILKES BARRE^693
- VAWIM ;;WILMINGTON^460
- +1 ;;***