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

BGP62Z12.m

Go to the documentation of this file.
  1. BGP62Z12 ;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,"58016-0833-50 ")
  1. ;;4791
  1. ;;21,"58016-0833-60 ")
  1. ;;4792
  1. ;;21,"58016-0833-90 ")
  1. ;;4793
  1. ;;21,"58016-0834-00 ")
  1. ;;4849
  1. ;;21,"58016-0834-10 ")
  1. ;;4850
  1. ;;21,"58016-0834-14 ")
  1. ;;4851
  1. ;;21,"58016-0834-15 ")
  1. ;;4852
  1. ;;21,"58016-0834-20 ")
  1. ;;4853
  1. ;;21,"58016-0834-21 ")
  1. ;;4854
  1. ;;21,"58016-0834-30 ")
  1. ;;4855
  1. ;;21,"58016-0834-40 ")
  1. ;;4856
  1. ;;21,"58016-0834-50 ")
  1. ;;4857
  1. ;;21,"58016-0834-60 ")
  1. ;;4858
  1. ;;21,"58016-0834-90 ")
  1. ;;4859
  1. ;;21,"58016-0839-00 ")
  1. ;;4914
  1. ;;21,"58016-0839-02 ")
  1. ;;4915
  1. ;;21,"58016-0839-12 ")
  1. ;;4916
  1. ;;21,"58016-0839-15 ")
  1. ;;4917
  1. ;;21,"58016-0839-20 ")
  1. ;;4918
  1. ;;21,"58016-0839-30 ")
  1. ;;4919
  1. ;;21,"58016-0839-60 ")
  1. ;;4920
  1. ;;21,"58016-0839-90 ")
  1. ;;4921
  1. ;;21,"58016-0841-00 ")
  1. ;;4956
  1. ;;21,"58016-0841-02 ")
  1. ;;4957
  1. ;;21,"58016-0841-12 ")
  1. ;;4958
  1. ;;21,"58016-0841-15 ")
  1. ;;4959
  1. ;;21,"58016-0841-20 ")
  1. ;;4960
  1. ;;21,"58016-0841-30 ")
  1. ;;4961
  1. ;;21,"58016-0841-60 ")
  1. ;;4962
  1. ;;21,"58016-0841-90 ")
  1. ;;4963
  1. ;;21,"58016-0853-00 ")
  1. ;;4641
  1. ;;21,"58016-0853-02 ")
  1. ;;4642
  1. ;;21,"58016-0853-03 ")
  1. ;;4643
  1. ;;21,"58016-0853-14 ")
  1. ;;4644
  1. ;;21,"58016-0853-15 ")
  1. ;;4645
  1. ;;21,"58016-0853-20 ")
  1. ;;4646
  1. ;;21,"58016-0853-28 ")
  1. ;;4647
  1. ;;21,"58016-0853-30 ")
  1. ;;4648
  1. ;;21,"58016-0853-50 ")
  1. ;;4649
  1. ;;21,"58016-0853-60 ")
  1. ;;4650
  1. ;;21,"58016-0853-73 ")
  1. ;;4651
  1. ;;21,"58016-0853-89 ")
  1. ;;4652
  1. ;;21,"58016-0853-90 ")
  1. ;;4653
  1. ;;21,"58016-0858-00 ")
  1. ;;4155
  1. ;;21,"58016-0858-14 ")
  1. ;;4156
  1. ;;21,"58016-0858-21 ")
  1. ;;4157
  1. ;;21,"58016-0858-28 ")
  1. ;;4158
  1. ;;21,"58016-0858-30 ")
  1. ;;4159
  1. ;;21,"58016-0858-40 ")
  1. ;;4160
  1. ;;21,"58016-0858-50 ")
  1. ;;4161
  1. ;;21,"58016-0858-60 ")
  1. ;;4162
  1. ;;21,"58016-0858-99 ")
  1. ;;4163
  1. ;;21,"58016-0862-00 ")
  1. ;;603
  1. ;;21,"58016-0862-02 ")
  1. ;;604
  1. ;;21,"58016-0862-03 ")
  1. ;;605
  1. ;;21,"58016-0862-12 ")
  1. ;;606
  1. ;;21,"58016-0862-15 ")
  1. ;;607
  1. ;;21,"58016-0862-20 ")
  1. ;;608
  1. ;;21,"58016-0862-30 ")
  1. ;;609
  1. ;;21,"58016-0862-50 ")
  1. ;;610
  1. ;;21,"58016-0862-60 ")
  1. ;;611
  1. ;;21,"58016-0862-73 ")
  1. ;;612
  1. ;;21,"58016-0862-89 ")
  1. ;;613
  1. ;;21,"58016-0862-90 ")
  1. ;;614
  1. ;;21,"58016-0866-00 ")
  1. ;;4997
  1. ;;21,"58016-0866-02 ")
  1. ;;4998
  1. ;;21,"58016-0866-12 ")
  1. ;;4999
  1. ;;21,"58016-0866-15 ")
  1. ;;5000
  1. ;;21,"58016-0866-20 ")
  1. ;;5001
  1. ;;21,"58016-0866-30 ")
  1. ;;5002
  1. ;;21,"58016-0866-60 ")
  1. ;;5003
  1. ;;21,"58016-0866-90 ")
  1. ;;5004
  1. ;;21,"58016-0875-00 ")
  1. ;;5268
  1. ;;21,"58016-0875-12 ")
  1. ;;5269
  1. ;;21,"58016-0875-15 ")
  1. ;;5270
  1. ;;21,"58016-0875-20 ")
  1. ;;5271
  1. ;;21,"58016-0875-30 ")
  1. ;;5272
  1. ;;21,"58016-0875-60 ")
  1. ;;5273
  1. ;;21,"58016-0880-00 ")
  1. ;;705
  1. ;;21,"58016-0880-12 ")
  1. ;;706
  1. ;;21,"58016-0880-15 ")
  1. ;;707
  1. ;;21,"58016-0880-20 ")
  1. ;;708
  1. ;;21,"58016-0880-30 ")
  1. ;;709
  1. ;;21,"58016-0881-00 ")
  1. ;;227
  1. ;;21,"58016-0881-02 ")
  1. ;;228
  1. ;;21,"58016-0881-03 ")
  1. ;;229
  1. ;;21,"58016-0881-30 ")
  1. ;;230
  1. ;;21,"58016-0881-60 ")
  1. ;;231
  1. ;;21,"58016-0881-90 ")
  1. ;;232
  1. ;;21,"58016-0894-00 ")
  1. ;;3780
  1. ;;21,"58016-0894-02 ")
  1. ;;3781
  1. ;;21,"58016-0894-03 ")
  1. ;;3782
  1. ;;21,"58016-0894-30 ")
  1. ;;3783
  1. ;;21,"58016-0894-60 ")
  1. ;;3784
  1. ;;21,"58016-0894-90 ")
  1. ;;3785
  1. ;;21,"58016-0894-99 ")
  1. ;;3786
  1. ;;21,"58016-0897-00 ")
  1. ;;2931
  1. ;;21,"58016-0897-30 ")
  1. ;;2932
  1. ;;21,"58016-0897-60 ")
  1. ;;2933
  1. ;;21,"58016-0897-90 ")
  1. ;;2934
  1. ;;21,"58016-0905-00 ")
  1. ;;2575
  1. ;;21,"58016-0905-02 ")
  1. ;;2576
  1. ;;21,"58016-0905-03 ")
  1. ;;2577
  1. ;;21,"58016-0905-10 ")
  1. ;;2578
  1. ;;21,"58016-0905-20 ")
  1. ;;2579
  1. ;;21,"58016-0905-30 ")
  1. ;;2580
  1. ;;21,"58016-0905-60 ")
  1. ;;2581
  1. ;;21,"58016-0905-73 ")
  1. ;;2582
  1. ;;21,"58016-0905-89 ")
  1. ;;2583
  1. ;;21,"58016-0907-00 ")
  1. ;;3195
  1. ;;21,"58016-0907-30 ")
  1. ;;3196
  1. ;;21,"58016-0907-60 ")
  1. ;;3197
  1. ;;21,"58016-0907-90 ")
  1. ;;3198
  1. ;;21,"58016-0977-00 ")
  1. ;;2161
  1. ;;21,"58016-0977-02 ")
  1. ;;2162
  1. ;;21,"58016-0977-30 ")
  1. ;;2163
  1. ;;21,"58016-0977-60 ")
  1. ;;2164
  1. ;;21,"58016-0977-90 ")
  1. ;;2165
  1. ;;21,"58016-0986-00 ")
  1. ;;3873
  1. ;;21,"58016-0986-02 ")
  1. ;;3874
  1. ;;21,"58016-0986-03 ")
  1. ;;3875
  1. ;;21,"58016-0986-30 ")
  1. ;;3876
  1. ;;21,"58016-0986-60 ")
  1. ;;3877
  1. ;;21,"58016-0986-90 ")
  1. ;;3878
  1. ;;21,"58016-4825-01 ")
  1. ;;3821
  1. ;;21,"58016-4826-01 ")
  1. ;;3917
  1. ;;21,"58809-0717-01 ")
  1. ;;4449
  1. ;;21,"58864-0022-15 ")
  1. ;;4326
  1. ;;21,"58864-0022-30 ")
  1. ;;4327
  1. ;;21,"58864-0023-30 ")
  1. ;;4450
  1. ;;21,"58864-0024-30 ")
  1. ;;4080
  1. ;;21,"58864-0025-01 ")
  1. ;;867
  1. ;;21,"58864-0025-14 ")
  1. ;;868
  1. ;;21,"58864-0025-30 ")
  1. ;;869
  1. ;;21,"58864-0025-60 ")
  1. ;;870
  1. ;;21,"58864-0103-15 ")
  1. ;;2584
  1. ;;21,"58864-0103-30 ")
  1. ;;2585
  1. ;;21,"58864-0103-60 ")
  1. ;;2586
  1. ;;21,"58864-0372-30 ")
  1. ;;3053
  1. ;;21,"58864-0616-15 ")
  1. ;;2061
  1. ;;21,"58864-0616-30 ")
  1. ;;2062
  1. ;;21,"58864-0625-30 ")
  1. ;;233
  1. ;;21,"58864-0625-60 ")
  1. ;;234
  1. ;;21,"58864-0627-15 ")
  1. ;;3413
  1. ;;21,"58864-0627-30 ")
  1. ;;3414
  1. ;;21,"58864-0628-15 ")
  1. ;;3250
  1. ;;21,"58864-0629-30 ")
  1. ;;1538
  1. ;;21,"58864-0696-30 ")
  1. ;;1347
  1. ;;21,"58864-0707-30 ")
  1. ;;3681
  1. ;;21,"58864-0715-30 ")
  1. ;;126
  1. ;;21,"58864-0716-30 ")
  1. ;;3251
  1. ;;21,"58864-0741-15 ")
  1. ;;3054
  1. ;;21,"58864-0741-30 ")
  1. ;;3055
  1. ;;21,"58864-0756-30 ")
  1. ;;1229
  1. ;;21,"58864-0757-30 ")
  1. ;;4164
  1. ;;21,"58864-0783-30 ")
  1. ;;615
  1. ;;21,"58864-0794-30 ")
  1. ;;436
  1. ;;21,"58864-0808-90 ")
  1. ;;65
  1. ;;21,"58864-0812-15 ")
  1. ;;2063
  1. ;;21,"58864-0823-15 ")
  1. ;;3879
  1. ;;21,"58864-0823-30 ")
  1. ;;3880
  1. ;;21,"58864-0840-30 ")
  1. ;;235
  1. ;;21,"58864-0840-60 ")
  1. ;;127
  1. ;;21,"58864-0849-30 ")
  1. ;;1737
  1. ;;21,"58864-0852-30 ")
  1. ;;1905
  1. ;;21,"58864-0917-30 ")
  1. ;;2587
  1. ;;21,"59746-0280-01 ")
  1. ;;2166
  1. ;;21,"59746-0281-01 ")
  1. ;;2235
  1. ;;21,"59746-0316-60 ")
  1. ;;236
  1. ;;21,"59762-0119-01 ")
  1. ;;463
  1. ;;21,"59762-0180-01 ")
  1. ;;1348
  1. ;;21,"59762-0180-02 ")
  1. ;;1349
  1. ;;21,"59762-0180-03 ")
  1. ;;1350
  1. ;;21,"59762-0180-04 ")
  1. ;;1351
  1. ;;21,"59762-0181-01 ")
  1. ;;1539
  1. ;;21,"59762-0181-02 ")
  1. ;;1540
  1. ;;21,"59762-0181-03 ")
  1. ;;1541
  1. ;;21,"59762-0181-04 ")
  1. ;;1542
  1. ;;21,"59762-0182-01 ")
  1. ;;1230
  1. ;;21,"59762-0182-02 ")
  1. ;;1231
  1. ;;21,"59762-0182-03 ")
  1. ;;1232
  1. ;;21,"59762-0182-04 ")
  1. ;;1233
  1. ;;21,"59762-1410-07 ")
  1. ;;3822
  1. ;;21,"59762-1412-07 ")
  1. ;;3918
  1. ;;21,"59762-1414-07 ")
  1. ;;3978
  1. ;;21,"59762-1415-03 ")
  1. ;;3987
  1. ;;21,"59762-1415-05 ")
  1. ;;3988
  1. ;;21,"59762-1415-06 ")
  1. ;;3989
  1. ;;21,"59762-1415-09 ")
  1. ;;3990
  1. ;;21,"59762-1416-03 ")
  1. ;;3787
  1. ;;21,"59762-1416-05 ")
  1. ;;3788
  1. ;;21,"59762-1416-06 ")
  1. ;;3789
  1. ;;21,"59762-1416-09 ")
  1. ;;3790
  1. ;;21,"59762-1417-03 ")
  1. ;;3881
  1. ;;21,"59762-1417-05 ")
  1. ;;3882
  1. ;;21,"59762-1417-06 ")
  1. ;;3883
  1. ;;21,"59762-1417-09 ")
  1. ;;3884
  1. ;;21,"59762-1418-03 ")
  1. ;;3955
  1. ;;21,"59762-1418-05 ")
  1. ;;3956
  1. ;;21,"59762-1418-06 ")
  1. ;;3957
  1. ;;21,"59762-1418-09 ")
  1. ;;3958
  1. ;;21,"59762-1808-01 ")
  1. ;;2880
  1. ;;21,"59762-1808-02 ")
  1. ;;2881
  1. ;;21,"59762-1808-03 ")
  1. ;;2882
  1. ;;21,"59762-1810-01 ")
  1. ;;3056
  1. ;;21,"59762-1810-02 ")
  1. ;;3057
  1. ;;21,"59762-1810-03 ")
  1. ;;3058
  1. ;;21,"59762-1810-04 ")
  1. ;;3059
  1. ;;21,"59762-1812-01 ")
  1. ;;3167
  1. ;;21,"59762-1812-02 ")
  1. ;;3168
  1. ;;21,"59762-1812-03 ")
  1. ;;3169
  1. ;;21,"59762-1815-01 ")
  1. ;;3252
  1. ;;21,"59762-1815-02 ")
  1. ;;3253
  1. ;;21,"59762-1815-03 ")
  1. ;;3254
  1. ;;21,"59762-3480-03 ")
  1. ;;1297
  1. ;;21,"59762-3481-02 ")
  1. ;;1426
  1. ;;21,"59762-3482-02 ")
  1. ;;1473
  1. ;;21,"59762-3483-02 ")
  1. ;;1633
  1. ;;21,"59762-3484-02 ")
  1. ;;1175
  1. ;;21,"59762-4800-01 ")
  1. ;;1738
  1. ;;21,"59762-4800-03 ")
  1. ;;1739
  1. ;;21,"59762-4800-05 ")
  1. ;;1740
  1. ;;21,"59762-4800-06 ")
  1. ;;1741
  1. ;;21,"59762-4801-01 ")
  1. ;;1906
  1. ;;21,"59762-4801-03 ")
  1. ;;1907
  1. ;;21,"59762-4801-05 ")
  1. ;;1908
  1. ;;21,"59762-4801-06 ")
  1. ;;1909
  1. ;;21,"59762-4802-01 ")
  1. ;;2064
  1. ;;21,"59762-4802-03 ")
  1. ;;2065
  1. ;;21,"59762-4802-05 ")
  1. ;;2066
  1. ;;21,"59762-4802-06 ")
  1. ;;2067
  1. ;;21,"59762-4900-01 ")
  1. ;;3682
  1. ;;21,"59762-4900-02 ")
  1. ;;3683
  1. ;;21,"59762-4900-03 ")
  1. ;;3684
  1. ;;21,"59762-4900-04 ")
  1. ;;3685
  1. ;;21,"59762-4900-05 ")
  1. ;;3686
  1. ;;21,"59762-4910-01 ")
  1. ;;3415
  1. ;;21,"59762-4910-02 ")
  1. ;;3416
  1. ;;21,"59762-4910-03 ")
  1. ;;3417
  1. ;;21,"59762-4910-04 ")
  1. ;;3418
  1. ;;21,"59762-4910-05 ")
  1. ;;3419
  1. ;;21,"59762-4940-01 ")
  1. ;;3463
  1. ;;21,"59762-4960-01 ")
  1. ;;3538
  1. ;;21,"59772-3171-01 ")
  1. ;;710
  1. ;;21,"60258-0830-08 ")
  1. ;;1774
  1. ;;21,"60429-0016-18 ")
  1. ;;4328
  1. ;;21,"60429-0016-30 ")
  1. ;;4329
  1. ;;21,"60429-0016-60 ")
  1. ;;4330
  1. ;;21,"60429-0016-90 ")
  1. ;;4331
  1. ;;21,"60429-0017-30 ")
  1. ;;4451
  1. ;;21,"60429-0095-01 ")
  1. ;;4922
  1. ;;21,"60429-0095-10 ")
  1. ;;4923
  1. ;;21,"60429-0096-01 ")
  1. ;;4964
  1. ;;21,"60429-0096-10 ")
  1. ;;4965
  1. ;;21,"60429-0097-01 ")
  1. ;;5005
  1. ;;21,"60429-0097-10 ")
  1. ;;5006
  1. ;;21,"60429-0164-60 ")
  1. ;;1013
  1. ;;21,"60429-0165-30 ")
  1. ;;1064
  1. ;;21,"60429-0165-90 ")
  1. ;;1065
  1. ;;21,"60429-0166-10 ")
  1. ;;1132
  1. ;;21,"60429-0166-30 ")
  1. ;;1133
  1. ;;21,"60429-0173-01 ")
  1. ;;1742
  1. ;;21,"60429-0173-10 ")
  1. ;;1743
  1. ;;21,"60429-0173-30 ")
  1. ;;1744
  1. ;;21,"60429-0174-01 ")
  1. ;;1910
  1. ;;21,"60429-0174-10 ")
  1. ;;1911
  1. ;;21,"60429-0174-30 ")
  1. ;;1912
  1. ;;21,"60429-0175-01 ")
  1. ;;2068
  1. ;;21,"60429-0175-10 ")
  1. ;;2069
  1. ;;21,"60429-0175-30 ")
  1. ;;2070
  1. ;;21,"60429-0187-05 ")
  1. ;;871
  1. ;;21,"60429-0187-30 ")
  1. ;;872
  1. ;;21,"60429-0188-01 ")
  1. ;;616
  1. ;;21,"60429-0188-05 ")
  1. ;;617
  1. ;;21,"60429-0188-30 ")
  1. ;;618
  1. ;;21,"60429-0188-60 ")
  1. ;;619
  1. ;;21,"60429-0188-90 ")
  1. ;;620
  1. ;;21,"60429-0230-01 ")
  1. ;;711
  1. ;;21,"60429-0230-05 ")
  1. ;;712
  1. ;;21,"60429-0230-30 ")
  1. ;;713
  1. ;;21,"60429-0230-90 ")
  1. ;;714
  1. ;;21,"60429-0287-30 ")
  1. ;;4555
  1. ;;21,"60429-0287-90 ")
  1. ;;4556
  1. ;;21,"60429-0288-30 ")
  1. ;;4581
  1. ;;21,"60429-0288-90 ")
  1. ;;4582
  1. ;;21,"60429-0289-30 ")
  1. ;;4570
  1. ;;21,"60429-0289-90 ")
  1. ;;4571
  1. ;;21,"60429-0718-18 ")
  1. ;;2368
  1. ;;21,"60429-0718-30 ")
  1. ;;2369
  1. ;;21,"60429-0718-60 ")
  1. ;;2370
  1. ;;21,"60429-0718-90 ")
  1. ;;2371
  1. ;;21,"60429-0719-18 ")
  1. ;;2588
  1. ;;21,"60429-0719-30 ")
  1. ;;2589
  1. ;;21,"60429-0719-60 ")
  1. ;;2590
  1. ;;21,"60429-0719-90 ")
  1. ;;2591
  1. ;;21,"60429-0734-05 ")
  1. ;;2883
  1. ;;21,"60429-0734-10 ")
  1. ;;2884
  1. ;;21,"60429-0734-30 ")
  1. ;;2885
  1. ;;21,"60429-0734-90 ")
  1. ;;2886
  1. ;;21,"60429-0735-01 ")
  1. ;;3060
  1. ;;21,"60429-0735-05 ")
  1. ;;3061
  1. ;;21,"60429-0735-10 ")
  1. ;;3062
  1. ;;21,"60429-0735-30 ")
  1. ;;3063
  1. ;;21,"60429-0735-90 ")
  1. ;;3064
  1. ;;21,"60429-0736-05 ")
  1. ;;3170
  1. ;;21,"60429-0736-30 ")
  1. ;;3171
  1. ;;21,"60429-0736-90 ")
  1. ;;3172
  1. ;;21,"60429-0737-05 ")
  1. ;;3255
  1. ;;21,"60429-0737-10 ")
  1. ;;3256
  1. ;;21,"60429-0737-15 ")
  1. ;;3257
  1. ;;21,"60429-0737-30 ")
  1. ;;3258
  1. ;;21,"60429-0737-45 ")
  1. ;;3259
  1. ;;21,"60429-0737-90 ")
  1. ;;3260
  1. ;;21,"60429-0758-01 ")
  1. ;;2794
  1. ;;21,"60429-0759-01 ")
  1. ;;2808
  1. ;;21,"60429-0759-30 ")
  1. ;;2809
  1. ;;21,"60429-0759-90 ")
  1. ;;2810
  1. ;;21,"60429-0760-01 ")
  1. ;;2773
  1. ;;21,"60429-0760-30 ")
  1. ;;2774
  1. ;;21,"60429-0760-90 ")
  1. ;;2775
  1. ;;21,"60429-0930-01 ")
  1. ;;715
  1. ;;21,"60429-0930-05 ")
  1. ;;716
  1. ;;21,"60429-0930-30 ")
  1. ;;717
  1. ;;21,"60429-0930-90 ")
  1. ;;718
  1. ;;21,"60429-0946-01 ")
  1. ;;437
  1. ;;21,"60429-0946-05 ")
  1. ;;438
  1. ;;21,"60429-0947-01 ")
  1. ;;66
  1. ;;21,"60429-0947-05 ")
  1. ;;67
  1. ;;21,"60429-0987-01 ")
  1. ;;873
  1. ;;21,"60429-0987-05 ")
  1. ;;874
  1. ;;21,"60429-0987-30 ")
  1. ;;875
  1. ;;21,"60429-0987-60 ")
  1. ;;876
  1. ;;21,"60429-0987-90 ")
  1. ;;877
  1. ;;21,"60429-0988-01 ")
  1. ;;621
  1. ;;21,"60429-0988-05 ")
  1. ;;622