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

BGP51Q6.m

Go to the documentation of this file.
BGP51Q6 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 19, 2014;
 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
 ;
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,"51138-0065-30 ")
 ;;1349
 ;;21,"51138-0066-30 ")
 ;;1690
 ;;21,"51138-0067-30 ")
 ;;1741
 ;;21,"51138-0068-30 ")
 ;;1871
 ;;21,"51138-0134-30 ")
 ;;1074
 ;;21,"51138-0135-30 ")
 ;;1124
 ;;21,"51138-0136-30 ")
 ;;1350
 ;;21,"51138-0137-30 ")
 ;;1689
 ;;21,"51138-0138-30 ")
 ;;1742
 ;;21,"51138-0139-30 ")
 ;;1870
 ;;21,"51138-0211-30 ")
 ;;2848
 ;;21,"51138-0212-30 ")
 ;;2860
 ;;21,"51138-0213-30 ")
 ;;2883
 ;;21,"51138-0217-30 ")
 ;;2402
 ;;21,"51138-0217-60 ")
 ;;2403
 ;;21,"51138-0218-30 ")
 ;;2453
 ;;21,"51138-0218-60 ")
 ;;2454
 ;;21,"51138-0219-30 ")
 ;;2513
 ;;21,"51138-0219-60 ")
 ;;2514
 ;;21,"51138-0224-30 ")
 ;;4113
 ;;21,"51138-0225-30 ")
 ;;4114
 ;;21,"51138-0226-30 ")
 ;;4135
 ;;21,"51138-0231-30 ")
 ;;3835
 ;;21,"51138-0232-30 ")
 ;;3871
 ;;21,"51138-0306-10 ")
 ;;4176
 ;;21,"51138-0306-30 ")
 ;;4177
 ;;21,"51138-0307-10 ")
 ;;4212
 ;;21,"51138-0307-30 ")
 ;;4213
 ;;21,"51138-0308-30 ")
 ;;4273
 ;;21,"51138-0309-30 ")
 ;;4319
 ;;21,"51138-0310-30 ")
 ;;4349
 ;;21,"51138-0327-30 ")
 ;;3362
 ;;21,"51138-0328-30 ")
 ;;3375
 ;;21,"51138-0329-30 ")
 ;;2013
 ;;21,"51138-0330-30 ")
 ;;2040
 ;;21,"51138-0331-30 ")
 ;;2069
 ;;21,"51138-0332-30 ")
 ;;2099
 ;;21,"51138-0333-30 ")
 ;;508
 ;;21,"51138-0334-30 ")
 ;;591
 ;;21,"51138-0335-30 ")
 ;;689
 ;;21,"51138-0336-30 ")
 ;;801
 ;;21,"51138-0348-30 ")
 ;;2012
 ;;21,"51138-0349-30 ")
 ;;2041
 ;;21,"51138-0350-30 ")
 ;;2068
 ;;21,"51138-0351-30 ")
 ;;2100
 ;;21,"51138-0357-30 ")
 ;;3718
 ;;21,"51138-0358-10 ")
 ;;3736
 ;;21,"51138-0358-30 ")
 ;;3737
 ;;21,"51138-0359-30 ")
 ;;3744
 ;;21,"51138-0379-30 ")
 ;;20
 ;;21,"51138-0380-30 ")
 ;;37
 ;;21,"51138-0381-30 ")
 ;;105
 ;;21,"51138-0382-30 ")
 ;;184
 ;;21,"51138-0392-30 ")
 ;;3287
 ;;21,"51138-0393-30 ")
 ;;3297
 ;;21,"51138-0394-30 ")
 ;;3317
 ;;21,"51138-0395-30 ")
 ;;3336
 ;;21,"51138-0396-30 ")
 ;;21
 ;;21,"51138-0397-30 ")
 ;;36
 ;;21,"51138-0398-30 ")
 ;;106
 ;;21,"51138-0399-30 ")
 ;;183
 ;;21,"51138-0418-30 ")
 ;;3018
 ;;21,"51138-0419-30 ")
 ;;3042
 ;;21,"51138-0420-30 ")
 ;;3095
 ;;21,"51138-0422-30 ")
 ;;3181
 ;;21,"51138-0424-30 ")
 ;;2129
 ;;21,"51138-0425-30 ")
 ;;2158
 ;;21,"51138-0426-10 ")
 ;;2211
 ;;21,"51138-0426-30 ")
 ;;2212
 ;;21,"51138-0427-10 ")
 ;;2275
 ;;21,"51138-0427-30 ")
 ;;2276
 ;;21,"51138-0432-30 ")
 ;;3017
 ;;21,"51138-0433-30 ")
 ;;3043
 ;;21,"51138-0434-30 ")
 ;;3094
 ;;21,"51138-0435-30 ")
 ;;3182
 ;;21,"51138-0443-30 ")
 ;;3363
 ;;21,"51138-0444-30 ")
 ;;3374
 ;;21,"51138-0476-30 ")
 ;;3909
 ;;21,"51138-0477-30 ")
 ;;3975
 ;;21,"51138-0478-30 ")
 ;;4039
 ;;21,"51138-0493-30 ")
 ;;2374
 ;;21,"51138-0494-30 ")
 ;;2389
 ;;21,"51138-0505-15 ")
 ;;275
 ;;21,"51138-0505-30 ")
 ;;276
 ;;21,"51138-0506-30 ")
 ;;316
 ;;21,"51138-0507-30 ")
 ;;403
 ;;21,"51138-0508-20 ")
 ;;457
 ;;21,"51138-0508-45 ")
 ;;458
 ;;21,"51138-0515-30 ")
 ;;2564
 ;;21,"51138-0516-30 ")
 ;;2649
 ;;21,"51138-0517-30 ")
 ;;2759
 ;;21,"51138-0520-30 ")
 ;;854
 ;;21,"51138-0521-30 ")
 ;;896
 ;;21,"51138-0522-30 ")
 ;;959
 ;;21,"51138-0523-30 ")
 ;;838
 ;;21,"51138-0524-30 ")
 ;;877
 ;;21,"51138-0525-30 ")
 ;;941
 ;;21,"51138-0531-10 ")
 ;;3037
 ;;21,"51138-0531-30 ")
 ;;3038
 ;;21,"51138-0532-10 ")
 ;;3086
 ;;21,"51138-0532-30 ")
 ;;3087
 ;;21,"51138-0533-10 ")
 ;;3143
 ;;21,"51138-0533-30 ")
 ;;3144
 ;;21,"51138-0534-10 ")
 ;;3172
 ;;21,"51138-0534-30 ")
 ;;3173
 ;;21,"51138-0535-10 ")
 ;;3231
 ;;21,"51138-0535-30 ")
 ;;3232
 ;;21,"51138-0536-10 ")
 ;;3261
 ;;21,"51138-0536-30 ")
 ;;3262
 ;;21,"51138-0551-30 ")
 ;;3448
 ;;21,"51138-0552-30 ")
 ;;3531
 ;;21,"51138-0553-30 ")
 ;;3639
 ;;21,"51138-0554-30 ")
 ;;3450
 ;;21,"51138-0555-30 ")
 ;;3530
 ;;21,"51138-0556-30 ")
 ;;3640
 ;;21,"51138-0573-30 ")
 ;;2320
 ;;21,"51138-0574-30 ")
 ;;2322
 ;;21,"51138-0575-10 ")
 ;;2340
 ;;21,"51138-0575-30 ")
 ;;2341
 ;;21,"51138-0576-30 ")
 ;;3265
 ;;21,"51138-0577-20 ")
 ;;3270
 ;;21,"51138-0577-30 ")
 ;;3271
 ;;21,"51138-0578-10 ")
 ;;3276
 ;;21,"51138-0578-30 ")
 ;;3277
 ;;21,"51138-0579-10 ")
 ;;3284
 ;;21,"51138-0579-20 ")
 ;;3285
 ;;21,"51138-0579-30 ")
 ;;3286
 ;;21,"51672-4037-01 ")
 ;;509
 ;;21,"51672-4037-03 ")
 ;;510
 ;;21,"51672-4038-01 ")
 ;;589
 ;;21,"51672-4038-03 ")
 ;;590
 ;;21,"51672-4039-01 ")
 ;;690
 ;;21,"51672-4039-03 ")
 ;;691
 ;;21,"51672-4040-01 ")
 ;;799
 ;;21,"51672-4040-03 ")
 ;;800
 ;;21,"51672-4045-01 ")
 ;;3361
 ;;21,"51672-4046-01 ")
 ;;3376
 ;;21,"52652-1001-01 ")
 ;;837
 ;;21,"52959-0137-15 ")
 ;;3449
 ;;21,"52959-0180-30 ")
 ;;692
 ;;21,"52959-0180-60 ")
 ;;693
 ;;21,"52959-0498-00 ")
 ;;3494
 ;;21,"52959-0728-15 ")
 ;;1337
 ;;21,"52959-0728-20 ")
 ;;1338
 ;;21,"52959-0728-30 ")
 ;;1339
 ;;21,"52959-0728-90 ")
 ;;1340
 ;;21,"52959-0729-30 ")
 ;;1699
 ;;21,"52959-0729-60 ")
 ;;1700
 ;;21,"52959-0729-90 ")
 ;;1701
 ;;21,"52959-0753-00 ")
 ;;1876
 ;;21,"52959-0753-30 ")
 ;;1877
 ;;21,"52959-0753-60 ")
 ;;1878
 ;;21,"52959-0756-30 ")
 ;;2952
 ;;21,"52959-0831-30 ")
 ;;104
 ;;21,"52959-0835-30 ")
 ;;185
 ;;21,"52959-0835-60 ")
 ;;186
 ;;21,"52959-0841-30 ")
 ;;38
 ;;21,"52959-0841-60 ")
 ;;39
 ;;21,"52959-0854-20 ")
 ;;1137
 ;;21,"52959-0854-30 ")
 ;;1138
 ;;21,"52959-0907-30 ")
 ;;3337
 ;;21,"52959-0942-30 ")
 ;;798
 ;;21,"52959-0973-30 ")
 ;;1072
 ;;21,"52959-0975-30 ")
 ;;1136
 ;;21,"52959-0997-30 ")
 ;;3641
 ;;21,"53002-0431-00 ")
 ;;317
 ;;21,"53002-0431-30 ")
 ;;318
 ;;21,"53002-0431-60 ")
 ;;319
 ;;21,"53002-1086-00 ")
 ;;400
 ;;21,"53002-1086-03 ")
 ;;401
 ;;21,"53002-1086-06 ")
 ;;402
 ;;21,"53002-1123-00 ")
 ;;1334
 ;;21,"53002-1123-03 ")
 ;;1335
 ;;21,"53002-1123-06 ")
 ;;1336
 ;;21,"53002-1178-00 ")
 ;;1702
 ;;21,"53002-1178-03 ")
 ;;1703
 ;;21,"53002-1178-06 ")
 ;;1704
 ;;21,"53002-1225-00 ")
 ;;1118
 ;;21,"53002-1225-03 ")
 ;;1119
 ;;21,"53002-1225-06 ")
 ;;1120
 ;;21,"53002-1463-00 ")
 ;;1880
 ;;21,"53002-1463-03 ")
 ;;1881
 ;;21,"53217-0003-00 ")
 ;;268
 ;;21,"53217-0003-30 ")
 ;;269
 ;;21,"53217-0003-60 ")
 ;;270
 ;;21,"53217-0003-90 ")
 ;;271
 ;;21,"53217-0012-30 ")
 ;;1064
 ;;21,"53217-0012-60 ")
 ;;1065
 ;;21,"53217-0012-90 ")
 ;;1066
 ;;21,"53217-0089-30 ")
 ;;2036
 ;;21,"53217-0089-60 ")
 ;;2037
 ;;21,"53217-0089-90 ")
 ;;2038
 ;;21,"53217-0114-00 ")
 ;;4254
 ;;21,"53217-0114-30 ")
 ;;4255
 ;;21,"53217-0114-60 ")
 ;;4256
 ;;21,"53217-0114-90 ")
 ;;4257
 ;;21,"54458-0886-10 ")
 ;;3455
 ;;21,"54458-0893-10 ")
 ;;179
 ;;21,"54458-0905-02 ")
 ;;1882
 ;;21,"54458-0906-02 ")
 ;;1117
 ;;21,"54458-0907-02 ")
 ;;3456
 ;;21,"54458-0910-02 ")
 ;;3634
 ;;21,"54458-0956-10 ")
 ;;178
 ;;21,"54458-0957-10 ")
 ;;99
 ;;21,"54458-0991-10 ")
 ;;3633
 ;;21,"54458-0992-10 ")
 ;;3538
 ;;21,"54458-0993-09 ")
 ;;3454
 ;;21,"54458-0994-10 ")
 ;;1879
 ;;21,"54458-0995-10 ")
 ;;1739
 ;;21,"54458-0996-10 ")
 ;;1679
 ;;21,"54458-0997-10 ")
 ;;1329
 ;;21,"54458-0998-09 ")
 ;;1123
 ;;21,"54458-0999-09 ")
 ;;1061
 ;;21,"54569-1944-02 ")
 ;;1485
 ;;21,"54569-3714-00 ")
 ;;2184
 ;;21,"54569-4246-00 ")
 ;;320
 ;;21,"54569-4246-03 ")
 ;;321
 ;;21,"54569-4246-04 ")
 ;;322
 ;;21,"54569-4246-05 ")
 ;;323
 ;;21,"54569-4246-07 ")
 ;;324
 ;;21,"54569-4247-00 ")
 ;;396
 ;;21,"54569-4247-02 ")
 ;;397
 ;;21,"54569-4247-03 ")
 ;;398
 ;;21,"54569-4247-04 ")
 ;;399
 ;;21,"54569-4276-00 ")
 ;;1983
 ;;21,"54569-4438-00 ")
 ;;2643
 ;;21,"54569-4572-00 ")
 ;;2449
 ;;21,"54569-4593-00 ")
 ;;272
 ;;21,"54569-4593-01 ")
 ;;273
 ;;21,"54569-4593-03 ")
 ;;274
 ;;21,"54569-4714-00 ")
 ;;2376
 ;;21,"54569-4722-01 ")
 ;;3908
 ;;21,"54569-4766-00 ")
 ;;4171
 ;;21,"54569-4766-03 ")
 ;;4172
 ;;21,"54569-4767-00 ")
 ;;4214
 ;;21,"54569-4767-03 ")
 ;;4215
 ;;21,"54569-5133-00 ")
 ;;584
 ;;21,"54569-5133-01 ")
 ;;585
 ;;21,"54569-5134-00 ")
 ;;698
 ;;21,"54569-5134-01 ")
 ;;699
 ;;21,"54569-5134-02 ")
 ;;700
 ;;21,"54569-5134-04 ")
 ;;701
 ;;21,"54569-5135-00 ")
 ;;791
 ;;21,"54569-5135-01 ")
 ;;792
 ;;21,"54569-5361-00 ")
 ;;2959
 ;;21,"54569-5362-00 ")
 ;;2960
 ;;21,"54569-5434-00 ")
 ;;1330
 ;;21,"54569-5434-03 ")
 ;;1331
 ;;21,"54569-5434-04 ")
 ;;1332
 ;;21,"54569-5434-05 ")
 ;;1333
 ;;21,"54569-5435-00 ")
 ;;1680
 ;;21,"54569-5435-03 ")
 ;;1681
 ;;21,"54569-5435-04 ")
 ;;1682
 ;;21,"54569-5435-05 ")
 ;;1683
 ;;21,"54569-5437-00 ")
 ;;1062
 ;;21,"54569-5437-02 ")
 ;;1063
 ;;21,"54569-5438-00 ")
 ;;1121
 ;;21,"54569-5438-03 ")
 ;;1122
 ;;21,"54569-5472-00 ")
 ;;1883
 ;;21,"54569-5472-02 ")
 ;;1884
 ;;21,"54569-5606-00 ")
 ;;2863
 ;;21,"54569-5621-00 ")
 ;;855
 ;;21,"54569-5665-00 ")
 ;;4146
 ;;21,"54569-5666-00 ")
 ;;2999
 ;;21,"54569-5667-00 ")
 ;;4274
 ;;21,"54569-5668-00 ")
 ;;33
 ;;21,"54569-5668-01 ")
 ;;34
 ;;21,"54569-5668-02 ")
 ;;35
 ;;21,"54569-5669-00 ")
 ;;97
 ;;21,"54569-5669-01 ")
 ;;98
 ;;21,"54569-5670-00 ")
 ;;180
 ;;21,"54569-5670-01 ")
 ;;181
 ;;21,"54569-5685-00 ")
 ;;3334
 ;;21,"54569-5685-01 ")
 ;;3335
 ;;21,"54569-5709-00 ")
 ;;2039
 ;;21,"54569-5710-00 ")
 ;;2067
 ;;21,"54569-5711-00 ")
 ;;2098
 ;;21,"54569-5728-00 ")
 ;;1738
 ;;21,"54569-5801-00 ")
 ;;3812
 ;;21,"54569-5867-00 ")
 ;;2404
 ;;21,"54569-5878-00 ")
 ;;3230
 ;;21,"54569-5880-01 ")
 ;;4036
 ;;21,"54569-5903-00 ")
 ;;4134
 ;;21,"54569-5916-00 ")
 ;;1979
 ;;21,"54569-5936-00 ")
 ;;2248
 ;;21,"54569-5937-00 ")
 ;;3041
 ;;21,"54569-5938-00 ")
 ;;3093
 ;;21,"54569-5998-00 ")
 ;;4115
 ;;21,"54569-5999-00 ")
 ;;3976
 ;;21,"54569-6091-00 ")
 ;;3452
 ;;21,"54569-6091-01 ")
 ;;3453
 ;;21,"54569-6092-00 ")
 ;;3539
 ;;21,"54569-6092-01 ")
 ;;3540
 ;;21,"54569-6098-00 ")
 ;;960
 ;;21,"54569-6110-01 ")
 ;;4320
 ;;21,"54569-6111-00 ")
 ;;2209
 ;;21,"54569-6111-01 ")
 ;;2210
 ;;21,"54569-6112-00 ")
 ;;2273
 ;;21,"54569-6112-01 ")
 ;;2274
 ;;21,"54569-6173-00 ")
 ;;2692
 ;;21,"54569-6173-01 ")
 ;;2693
 ;;21,"54569-6180-00 ")
 ;;4061
 ;;21,"54569-6180-01 ")
 ;;4062
 ;;21,"54569-6182-00 ")
 ;;3994
 ;;21,"54569-6182-01 ")
 ;;3995
 ;;21,"54569-6223-00 ")
 ;;3955
 ;;21,"54569-6223-01 ")
 ;;3956
 ;;21,"54569-6228-00 ")
 ;;3630
 ;;21,"54569-6228-01 ")
 ;;3631
 ;;21,"54569-6228-02 ")
 ;;3632
 ;;21,"54569-6273-00 ")
 ;;3005
 ;;21,"54569-6274-00 ")
 ;;3013
 ;;21,"54569-6294-00 ")
 ;;2615
 ;;21,"54569-6294-01 ")
 ;;2616
 ;;21,"54569-6297-00 ")
 ;;2797
 ;;21,"54569-6297-01 ")
 ;;2798
 ;;21,"54569-6309-00 ")
 ;;2482
 ;;21,"54569-6416-00 ")
 ;;2157
 ;;21,"54569-6480-00 ")
 ;;4258
 ;;21,"54569-6480-01 ")
 ;;4259
 ;;21,"54569-6483-00 ")
 ;;3183
 ;;21,"54569-6483-01 ")
 ;;3184
 ;;21,"54569-6485-00 ")
 ;;4196
 ;;21,"54569-6486-00 ")
 ;;4307
 ;;21,"54569-6487-00 ")
 ;;4340
 ;;21,"54569-6488-00 ")
 ;;4373
 ;;21,"54868-0009-00 ")
 ;;3825
 ;;21,"54868-0009-01 ")
 ;;3826
 ;;21,"54868-1502-00 ")
 ;;1708
 ;;21,"54868-1802-00 ")
 ;;3717
 ;;21,"54868-1960-00 ")
 ;;1255
 ;;21,"54868-1970-01 ")
 ;;1477
 ;;21,"54868-1970-02 ")
 ;;1478
 ;;21,"54868-1970-03 ")
 ;;1479
 ;;21,"54868-2335-00 ")
 ;;2756
 ;;21,"54868-2335-01 ")
 ;;2757
 ;;21,"54868-2350-01 ")
 ;;93
 ;;21,"54868-2350-02 ")
 ;;94
 ;;21,"54868-2350-03 ")
 ;;95
 ;;21,"54868-2350-04 ")
 ;;96
 ;;21,"54868-2351-00 ")
 ;;175
 ;;21,"54868-2351-02 ")
 ;;176
 ;;21,"54868-2351-03 ")
 ;;177
 ;;21,"54868-2352-00 ")
 ;;249
 ;;21,"54868-2352-01 ")
 ;;250
 ;;21,"54868-2644-01 ")
 ;;2139
 ;;21,"54868-2644-02 ")
 ;;2140
 ;;21,"54868-2645-01 ")
 ;;2185
 ;;21,"54868-2645-02 ")
 ;;2186
 ;;21,"54868-2645-03 ")
 ;;2187
 ;;21,"54868-2665-00 ")
 ;;2025
 ;;21,"54868-2665-01 ")
 ;;2026
 ;;21,"54868-2666-01 ")
 ;;2053
 ;;21,"54868-2666-02 ")
 ;;2054
 ;;21,"54868-2666-03 ")
 ;;2055
 ;;21,"54868-2666-04 ")
 ;;2056
 ;;21,"54868-2847-00 ")
 ;;3739
 ;;21,"54868-3307-00 ")
 ;;2002
 ;;21,"54868-3307-01 ")
 ;;2003
 ;;21,"54868-3443-00 ")
 ;;3703
 ;;21,"54868-3443-01 ")
 ;;3704
 ;;21,"54868-3445-00 ")
 ;;2087
 ;;21,"54868-3445-01 ")
 ;;2088
 ;;21,"54868-3690-01 ")
 ;;29
 ;;21,"54868-3723-01 ")
 ;;263
 ;;21,"54868-3723-02 ")
 ;;264
 ;;21,"54868-3723-03 ")
 ;;265
 ;;21,"54868-3723-04 ")
 ;;266
 ;;21,"54868-3723-05 ")
 ;;267
 ;;21,"54868-3724-01 ")
 ;;325
 ;;21,"54868-3724-02 ")
 ;;326
 ;;21,"54868-3724-03 ")
 ;;327
 ;;21,"54868-3724-04 ")
 ;;328
 ;;21,"54868-3725-01 ")
 ;;392
 ;;21,"54868-3725-02 ")
 ;;393
 ;;21,"54868-3725-03 ")
 ;;394
 ;;21,"54868-3725-04 ")
 ;;395
 ;;21,"54868-3726-00 ")
 ;;2644
 ;;21,"54868-3726-01 ")
 ;;2645
 ;;21,"54868-3726-02 ")
 ;;2646
 ;;21,"54868-3846-00 ")
 ;;2249
 ;;21,"54868-3846-02 ")
 ;;2250
 ;;21,"54868-3846-03 ")
 ;;2251
 ;;21,"54868-3866-00 ")
 ;;3906
 ;;21,"54868-3866-01 ")
 ;;3907
 ;;21,"54868-3906-00 ")
 ;;3318
 ;;21,"54868-3906-01 ")
 ;;3319
 ;;21,"54868-3906-02 ")
 ;;3320
 ;;21,"54868-4003-00 ")
 ;;3589