Routine: IBYP683

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.

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")

BMSG(IBA) ;

 D BMES^XPDUTL(IBA)

MSG(IBA) ;

 D MES^XPDUTL(IBA)

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")

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)

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  Mar 13, 2025@21:41:28                                                                                                                                                                                                    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

IBYP683.m