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

ATXD8Q2.m

Go to the documentation of this file.
ATXD8Q2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 12, 2014;
 ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
 ;
START ;
 K:'$G(ATXPGMC) ^TMP("ATX",$J)
 S ATXPGMC=$G(ATXPGMC)+1
 F ATXI=1:1 S X=$P($T(TMP+ATXI),";;",2,99) Q:X=""  S X="^TMP(""ATX"",$J,"_X,ATXI=ATXI+1,Y=$P($T(TMP+ATXI),";;",2,99) S @X=Y
 Q
 ;
TMP ;;TAXONOMY (WITH BULLETIN)
 ;;21,"O69.1XX0 ")
 ;;414
 ;;21,"O69.1XX1 ")
 ;;415
 ;;21,"O69.1XX2 ")
 ;;416
 ;;21,"O69.1XX3 ")
 ;;417
 ;;21,"O69.1XX4 ")
 ;;418
 ;;21,"O69.1XX5 ")
 ;;419
 ;;21,"O69.1XX9 ")
 ;;420
 ;;21,"O69.2XX0 ")
 ;;421
 ;;21,"O69.2XX1 ")
 ;;422
 ;;21,"O69.2XX2 ")
 ;;423
 ;;21,"O69.2XX3 ")
 ;;424
 ;;21,"O69.2XX4 ")
 ;;425
 ;;21,"O69.2XX5 ")
 ;;426
 ;;21,"O69.2XX9 ")
 ;;427
 ;;21,"O69.3XX0 ")
 ;;428
 ;;21,"O69.3XX1 ")
 ;;429
 ;;21,"O69.3XX2 ")
 ;;430
 ;;21,"O69.3XX3 ")
 ;;431
 ;;21,"O69.3XX4 ")
 ;;432
 ;;21,"O69.3XX5 ")
 ;;433
 ;;21,"O69.3XX9 ")
 ;;434
 ;;21,"O69.4XX0 ")
 ;;435
 ;;21,"O69.4XX1 ")
 ;;436
 ;;21,"O69.4XX2 ")
 ;;437
 ;;21,"O69.4XX3 ")
 ;;438
 ;;21,"O69.4XX4 ")
 ;;439
 ;;21,"O69.4XX5 ")
 ;;440
 ;;21,"O69.4XX9 ")
 ;;441
 ;;21,"O69.5XX0 ")
 ;;442
 ;;21,"O69.5XX1 ")
 ;;443
 ;;21,"O69.5XX2 ")
 ;;444
 ;;21,"O69.5XX3 ")
 ;;445
 ;;21,"O69.5XX4 ")
 ;;446
 ;;21,"O69.5XX5 ")
 ;;447
 ;;21,"O69.5XX9 ")
 ;;448
 ;;21,"O69.81X0 ")
 ;;449
 ;;21,"O69.81X1 ")
 ;;450
 ;;21,"O69.81X2 ")
 ;;451
 ;;21,"O69.81X3 ")
 ;;452
 ;;21,"O69.81X4 ")
 ;;453
 ;;21,"O69.81X5 ")
 ;;454
 ;;21,"O69.81X9 ")
 ;;455
 ;;21,"O69.82X0 ")
 ;;456
 ;;21,"O69.82X1 ")
 ;;457
 ;;21,"O69.82X2 ")
 ;;458
 ;;21,"O69.82X3 ")
 ;;459
 ;;21,"O69.82X4 ")
 ;;460
 ;;21,"O69.82X5 ")
 ;;461
 ;;21,"O69.82X9 ")
 ;;462
 ;;21,"O69.89X0 ")
 ;;463
 ;;21,"O69.89X1 ")
 ;;464
 ;;21,"O69.89X2 ")
 ;;465
 ;;21,"O69.89X3 ")
 ;;466
 ;;21,"O69.89X4 ")
 ;;467
 ;;21,"O69.89X5 ")
 ;;468
 ;;21,"O69.89X9 ")
 ;;469
 ;;21,"O69.9XX0 ")
 ;;470
 ;;21,"O69.9XX1 ")
 ;;471
 ;;21,"O69.9XX2 ")
 ;;472
 ;;21,"O69.9XX3 ")
 ;;473
 ;;21,"O69.9XX4 ")
 ;;474
 ;;21,"O69.9XX5 ")
 ;;475
 ;;21,"O69.9XX9 ")
 ;;476
 ;;21,"O70.0 ")
 ;;477
 ;;21,"O70.1 ")
 ;;478
 ;;21,"O70.2 ")
 ;;479
 ;;21,"O70.3 ")
 ;;480
 ;;21,"O70.4 ")
 ;;481
 ;;21,"O70.9 ")
 ;;482
 ;;21,"O71.82 ")
 ;;483
 ;;21,"O74.0 ")
 ;;484
 ;;21,"O74.1 ")
 ;;485
 ;;21,"O74.2 ")
 ;;486
 ;;21,"O74.3 ")
 ;;487
 ;;21,"O74.4 ")
 ;;488
 ;;21,"O74.5 ")
 ;;489
 ;;21,"O74.6 ")
 ;;490
 ;;21,"O74.7 ")
 ;;491
 ;;21,"O74.8 ")
 ;;492
 ;;21,"O74.9 ")
 ;;493
 ;;21,"O75.0 ")
 ;;494
 ;;21,"O75.1 ")
 ;;495
 ;;21,"O75.5 ")
 ;;496
 ;;21,"O75.81 ")
 ;;497
 ;;21,"O75.89 ")
 ;;498
 ;;21,"O75.9 ")
 ;;499
 ;;21,"O80. ")
 ;;500
 ;;21,"O82. ")
 ;;501
 ;;21,"O86.0 ")
 ;;502
 ;;21,"O86.11 ")
 ;;503
 ;;21,"O86.13 ")
 ;;504
 ;;21,"O86.19 ")
 ;;505
 ;;21,"O86.20 ")
 ;;506
 ;;21,"O86.21 ")
 ;;507
 ;;21,"O86.22 ")
 ;;508
 ;;21,"O86.29 ")
 ;;509
 ;;21,"O86.4 ")
 ;;510
 ;;21,"O86.89 ")
 ;;511
 ;;21,"O87.0 ")
 ;;512
 ;;21,"O87.1 ")
 ;;513
 ;;21,"O87.2 ")
 ;;514
 ;;21,"O87.3 ")
 ;;515
 ;;21,"O87.4 ")
 ;;516
 ;;21,"O87.8 ")
 ;;517
 ;;21,"O87.9 ")
 ;;518
 ;;21,"O88.111 ")
 ;;519
 ;;21,"O89.09 ")
 ;;520
 ;;21,"O89.1 ")
 ;;521
 ;;21,"O89.2 ")
 ;;522
 ;;21,"O89.3 ")
 ;;523
 ;;21,"O89.4 ")
 ;;524
 ;;21,"O89.5 ")
 ;;525
 ;;21,"O89.6 ")
 ;;526
 ;;21,"O89.8 ")
 ;;527
 ;;21,"O89.9 ")
 ;;528
 ;;21,"O90.0 ")
 ;;529
 ;;21,"O90.1 ")
 ;;530
 ;;21,"O90.2 ")
 ;;531
 ;;21,"O90.3 ")
 ;;532
 ;;21,"O90.4 ")
 ;;533
 ;;21,"O90.5 ")
 ;;534
 ;;21,"O90.6 ")
 ;;535
 ;;21,"O90.81 ")
 ;;536
 ;;21,"O90.89 ")
 ;;537
 ;;21,"O90.9 ")
 ;;538
 ;;21,"O94. ")
 ;;539
 ;;21,"O98.512 ")
 ;;574
 ;;21,"O98.834 ")
 ;;540
 ;;21,"O98.835 ")
 ;;541
 ;;21,"V24.0 ")
 ;;542
 ;;21,"V27.0 ")
 ;;543
 ;;21,"Z37.0 ")
 ;;544
 ;;21,"Z37.1 ")
 ;;545
 ;;21,"Z37.2 ")
 ;;546
 ;;21,"Z37.3 ")
 ;;547
 ;;21,"Z37.4 ")
 ;;548
 ;;21,"Z37.50 ")
 ;;549
 ;;21,"Z37.51 ")
 ;;550
 ;;21,"Z37.52 ")
 ;;551
 ;;21,"Z37.53 ")
 ;;552
 ;;21,"Z37.54 ")
 ;;553
 ;;21,"Z37.59 ")
 ;;554
 ;;21,"Z37.60 ")
 ;;555
 ;;21,"Z37.61 ")
 ;;556
 ;;21,"Z37.62 ")
 ;;557
 ;;21,"Z37.63 ")
 ;;558
 ;;21,"Z37.64 ")
 ;;559
 ;;21,"Z37.69 ")
 ;;560
 ;;21,"Z37.7 ")
 ;;561
 ;;21,"Z37.9 ")
 ;;562
 ;;21,"Z38.01 ")
 ;;563
 ;;21,"Z38.31 ")
 ;;564
 ;;21,"Z38.62 ")
 ;;565
 ;;21,"Z38.64 ")
 ;;566
 ;;21,"Z38.66 ")
 ;;567
 ;;21,"Z38.69 ")
 ;;568
 ;;21,"Z38.8 ")
 ;;569
 ;;21,"Z39.0 ")
 ;;570
 ;;21,"Z39.1 ")
 ;;571
 ;;21,"Z39.2 ")
 ;;572
 ;;9002226,911,.01)
 ;;SURVEILLANCE H1N1 DELIVERY DX
 ;;9002226,911,.02)
 ;;@
 ;;9002226,911,.04)
 ;;n
 ;;9002226,911,.06)
 ;;@
 ;;9002226,911,.08)
 ;;0
 ;;9002226,911,.09)
 ;;3131113
 ;;9002226,911,.11)
 ;;@
 ;;9002226,911,.12)
 ;;31
 ;;9002226,911,.13)
 ;;1
 ;;9002226,911,.14)
 ;;@
 ;;9002226,911,.15)
 ;;80
 ;;9002226,911,.16)
 ;;@
 ;;9002226,911,.17)
 ;;@
 ;;9002226,911,3101)
 ;;@
 ;;9002226.02101,"911,640.01 ",.01)
 ;;640.01 
 ;;9002226.02101,"911,640.01 ",.02)
 ;;640.01 
 ;;9002226.02101,"911,640.01 ",.03)
 ;;1
 ;;9002226.02101,"911,640.81 ",.01)
 ;;640.81 
 ;;9002226.02101,"911,640.81 ",.02)
 ;;640.81 
 ;;9002226.02101,"911,640.81 ",.03)
 ;;1
 ;;9002226.02101,"911,640.91 ",.01)
 ;;640.91 
 ;;9002226.02101,"911,640.91 ",.02)
 ;;640.91 
 ;;9002226.02101,"911,640.91 ",.03)
 ;;1
 ;;9002226.02101,"911,641.01 ",.01)
 ;;641.01 
 ;;9002226.02101,"911,641.01 ",.02)
 ;;641.01 
 ;;9002226.02101,"911,641.01 ",.03)
 ;;1
 ;;9002226.02101,"911,641.11 ",.01)
 ;;641.11 
 ;;9002226.02101,"911,641.11 ",.02)
 ;;641.11 
 ;;9002226.02101,"911,641.11 ",.03)
 ;;1
 ;;9002226.02101,"911,641.21 ",.01)
 ;;641.21 
 ;;9002226.02101,"911,641.21 ",.02)
 ;;641.21 
 ;;9002226.02101,"911,641.21 ",.03)
 ;;1
 ;;9002226.02101,"911,641.31 ",.01)
 ;;641.31 
 ;;9002226.02101,"911,641.31 ",.02)
 ;;641.31 
 ;;9002226.02101,"911,641.31 ",.03)
 ;;1
 ;;9002226.02101,"911,641.81 ",.01)
 ;;641.81 
 ;;9002226.02101,"911,641.81 ",.02)
 ;;641.81 
 ;;9002226.02101,"911,641.81 ",.03)
 ;;1
 ;;9002226.02101,"911,641.91 ",.01)
 ;;641.91 
 ;;9002226.02101,"911,641.91 ",.02)
 ;;641.91 
 ;;9002226.02101,"911,641.91 ",.03)
 ;;1
 ;;9002226.02101,"911,642.01 ",.01)
 ;;642.01 
 ;;9002226.02101,"911,642.01 ",.02)
 ;;642.02 
 ;;9002226.02101,"911,642.01 ",.03)
 ;;1
 ;;9002226.02101,"911,642.04 ",.01)
 ;;642.04 
 ;;9002226.02101,"911,642.04 ",.02)
 ;;642.04 
 ;;9002226.02101,"911,642.04 ",.03)
 ;;1
 ;;9002226.02101,"911,642.11 ",.01)
 ;;642.11 
 ;;9002226.02101,"911,642.11 ",.02)
 ;;642.12 
 ;;9002226.02101,"911,642.11 ",.03)
 ;;1
 ;;9002226.02101,"911,642.14 ",.01)
 ;;642.14 
 ;;9002226.02101,"911,642.14 ",.02)
 ;;642.14 
 ;;9002226.02101,"911,642.14 ",.03)
 ;;1
 ;;9002226.02101,"911,642.21 ",.01)
 ;;642.21 
 ;;9002226.02101,"911,642.21 ",.02)
 ;;642.22 
 ;;9002226.02101,"911,642.21 ",.03)
 ;;1
 ;;9002226.02101,"911,642.24 ",.01)
 ;;642.24 
 ;;9002226.02101,"911,642.24 ",.02)
 ;;642.24 
 ;;9002226.02101,"911,642.24 ",.03)
 ;;1
 ;;9002226.02101,"911,642.31 ",.01)
 ;;642.31 
 ;;9002226.02101,"911,642.31 ",.02)
 ;;642.32 
 ;;9002226.02101,"911,642.31 ",.03)
 ;;1
 ;;9002226.02101,"911,642.34 ",.01)
 ;;642.34 
 ;;9002226.02101,"911,642.34 ",.02)
 ;;642.34 
 ;;9002226.02101,"911,642.34 ",.03)
 ;;1
 ;;9002226.02101,"911,642.41 ",.01)
 ;;642.41 
 ;;9002226.02101,"911,642.41 ",.02)
 ;;642.42 
 ;;9002226.02101,"911,642.41 ",.03)
 ;;1
 ;;9002226.02101,"911,642.44 ",.01)
 ;;642.44 
 ;;9002226.02101,"911,642.44 ",.02)
 ;;642.44 
 ;;9002226.02101,"911,642.44 ",.03)
 ;;1
 ;;9002226.02101,"911,642.51 ",.01)
 ;;642.51 
 ;;9002226.02101,"911,642.51 ",.02)
 ;;642.52 
 ;;9002226.02101,"911,642.51 ",.03)
 ;;1
 ;;9002226.02101,"911,642.54 ",.01)
 ;;642.54 
 ;;9002226.02101,"911,642.54 ",.02)
 ;;642.54 
 ;;9002226.02101,"911,642.54 ",.03)
 ;;1
 ;;9002226.02101,"911,642.61 ",.01)
 ;;642.61 
 ;;9002226.02101,"911,642.61 ",.02)
 ;;642.62 
 ;;9002226.02101,"911,642.61 ",.03)
 ;;1
 ;;9002226.02101,"911,642.64 ",.01)
 ;;642.64 
 ;;9002226.02101,"911,642.64 ",.02)
 ;;642.64 
 ;;9002226.02101,"911,642.64 ",.03)
 ;;1
 ;;9002226.02101,"911,642.71 ",.01)
 ;;642.71 
 ;;9002226.02101,"911,642.71 ",.02)
 ;;642.72 
 ;;9002226.02101,"911,642.71 ",.03)
 ;;1
 ;;9002226.02101,"911,642.74 ",.01)
 ;;642.74 
 ;;9002226.02101,"911,642.74 ",.02)
 ;;642.74 
 ;;9002226.02101,"911,642.74 ",.03)
 ;;1
 ;;9002226.02101,"911,642.91 ",.01)
 ;;642.91 
 ;;9002226.02101,"911,642.91 ",.02)
 ;;642.92 
 ;;9002226.02101,"911,642.91 ",.03)
 ;;1
 ;;9002226.02101,"911,642.94 ",.01)
 ;;642.94 
 ;;9002226.02101,"911,642.94 ",.02)
 ;;642.94 
 ;;9002226.02101,"911,642.94 ",.03)
 ;;1
 ;;9002226.02101,"911,643.01 ",.01)
 ;;643.01 
 ;;9002226.02101,"911,643.01 ",.02)
 ;;643.01 
 ;;9002226.02101,"911,643.01 ",.03)
 ;;1
 ;;9002226.02101,"911,643.11 ",.01)
 ;;643.11 
 ;;9002226.02101,"911,643.11 ",.02)
 ;;643.11 
 ;;9002226.02101,"911,643.11 ",.03)
 ;;1
 ;;9002226.02101,"911,643.21 ",.01)
 ;;643.21 
 ;;9002226.02101,"911,643.21 ",.02)
 ;;643.21 
 ;;9002226.02101,"911,643.21 ",.03)
 ;;1
 ;;9002226.02101,"911,643.81 ",.01)
 ;;643.81 
 ;;9002226.02101,"911,643.81 ",.02)
 ;;643.81 
 ;;9002226.02101,"911,643.81 ",.03)
 ;;1
 ;;9002226.02101,"911,643.91 ",.01)
 ;;643.91 
 ;;9002226.02101,"911,643.91 ",.02)
 ;;643.91 
 ;;9002226.02101,"911,643.91 ",.03)
 ;;1
 ;;9002226.02101,"911,644.20 ",.01)
 ;;644.20 
 ;;9002226.02101,"911,644.20 ",.02)
 ;;644.21 
 ;;9002226.02101,"911,644.20 ",.03)
 ;;1
 ;;9002226.02101,"911,645.11 ",.01)
 ;;645.11 
 ;;9002226.02101,"911,645.11 ",.02)
 ;;645.11 
 ;;9002226.02101,"911,645.11 ",.03)
 ;;1
 ;;9002226.02101,"911,645.21 ",.01)
 ;;645.21 
 ;;9002226.02101,"911,645.21 ",.02)
 ;;645.21 
 ;;9002226.02101,"911,645.21 ",.03)
 ;;1
 ;;9002226.02101,"911,646.01 ",.01)
 ;;646.01 
 ;;9002226.02101,"911,646.01 ",.02)
 ;;646.01 
 ;;9002226.02101,"911,646.01 ",.03)
 ;;1
 ;;9002226.02101,"911,646.11 ",.01)
 ;;646.11 
 ;;9002226.02101,"911,646.11 ",.02)
 ;;646.12 
 ;;9002226.02101,"911,646.11 ",.03)
 ;;1
 ;;9002226.02101,"911,646.14 ",.01)
 ;;646.14 
 ;;9002226.02101,"911,646.14 ",.02)
 ;;646.14 
 ;;9002226.02101,"911,646.14 ",.03)
 ;;1
 ;;9002226.02101,"911,646.21 ",.01)
 ;;646.21 
 ;;9002226.02101,"911,646.21 ",.02)
 ;;646.22 
 ;;9002226.02101,"911,646.21 ",.03)
 ;;1
 ;;9002226.02101,"911,646.24 ",.01)
 ;;646.24 
 ;;9002226.02101,"911,646.24 ",.02)
 ;;646.24 
 ;;9002226.02101,"911,646.24 ",.03)
 ;;1
 ;;9002226.02101,"911,646.31 ",.01)
 ;;646.31 
 ;;9002226.02101,"911,646.31 ",.02)
 ;;646.31 
 ;;9002226.02101,"911,646.31 ",.03)
 ;;1
 ;;9002226.02101,"911,646.41 ",.01)
 ;;646.41 
 ;;9002226.02101,"911,646.41 ",.02)
 ;;646.42 
 ;;9002226.02101,"911,646.41 ",.03)
 ;;1
 ;;9002226.02101,"911,646.44 ",.01)
 ;;646.44 
 ;;9002226.02101,"911,646.44 ",.02)
 ;;646.44 
 ;;9002226.02101,"911,646.44 ",.03)
 ;;1
 ;;9002226.02101,"911,646.51 ",.01)
 ;;646.51 
 ;;9002226.02101,"911,646.51 ",.02)
 ;;646.52 
 ;;9002226.02101,"911,646.51 ",.03)
 ;;1
 ;;9002226.02101,"911,646.54 ",.01)
 ;;646.54 
 ;;9002226.02101,"911,646.54 ",.02)
 ;;646.54 
 ;;9002226.02101,"911,646.54 ",.03)
 ;;1
 ;;9002226.02101,"911,646.61 ",.01)
 ;;646.61 
 ;;9002226.02101,"911,646.61 ",.02)
 ;;646.62 
 ;;9002226.02101,"911,646.61 ",.03)
 ;;1
 ;;9002226.02101,"911,646.64 ",.01)
 ;;646.64 
 ;;9002226.02101,"911,646.64 ",.02)
 ;;646.64 
 ;;9002226.02101,"911,646.64 ",.03)
 ;;1
 ;;9002226.02101,"911,646.71 ",.01)
 ;;646.71 
 ;;9002226.02101,"911,646.71 ",.02)
 ;;646.71 
 ;;9002226.02101,"911,646.71 ",.03)
 ;;1