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

BGP0ZD5.m

Go to the documentation of this file.
BGP0ZD5 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
 ;
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,"55045-2894-03 ")
 ;;470
 ;;21,"55045-2894-04 ")
 ;;474
 ;;21,"55045-2894-05 ")
 ;;476
 ;;21,"55045-2894-06 ")
 ;;477
 ;;21,"55045-2894-08 ")
 ;;472
 ;;21,"55045-2894-09 ")
 ;;475
 ;;21,"55045-2900-06 ")
 ;;473
 ;;21,"55045-2916-01 ")
 ;;3271
 ;;21,"55045-2916-04 ")
 ;;3268
 ;;21,"55045-2916-06 ")
 ;;3269
 ;;21,"55045-2916-07 ")
 ;;3266
 ;;21,"55045-2916-08 ")
 ;;3267
 ;;21,"55045-2916-09 ")
 ;;3270
 ;;21,"55045-2950-08 ")
 ;;1307
 ;;21,"55045-3007-01 ")
 ;;1158
 ;;21,"55045-3007-02 ")
 ;;1156
 ;;21,"55045-3007-03 ")
 ;;1157
 ;;21,"55045-3007-07 ")
 ;;1154
 ;;21,"55045-3007-08 ")
 ;;1155
 ;;21,"55045-3047-09 ")
 ;;311
 ;;21,"55045-3056-00 ")
 ;;1161
 ;;21,"55045-3056-01 ")
 ;;1162
 ;;21,"55045-3056-06 ")
 ;;1160
 ;;21,"55045-3056-08 ")
 ;;1159
 ;;21,"55045-3082-06 ")
 ;;1306
 ;;21,"55045-3082-08 ")
 ;;1305
 ;;21,"55045-3193-01 ")
 ;;2323
 ;;21,"55045-3193-05 ")
 ;;2319
 ;;21,"55045-3266-08 ")
 ;;162
 ;;21,"55045-3269-01 ")
 ;;2702
 ;;21,"55045-3283-08 ")
 ;;478
 ;;21,"55111-0101-01 ")
 ;;1703
 ;;21,"55111-0101-05 ")
 ;;1704
 ;;21,"55111-0102-01 ")
 ;;1705
 ;;21,"55111-0102-05 ")
 ;;1706
 ;;21,"55111-0103-01 ")
 ;;1707
 ;;21,"55111-0103-05 ")
 ;;1708
 ;;21,"55111-0170-01 ")
 ;;3223
 ;;21,"55111-0173-05 ")
 ;;3224
 ;;21,"55111-0366-01 ")
 ;;2461
 ;;21,"55111-0366-05 ")
 ;;2462
 ;;21,"55111-0367-01 ")
 ;;2463
 ;;21,"55111-0367-05 ")
 ;;2464
 ;;21,"55111-0368-01 ")
 ;;2465
 ;;21,"55111-0368-05 ")
 ;;2466
 ;;21,"55289-0015-10 ")
 ;;1253
 ;;21,"55289-0015-14 ")
 ;;1254
 ;;21,"55289-0015-20 ")
 ;;1255
 ;;21,"55289-0015-28 ")
 ;;1256
 ;;21,"55289-0015-30 ")
 ;;1257
 ;;21,"55289-0015-40 ")
 ;;1258
 ;;21,"55289-0015-60 ")
 ;;1259
 ;;21,"55289-0041-21 ")
 ;;2109
 ;;21,"55289-0041-30 ")
 ;;2110
 ;;21,"55289-0052-07 ")
 ;;1470
 ;;21,"55289-0052-10 ")
 ;;1471
 ;;21,"55289-0052-14 ")
 ;;1472
 ;;21,"55289-0052-20 ")
 ;;1473
 ;;21,"55289-0052-21 ")
 ;;1475
 ;;21,"55289-0052-30 ")
 ;;1476
 ;;21,"55289-0140-01 ")
 ;;2020
 ;;21,"55289-0140-10 ")
 ;;2006
 ;;21,"55289-0140-15 ")
 ;;2007
 ;;21,"55289-0140-20 ")
 ;;2009
 ;;21,"55289-0140-21 ")
 ;;2010
 ;;21,"55289-0140-30 ")
 ;;2011
 ;;21,"55289-0140-40 ")
 ;;2013
 ;;21,"55289-0140-42 ")
 ;;2014
 ;;21,"55289-0140-50 ")
 ;;2016
 ;;21,"55289-0140-60 ")
 ;;2017
 ;;21,"55289-0142-01 ")
 ;;2004
 ;;21,"55289-0142-06 ")
 ;;1987
 ;;21,"55289-0142-10 ")
 ;;1988
 ;;21,"55289-0142-12 ")
 ;;1989
 ;;21,"55289-0142-14 ")
 ;;1990
 ;;21,"55289-0142-15 ")
 ;;1991
 ;;21,"55289-0142-18 ")
 ;;1992
 ;;21,"55289-0142-20 ")
 ;;1993
 ;;21,"55289-0142-21 ")
 ;;1994
 ;;21,"55289-0142-24 ")
 ;;1995
 ;;21,"55289-0142-28 ")
 ;;1996
 ;;21,"55289-0142-30 ")
 ;;1997
 ;;21,"55289-0142-40 ")
 ;;2000
 ;;21,"55289-0142-60 ")
 ;;2001
 ;;21,"55289-0147-20 ")
 ;;734
 ;;21,"55289-0147-21 ")
 ;;735
 ;;21,"55289-0147-30 ")
 ;;736
 ;;21,"55289-0150-10 ")
 ;;257
 ;;21,"55289-0150-15 ")
 ;;258
 ;;21,"55289-0150-20 ")
 ;;259
 ;;21,"55289-0150-30 ")
 ;;260
 ;;21,"55289-0166-10 ")
 ;;253
 ;;21,"55289-0166-14 ")
 ;;254
 ;;21,"55289-0166-20 ")
 ;;255
 ;;21,"55289-0166-30 ")
 ;;256
 ;;21,"55289-0178-30 ")
 ;;1561
 ;;21,"55289-0181-15 ")
 ;;2400
 ;;21,"55289-0181-20 ")
 ;;2401
 ;;21,"55289-0181-21 ")
 ;;2402
 ;;21,"55289-0181-30 ")
 ;;2403
 ;;21,"55289-0197-10 ")
 ;;551
 ;;21,"55289-0197-20 ")
 ;;552
 ;;21,"55289-0220-14 ")
 ;;575
 ;;21,"55289-0237-20 ")
 ;;574
 ;;21,"55289-0239-12 ")
 ;;488
 ;;21,"55289-0239-21 ")
 ;;489
 ;;21,"55289-0239-30 ")
 ;;490
 ;;21,"55289-0239-45 ")
 ;;491
 ;;21,"55289-0267-15 ")
 ;;3211
 ;;21,"55289-0267-24 ")
 ;;3212
 ;;21,"55289-0272-40 ")
 ;;1096
 ;;21,"55289-0272-60 ")
 ;;1097
 ;;21,"55289-0282-28 ")
 ;;3377
 ;;21,"55289-0285-30 ")
 ;;1981
 ;;21,"55289-0285-56 ")
 ;;1984
 ;;21,"55289-0286-30 ")
 ;;1999
 ;;21,"55289-0286-60 ")
 ;;2002
 ;;21,"55289-0286-90 ")
 ;;2003
 ;;21,"55289-0286-98 ")
 ;;2005
 ;;21,"55289-0287-15 ")
 ;;2008
 ;;21,"55289-0287-30 ")
 ;;2012
 ;;21,"55289-0287-45 ")
 ;;2015
 ;;21,"55289-0297-10 ")
 ;;2773
 ;;21,"55289-0297-14 ")
 ;;2774
 ;;21,"55289-0297-15 ")
 ;;2775
 ;;21,"55289-0297-20 ")
 ;;2776
 ;;21,"55289-0297-21 ")
 ;;2777
 ;;21,"55289-0297-24 ")
 ;;2778
 ;;21,"55289-0297-30 ")
 ;;2779
 ;;21,"55289-0297-42 ")
 ;;2780
 ;;21,"55289-0297-60 ")
 ;;2781
 ;;21,"55289-0298-06 ")
 ;;2784
 ;;21,"55289-0298-07 ")
 ;;2785
 ;;21,"55289-0298-10 ")
 ;;2786
 ;;21,"55289-0298-14 ")
 ;;2787
 ;;21,"55289-0298-15 ")
 ;;2789
 ;;21,"55289-0298-20 ")
 ;;2790
 ;;21,"55289-0298-24 ")
 ;;2792
 ;;21,"55289-0298-28 ")
 ;;2793
 ;;21,"55289-0298-30 ")
 ;;2794
 ;;21,"55289-0298-40 ")
 ;;2796
 ;;21,"55289-0298-60 ")
 ;;2797
 ;;21,"55289-0307-15 ")
 ;;2937
 ;;21,"55289-0307-24 ")
 ;;2938
 ;;21,"55289-0307-30 ")
 ;;2939
 ;;21,"55289-0328-15 ")
 ;;870
 ;;21,"55289-0328-20 ")
 ;;871
 ;;21,"55289-0328-30 ")
 ;;872
 ;;21,"55289-0332-06 ")
 ;;3199
 ;;21,"55289-0332-15 ")
 ;;3200
 ;;21,"55289-0332-20 ")
 ;;3201
 ;;21,"55289-0332-30 ")
 ;;3202
 ;;21,"55289-0334-20 ")
 ;;1551
 ;;21,"55289-0334-30 ")
 ;;1552
 ;;21,"55289-0334-40 ")
 ;;1553
 ;;21,"55289-0367-06 ")
 ;;3091
 ;;21,"55289-0367-10 ")
 ;;3092
 ;;21,"55289-0367-14 ")
 ;;3093
 ;;21,"55289-0367-15 ")
 ;;3094
 ;;21,"55289-0367-20 ")
 ;;3095
 ;;21,"55289-0367-28 ")
 ;;3096
 ;;21,"55289-0367-30 ")
 ;;3097
 ;;21,"55289-0367-42 ")
 ;;3099
 ;;21,"55289-0369-10 ")
 ;;2443
 ;;21,"55289-0406-15 ")
 ;;312
 ;;21,"55289-0406-30 ")
 ;;313
 ;;21,"55289-0418-14 ")
 ;;492
 ;;21,"55289-0418-20 ")
 ;;493
 ;;21,"55289-0418-30 ")
 ;;494
 ;;21,"55289-0420-10 ")
 ;;3164
 ;;21,"55289-0420-14 ")
 ;;3165
 ;;21,"55289-0420-15 ")
 ;;3166
 ;;21,"55289-0420-20 ")
 ;;3167
 ;;21,"55289-0420-30 ")
 ;;3168
 ;;21,"55289-0420-40 ")
 ;;3169
 ;;21,"55289-0435-15 ")
 ;;3159
 ;;21,"55289-0435-20 ")
 ;;3160
 ;;21,"55289-0435-21 ")
 ;;3161
 ;;21,"55289-0435-30 ")
 ;;3162
 ;;21,"55289-0435-40 ")
 ;;3163
 ;;21,"55289-0445-15 ")
 ;;2762
 ;;21,"55289-0445-20 ")
 ;;2764
 ;;21,"55289-0445-21 ")
 ;;2765
 ;;21,"55289-0445-28 ")
 ;;2766
 ;;21,"55289-0445-30 ")
 ;;2767
 ;;21,"55289-0445-56 ")
 ;;2768
 ;;21,"55289-0445-60 ")
 ;;2769
 ;;21,"55289-0451-14 ")
 ;;3547
 ;;21,"55289-0451-20 ")
 ;;3548
 ;;21,"55289-0453-14 ")
 ;;3331
 ;;21,"55289-0453-15 ")
 ;;3332
 ;;21,"55289-0453-30 ")
 ;;3333
 ;;21,"55289-0453-40 ")
 ;;3334
 ;;21,"55289-0453-42 ")
 ;;3335
 ;;21,"55289-0453-60 ")
 ;;3336
 ;;21,"55289-0460-10 ")
 ;;3420
 ;;21,"55289-0460-15 ")
 ;;3421
 ;;21,"55289-0460-20 ")
 ;;3422
 ;;21,"55289-0460-30 ")
 ;;3423
 ;;21,"55289-0467-06 ")
 ;;3086
 ;;21,"55289-0467-10 ")
 ;;3087
 ;;21,"55289-0467-21 ")
 ;;3088
 ;;21,"55289-0467-30 ")
 ;;3089
 ;;21,"55289-0469-10 ")
 ;;743
 ;;21,"55289-0469-14 ")
 ;;744
 ;;21,"55289-0469-15 ")
 ;;745
 ;;21,"55289-0469-20 ")
 ;;746
 ;;21,"55289-0469-30 ")
 ;;747
 ;;21,"55289-0471-07 ")
 ;;1527
 ;;21,"55289-0471-10 ")
 ;;1528
 ;;21,"55289-0471-14 ")
 ;;1529
 ;;21,"55289-0471-30 ")
 ;;1530
 ;;21,"55289-0475-10 ")
 ;;3550
 ;;21,"55289-0475-14 ")
 ;;3551
 ;;21,"55289-0475-20 ")
 ;;3552
 ;;21,"55289-0475-28 ")
 ;;3553
 ;;21,"55289-0475-60 ")
 ;;3555
 ;;21,"55289-0501-30 ")
 ;;487
 ;;21,"55289-0515-10 ")
 ;;1469
 ;;21,"55289-0526-14 ")
 ;;272
 ;;21,"55289-0526-28 ")
 ;;271
 ;;21,"55289-0526-42 ")
 ;;273
 ;;21,"55289-0541-14 ")
 ;;1010
 ;;21,"55289-0541-30 ")
 ;;1011
 ;;21,"55289-0561-10 ")
 ;;1608
 ;;21,"55289-0561-15 ")
 ;;1609
 ;;21,"55289-0561-30 ")
 ;;1610
 ;;21,"55289-0574-10 ")
 ;;3442
 ;;21,"55289-0574-15 ")
 ;;3443
 ;;21,"55289-0590-08 ")
 ;;1974
 ;;21,"55289-0590-10 ")
 ;;1975
 ;;21,"55289-0590-12 ")
 ;;1976
 ;;21,"55289-0590-15 ")
 ;;1977
 ;;21,"55289-0590-20 ")
 ;;1978
 ;;21,"55289-0590-21 ")
 ;;1979
 ;;21,"55289-0590-30 ")
 ;;1980
 ;;21,"55289-0590-36 ")
 ;;1982
 ;;21,"55289-0590-40 ")
 ;;1983
 ;;21,"55289-0590-60 ")
 ;;1985
 ;;21,"55289-0590-90 ")
 ;;1986
 ;;21,"55289-0595-10 ")
 ;;274
 ;;21,"55289-0595-15 ")
 ;;275
 ;;21,"55289-0595-20 ")
 ;;276
 ;;21,"55289-0595-30 ")
 ;;277
 ;;21,"55289-0601-20 ")
 ;;3278
 ;;21,"55289-0601-30 ")
 ;;3279
 ;;21,"55289-0609-30 ")
 ;;1172
 ;;21,"55289-0611-20 ")
 ;;1170
 ;;21,"55289-0611-30 ")
 ;;1171
 ;;21,"55289-0618-14 ")
 ;;1308
 ;;21,"55289-0644-12 ")
 ;;549
 ;;21,"55289-0644-20 ")
 ;;550
 ;;21,"55289-0654-60 ")
 ;;3157
 ;;21,"55289-0663-01 ")
 ;;742
 ;;21,"55289-0663-20 ")
 ;;740
 ;;21,"55289-0663-30 ")
 ;;741
 ;;21,"55289-0693-14 ")
 ;;3213
 ;;21,"55289-0693-15 ")
 ;;3214
 ;;21,"55289-0693-30 ")
 ;;3215
 ;;21,"55289-0721-20 ")
 ;;1260
 ;;21,"55289-0721-30 ")
 ;;1261
 ;;21,"55289-0739-14 ")
 ;;1309
 ;;21,"55289-0759-08 ")
 ;;1100
 ;;21,"55289-0759-30 ")
 ;;1101
 ;;21,"55289-0759-36 ")
 ;;1102
 ;;21,"55289-0781-21 ")
 ;;16
 ;;21,"55289-0837-10 ")
 ;;3192
 ;;21,"55289-0837-20 ")
 ;;3193
 ;;21,"55289-0930-10 ")
 ;;1012
 ;;21,"55289-0930-14 ")
 ;;1013
 ;;21,"55289-0930-20 ")
 ;;1014
 ;;21,"55289-0977-17 ")
 ;;3158
 ;;21,"55289-0985-08 ")
 ;;902
 ;;21,"55289-0985-15 ")
 ;;903
 ;;21,"55289-0985-20 ")
 ;;904
 ;;21,"55289-0985-30 ")
 ;;905
 ;;21,"55289-0985-40 ")
 ;;906
 ;;21,"55289-0992-20 ")
 ;;544
 ;;21,"55289-0992-21 ")
 ;;545
 ;;21,"55289-0992-30 ")
 ;;546
 ;;21,"55289-0992-42 ")
 ;;547
 ;;21,"55289-0992-60 ")
 ;;548
 ;;21,"55370-0139-03 ")
 ;;2539
 ;;21,"55370-0139-05 ")
 ;;2540
 ;;21,"55370-0140-03 ")
 ;;2543
 ;;21,"55370-0140-05 ")
 ;;2544
 ;;21,"55370-0141-03 ")
 ;;2548
 ;;21,"55370-0141-05 ")
 ;;2550
 ;;21,"55370-0552-07 ")
 ;;379
 ;;21,"55370-0552-08 ")
 ;;380
 ;;21,"55390-0480-01 ")
 ;;819
 ;;21,"55390-0481-01 ")
 ;;820
 ;;21,"55390-0481-02 ")
 ;;822
 ;;21,"55390-0481-10 ")
 ;;821
 ;;21,"55887-0410-20 ")
 ;;3029
 ;;21,"55887-0410-30 ")
 ;;3030
 ;;21,"55887-0410-60 ")
 ;;3031
 ;;21,"55887-0410-82 ")
 ;;3033
 ;;21,"55887-0410-90 ")
 ;;3032
 ;;21,"55887-0412-20 ")
 ;;3491
 ;;21,"55887-0412-30 ")
 ;;3492
 ;;21,"55887-0412-60 ")
 ;;3493
 ;;21,"55887-0412-82 ")
 ;;3495
 ;;21,"55887-0412-90 ")
 ;;3494
 ;;21,"55887-0431-30 ")
 ;;438
 ;;21,"55887-0431-60 ")
 ;;439
 ;;21,"55887-0431-82 ")
 ;;441
 ;;21,"55887-0431-90 ")
 ;;440
 ;;21,"55887-0440-20 ")
 ;;1137
 ;;21,"55887-0440-30 ")
 ;;1138
 ;;21,"55887-0440-60 ")
 ;;1139
 ;;21,"55887-0440-90 ")
 ;;1140
 ;;21,"55887-0454-20 ")
 ;;1291
 ;;21,"55887-0454-30 ")
 ;;1292
 ;;21,"55887-0454-60 ")
 ;;1293
 ;;21,"55887-0454-82 ")
 ;;1295
 ;;21,"55887-0454-90 ")
 ;;1294
 ;;21,"55887-0455-20 ")
 ;;1296
 ;;21,"55887-0455-30 ")
 ;;1297
 ;;21,"55887-0455-60 ")
 ;;1298
 ;;21,"55887-0455-82 ")
 ;;1300
 ;;21,"55887-0455-90 ")
 ;;1299
 ;;21,"55887-0542-14 ")
 ;;147
 ;;21,"55887-0542-30 ")
 ;;148
 ;;21,"55887-0542-60 ")
 ;;149
 ;;21,"55887-0542-90 ")
 ;;150
 ;;21,"55887-0543-30 ")
 ;;307
 ;;21,"55887-0543-60 ")
 ;;305
 ;;21,"55887-0543-82 ")
 ;;308
 ;;21,"55887-0543-90 ")
 ;;306
 ;;21,"55887-0553-20 ")
 ;;142
 ;;21,"55887-0553-30 ")
 ;;143
 ;;21,"55887-0553-60 ")
 ;;144
 ;;21,"55887-0553-82 ")
 ;;146
 ;;21,"55887-0553-90 ")
 ;;145
 ;;21,"55887-0683-28 ")
 ;;1141
 ;;21,"55887-0683-30 ")
 ;;1142
 ;;21,"55887-0683-60 ")
 ;;1143
 ;;21,"55887-0683-90 ")
 ;;1144
 ;;21,"55887-0688-20 ")
 ;;1407
 ;;21,"55887-0688-30 ")
 ;;1408
 ;;21,"55887-0688-60 ")
 ;;1409
 ;;21,"55887-0698-10 ")
 ;;3255
 ;;21,"55887-0698-14 ")
 ;;3256
 ;;21,"55887-0698-20 ")
 ;;3257
 ;;21,"55887-0698-28 ")
 ;;3258
 ;;21,"55887-0698-30 ")
 ;;3259
 ;;21,"55887-0701-20 ")
 ;;2632
 ;;21,"55887-0701-30 ")
 ;;2634
 ;;21,"55887-0701-40 ")
 ;;2633
 ;;21,"55887-0701-60 ")
 ;;2635
 ;;21,"55887-0705-10 ")
 ;;2926
 ;;21,"55887-0705-20 ")
 ;;2927
 ;;21,"55887-0705-24 ")
 ;;2928
 ;;21,"55887-0705-30 ")
 ;;2929
 ;;21,"55887-0736-10 ")
 ;;3496
 ;;21,"55887-0736-14 ")
 ;;3497
 ;;21,"55887-0736-15 ")
 ;;3498
 ;;21,"55887-0736-20 ")
 ;;3499
 ;;21,"55887-0736-21 ")
 ;;3500
 ;;21,"55887-0736-28 ")
 ;;3501
 ;;21,"55887-0736-30 ")
 ;;3502
 ;;21,"55887-0736-40 ")
 ;;3503
 ;;21,"55887-0736-60 ")
 ;;3504
 ;;21,"55887-0736-82 ")
 ;;3506
 ;;21,"55887-0736-90 ")
 ;;3505
 ;;21,"55887-0744-14 ")
 ;;1241
 ;;21,"55887-0744-20 ")
 ;;1242
 ;;21,"55887-0744-28 ")
 ;;1243
 ;;21,"55887-0784-20 ")
 ;;1410
 ;;21,"55887-0784-30 ")
 ;;1411
 ;;21,"55887-0784-60 ")
 ;;1412
 ;;21,"55887-0784-82 ")
 ;;1414
 ;;21,"55887-0784-90 ")
 ;;1413
 ;;21,"55887-0803-20 ")
 ;;1590
 ;;21,"55887-0803-28 ")
 ;;1591
 ;;21,"55887-0803-30 ")
 ;;1592
 ;;21,"55887-0803-40 ")
 ;;1593
 ;;21,"55887-0808-15 ")
 ;;431
 ;;21,"55887-0808-20 ")
 ;;432
 ;;21,"55887-0808-30 ")
 ;;434
 ;;21,"55887-0808-42 ")
 ;;433
 ;;21,"55887-0808-60 ")
 ;;435
 ;;21,"55887-0808-82 ")
 ;;437
 ;;21,"55887-0808-90 ")
 ;;436
 ;;21,"55887-0862-10 ")
 ;;702
 ;;21,"55887-0862-14 ")
 ;;703
 ;;21,"55887-0862-20 ")
 ;;704