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

BGP33I3.m

Go to the documentation of this file.
BGP33I3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 23, 2013;
 ;;13.0;IHS CLINICAL REPORTING;**1**;NOV 20, 2012;Build 7
 ;
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-9925-01 ")
 ;;2611
 ;;21,"00406-9925-03 ")
 ;;2612
 ;;21,"00406-9926-01 ")
 ;;2616
 ;;21,"00406-9926-03 ")
 ;;2617
 ;;21,"00406-9931-03 ")
 ;;2623
 ;;21,"00406-9932-03 ")
 ;;2608
 ;;21,"00406-9933-03 ")
 ;;2613
 ;;21,"00406-9934-03 ")
 ;;2618
 ;;21,"00430-0210-14 ")
 ;;2072
 ;;21,"00430-0215-14 ")
 ;;2095
 ;;21,"00430-0220-14 ")
 ;;2322
 ;;21,"00440-7090-30 ")
 ;;8
 ;;21,"00440-7091-30 ")
 ;;208
 ;;21,"00440-7092-30 ")
 ;;359
 ;;21,"00440-7477-30 ")
 ;;1661
 ;;21,"00440-7478-30 ")
 ;;1726
 ;;21,"00440-7521-30 ")
 ;;2132
 ;;21,"00440-8575-20 ")
 ;;4377
 ;;21,"00440-8576-30 ")
 ;;4152
 ;;21,"00456-1100-31 ")
 ;;5010
 ;;21,"00456-1110-30 ")
 ;;5007
 ;;21,"00456-1120-30 ")
 ;;5008
 ;;21,"00456-1140-30 ")
 ;;5009
 ;;21,"00456-2005-01 ")
 ;;1933
 ;;21,"00456-2010-01 ")
 ;;1844
 ;;21,"00456-2010-11 ")
 ;;1845
 ;;21,"00456-2010-63 ")
 ;;1846
 ;;21,"00456-2020-01 ")
 ;;1895
 ;;21,"00456-2020-11 ")
 ;;1896
 ;;21,"00456-2020-63 ")
 ;;1897
 ;;21,"00456-2101-08 ")
 ;;1940
 ;;21,"00456-4010-01 ")
 ;;975
 ;;21,"00456-4020-01 ")
 ;;1083
 ;;21,"00456-4020-63 ")
 ;;1084
 ;;21,"00456-4040-01 ")
 ;;1239
 ;;21,"00456-4130-08 ")
 ;;1056
 ;;21,"00490-0034-00 ")
 ;;4804
 ;;21,"00490-0034-30 ")
 ;;4805
 ;;21,"00490-0034-60 ")
 ;;4806
 ;;21,"00490-0034-90 ")
 ;;4807
 ;;21,"00490-0114-00 ")
 ;;4924
 ;;21,"00490-0114-30 ")
 ;;4925
 ;;21,"00490-0114-60 ")
 ;;4926
 ;;21,"00490-0114-90 ")
 ;;4927
 ;;21,"00490-0163-00 ")
 ;;845
 ;;21,"00490-0163-30 ")
 ;;846
 ;;21,"00490-0163-60 ")
 ;;847
 ;;21,"00490-0163-90 ")
 ;;848
 ;;21,"00555-0201-01 ")
 ;;2073
 ;;21,"00555-0241-71 ")
 ;;2728
 ;;21,"00555-0242-71 ")
 ;;2823
 ;;21,"00555-0489-02 ")
 ;;4378
 ;;21,"00555-0489-04 ")
 ;;4379
 ;;21,"00555-0490-02 ")
 ;;4153
 ;;21,"00555-0490-04 ")
 ;;4154
 ;;21,"00555-0594-02 ")
 ;;3688
 ;;21,"00555-0595-02 ")
 ;;3694
 ;;21,"00555-0732-02 ")
 ;;4280
 ;;21,"00555-0732-04 ")
 ;;4281
 ;;21,"00555-0733-02 ")
 ;;4354
 ;;21,"00555-0871-54 ")
 ;;2424
 ;;21,"00555-0871-88 ")
 ;;2425
 ;;21,"00555-0876-02 ")
 ;;1973
 ;;21,"00555-0877-02 ")
 ;;2133
 ;;21,"00555-0877-04 ")
 ;;2134
 ;;21,"00555-0877-05 ")
 ;;2135
 ;;21,"00555-0877-07 ")
 ;;2136
 ;;21,"00555-0967-02 ")
 ;;2471
 ;;21,"00555-0968-02 ")
 ;;2482
 ;;21,"00555-0969-02 ")
 ;;2453
 ;;21,"00555-7243-71 ")
 ;;2883
 ;;21,"00591-0764-60 ")
 ;;2898
 ;;21,"00591-0767-60 ")
 ;;2948
 ;;21,"00591-0809-01 ")
 ;;1477
 ;;21,"00591-0809-05 ")
 ;;1478
 ;;21,"00591-0839-25 ")
 ;;690
 ;;21,"00591-0839-60 ")
 ;;691
 ;;21,"00591-0858-60 ")
 ;;627
 ;;21,"00591-1117-10 ")
 ;;2657
 ;;21,"00591-1117-30 ")
 ;;2658
 ;;21,"00591-1118-10 ")
 ;;2749
 ;;21,"00591-1118-30 ")
 ;;2750
 ;;21,"00591-1119-30 ")
 ;;2838
 ;;21,"00591-2114-01 ")
 ;;1590
 ;;21,"00591-2230-15 ")
 ;;2729
 ;;21,"00591-2231-15 ")
 ;;2824
 ;;21,"00591-3176-01 ")
 ;;976
 ;;21,"00591-3176-05 ")
 ;;977
 ;;21,"00591-3177-01 ")
 ;;1085
 ;;21,"00591-3177-05 ")
 ;;1086
 ;;21,"00591-3178-01 ")
 ;;1240
 ;;21,"00591-3178-05 ")
 ;;1241
 ;;21,"00591-3238-19 ")
 ;;3905
 ;;21,"00591-3238-30 ")
 ;;3906
 ;;21,"00591-3239-10 ")
 ;;4005
 ;;21,"00591-3239-19 ")
 ;;4006
 ;;21,"00591-3239-30 ")
 ;;4007
 ;;21,"00591-3240-10 ")
 ;;3738
 ;;21,"00591-3240-19 ")
 ;;3739
 ;;21,"00591-3240-30 ")
 ;;3740
 ;;21,"00591-3331-05 ")
 ;;783
 ;;21,"00591-3331-19 ")
 ;;784
 ;;21,"00591-3331-30 ")
 ;;785
 ;;21,"00591-3332-05 ")
 ;;849
 ;;21,"00591-3332-30 ")
 ;;850
 ;;21,"00591-3385-60 ")
 ;;831
 ;;21,"00591-3540-05 ")
 ;;628
 ;;21,"00591-3540-60 ")
 ;;629
 ;;21,"00591-3541-05 ")
 ;;692
 ;;21,"00591-3541-25 ")
 ;;693
 ;;21,"00591-3541-60 ")
 ;;694
 ;;21,"00591-3542-60 ")
 ;;832
 ;;21,"00591-3543-60 ")
 ;;695
 ;;21,"00591-3543-76 ")
 ;;696
 ;;21,"00591-5599-01 ")
 ;;4155
 ;;21,"00591-5599-10 ")
 ;;4156
 ;;21,"00591-5600-01 ")
 ;;4380
 ;;21,"00591-5600-10 ")
 ;;4381
 ;;21,"00591-5629-01 ")
 ;;1516
 ;;21,"00591-5631-01 ")
 ;;1662
 ;;21,"00591-5631-10 ")
 ;;1663
 ;;21,"00591-5632-01 ")
 ;;1727
 ;;21,"00591-5633-01 ")
 ;;1560
 ;;21,"00591-5713-01 ")
 ;;520
 ;;21,"00591-5714-01 ")
 ;;521
 ;;21,"00591-5715-01 ")
 ;;517
 ;;21,"00591-5716-30 ")
 ;;519
 ;;21,"00591-5786-01 ")
 ;;2969
 ;;21,"00591-5786-05 ")
 ;;2970
 ;;21,"00591-5787-01 ")
 ;;3054
 ;;21,"00591-5787-05 ")
 ;;3055
 ;;21,"00591-5787-10 ")
 ;;3056
 ;;21,"00591-5788-01 ")
 ;;3146
 ;;21,"00591-5788-05 ")
 ;;3147
 ;;21,"00591-5789-01 ")
 ;;3188
 ;;21,"00603-2212-02 ")
 ;;9
 ;;21,"00603-2212-16 ")
 ;;10
 ;;21,"00603-2212-21 ")
 ;;11
 ;;21,"00603-2212-32 ")
 ;;12
 ;;21,"00603-2213-21 ")
 ;;209
 ;;21,"00603-2213-30 ")
 ;;210
 ;;21,"00603-2213-32 ")
 ;;211
 ;;21,"00603-2214-21 ")
 ;;360
 ;;21,"00603-2214-32 ")
 ;;361
 ;;21,"00603-2215-21 ")
 ;;455
 ;;21,"00603-2216-21 ")
 ;;127
 ;;21,"00603-2217-21 ")
 ;;181
 ;;21,"00603-6147-21 ")
 ;;4382
 ;;21,"00603-6147-32 ")
 ;;4383
 ;;21,"00603-6148-21 ")
 ;;4157
 ;;21,"00603-6148-32 ")
 ;;4158
 ;;21,"00603-6149-21 ")
 ;;4808
 ;;21,"00603-6150-16 ")
 ;;4928
 ;;21,"00603-6150-21 ")
 ;;4929
 ;;21,"00603-6150-25 ")
 ;;4930
 ;;21,"00603-6151-21 ")
 ;;4533
 ;;21,"00603-6151-25 ")
 ;;4534
 ;;21,"00603-6156-21 ")
 ;;4642
 ;;21,"00603-6157-21 ")
 ;;4739
 ;;21,"00603-6157-25 ")
 ;;4740
 ;;21,"00603-6160-02 ")
 ;;4384
 ;;21,"00603-6160-13 ")
 ;;4385
 ;;21,"00603-6160-16 ")
 ;;4386
 ;;21,"00603-6160-20 ")
 ;;4387
 ;;21,"00603-6160-21 ")
 ;;4388
 ;;21,"00603-6160-28 ")
 ;;4389
 ;;21,"00603-6160-32 ")
 ;;4390
 ;;21,"00603-6161-02 ")
 ;;4159
 ;;21,"00603-6161-04 ")
 ;;4160
 ;;21,"00603-6161-16 ")
 ;;4161
 ;;21,"00603-6161-20 ")
 ;;4162
 ;;21,"00603-6161-21 ")
 ;;4163
 ;;21,"00603-6161-28 ")
 ;;4164
 ;;21,"00603-6161-32 ")
 ;;4165
 ;;21,"00777-3104-02 ")
 ;;1974
 ;;21,"00777-3105-02 ")
 ;;2137
 ;;21,"00777-3105-07 ")
 ;;2138
 ;;21,"00777-3105-30 ")
 ;;2139
 ;;21,"00777-3105-33 ")
 ;;2140
 ;;21,"00777-3107-30 ")
 ;;2369
 ;;21,"00777-5120-58 ")
 ;;2351
 ;;21,"00781-1053-01 ")
 ;;905
 ;;21,"00781-1053-10 ")
 ;;906
 ;;21,"00781-1064-01 ")
 ;;534
 ;;21,"00781-1064-10 ")
 ;;535
 ;;21,"00781-1486-01 ")
 ;;13
 ;;21,"00781-1486-10 ")
 ;;14
 ;;21,"00781-1487-01 ")
 ;;212
 ;;21,"00781-1487-10 ")
 ;;213
 ;;21,"00781-1488-01 ")
 ;;362
 ;;21,"00781-1488-10 ")
 ;;363
 ;;21,"00781-1489-01 ")
 ;;456
 ;;21,"00781-1490-01 ")
 ;;128
 ;;21,"00781-1491-01 ")
 ;;182
 ;;21,"00781-1529-60 ")
 ;;697
 ;;21,"00781-1762-01 ")
 ;;2497
 ;;21,"00781-1764-01 ")
 ;;2524
 ;;21,"00781-1764-10 ")
 ;;2525
 ;;21,"00781-1764-13 ")
 ;;2526
 ;;21,"00781-1766-01 ")
 ;;2569
 ;;21,"00781-1766-10 ")
 ;;2570
 ;;21,"00781-1766-13 ")
 ;;2571
 ;;21,"00781-1971-01 ")
 ;;1384
 ;;21,"00781-1972-01 ")
 ;;1424
 ;;21,"00781-1973-01 ")
 ;;1479
 ;;21,"00781-1974-01 ")
 ;;1499
 ;;21,"00781-1975-01 ")
 ;;1404
 ;;21,"00781-1976-50 ")
 ;;1411
 ;;21,"00781-2027-01 ")
 ;;1352
 ;;21,"00781-2037-01 ")
 ;;1363
 ;;21,"00781-2047-01 ")
 ;;1373
 ;;21,"00781-2822-01 ")
 ;;2141
 ;;21,"00781-2822-10 ")
 ;;2142
 ;;21,"00781-2823-01 ")
 ;;1975
 ;;21,"00781-2823-10 ")
 ;;1976
 ;;21,"00781-2824-01 ")
 ;;2370
 ;;21,"00781-2824-10 ")
 ;;2371
 ;;21,"00781-2824-31 ")
 ;;2372
 ;;21,"00781-2827-08 ")
 ;;1977
 ;;21,"00781-2828-08 ")
 ;;2143
 ;;21,"00781-5157-01 ")
 ;;978
 ;;21,"00904-0200-60 ")
 ;;15
 ;;21,"00904-0201-61 ")
 ;;214
 ;;21,"00904-0202-60 ")
 ;;364
 ;;21,"00904-0202-61 ")
 ;;365
 ;;21,"00904-0203-61 ")
 ;;457
 ;;21,"00904-1261-61 ")
 ;;1591
 ;;21,"00904-1262-61 ")
 ;;1664
 ;;21,"00904-3991-61 ")
 ;;4166
 ;;21,"00904-5219-40 ")
 ;;4391
 ;;21,"00904-5219-60 ")
 ;;4392
 ;;21,"00904-5219-80 ")
 ;;4393
 ;;21,"00904-5220-60 ")
 ;;4167
 ;;21,"00904-5676-61 ")
 ;;3220
 ;;21,"00904-5677-61 ")
 ;;3351
 ;;21,"00904-5678-61 ")
 ;;3526
 ;;21,"00904-5679-61 ")
 ;;3604
 ;;21,"00904-5784-61 ")
 ;;1978
 ;;21,"00904-5785-61 ")
 ;;2144
 ;;21,"00904-5866-61 ")
 ;;3907
 ;;21,"00904-5867-61 ")
 ;;4008
 ;;21,"00904-5868-61 ")
 ;;3741
 ;;21,"00904-5913-61 ")
 ;;536
 ;;21,"00904-5914-61 ")
 ;;907
 ;;21,"00904-6084-61 ")
 ;;979
 ;;21,"00904-6085-61 ")
 ;;1087
 ;;21,"00904-6086-61 ")
 ;;1242
 ;;21,"00904-6087-61 ")
 ;;3908
 ;;21,"00904-6088-61 ")
 ;;4009
 ;;21,"00904-6089-61 ")
 ;;3742
 ;;21,"00904-6093-61 ")
 ;;908
 ;;21,"00904-6109-61 ")
 ;;3221
 ;;21,"00904-6110-61 ")
 ;;3352
 ;;21,"00904-6111-61 ")
 ;;3527
 ;;21,"00904-6112-61 ")
 ;;3605
 ;;21,"00904-6129-61 ")
 ;;537
 ;;21,"00904-6246-61 ")
 ;;4676
 ;;21,"00904-6247-61 ")
 ;;4841
 ;;21,"00904-6248-61 ")
 ;;4555
 ;;21,"10370-0101-00 ")
 ;;786
 ;;21,"10370-0101-03 ")
 ;;787
 ;;21,"10370-0101-50 ")
 ;;788
 ;;21,"10370-0102-00 ")
 ;;851
 ;;21,"10370-0102-03 ")
 ;;852
 ;;21,"10370-0102-50 ")
 ;;853
 ;;21,"10370-0159-06 ")
 ;;630
 ;;21,"10370-0160-06 ")
 ;;698
 ;;21,"10370-0160-10 ")
 ;;699
 ;;21,"10370-0160-50 ")
 ;;700
 ;;21,"10370-0161-06 ")
 ;;833
 ;;21,"10544-0329-30 ")
 ;;215
 ;;21,"10544-0336-30 ")
 ;;2145
 ;;21,"10544-0346-30 ")
 ;;4394
 ;;21,"10544-0346-60 ")
 ;;4395
 ;;21,"10544-0405-30 ")
 ;;458
 ;;21,"10544-0413-30 ")
 ;;16
 ;;21,"10768-7060-03 ")
 ;;980
 ;;21,"10768-7191-03 ")
 ;;1088
 ;;21,"10768-7616-03 ")
 ;;1243
 ;;21,"12280-0011-00 ")
 ;;4931
 ;;21,"12280-0011-60 ")
 ;;4932
 ;;21,"12280-0016-15 ")
 ;;3307
 ;;21,"12280-0017-15 ")
 ;;3493
 ;;21,"12280-0018-15 ")
 ;;3585
 ;;21,"12280-0023-15 ")
 ;;854
 ;;21,"12280-0032-00 ")
 ;;1898
 ;;21,"12280-0065-00 ")
 ;;981
 ;;21,"12280-0074-00 ")
 ;;459
 ;;21,"12280-0163-15 ")
 ;;1764
 ;;21,"12280-0163-30 ")
 ;;1765
 ;;21,"12280-0169-00 ")
 ;;1244
 ;;21,"12280-0169-30 ")
 ;;1245
 ;;21,"12280-0170-60 ")
 ;;1750
 ;;21,"12280-0171-15 ")
 ;;1802
 ;;21,"12280-0171-30 ")
 ;;1803
 ;;21,"12280-0171-60 ")
 ;;1804
 ;;21,"12280-0211-00 ")
 ;;1089
 ;;21,"13107-0003-05 ")
 ;;2751
 ;;21,"13107-0003-30 ")
 ;;2752
 ;;21,"13107-0003-34 ")
 ;;2753
 ;;21,"13107-0005-01 ")
 ;;982
 ;;21,"13107-0005-05 ")
 ;;983
 ;;21,"13107-0006-01 ")
 ;;1090
 ;;21,"13107-0006-05 ")
 ;;1091
 ;;21,"13107-0007-01 ")
 ;;1246
 ;;21,"13107-0007-05 ")
 ;;1247
 ;;21,"13107-0031-05 ")
 ;;2659
 ;;21,"13107-0031-30 ")
 ;;2660
 ;;21,"13107-0031-34 ")
 ;;2661
 ;;21,"13107-0032-05 ")
 ;;2839
 ;;21,"13107-0032-30 ")
 ;;2840
 ;;21,"13107-0032-34 ")
 ;;2841
 ;;21,"13107-0154-30 ")
 ;;3222
 ;;21,"13107-0155-05 ")
 ;;3353
 ;;21,"13107-0155-30 ")
 ;;3354
 ;;21,"13107-0155-99 ")
 ;;3355
 ;;21,"13107-0156-30 ")
 ;;3528
 ;;21,"13107-0156-99 ")
 ;;3529
 ;;21,"13107-0157-30 ")
 ;;3606
 ;;21,"13107-0157-99 ")
 ;;3607
 ;;21,"13411-0100-03 ")
 ;;4677
 ;;21,"13411-0109-01 ")
 ;;4678
 ;;21,"13411-0109-06 ")
 ;;4679
 ;;21,"13411-0109-09 ")
 ;;4680
 ;;21,"13411-0109-10 ")
 ;;4681
 ;;21,"13411-0110-01 ")
 ;;4842
 ;;21,"13411-0110-03 ")
 ;;4843
 ;;21,"13411-0110-06 ")
 ;;4844
 ;;21,"13411-0110-09 ")
 ;;4845
 ;;21,"13411-0110-10 ")
 ;;4846
 ;;21,"13411-0152-01 ")
 ;;4010
 ;;21,"13411-0152-03 ")
 ;;4011
 ;;21,"13411-0152-06 ")
 ;;4012
 ;;21,"13411-0152-09 ")
 ;;4013
 ;;21,"13411-0152-15 ")
 ;;4014
 ;;21,"13411-0153-01 ")
 ;;3743
 ;;21,"13411-0153-03 ")
 ;;3744
 ;;21,"13411-0153-06 ")
 ;;3745
 ;;21,"13411-0153-09 ")
 ;;3746
 ;;21,"13411-0153-15 ")
 ;;3747
 ;;21,"13411-0172-01 ")
 ;;1979
 ;;21,"13411-0172-03 ")
 ;;1980
 ;;21,"13411-0172-06 ")
 ;;1981
 ;;21,"13411-0172-09 ")
 ;;1982
 ;;21,"13411-0172-10 ")
 ;;1983
 ;;21,"13411-0173-01 ")
 ;;2146
 ;;21,"13411-0173-03 ")
 ;;2147
 ;;21,"13411-0173-06 ")
 ;;2148
 ;;21,"13411-0173-09 ")
 ;;2149
 ;;21,"13411-0173-10 ")
 ;;2150
 ;;21,"13668-0004-01 ")
 ;;3909
 ;;21,"13668-0004-05 ")
 ;;3910
 ;;21,"13668-0004-10 ")
 ;;3911
 ;;21,"13668-0004-30 ")
 ;;3912
 ;;21,"13668-0004-50 ")
 ;;3913
 ;;21,"13668-0004-90 ")
 ;;3914
 ;;21,"13668-0005-01 ")
 ;;4015
 ;;21,"13668-0005-05 ")
 ;;4016
 ;;21,"13668-0005-10 ")
 ;;4017
 ;;21,"13668-0005-30 ")
 ;;4018
 ;;21,"13668-0005-50 ")
 ;;4019
 ;;21,"13668-0005-90 ")
 ;;4020
 ;;21,"13668-0006-01 ")
 ;;3748
 ;;21,"13668-0006-05 ")
 ;;3749
 ;;21,"13668-0006-10 ")
 ;;3750
 ;;21,"13668-0006-30 ")
 ;;3751
 ;;21,"13668-0006-50 ")
 ;;3752
 ;;21,"13668-0006-90 ")
 ;;3753
 ;;21,"13668-0009-01 ")
 ;;984
 ;;21,"13668-0009-05 ")
 ;;985
 ;;21,"13668-0009-09 ")
 ;;986
 ;;21,"13668-0009-74 ")
 ;;987
 ;;21,"13668-0010-01 ")
 ;;1092
 ;;21,"13668-0010-05 ")
 ;;1093
 ;;21,"13668-0010-06 ")
 ;;1094
 ;;21,"13668-0010-30 ")
 ;;1095
 ;;21,"13668-0010-74 ")
 ;;1096
 ;;21,"13668-0011-01 ")
 ;;1248
 ;;21,"13668-0011-05 ")
 ;;1249
 ;;21,"13668-0011-08 ")
 ;;1250
 ;;21,"13668-0011-30 ")
 ;;1251
 ;;21,"13668-0018-30 ")
 ;;4682
 ;;21,"13668-0018-90 ")
 ;;4683
 ;;21,"13668-0019-30 ")
 ;;4847
 ;;21,"13668-0019-90 ")
 ;;4848
 ;;21,"13668-0020-30 ")
 ;;4556
 ;;21,"13668-0020-90 ")
 ;;4557
 ;;21,"16241-0759-01 ")
 ;;2323