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

BGP62Y8.m

Go to the documentation of this file.
  1. BGP62Y8 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 11, 2016;
  1. ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
  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,"33358-0081-14 ")
  1. ;;4421
  1. ;;21,"33358-0081-20 ")
  1. ;;4422
  1. ;;21,"33358-0081-28 ")
  1. ;;4423
  1. ;;21,"33358-0081-30 ")
  1. ;;4424
  1. ;;21,"33358-0081-60 ")
  1. ;;4425
  1. ;;21,"33358-0086-20 ")
  1. ;;2962
  1. ;;21,"33358-0087-14 ")
  1. ;;3043
  1. ;;21,"33358-0088-12 ")
  1. ;;2257
  1. ;;21,"33358-0088-28 ")
  1. ;;2258
  1. ;;21,"33358-0088-30 ")
  1. ;;2259
  1. ;;21,"33358-0089-20 ")
  1. ;;2438
  1. ;;21,"33358-0089-30 ")
  1. ;;2439
  1. ;;21,"33358-0106-14 ")
  1. ;;3914
  1. ;;21,"33358-0106-20 ")
  1. ;;3915
  1. ;;21,"33358-0106-30 ")
  1. ;;3916
  1. ;;21,"33358-0106-40 ")
  1. ;;3917
  1. ;;21,"33358-0107-14 ")
  1. ;;3988
  1. ;;21,"33358-0107-20 ")
  1. ;;3989
  1. ;;21,"33358-0107-30 ")
  1. ;;3990
  1. ;;21,"33358-0107-40 ")
  1. ;;3991
  1. ;;21,"33358-0120-14 ")
  1. ;;5984
  1. ;;21,"33358-0120-20 ")
  1. ;;5985
  1. ;;21,"33358-0120-30 ")
  1. ;;5986
  1. ;;21,"33358-0120-40 ")
  1. ;;5987
  1. ;;21,"33358-0120-60 ")
  1. ;;5988
  1. ;;21,"33358-0121-20 ")
  1. ;;6163
  1. ;;21,"33358-0121-30 ")
  1. ;;6164
  1. ;;21,"33358-0132-30 ")
  1. ;;3186
  1. ;;21,"33358-0133-28 ")
  1. ;;3275
  1. ;;21,"33358-0202-00 ")
  1. ;;4877
  1. ;;21,"33358-0202-10 ")
  1. ;;4878
  1. ;;21,"33358-0202-30 ")
  1. ;;4879
  1. ;;21,"33358-0202-60 ")
  1. ;;4880
  1. ;;21,"33358-0272-06 ")
  1. ;;5053
  1. ;;21,"33358-0284-20 ")
  1. ;;3630
  1. ;;21,"33358-0284-30 ")
  1. ;;3631
  1. ;;21,"33358-0284-40 ")
  1. ;;3632
  1. ;;21,"33358-0284-60 ")
  1. ;;3633
  1. ;;21,"33358-0285-20 ")
  1. ;;3785
  1. ;;21,"33358-0285-30 ")
  1. ;;3786
  1. ;;21,"33358-0285-40 ")
  1. ;;3787
  1. ;;21,"33358-0285-60 ")
  1. ;;3788
  1. ;;21,"33358-0329-06 ")
  1. ;;5691
  1. ;;21,"33358-0329-14 ")
  1. ;;5692
  1. ;;21,"33358-0329-20 ")
  1. ;;5693
  1. ;;21,"33358-0329-30 ")
  1. ;;5694
  1. ;;21,"33358-0334-20 ")
  1. ;;6613
  1. ;;21,"33358-0334-40 ")
  1. ;;6614
  1. ;;21,"33358-0334-60 ")
  1. ;;6615
  1. ;;21,"33358-0335-40 ")
  1. ;;6694
  1. ;;21,"33358-0335-56 ")
  1. ;;6695
  1. ;;21,"33358-0367-01 ")
  1. ;;2546
  1. ;;21,"33358-0367-03 ")
  1. ;;2547
  1. ;;21,"33358-0368-04 ")
  1. ;;2660
  1. ;;21,"33358-0368-30 ")
  1. ;;2661
  1. ;;21,"33358-0368-50 ")
  1. ;;2662
  1. ;;21,"35356-0017-03 ")
  1. ;;2791
  1. ;;21,"35356-0025-14 ")
  1. ;;2894
  1. ;;21,"35356-0037-40 ")
  1. ;;903
  1. ;;21,"35356-0038-20 ")
  1. ;;7012
  1. ;;21,"35356-0044-15 ")
  1. ;;2557
  1. ;;21,"35356-0119-60 ")
  1. ;;6953
  1. ;;21,"35356-0128-15 ")
  1. ;;2558
  1. ;;21,"35356-0666-06 ")
  1. ;;5695
  1. ;;21,"35356-0666-10 ")
  1. ;;5696
  1. ;;21,"35356-0666-14 ")
  1. ;;5697
  1. ;;21,"35356-0666-20 ")
  1. ;;5698
  1. ;;21,"35356-0666-28 ")
  1. ;;5699
  1. ;;21,"35356-0666-30 ")
  1. ;;5700
  1. ;;21,"35356-0666-60 ")
  1. ;;5701
  1. ;;21,"35356-0666-90 ")
  1. ;;5702
  1. ;;21,"35356-0732-10 ")
  1. ;;4426
  1. ;;21,"35356-0732-14 ")
  1. ;;4427
  1. ;;21,"35356-0732-20 ")
  1. ;;4428
  1. ;;21,"35356-0732-30 ")
  1. ;;4429
  1. ;;21,"36000-0008-24 ")
  1. ;;4081
  1. ;;21,"36000-0009-24 ")
  1. ;;4094
  1. ;;21,"36000-0010-01 ")
  1. ;;4066
  1. ;;21,"36000-0011-01 ")
  1. ;;4067
  1. ;;21,"36000-0045-01 ")
  1. ;;4103
  1. ;;21,"36000-0046-24 ")
  1. ;;4117
  1. ;;21,"36000-0047-24 ")
  1. ;;4129
  1. ;;21,"36000-0048-24 ")
  1. ;;4140
  1. ;;21,"36000-0070-10 ")
  1. ;;62
  1. ;;21,"36000-0071-10 ")
  1. ;;75
  1. ;;21,"36000-0072-10 ")
  1. ;;14
  1. ;;21,"36000-0073-10 ")
  1. ;;51
  1. ;;21,"42043-0140-01 ")
  1. ;;1619
  1. ;;21,"42043-0140-05 ")
  1. ;;1620
  1. ;;21,"42043-0141-01 ")
  1. ;;1895
  1. ;;21,"42043-0141-05 ")
  1. ;;1896
  1. ;;21,"42043-0142-38 ")
  1. ;;1559
  1. ;;21,"42043-0142-58 ")
  1. ;;1560
  1. ;;21,"42043-0143-38 ")
  1. ;;1783
  1. ;;21,"42043-0143-58 ")
  1. ;;1784
  1. ;;21,"42043-0251-38 ")
  1. ;;6954
  1. ;;21,"42043-0252-67 ")
  1. ;;6981
  1. ;;21,"42291-0120-50 ")
  1. ;;208
  1. ;;21,"42291-0121-50 ")
  1. ;;543
  1. ;;21,"42291-0208-50 ")
  1. ;;1621
  1. ;;21,"42291-0209-50 ")
  1. ;;1897
  1. ;;21,"42291-0219-01 ")
  1. ;;4203
  1. ;;21,"42291-0248-30 ")
  1. ;;6165
  1. ;;21,"42291-0248-31 ")
  1. ;;6166
  1. ;;21,"42291-0589-90 ")
  1. ;;6533
  1. ;;21,"42291-0591-60 ")
  1. ;;6476
  1. ;;21,"42291-0620-05 ")
  1. ;;6435
  1. ;;21,"42291-0620-50 ")
  1. ;;6436
  1. ;;21,"42291-0845-90 ")
  1. ;;2138
  1. ;;21,"42549-0504-14 ")
  1. ;;1450
  1. ;;21,"42549-0531-20 ")
  1. ;;1085
  1. ;;21,"42549-0532-28 ")
  1. ;;2260
  1. ;;21,"42549-0532-60 ")
  1. ;;2261
  1. ;;21,"42549-0565-04 ")
  1. ;;1898
  1. ;;21,"42549-0565-10 ")
  1. ;;1899
  1. ;;21,"42549-0565-28 ")
  1. ;;1900
  1. ;;21,"42549-0565-30 ")
  1. ;;1901
  1. ;;21,"42549-0565-40 ")
  1. ;;1902
  1. ;;21,"42549-0570-20 ")
  1. ;;1235
  1. ;;21,"42783-0610-30 ")
  1. ;;5905
  1. ;;21,"42783-0610-60 ")
  1. ;;5906
  1. ;;21,"43063-0002-10 ")
  1. ;;6879
  1. ;;21,"43063-0015-04 ")
  1. ;;209
  1. ;;21,"43063-0015-06 ")
  1. ;;210
  1. ;;21,"43063-0015-15 ")
  1. ;;211
  1. ;;21,"43063-0015-21 ")
  1. ;;212
  1. ;;21,"43063-0015-24 ")
  1. ;;213
  1. ;;21,"43063-0015-30 ")
  1. ;;214
  1. ;;21,"43063-0015-40 ")
  1. ;;215
  1. ;;21,"43063-0015-60 ")
  1. ;;216
  1. ;;21,"43063-0016-04 ")
  1. ;;1622
  1. ;;21,"43063-0016-06 ")
  1. ;;1623
  1. ;;21,"43063-0016-09 ")
  1. ;;1624
  1. ;;21,"43063-0016-10 ")
  1. ;;1625
  1. ;;21,"43063-0016-15 ")
  1. ;;1626
  1. ;;21,"43063-0016-20 ")
  1. ;;1627
  1. ;;21,"43063-0016-24 ")
  1. ;;1628
  1. ;;21,"43063-0016-28 ")
  1. ;;1629
  1. ;;21,"43063-0016-30 ")
  1. ;;1630
  1. ;;21,"43063-0016-40 ")
  1. ;;1631
  1. ;;21,"43063-0017-06 ")
  1. ;;544
  1. ;;21,"43063-0017-09 ")
  1. ;;545
  1. ;;21,"43063-0017-14 ")
  1. ;;546
  1. ;;21,"43063-0017-15 ")
  1. ;;547
  1. ;;21,"43063-0017-21 ")
  1. ;;548
  1. ;;21,"43063-0017-24 ")
  1. ;;549
  1. ;;21,"43063-0017-28 ")
  1. ;;550
  1. ;;21,"43063-0017-30 ")
  1. ;;551
  1. ;;21,"43063-0017-40 ")
  1. ;;552
  1. ;;21,"43063-0017-42 ")
  1. ;;553
  1. ;;21,"43063-0017-50 ")
  1. ;;554
  1. ;;21,"43063-0017-56 ")
  1. ;;555
  1. ;;21,"43063-0017-60 ")
  1. ;;556
  1. ;;21,"43063-0017-63 ")
  1. ;;557
  1. ;;21,"43063-0019-06 ")
  1. ;;5989
  1. ;;21,"43063-0024-02 ")
  1. ;;5703
  1. ;;21,"43063-0024-04 ")
  1. ;;5704
  1. ;;21,"43063-0024-06 ")
  1. ;;5705
  1. ;;21,"43063-0047-04 ")
  1. ;;1903
  1. ;;21,"43063-0047-06 ")
  1. ;;1904
  1. ;;21,"43063-0047-08 ")
  1. ;;1905
  1. ;;21,"43063-0047-09 ")
  1. ;;1906
  1. ;;21,"43063-0047-10 ")
  1. ;;1907
  1. ;;21,"43063-0047-14 ")
  1. ;;1908
  1. ;;21,"43063-0047-20 ")
  1. ;;1909
  1. ;;21,"43063-0047-21 ")
  1. ;;1910
  1. ;;21,"43063-0047-24 ")
  1. ;;1911
  1. ;;21,"43063-0047-28 ")
  1. ;;1912
  1. ;;21,"43063-0047-30 ")
  1. ;;1913
  1. ;;21,"43063-0047-40 ")
  1. ;;1914
  1. ;;21,"43063-0047-56 ")
  1. ;;1915
  1. ;;21,"43063-0053-04 ")
  1. ;;4430
  1. ;;21,"43063-0053-06 ")
  1. ;;4431
  1. ;;21,"43063-0054-06 ")
  1. ;;3634
  1. ;;21,"43063-0054-30 ")
  1. ;;3635
  1. ;;21,"43063-0054-40 ")
  1. ;;3636
  1. ;;21,"43063-0056-06 ")
  1. ;;2262
  1. ;;21,"43063-0077-03 ")
  1. ;;1236
  1. ;;21,"43063-0077-04 ")
  1. ;;1237
  1. ;;21,"43063-0077-06 ")
  1. ;;1238
  1. ;;21,"43063-0090-02 ")
  1. ;;2663
  1. ;;21,"43063-0090-04 ")
  1. ;;2664
  1. ;;21,"43063-0096-04 ")
  1. ;;3789
  1. ;;21,"43063-0096-06 ")
  1. ;;3790
  1. ;;21,"43063-0096-15 ")
  1. ;;3791
  1. ;;21,"43063-0096-20 ")
  1. ;;3792
  1. ;;21,"43063-0096-28 ")
  1. ;;3793
  1. ;;21,"43063-0096-30 ")
  1. ;;3794
  1. ;;21,"43063-0096-40 ")
  1. ;;3795
  1. ;;21,"43063-0110-06 ")
  1. ;;3429
  1. ;;21,"43063-0113-03 ")
  1. ;;4881
  1. ;;21,"43063-0180-06 ")
  1. ;;3918
  1. ;;21,"43063-0194-30 ")
  1. ;;5207
  1. ;;21,"43063-0269-04 ")
  1. ;;5372
  1. ;;21,"43063-0307-20 ")
  1. ;;5461
  1. ;;21,"43063-0323-02 ")
  1. ;;4882
  1. ;;21,"43063-0323-03 ")
  1. ;;4883
  1. ;;21,"43063-0323-07 ")
  1. ;;4884
  1. ;;21,"43063-0323-10 ")
  1. ;;4885
  1. ;;21,"43063-0324-05 ")
  1. ;;4971
  1. ;;21,"43063-0324-07 ")
  1. ;;4972
  1. ;;21,"43063-0324-10 ")
  1. ;;4973
  1. ;;21,"43063-0324-20 ")
  1. ;;4974
  1. ;;21,"43063-0341-04 ")
  1. ;;325
  1. ;;21,"43063-0342-03 ")
  1. ;;1008
  1. ;;21,"43063-0362-20 ")
  1. ;;1916
  1. ;;21,"43063-0362-21 ")
  1. ;;1917
  1. ;;21,"43063-0362-28 ")
  1. ;;1918
  1. ;;21,"43063-0362-30 ")
  1. ;;1919
  1. ;;21,"43063-0362-40 ")
  1. ;;1920
  1. ;;21,"43063-0377-02 ")
  1. ;;1239
  1. ;;21,"43063-0378-03 ")
  1. ;;4798
  1. ;;21,"43063-0394-04 ")
  1. ;;2263
  1. ;;21,"43063-0394-06 ")
  1. ;;2264
  1. ;;21,"43063-0394-15 ")
  1. ;;2265
  1. ;;21,"43063-0394-17 ")
  1. ;;2266
  1. ;;21,"43063-0394-20 ")
  1. ;;2267
  1. ;;21,"43063-0394-28 ")
  1. ;;2268
  1. ;;21,"43063-0394-30 ")
  1. ;;2269
  1. ;;21,"43063-0394-40 ")
  1. ;;2270
  1. ;;21,"43063-0394-42 ")
  1. ;;2271
  1. ;;21,"43063-0394-56 ")
  1. ;;2272
  1. ;;21,"43063-0394-60 ")
  1. ;;2273
  1. ;;21,"43063-0394-80 ")
  1. ;;2274
  1. ;;21,"43063-0410-06 ")
  1. ;;4204
  1. ;;21,"43063-0410-12 ")
  1. ;;4205
  1. ;;21,"43063-0410-14 ")
  1. ;;4206
  1. ;;21,"43063-0427-03 ")
  1. ;;4432
  1. ;;21,"43063-0427-04 ")
  1. ;;4433
  1. ;;21,"43063-0427-06 ")
  1. ;;4434
  1. ;;21,"43063-0427-10 ")
  1. ;;4435
  1. ;;21,"43063-0427-14 ")
  1. ;;4436
  1. ;;21,"43063-0427-20 ")
  1. ;;4437
  1. ;;21,"43063-0427-28 ")
  1. ;;4438
  1. ;;21,"43063-0427-30 ")
  1. ;;4439
  1. ;;21,"43063-0427-79 ")
  1. ;;4440
  1. ;;21,"43063-0434-21 ")
  1. ;;558
  1. ;;21,"43063-0434-30 ")
  1. ;;559
  1. ;;21,"43063-0434-40 ")
  1. ;;560
  1. ;;21,"43063-0457-05 ")
  1. ;;4886
  1. ;;21,"43063-0457-07 ")
  1. ;;4887
  1. ;;21,"43063-0457-10 ")
  1. ;;4888
  1. ;;21,"43063-0459-07 ")
  1. ;;4975
  1. ;;21,"43063-0497-04 ")
  1. ;;1632
  1. ;;21,"43063-0497-06 ")
  1. ;;1633
  1. ;;21,"43063-0497-08 ")
  1. ;;1634
  1. ;;21,"43063-0497-09 ")
  1. ;;1635
  1. ;;21,"43063-0497-10 ")
  1. ;;1636
  1. ;;21,"43063-0497-15 ")
  1. ;;1637
  1. ;;21,"43063-0497-20 ")
  1. ;;1638
  1. ;;21,"43063-0497-28 ")
  1. ;;1639
  1. ;;21,"43063-0497-30 ")
  1. ;;1640
  1. ;;21,"43063-0497-40 ")
  1. ;;1641
  1. ;;21,"43063-0506-02 ")
  1. ;;2792
  1. ;;21,"43063-0506-03 ")
  1. ;;2793
  1. ;;21,"43063-0506-07 ")
  1. ;;2794
  1. ;;21,"43063-0506-79 ")
  1. ;;2795
  1. ;;21,"43063-0508-04 ")
  1. ;;5373
  1. ;;21,"43063-0520-14 ")
  1. ;;3044
  1. ;;21,"43063-0524-04 ")
  1. ;;2665
  1. ;;21,"43063-0529-06 ")
  1. ;;6356
  1. ;;21,"43063-0529-14 ")
  1. ;;6357
  1. ;;21,"43063-0529-20 ")
  1. ;;6358
  1. ;;21,"43063-0529-28 ")
  1. ;;6359
  1. ;;21,"43063-0530-14 ")
  1. ;;2963
  1. ;;21,"43063-0530-20 ")
  1. ;;2964
  1. ;;21,"43063-0536-04 ")
  1. ;;1921
  1. ;;21,"43063-0536-06 ")
  1. ;;1922
  1. ;;21,"43063-0536-08 ")
  1. ;;1923
  1. ;;21,"43063-0536-10 ")
  1. ;;1924
  1. ;;21,"43063-0536-14 ")
  1. ;;1925
  1. ;;21,"43063-0536-20 ")
  1. ;;1926
  1. ;;21,"43063-0536-21 ")
  1. ;;1927
  1. ;;21,"43063-0536-28 ")
  1. ;;1928
  1. ;;21,"43063-0536-30 ")
  1. ;;1929
  1. ;;21,"43063-0536-40 ")
  1. ;;1930
  1. ;;21,"43063-0536-56 ")
  1. ;;1931
  1. ;;21,"43063-0540-02 ")
  1. ;;2796
  1. ;;21,"43063-0540-03 ")
  1. ;;2797
  1. ;;21,"43063-0542-06 ")
  1. ;;561
  1. ;;21,"43063-0542-08 ")
  1. ;;562
  1. ;;21,"43063-0542-09 ")
  1. ;;563
  1. ;;21,"43063-0542-14 ")
  1. ;;564
  1. ;;21,"43063-0542-15 ")
  1. ;;565
  1. ;;21,"43063-0542-21 ")
  1. ;;566
  1. ;;21,"43063-0542-28 ")
  1. ;;567
  1. ;;21,"43063-0542-30 ")
  1. ;;568
  1. ;;21,"43063-0542-40 ")
  1. ;;569
  1. ;;21,"43063-0542-60 ")
  1. ;;570
  1. ;;21,"43063-0547-10 ")
  1. ;;4441
  1. ;;21,"43063-0547-20 ")
  1. ;;4442
  1. ;;21,"43063-0547-30 ")
  1. ;;4443
  1. ;;21,"43063-0553-10 ")
  1. ;;1451
  1. ;;21,"43063-0553-14 ")
  1. ;;1452
  1. ;;21,"43063-0553-20 ")
  1. ;;1453
  1. ;;21,"43063-0557-28 ")
  1. ;;3796
  1. ;;21,"43063-0557-40 ")
  1. ;;3797
  1. ;;21,"43063-0563-15 ")
  1. ;;571
  1. ;;21,"43063-0563-21 ")
  1. ;;572
  1. ;;21,"43063-0563-28 ")
  1. ;;573
  1. ;;21,"43063-0563-30 ")
  1. ;;574
  1. ;;21,"43063-0563-40 ")
  1. ;;575
  1. ;;21,"43063-0568-02 ")
  1. ;;2798
  1. ;;21,"43063-0568-03 ")
  1. ;;2799
  1. ;;21,"43063-0568-79 ")
  1. ;;2800
  1. ;;21,"43063-0572-04 ")
  1. ;;2666
  1. ;;21,"43386-0330-01 ")
  1. ;;2139
  1. ;;21,"43538-0600-30 ")
  1. ;;5990
  1. ;;21,"43538-0601-30 ")
  1. ;;6762
  1. ;;21,"43538-0610-60 ")
  1. ;;5991
  1. ;;21,"43538-0611-60 ")
  1. ;;6763
  1. ;;21,"43598-0003-51 ")
  1. ;;1191
  1. ;;21,"43598-0003-54 ")
  1. ;;1192
  1. ;;21,"43598-0003-69 ")
  1. ;;1193
  1. ;;21,"43598-0004-51 ")
  1. ;;984
  1. ;;21,"43598-0004-52 ")
  1. ;;985
  1. ;;21,"43598-0004-53 ")
  1. ;;986
  1. ;;21,"43598-0006-14 ")
  1. ;;1086
  1. ;;21,"43598-0006-78 ")
  1. ;;1087
  1. ;;21,"43598-0008-50 ")
  1. ;;1029
  1. ;;21,"43598-0008-51 ")
  1. ;;1030
  1. ;;21,"43598-0008-52 ")
  1. ;;1031
  1. ;;21,"43598-0012-51 ")
  1. ;;920
  1. ;;21,"43598-0012-52 ")
  1. ;;921
  1. ;;21,"43598-0012-53 ")
  1. ;;922
  1. ;;21,"43598-0013-50 ")
  1. ;;948
  1. ;;21,"43598-0013-51 ")
  1. ;;949
  1. ;;21,"43598-0013-52 ")
  1. ;;950
  1. ;;21,"43598-0020-28 ")
  1. ;;904
  1. ;;21,"43598-0020-40 ")
  1. ;;905
  1. ;;21,"43598-0021-14 ")
  1. ;;1240
  1. ;;21,"43598-0021-78 ")
  1. ;;1241
  1. ;;21,"43598-0203-51 ")
  1. ;;1194
  1. ;;21,"43598-0203-54 ")
  1. ;;1195
  1. ;;21,"43598-0203-69 ")
  1. ;;1196