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