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