XUSNPIDA.m

XUSNPIDA ;FO-OAKLAND/JLI - SPECIFIED TAXONOMY VALUES FOR NPI RECIPIENTS ;4/8/08  18:18

 ;;8.0;KERNEL;**420,410,480**;Jul 10, 1995;Build 38

 ;;Per VHA Directive 2004-038, this routine should not be modified

 Q

 ;

CHKGLOB() ;  returns global location of TAXONOMY values also rebuilds if they are missing

 N I,STR,XUGLOB

 S XUGLOB=$NA(^XTMP("NPIVALS"))

 ; check for ;;; is to permit sites to add a ; to exclude some values not used at site

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

 S @XUGLOB@(0)=$$FMADD^XLFDT(DT,15)

 Q XUGLOB

 ;

VALUES ;

 ;;101Y00000X

 ;;101YA0400X

 ;;101YM0800X

 ;;101YP1600X

 ;;101YP2500X

 ;;101YS0200X

 ;;103G00000X

 ;;103GC0700X

 ;;103T00000X

 ;;103TA0400X

 ;;103TA0700X

 ;;103TB0200X

 ;;103TC0700X

 ;;103TC1900X

 ;;103TC2200X

 ;;103TE1000X

 ;;103TE1100X

 ;;103TF0000X

 ;;103TF0200X

 ;;103TH0100X

 ;;103TM1700X

 ;;103TM1800X

 ;;103TP0814X

 ;;103TP2700X

 ;;103TP2701X

 ;;103TR0400X

 ;;103TS0200X

 ;;103TW0100X

 ;;104100000X

 ;;1041C0700X

 ;;1041S0200X

 ;;111N00000X

 ;;111NI0900X

 ;;111NN0400X

 ;;111NN1001X

 ;;111NR0200X

 ;;111NS0005X

 ;;111NT0100X

 ;;111NX0100X

 ;;111NX0800X

 ;;122300000X

 ;;1223D0001X

 ;;1223E0200X

 ;;1223G0001X

 ;;1223P0106X

 ;;1223P0221X

 ;;1223P0300X

 ;;1223P0700X

 ;;1223S0112X

 ;;1223X0008X

 ;;1223X0400X

 ;;133V00000X

 ;;133VN1004X

 ;;133VN1005X

 ;;133VN1006X

 ;;152W00000X

 ;;152WC0802X

 ;;152WL0500X

 ;;152WP0200X

 ;;152WS0006X

 ;;152WV0400X

 ;;152WX0102X

 ;;170100000X

 ;;183500000X

 ;;1835G0000X

 ;;1835N0905X

 ;;1835N1003X

 ;;1835P1200X

 ;;1835P1300X

 ;;204C00000X

 ;;204D00000X

 ;;204E00000X

 ;;204F00000X

 ;;207K00000X

 ;;207KA0200X

 ;;207KI0005X

 ;;207L00000X

 ;;207LA0401X

 ;;207LC0200X

 ;;207LP2900X

 ;;207N00000X

 ;;207ND0101X

 ;;207ND0900X

 ;;207NI0002X

 ;;207NP0225X

 ;;207NS0135X

 ;;207P00000X

 ;;207PE0004X

 ;;207PE0005X

 ;;207PP0204X

 ;;207PS0010X

 ;;207PT0002X

 ;;207Q00000X

 ;;207QA0000X

 ;;207QA0401X

 ;;207QA0505X

 ;;207QG0300X

 ;;207QS0010X

 ;;207R00000X

 ;;207RA0000X

 ;;207RA0201X

 ;;207RA0401X

 ;;207RC0000X

 ;;207RC0001X

 ;;207RC0200X

 ;;207RE0101X

 ;;207RG0100X

 ;;207RG0300X

 ;;207RH0000X

 ;;207RH0003X

 ;;207RI0001X

 ;;207RI0008X

 ;;207RI0011X

 ;;207RI0200X

 ;;207RM1200X

 ;;207RN0300X

 ;;207RP1001X

 ;;207RR0500X

 ;;207RS0010X

 ;;207RX0202X

 ;;207SC0300X

 ;;207SG0201X

 ;;207SG0202X

 ;;207SG0203X

 ;;207SG0205X

 ;;207SM0001X

 ;;207T00000X

 ;;207U00000X

 ;;207UN0901X

 ;;207UN0902X

 ;;207UN0903X

 ;;207V00000X

 ;;207VC0200X

 ;;207VE0102X

 ;;207VG0400X

 ;;207VM0101X

 ;;207VX0000X

 ;;207VX0201X

 ;;207W00000X

 ;;207X00000X

 ;;207XS0106X

 ;;207XS0114X

 ;;207XS0117X

 ;;207XX0004X

 ;;207XX0005X

 ;;207XX0801X

 ;;207Y00000X

 ;;207YP0228X

 ;;207YS0123X

 ;;207YX0007X

 ;;207YX0602X

 ;;207YX0901X

 ;;207YX0905X

 ;;207ZB0001X

 ;;207ZC0500X

 ;;207ZD0900X

 ;;207ZF0201X

 ;;207ZH0000X

 ;;207ZI0100X

 ;;207ZM0300X

 ;;207ZN0500X

 ;;207ZP0007X

 ;;207ZP0101X

 ;;207ZP0102X

 ;;207ZP0104X

 ;;207ZP0105X

 ;;207ZP0213X

 ;;208000000X

 ;;2080A0000X

 ;;2080I0007X

 ;;2080N0001X

 ;;2080P0006X

 ;;2080P0008X

 ;;2080P0201X

 ;;2080P0202X

 ;;2080P0203X

 ;;2080P0204X

 ;;2080P0205X

 ;;2080P0206X

 ;;2080P0207X

 ;;2080P0208X

 ;;2080P0210X

 ;;2080P0214X

 ;;2080P0216X

 ;;2080S0010X

 ;;2080T0002X

 ;;208100000X

 ;;2081P0004X

 ;;2081P0010X

 ;;2081P2900X

 ;;2081S0010X

 ;;208200000X

 ;;2082S0099X

 ;;2082S0105X

 ;;2083A0100X

 ;;2083P0011X

 ;;2083P0500X

 ;;2083P0901X

 ;;2083S0010X

 ;;2083T0002X

 ;;2083X0100X

 ;;2084A0401X

 ;;2084F0202X

 ;;2084N0400X

 ;;2084N0402X

 ;;2084N0600X

 ;;2084P0005X

 ;;2084P0800X

 ;;2084P0802X

 ;;2084P0804X

 ;;2084P0805X

 ;;2084P2900X

 ;;2084S0010X

 ;;2084V0102X

 ;;2085B0100X

 ;;2085N0700X

 ;;2085N0904X

 ;;2085P0229X

 ;;2085R0001X

 ;;2085R0202X

 ;;2085R0203X

 ;;2085R0204X

 ;;2085R0205X

 ;;2085U0001X

 ;;208600000X

 ;;2086S0102X

 ;;2086S0105X

 ;;2086S0120X

 ;;2086S0122X

 ;;2086S0127X

 ;;2086S0129X

 ;;2086X0206X

 ;;208800000X

 ;;208C00000X

 ;;208D00000X

 ;;208G00000X

 ;;208M00000X

 ;;208U00000X

 ;;208VP0000X

 ;;208VP0014X

 ;;209800000X

 ;;213E00000X

 ;;213EG0000X

 ;;213EP0504X

 ;;213EP1101X

 ;;213ER0200X

 ;;213ES0000X

 ;;213ES0103X

 ;;213ES0131X

 ;;225100000X

 ;;2251C2600X

 ;;2251E1200X

 ;;2251E1300X

 ;;2251G0304X

 ;;2251H1200X

 ;;2251H1300X

 ;;2251N0400X

 ;;2251P0200X

 ;;2251S0007X

 ;;2251X0800X

 ;;225X00000X

 ;;225XE1200X

 ;;225XH1200X

 ;;225XH1300X

 ;;225XN1300X

 ;;225XP0200X

 ;;225XR0403X

 ;;231H00000X

 ;;231HA2400X

 ;;231HA2500X

 ;;237600000X

 ;;363A00000X

 ;;363AM0700X

 ;;363AS0400X

 ;;363L00000X

 ;;363LA2100X

 ;;363LA2200X

 ;;363LC0200X

 ;;363LC1500X

 ;;363LF0000X

 ;;363LG0600X

 ;;363LN0000X

 ;;363LN0005X

 ;;363LP0200X

 ;;363LP0222X

 ;;363LP0808X

 ;;363LP1700X

 ;;363LP2300X

 ;;363LS0200X

 ;;363LW0102X

 ;;363LX0001X

 ;;363LX0106X

 ;;364S00000X

 ;;364SA2100X

 ;;364SA2200X

 ;;364SC0200X

 ;;364SC1501X

 ;;364SC2300X

 ;;364SE0003X

 ;;364SE1400X

 ;;364SF0001X

 ;;364SG0600X

 ;;364SH0200X

 ;;364SH1100X

 ;;364SI0800X

 ;;364SL0600X

 ;;364SM0705X

 ;;364SN0000X

 ;;364SN0800X

 ;;364SP0200X

 ;;364SP0807X

 ;;364SP0808X

 ;;364SP0809X

 ;;364SP0810X

 ;;364SP0811X

 ;;364SP0812X

 ;;364SP0813X

 ;;364SP1700X

 ;;364SP2800X

 ;;364SR0400X

 ;;364SS0200X

 ;;364ST0500X

 ;;364SW0102X

 ;;364SX0106X

 ;;364SX0200X

 ;;364SX0204X

 ;;367500000X

 ;;367A00000X

 ;;367H00000X

 ;;390200000X

 ;;

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     ;;