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