|
Last change
on this file since 613 was 613, checked in by George Lilly, 14 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
5.1 KB
|
| Line | |
|---|
| 1 | XUSNPIDA ;FO-OAKLAND/JLI - SPECIFIED TAXONOMY VALUES FOR NPI RECIPIENTS ;4/8/08 18:18
|
|---|
| 2 | ;;8.0;KERNEL;**420,410,480**;Jul 10, 1995;Build 38
|
|---|
| 3 | ;;Per VHA Directive 2004-038, this routine should not be modified
|
|---|
| 4 | Q
|
|---|
| 5 | ;
|
|---|
| 6 | CHKGLOB() ; returns global location of TAXONOMY values also rebuilds if they are missing
|
|---|
| 7 | N I,STR,XUGLOB
|
|---|
| 8 | S XUGLOB=$NA(^XTMP("NPIVALS"))
|
|---|
| 9 | ; check for ;;; is to permit sites to add a ; to exclude some values not used at site
|
|---|
| 10 | I '$D(@XUGLOB) F I=1:1 S STR=$T(@("VALUES+"_I_"^XUSNPIDA")) I STR'[";;;" S STR=$P(STR,";;",2) Q:STR="" S @XUGLOB@(STR)=""
|
|---|
| 11 | S @XUGLOB@(0)=$$FMADD^XLFDT(DT,15)
|
|---|
| 12 | Q XUGLOB
|
|---|
| 13 | ;
|
|---|
| 14 | VALUES ;
|
|---|
| 15 | ;;101Y00000X
|
|---|
| 16 | ;;101YA0400X
|
|---|
| 17 | ;;101YM0800X
|
|---|
| 18 | ;;101YP1600X
|
|---|
| 19 | ;;101YP2500X
|
|---|
| 20 | ;;101YS0200X
|
|---|
| 21 | ;;103G00000X
|
|---|
| 22 | ;;103GC0700X
|
|---|
| 23 | ;;103T00000X
|
|---|
| 24 | ;;103TA0400X
|
|---|
| 25 | ;;103TA0700X
|
|---|
| 26 | ;;103TB0200X
|
|---|
| 27 | ;;103TC0700X
|
|---|
| 28 | ;;103TC1900X
|
|---|
| 29 | ;;103TC2200X
|
|---|
| 30 | ;;103TE1000X
|
|---|
| 31 | ;;103TE1100X
|
|---|
| 32 | ;;103TF0000X
|
|---|
| 33 | ;;103TF0200X
|
|---|
| 34 | ;;103TH0100X
|
|---|
| 35 | ;;103TM1700X
|
|---|
| 36 | ;;103TM1800X
|
|---|
| 37 | ;;103TP0814X
|
|---|
| 38 | ;;103TP2700X
|
|---|
| 39 | ;;103TP2701X
|
|---|
| 40 | ;;103TR0400X
|
|---|
| 41 | ;;103TS0200X
|
|---|
| 42 | ;;103TW0100X
|
|---|
| 43 | ;;104100000X
|
|---|
| 44 | ;;1041C0700X
|
|---|
| 45 | ;;1041S0200X
|
|---|
| 46 | ;;111N00000X
|
|---|
| 47 | ;;111NI0900X
|
|---|
| 48 | ;;111NN0400X
|
|---|
| 49 | ;;111NN1001X
|
|---|
| 50 | ;;111NR0200X
|
|---|
| 51 | ;;111NS0005X
|
|---|
| 52 | ;;111NT0100X
|
|---|
| 53 | ;;111NX0100X
|
|---|
| 54 | ;;111NX0800X
|
|---|
| 55 | ;;122300000X
|
|---|
| 56 | ;;1223D0001X
|
|---|
| 57 | ;;1223E0200X
|
|---|
| 58 | ;;1223G0001X
|
|---|
| 59 | ;;1223P0106X
|
|---|
| 60 | ;;1223P0221X
|
|---|
| 61 | ;;1223P0300X
|
|---|
| 62 | ;;1223P0700X
|
|---|
| 63 | ;;1223S0112X
|
|---|
| 64 | ;;1223X0008X
|
|---|
| 65 | ;;1223X0400X
|
|---|
| 66 | ;;133V00000X
|
|---|
| 67 | ;;133VN1004X
|
|---|
| 68 | ;;133VN1005X
|
|---|
| 69 | ;;133VN1006X
|
|---|
| 70 | ;;152W00000X
|
|---|
| 71 | ;;152WC0802X
|
|---|
| 72 | ;;152WL0500X
|
|---|
| 73 | ;;152WP0200X
|
|---|
| 74 | ;;152WS0006X
|
|---|
| 75 | ;;152WV0400X
|
|---|
| 76 | ;;152WX0102X
|
|---|
| 77 | ;;170100000X
|
|---|
| 78 | ;;183500000X
|
|---|
| 79 | ;;1835G0000X
|
|---|
| 80 | ;;1835N0905X
|
|---|
| 81 | ;;1835N1003X
|
|---|
| 82 | ;;1835P1200X
|
|---|
| 83 | ;;1835P1300X
|
|---|
| 84 | ;;204C00000X
|
|---|
| 85 | ;;204D00000X
|
|---|
| 86 | ;;204E00000X
|
|---|
| 87 | ;;204F00000X
|
|---|
| 88 | ;;207K00000X
|
|---|
| 89 | ;;207KA0200X
|
|---|
| 90 | ;;207KI0005X
|
|---|
| 91 | ;;207L00000X
|
|---|
| 92 | ;;207LA0401X
|
|---|
| 93 | ;;207LC0200X
|
|---|
| 94 | ;;207LP2900X
|
|---|
| 95 | ;;207N00000X
|
|---|
| 96 | ;;207ND0101X
|
|---|
| 97 | ;;207ND0900X
|
|---|
| 98 | ;;207NI0002X
|
|---|
| 99 | ;;207NP0225X
|
|---|
| 100 | ;;207NS0135X
|
|---|
| 101 | ;;207P00000X
|
|---|
| 102 | ;;207PE0004X
|
|---|
| 103 | ;;207PE0005X
|
|---|
| 104 | ;;207PP0204X
|
|---|
| 105 | ;;207PS0010X
|
|---|
| 106 | ;;207PT0002X
|
|---|
| 107 | ;;207Q00000X
|
|---|
| 108 | ;;207QA0000X
|
|---|
| 109 | ;;207QA0401X
|
|---|
| 110 | ;;207QA0505X
|
|---|
| 111 | ;;207QG0300X
|
|---|
| 112 | ;;207QS0010X
|
|---|
| 113 | ;;207R00000X
|
|---|
| 114 | ;;207RA0000X
|
|---|
| 115 | ;;207RA0201X
|
|---|
| 116 | ;;207RA0401X
|
|---|
| 117 | ;;207RC0000X
|
|---|
| 118 | ;;207RC0001X
|
|---|
| 119 | ;;207RC0200X
|
|---|
| 120 | ;;207RE0101X
|
|---|
| 121 | ;;207RG0100X
|
|---|
| 122 | ;;207RG0300X
|
|---|
| 123 | ;;207RH0000X
|
|---|
| 124 | ;;207RH0003X
|
|---|
| 125 | ;;207RI0001X
|
|---|
| 126 | ;;207RI0008X
|
|---|
| 127 | ;;207RI0011X
|
|---|
| 128 | ;;207RI0200X
|
|---|
| 129 | ;;207RM1200X
|
|---|
| 130 | ;;207RN0300X
|
|---|
| 131 | ;;207RP1001X
|
|---|
| 132 | ;;207RR0500X
|
|---|
| 133 | ;;207RS0010X
|
|---|
| 134 | ;;207RX0202X
|
|---|
| 135 | ;;207SC0300X
|
|---|
| 136 | ;;207SG0201X
|
|---|
| 137 | ;;207SG0202X
|
|---|
| 138 | ;;207SG0203X
|
|---|
| 139 | ;;207SG0205X
|
|---|
| 140 | ;;207SM0001X
|
|---|
| 141 | ;;207T00000X
|
|---|
| 142 | ;;207U00000X
|
|---|
| 143 | ;;207UN0901X
|
|---|
| 144 | ;;207UN0902X
|
|---|
| 145 | ;;207UN0903X
|
|---|
| 146 | ;;207V00000X
|
|---|
| 147 | ;;207VC0200X
|
|---|
| 148 | ;;207VE0102X
|
|---|
| 149 | ;;207VG0400X
|
|---|
| 150 | ;;207VM0101X
|
|---|
| 151 | ;;207VX0000X
|
|---|
| 152 | ;;207VX0201X
|
|---|
| 153 | ;;207W00000X
|
|---|
| 154 | ;;207X00000X
|
|---|
| 155 | ;;207XS0106X
|
|---|
| 156 | ;;207XS0114X
|
|---|
| 157 | ;;207XS0117X
|
|---|
| 158 | ;;207XX0004X
|
|---|
| 159 | ;;207XX0005X
|
|---|
| 160 | ;;207XX0801X
|
|---|
| 161 | ;;207Y00000X
|
|---|
| 162 | ;;207YP0228X
|
|---|
| 163 | ;;207YS0123X
|
|---|
| 164 | ;;207YX0007X
|
|---|
| 165 | ;;207YX0602X
|
|---|
| 166 | ;;207YX0901X
|
|---|
| 167 | ;;207YX0905X
|
|---|
| 168 | ;;207ZB0001X
|
|---|
| 169 | ;;207ZC0500X
|
|---|
| 170 | ;;207ZD0900X
|
|---|
| 171 | ;;207ZF0201X
|
|---|
| 172 | ;;207ZH0000X
|
|---|
| 173 | ;;207ZI0100X
|
|---|
| 174 | ;;207ZM0300X
|
|---|
| 175 | ;;207ZN0500X
|
|---|
| 176 | ;;207ZP0007X
|
|---|
| 177 | ;;207ZP0101X
|
|---|
| 178 | ;;207ZP0102X
|
|---|
| 179 | ;;207ZP0104X
|
|---|
| 180 | ;;207ZP0105X
|
|---|
| 181 | ;;207ZP0213X
|
|---|
| 182 | ;;208000000X
|
|---|
| 183 | ;;2080A0000X
|
|---|
| 184 | ;;2080I0007X
|
|---|
| 185 | ;;2080N0001X
|
|---|
| 186 | ;;2080P0006X
|
|---|
| 187 | ;;2080P0008X
|
|---|
| 188 | ;;2080P0201X
|
|---|
| 189 | ;;2080P0202X
|
|---|
| 190 | ;;2080P0203X
|
|---|
| 191 | ;;2080P0204X
|
|---|
| 192 | ;;2080P0205X
|
|---|
| 193 | ;;2080P0206X
|
|---|
| 194 | ;;2080P0207X
|
|---|
| 195 | ;;2080P0208X
|
|---|
| 196 | ;;2080P0210X
|
|---|
| 197 | ;;2080P0214X
|
|---|
| 198 | ;;2080P0216X
|
|---|
| 199 | ;;2080S0010X
|
|---|
| 200 | ;;2080T0002X
|
|---|
| 201 | ;;208100000X
|
|---|
| 202 | ;;2081P0004X
|
|---|
| 203 | ;;2081P0010X
|
|---|
| 204 | ;;2081P2900X
|
|---|
| 205 | ;;2081S0010X
|
|---|
| 206 | ;;208200000X
|
|---|
| 207 | ;;2082S0099X
|
|---|
| 208 | ;;2082S0105X
|
|---|
| 209 | ;;2083A0100X
|
|---|
| 210 | ;;2083P0011X
|
|---|
| 211 | ;;2083P0500X
|
|---|
| 212 | ;;2083P0901X
|
|---|
| 213 | ;;2083S0010X
|
|---|
| 214 | ;;2083T0002X
|
|---|
| 215 | ;;2083X0100X
|
|---|
| 216 | ;;2084A0401X
|
|---|
| 217 | ;;2084F0202X
|
|---|
| 218 | ;;2084N0400X
|
|---|
| 219 | ;;2084N0402X
|
|---|
| 220 | ;;2084N0600X
|
|---|
| 221 | ;;2084P0005X
|
|---|
| 222 | ;;2084P0800X
|
|---|
| 223 | ;;2084P0802X
|
|---|
| 224 | ;;2084P0804X
|
|---|
| 225 | ;;2084P0805X
|
|---|
| 226 | ;;2084P2900X
|
|---|
| 227 | ;;2084S0010X
|
|---|
| 228 | ;;2084V0102X
|
|---|
| 229 | ;;2085B0100X
|
|---|
| 230 | ;;2085N0700X
|
|---|
| 231 | ;;2085N0904X
|
|---|
| 232 | ;;2085P0229X
|
|---|
| 233 | ;;2085R0001X
|
|---|
| 234 | ;;2085R0202X
|
|---|
| 235 | ;;2085R0203X
|
|---|
| 236 | ;;2085R0204X
|
|---|
| 237 | ;;2085R0205X
|
|---|
| 238 | ;;2085U0001X
|
|---|
| 239 | ;;208600000X
|
|---|
| 240 | ;;2086S0102X
|
|---|
| 241 | ;;2086S0105X
|
|---|
| 242 | ;;2086S0120X
|
|---|
| 243 | ;;2086S0122X
|
|---|
| 244 | ;;2086S0127X
|
|---|
| 245 | ;;2086S0129X
|
|---|
| 246 | ;;2086X0206X
|
|---|
| 247 | ;;208800000X
|
|---|
| 248 | ;;208C00000X
|
|---|
| 249 | ;;208D00000X
|
|---|
| 250 | ;;208G00000X
|
|---|
| 251 | ;;208M00000X
|
|---|
| 252 | ;;208U00000X
|
|---|
| 253 | ;;208VP0000X
|
|---|
| 254 | ;;208VP0014X
|
|---|
| 255 | ;;209800000X
|
|---|
| 256 | ;;213E00000X
|
|---|
| 257 | ;;213EG0000X
|
|---|
| 258 | ;;213EP0504X
|
|---|
| 259 | ;;213EP1101X
|
|---|
| 260 | ;;213ER0200X
|
|---|
| 261 | ;;213ES0000X
|
|---|
| 262 | ;;213ES0103X
|
|---|
| 263 | ;;213ES0131X
|
|---|
| 264 | ;;225100000X
|
|---|
| 265 | ;;2251C2600X
|
|---|
| 266 | ;;2251E1200X
|
|---|
| 267 | ;;2251E1300X
|
|---|
| 268 | ;;2251G0304X
|
|---|
| 269 | ;;2251H1200X
|
|---|
| 270 | ;;2251H1300X
|
|---|
| 271 | ;;2251N0400X
|
|---|
| 272 | ;;2251P0200X
|
|---|
| 273 | ;;2251S0007X
|
|---|
| 274 | ;;2251X0800X
|
|---|
| 275 | ;;225X00000X
|
|---|
| 276 | ;;225XE1200X
|
|---|
| 277 | ;;225XH1200X
|
|---|
| 278 | ;;225XH1300X
|
|---|
| 279 | ;;225XN1300X
|
|---|
| 280 | ;;225XP0200X
|
|---|
| 281 | ;;225XR0403X
|
|---|
| 282 | ;;231H00000X
|
|---|
| 283 | ;;231HA2400X
|
|---|
| 284 | ;;231HA2500X
|
|---|
| 285 | ;;237600000X
|
|---|
| 286 | ;;363A00000X
|
|---|
| 287 | ;;363AM0700X
|
|---|
| 288 | ;;363AS0400X
|
|---|
| 289 | ;;363L00000X
|
|---|
| 290 | ;;363LA2100X
|
|---|
| 291 | ;;363LA2200X
|
|---|
| 292 | ;;363LC0200X
|
|---|
| 293 | ;;363LC1500X
|
|---|
| 294 | ;;363LF0000X
|
|---|
| 295 | ;;363LG0600X
|
|---|
| 296 | ;;363LN0000X
|
|---|
| 297 | ;;363LN0005X
|
|---|
| 298 | ;;363LP0200X
|
|---|
| 299 | ;;363LP0222X
|
|---|
| 300 | ;;363LP0808X
|
|---|
| 301 | ;;363LP1700X
|
|---|
| 302 | ;;363LP2300X
|
|---|
| 303 | ;;363LS0200X
|
|---|
| 304 | ;;363LW0102X
|
|---|
| 305 | ;;363LX0001X
|
|---|
| 306 | ;;363LX0106X
|
|---|
| 307 | ;;364S00000X
|
|---|
| 308 | ;;364SA2100X
|
|---|
| 309 | ;;364SA2200X
|
|---|
| 310 | ;;364SC0200X
|
|---|
| 311 | ;;364SC1501X
|
|---|
| 312 | ;;364SC2300X
|
|---|
| 313 | ;;364SE0003X
|
|---|
| 314 | ;;364SE1400X
|
|---|
| 315 | ;;364SF0001X
|
|---|
| 316 | ;;364SG0600X
|
|---|
| 317 | ;;364SH0200X
|
|---|
| 318 | ;;364SH1100X
|
|---|
| 319 | ;;364SI0800X
|
|---|
| 320 | ;;364SL0600X
|
|---|
| 321 | ;;364SM0705X
|
|---|
| 322 | ;;364SN0000X
|
|---|
| 323 | ;;364SN0800X
|
|---|
| 324 | ;;364SP0200X
|
|---|
| 325 | ;;364SP0807X
|
|---|
| 326 | ;;364SP0808X
|
|---|
| 327 | ;;364SP0809X
|
|---|
| 328 | ;;364SP0810X
|
|---|
| 329 | ;;364SP0811X
|
|---|
| 330 | ;;364SP0812X
|
|---|
| 331 | ;;364SP0813X
|
|---|
| 332 | ;;364SP1700X
|
|---|
| 333 | ;;364SP2800X
|
|---|
| 334 | ;;364SR0400X
|
|---|
| 335 | ;;364SS0200X
|
|---|
| 336 | ;;364ST0500X
|
|---|
| 337 | ;;364SW0102X
|
|---|
| 338 | ;;364SX0106X
|
|---|
| 339 | ;;364SX0200X
|
|---|
| 340 | ;;364SX0204X
|
|---|
| 341 | ;;367500000X
|
|---|
| 342 | ;;367A00000X
|
|---|
| 343 | ;;367H00000X
|
|---|
| 344 | ;;390200000X
|
|---|
| 345 | ;;
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
