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

BGP62Z6.m

Go to the documentation of this file.
  1. BGP62Z6 ;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,"31722-0569-24 ")
  1. ;;2281
  1. ;;21,"33261-0090-10 ")
  1. ;;2840
  1. ;;21,"33261-0090-14 ")
  1. ;;2841
  1. ;;21,"33261-0090-20 ")
  1. ;;2842
  1. ;;21,"33261-0090-28 ")
  1. ;;2843
  1. ;;21,"33261-0090-30 ")
  1. ;;2844
  1. ;;21,"33261-0090-60 ")
  1. ;;2845
  1. ;;21,"33261-0090-90 ")
  1. ;;2846
  1. ;;21,"33261-0091-10 ")
  1. ;;2977
  1. ;;21,"33261-0091-14 ")
  1. ;;2978
  1. ;;21,"33261-0091-21 ")
  1. ;;2979
  1. ;;21,"33261-0091-28 ")
  1. ;;2980
  1. ;;21,"33261-0091-30 ")
  1. ;;2981
  1. ;;21,"33261-0091-40 ")
  1. ;;2982
  1. ;;21,"33261-0091-60 ")
  1. ;;2983
  1. ;;21,"33261-0091-90 ")
  1. ;;2984
  1. ;;21,"33342-0037-11 ")
  1. ;;2135
  1. ;;21,"33342-0038-11 ")
  1. ;;2212
  1. ;;21,"33358-0023-30 ")
  1. ;;4248
  1. ;;21,"33358-0024-30 ")
  1. ;;4399
  1. ;;21,"33358-0053-60 ")
  1. ;;112
  1. ;;21,"33358-0083-60 ")
  1. ;;1830
  1. ;;21,"33358-0098-30 ")
  1. ;;1040
  1. ;;21,"33358-0098-60 ")
  1. ;;1041
  1. ;;21,"33358-0099-30 ")
  1. ;;1107
  1. ;;21,"33358-0099-60 ")
  1. ;;1108
  1. ;;21,"33358-0117-30 ")
  1. ;;4701
  1. ;;21,"33358-0117-60 ")
  1. ;;4702
  1. ;;21,"33358-0118-30 ")
  1. ;;4760
  1. ;;21,"33358-0118-60 ")
  1. ;;4761
  1. ;;21,"33358-0119-30 ")
  1. ;;4831
  1. ;;21,"33358-0119-60 ")
  1. ;;4832
  1. ;;21,"33358-0123-30 ")
  1. ;;1202
  1. ;;21,"33358-0123-60 ")
  1. ;;1203
  1. ;;21,"33358-0123-90 ")
  1. ;;1204
  1. ;;21,"33358-0124-30 ")
  1. ;;1387
  1. ;;21,"33358-0124-60 ")
  1. ;;1388
  1. ;;21,"33358-0124-90 ")
  1. ;;1389
  1. ;;21,"33358-0125-30 ")
  1. ;;1589
  1. ;;21,"33358-0125-60 ")
  1. ;;1590
  1. ;;21,"33358-0125-90 ")
  1. ;;1591
  1. ;;21,"33358-0144-30 ")
  1. ;;2325
  1. ;;21,"33358-0144-60 ")
  1. ;;2326
  1. ;;21,"33358-0144-90 ")
  1. ;;2327
  1. ;;21,"33358-0145-30 ")
  1. ;;2491
  1. ;;21,"33358-0145-60 ")
  1. ;;2492
  1. ;;21,"33358-0208-30 ")
  1. ;;2265
  1. ;;21,"33358-0209-30 ")
  1. ;;2213
  1. ;;21,"33358-0270-30 ")
  1. ;;5057
  1. ;;21,"33358-0270-60 ")
  1. ;;5058
  1. ;;21,"33358-0270-90 ")
  1. ;;5059
  1. ;;21,"33358-0271-01 ")
  1. ;;5136
  1. ;;21,"33358-0271-30 ")
  1. ;;5137
  1. ;;21,"33358-0271-60 ")
  1. ;;5138
  1. ;;21,"33358-0283-30 ")
  1. ;;2985
  1. ;;21,"33358-0283-60 ")
  1. ;;2986
  1. ;;21,"33358-0283-90 ")
  1. ;;2987
  1. ;;21,"33358-0321-30 ")
  1. ;;3503
  1. ;;21,"33358-0322-30 ")
  1. ;;3612
  1. ;;21,"33358-0323-30 ")
  1. ;;3350
  1. ;;21,"33358-0344-20 ")
  1. ;;805
  1. ;;21,"33358-0344-30 ")
  1. ;;806
  1. ;;21,"33358-0344-60 ")
  1. ;;807
  1. ;;21,"33358-0345-30 ")
  1. ;;564
  1. ;;21,"33358-0345-90 ")
  1. ;;565
  1. ;;21,"33358-0346-30 ")
  1. ;;680
  1. ;;21,"33358-0346-60 ")
  1. ;;681
  1. ;;21,"33358-0346-90 ")
  1. ;;682
  1. ;;21,"35356-0028-30 ")
  1. ;;1704
  1. ;;21,"35356-0029-30 ")
  1. ;;2791
  1. ;;21,"35356-0030-30 ")
  1. ;;2802
  1. ;;21,"35356-0031-30 ")
  1. ;;2767
  1. ;;21,"35356-0032-30 ")
  1. ;;3937
  1. ;;21,"35356-0033-30 ")
  1. ;;3504
  1. ;;21,"35356-0045-30 ")
  1. ;;1705
  1. ;;21,"35356-0046-30 ")
  1. ;;2001
  1. ;;21,"35356-0087-30 ")
  1. ;;355
  1. ;;21,"35356-0087-60 ")
  1. ;;356
  1. ;;21,"35356-0087-90 ")
  1. ;;357
  1. ;;21,"35356-0369-60 ")
  1. ;;5225
  1. ;;21,"35356-0491-30 ")
  1. ;;981
  1. ;;21,"35356-0668-30 ")
  1. ;;3613
  1. ;;21,"35356-0669-30 ")
  1. ;;3505
  1. ;;21,"35356-0680-30 ")
  1. ;;5139
  1. ;;21,"35356-0680-60 ")
  1. ;;5140
  1. ;;21,"35356-0680-90 ")
  1. ;;5141
  1. ;;21,"35356-0688-30 ")
  1. ;;3852
  1. ;;21,"35356-0712-00 ")
  1. ;;4249
  1. ;;21,"35356-0712-15 ")
  1. ;;4250
  1. ;;21,"35356-0712-30 ")
  1. ;;4251
  1. ;;21,"35356-0712-60 ")
  1. ;;4252
  1. ;;21,"35356-0712-90 ")
  1. ;;4253
  1. ;;21,"35356-0718-00 ")
  1. ;;2002
  1. ;;21,"35356-0718-30 ")
  1. ;;2003
  1. ;;21,"35356-0718-60 ")
  1. ;;2004
  1. ;;21,"35356-0718-90 ")
  1. ;;2005
  1. ;;21,"35356-0728-30 ")
  1. ;;2493
  1. ;;21,"35356-0728-60 ")
  1. ;;2494
  1. ;;21,"35356-0728-90 ")
  1. ;;2495
  1. ;;21,"35356-0729-30 ")
  1. ;;2706
  1. ;;21,"35356-0742-30 ")
  1. ;;4400
  1. ;;21,"35356-0742-60 ")
  1. ;;4401
  1. ;;21,"35356-0742-90 ")
  1. ;;4402
  1. ;;21,"35356-0743-30 ")
  1. ;;4128
  1. ;;21,"35356-0743-60 ")
  1. ;;4129
  1. ;;21,"35356-0743-90 ")
  1. ;;4130
  1. ;;21,"36818-0137-01 ")
  1. ;;2266
  1. ;;21,"41616-0758-81 ")
  1. ;;1262
  1. ;;21,"41616-0758-83 ")
  1. ;;1263
  1. ;;21,"41616-0759-81 ")
  1. ;;1658
  1. ;;21,"41616-0759-83 ")
  1. ;;1659
  1. ;;21,"41616-0760-81 ")
  1. ;;1441
  1. ;;21,"41616-0760-83 ")
  1. ;;1442
  1. ;;21,"42291-0627-60 ")
  1. ;;519
  1. ;;21,"42291-0833-10 ")
  1. ;;808
  1. ;;21,"42291-0834-10 ")
  1. ;;566
  1. ;;21,"42291-0835-50 ")
  1. ;;683
  1. ;;21,"42291-0836-01 ")
  1. ;;750
  1. ;;21,"42291-0892-90 ")
  1. ;;1281
  1. ;;21,"42291-0893-90 ")
  1. ;;1390
  1. ;;21,"42291-0894-90 ")
  1. ;;1458
  1. ;;21,"42291-0895-50 ")
  1. ;;1592
  1. ;;21,"42291-0895-90 ")
  1. ;;1593
  1. ;;21,"42291-0896-50 ")
  1. ;;1167
  1. ;;21,"42291-0896-90 ")
  1. ;;1168
  1. ;;21,"42549-0529-30 ")
  1. ;;4254
  1. ;;21,"42549-0529-60 ")
  1. ;;4255
  1. ;;21,"42549-0529-90 ")
  1. ;;4256
  1. ;;21,"42549-0546-12 ")
  1. ;;809
  1. ;;21,"42549-0546-30 ")
  1. ;;810
  1. ;;21,"42549-0546-60 ")
  1. ;;811
  1. ;;21,"42549-0546-90 ")
  1. ;;812
  1. ;;21,"42549-0599-30 ")
  1. ;;2496
  1. ;;21,"42549-0605-30 ")
  1. ;;4502
  1. ;;21,"42549-0605-60 ")
  1. ;;4503
  1. ;;21,"42549-0605-90 ")
  1. ;;4504
  1. ;;21,"42549-0613-30 ")
  1. ;;4021
  1. ;;21,"42549-0613-60 ")
  1. ;;4022
  1. ;;21,"42549-0613-90 ")
  1. ;;4023
  1. ;;21,"42769-1221-00 ")
  1. ;;2768
  1. ;;21,"42769-1222-00 ")
  1. ;;2792
  1. ;;21,"42769-1225-00 ")
  1. ;;2803
  1. ;;21,"42806-0019-01 ")
  1. ;;1706
  1. ;;21,"42806-0019-10 ")
  1. ;;1707
  1. ;;21,"42806-0020-01 ")
  1. ;;1831
  1. ;;21,"42806-0020-10 ")
  1. ;;1832
  1. ;;21,"42806-0021-01 ")
  1. ;;2006
  1. ;;21,"42806-0021-10 ")
  1. ;;2007
  1. ;;21,"42806-0096-01 ")
  1. ;;5288
  1. ;;21,"42806-0097-01 ")
  1. ;;5281
  1. ;;21,"43063-0009-01 ")
  1. ;;2497
  1. ;;21,"43063-0033-01 ")
  1. ;;3614
  1. ;;21,"43063-0063-14 ")
  1. ;;1833
  1. ;;21,"43063-0063-30 ")
  1. ;;1834
  1. ;;21,"43063-0063-60 ")
  1. ;;1835
  1. ;;21,"43063-0063-90 ")
  1. ;;1836
  1. ;;21,"43063-0170-90 ")
  1. ;;2988
  1. ;;21,"43063-0183-60 ")
  1. ;;326
  1. ;;21,"43063-0193-60 ")
  1. ;;4131
  1. ;;21,"43063-0197-30 ")
  1. ;;2707
  1. ;;21,"43063-0197-90 ")
  1. ;;2708
  1. ;;21,"43063-0216-01 ")
  1. ;;2328
  1. ;;21,"43063-0217-01 ")
  1. ;;4762
  1. ;;21,"43063-0221-01 ")
  1. ;;2008
  1. ;;21,"43063-0221-30 ")
  1. ;;2009
  1. ;;21,"43063-0221-90 ")
  1. ;;2010
  1. ;;21,"43063-0243-30 ")
  1. ;;191
  1. ;;21,"43063-0249-30 ")
  1. ;;1708
  1. ;;21,"43063-0255-30 ")
  1. ;;3853
  1. ;;21,"43063-0257-30 ")
  1. ;;4551
  1. ;;21,"43063-0262-30 ")
  1. ;;982
  1. ;;21,"43063-0284-30 ")
  1. ;;412
  1. ;;21,"43063-0284-98 ")
  1. ;;413
  1. ;;21,"43063-0292-30 ")
  1. ;;1391
  1. ;;21,"43063-0336-30 ")
  1. ;;4505
  1. ;;21,"43063-0336-60 ")
  1. ;;4506
  1. ;;21,"43063-0374-01 ")
  1. ;;2136
  1. ;;21,"43063-0374-30 ")
  1. ;;2137
  1. ;;21,"43063-0374-90 ")
  1. ;;2138
  1. ;;21,"43063-0385-01 ")
  1. ;;2011
  1. ;;21,"43063-0385-30 ")
  1. ;;2012
  1. ;;21,"43063-0385-90 ")
  1. ;;2013
  1. ;;21,"43063-0387-90 ")
  1. ;;284
  1. ;;21,"43063-0388-90 ")
  1. ;;358
  1. ;;21,"43063-0389-30 ")
  1. ;;2139
  1. ;;21,"43063-0390-30 ")
  1. ;;2214
  1. ;;21,"43063-0411-60 ")
  1. ;;3615
  1. ;;21,"43063-0411-90 ")
  1. ;;3616
  1. ;;21,"43063-0413-90 ")
  1. ;;3351
  1. ;;21,"43063-0481-05 ")
  1. ;;1709
  1. ;;21,"43063-0503-30 ")
  1. ;;192
  1. ;;21,"43063-0521-30 ")
  1. ;;2215
  1. ;;21,"43063-0521-90 ")
  1. ;;2216
  1. ;;21,"43063-0570-30 ")
  1. ;;2329
  1. ;;21,"43063-0570-90 ")
  1. ;;2330
  1. ;;21,"43353-0362-15 ")
  1. ;;3352
  1. ;;21,"43353-0364-15 ")
  1. ;;3353
  1. ;;21,"43353-0370-53 ")
  1. ;;1392
  1. ;;21,"43353-0378-45 ")
  1. ;;3854
  1. ;;21,"43353-0382-30 ")
  1. ;;1594
  1. ;;21,"43353-0415-30 ")
  1. ;;3354
  1. ;;21,"43353-0419-15 ")
  1. ;;3355
  1. ;;21,"43353-0421-30 ")
  1. ;;1595
  1. ;;21,"43353-0429-15 ")
  1. ;;3228
  1. ;;21,"43353-0435-30 ")
  1. ;;567
  1. ;;21,"43353-0441-53 ")
  1. ;;1393
  1. ;;21,"43353-0447-15 ")
  1. ;;3356
  1. ;;21,"43353-0536-45 ")
  1. ;;3855
  1. ;;21,"43386-0360-21 ")
  1. ;;462
  1. ;;21,"43547-0347-03 ")
  1. ;;2847
  1. ;;21,"43547-0347-09 ")
  1. ;;2848
  1. ;;21,"43547-0347-11 ")
  1. ;;2849
  1. ;;21,"43547-0348-09 ")
  1. ;;2989
  1. ;;21,"43547-0348-11 ")
  1. ;;2990
  1. ;;21,"43547-0349-09 ")
  1. ;;3149
  1. ;;21,"43547-0350-03 ")
  1. ;;3229
  1. ;;21,"43547-0350-09 ")
  1. ;;3230
  1. ;;21,"43595-0080-03 ")
  1. ;;745
  1. ;;21,"43595-0081-03 ")
  1. ;;760
  1. ;;21,"44183-0880-31 ")
  1. ;;983
  1. ;;21,"44183-0880-90 ")
  1. ;;984
  1. ;;21,"44183-0890-31 ")
  1. ;;967
  1. ;;21,"44183-0890-90 ")
  1. ;;968
  1. ;;21,"45802-0306-65 ")
  1. ;;1710
  1. ;;21,"45802-0306-78 ")
  1. ;;1711
  1. ;;21,"45802-0596-65 ")
  1. ;;1837
  1. ;;21,"45802-0596-78 ")
  1. ;;1838
  1. ;;21,"45802-0616-65 ")
  1. ;;2014
  1. ;;21,"45802-0616-78 ")
  1. ;;2015
  1. ;;21,"45963-0141-30 ")
  1. ;;285
  1. ;;21,"45963-0141-90 ")
  1. ;;286
  1. ;;21,"45963-0142-05 ")
  1. ;;359
  1. ;;21,"45963-0142-30 ")
  1. ;;360
  1. ;;21,"45963-0142-90 ")
  1. ;;361
  1. ;;21,"45963-0293-30 ")
  1. ;;5295
  1. ;;21,"45963-0294-30 ")
  1. ;;5299
  1. ;;21,"45963-0295-30 ")
  1. ;;5293
  1. ;;21,"45963-0341-02 ")
  1. ;;4591
  1. ;;21,"45963-0342-02 ")
  1. ;;4625
  1. ;;21,"45963-0343-02 ")
  1. ;;4675
  1. ;;21,"45963-0344-02 ")
  1. ;;4688
  1. ;;21,"45963-0345-02 ")
  1. ;;4611
  1. ;;21,"45963-0346-50 ")
  1. ;;4616
  1. ;;21,"47335-0381-86 ")
  1. ;;1002
  1. ;;21,"47335-0381-88 ")
  1. ;;1003
  1. ;;21,"47335-0382-81 ")
  1. ;;1042
  1. ;;21,"47335-0382-83 ")
  1. ;;1043
  1. ;;21,"47335-0383-18 ")
  1. ;;1109
  1. ;;21,"47335-0383-83 ")
  1. ;;1110
  1. ;;21,"47335-0736-13 ")
  1. ;;113
  1. ;;21,"47335-0736-86 ")
  1. ;;114
  1. ;;21,"47335-0736-88 ")
  1. ;;115
  1. ;;21,"47335-0737-13 ")
  1. ;;193
  1. ;;21,"47335-0737-86 ")
  1. ;;194
  1. ;;21,"47335-0737-88 ")
  1. ;;195
  1. ;;21,"47335-0738-86 ")
  1. ;;327
  1. ;;21,"47335-0747-81 ")
  1. ;;985
  1. ;;21,"47335-0747-83 ")
  1. ;;986
  1. ;;21,"47335-0804-83 ")
  1. ;;969
  1. ;;21,"49502-0900-30 ")
  1. ;;469
  1. ;;21,"49502-0901-30 ")
  1. ;;470
  1. ;;21,"49502-0902-30 ")
  1. ;;468
  1. ;;21,"49727-0159-02 ")
  1. ;;4024
  1. ;;21,"49727-0159-05 ")
  1. ;;4025
  1. ;;21,"49884-0032-01 ")
  1. ;;466
  1. ;;21,"49884-0054-01 ")
  1. ;;4907
  1. ;;21,"49884-0054-10 ")
  1. ;;4908
  1. ;;21,"49884-0055-01 ")
  1. ;;4938
  1. ;;21,"49884-0055-10 ")
  1. ;;4939
  1. ;;21,"49884-0056-01 ")
  1. ;;4983
  1. ;;21,"49884-0056-10 ")
  1. ;;4984
  1. ;;21,"49884-0222-01 ")
  1. ;;4753
  1. ;;21,"49884-0222-03 ")
  1. ;;4754
  1. ;;21,"49884-0222-05 ")
  1. ;;4755
  1. ;;21,"49884-0250-11 ")
  1. ;;950
  1. ;;21,"49884-0251-11 ")
  1. ;;962
  1. ;;21,"49884-0252-11 ")
  1. ;;940
  1. ;;21,"49884-0253-11 ")
  1. ;;956
  1. ;;21,"49884-0277-11 ")
  1. ;;944
  1. ;;21,"49884-0374-09 ")
  1. ;;987
  1. ;;21,"49884-0374-11 ")
  1. ;;988
  1. ;;21,"49884-0375-09 ")
  1. ;;970
  1. ;;21,"49884-0375-11 ")
  1. ;;971
  1. ;;21,"49884-0699-37 ")
  1. ;;2678
  1. ;;21,"49884-0734-01 ")
  1. ;;2416
  1. ;;21,"49884-0734-10 ")
  1. ;;2417
  1. ;;21,"49884-0734-11 ")
  1. ;;2418
  1. ;;21,"49884-0735-01 ")
  1. ;;2659
  1. ;;21,"49884-0735-10 ")
  1. ;;2660
  1. ;;21,"49884-0735-11 ")
  1. ;;2661
  1. ;;21,"49884-0743-01 ")
  1. ;;2709
  1. ;;21,"49884-0743-05 ")
  1. ;;2710
  1. ;;21,"49884-0743-11 ")
  1. ;;2711
  1. ;;21,"49884-0872-01 ")
  1. ;;2712
  1. ;;21,"49884-0872-05 ")
  1. ;;2713
  1. ;;21,"49884-0872-11 ")
  1. ;;2714
  1. ;;21,"49884-0876-05 ")
  1. ;;2850
  1. ;;21,"49884-0877-01 ")
  1. ;;2991
  1. ;;21,"49884-0877-05 ")
  1. ;;2992
  1. ;;21,"49884-0878-05 ")
  1. ;;3150
  1. ;;21,"49884-0879-05 ")
  1. ;;3231
  1. ;;21,"49884-0916-02 ")
  1. ;;525
  1. ;;21,"49884-0916-05 ")
  1. ;;526
  1. ;;21,"49884-0917-02 ")
  1. ;;479
  1. ;;21,"49884-0917-05 ")
  1. ;;480
  1. ;;21,"49884-0918-02 ")
  1. ;;491
  1. ;;21,"49884-0918-05 ")
  1. ;;492
  1. ;;21,"49884-0919-02 ")
  1. ;;508
  1. ;;21,"49884-0919-05 ")
  1. ;;509
  1. ;;21,"49884-0920-02 ")
  1. ;;520
  1. ;;21,"49884-0920-05 ")
  1. ;;521
  1. ;;21,"49884-0961-01 ")
  1. ;;919
  1. ;;21,"49884-0962-01 ")
  1. ;;924
  1. ;;21,"49909-0005-30 ")
  1. ;;2753
  1. ;;21,"49909-0010-30 ")
  1. ;;395
  1. ;;21,"49999-0063-00 ")
  1. ;;4257
  1. ;;21,"49999-0063-15 ")
  1. ;;4258
  1. ;;21,"49999-0063-30 ")
  1. ;;4259
  1. ;;21,"49999-0063-50 ")
  1. ;;4260
  1. ;;21,"49999-0063-60 ")
  1. ;;4261
  1. ;;21,"49999-0063-90 ")
  1. ;;4262
  1. ;;21,"49999-0128-00 ")
  1. ;;2498
  1. ;;21,"49999-0128-14 ")
  1. ;;2499
  1. ;;21,"49999-0128-20 ")
  1. ;;2500
  1. ;;21,"49999-0128-30 ")
  1. ;;2501
  1. ;;21,"49999-0128-60 ")
  1. ;;2502
  1. ;;21,"49999-0128-90 ")
  1. ;;2503
  1. ;;21,"49999-0156-00 ")
  1. ;;568
  1. ;;21,"49999-0156-14 ")
  1. ;;569
  1. ;;21,"49999-0156-20 ")
  1. ;;570
  1. ;;21,"49999-0156-30 ")
  1. ;;571
  1. ;;21,"49999-0156-60 ")
  1. ;;572
  1. ;;21,"49999-0190-30 ")
  1. ;;4833
  1. ;;21,"49999-0205-00 ")
  1. ;;4026
  1. ;;21,"49999-0205-30 ")
  1. ;;4027