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