source: FOIAVistA/tag/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSONCPDP.m@ 636

Last change on this file since 636 was 628, checked in by George Lilly, 14 years ago

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