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