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

BGPM5ANX.m

Go to the documentation of this file.
BGPM5ANX ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 17, 2011;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
 ;
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,"200.41 ")
 ;;436
 ;;21,"200.42 ")
 ;;437
 ;;21,"200.43 ")
 ;;438
 ;;21,"200.44 ")
 ;;439
 ;;21,"200.45 ")
 ;;440
 ;;21,"200.46 ")
 ;;441
 ;;21,"200.47 ")
 ;;442
 ;;21,"200.48 ")
 ;;443
 ;;21,"200.5 ")
 ;;444
 ;;21,"200.50 ")
 ;;445
 ;;21,"200.51 ")
 ;;446
 ;;21,"200.52 ")
 ;;447
 ;;21,"200.53 ")
 ;;448
 ;;21,"200.54 ")
 ;;449
 ;;21,"200.55 ")
 ;;450
 ;;21,"200.56 ")
 ;;451
 ;;21,"200.57 ")
 ;;452
 ;;21,"200.58 ")
 ;;453
 ;;21,"200.6 ")
 ;;454
 ;;21,"200.60 ")
 ;;455
 ;;21,"200.61 ")
 ;;456
 ;;21,"200.62 ")
 ;;457
 ;;21,"200.63 ")
 ;;458
 ;;21,"200.64 ")
 ;;459
 ;;21,"200.65 ")
 ;;460
 ;;21,"200.66 ")
 ;;461
 ;;21,"200.67 ")
 ;;462
 ;;21,"200.68 ")
 ;;463
 ;;21,"200.7 ")
 ;;464
 ;;21,"200.70 ")
 ;;465
 ;;21,"200.71 ")
 ;;466
 ;;21,"200.72 ")
 ;;467
 ;;21,"200.73 ")
 ;;468
 ;;21,"200.74 ")
 ;;469
 ;;21,"200.75 ")
 ;;470
 ;;21,"200.76 ")
 ;;471
 ;;21,"200.77 ")
 ;;472
 ;;21,"200.78 ")
 ;;473
 ;;21,"200.8 ")
 ;;474
 ;;21,"200.80 ")
 ;;475
 ;;21,"200.81 ")
 ;;476
 ;;21,"200.82 ")
 ;;477
 ;;21,"200.83 ")
 ;;478
 ;;21,"200.84 ")
 ;;479
 ;;21,"200.85 ")
 ;;480
 ;;21,"200.86 ")
 ;;481
 ;;21,"200.87 ")
 ;;482
 ;;21,"200.88 ")
 ;;483
 ;;21,"201 ")
 ;;484
 ;;21,"201.0 ")
 ;;485
 ;;21,"201.00 ")
 ;;486
 ;;21,"201.01 ")
 ;;487
 ;;21,"201.02 ")
 ;;488
 ;;21,"201.03 ")
 ;;489
 ;;21,"201.04 ")
 ;;490
 ;;21,"201.05 ")
 ;;491
 ;;21,"201.06 ")
 ;;492
 ;;21,"201.07 ")
 ;;493
 ;;21,"201.08 ")
 ;;494
 ;;21,"201.1 ")
 ;;495
 ;;21,"201.10 ")
 ;;496
 ;;21,"201.11 ")
 ;;497
 ;;21,"201.12 ")
 ;;498
 ;;21,"201.13 ")
 ;;499
 ;;21,"201.14 ")
 ;;500
 ;;21,"201.15 ")
 ;;501
 ;;21,"201.16 ")
 ;;502
 ;;21,"201.17 ")
 ;;503
 ;;21,"201.18 ")
 ;;504
 ;;21,"201.2 ")
 ;;505
 ;;21,"201.20 ")
 ;;506
 ;;21,"201.21 ")
 ;;507
 ;;21,"201.22 ")
 ;;508
 ;;21,"201.23 ")
 ;;509
 ;;21,"201.24 ")
 ;;510
 ;;21,"201.25 ")
 ;;511
 ;;21,"201.26 ")
 ;;512
 ;;21,"201.27 ")
 ;;513
 ;;21,"201.28 ")
 ;;514
 ;;21,"201.4 ")
 ;;515
 ;;21,"201.40 ")
 ;;516
 ;;21,"201.41 ")
 ;;517
 ;;21,"201.42 ")
 ;;518
 ;;21,"201.43 ")
 ;;519
 ;;21,"201.44 ")
 ;;520
 ;;21,"201.45 ")
 ;;521
 ;;21,"201.46 ")
 ;;522
 ;;21,"201.47 ")
 ;;523
 ;;21,"201.48 ")
 ;;524
 ;;21,"201.5 ")
 ;;525
 ;;21,"201.50 ")
 ;;526
 ;;21,"201.51 ")
 ;;527
 ;;21,"201.52 ")
 ;;528
 ;;21,"201.53 ")
 ;;529
 ;;21,"201.54 ")
 ;;530
 ;;21,"201.55 ")
 ;;531
 ;;21,"201.56 ")
 ;;532
 ;;21,"201.57 ")
 ;;533
 ;;21,"201.58 ")
 ;;534
 ;;21,"201.6 ")
 ;;535
 ;;21,"201.60 ")
 ;;536
 ;;21,"201.61 ")
 ;;537
 ;;21,"201.62 ")
 ;;538
 ;;21,"201.63 ")
 ;;539
 ;;21,"201.64 ")
 ;;540
 ;;21,"201.65 ")
 ;;541
 ;;21,"201.66 ")
 ;;542
 ;;21,"201.67 ")
 ;;543
 ;;21,"201.68 ")
 ;;544
 ;;21,"201.7 ")
 ;;545
 ;;21,"201.70 ")
 ;;546
 ;;21,"201.71 ")
 ;;547
 ;;21,"201.72 ")
 ;;548
 ;;21,"201.73 ")
 ;;549
 ;;21,"201.74 ")
 ;;550
 ;;21,"201.75 ")
 ;;551
 ;;21,"201.76 ")
 ;;552
 ;;21,"201.77 ")
 ;;553
 ;;21,"201.78 ")
 ;;554
 ;;21,"201.9 ")
 ;;555
 ;;21,"201.90 ")
 ;;556
 ;;21,"201.91 ")
 ;;557
 ;;21,"201.92 ")
 ;;558
 ;;21,"201.93 ")
 ;;559
 ;;21,"201.94 ")
 ;;560
 ;;21,"201.95 ")
 ;;561
 ;;21,"201.96 ")
 ;;562
 ;;21,"201.97 ")
 ;;563
 ;;21,"201.98 ")
 ;;564
 ;;21,"202 ")
 ;;565
 ;;21,"202.0 ")
 ;;566
 ;;21,"202.00 ")
 ;;567
 ;;21,"202.01 ")
 ;;568
 ;;21,"202.02 ")
 ;;569
 ;;21,"202.03 ")
 ;;570
 ;;21,"202.04 ")
 ;;571
 ;;21,"202.05 ")
 ;;572
 ;;21,"202.06 ")
 ;;573
 ;;21,"202.07 ")
 ;;574
 ;;21,"202.08 ")
 ;;575
 ;;21,"202.1 ")
 ;;576
 ;;21,"202.10 ")
 ;;577
 ;;21,"202.11 ")
 ;;578
 ;;21,"202.12 ")
 ;;579
 ;;21,"202.13 ")
 ;;580
 ;;21,"202.14 ")
 ;;581
 ;;21,"202.15 ")
 ;;582
 ;;21,"202.16 ")
 ;;583
 ;;21,"202.17 ")
 ;;584
 ;;21,"202.18 ")
 ;;585
 ;;21,"202.2 ")
 ;;586
 ;;21,"202.20 ")
 ;;587
 ;;21,"202.21 ")
 ;;588
 ;;21,"202.22 ")
 ;;589
 ;;21,"202.23 ")
 ;;590
 ;;21,"202.24 ")
 ;;591
 ;;21,"202.25 ")
 ;;592
 ;;21,"202.26 ")
 ;;593
 ;;21,"202.27 ")
 ;;594
 ;;21,"202.28 ")
 ;;595
 ;;21,"202.3 ")
 ;;596
 ;;21,"202.30 ")
 ;;597
 ;;21,"202.31 ")
 ;;598
 ;;21,"202.32 ")
 ;;599
 ;;21,"202.33 ")
 ;;600
 ;;21,"202.34 ")
 ;;601
 ;;21,"202.35 ")
 ;;602
 ;;21,"202.36 ")
 ;;603
 ;;21,"202.37 ")
 ;;604
 ;;21,"202.38 ")
 ;;605
 ;;21,"202.4 ")
 ;;606
 ;;21,"202.40 ")
 ;;607
 ;;21,"202.41 ")
 ;;608
 ;;21,"202.42 ")
 ;;609
 ;;21,"202.43 ")
 ;;610
 ;;21,"202.44 ")
 ;;611
 ;;21,"202.45 ")
 ;;612
 ;;21,"202.46 ")
 ;;613
 ;;21,"202.47 ")
 ;;614
 ;;21,"202.48 ")
 ;;615
 ;;21,"202.5 ")
 ;;616
 ;;21,"202.50 ")
 ;;617
 ;;21,"202.51 ")
 ;;618
 ;;21,"202.52 ")
 ;;619
 ;;21,"202.53 ")
 ;;620
 ;;21,"202.54 ")
 ;;621
 ;;21,"202.55 ")
 ;;622
 ;;21,"202.56 ")
 ;;623
 ;;21,"202.57 ")
 ;;624
 ;;21,"202.58 ")
 ;;625
 ;;21,"202.6 ")
 ;;626
 ;;21,"202.60 ")
 ;;627
 ;;21,"202.61 ")
 ;;628
 ;;21,"202.62 ")
 ;;629
 ;;21,"202.63 ")
 ;;630
 ;;21,"202.64 ")
 ;;631
 ;;21,"202.65 ")
 ;;632
 ;;21,"202.66 ")
 ;;633
 ;;21,"202.67 ")
 ;;634
 ;;21,"202.68 ")
 ;;635
 ;;21,"202.7 ")
 ;;636
 ;;21,"202.70 ")
 ;;637
 ;;21,"202.71 ")
 ;;638
 ;;21,"202.72 ")
 ;;639
 ;;21,"202.73 ")
 ;;640
 ;;21,"202.74 ")
 ;;641
 ;;21,"202.75 ")
 ;;642
 ;;21,"202.76 ")
 ;;643
 ;;21,"202.77 ")
 ;;644
 ;;21,"202.78 ")
 ;;645
 ;;21,"202.8 ")
 ;;646
 ;;21,"202.80 ")
 ;;647
 ;;21,"202.81 ")
 ;;648
 ;;21,"202.82 ")
 ;;649
 ;;21,"202.83 ")
 ;;650
 ;;21,"202.84 ")
 ;;651
 ;;21,"202.85 ")
 ;;652
 ;;21,"202.86 ")
 ;;653
 ;;21,"202.87 ")
 ;;654
 ;;21,"202.88 ")
 ;;655
 ;;21,"202.9 ")
 ;;656
 ;;21,"202.90 ")
 ;;657
 ;;21,"202.91 ")
 ;;658
 ;;21,"202.92 ")
 ;;659
 ;;21,"202.93 ")
 ;;660
 ;;21,"202.94 ")
 ;;661
 ;;21,"202.95 ")
 ;;662
 ;;21,"202.96 ")
 ;;663
 ;;21,"202.97 ")
 ;;664
 ;;21,"202.98 ")
 ;;665
 ;;21,"203 ")
 ;;666
 ;;21,"203.0 ")
 ;;667
 ;;21,"203.00 ")
 ;;668
 ;;21,"203.01 ")
 ;;669
 ;;21,"203.02 ")
 ;;670
 ;;21,"203.1 ")
 ;;671
 ;;21,"203.10 ")
 ;;672
 ;;21,"203.11 ")
 ;;673
 ;;21,"203.12 ")
 ;;674
 ;;21,"203.8 ")
 ;;675
 ;;21,"203.80 ")
 ;;676
 ;;21,"203.81 ")
 ;;677
 ;;21,"203.82 ")
 ;;678
 ;;21,"204 ")
 ;;679
 ;;21,"204.0 ")
 ;;680
 ;;21,"204.00 ")
 ;;681
 ;;21,"204.01 ")
 ;;682
 ;;21,"204.02 ")
 ;;683
 ;;21,"204.1 ")
 ;;684
 ;;21,"204.10 ")
 ;;685
 ;;21,"204.11 ")
 ;;686
 ;;21,"204.12 ")
 ;;687
 ;;21,"204.2 ")
 ;;688
 ;;21,"204.20 ")
 ;;689
 ;;21,"204.21 ")
 ;;690
 ;;21,"204.22 ")
 ;;691
 ;;21,"204.8 ")
 ;;692
 ;;21,"204.80 ")
 ;;693
 ;;21,"204.81 ")
 ;;694
 ;;21,"204.82 ")
 ;;695
 ;;21,"204.9 ")
 ;;696
 ;;21,"204.90 ")
 ;;697
 ;;21,"204.91 ")
 ;;698
 ;;21,"204.92 ")
 ;;699
 ;;21,"205 ")
 ;;700
 ;;21,"205.0 ")
 ;;701
 ;;21,"205.00 ")
 ;;702
 ;;21,"205.01 ")
 ;;703
 ;;21,"205.02 ")
 ;;704
 ;;21,"205.1 ")
 ;;705
 ;;21,"205.10 ")
 ;;706
 ;;21,"205.11 ")
 ;;707
 ;;21,"205.12 ")
 ;;708
 ;;21,"205.2 ")
 ;;709
 ;;21,"205.20 ")
 ;;710
 ;;21,"205.21 ")
 ;;711
 ;;21,"205.22 ")
 ;;712
 ;;21,"205.3 ")
 ;;713
 ;;21,"205.30 ")
 ;;714
 ;;21,"205.31 ")
 ;;715
 ;;21,"205.32 ")
 ;;716
 ;;21,"205.8 ")
 ;;717
 ;;21,"205.80 ")
 ;;718
 ;;21,"205.81 ")
 ;;719
 ;;21,"205.82 ")
 ;;720
 ;;21,"205.9 ")
 ;;721
 ;;21,"205.90 ")
 ;;722
 ;;21,"205.91 ")
 ;;723
 ;;21,"205.92 ")
 ;;724
 ;;21,"206 ")
 ;;725
 ;;21,"206.0 ")
 ;;726
 ;;21,"206.00 ")
 ;;727
 ;;21,"206.01 ")
 ;;728
 ;;21,"206.02 ")
 ;;729
 ;;21,"206.1 ")
 ;;730
 ;;21,"206.10 ")
 ;;731
 ;;21,"206.11 ")
 ;;732
 ;;21,"206.12 ")
 ;;733
 ;;21,"206.2 ")
 ;;734
 ;;21,"206.20 ")
 ;;735
 ;;21,"206.21 ")
 ;;736
 ;;21,"206.22 ")
 ;;737
 ;;21,"206.8 ")
 ;;738
 ;;21,"206.80 ")
 ;;739
 ;;21,"206.81 ")
 ;;740
 ;;21,"206.82 ")
 ;;741
 ;;21,"206.9 ")
 ;;742
 ;;21,"206.90 ")
 ;;743
 ;;21,"206.91 ")
 ;;744
 ;;21,"206.92 ")
 ;;745
 ;;21,"207 ")
 ;;746
 ;;21,"207.0 ")
 ;;747
 ;;21,"207.00 ")
 ;;748
 ;;21,"207.01 ")
 ;;749
 ;;21,"207.02 ")
 ;;750
 ;;21,"207.1 ")
 ;;751
 ;;21,"207.10 ")
 ;;752
 ;;21,"207.11 ")
 ;;753
 ;;21,"207.12 ")
 ;;754
 ;;21,"207.2 ")
 ;;755
 ;;21,"207.20 ")
 ;;756
 ;;21,"207.21 ")
 ;;757
 ;;21,"207.22 ")
 ;;758
 ;;21,"207.8 ")
 ;;759
 ;;21,"207.80 ")
 ;;760
 ;;21,"207.81 ")
 ;;761
 ;;21,"207.82 ")
 ;;762
 ;;21,"208 ")
 ;;763
 ;;21,"208.0 ")
 ;;764
 ;;21,"208.00 ")
 ;;765
 ;;21,"208.01 ")
 ;;766
 ;;21,"208.02 ")
 ;;767
 ;;21,"208.1 ")
 ;;768
 ;;21,"208.10 ")
 ;;769
 ;;21,"208.11 ")
 ;;770
 ;;21,"208.12 ")
 ;;771
 ;;21,"208.2 ")
 ;;772
 ;;21,"208.20 ")
 ;;773
 ;;21,"208.21 ")
 ;;774
 ;;21,"208.22 ")
 ;;775
 ;;21,"208.8 ")
 ;;776
 ;;21,"208.80 ")
 ;;777
 ;;21,"208.81 ")
 ;;778
 ;;21,"208.82 ")
 ;;779
 ;;21,"208.9 ")
 ;;780
 ;;21,"208.90 ")
 ;;781
 ;;21,"208.91 ")
 ;;782
 ;;21,"208.92 ")
 ;;783
 ;;21,"209 ")
 ;;784
 ;;21,"209.0 ")
 ;;785
 ;;21,"209.00 ")
 ;;786
 ;;21,"209.01 ")
 ;;787
 ;;21,"209.02 ")
 ;;788
 ;;21,"209.03 ")
 ;;789
 ;;21,"209.1 ")
 ;;790
 ;;21,"209.10 ")
 ;;791
 ;;21,"209.11 ")
 ;;792
 ;;21,"209.12 ")
 ;;793
 ;;21,"209.13 ")
 ;;794
 ;;21,"209.14 ")
 ;;795
 ;;21,"209.15 ")
 ;;796
 ;;21,"209.16 ")
 ;;797
 ;;21,"209.17 ")
 ;;798
 ;;21,"209.2 ")
 ;;799
 ;;21,"209.20 ")
 ;;800
 ;;21,"209.21 ")
 ;;801
 ;;21,"209.22 ")
 ;;802
 ;;21,"209.23 ")
 ;;803
 ;;21,"209.24 ")
 ;;804
 ;;21,"209.25 ")
 ;;805
 ;;21,"209.26 ")
 ;;806
 ;;21,"209.27 ")
 ;;807
 ;;21,"209.29 ")
 ;;808
 ;;21,"209.3 ")
 ;;809
 ;;21,"209.30 ")
 ;;810
 ;;21,"209.31 ")
 ;;1006
 ;;21,"209.4 ")
 ;;811
 ;;21,"209.40 ")
 ;;812
 ;;21,"209.41 ")
 ;;813
 ;;21,"209.42 ")
 ;;814
 ;;21,"209.43 ")
 ;;815
 ;;21,"209.5 ")
 ;;816
 ;;21,"209.50 ")
 ;;817
 ;;21,"209.51 ")
 ;;818
 ;;21,"209.52 ")
 ;;819
 ;;21,"209.53 ")
 ;;820
 ;;21,"209.54 ")
 ;;821
 ;;21,"209.55 ")
 ;;822
 ;;21,"209.56 ")
 ;;823
 ;;21,"209.57 ")
 ;;824
 ;;21,"209.6 ")
 ;;825
 ;;21,"209.60 ")
 ;;826
 ;;21,"209.61 ")
 ;;827
 ;;21,"209.62 ")
 ;;828
 ;;21,"209.63 ")
 ;;829
 ;;21,"209.64 ")
 ;;830
 ;;21,"209.65 ")
 ;;831
 ;;21,"209.66 ")
 ;;832
 ;;21,"209.67 ")
 ;;833
 ;;21,"209.69 ")
 ;;834
 ;;21,"209.7 ")
 ;;1007
 ;;21,"209.70 ")
 ;;1008
 ;;21,"209.79 ")
 ;;1009
 ;;21,"230 ")
 ;;835
 ;;21,"230.0 ")
 ;;836
 ;;21,"230.1 ")
 ;;837
 ;;21,"230.2 ")
 ;;838
 ;;21,"230.3 ")
 ;;839
 ;;21,"230.4 ")
 ;;840
 ;;21,"230.5 ")
 ;;841
 ;;21,"230.6 ")
 ;;842
 ;;21,"230.7 ")
 ;;843
 ;;21,"230.8 ")
 ;;844
 ;;21,"230.9 ")
 ;;845
 ;;21,"231 ")
 ;;846
 ;;21,"231.0 ")
 ;;847
 ;;21,"231.1 ")
 ;;848
 ;;21,"231.2 ")
 ;;849
 ;;21,"231.8 ")
 ;;850
 ;;21,"231.9 ")
 ;;851
 ;;21,"232 ")
 ;;852
 ;;21,"232.0 ")
 ;;853
 ;;21,"232.1 ")
 ;;854
 ;;21,"232.2 ")
 ;;855
 ;;21,"232.3 ")
 ;;856