IBYP683 ;ALB/CXW - IB*2.0*683 POST INIT: REASONABLE CHARGES V4.21 ; 08/31/2020
;;2.0;INTEGRATED BILLING;**683**;21-MAR-94;Build 74
;;Per VA Directive 6402, this routine should not be modified.
Q
;
POST ;
N IBA,U S U="^"
D BMSG(" Reasonable Charges v4.21 Post-Install .....")
D CHGINA("") ; inactivate all RC charges in #363.2
D FTYPE ; change facility type from non-provider to provider based outpatient care in #363.31
D BMSG(" Reasonable Charges v4.21 Post-Install Complete")
Q
;
BMSG(IBA) ;
D BMES^XPDUTL(IBA)
Q
MSG(IBA) ;
D MES^XPDUTL(IBA)
Q
;
CHGINA(VERS) ; inactive charges from previous versions of Reasonable Charges
; VERS = version to begin inactivations with (1, 1.1, 1.2, ...)
; - Inactive date added is the first RC Version Inactive date after the effective date of the charge
; - if the charge already has an inactive date less than the Version Inactive Date then no change is made
;
N IBA,IBI,IBX,IBSTART,IBENDATE,IBCS,IBCS0,IBBR0,IBXRF,IBITM,IBNEF,IBCI,IBCI0,IBCIEF,IBCIIA,IBNEWIA
N DD,DO,DLAYGO,DIC,DIE,DA,DR,X,Y,IBCNT S IBCNT=0
;
D BMSG(" >> Inactivating Existing Reasonable Charges, Please Wait...")
;
S IBSTART="" I $G(VERS)'="" S IBSTART=$$VERSDT^IBCRHBRV(VERS)
S IBENDATE=$$VERSEND^IBCRHBRV
;
S IBCS=0 F S IBCS=$O(^IBE(363.1,IBCS)) Q:'IBCS D
. S IBCS0=$G(^IBE(363.1,IBCS,0)) Q:IBCS0=""
. S IBBR0=$G(^IBE(363.3,+$P(IBCS0,U,2),0)) I $E(IBBR0,1,3)'="RC " Q
. ;
. S IBXRF="AIVDTS"_IBCS
. S IBITM=0 F S IBITM=$O(^IBA(363.2,IBXRF,IBITM)) Q:'IBITM D
.. S IBNEF="" F S IBNEF=$O(^IBA(363.2,IBXRF,IBITM,IBNEF)) Q:IBNEF="" Q:-IBNEF<IBSTART D
... ;
... S IBCI=0 F S IBCI=$O(^IBA(363.2,IBXRF,IBITM,IBNEF,IBCI)) Q:'IBCI D
.... S IBCI0=$G(^IBA(363.2,IBCI,0)) Q:IBCI0=""
.... S IBCIEF=$P(IBCI0,U,3),IBCIIA=$P(IBCI0,U,4),IBNEWIA=""
.... ;
.... F IBI=2:1 S IBX=+$P(IBENDATE,";",IBI) S IBNEWIA=IBX Q:'IBX Q:IBCIEF'>IBX
.... ;
.... I 'IBNEWIA Q
.... I +IBCIIA,IBCIIA'>IBNEWIA Q
.... ;
.... S DR=".04///"_+IBNEWIA,DIE="^IBA(363.2,",DA=+IBCI
.... D ^DIE K DIE,DIC,DA,DR,X,Y S IBCNT=IBCNT+1
;
D MSG(" Done. "_IBCNT_" existing charges inactivated")
Q
;
FTYPE ; change facility type of billing regions for 166 subdivisions
N IBARY,IBCNT,IBI,IBLND,IBRIEN,IBSDV,DA,DIE,DR,X,Y S IBCNT=0
D BMSG(" >> Updating Billing Regions with Provider Based Outpatient Care")
F IBI=1:1 S IBLND=$P($T(NPBTX+IBI),";;",2) Q:IBLND="Q" D
. S IBSDV=$P(IBLND,",") Q:IBSDV=""
. S ^TMP("IB683",$J,IBSDV,IBI)=""
; update type with 2 if match to the list
S IBRIEN=0 F S IBRIEN=$O(^IBE(363.31,IBRIEN)) Q:'IBRIEN D
. S IBLND=$G(^IBE(363.31,IBRIEN,0)) Q:IBLND=""
. Q:$E(IBLND,1,3)'="RC "
. S IBSDV=$P($P(IBLND,U)," ",2) Q:IBSDV=""
. Q:'$D(^TMP("IB683",$J,IBSDV))
. Q:$P(IBLND,U,3)=2
. ;
. S DIE="^IBE(363.31,",DA=IBRIEN,DR=".03///2"
. D ^DIE K DIE,DR,DA,X,Y
. S IBCNT=IBCNT+1,IBARY($P(IBLND,U))=""
;
; display region name by order
S IBSDV="" F S IBSDV=$O(IBARY(IBSDV)) Q:IBSDV="" D MSG(" "_IBSDV)
D MSG(" Done. "_IBCNT_" facility type of billing regions changed")
K ^TMP("IB683",$J)
Q
;
NPBTX ; 166 Station #,VA Facility Location & State,Zip Code,NPB Type
;;402QA,"FT. KENT VA CLINIC, ME",047,3
;;405HA,"BURLINGTON LAKESIDE VA CLINIC, VT (CBOC)",054,3
;;405QB,"NEWPORT VA CLINIC, VT",058,3
;;436GK,"GLENDIVE VA CLINIC, MT",593,3
;;436GN,"DR. J MEDICINE CROW VA CLINIC, MT",591,3
;;436QA,"HAMILTON VA CLINIC, MT",598,3
;;436QB,"PLENTYWOOD VA CLINIC, MT",592,3
;;436QD,"BROWNING VA CLINIC, MT",594,3
;;437GB,"BISMARCK VA CLINIC, ND",585,3
;;437GJ,"DICKINSON VA CLINIC, ND",586,3
;;437GK,"JAMESTOWN VA CLINIC, ND",584,3
;;437GL,"DEVILS LAKE VA CLINIC, ND",583,3
;;442QD,"LARAMIE VA MOBILE CLINIC, WY",820,3
;;442QE,"STERLING VA CLINIC, CO",807,3
;;459GE,VA GUAM CBOC,969,3
;;459GH,SAIPAN VA CLINIC,969,3
;;459QA,"LANAI VA CLINIC, HI",967,3
;;459QB,"MOLOKAI VA CLINIC, HI",967,3
;;460GD,"CAPE MAY, NJ (CBOC)",082,3
;;460HE,"ATLANTIC COUNTY VA CLINIC, NJ",082,3
;;463GA,"FAIRBANKS VA CLINIC, AK",997,3
;;463GD,"HOMER VA CLINIC, AK",996,3
;;463GE,"JUNEAU VA CLINIC, AK",998,3
;;501GN,"TAOS VA CLINIC, NM",875,3
;;502GE,"DOUGLAS FOURNET VA CLINIC, LA",706,3
;;502QB,"LAFAYETTE CAMPUS B VA CLINIC, LA",705,3
;;508GL,"ROME VA CLINIC, GA",301,3
;;508GM,"PICKENS COUNTY VA CLINIC, GA",301,3
;;509QA,"RAY HENDRIX VA CLINIC, GA",304,3
;;512GE,"POCOMOKE CITY VA CLINIC, MD",218,3
;;515QA,"LANSING NORTH VA CLINIC, MI",489,3
;;515QB,"CENTURY AVENUE VA CLINIC, MI",495,3
;;520GB,"PANAMA CITY BEACH VA CLINIC, FL",324,3
;;520QA,"PANAMA CITY BEACH WEST VA CLIN, FL",324,3
;;523GD,"PLYMOUTH VA CLINIC, MA",023,3
;;528QE,"COUDERSPORT VA CLINIC, NY",169,3
;;528QF,"WELLSBORO VA CLINIC, NY",169,3
;;528QK,"SARANAC LAKE VA CLINIC, NY",129,3
;;528QN,"WATERTOWN 2 VA CLINIC, NY",136,3
;;531GH,"EASTERN OREGON VA CLINIC, OR",977,3
;;531GI,"MOUNTAIN HOME VA CLINIC, ID",836,3
;;531GJ,"SALMON VA CLINIC, ID",834,3
;;531JA,"SALMON ORC, ID",834,3
;;531JB,"BURNS ORC, OR",977,3
;;534QA,"MARKET COMMONS VA CLINIC, SC",295,3
;;538GF,"WILMINGTON VA CLINIC, OH",451,3
;;546GH,"DEERFIELD BEACH VA CLINIC, FL",334,3
;;548QA,"PORT SAINT LUCIE VA CLINIC, FL",349,3
;;549GJ,"SHERMAN VA CLINIC, TX",750,3
;;550GG,"BLOOMINGTON VA CLINIC, IL",617,3
;;554GE,"FLOYD K. LINDSTROM VA CLINIC (CBOC), CO",809,3
;;554QC,"SALIDA VA CLINIC, CO",812,3
;;557GF,"TIFTON VA CLINIC, GA",317,3
;;558GH,"CLAYTON-EAST RALEIGH VA CLINIC, NC",275,3
;;561GK,"SUSSEX VA CLINIC, NJ",078,3
;;564GF,"JOPLIN VA CLINIC, MO",648,3
;;565GA,"JACKSONVILLE VA CLINIC, NC",285,3
;;565GC,"WILMINGTON VA CLINIC, NC",284,3
;;565GH,"BRUNSWICK COUNTY VA CLINIC, NC",284,3
;;565GJ,"JACKSONVILLE 2 VA CLINIC, NC",285,3
;;565GM,"JACKSONVILLE 3 VA CLINIC, NC",285,3
;;565GN,"JACKSONVILLE 4 VA CLINIC, NC",285,3
;;568HB,"GORDON VA CLINIC, NE",693,3
;;568HH,"SCOTTSBLUFF VA CLINIC, NE",693,3
;;568HJ,"MISSION VA CLINIC, SD",575,3
;;568HP,"WINNER VA CLINIC, SD",575,3
;;573GF,"SGT E.I. BOOTS THOMAS VA CLIN, FL",323,3
;;573GK,"MARIANNA VA CLINIC, FL",324,3
;;573GM,"WAYCROSS VA CLINIC, GA",315,3
;;573GO,"MIDDLEBURG VA CLINIC, FL",320,3
;;573QG,"JACKSONVILLE SOUTHPOINT VA CLINIC, FL",322,3
;;573QK,"LAKE CITY VA CLINIC, FL",320,3
;;575QA,"GLENWOOD SPRINGS VA CLINIC, CO",816,3
;;575QB,"MOAB VA CLINIC, UT",845,3
;;581GH,"LENORE VA CLINIC, WV",256,3
;;583GE,"WEST LAFAYETTE VA CLINIC, IN",479,3
;;583QA,"MONROE COUNTY VA CLINIC, IN",474,3
;;583QC,"VIGO COUNTY VA CLINIC, IN",478,3
;;583QF,"CRANE VA CLINIC, IN",475,3
;;585GF,"MANISTIQUE VA CLINIC, MI",498,3
;;585GG,"GLADSTONE VA CLINIC, MI",498,3
;;589G9,"FORT RILEY VA CLINIC, KS ",664,3
;;596GA,"SOMERSET VA CLINIC, KY",425,3
;;596GB,"MOREHEAD VA CLINIC, KY",403,3
;;596GC,"HAZARD VA CLINIC, KY ",417,3
;;605QA,"BLYTHE VA CLINIC, CA",922,3
;;610BY,"ST. JOSEPH COUNTY VA CLINIC, IN",465,3
;;610GC,"GOSHEN VA CLINIC, IN",465,3
;;610QB,"COLUMBIA PLACE VA CLINIC, IN",466,3
;;612B4,"REDDING VA CLINIC, CA",960,3
;;612GG,"CHICO VA CLINIC, CA",959,3
;;612GI,"YUBA CITY VA CLINIC, CA",959,3
;;612GJ,"YREKA VA CLINIC, CA",960,3
;;612QB,"TWENTY FIRST STREET VA CLINIC, CA",946,3
;;612QC,"CYPRESS AVENUE VA CLINIC, CA",960,3
;;618GM,"RICE LAKE VA CLINIC, WI",548,3
;;618GN,"LYLE C. PEARSON CBOC, MN",560,3
;;618QB,"ELY VA CLINIC, MN",557,3
;;619GA,"COLUMBUS VA CLINIC, GA",319,3
;;619QA,"DOTHAN 2 VA CLINIC, AL",363,3
;;619QB,"FORT BENNING VA CLINIC, GA",319,3
;;620GE,"PORT JERVIS VA CLINIC, NY",127,3
;;620GF,"MONTICELLO VA CLINIC, NY",127,3
;;620GH,"EASTERN DUTCHESS VA CLINIC, NY",125,3
;;621QA,"JONESVILLE VA CLINIC, VA",242,3
;;621QB,"MARION VA CLINIC, VA",243,3
;;621QC,"VANSANT VA CLINIC, VA",246,3
;;621QD,"KNOX COUNTY VA CLINIC, TN",379,3
;;621QE,"DOWNTOWN WEST VA CLINIC, TN",379,3
;;623GC,"MC CURTAIN COUNTY VA CLINIC, OK",747,3
;;623QB,"TULSA ELEVENTH STREET VA CLINIC, OK",741,3
;;626GF,"CHATTANOOGA VA CLINIC, TN",374,3
;;626GG,"TULLAHOMA VA CLINIC, TN",373,3
;;626GK,"MCMINNVILLE VA CLINIC, TN",371,3
;;626GL,"ROANE COUNTY VA CLINIC, TN",377,3
;;626QC,"POINTE CENTRE VA CLINIC, TN",374,3
;;626QF,"DALTON DRIVE VA CLINIC, TN",370,3
;;629QA,"BATON ROUGE SOUTH VA CLINIC, LA",708,3
;;631QB,"LAKE AVENUE VA CLINIC, MA",016,3
;;635GH,"CLINTON VA CLINIC, OK",736,3
;;635QD,"LAWTON NORTH VA CLINIC, OK",735,3
;;636GX,"FORT DODGE NORTH VA CLINIC, IA",505,3
;;636QD,"MACOMB VA CLINIC, IL",614,3
;;636QI,"DAVENPORT VA CLINIC, IA",528,3
;;648GH,"NEWPORT VA CLINIC, OR",973,3
;;648GJ,"LOREN R. KAUFMAN VA CLINIC, OR",970,3
;;648GK,"LINCOLN CITY VA CLINIC, OR",973,3
;;649QA,"CHINLE VA CLINIC, AZ",865,3
;;649QB,"HOLBROOK VA CLINIC, AZ",860,3
;;649QD,"PAGE VA CLINIC, AZ",860,3
;;649QF,"TUBA CITY VA CLINIC, AZ",860,3
;;649QG,"POLACCA VA CLINIC, AZ",860,3
;;649QH,"KAYENTA VA CLINIC, AZ",860,3
;;653QA,"DOWNTOWN EUGENE VA CLINIC, OR",974,3
;;654QC,"WINNEMUCCA VA CLINIC, NV",894,3
;;657GW,"POCAHONTAS VA CLINIC, AR",724,3
;;660QA,"IDAHO FALLS VA CLINIC, ID",834,3
;;660QB,"PRICE VA CLINIC, UT",845,3
;;660QD,"CACHE VALLEY VA CLINIC, UT",843,3
;;663GE,"NORTH OLYMPIC PENINSULA VA CLINIC, WA",983,3
;;663JA,"PORT ANGELES, WA",983,3
;;666QA,"AFTON VA CLINIC, WY",831,3
;;666QB,"EVANSTON VA CLINIC, WY",829,3
;;666QC,"WORLAND VA CLINIC, WY",824,3
;;668QB,"LIBBY VA CLINIC, MT",599,3
;;668QD,"SANDPOINT VA CLINIC, ID",838,3
;;671QA,"SOUTH TEXAS VA MOBILE CLINIC, TX",780,3
;;672QB,"UTUADO VA CLINIC, PR",006,3
;;672QC,"VIEQUES VA CLINIC, PR",007,3
;;673GH,"LECANTO VA CLINIC, FL",344,3
;;675GB,"WILLIAM V. CHAPPELL, JR. VOC, FL",321,3
;;675QB,"PORT ORANGE VA CLINIC, FL",321,3
;;675QC,"WESTSIDE PAVILION VA CLINIC, FL",321,3
;;675QG,"PALM BAY VA CLINIC, FL",329,3
;;678QA,"COCHISE COUNTY VA CLINIC, AZ",856,3
;;678QB,"PINAL COUNTY VA CLINIC, AZ",851,3
;;679GA,"SELMA VA CLINIC, AL",367,3
;;687QB,"MORROW COUNTY VA CLINIC, OR",978,3
;;687QC,"WALLOWA COUNTY VA CLINIC, OR",978,3
;;688GG,"LEXINGTON PARK VA CLINIC, MD",206,3
;;693QA,"WAYNE COUNTY VA CLINIC, PA",184,3
;;695GD,"MILO C. HUEMPFNER VA OPC, WI",543,3
;;740GC,"CORPUS CHRISTI CBOC, TX",784,3
;;740GD,"LAREDO CBOC, TX",780,3
;;740GH,"SOUTH ENTERPRIZE VA CLINIC, TX",784,3
;;740GI,"OLD BROWNSVILLE VA CLINIC, TX",784,3
;;Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBYP683 10445 printed Apr 09, 2024@21:37:51 Page 2
IBYP683 ;ALB/CXW - IB*2.0*683 POST INIT: REASONABLE CHARGES V4.21 ; 08/31/2020
+1 ;;2.0;INTEGRATED BILLING;**683**;21-MAR-94;Build 74
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 QUIT
+4 ;
POST ;
+1 NEW IBA,U
SET U="^"
+2 DO BMSG(" Reasonable Charges v4.21 Post-Install .....")
+3 ; inactivate all RC charges in #363.2
DO CHGINA("")
+4 ; change facility type from non-provider to provider based outpatient care in #363.31
DO FTYPE
+5 DO BMSG(" Reasonable Charges v4.21 Post-Install Complete")
+6 QUIT
+7 ;
BMSG(IBA) ;
+1 DO BMES^XPDUTL(IBA)
+2 QUIT
MSG(IBA) ;
+1 DO MES^XPDUTL(IBA)
+2 QUIT
+3 ;
CHGINA(VERS) ; inactive charges from previous versions of Reasonable Charges
+1 ; VERS = version to begin inactivations with (1, 1.1, 1.2, ...)
+2 ; - Inactive date added is the first RC Version Inactive date after the effective date of the charge
+3 ; - if the charge already has an inactive date less than the Version Inactive Date then no change is made
+4 ;
+5 NEW IBA,IBI,IBX,IBSTART,IBENDATE,IBCS,IBCS0,IBBR0,IBXRF,IBITM,IBNEF,IBCI,IBCI0,IBCIEF,IBCIIA,IBNEWIA
+6 NEW DD,DO,DLAYGO,DIC,DIE,DA,DR,X,Y,IBCNT
SET IBCNT=0
+7 ;
+8 DO BMSG(" >> Inactivating Existing Reasonable Charges, Please Wait...")
+9 ;
+10 SET IBSTART=""
IF $GET(VERS)'=""
SET IBSTART=$$VERSDT^IBCRHBRV(VERS)
+11 SET IBENDATE=$$VERSEND^IBCRHBRV
+12 ;
+13 SET IBCS=0
FOR
SET IBCS=$ORDER(^IBE(363.1,IBCS))
if 'IBCS
QUIT
Begin DoDot:1
+14 SET IBCS0=$GET(^IBE(363.1,IBCS,0))
if IBCS0=""
QUIT
+15 SET IBBR0=$GET(^IBE(363.3,+$PIECE(IBCS0,U,2),0))
IF $EXTRACT(IBBR0,1,3)'="RC "
QUIT
+16 ;
+17 SET IBXRF="AIVDTS"_IBCS
+18 SET IBITM=0
FOR
SET IBITM=$ORDER(^IBA(363.2,IBXRF,IBITM))
if 'IBITM
QUIT
Begin DoDot:2
+19 SET IBNEF=""
FOR
SET IBNEF=$ORDER(^IBA(363.2,IBXRF,IBITM,IBNEF))
if IBNEF=""
QUIT
if -IBNEF<IBSTART
QUIT
Begin DoDot:3
+20 ;
+21 SET IBCI=0
FOR
SET IBCI=$ORDER(^IBA(363.2,IBXRF,IBITM,IBNEF,IBCI))
if 'IBCI
QUIT
Begin DoDot:4
+22 SET IBCI0=$GET(^IBA(363.2,IBCI,0))
if IBCI0=""
QUIT
+23 SET IBCIEF=$PIECE(IBCI0,U,3)
SET IBCIIA=$PIECE(IBCI0,U,4)
SET IBNEWIA=""
+24 ;
+25 FOR IBI=2:1
SET IBX=+$PIECE(IBENDATE,";",IBI)
SET IBNEWIA=IBX
if 'IBX
QUIT
if IBCIEF'>IBX
QUIT
+26 ;
+27 IF 'IBNEWIA
QUIT
+28 IF +IBCIIA
IF IBCIIA'>IBNEWIA
QUIT
+29 ;
+30 SET DR=".04///"_+IBNEWIA
SET DIE="^IBA(363.2,"
SET DA=+IBCI
+31 DO ^DIE
KILL DIE,DIC,DA,DR,X,Y
SET IBCNT=IBCNT+1
End DoDot:4
End DoDot:3
End DoDot:2
End DoDot:1
+32 ;
+33 DO MSG(" Done. "_IBCNT_" existing charges inactivated")
+34 QUIT
+35 ;
FTYPE ; change facility type of billing regions for 166 subdivisions
+1 NEW IBARY,IBCNT,IBI,IBLND,IBRIEN,IBSDV,DA,DIE,DR,X,Y
SET IBCNT=0
+2 DO BMSG(" >> Updating Billing Regions with Provider Based Outpatient Care")
+3 FOR IBI=1:1
SET IBLND=$PIECE($TEXT(NPBTX+IBI),";;",2)
if IBLND="Q"
QUIT
Begin DoDot:1
+4 SET IBSDV=$PIECE(IBLND,",")
if IBSDV=""
QUIT
+5 SET ^TMP("IB683",$JOB,IBSDV,IBI)=""
End DoDot:1
+6 ; update type with 2 if match to the list
+7 SET IBRIEN=0
FOR
SET IBRIEN=$ORDER(^IBE(363.31,IBRIEN))
if 'IBRIEN
QUIT
Begin DoDot:1
+8 SET IBLND=$GET(^IBE(363.31,IBRIEN,0))
if IBLND=""
QUIT
+9 if $EXTRACT(IBLND,1,3)'="RC "
QUIT
+10 SET IBSDV=$PIECE($PIECE(IBLND,U)," ",2)
if IBSDV=""
QUIT
+11 if '$DATA(^TMP("IB683",$JOB,IBSDV))
QUIT
+12 if $PIECE(IBLND,U,3)=2
QUIT
+13 ;
+14 SET DIE="^IBE(363.31,"
SET DA=IBRIEN
SET DR=".03///2"
+15 DO ^DIE
KILL DIE,DR,DA,X,Y
+16 SET IBCNT=IBCNT+1
SET IBARY($PIECE(IBLND,U))=""
End DoDot:1
+17 ;
+18 ; display region name by order
+19 SET IBSDV=""
FOR
SET IBSDV=$ORDER(IBARY(IBSDV))
if IBSDV=""
QUIT
DO MSG(" "_IBSDV)
+20 DO MSG(" Done. "_IBCNT_" facility type of billing regions changed")
+21 KILL ^TMP("IB683",$JOB)
+22 QUIT
+23 ;
NPBTX ; 166 Station #,VA Facility Location & State,Zip Code,NPB Type
+1 ;;402QA,"FT. KENT VA CLINIC, ME",047,3
+2 ;;405HA,"BURLINGTON LAKESIDE VA CLINIC, VT (CBOC)",054,3
+3 ;;405QB,"NEWPORT VA CLINIC, VT",058,3
+4 ;;436GK,"GLENDIVE VA CLINIC, MT",593,3
+5 ;;436GN,"DR. J MEDICINE CROW VA CLINIC, MT",591,3
+6 ;;436QA,"HAMILTON VA CLINIC, MT",598,3
+7 ;;436QB,"PLENTYWOOD VA CLINIC, MT",592,3
+8 ;;436QD,"BROWNING VA CLINIC, MT",594,3
+9 ;;437GB,"BISMARCK VA CLINIC, ND",585,3
+10 ;;437GJ,"DICKINSON VA CLINIC, ND",586,3
+11 ;;437GK,"JAMESTOWN VA CLINIC, ND",584,3
+12 ;;437GL,"DEVILS LAKE VA CLINIC, ND",583,3
+13 ;;442QD,"LARAMIE VA MOBILE CLINIC, WY",820,3
+14 ;;442QE,"STERLING VA CLINIC, CO",807,3
+15 ;;459GE,VA GUAM CBOC,969,3
+16 ;;459GH,SAIPAN VA CLINIC,969,3
+17 ;;459QA,"LANAI VA CLINIC, HI",967,3
+18 ;;459QB,"MOLOKAI VA CLINIC, HI",967,3
+19 ;;460GD,"CAPE MAY, NJ (CBOC)",082,3
+20 ;;460HE,"ATLANTIC COUNTY VA CLINIC, NJ",082,3
+21 ;;463GA,"FAIRBANKS VA CLINIC, AK",997,3
+22 ;;463GD,"HOMER VA CLINIC, AK",996,3
+23 ;;463GE,"JUNEAU VA CLINIC, AK",998,3
+24 ;;501GN,"TAOS VA CLINIC, NM",875,3
+25 ;;502GE,"DOUGLAS FOURNET VA CLINIC, LA",706,3
+26 ;;502QB,"LAFAYETTE CAMPUS B VA CLINIC, LA",705,3
+27 ;;508GL,"ROME VA CLINIC, GA",301,3
+28 ;;508GM,"PICKENS COUNTY VA CLINIC, GA",301,3
+29 ;;509QA,"RAY HENDRIX VA CLINIC, GA",304,3
+30 ;;512GE,"POCOMOKE CITY VA CLINIC, MD",218,3
+31 ;;515QA,"LANSING NORTH VA CLINIC, MI",489,3
+32 ;;515QB,"CENTURY AVENUE VA CLINIC, MI",495,3
+33 ;;520GB,"PANAMA CITY BEACH VA CLINIC, FL",324,3
+34 ;;520QA,"PANAMA CITY BEACH WEST VA CLIN, FL",324,3
+35 ;;523GD,"PLYMOUTH VA CLINIC, MA",023,3
+36 ;;528QE,"COUDERSPORT VA CLINIC, NY",169,3
+37 ;;528QF,"WELLSBORO VA CLINIC, NY",169,3
+38 ;;528QK,"SARANAC LAKE VA CLINIC, NY",129,3
+39 ;;528QN,"WATERTOWN 2 VA CLINIC, NY",136,3
+40 ;;531GH,"EASTERN OREGON VA CLINIC, OR",977,3
+41 ;;531GI,"MOUNTAIN HOME VA CLINIC, ID",836,3
+42 ;;531GJ,"SALMON VA CLINIC, ID",834,3
+43 ;;531JA,"SALMON ORC, ID",834,3
+44 ;;531JB,"BURNS ORC, OR",977,3
+45 ;;534QA,"MARKET COMMONS VA CLINIC, SC",295,3
+46 ;;538GF,"WILMINGTON VA CLINIC, OH",451,3
+47 ;;546GH,"DEERFIELD BEACH VA CLINIC, FL",334,3
+48 ;;548QA,"PORT SAINT LUCIE VA CLINIC, FL",349,3
+49 ;;549GJ,"SHERMAN VA CLINIC, TX",750,3
+50 ;;550GG,"BLOOMINGTON VA CLINIC, IL",617,3
+51 ;;554GE,"FLOYD K. LINDSTROM VA CLINIC (CBOC), CO",809,3
+52 ;;554QC,"SALIDA VA CLINIC, CO",812,3
+53 ;;557GF,"TIFTON VA CLINIC, GA",317,3
+54 ;;558GH,"CLAYTON-EAST RALEIGH VA CLINIC, NC",275,3
+55 ;;561GK,"SUSSEX VA CLINIC, NJ",078,3
+56 ;;564GF,"JOPLIN VA CLINIC, MO",648,3
+57 ;;565GA,"JACKSONVILLE VA CLINIC, NC",285,3
+58 ;;565GC,"WILMINGTON VA CLINIC, NC",284,3
+59 ;;565GH,"BRUNSWICK COUNTY VA CLINIC, NC",284,3
+60 ;;565GJ,"JACKSONVILLE 2 VA CLINIC, NC",285,3
+61 ;;565GM,"JACKSONVILLE 3 VA CLINIC, NC",285,3
+62 ;;565GN,"JACKSONVILLE 4 VA CLINIC, NC",285,3
+63 ;;568HB,"GORDON VA CLINIC, NE",693,3
+64 ;;568HH,"SCOTTSBLUFF VA CLINIC, NE",693,3
+65 ;;568HJ,"MISSION VA CLINIC, SD",575,3
+66 ;;568HP,"WINNER VA CLINIC, SD",575,3
+67 ;;573GF,"SGT E.I. BOOTS THOMAS VA CLIN, FL",323,3
+68 ;;573GK,"MARIANNA VA CLINIC, FL",324,3
+69 ;;573GM,"WAYCROSS VA CLINIC, GA",315,3
+70 ;;573GO,"MIDDLEBURG VA CLINIC, FL",320,3
+71 ;;573QG,"JACKSONVILLE SOUTHPOINT VA CLINIC, FL",322,3
+72 ;;573QK,"LAKE CITY VA CLINIC, FL",320,3
+73 ;;575QA,"GLENWOOD SPRINGS VA CLINIC, CO",816,3
+74 ;;575QB,"MOAB VA CLINIC, UT",845,3
+75 ;;581GH,"LENORE VA CLINIC, WV",256,3
+76 ;;583GE,"WEST LAFAYETTE VA CLINIC, IN",479,3
+77 ;;583QA,"MONROE COUNTY VA CLINIC, IN",474,3
+78 ;;583QC,"VIGO COUNTY VA CLINIC, IN",478,3
+79 ;;583QF,"CRANE VA CLINIC, IN",475,3
+80 ;;585GF,"MANISTIQUE VA CLINIC, MI",498,3
+81 ;;585GG,"GLADSTONE VA CLINIC, MI",498,3
+82 ;;589G9,"FORT RILEY VA CLINIC, KS ",664,3
+83 ;;596GA,"SOMERSET VA CLINIC, KY",425,3
+84 ;;596GB,"MOREHEAD VA CLINIC, KY",403,3
+85 ;;596GC,"HAZARD VA CLINIC, KY ",417,3
+86 ;;605QA,"BLYTHE VA CLINIC, CA",922,3
+87 ;;610BY,"ST. JOSEPH COUNTY VA CLINIC, IN",465,3
+88 ;;610GC,"GOSHEN VA CLINIC, IN",465,3
+89 ;;610QB,"COLUMBIA PLACE VA CLINIC, IN",466,3
+90 ;;612B4,"REDDING VA CLINIC, CA",960,3
+91 ;;612GG,"CHICO VA CLINIC, CA",959,3
+92 ;;612GI,"YUBA CITY VA CLINIC, CA",959,3
+93 ;;612GJ,"YREKA VA CLINIC, CA",960,3
+94 ;;612QB,"TWENTY FIRST STREET VA CLINIC, CA",946,3
+95 ;;612QC,"CYPRESS AVENUE VA CLINIC, CA",960,3
+96 ;;618GM,"RICE LAKE VA CLINIC, WI",548,3
+97 ;;618GN,"LYLE C. PEARSON CBOC, MN",560,3
+98 ;;618QB,"ELY VA CLINIC, MN",557,3
+99 ;;619GA,"COLUMBUS VA CLINIC, GA",319,3
+100 ;;619QA,"DOTHAN 2 VA CLINIC, AL",363,3
+101 ;;619QB,"FORT BENNING VA CLINIC, GA",319,3
+102 ;;620GE,"PORT JERVIS VA CLINIC, NY",127,3
+103 ;;620GF,"MONTICELLO VA CLINIC, NY",127,3
+104 ;;620GH,"EASTERN DUTCHESS VA CLINIC, NY",125,3
+105 ;;621QA,"JONESVILLE VA CLINIC, VA",242,3
+106 ;;621QB,"MARION VA CLINIC, VA",243,3
+107 ;;621QC,"VANSANT VA CLINIC, VA",246,3
+108 ;;621QD,"KNOX COUNTY VA CLINIC, TN",379,3
+109 ;;621QE,"DOWNTOWN WEST VA CLINIC, TN",379,3
+110 ;;623GC,"MC CURTAIN COUNTY VA CLINIC, OK",747,3
+111 ;;623QB,"TULSA ELEVENTH STREET VA CLINIC, OK",741,3
+112 ;;626GF,"CHATTANOOGA VA CLINIC, TN",374,3
+113 ;;626GG,"TULLAHOMA VA CLINIC, TN",373,3
+114 ;;626GK,"MCMINNVILLE VA CLINIC, TN",371,3
+115 ;;626GL,"ROANE COUNTY VA CLINIC, TN",377,3
+116 ;;626QC,"POINTE CENTRE VA CLINIC, TN",374,3
+117 ;;626QF,"DALTON DRIVE VA CLINIC, TN",370,3
+118 ;;629QA,"BATON ROUGE SOUTH VA CLINIC, LA",708,3
+119 ;;631QB,"LAKE AVENUE VA CLINIC, MA",016,3
+120 ;;635GH,"CLINTON VA CLINIC, OK",736,3
+121 ;;635QD,"LAWTON NORTH VA CLINIC, OK",735,3
+122 ;;636GX,"FORT DODGE NORTH VA CLINIC, IA",505,3
+123 ;;636QD,"MACOMB VA CLINIC, IL",614,3
+124 ;;636QI,"DAVENPORT VA CLINIC, IA",528,3
+125 ;;648GH,"NEWPORT VA CLINIC, OR",973,3
+126 ;;648GJ,"LOREN R. KAUFMAN VA CLINIC, OR",970,3
+127 ;;648GK,"LINCOLN CITY VA CLINIC, OR",973,3
+128 ;;649QA,"CHINLE VA CLINIC, AZ",865,3
+129 ;;649QB,"HOLBROOK VA CLINIC, AZ",860,3
+130 ;;649QD,"PAGE VA CLINIC, AZ",860,3
+131 ;;649QF,"TUBA CITY VA CLINIC, AZ",860,3
+132 ;;649QG,"POLACCA VA CLINIC, AZ",860,3
+133 ;;649QH,"KAYENTA VA CLINIC, AZ",860,3
+134 ;;653QA,"DOWNTOWN EUGENE VA CLINIC, OR",974,3
+135 ;;654QC,"WINNEMUCCA VA CLINIC, NV",894,3
+136 ;;657GW,"POCAHONTAS VA CLINIC, AR",724,3
+137 ;;660QA,"IDAHO FALLS VA CLINIC, ID",834,3
+138 ;;660QB,"PRICE VA CLINIC, UT",845,3
+139 ;;660QD,"CACHE VALLEY VA CLINIC, UT",843,3
+140 ;;663GE,"NORTH OLYMPIC PENINSULA VA CLINIC, WA",983,3
+141 ;;663JA,"PORT ANGELES, WA",983,3
+142 ;;666QA,"AFTON VA CLINIC, WY",831,3
+143 ;;666QB,"EVANSTON VA CLINIC, WY",829,3
+144 ;;666QC,"WORLAND VA CLINIC, WY",824,3
+145 ;;668QB,"LIBBY VA CLINIC, MT",599,3
+146 ;;668QD,"SANDPOINT VA CLINIC, ID",838,3
+147 ;;671QA,"SOUTH TEXAS VA MOBILE CLINIC, TX",780,3
+148 ;;672QB,"UTUADO VA CLINIC, PR",006,3
+149 ;;672QC,"VIEQUES VA CLINIC, PR",007,3
+150 ;;673GH,"LECANTO VA CLINIC, FL",344,3
+151 ;;675GB,"WILLIAM V. CHAPPELL, JR. VOC, FL",321,3
+152 ;;675QB,"PORT ORANGE VA CLINIC, FL",321,3
+153 ;;675QC,"WESTSIDE PAVILION VA CLINIC, FL",321,3
+154 ;;675QG,"PALM BAY VA CLINIC, FL",329,3
+155 ;;678QA,"COCHISE COUNTY VA CLINIC, AZ",856,3
+156 ;;678QB,"PINAL COUNTY VA CLINIC, AZ",851,3
+157 ;;679GA,"SELMA VA CLINIC, AL",367,3
+158 ;;687QB,"MORROW COUNTY VA CLINIC, OR",978,3
+159 ;;687QC,"WALLOWA COUNTY VA CLINIC, OR",978,3
+160 ;;688GG,"LEXINGTON PARK VA CLINIC, MD",206,3
+161 ;;693QA,"WAYNE COUNTY VA CLINIC, PA",184,3
+162 ;;695GD,"MILO C. HUEMPFNER VA OPC, WI",543,3
+163 ;;740GC,"CORPUS CHRISTI CBOC, TX",784,3
+164 ;;740GD,"LAREDO CBOC, TX",780,3
+165 ;;740GH,"SOUTH ENTERPRIZE VA CLINIC, TX",784,3
+166 ;;740GI,"OLD BROWNSVILLE VA CLINIC, TX",784,3
+167 ;;Q
