Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XUSNPIDA

XUSNPIDA.m

Go to the documentation of this file. 
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

 ;;