- PSONCPDP ;BHAM-ISC/EJW - POPULATE NCPDP NUMBER IN FILE 59 ;08/31/05
- ;;7.0;OUTPATIENT PHARMACY;**216**;DEC 1997
- ;POPULATE THE NEW NCPDP FIELD ONE TIME ONLY
- S ZTDTH=""
- I $D(ZTQUEUED) S ZTDTH=$H
- I ZTDTH="" D
- .D BMES^XPDUTL("Populate NCPDP number field")
- .D BMES^XPDUTL("Queuing background job")
- S ZTDTH=$H
- S ZTRTN="EN^PSONCPDP",ZTIO="",ZTDESC="Background job to populate NCPDP NUMBER field" D ^%ZTLOAD K ZTDTH,ZTRTN,ZTIO,ZTDESC
- W:$D(ZTSK)&('$D(ZTQUEUED)) !!,"Task queued !",!
- Q
- EN ;
- I '$G(DT) S DT=$$DT^XLFDT
- N PSODIV,SITE,INACT,PSONCP,II,DIVNAM,PSOPOP,PSONAM,NCPDP
- K ^TMP($J,"PSONCP")
- F II=1:1 S NCPDP=$P($T(NCPDP+II),";;",2) Q:NCPDP="" S SITE=$P(NCPDP,";",2),PSONAM=$P(NCPDP,";",3),PSONCP=$P(NCPDP,";",4) D
- .I PSONCP'?7N Q
- .S ^TMP($J,"PSONCP",SITE)=PSONAM_"^"_PSONCP
- S PSODIV=0 F S PSODIV=$O(^PS(59,PSODIV)) Q:'PSODIV D
- .S INACT=$$GET1^DIQ(59,PSODIV,2004,"I") I INACT,DT>INACT Q
- .S DIVNAM=$$GET1^DIQ(59,PSODIV,.01,"I") I DIVNAM="" S DIVNAM=PSODIV
- .S SITE=$$GET1^DIQ(59,PSODIV,.06,"I") I SITE="" S PSOPOP(DIVNAM,"NO SITE NUMBER FOUND")="" Q
- .S PSONCP=$$GET1^DIQ(59,PSODIV,1008,"I") I PSONCP'="" S PSOPOP(DIVNAM,SITE)=PSONCP Q
- .S PSONCP=$P($G(^TMP($J,"PSONCP",SITE)),"^",2) I PSONCP="" S PSOPOP(DIVNAM,SITE)="NO NUMBER FOUND" Q
- .S DIE="^PS(59,",DA=PSODIV,DR="1008///"_PSONCP D ^DIE K DIE,DA,DR S PSOPOP(DIVNAM,SITE)=PSONCP
- K ^TMP($J,"PSONCP")
- D MAIL
- Q
- ;
- MAIL ;
- S XMDUZ="Patch PSO*7*216",XMY(DUZ)="",XMSUB="NCPDP NUMBER POPULATION"
- F PSOCXPDA=0:0 S PSOCXPDA=$O(^XUSEC("PSORPH",PSOCXPDA)) Q:'PSOCXPDA S XMY(PSOCXPDA)=""
- K PSOTEXT
- N COUNT,DIVMAX,PSOTEXT
- S PSOTEXT(1)="Patch PSO*7*216 - POPULATE NCPDP NUMBER FIELD POST-INSTALL"
- S PSOTEXT(2)="This message is being sent to the installer of the patch and holders of"
- S PSOTEXT(3)="the PSORPH key."
- S PSOTEXT(4)=" "
- S PSOTEXT(5)="Please validate that the NCPDP number is correct for each active DIVISION and"
- S PSOTEXT(6)="SITE NUMBER. If missing or incorrect, enter the correct number using the"
- S PSOTEXT(7)="Site Parameter Enter/Edit option."
- S PSOTEXT(8)=" "
- S COUNT=8,DIVMAX=1
- S DIVNAM="" F S DIVNAM=$O(PSOPOP(DIVNAM)) Q:DIVNAM="" S:$L(DIVNAM)>DIVMAX DIVMAX=$L(DIVNAM)
- S DIVNAM="" F S DIVNAM=$O(PSOPOP(DIVNAM)) Q:DIVNAM="" D
- .S SITE="" F S SITE=$O(PSOPOP(DIVNAM,SITE)) Q:SITE="" S COUNT=COUNT+1 D
- ..S PSOTEXT(COUNT)="DIVISION: "_$J(DIVNAM,DIVMAX)_" SITE NUMBER: "_$J(SITE,4)_" NCPDP NUMBER: "_$J(PSOPOP(DIVNAM,SITE),7)
- S XMTEXT="PSOTEXT(" N DIFROM D ^XMD
- Q
- ;
- NCPDP ;;VISN;SITE#;SITE NAME;NCPDP#
- ;;1;402;Togus VAMC & ROC;2006965
- ;;1;405;White River Junction VAMC;4704044
- ;;1;518;Bedford VAMC;2233548
- ;;1;523;Boston VAMC;2235100
- ;;1;523A4;West Roxbury VAMC;2231594
- ;;1;523A5;Brockton VAMC;2240214
- ;;1;523BY;Lowell CBOC;2240238
- ;;1;523BZ;Boston -Causeway CBOC;2240202
- ;;1;523GB;Worcester CBOC;2240226
- ;;1;608;Manchester VAMC;3005255
- ;;1;631;Northampton VAMC;2240240
- ;;1;650;Providence VAMC;4106349
- ;;1;689;West Haven VAMC;0719584
- ;;1;689A4;Newington VAMC;0719596
- ;;2;528;Syracuse VAMC;3337448
- ;;2;528A7;Western NY HCS - Buffalo;3345990
- ;;2;528A4;Batavia VAMC;3346017
- ;;2;528A5;Canandaigua VAMC;3334163
- ;;2;528A6;Bath VAMC;3350458
- ;;2;528A8;Albany VAMC;3338349
- ;;3;526;Bronx VAMC;3336725
- ;;3;561;East Orange VAMC;3145388
- ;;3;561A4;Lyons VAMC;3138749
- ;;3;620;Montrose VAMC;3330925
- ;;3;620A4;Castle Point VAMC;3330925
- ;;3;630;New York VAMC;3304449
- ;;3;630A4;Brooklyn VAMC;3330773
- ;;3;630A5;St. Albans VAMC;3330785
- ;;3;632;Northport VAMC;3322687
- ;;4;460;Wilmington VAMC;0803177
- ;;4;503;Altoona VAMC;3973004
- ;;4;529;Butler VAMC;3964295
- ;;4;540;Clarksburg VAMC;5004875
- ;;4;542;Coatesville VAMC;3981897
- ;;4;562;Erie VAMC;3981900
- ;;4;595;Lebanon VAMC;3981912
- ;;4;642;Philadelphia VAMC;3921904
- ;;4;646;Pittsburgh VA HCS;3982508
- ;;4;646A4;Aspinwall VAMC;3981936
- ;;4;693;Wilkes-Barre VAMC;3969269
- ;;4;693B4;Allentown OPC;3982293
- ;;5;512;Baltimore VAMC;2122036
- ;;5;512A5;Perry Point VAMC;2119952
- ;;5;613;Martinsburg VAMC;5005423
- ;;5;688;Washington DC VAMC;0904260
- ;;6;637;Asheville VAMC;3412222
- ;;6;517;Beckley VAMC;5005497
- ;;6;558;Durham VAMC;3432717
- ;;6;565;Fayetteville (NC) VAMC;3429417
- ;;6;590;Hampton VAMC;4836992
- ;;6;652;Richmond VAMC;4837944
- ;;6;658;Salem VAMC;4829125
- ;;6;659;Salisbury VAMC;3429556
- ;;7;508;Atlanta VAMC;1119672
- ;;7;509;Augusta VAMC;1147912
- ;;7;521;Birmingham VAMC;0131829
- ;;7;534;Charleston VAMC;4224628
- ;;7;544;Columbia (SC) VAMC;4223260
- ;;7;557;Dublin VAMC;1151478
- ;;7;619;Montgomery VAMC;0126842
- ;;7;619A4;Tuskegee VAMC;0132667
- ;;7;679;Tuscaloosa VAMC;0125787
- ;;8;516;Bay Pines VAMC;1098981
- ;;8;546;Miami VAMC;1074715
- ;;8;548;West Palm Beach VAMC;1098234
- ;;8;573;Gainesville VAMC;1098993
- ;;8;573A4;Lake City VAMC;1081354
- ;;8;573BY;Jacksonville CBOC;1099008
- ;;8;573BZ;"William V. Chappell, Jr., VA OPC";1009213
- ;;8;573GF;Tallahassee CBOC;1007120
- ;;8;672;San Juan VAMC;4024030
- ;;8;672BO;Ponce VA Clinic;4024016
- ;;8;672BZ;Mayaguez VA Clinic;4024028
- ;;8;673;Tampa VAMC;1073371
- ;;8;673BY;Orlando VAHC;1099010
- ;;8;673BZ;New Port Richey CBOC;1099022
- ;;8;673GA;Viera CBOC;1099060
- ;;9;626;Tennessee Valley Healthcare System;4436552
- ;;9;626A4;Murfreesboro VAMC;4429583
- ;;9;581;Huntington VAMC;5004673
- ;;9;596;Lexington VAMC;1822990
- ;;9;603;Louisville VAMC;1827243
- ;;9;614;Memphis VAMC;4436538
- ;;9;621;Mountain Home VAMC;4436540
- ;;10;538;Chillicothe VAMC;3660683
- ;;10;539;Cincinnati VAMC;3636098
- ;;10;541;Cleveland VAMC;3660671
- ;;10;552;Dayton VAMC;3664085
- ;;10;757;Columbus VAOPC;3664162
- ;;11;506;Ann Arbor VAMC;2358162
- ;;11;515;Battle Creek VAMC;2354621
- ;;11;515BY;VA Grand Rapids OPC;2366462
- ;;11;550;Danville VAMC;1466134
- ;;11;550BY;Peoria CBOC;1476313
- ;;11;553;Detroit VAMC;2359063
- ;;11;583;Indianapolis VAMC;1516206
- ;;11;610;Northern Indiana VAMC;1519377
- ;;11;610A4;Fort Wayne VAMC;1510735
- ;;11;655;Saginaw VAMC;2354671
- ;;12;695;Milwaukee VAMC;5121950
- ;;12;537;Chicago VAMC;1467869
- ;;12;537A4;Chicago Lake Side VAMC;1473242
- ;;12;537BY;Crown Point CBOC;1535244
- ;;12;556;North Chicago VAMC;1473329
- ;;12;578;Hines VAMC;1475145
- ;;12;585;Iron Mountain VAMC;2350192
- ;;12;607;Madison VAMC;5123322
- ;;12;676;Tomah VAMC;5123182
- ;;15;589;VA Heartland West/ Kansas City VAMC;2614522
- ;;15;589A4;Columbia (MO) VAMC;2614825
- ;;15;589A5;Topeka VAMC ;1712884
- ;;15;589A6;Leavenworth VAMC;1712911
- ;;15;589A7;Wichita VAMC;1712923
- ;;15;657;VA Heartland East/ St. Louis VAMC;2629509
- ;;15;657A4;Popular Bluff VAMC;2616805
- ;;15;657A5;Marion VAMC;1469471
- ;;16;635;Oklahoma City VAMC;3706972
- ;;16;502;Alexandria VAMC;1914717
- ;;16;520;Biloxi VAMC;2517350
- ;;16;541A32;Gulfport VAMC;2521474
- ;;16;541A33;"Pensacola, FL CBOC";1099072
- ;;16;541A34;"Mobile, AL CBOC";0131881
- ;;16;564;Fayetteville (AR) VAMC;0420466
- ;;16;580;Houston VAMC;4541149
- ;;16;586;Jackson VAMC;2508995
- ;;16;598A;North Little Rock VAMC;0420339
- ;;16;598B;Central Arkansas VA HCS;0421785
- ;;16;623;Muskogee VAMC;3710933
- ;;16;629;New Orleans VAMC;1913652
- ;;16;629BY;Baton Rouge Outpatient Clinic;1917698
- ;;16;667;Shreveport VAMC;1913462
- ;;17;541A48;Kerrville VAMC;4593693
- ;;17;549;Dallas VAMC;4539055
- ;;17;549A4;Bonham VAMC;4539447
- ;;17;549BY;Fort Worth Outpatient Clinic;4518316
- ;;17;671;San Antonio VAMC;4537809
- ;;17;671BZ;Corpus Christi VA Outpatient Pharmacy;4532138
- ;;17;671BO;McAllen VA Outpatient Pharmacy;4532001
- ;;17;671BY;Frank M. Tejeda VA Outpatient Clinic Pharmacy;4532087
- ;;17;674;Temple VAMC;4545274
- ;;17;674A4;Waco VAMC;4538445
- ;;17;674BY;Austin VAMC;4529117
- ;;18;501;Albuquerque VAMC;3208899
- ;;18;504;Amarillo VAMC;4525690
- ;;18;504BY;Lubbock VAMC;4530336
- ;;18;519;Big Spring VAMC;4594190
- ;;18;644;Phoenix VAMC;0327204
- ;;18;649;Prescott VAMC;0327280
- ;;18;678;Tucson VAMC;0321783
- ;;18;756;El Paso VAMC;4519469
- ;;19;436;Fort Harrison VAMC;2706553
- ;;19;436DT;Columbia Falls CBOC;2764339
- ;;19;436GH;Billings CBOC;2764555
- ;;19;436GJ;Miles City CBOC;2764442
- ;;19;442;Cheyenne VAMC;5203651
- ;;19;554;Denver VAMC;0617766
- ;;19;575;Grand Junction VAMC;0617728
- ;;19;660;Salt Lake City VAMC;4608658
- ;;19;666;Sheridan VAMC;5203702
- ;;20;463;Anchorage VAOPC;0225842
- ;;20;531;Boise VAMC;1305766
- ;;20;648;Portland VAMC;3804007
- ;;20;653;Roseburg VAMC;3811862
- ;;20;663;VA Puget Sound - Seattle;4913136
- ;;20;663 A;VA Puget Sound - Tacoma;4912398
- ;;20;663A;VA Puget Sound - Tacoma;4912398
- ;;20;668;Spokane VAMC;4912792
- ;;20;687;Walla Walla VAMC;4912653
- ;;20;692;White City VAMC;3812206
- ;;21;358;Manila ;N/A
- ;;21;459;Honolulu VAMC;1204419
- ;;21;570;Fresno VAMC;0550207
- ;;21;612;Martinez VAMC;0575576
- ;;21;640XX;Redding VAOPC;0575603
- ;;21;640;Palo Alto VA HCS;0592534
- ;;21;640A0;Menlo Park VAMC;5600196
- ;;21;640A4;Livermore VAMC;0529783
- ;;21;640BY;San Jose CBOC;5600209
- ;;21;640HC;Monterey CBOC;5600211
- ;;21;654;Reno VAMC;2905466
- ;;21;662;San Francisco VAMC;0575641
- ;;22;593;Las Vegas VAMC;2907092
- ;;22;600;Long Beach VAMC;0570855
- ;;22;605;Loma Linda VAMC;0569333
- ;;22;664;San Diego VAMC;0574978
- ;;22;691;West LA VAMC - Methadone Pharmacy;0521965
- ;;22;691;Greater Los Angeles VA HCS;0577621
- ;;22;691A95;Sepulveda VAMC;0514237
- ;;22;691A96;Los Angeles East Temple - Methadone Pharmacy;0539152
- ;;22;691A96;Los Angeles East Temple - CBOC;0539152
- ;;22;691A97;Los Angeles Wilshire - Methadone Pharmacy;0569713
- ;;22;691A97;Los Angeles Whilshire CBOC;0569713
- ;;23;437;Fargo VAMC;3504063
- ;;23;438;Sioux Falls VAMC & ROC;4304616
- ;;23;541A101;Hot Springs VAMC;4352768
- ;;23;568;Fort Meade VAMC;4304806
- ;;23;618;Minneapolis VAMC;2411508
- ;;23;636;Omaha VAMC;2814564
- ;;23;636A4;Grand Island VAMC;2816924
- ;;23;636A5;Lincoln VAMC;2816912
- ;;23;636A6;Des Moines VAMC;1620043
- ;;23;636A7;Knoxville VAMC;1621615
- ;;23;636A8;Iowa City VAMC;1620663
- ;;23;656;St. Cloud VAMC;2408195
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSONCPDP 9958 printed Feb 18, 2025@23:57:44 Page 2
- PSONCPDP ;BHAM-ISC/EJW - POPULATE NCPDP NUMBER IN FILE 59 ;08/31/05
- +1 ;;7.0;OUTPATIENT PHARMACY;**216**;DEC 1997
- +2 ;POPULATE THE NEW NCPDP FIELD ONE TIME ONLY
- +3 SET ZTDTH=""
- +4 IF $DATA(ZTQUEUED)
- SET ZTDTH=$HOROLOG
- +5 IF ZTDTH=""
- Begin DoDot:1
- +6 DO BMES^XPDUTL("Populate NCPDP number field")
- +7 DO BMES^XPDUTL("Queuing background job")
- End DoDot:1
- +8 SET ZTDTH=$HOROLOG
- +9 SET ZTRTN="EN^PSONCPDP"
- SET ZTIO=""
- SET ZTDESC="Background job to populate NCPDP NUMBER field"
- DO ^%ZTLOAD
- KILL ZTDTH,ZTRTN,ZTIO,ZTDESC
- +10 if $DATA(ZTSK)&('$DATA(ZTQUEUED))
- WRITE !!,"Task queued !",!
- +11 QUIT
- EN ;
- +1 IF '$GET(DT)
- SET DT=$$DT^XLFDT
- +2 NEW PSODIV,SITE,INACT,PSONCP,II,DIVNAM,PSOPOP,PSONAM,NCPDP
- +3 KILL ^TMP($JOB,"PSONCP")
- +4 FOR II=1:1
- SET NCPDP=$PIECE($TEXT(NCPDP+II),";;",2)
- if NCPDP=""
- QUIT
- SET SITE=$PIECE(NCPDP,";",2)
- SET PSONAM=$PIECE(NCPDP,";",3)
- SET PSONCP=$PIECE(NCPDP,";",4)
- Begin DoDot:1
- +5 IF PSONCP'?7N
- QUIT
- +6 SET ^TMP($JOB,"PSONCP",SITE)=PSONAM_"^"_PSONCP
- End DoDot:1
- +7 SET PSODIV=0
- FOR
- SET PSODIV=$ORDER(^PS(59,PSODIV))
- if 'PSODIV
- QUIT
- Begin DoDot:1
- +8 SET INACT=$$GET1^DIQ(59,PSODIV,2004,"I")
- IF INACT
- IF DT>INACT
- QUIT
- +9 SET DIVNAM=$$GET1^DIQ(59,PSODIV,.01,"I")
- IF DIVNAM=""
- SET DIVNAM=PSODIV
- +10 SET SITE=$$GET1^DIQ(59,PSODIV,.06,"I")
- IF SITE=""
- SET PSOPOP(DIVNAM,"NO SITE NUMBER FOUND")=""
- QUIT
- +11 SET PSONCP=$$GET1^DIQ(59,PSODIV,1008,"I")
- IF PSONCP'=""
- SET PSOPOP(DIVNAM,SITE)=PSONCP
- QUIT
- +12 SET PSONCP=$PIECE($GET(^TMP($JOB,"PSONCP",SITE)),"^",2)
- IF PSONCP=""
- SET PSOPOP(DIVNAM,SITE)="NO NUMBER FOUND"
- QUIT
- +13 SET DIE="^PS(59,"
- SET DA=PSODIV
- SET DR="1008///"_PSONCP
- DO ^DIE
- KILL DIE,DA,DR
- SET PSOPOP(DIVNAM,SITE)=PSONCP
- End DoDot:1
- +14 KILL ^TMP($JOB,"PSONCP")
- +15 DO MAIL
- +16 QUIT
- +17 ;
- MAIL ;
- +1 SET XMDUZ="Patch PSO*7*216"
- SET XMY(DUZ)=""
- SET XMSUB="NCPDP NUMBER POPULATION"
- +2 FOR PSOCXPDA=0:0
- SET PSOCXPDA=$ORDER(^XUSEC("PSORPH",PSOCXPDA))
- if 'PSOCXPDA
- QUIT
- SET XMY(PSOCXPDA)=""
- +3 KILL PSOTEXT
- +4 NEW COUNT,DIVMAX,PSOTEXT
- +5 SET PSOTEXT(1)="Patch PSO*7*216 - POPULATE NCPDP NUMBER FIELD POST-INSTALL"
- +6 SET PSOTEXT(2)="This message is being sent to the installer of the patch and holders of"
- +7 SET PSOTEXT(3)="the PSORPH key."
- +8 SET PSOTEXT(4)=" "
- +9 SET PSOTEXT(5)="Please validate that the NCPDP number is correct for each active DIVISION and"
- +10 SET PSOTEXT(6)="SITE NUMBER. If missing or incorrect, enter the correct number using the"
- +11 SET PSOTEXT(7)="Site Parameter Enter/Edit option."
- +12 SET PSOTEXT(8)=" "
- +13 SET COUNT=8
- SET DIVMAX=1
- +14 SET DIVNAM=""
- FOR
- SET DIVNAM=$ORDER(PSOPOP(DIVNAM))
- if DIVNAM=""
- QUIT
- if $LENGTH(DIVNAM)>DIVMAX
- SET DIVMAX=$LENGTH(DIVNAM)
- +15 SET DIVNAM=""
- FOR
- SET DIVNAM=$ORDER(PSOPOP(DIVNAM))
- if DIVNAM=""
- QUIT
- Begin DoDot:1
- +16 SET SITE=""
- FOR
- SET SITE=$ORDER(PSOPOP(DIVNAM,SITE))
- if SITE=""
- QUIT
- SET COUNT=COUNT+1
- Begin DoDot:2
- +17 SET PSOTEXT(COUNT)="DIVISION: "_$JUSTIFY(DIVNAM,DIVMAX)_" SITE NUMBER: "_$JUSTIFY(SITE,4)_" NCPDP NUMBER: "_$JUSTIFY(PSOPOP(DIVNAM,SITE),7)
- End DoDot:2
- End DoDot:1
- +18 SET XMTEXT="PSOTEXT("
- NEW DIFROM
- DO ^XMD
- +19 QUIT
- +20 ;
- NCPDP ;;VISN;SITE#;SITE NAME;NCPDP#
- +1 ;;1;402;Togus VAMC & ROC;2006965
- +2 ;;1;405;White River Junction VAMC;4704044
- +3 ;;1;518;Bedford VAMC;2233548
- +4 ;;1;523;Boston VAMC;2235100
- +5 ;;1;523A4;West Roxbury VAMC;2231594
- +6 ;;1;523A5;Brockton VAMC;2240214
- +7 ;;1;523BY;Lowell CBOC;2240238
- +8 ;;1;523BZ;Boston -Causeway CBOC;2240202
- +9 ;;1;523GB;Worcester CBOC;2240226
- +10 ;;1;608;Manchester VAMC;3005255
- +11 ;;1;631;Northampton VAMC;2240240
- +12 ;;1;650;Providence VAMC;4106349
- +13 ;;1;689;West Haven VAMC;0719584
- +14 ;;1;689A4;Newington VAMC;0719596
- +15 ;;2;528;Syracuse VAMC;3337448
- +16 ;;2;528A7;Western NY HCS - Buffalo;3345990
- +17 ;;2;528A4;Batavia VAMC;3346017
- +18 ;;2;528A5;Canandaigua VAMC;3334163
- +19 ;;2;528A6;Bath VAMC;3350458
- +20 ;;2;528A8;Albany VAMC;3338349
- +21 ;;3;526;Bronx VAMC;3336725
- +22 ;;3;561;East Orange VAMC;3145388
- +23 ;;3;561A4;Lyons VAMC;3138749
- +24 ;;3;620;Montrose VAMC;3330925
- +25 ;;3;620A4;Castle Point VAMC;3330925
- +26 ;;3;630;New York VAMC;3304449
- +27 ;;3;630A4;Brooklyn VAMC;3330773
- +28 ;;3;630A5;St. Albans VAMC;3330785
- +29 ;;3;632;Northport VAMC;3322687
- +30 ;;4;460;Wilmington VAMC;0803177
- +31 ;;4;503;Altoona VAMC;3973004
- +32 ;;4;529;Butler VAMC;3964295
- +33 ;;4;540;Clarksburg VAMC;5004875
- +34 ;;4;542;Coatesville VAMC;3981897
- +35 ;;4;562;Erie VAMC;3981900
- +36 ;;4;595;Lebanon VAMC;3981912
- +37 ;;4;642;Philadelphia VAMC;3921904
- +38 ;;4;646;Pittsburgh VA HCS;3982508
- +39 ;;4;646A4;Aspinwall VAMC;3981936
- +40 ;;4;693;Wilkes-Barre VAMC;3969269
- +41 ;;4;693B4;Allentown OPC;3982293
- +42 ;;5;512;Baltimore VAMC;2122036
- +43 ;;5;512A5;Perry Point VAMC;2119952
- +44 ;;5;613;Martinsburg VAMC;5005423
- +45 ;;5;688;Washington DC VAMC;0904260
- +46 ;;6;637;Asheville VAMC;3412222
- +47 ;;6;517;Beckley VAMC;5005497
- +48 ;;6;558;Durham VAMC;3432717
- +49 ;;6;565;Fayetteville (NC) VAMC;3429417
- +50 ;;6;590;Hampton VAMC;4836992
- +51 ;;6;652;Richmond VAMC;4837944
- +52 ;;6;658;Salem VAMC;4829125
- +53 ;;6;659;Salisbury VAMC;3429556
- +54 ;;7;508;Atlanta VAMC;1119672
- +55 ;;7;509;Augusta VAMC;1147912
- +56 ;;7;521;Birmingham VAMC;0131829
- +57 ;;7;534;Charleston VAMC;4224628
- +58 ;;7;544;Columbia (SC) VAMC;4223260
- +59 ;;7;557;Dublin VAMC;1151478
- +60 ;;7;619;Montgomery VAMC;0126842
- +61 ;;7;619A4;Tuskegee VAMC;0132667
- +62 ;;7;679;Tuscaloosa VAMC;0125787
- +63 ;;8;516;Bay Pines VAMC;1098981
- +64 ;;8;546;Miami VAMC;1074715
- +65 ;;8;548;West Palm Beach VAMC;1098234
- +66 ;;8;573;Gainesville VAMC;1098993
- +67 ;;8;573A4;Lake City VAMC;1081354
- +68 ;;8;573BY;Jacksonville CBOC;1099008
- +69 ;;8;573BZ;"William V. Chappell, Jr., VA OPC";1009213
- +70 ;;8;573GF;Tallahassee CBOC;1007120
- +71 ;;8;672;San Juan VAMC;4024030
- +72 ;;8;672BO;Ponce VA Clinic;4024016
- +73 ;;8;672BZ;Mayaguez VA Clinic;4024028
- +74 ;;8;673;Tampa VAMC;1073371
- +75 ;;8;673BY;Orlando VAHC;1099010
- +76 ;;8;673BZ;New Port Richey CBOC;1099022
- +77 ;;8;673GA;Viera CBOC;1099060
- +78 ;;9;626;Tennessee Valley Healthcare System;4436552
- +79 ;;9;626A4;Murfreesboro VAMC;4429583
- +80 ;;9;581;Huntington VAMC;5004673
- +81 ;;9;596;Lexington VAMC;1822990
- +82 ;;9;603;Louisville VAMC;1827243
- +83 ;;9;614;Memphis VAMC;4436538
- +84 ;;9;621;Mountain Home VAMC;4436540
- +85 ;;10;538;Chillicothe VAMC;3660683
- +86 ;;10;539;Cincinnati VAMC;3636098
- +87 ;;10;541;Cleveland VAMC;3660671
- +88 ;;10;552;Dayton VAMC;3664085
- +89 ;;10;757;Columbus VAOPC;3664162
- +90 ;;11;506;Ann Arbor VAMC;2358162
- +91 ;;11;515;Battle Creek VAMC;2354621
- +92 ;;11;515BY;VA Grand Rapids OPC;2366462
- +93 ;;11;550;Danville VAMC;1466134
- +94 ;;11;550BY;Peoria CBOC;1476313
- +95 ;;11;553;Detroit VAMC;2359063
- +96 ;;11;583;Indianapolis VAMC;1516206
- +97 ;;11;610;Northern Indiana VAMC;1519377
- +98 ;;11;610A4;Fort Wayne VAMC;1510735
- +99 ;;11;655;Saginaw VAMC;2354671
- +100 ;;12;695;Milwaukee VAMC;5121950
- +101 ;;12;537;Chicago VAMC;1467869
- +102 ;;12;537A4;Chicago Lake Side VAMC;1473242
- +103 ;;12;537BY;Crown Point CBOC;1535244
- +104 ;;12;556;North Chicago VAMC;1473329
- +105 ;;12;578;Hines VAMC;1475145
- +106 ;;12;585;Iron Mountain VAMC;2350192
- +107 ;;12;607;Madison VAMC;5123322
- +108 ;;12;676;Tomah VAMC;5123182
- +109 ;;15;589;VA Heartland West/ Kansas City VAMC;2614522
- +110 ;;15;589A4;Columbia (MO) VAMC;2614825
- +111 ;;15;589A5;Topeka VAMC ;1712884
- +112 ;;15;589A6;Leavenworth VAMC;1712911
- +113 ;;15;589A7;Wichita VAMC;1712923
- +114 ;;15;657;VA Heartland East/ St. Louis VAMC;2629509
- +115 ;;15;657A4;Popular Bluff VAMC;2616805
- +116 ;;15;657A5;Marion VAMC;1469471
- +117 ;;16;635;Oklahoma City VAMC;3706972
- +118 ;;16;502;Alexandria VAMC;1914717
- +119 ;;16;520;Biloxi VAMC;2517350
- +120 ;;16;541A32;Gulfport VAMC;2521474
- +121 ;;16;541A33;"Pensacola, FL CBOC";1099072
- +122 ;;16;541A34;"Mobile, AL CBOC";0131881
- +123 ;;16;564;Fayetteville (AR) VAMC;0420466
- +124 ;;16;580;Houston VAMC;4541149
- +125 ;;16;586;Jackson VAMC;2508995
- +126 ;;16;598A;North Little Rock VAMC;0420339
- +127 ;;16;598B;Central Arkansas VA HCS;0421785
- +128 ;;16;623;Muskogee VAMC;3710933
- +129 ;;16;629;New Orleans VAMC;1913652
- +130 ;;16;629BY;Baton Rouge Outpatient Clinic;1917698
- +131 ;;16;667;Shreveport VAMC;1913462
- +132 ;;17;541A48;Kerrville VAMC;4593693
- +133 ;;17;549;Dallas VAMC;4539055
- +134 ;;17;549A4;Bonham VAMC;4539447
- +135 ;;17;549BY;Fort Worth Outpatient Clinic;4518316
- +136 ;;17;671;San Antonio VAMC;4537809
- +137 ;;17;671BZ;Corpus Christi VA Outpatient Pharmacy;4532138
- +138 ;;17;671BO;McAllen VA Outpatient Pharmacy;4532001
- +139 ;;17;671BY;Frank M. Tejeda VA Outpatient Clinic Pharmacy;4532087
- +140 ;;17;674;Temple VAMC;4545274
- +141 ;;17;674A4;Waco VAMC;4538445
- +142 ;;17;674BY;Austin VAMC;4529117
- +143 ;;18;501;Albuquerque VAMC;3208899
- +144 ;;18;504;Amarillo VAMC;4525690
- +145 ;;18;504BY;Lubbock VAMC;4530336
- +146 ;;18;519;Big Spring VAMC;4594190
- +147 ;;18;644;Phoenix VAMC;0327204
- +148 ;;18;649;Prescott VAMC;0327280
- +149 ;;18;678;Tucson VAMC;0321783
- +150 ;;18;756;El Paso VAMC;4519469
- +151 ;;19;436;Fort Harrison VAMC;2706553
- +152 ;;19;436DT;Columbia Falls CBOC;2764339
- +153 ;;19;436GH;Billings CBOC;2764555
- +154 ;;19;436GJ;Miles City CBOC;2764442
- +155 ;;19;442;Cheyenne VAMC;5203651
- +156 ;;19;554;Denver VAMC;0617766
- +157 ;;19;575;Grand Junction VAMC;0617728
- +158 ;;19;660;Salt Lake City VAMC;4608658
- +159 ;;19;666;Sheridan VAMC;5203702
- +160 ;;20;463;Anchorage VAOPC;0225842
- +161 ;;20;531;Boise VAMC;1305766
- +162 ;;20;648;Portland VAMC;3804007
- +163 ;;20;653;Roseburg VAMC;3811862
- +164 ;;20;663;VA Puget Sound - Seattle;4913136
- +165 ;;20;663 A;VA Puget Sound - Tacoma;4912398
- +166 ;;20;663A;VA Puget Sound - Tacoma;4912398
- +167 ;;20;668;Spokane VAMC;4912792
- +168 ;;20;687;Walla Walla VAMC;4912653
- +169 ;;20;692;White City VAMC;3812206
- +170 ;;21;358;Manila ;N/A
- +171 ;;21;459;Honolulu VAMC;1204419
- +172 ;;21;570;Fresno VAMC;0550207
- +173 ;;21;612;Martinez VAMC;0575576
- +174 ;;21;640XX;Redding VAOPC;0575603
- +175 ;;21;640;Palo Alto VA HCS;0592534
- +176 ;;21;640A0;Menlo Park VAMC;5600196
- +177 ;;21;640A4;Livermore VAMC;0529783
- +178 ;;21;640BY;San Jose CBOC;5600209
- +179 ;;21;640HC;Monterey CBOC;5600211
- +180 ;;21;654;Reno VAMC;2905466
- +181 ;;21;662;San Francisco VAMC;0575641
- +182 ;;22;593;Las Vegas VAMC;2907092
- +183 ;;22;600;Long Beach VAMC;0570855
- +184 ;;22;605;Loma Linda VAMC;0569333
- +185 ;;22;664;San Diego VAMC;0574978
- +186 ;;22;691;West LA VAMC - Methadone Pharmacy;0521965
- +187 ;;22;691;Greater Los Angeles VA HCS;0577621
- +188 ;;22;691A95;Sepulveda VAMC;0514237
- +189 ;;22;691A96;Los Angeles East Temple - Methadone Pharmacy;0539152
- +190 ;;22;691A96;Los Angeles East Temple - CBOC;0539152
- +191 ;;22;691A97;Los Angeles Wilshire - Methadone Pharmacy;0569713
- +192 ;;22;691A97;Los Angeles Whilshire CBOC;0569713
- +193 ;;23;437;Fargo VAMC;3504063
- +194 ;;23;438;Sioux Falls VAMC & ROC;4304616
- +195 ;;23;541A101;Hot Springs VAMC;4352768
- +196 ;;23;568;Fort Meade VAMC;4304806
- +197 ;;23;618;Minneapolis VAMC;2411508
- +198 ;;23;636;Omaha VAMC;2814564
- +199 ;;23;636A4;Grand Island VAMC;2816924
- +200 ;;23;636A5;Lincoln VAMC;2816912
- +201 ;;23;636A6;Des Moines VAMC;1620043
- +202 ;;23;636A7;Knoxville VAMC;1621615
- +203 ;;23;636A8;Iowa City VAMC;1620663
- +204 ;;23;656;St. Cloud VAMC;2408195