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

BGP63D6.m

Go to the documentation of this file.
  1. BGP63D6 ;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,"63874-0379-10 ")
  1. ;;1897
  1. ;;21,"63874-0379-30 ")
  1. ;;1898
  1. ;;21,"63874-0423-01 ")
  1. ;;775
  1. ;;21,"63874-0423-07 ")
  1. ;;776
  1. ;;21,"63874-0423-10 ")
  1. ;;777
  1. ;;21,"63874-0423-14 ")
  1. ;;778
  1. ;;21,"63874-0423-20 ")
  1. ;;779
  1. ;;21,"63874-0423-30 ")
  1. ;;780
  1. ;;21,"63874-0423-60 ")
  1. ;;781
  1. ;;21,"63874-0514-01 ")
  1. ;;1317
  1. ;;21,"63874-0514-10 ")
  1. ;;1318
  1. ;;21,"63874-0514-14 ")
  1. ;;1319
  1. ;;21,"63874-0514-15 ")
  1. ;;1320
  1. ;;21,"63874-0514-16 ")
  1. ;;1321
  1. ;;21,"63874-0514-20 ")
  1. ;;1322
  1. ;;21,"63874-0514-28 ")
  1. ;;1323
  1. ;;21,"63874-0514-30 ")
  1. ;;1324
  1. ;;21,"63874-0514-60 ")
  1. ;;1325
  1. ;;21,"63874-0514-90 ")
  1. ;;1326
  1. ;;21,"63874-0522-01 ")
  1. ;;1057
  1. ;;21,"63874-0522-15 ")
  1. ;;1058
  1. ;;21,"63874-0522-30 ")
  1. ;;1059
  1. ;;21,"63874-0522-60 ")
  1. ;;1060
  1. ;;21,"63874-0558-01 ")
  1. ;;1691
  1. ;;21,"63874-0558-10 ")
  1. ;;1692
  1. ;;21,"63874-0558-14 ")
  1. ;;1693
  1. ;;21,"63874-0558-16 ")
  1. ;;1694
  1. ;;21,"63874-0558-28 ")
  1. ;;1695
  1. ;;21,"63874-0558-30 ")
  1. ;;1696
  1. ;;21,"63874-0558-60 ")
  1. ;;1697
  1. ;;21,"63874-0558-90 ")
  1. ;;1698
  1. ;;21,"63874-0581-10 ")
  1. ;;1796
  1. ;;21,"63874-0581-30 ")
  1. ;;1797
  1. ;;21,"63874-0581-90 ")
  1. ;;1798
  1. ;;21,"63874-0655-01 ")
  1. ;;496
  1. ;;21,"63874-0655-10 ")
  1. ;;497
  1. ;;21,"63874-0655-20 ")
  1. ;;498
  1. ;;21,"63874-0655-30 ")
  1. ;;499
  1. ;;21,"63874-0655-60 ")
  1. ;;500
  1. ;;21,"63874-0987-01 ")
  1. ;;656
  1. ;;21,"63874-0987-10 ")
  1. ;;657
  1. ;;21,"63874-0987-14 ")
  1. ;;658
  1. ;;21,"63874-0987-20 ")
  1. ;;659
  1. ;;21,"63874-0987-30 ")
  1. ;;660
  1. ;;21,"63874-0987-60 ")
  1. ;;661
  1. ;;21,"63874-1114-09 ")
  1. ;;1403
  1. ;;21,"64455-0140-30 ")
  1. ;;570
  1. ;;21,"64455-0140-90 ")
  1. ;;571
  1. ;;21,"64455-0141-10 ")
  1. ;;782
  1. ;;21,"64455-0141-30 ")
  1. ;;783
  1. ;;21,"64455-0141-90 ")
  1. ;;784
  1. ;;21,"64455-0142-10 ")
  1. ;;501
  1. ;;21,"64455-0142-30 ")
  1. ;;502
  1. ;;21,"64455-0142-90 ")
  1. ;;503
  1. ;;21,"64455-0143-10 ")
  1. ;;662
  1. ;;21,"64455-0143-30 ")
  1. ;;663
  1. ;;21,"64455-0143-90 ")
  1. ;;664
  1. ;;21,"64679-0902-01 ")
  1. ;;285
  1. ;;21,"64679-0902-02 ")
  1. ;;286
  1. ;;21,"64679-0902-05 ")
  1. ;;287
  1. ;;21,"64679-0903-01 ")
  1. ;;348
  1. ;;21,"64679-0903-02 ")
  1. ;;349
  1. ;;21,"64679-0903-05 ")
  1. ;;350
  1. ;;21,"64679-0904-01 ")
  1. ;;404
  1. ;;21,"64679-0904-02 ")
  1. ;;405
  1. ;;21,"64679-0904-05 ")
  1. ;;406
  1. ;;21,"64679-0905-01 ")
  1. ;;256
  1. ;;21,"64679-0905-04 ")
  1. ;;257
  1. ;;21,"64679-0923-02 ")
  1. ;;572
  1. ;;21,"64679-0923-03 ")
  1. ;;573
  1. ;;21,"64679-0923-09 ")
  1. ;;574
  1. ;;21,"64679-0923-10 ")
  1. ;;575
  1. ;;21,"64679-0924-02 ")
  1. ;;785
  1. ;;21,"64679-0924-03 ")
  1. ;;786
  1. ;;21,"64679-0924-09 ")
  1. ;;787
  1. ;;21,"64679-0924-10 ")
  1. ;;788
  1. ;;21,"64679-0925-02 ")
  1. ;;504
  1. ;;21,"64679-0925-03 ")
  1. ;;505
  1. ;;21,"64679-0925-09 ")
  1. ;;506
  1. ;;21,"64679-0925-10 ")
  1. ;;507
  1. ;;21,"64679-0926-02 ")
  1. ;;665
  1. ;;21,"64679-0926-03 ")
  1. ;;666
  1. ;;21,"64679-0926-09 ")
  1. ;;667
  1. ;;21,"64679-0926-10 ")
  1. ;;668
  1. ;;21,"64679-0927-01 ")
  1. ;;1142
  1. ;;21,"64679-0927-02 ")
  1. ;;1143
  1. ;;21,"64679-0927-05 ")
  1. ;;1144
  1. ;;21,"64679-0927-09 ")
  1. ;;1145
  1. ;;21,"64679-0928-01 ")
  1. ;;1699
  1. ;;21,"64679-0928-05 ")
  1. ;;1700
  1. ;;21,"64679-0928-06 ")
  1. ;;1701
  1. ;;21,"64679-0928-10 ")
  1. ;;1702
  1. ;;21,"64679-0929-01 ")
  1. ;;1061
  1. ;;21,"64679-0929-05 ")
  1. ;;1062
  1. ;;21,"64679-0929-06 ")
  1. ;;1063
  1. ;;21,"64679-0929-10 ")
  1. ;;1064
  1. ;;21,"64679-0941-01 ")
  1. ;;1327
  1. ;;21,"64679-0941-05 ")
  1. ;;1328
  1. ;;21,"64679-0941-06 ")
  1. ;;1329
  1. ;;21,"64679-0941-10 ")
  1. ;;1330
  1. ;;21,"64679-0942-01 ")
  1. ;;1537
  1. ;;21,"64679-0942-02 ")
  1. ;;1538
  1. ;;21,"64679-0942-05 ")
  1. ;;1539
  1. ;;21,"64679-0942-09 ")
  1. ;;1540
  1. ;;21,"64679-0953-01 ")
  1. ;;1404
  1. ;;21,"64679-0953-02 ")
  1. ;;1405
  1. ;;21,"64679-0953-05 ")
  1. ;;1406
  1. ;;21,"64679-0953-09 ")
  1. ;;1407
  1. ;;21,"65162-0751-03 ")
  1. ;;240
  1. ;;21,"65162-0751-10 ")
  1. ;;241
  1. ;;21,"65162-0751-50 ")
  1. ;;242
  1. ;;21,"65162-0752-03 ")
  1. ;;65
  1. ;;21,"65162-0752-10 ")
  1. ;;66
  1. ;;21,"65162-0752-50 ")
  1. ;;67
  1. ;;21,"65162-0753-03 ")
  1. ;;140
  1. ;;21,"65162-0753-10 ")
  1. ;;141
  1. ;;21,"65162-0753-50 ")
  1. ;;142
  1. ;;21,"65162-0754-03 ")
  1. ;;202
  1. ;;21,"65162-0754-10 ")
  1. ;;203
  1. ;;21,"65162-0754-50 ")
  1. ;;204
  1. ;;21,"65243-0303-03 ")
  1. ;;1703
  1. ;;21,"65243-0314-03 ")
  1. ;;1541
  1. ;;21,"65862-0037-01 ")
  1. ;;1146
  1. ;;21,"65862-0037-05 ")
  1. ;;1147
  1. ;;21,"65862-0037-99 ")
  1. ;;1148
  1. ;;21,"65862-0038-01 ")
  1. ;;1704
  1. ;;21,"65862-0038-05 ")
  1. ;;1705
  1. ;;21,"65862-0038-99 ")
  1. ;;1706
  1. ;;21,"65862-0039-01 ")
  1. ;;1065
  1. ;;21,"65862-0039-05 ")
  1. ;;1066
  1. ;;21,"65862-0039-99 ")
  1. ;;1067
  1. ;;21,"65862-0040-01 ")
  1. ;;1331
  1. ;;21,"65862-0040-05 ")
  1. ;;1332
  1. ;;21,"65862-0040-99 ")
  1. ;;1333
  1. ;;21,"65862-0041-01 ")
  1. ;;1408
  1. ;;21,"65862-0041-05 ")
  1. ;;1409
  1. ;;21,"65862-0041-99 ")
  1. ;;1410
  1. ;;21,"65862-0042-01 ")
  1. ;;1542
  1. ;;21,"65862-0042-05 ")
  1. ;;1543
  1. ;;21,"65862-0042-99 ")
  1. ;;1544
  1. ;;21,"65862-0116-01 ")
  1. ;;68
  1. ;;21,"65862-0117-01 ")
  1. ;;143
  1. ;;21,"65862-0118-01 ")
  1. ;;205
  1. ;;21,"65862-0164-01 ")
  1. ;;2088
  1. ;;21,"65862-0165-01 ")
  1. ;;2101
  1. ;;21,"65862-0166-01 ")
  1. ;;2117
  1. ;;21,"65862-0286-01 ")
  1. ;;1751
  1. ;;21,"65862-0287-01 ")
  1. ;;1758
  1. ;;21,"65862-0288-01 ")
  1. ;;1765
  1. ;;21,"65862-0471-90 ")
  1. ;;823
  1. ;;21,"65862-0472-90 ")
  1. ;;854
  1. ;;21,"65862-0473-90 ")
  1. ;;889
  1. ;;21,"65862-0474-01 ")
  1. ;;1914
  1. ;;21,"65862-0474-30 ")
  1. ;;1915
  1. ;;21,"65862-0475-01 ")
  1. ;;2009
  1. ;;21,"65862-0475-05 ")
  1. ;;2010
  1. ;;21,"65862-0476-01 ")
  1. ;;2062
  1. ;;21,"65862-0476-05 ")
  1. ;;2063
  1. ;;21,"65862-0477-01 ")
  1. ;;1962
  1. ;;21,"65862-0477-05 ")
  1. ;;1963
  1. ;;21,"65862-0617-90 ")
  1. ;;1899
  1. ;;21,"65862-0618-90 ")
  1. ;;1799
  1. ;;21,"65862-0619-90 ")
  1. ;;1832
  1. ;;21,"65862-0620-90 ")
  1. ;;1865
  1. ;;21,"66105-0101-09 ")
  1. ;;1800
  1. ;;21,"66105-0102-09 ")
  1. ;;1833
  1. ;;21,"66105-0103-09 ")
  1. ;;1866
  1. ;;21,"66105-0524-09 ")
  1. ;;1900
  1. ;;21,"66105-0548-03 ")
  1. ;;1334
  1. ;;21,"66105-0555-10 ")
  1. ;;1707
  1. ;;21,"66267-0323-30 ")
  1. ;;508
  1. ;;21,"66267-0323-60 ")
  1. ;;509
  1. ;;21,"66267-0323-90 ")
  1. ;;510
  1. ;;21,"66267-0323-91 ")
  1. ;;511
  1. ;;21,"66267-0380-30 ")
  1. ;;669
  1. ;;21,"66267-0380-60 ")
  1. ;;670
  1. ;;21,"66267-0380-90 ")
  1. ;;671
  1. ;;21,"66267-0380-91 ")
  1. ;;672
  1. ;;21,"66267-0413-30 ")
  1. ;;789
  1. ;;21,"66267-0413-60 ")
  1. ;;790
  1. ;;21,"66267-0413-90 ")
  1. ;;791
  1. ;;21,"66267-0413-92 ")
  1. ;;792
  1. ;;21,"66336-0124-30 ")
  1. ;;206
  1. ;;21,"66336-0232-30 ")
  1. ;;243
  1. ;;21,"66336-0366-30 ")
  1. ;;69
  1. ;;21,"66336-0389-30 ")
  1. ;;512
  1. ;;21,"66336-0389-60 ")
  1. ;;513
  1. ;;21,"66336-0391-30 ")
  1. ;;793
  1. ;;21,"66336-0391-60 ")
  1. ;;794
  1. ;;21,"66336-0393-30 ")
  1. ;;673
  1. ;;21,"66336-0393-60 ")
  1. ;;674
  1. ;;21,"66336-0618-60 ")
  1. ;;288
  1. ;;21,"66336-0691-30 ")
  1. ;;144
  1. ;;21,"66336-0741-30 ")
  1. ;;1335
  1. ;;21,"66336-0750-60 ")
  1. ;;407
  1. ;;21,"66336-0750-90 ")
  1. ;;408
  1. ;;21,"66336-0773-30 ")
  1. ;;70
  1. ;;21,"66336-0794-60 ")
  1. ;;258
  1. ;;21,"66336-0946-30 ")
  1. ;;351
  1. ;;21,"66336-0946-60 ")
  1. ;;352
  1. ;;21,"66336-0946-90 ")
  1. ;;353
  1. ;;21,"66336-0972-30 ")
  1. ;;1068
  1. ;;21,"66636-0691-30 ")
  1. ;;145
  1. ;;21,"66685-0301-00 ")
  1. ;;576
  1. ;;21,"66685-0301-02 ")
  1. ;;577
  1. ;;21,"66685-0302-00 ")
  1. ;;795
  1. ;;21,"66685-0302-02 ")
  1. ;;796
  1. ;;21,"66685-0303-00 ")
  1. ;;514
  1. ;;21,"66685-0303-02 ")
  1. ;;515
  1. ;;21,"66685-0304-00 ")
  1. ;;675
  1. ;;21,"66685-0304-02 ")
  1. ;;676
  1. ;;21,"66685-0701-01 ")
  1. ;;1149
  1. ;;21,"66685-0701-02 ")
  1. ;;1150
  1. ;;21,"66685-0702-01 ")
  1. ;;1708
  1. ;;21,"66685-0702-02 ")
  1. ;;1709
  1. ;;21,"66685-0702-03 ")
  1. ;;1710
  1. ;;21,"66685-0703-01 ")
  1. ;;1069
  1. ;;21,"66685-0703-02 ")
  1. ;;1070
  1. ;;21,"66685-0703-03 ")
  1. ;;1071
  1. ;;21,"66685-0704-01 ")
  1. ;;1336
  1. ;;21,"66685-0704-02 ")
  1. ;;1337
  1. ;;21,"66685-0704-03 ")
  1. ;;1338
  1. ;;21,"66685-0705-01 ")
  1. ;;1411
  1. ;;21,"66685-0705-02 ")
  1. ;;1412
  1. ;;21,"66685-0706-01 ")
  1. ;;1545
  1. ;;21,"66685-0706-03 ")
  1. ;;1546
  1. ;;21,"66685-0706-04 ")
  1. ;;1547
  1. ;;21,"67046-0156-30 ")
  1. ;;797
  1. ;;21,"67046-0157-30 ")
  1. ;;798
  1. ;;21,"67046-0158-30 ")
  1. ;;516
  1. ;;21,"67046-0159-30 ")
  1. ;;677
  1. ;;21,"67046-0159-60 ")
  1. ;;678
  1. ;;21,"67046-0160-30 ")
  1. ;;517
  1. ;;21,"67046-0161-30 ")
  1. ;;679
  1. ;;21,"67046-0161-60 ")
  1. ;;680
  1. ;;21,"67253-0106-10 ")
  1. ;;2089
  1. ;;21,"67253-0107-10 ")
  1. ;;2102
  1. ;;21,"67253-0671-10 ")
  1. ;;1916
  1. ;;21,"67253-0672-10 ")
  1. ;;2011
  1. ;;21,"67253-0672-11 ")
  1. ;;2012
  1. ;;21,"67253-0673-10 ")
  1. ;;2064
  1. ;;21,"67253-0673-11 ")
  1. ;;2065
  1. ;;21,"67253-0674-10 ")
  1. ;;1964
  1. ;;21,"67253-0674-11 ")
  1. ;;1965
  1. ;;21,"67544-0062-30 ")
  1. ;;1151
  1. ;;21,"67544-0128-15 ")
  1. ;;1711
  1. ;;21,"67544-0134-15 ")
  1. ;;1339
  1. ;;21,"67544-0148-15 ")
  1. ;;1548
  1. ;;21,"67544-0159-15 ")
  1. ;;1072
  1. ;;21,"67544-0173-30 ")
  1. ;;1712
  1. ;;21,"67544-0174-30 ")
  1. ;;1340
  1. ;;21,"67544-0219-15 ")
  1. ;;1073
  1. ;;21,"67544-0306-30 ")
  1. ;;890
  1. ;;21,"67544-0311-30 ")
  1. ;;891
  1. ;;21,"67544-0322-15 ")
  1. ;;855
  1. ;;21,"67544-0350-80 ")
  1. ;;578
  1. ;;21,"67544-0380-30 ")
  1. ;;824
  1. ;;21,"67544-0431-15 ")
  1. ;;856
  1. ;;21,"67544-0454-15 ")
  1. ;;892
  1. ;;21,"67544-0489-15 ")
  1. ;;825
  1. ;;21,"67544-0997-30 ")
  1. ;;1549
  1. ;;21,"67544-0999-60 ")
  1. ;;1341
  1. ;;21,"68001-0140-04 ")
  1. ;;1917
  1. ;;21,"68001-0141-00 ")
  1. ;;1966
  1. ;;21,"68001-0141-03 ")
  1. ;;1967
  1. ;;21,"68001-0142-00 ")
  1. ;;2013
  1. ;;21,"68001-0142-03 ")
  1. ;;2014
  1. ;;21,"68001-0143-00 ")
  1. ;;2066
  1. ;;21,"68001-0143-03 ")
  1. ;;2067
  1. ;;21,"68001-0186-05 ")
  1. ;;1867
  1. ;;21,"68001-0187-05 ")
  1. ;;1834
  1. ;;21,"68001-0188-05 ")
  1. ;;1801
  1. ;;21,"68001-0189-05 ")
  1. ;;1901
  1. ;;21,"68001-0207-00 ")
  1. ;;1713
  1. ;;21,"68001-0207-08 ")
  1. ;;1714
  1. ;;21,"68001-0208-00 ")
  1. ;;1342
  1. ;;21,"68001-0208-08 ")
  1. ;;1343
  1. ;;21,"68001-0209-00 ")
  1. ;;1550
  1. ;;21,"68001-0209-08 ")
  1. ;;1551
  1. ;;21,"68001-0210-00 ")
  1. ;;1074
  1. ;;21,"68001-0210-08 ")
  1. ;;1075
  1. ;;21,"68001-0211-00 ")
  1. ;;1152
  1. ;;21,"68001-0211-08 ")
  1. ;;1153
  1. ;;21,"68001-0212-00 ")
  1. ;;1413
  1. ;;21,"68001-0260-05 ")
  1. ;;1868
  1. ;;21,"68001-0268-00 ")
  1. ;;1076
  1. ;;21,"68001-0268-08 ")
  1. ;;1077
  1. ;;21,"68001-0269-00 ")
  1. ;;1344
  1. ;;21,"68001-0269-08 ")
  1. ;;1345
  1. ;;21,"68001-0270-00 ")
  1. ;;1414
  1. ;;21,"68001-0271-00 ")
  1. ;;1552
  1. ;;21,"68001-0271-08 ")
  1. ;;1553
  1. ;;21,"68084-0058-01 ")
  1. ;;1154
  1. ;;21,"68084-0060-01 ")
  1. ;;1715
  1. ;;21,"68084-0060-11 ")
  1. ;;1716
  1. ;;21,"68084-0061-01 ")
  1. ;;1078
  1. ;;21,"68084-0061-11 ")
  1. ;;1079
  1. ;;21,"68084-0062-01 ")
  1. ;;1346
  1. ;;21,"68084-0062-11 ")
  1. ;;1347
  1. ;;21,"68084-0064-01 ")
  1. ;;1554
  1. ;;21,"68084-0064-11 ")
  1. ;;1555
  1. ;;21,"68084-0196-01 ")
  1. ;;1717
  1. ;;21,"68084-0196-11 ")
  1. ;;1718
  1. ;;21,"68084-0197-01 ")
  1. ;;1080
  1. ;;21,"68084-0198-01 ")
  1. ;;1348
  1. ;;21,"68084-0198-11 ")
  1. ;;1349
  1. ;;21,"68084-0199-01 ")
  1. ;;1556
  1. ;;21,"68084-0266-01 ")
  1. ;;2015
  1. ;;21,"68084-0266-11 ")
  1. ;;2016
  1. ;;21,"68084-0267-01 ")
  1. ;;2068
  1. ;;21,"68084-0267-11 ")
  1. ;;2069
  1. ;;21,"68084-0268-01 ")
  1. ;;1968
  1. ;;21,"68084-0268-11 ")
  1. ;;1969
  1. ;;21,"68084-0294-11 ")
  1. ;;1918
  1. ;;21,"68084-0294-21 ")
  1. ;;1919
  1. ;;21,"68084-0390-01 ")
  1. ;;799
  1. ;;21,"68084-0390-11 ")
  1. ;;800
  1. ;;21,"68084-0391-01 ")
  1. ;;518
  1. ;;21,"68084-0391-11 ")
  1. ;;519
  1. ;;21,"68084-0392-01 ")
  1. ;;681
  1. ;;21,"68084-0392-11 ")
  1. ;;682
  1. ;;21,"68084-0739-25 ")
  1. ;;207
  1. ;;21,"68084-0765-21 ")
  1. ;;1155
  1. ;;21,"68115-0127-15 ")
  1. ;;520
  1. ;;21,"68115-0128-60 ")
  1. ;;683
  1. ;;21,"68115-0128-90 ")
  1. ;;684
  1. ;;21,"68115-0217-30 ")
  1. ;;208
  1. ;;21,"68115-0362-60 ")
  1. ;;1350
  1. ;;21,"68115-0363-30 ")
  1. ;;1719
  1. ;;21,"68115-0615-00 ")
  1. ;;71
  1. ;;21,"68180-0235-01 ")
  1. ;;1752
  1. ;;21,"68180-0236-01 ")
  1. ;;1759
  1. ;;21,"68180-0237-01 ")
  1. ;;1766
  1. ;;21,"68180-0512-01 ")
  1. ;;1156
  1. ;;21,"68180-0512-02 ")
  1. ;;1157
  1. ;;21,"68180-0512-09 ")
  1. ;;1158
  1. ;;21,"68180-0513-01 ")
  1. ;;1720