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

BGP62Z3.m

Go to the documentation of this file.
  1. BGP62Z3 ;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,"00406-9932-03 ")
  1. ;;5021
  1. ;;21,"00406-9933-03 ")
  1. ;;5026
  1. ;;21,"00406-9934-03 ")
  1. ;;5031
  1. ;;21,"00430-0210-14 ")
  1. ;;2412
  1. ;;21,"00430-0220-14 ")
  1. ;;2652
  1. ;;21,"00440-7090-30 ")
  1. ;;3996
  1. ;;21,"00440-7091-30 ")
  1. ;;4212
  1. ;;21,"00440-7092-30 ")
  1. ;;4375
  1. ;;21,"00440-7478-30 ")
  1. ;;4885
  1. ;;21,"00440-8575-20 ")
  1. ;;771
  1. ;;21,"00440-8576-30 ")
  1. ;;534
  1. ;;21,"00456-1100-31 ")
  1. ;;456
  1. ;;21,"00456-1110-30 ")
  1. ;;453
  1. ;;21,"00456-1120-30 ")
  1. ;;454
  1. ;;21,"00456-1140-30 ")
  1. ;;455
  1. ;;21,"00456-2005-01 ")
  1. ;;2258
  1. ;;21,"00456-2010-01 ")
  1. ;;2118
  1. ;;21,"00456-2010-11 ")
  1. ;;2119
  1. ;;21,"00456-2010-63 ")
  1. ;;2120
  1. ;;21,"00456-2020-01 ")
  1. ;;2195
  1. ;;21,"00456-2020-11 ")
  1. ;;2196
  1. ;;21,"00456-2020-63 ")
  1. ;;2197
  1. ;;21,"00456-2101-08 ")
  1. ;;2279
  1. ;;21,"00456-2202-28 ")
  1. ;;1153
  1. ;;21,"00456-2212-30 ")
  1. ;;1151
  1. ;;21,"00456-2220-30 ")
  1. ;;1152
  1. ;;21,"00456-2240-30 ")
  1. ;;1154
  1. ;;21,"00456-2280-30 ")
  1. ;;1155
  1. ;;21,"00456-4010-01 ")
  1. ;;1674
  1. ;;21,"00456-4020-01 ")
  1. ;;1795
  1. ;;21,"00456-4020-63 ")
  1. ;;1796
  1. ;;21,"00456-4040-01 ")
  1. ;;1970
  1. ;;21,"00456-4130-08 ")
  1. ;;1771
  1. ;;21,"00490-0034-00 ")
  1. ;;1450
  1. ;;21,"00490-0034-30 ")
  1. ;;1451
  1. ;;21,"00490-0034-60 ")
  1. ;;1452
  1. ;;21,"00490-0034-90 ")
  1. ;;1453
  1. ;;21,"00490-0114-00 ")
  1. ;;1576
  1. ;;21,"00490-0114-30 ")
  1. ;;1577
  1. ;;21,"00490-0114-60 ")
  1. ;;1578
  1. ;;21,"00490-0114-90 ")
  1. ;;1579
  1. ;;21,"00490-0163-00 ")
  1. ;;338
  1. ;;21,"00490-0163-30 ")
  1. ;;339
  1. ;;21,"00490-0163-60 ")
  1. ;;340
  1. ;;21,"00490-0163-90 ")
  1. ;;341
  1. ;;21,"00555-0201-01 ")
  1. ;;2413
  1. ;;21,"00555-0489-02 ")
  1. ;;772
  1. ;;21,"00555-0489-04 ")
  1. ;;773
  1. ;;21,"00555-0490-02 ")
  1. ;;535
  1. ;;21,"00555-0490-04 ")
  1. ;;536
  1. ;;21,"00555-0594-02 ")
  1. ;;5280
  1. ;;21,"00555-0595-02 ")
  1. ;;5287
  1. ;;21,"00555-0732-02 ")
  1. ;;665
  1. ;;21,"00555-0732-04 ")
  1. ;;666
  1. ;;21,"00555-0733-02 ")
  1. ;;748
  1. ;;21,"00555-0871-54 ")
  1. ;;2755
  1. ;;21,"00555-0871-88 ")
  1. ;;2756
  1. ;;21,"00555-0876-02 ")
  1. ;;2304
  1. ;;21,"00555-0877-02 ")
  1. ;;2455
  1. ;;21,"00555-0877-04 ")
  1. ;;2456
  1. ;;21,"00555-0877-05 ")
  1. ;;2457
  1. ;;21,"00555-0877-07 ")
  1. ;;2458
  1. ;;21,"00555-0967-02 ")
  1. ;;2787
  1. ;;21,"00555-0968-02 ")
  1. ;;2801
  1. ;;21,"00555-0969-02 ")
  1. ;;2766
  1. ;;21,"00591-0764-60 ")
  1. ;;473
  1. ;;21,"00591-0767-60 ")
  1. ;;516
  1. ;;21,"00591-0809-01 ")
  1. ;;4665
  1. ;;21,"00591-0809-05 ")
  1. ;;4666
  1. ;;21,"00591-0839-25 ")
  1. ;;164
  1. ;;21,"00591-0839-60 ")
  1. ;;165
  1. ;;21,"00591-0858-60 ")
  1. ;;100
  1. ;;21,"00591-1117-10 ")
  1. ;;3746
  1. ;;21,"00591-1117-30 ")
  1. ;;3747
  1. ;;21,"00591-1118-10 ")
  1. ;;3838
  1. ;;21,"00591-1118-30 ")
  1. ;;3839
  1. ;;21,"00591-1119-30 ")
  1. ;;3929
  1. ;;21,"00591-2114-01 ")
  1. ;;4758
  1. ;;21,"00591-2230-15 ")
  1. ;;3816
  1. ;;21,"00591-2231-15 ")
  1. ;;3914
  1. ;;21,"00591-2469-15 ")
  1. ;;3817
  1. ;;21,"00591-2470-15 ")
  1. ;;3915
  1. ;;21,"00591-2471-15 ")
  1. ;;3976
  1. ;;21,"00591-3176-01 ")
  1. ;;1675
  1. ;;21,"00591-3176-05 ")
  1. ;;1676
  1. ;;21,"00591-3177-01 ")
  1. ;;1797
  1. ;;21,"00591-3177-05 ")
  1. ;;1798
  1. ;;21,"00591-3178-01 ")
  1. ;;1971
  1. ;;21,"00591-3178-05 ")
  1. ;;1972
  1. ;;21,"00591-3331-05 ")
  1. ;;270
  1. ;;21,"00591-3331-19 ")
  1. ;;271
  1. ;;21,"00591-3331-30 ")
  1. ;;272
  1. ;;21,"00591-3332-05 ")
  1. ;;342
  1. ;;21,"00591-3332-30 ")
  1. ;;343
  1. ;;21,"00591-3540-05 ")
  1. ;;101
  1. ;;21,"00591-3540-60 ")
  1. ;;102
  1. ;;21,"00591-3541-05 ")
  1. ;;166
  1. ;;21,"00591-3541-25 ")
  1. ;;167
  1. ;;21,"00591-3541-60 ")
  1. ;;168
  1. ;;21,"00591-3542-60 ")
  1. ;;321
  1. ;;21,"00591-3543-60 ")
  1. ;;169
  1. ;;21,"00591-3543-76 ")
  1. ;;170
  1. ;;21,"00591-4151-38 ")
  1. ;;2280
  1. ;;21,"00591-5599-01 ")
  1. ;;537
  1. ;;21,"00591-5599-10 ")
  1. ;;538
  1. ;;21,"00591-5600-01 ")
  1. ;;774
  1. ;;21,"00591-5600-10 ")
  1. ;;775
  1. ;;21,"00591-5629-01 ")
  1. ;;4695
  1. ;;21,"00591-5631-01 ")
  1. ;;4821
  1. ;;21,"00591-5631-10 ")
  1. ;;4822
  1. ;;21,"00591-5632-01 ")
  1. ;;4886
  1. ;;21,"00591-5633-01 ")
  1. ;;4734
  1. ;;21,"00591-5713-01 ")
  1. ;;4543
  1. ;;21,"00591-5714-01 ")
  1. ;;4544
  1. ;;21,"00591-5715-01 ")
  1. ;;4541
  1. ;;21,"00591-5716-30 ")
  1. ;;4542
  1. ;;21,"00591-5786-01 ")
  1. ;;5047
  1. ;;21,"00591-5786-05 ")
  1. ;;5048
  1. ;;21,"00591-5787-01 ")
  1. ;;5124
  1. ;;21,"00591-5787-05 ")
  1. ;;5125
  1. ;;21,"00591-5787-10 ")
  1. ;;5126
  1. ;;21,"00591-5788-01 ")
  1. ;;5219
  1. ;;21,"00591-5788-05 ")
  1. ;;5220
  1. ;;21,"00591-5789-01 ")
  1. ;;5257
  1. ;;21,"00603-2212-02 ")
  1. ;;3997
  1. ;;21,"00603-2212-16 ")
  1. ;;3998
  1. ;;21,"00603-2212-21 ")
  1. ;;3999
  1. ;;21,"00603-2212-32 ")
  1. ;;4000
  1. ;;21,"00603-2213-02 ")
  1. ;;4213
  1. ;;21,"00603-2213-21 ")
  1. ;;4214
  1. ;;21,"00603-2213-30 ")
  1. ;;4215
  1. ;;21,"00603-2213-32 ")
  1. ;;4216
  1. ;;21,"00603-2214-21 ")
  1. ;;4376
  1. ;;21,"00603-2214-32 ")
  1. ;;4377
  1. ;;21,"00603-2215-21 ")
  1. ;;4489
  1. ;;21,"00603-2215-25 ")
  1. ;;4490
  1. ;;21,"00603-2216-21 ")
  1. ;;4115
  1. ;;21,"00603-2216-25 ")
  1. ;;4116
  1. ;;21,"00603-2217-21 ")
  1. ;;4186
  1. ;;21,"00603-6147-21 ")
  1. ;;776
  1. ;;21,"00603-6147-32 ")
  1. ;;777
  1. ;;21,"00603-6148-21 ")
  1. ;;539
  1. ;;21,"00603-6148-32 ")
  1. ;;540
  1. ;;21,"00603-6149-21 ")
  1. ;;1454
  1. ;;21,"00603-6150-16 ")
  1. ;;1580
  1. ;;21,"00603-6150-21 ")
  1. ;;1581
  1. ;;21,"00603-6150-25 ")
  1. ;;1582
  1. ;;21,"00603-6151-21 ")
  1. ;;1161
  1. ;;21,"00603-6151-25 ")
  1. ;;1162
  1. ;;21,"00603-6156-21 ")
  1. ;;1275
  1. ;;21,"00603-6157-21 ")
  1. ;;1376
  1. ;;21,"00603-6157-25 ")
  1. ;;1377
  1. ;;21,"00603-6160-02 ")
  1. ;;778
  1. ;;21,"00603-6160-13 ")
  1. ;;779
  1. ;;21,"00603-6160-16 ")
  1. ;;780
  1. ;;21,"00603-6160-20 ")
  1. ;;781
  1. ;;21,"00603-6160-21 ")
  1. ;;782
  1. ;;21,"00603-6160-28 ")
  1. ;;783
  1. ;;21,"00603-6160-32 ")
  1. ;;784
  1. ;;21,"00603-6161-02 ")
  1. ;;541
  1. ;;21,"00603-6161-04 ")
  1. ;;542
  1. ;;21,"00603-6161-16 ")
  1. ;;543
  1. ;;21,"00603-6161-20 ")
  1. ;;544
  1. ;;21,"00603-6161-21 ")
  1. ;;545
  1. ;;21,"00603-6161-28 ")
  1. ;;546
  1. ;;21,"00603-6161-32 ")
  1. ;;547
  1. ;;21,"00615-0828-39 ")
  1. ;;4001
  1. ;;21,"00615-0829-39 ")
  1. ;;4217
  1. ;;21,"00615-0830-39 ")
  1. ;;4378
  1. ;;21,"00641-4513-86 ")
  1. ;;4735
  1. ;;21,"00777-3104-02 ")
  1. ;;2305
  1. ;;21,"00777-3105-02 ")
  1. ;;2459
  1. ;;21,"00777-3105-07 ")
  1. ;;2460
  1. ;;21,"00777-3105-30 ")
  1. ;;2461
  1. ;;21,"00777-3105-33 ")
  1. ;;2462
  1. ;;21,"00777-3107-30 ")
  1. ;;2690
  1. ;;21,"00781-1053-01 ")
  1. ;;403
  1. ;;21,"00781-1053-10 ")
  1. ;;404
  1. ;;21,"00781-1064-01 ")
  1. ;;12
  1. ;;21,"00781-1064-10 ")
  1. ;;13
  1. ;;21,"00781-1486-01 ")
  1. ;;4002
  1. ;;21,"00781-1486-10 ")
  1. ;;4003
  1. ;;21,"00781-1486-31 ")
  1. ;;4004
  1. ;;21,"00781-1487-01 ")
  1. ;;4218
  1. ;;21,"00781-1487-10 ")
  1. ;;4219
  1. ;;21,"00781-1487-31 ")
  1. ;;4220
  1. ;;21,"00781-1488-01 ")
  1. ;;4379
  1. ;;21,"00781-1488-10 ")
  1. ;;4380
  1. ;;21,"00781-1488-31 ")
  1. ;;4381
  1. ;;21,"00781-1489-01 ")
  1. ;;4491
  1. ;;21,"00781-1489-10 ")
  1. ;;4492
  1. ;;21,"00781-1489-31 ")
  1. ;;4493
  1. ;;21,"00781-1490-01 ")
  1. ;;4117
  1. ;;21,"00781-1490-10 ")
  1. ;;4118
  1. ;;21,"00781-1490-31 ")
  1. ;;4119
  1. ;;21,"00781-1491-01 ")
  1. ;;4187
  1. ;;21,"00781-1491-10 ")
  1. ;;4188
  1. ;;21,"00781-1491-31 ")
  1. ;;4189
  1. ;;21,"00781-1529-60 ")
  1. ;;171
  1. ;;21,"00781-1762-01 ")
  1. ;;4906
  1. ;;21,"00781-1764-01 ")
  1. ;;4934
  1. ;;21,"00781-1764-10 ")
  1. ;;4935
  1. ;;21,"00781-1764-13 ")
  1. ;;4936
  1. ;;21,"00781-1766-01 ")
  1. ;;4980
  1. ;;21,"00781-1766-10 ")
  1. ;;4981
  1. ;;21,"00781-1766-13 ")
  1. ;;4982
  1. ;;21,"00781-1971-01 ")
  1. ;;4589
  1. ;;21,"00781-1972-01 ")
  1. ;;4619
  1. ;;21,"00781-1973-01 ")
  1. ;;4667
  1. ;;21,"00781-1974-01 ")
  1. ;;4687
  1. ;;21,"00781-1975-01 ")
  1. ;;4609
  1. ;;21,"00781-1976-50 ")
  1. ;;4615
  1. ;;21,"00781-2027-01 ")
  1. ;;4550
  1. ;;21,"00781-2037-01 ")
  1. ;;4563
  1. ;;21,"00781-2047-01 ")
  1. ;;4577
  1. ;;21,"00781-2191-31 ")
  1. ;;949
  1. ;;21,"00781-2192-31 ")
  1. ;;939
  1. ;;21,"00781-2193-31 ")
  1. ;;961
  1. ;;21,"00781-2194-31 ")
  1. ;;955
  1. ;;21,"00781-2195-31 ")
  1. ;;943
  1. ;;21,"00781-2822-01 ")
  1. ;;2463
  1. ;;21,"00781-2822-10 ")
  1. ;;2464
  1. ;;21,"00781-2823-01 ")
  1. ;;2306
  1. ;;21,"00781-2823-10 ")
  1. ;;2307
  1. ;;21,"00781-2824-01 ")
  1. ;;2691
  1. ;;21,"00781-2824-10 ")
  1. ;;2692
  1. ;;21,"00781-2824-31 ")
  1. ;;2693
  1. ;;21,"00781-2827-08 ")
  1. ;;2308
  1. ;;21,"00781-2828-08 ")
  1. ;;2465
  1. ;;21,"00781-5157-01 ")
  1. ;;1677
  1. ;;21,"00781-5169-60 ")
  1. ;;172
  1. ;;21,"00904-0201-61 ")
  1. ;;4221
  1. ;;21,"00904-0202-61 ")
  1. ;;4382
  1. ;;21,"00904-3990-61 ")
  1. ;;785
  1. ;;21,"00904-3991-61 ")
  1. ;;548
  1. ;;21,"00904-5219-60 ")
  1. ;;786
  1. ;;21,"00904-5676-61 ")
  1. ;;2825
  1. ;;21,"00904-5677-61 ")
  1. ;;2958
  1. ;;21,"00904-5678-61 ")
  1. ;;3134
  1. ;;21,"00904-5679-61 ")
  1. ;;3211
  1. ;;21,"00904-5784-61 ")
  1. ;;2309
  1. ;;21,"00904-5785-61 ")
  1. ;;2466
  1. ;;21,"00904-5913-61 ")
  1. ;;14
  1. ;;21,"00904-6084-61 ")
  1. ;;1678
  1. ;;21,"00904-6085-61 ")
  1. ;;1799
  1. ;;21,"00904-6086-61 ")
  1. ;;1973
  1. ;;21,"00904-6087-61 ")
  1. ;;3477
  1. ;;21,"00904-6088-61 ")
  1. ;;3574
  1. ;;21,"00904-6089-61 ")
  1. ;;3311
  1. ;;21,"00904-6093-61 ")
  1. ;;405
  1. ;;21,"00904-6109-61 ")
  1. ;;2826
  1. ;;21,"00904-6110-61 ")
  1. ;;2959
  1. ;;21,"00904-6111-61 ")
  1. ;;3135
  1. ;;21,"00904-6112-61 ")
  1. ;;3212
  1. ;;21,"00904-6129-61 ")
  1. ;;15
  1. ;;21,"00904-6246-61 ")
  1. ;;1316
  1. ;;21,"00904-6247-61 ")
  1. ;;1494
  1. ;;21,"00904-6248-61 ")
  1. ;;1191
  1. ;;21,"00904-6314-61 ")
  1. ;;2121
  1. ;;21,"00904-6315-61 ")
  1. ;;2198
  1. ;;21,"00904-6331-61 ")
  1. ;;3478
  1. ;;21,"00904-6332-61 ")
  1. ;;3575
  1. ;;21,"00904-6333-61 ")
  1. ;;3312
  1. ;;21,"00904-6366-61 ")
  1. ;;998
  1. ;;21,"00904-6367-61 ")
  1. ;;1029
  1. ;;21,"00904-6368-61 ")
  1. ;;1095
  1. ;;21,"00904-6426-61 ")
  1. ;;2122
  1. ;;21,"00904-6427-61 ")
  1. ;;2199
  1. ;;21,"00904-6468-61 ")
  1. ;;1317
  1. ;;21,"00904-6469-61 ")
  1. ;;1495
  1. ;;21,"00904-6470-61 ")
  1. ;;1192
  1. ;;21,"10370-0101-00 ")
  1. ;;273
  1. ;;21,"10370-0101-03 ")
  1. ;;274
  1. ;;21,"10370-0101-50 ")
  1. ;;275
  1. ;;21,"10370-0102-00 ")
  1. ;;344
  1. ;;21,"10370-0102-03 ")
  1. ;;345
  1. ;;21,"10370-0102-50 ")
  1. ;;346
  1. ;;21,"10370-0159-06 ")
  1. ;;103
  1. ;;21,"10370-0160-06 ")
  1. ;;173
  1. ;;21,"10370-0160-10 ")
  1. ;;174
  1. ;;21,"10370-0160-50 ")
  1. ;;175
  1. ;;21,"10370-0161-06 ")
  1. ;;322
  1. ;;21,"10370-0175-11 ")
  1. ;;2760
  1. ;;21,"10370-0176-11 ")
  1. ;;2782
  1. ;;21,"10544-0109-30 ")
  1. ;;4222
  1. ;;21,"10544-0110-30 ")
  1. ;;4383
  1. ;;21,"10544-0110-60 ")
  1. ;;4384
  1. ;;21,"10544-0110-90 ")
  1. ;;4385
  1. ;;21,"10544-0149-30 ")
  1. ;;1800
  1. ;;21,"10544-0150-30 ")
  1. ;;1974
  1. ;;21,"10544-0181-30 ")
  1. ;;2467
  1. ;;21,"10544-0329-30 ")
  1. ;;4223
  1. ;;21,"10544-0336-30 ")
  1. ;;2468
  1. ;;21,"10544-0346-30 ")
  1. ;;787
  1. ;;21,"10544-0346-60 ")
  1. ;;788
  1. ;;21,"10544-0405-30 ")
  1. ;;4494
  1. ;;21,"10544-0533-30 ")
  1. ;;667
  1. ;;21,"10768-7060-03 ")
  1. ;;1679
  1. ;;21,"10768-7191-03 ")
  1. ;;1801
  1. ;;21,"10768-7616-03 ")
  1. ;;1975
  1. ;;21,"12280-0065-00 ")
  1. ;;1680
  1. ;;21,"12280-0171-60 ")
  1. ;;1096
  1. ;;21,"13107-0001-05 ")
  1. ;;3981
  1. ;;21,"13107-0001-30 ")
  1. ;;3982
  1. ;;21,"13107-0003-05 ")
  1. ;;3840
  1. ;;21,"13107-0003-30 ")
  1. ;;3841
  1. ;;21,"13107-0003-34 ")
  1. ;;3842
  1. ;;21,"13107-0005-01 ")
  1. ;;1681
  1. ;;21,"13107-0005-05 ")
  1. ;;1682
  1. ;;21,"13107-0006-01 ")
  1. ;;1802
  1. ;;21,"13107-0006-05 ")
  1. ;;1803
  1. ;;21,"13107-0007-01 ")
  1. ;;1976
  1. ;;21,"13107-0007-05 ")
  1. ;;1977
  1. ;;21,"13107-0031-05 ")
  1. ;;3748
  1. ;;21,"13107-0031-30 ")
  1. ;;3749
  1. ;;21,"13107-0031-34 ")
  1. ;;3750
  1. ;;21,"13107-0032-05 ")
  1. ;;3930
  1. ;;21,"13107-0032-30 ")
  1. ;;3931
  1. ;;21,"13107-0032-34 ")
  1. ;;3932
  1. ;;21,"13107-0154-05 ")
  1. ;;2827
  1. ;;21,"13107-0154-30 ")
  1. ;;2828
  1. ;;21,"13107-0154-90 ")
  1. ;;2829
  1. ;;21,"13107-0155-05 ")
  1. ;;2960
  1. ;;21,"13107-0155-30 ")
  1. ;;2961
  1. ;;21,"13107-0155-90 ")
  1. ;;2962
  1. ;;21,"13107-0155-99 ")
  1. ;;2963
  1. ;;21,"13107-0156-05 ")
  1. ;;3136
  1. ;;21,"13107-0156-30 ")
  1. ;;3137
  1. ;;21,"13107-0156-90 ")
  1. ;;3138
  1. ;;21,"13107-0156-99 ")
  1. ;;3139
  1. ;;21,"13107-0157-05 ")
  1. ;;3213
  1. ;;21,"13107-0157-30 ")
  1. ;;3214
  1. ;;21,"13107-0157-90 ")
  1. ;;3215
  1. ;;21,"13107-0157-99 ")
  1. ;;3216
  1. ;;21,"13411-0100-03 ")
  1. ;;1318
  1. ;;21,"13411-0109-01 ")
  1. ;;1319