source: FOIAVistA/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUSNPIDA.m@ 1800

XUSNPIDA ;FO-OAKLAND/JLI - SPECIFIED TAXONOMY VALUES FOR NPI RECIPIENTS ;8/22/06  11:37
 ;;8.0;KERNEL;**420,410**;Jul 10, 1995;Build 27
 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
 ;;