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

BGP47Y10.m

Go to the documentation of this file.
BGP47Y10 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 17, 2014;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,"58016-0646-00 ")
 ;;2528
 ;;21,"58016-0646-30 ")
 ;;2529
 ;;21,"58016-0646-60 ")
 ;;2530
 ;;21,"58016-0646-90 ")
 ;;2531
 ;;21,"58016-0685-00 ")
 ;;230
 ;;21,"58016-0685-10 ")
 ;;231
 ;;21,"58016-0685-30 ")
 ;;232
 ;;21,"58016-0685-60 ")
 ;;233
 ;;21,"58016-0685-90 ")
 ;;234
 ;;21,"58016-0686-00 ")
 ;;314
 ;;21,"58016-0686-10 ")
 ;;315
 ;;21,"58016-0686-30 ")
 ;;316
 ;;21,"58016-0686-60 ")
 ;;317
 ;;21,"58016-0686-90 ")
 ;;318
 ;;21,"58016-0760-00 ")
 ;;2238
 ;;21,"58016-0760-30 ")
 ;;2239
 ;;21,"58016-0760-60 ")
 ;;2240
 ;;21,"58016-0760-90 ")
 ;;2241
 ;;21,"58016-0917-00 ")
 ;;1582
 ;;21,"58016-0917-30 ")
 ;;1583
 ;;21,"58016-0917-60 ")
 ;;1584
 ;;21,"58016-0917-90 ")
 ;;1585
 ;;21,"58016-0956-00 ")
 ;;1732
 ;;21,"58016-0956-30 ")
 ;;1733
 ;;21,"58016-0956-60 ")
 ;;1734
 ;;21,"58016-0956-90 ")
 ;;1735
 ;;21,"58016-0963-00 ")
 ;;1933
 ;;21,"58016-0963-30 ")
 ;;1934
 ;;21,"58016-0963-60 ")
 ;;1935
 ;;21,"58016-0963-90 ")
 ;;1936
 ;;21,"58016-0998-00 ")
 ;;2080
 ;;21,"58016-0998-30 ")
 ;;2081
 ;;21,"58016-0998-60 ")
 ;;2082
 ;;21,"58016-0998-90 ")
 ;;2083
 ;;21,"58016-2638-14 ")
 ;;1736
 ;;21,"58016-2638-21 ")
 ;;1737
 ;;21,"58016-2638-30 ")
 ;;1738
 ;;21,"58016-2638-60 ")
 ;;1739
 ;;21,"58016-2638-90 ")
 ;;1740
 ;;21,"58016-4631-01 ")
 ;;4986
 ;;21,"58118-0115-03 ")
 ;;3466
 ;;21,"58118-0115-06 ")
 ;;3467
 ;;21,"58118-0115-09 ")
 ;;3468
 ;;21,"58118-0116-03 ")
 ;;4781
 ;;21,"58118-0116-09 ")
 ;;4782
 ;;21,"58118-0117-03 ")
 ;;4844
 ;;21,"58118-0117-09 ")
 ;;4845
 ;;21,"58118-0118-03 ")
 ;;4919
 ;;21,"58118-0118-09 ")
 ;;4920
 ;;21,"58118-0337-03 ")
 ;;26
 ;;21,"58118-0337-09 ")
 ;;27
 ;;21,"58118-0338-08 ")
 ;;66
 ;;21,"58118-0338-09 ")
 ;;67
 ;;21,"58118-0339-08 ")
 ;;172
 ;;21,"58118-0339-09 ")
 ;;173
 ;;21,"58118-0340-03 ")
 ;;301
 ;;21,"58118-0340-09 ")
 ;;302
 ;;21,"58118-0409-03 ")
 ;;3418
 ;;21,"58118-0409-06 ")
 ;;3419
 ;;21,"58118-0409-09 ")
 ;;3420
 ;;21,"58118-0515-03 ")
 ;;2029
 ;;21,"58118-0515-09 ")
 ;;2030
 ;;21,"58118-0517-03 ")
 ;;2519
 ;;21,"58118-0517-09 ")
 ;;2520
 ;;21,"58118-0590-08 ")
 ;;2862
 ;;21,"58118-0590-09 ")
 ;;2863
 ;;21,"58118-0591-08 ")
 ;;2943
 ;;21,"58118-0591-09 ")
 ;;2944
 ;;21,"58118-1520-03 ")
 ;;4487
 ;;21,"58118-1520-09 ")
 ;;4488
 ;;21,"58118-2271-03 ")
 ;;3737
 ;;21,"58118-2271-09 ")
 ;;3738
 ;;21,"58118-2272-03 ")
 ;;3750
 ;;21,"58118-2272-09 ")
 ;;3751
 ;;21,"58118-2273-03 ")
 ;;3809
 ;;21,"58118-2273-09 ")
 ;;3810
 ;;21,"58118-2274-03 ")
 ;;3927
 ;;21,"58118-2274-09 ")
 ;;3928
 ;;21,"58118-2277-03 ")
 ;;3869
 ;;21,"58118-2277-09 ")
 ;;3870
 ;;21,"58118-2279-03 ")
 ;;3953
 ;;21,"58118-2279-09 ")
 ;;3954
 ;;21,"58118-4725-03 ")
 ;;4010
 ;;21,"58118-4725-09 ")
 ;;4011
 ;;21,"58118-4745-03 ")
 ;;4055
 ;;21,"58118-4745-09 ")
 ;;4056
 ;;21,"58118-4775-03 ")
 ;;4081
 ;;21,"58118-4775-09 ")
 ;;4082
 ;;21,"58177-0341-04 ")
 ;;15
 ;;21,"58177-0342-04 ")
 ;;94
 ;;21,"58177-0342-08 ")
 ;;95
 ;;21,"58177-0343-04 ")
 ;;200
 ;;21,"58177-0343-08 ")
 ;;201
 ;;21,"58177-0344-04 ")
 ;;257
 ;;21,"58177-0344-08 ")
 ;;258
 ;;21,"58517-0240-30 ")
 ;;3370
 ;;21,"58864-0000-63 ")
 ;;2163
 ;;21,"58864-0006-30 ")
 ;;2164
 ;;21,"58864-0066-28 ")
 ;;499
 ;;21,"58864-0104-30 ")
 ;;1283
 ;;21,"58864-0510-15 ")
 ;;1445
 ;;21,"58864-0603-15 ")
 ;;1946
 ;;21,"58864-0603-30 ")
 ;;1947
 ;;21,"58864-0603-90 ")
 ;;1948
 ;;21,"58864-0605-30 ")
 ;;3687
 ;;21,"58864-0618-15 ")
 ;;2472
 ;;21,"58864-0618-30 ")
 ;;2473
 ;;21,"58864-0654-30 ")
 ;;2001
 ;;21,"58864-0659-30 ")
 ;;4877
 ;;21,"58864-0661-30 ")
 ;;4525
 ;;21,"58864-0662-30 ")
 ;;3323
 ;;21,"58864-0667-30 ")
 ;;1377
 ;;21,"58864-0674-30 ")
 ;;2800
 ;;21,"58864-0681-30 ")
 ;;3629
 ;;21,"58864-0726-15 ")
 ;;3126
 ;;21,"58864-0726-30 ")
 ;;3127
 ;;21,"58864-0750-30 ")
 ;;2284
 ;;21,"58864-0753-30 ")
 ;;1599
 ;;21,"58864-0753-90 ")
 ;;1600
 ;;21,"58864-0754-30 ")
 ;;804
 ;;21,"58864-0755-30 ")
 ;;961
 ;;21,"58864-0762-30 ")
 ;;1123
 ;;21,"58864-0771-15 ")
 ;;3193
 ;;21,"58864-0774-30 ")
 ;;1238
 ;;21,"58864-0774-90 ")
 ;;1239
 ;;21,"58864-0787-30 ")
 ;;4309
 ;;21,"58864-0807-30 ")
 ;;3254
 ;;21,"58864-0817-90 ")
 ;;3125
 ;;21,"58864-0838-30 ")
 ;;4534
 ;;21,"58864-0847-30 ")
 ;;2888
 ;;21,"58864-0859-30 ")
 ;;2603
 ;;21,"58864-0863-30 ")
 ;;2679
 ;;21,"58864-0869-30 ")
 ;;2640
 ;;21,"59746-0333-10 ")
 ;;3310
 ;;21,"59746-0333-90 ")
 ;;3311
 ;;21,"59746-0334-10 ")
 ;;3421
 ;;21,"59746-0334-30 ")
 ;;3422
 ;;21,"59746-0334-90 ")
 ;;3423
 ;;21,"59746-0335-10 ")
 ;;3519
 ;;21,"59746-0335-30 ")
 ;;3520
 ;;21,"59746-0335-90 ")
 ;;3521
 ;;21,"59746-0337-30 ")
 ;;4807
 ;;21,"59746-0337-90 ")
 ;;4808
 ;;21,"59746-0338-30 ")
 ;;4863
 ;;21,"59746-0338-90 ")
 ;;4864
 ;;21,"59746-0339-30 ")
 ;;4932
 ;;21,"59746-0339-90 ")
 ;;4933
 ;;21,"59762-0011-01 ")
 ;;4811
 ;;21,"59762-0011-02 ")
 ;;4812
 ;;21,"59762-0012-01 ")
 ;;4859
 ;;21,"59762-0012-02 ")
 ;;4860
 ;;21,"59762-0015-01 ")
 ;;4936
 ;;21,"59762-0015-02 ")
 ;;4937
 ;;21,"59762-0070-01 ")
 ;;3315
 ;;21,"59762-0071-01 ")
 ;;3413
 ;;21,"59762-0071-02 ")
 ;;3414
 ;;21,"59762-0072-01 ")
 ;;3525
 ;;21,"59762-0072-02 ")
 ;;3526
 ;;21,"59762-0220-01 ")
 ;;4563
 ;;21,"59762-0222-01 ")
 ;;4551
 ;;21,"59762-0223-01 ")
 ;;4585
 ;;21,"59762-2140-01 ")
 ;;2971
 ;;21,"59762-2140-06 ")
 ;;2972
 ;;21,"59762-2141-01 ")
 ;;2992
 ;;21,"59762-2141-06 ")
 ;;2993
 ;;21,"59762-2142-01 ")
 ;;3019
 ;;21,"59762-2142-06 ")
 ;;3020
 ;;21,"59762-2270-01 ")
 ;;1473
 ;;21,"59762-2270-03 ")
 ;;1474
 ;;21,"59762-2270-07 ")
 ;;1475
 ;;21,"59762-2271-01 ")
 ;;1550
 ;;21,"59762-2271-03 ")
 ;;1551
 ;;21,"59762-2271-07 ")
 ;;1552
 ;;21,"59762-2272-01 ")
 ;;1922
 ;;21,"59762-2272-03 ")
 ;;1923
 ;;21,"59762-2272-07 ")
 ;;1924
 ;;21,"59762-2273-01 ")
 ;;2039
 ;;21,"59762-2273-03 ")
 ;;2040
 ;;21,"59762-2273-07 ")
 ;;2041
 ;;21,"59762-2274-01 ")
 ;;2280
 ;;21,"59762-2274-03 ")
 ;;2281
 ;;21,"59762-2274-07 ")
 ;;2330
 ;;21,"59762-2275-01 ")
 ;;2434
 ;;21,"59762-2275-03 ")
 ;;2435
 ;;21,"59762-2275-07 ")
 ;;2436
 ;;21,"59762-3146-01 ")
 ;;97
 ;;21,"59762-3146-02 ")
 ;;98
 ;;21,"59762-3147-01 ")
 ;;216
 ;;21,"59762-3147-02 ")
 ;;217
 ;;21,"59762-3148-01 ")
 ;;272
 ;;21,"59762-3148-02 ")
 ;;273
 ;;21,"59762-3294-01 ")
 ;;4395
 ;;21,"59762-3294-02 ")
 ;;4396
 ;;21,"59762-3294-03 ")
 ;;4397
 ;;21,"59762-3294-04 ")
 ;;4398
 ;;21,"59762-3295-01 ")
 ;;4451
 ;;21,"59762-3295-02 ")
 ;;4452
 ;;21,"59762-3295-03 ")
 ;;4453
 ;;21,"59762-3295-04 ")
 ;;4454
 ;;21,"59762-5019-01 ")
 ;;2598
 ;;21,"59762-5020-01 ")
 ;;2631
 ;;21,"59762-5021-01 ")
 ;;2668
 ;;21,"59762-5022-01 ")
 ;;2708
 ;;21,"59762-5250-01 ")
 ;;4183
 ;;21,"59762-5250-04 ")
 ;;4184
 ;;21,"59762-5251-01 ")
 ;;4191
 ;;21,"59762-5251-04 ")
 ;;4192
 ;;21,"59772-5160-05 ")
 ;;4098
 ;;21,"59772-5161-05 ")
 ;;4105
 ;;21,"59772-5162-05 ")
 ;;4111
 ;;21,"59772-5163-05 ")
 ;;4119
 ;;21,"59772-7045-01 ")
 ;;388
 ;;21,"59772-7045-03 ")
 ;;389
 ;;21,"59772-7046-01 ")
 ;;500
 ;;21,"59772-7046-03 ")
 ;;501
 ;;21,"59772-7047-01 ")
 ;;612
 ;;21,"59772-7047-03 ")
 ;;613
 ;;21,"59772-7048-01 ")
 ;;658
 ;;21,"59930-1655-01 ")
 ;;399
 ;;21,"59930-1655-02 ")
 ;;400
 ;;21,"59930-1655-03 ")
 ;;401
 ;;21,"59930-1656-01 ")
 ;;520
 ;;21,"59930-1656-02 ")
 ;;521
 ;;21,"59930-1656-03 ")
 ;;522
 ;;21,"59930-1657-01 ")
 ;;625
 ;;21,"59930-1657-02 ")
 ;;626
 ;;21,"59930-1657-03 ")
 ;;627
 ;;21,"59930-1658-01 ")
 ;;666
 ;;21,"60346-0534-30 ")
 ;;1232
 ;;21,"60346-0595-30 ")
 ;;2538
 ;;21,"60346-0612-30 ")
 ;;917
 ;;21,"60346-0612-90 ")
 ;;918
 ;;21,"60346-0618-30 ")
 ;;2805
 ;;21,"60346-0778-30 ")
 ;;502
 ;;21,"60346-0778-90 ")
 ;;503
 ;;21,"60346-0868-30 ")
 ;;611
 ;;21,"60346-0871-03 ")
 ;;1987
 ;;21,"60346-0871-30 ")
 ;;1988
 ;;21,"60346-0901-30 ")
 ;;1071
 ;;21,"60346-0972-08 ")
 ;;1972
 ;;21,"60346-0972-30 ")
 ;;1973
 ;;21,"60346-0984-30 ")
 ;;2750
 ;;21,"60346-0984-60 ")
 ;;2751
 ;;21,"60429-0029-01 ")
 ;;361
 ;;21,"60429-0029-10 ")
 ;;362
 ;;21,"60429-0029-90 ")
 ;;363
 ;;21,"60429-0030-01 ")
 ;;450
 ;;21,"60429-0030-10 ")
 ;;451
 ;;21,"60429-0030-12 ")
 ;;452
 ;;21,"60429-0030-27 ")
 ;;453
 ;;21,"60429-0030-60 ")
 ;;454
 ;;21,"60429-0030-90 ")
 ;;455
 ;;21,"60429-0031-01 ")
 ;;572
 ;;21,"60429-0031-10 ")
 ;;573
 ;;21,"60429-0031-12 ")
 ;;574
 ;;21,"60429-0031-27 ")
 ;;575
 ;;21,"60429-0031-30 ")
 ;;576
 ;;21,"60429-0031-60 ")
 ;;577
 ;;21,"60429-0031-90 ")
 ;;578
 ;;21,"60429-0038-01 ")
 ;;2722
 ;;21,"60429-0039-01 ")
 ;;2755
 ;;21,"60429-0039-10 ")
 ;;2756
 ;;21,"60429-0040-01 ")
 ;;2816
 ;;21,"60429-0040-10 ")
 ;;2849
 ;;21,"60429-0041-01 ")
 ;;2921
 ;;21,"60429-0041-10 ")
 ;;2922
 ;;21,"60429-0044-01 ")
 ;;4233
 ;;21,"60429-0044-10 ")
 ;;4234
 ;;21,"60429-0045-01 ")
 ;;4339
 ;;21,"60429-0045-10 ")
 ;;4340
 ;;21,"60429-0045-90 ")
 ;;4341
 ;;21,"60429-0046-01 ")
 ;;4412
 ;;21,"60429-0046-10 ")
 ;;4413
 ;;21,"60429-0071-01 ")
 ;;700
 ;;21,"60429-0071-05 ")
 ;;701
 ;;21,"60429-0071-10 ")
 ;;702
 ;;21,"60429-0071-27 ")
 ;;703
 ;;21,"60429-0071-30 ")
 ;;704
 ;;21,"60429-0071-60 ")
 ;;705
 ;;21,"60429-0071-90 ")
 ;;706
 ;;21,"60429-0072-01 ")
 ;;873
 ;;21,"60429-0072-05 ")
 ;;874
 ;;21,"60429-0072-10 ")
 ;;875
 ;;21,"60429-0072-27 ")
 ;;876
 ;;21,"60429-0072-30 ")
 ;;877
 ;;21,"60429-0072-60 ")
 ;;878
 ;;21,"60429-0072-90 ")
 ;;879
 ;;21,"60429-0073-01 ")
 ;;1021
 ;;21,"60429-0073-05 ")
 ;;1022
 ;;21,"60429-0073-10 ")
 ;;1023
 ;;21,"60429-0073-27 ")
 ;;1024
 ;;21,"60429-0073-30 ")
 ;;1025
 ;;21,"60429-0073-60 ")
 ;;1026
 ;;21,"60429-0073-90 ")
 ;;1027
 ;;21,"60429-0074-01 ")
 ;;1180
 ;;21,"60429-0074-05 ")
 ;;1181
 ;;21,"60429-0074-10 ")
 ;;1182
 ;;21,"60429-0074-27 ")
 ;;1183
 ;;21,"60429-0074-30 ")
 ;;1184
 ;;21,"60429-0074-60 ")
 ;;1185
 ;;21,"60429-0074-90 ")
 ;;1186
 ;;21,"60429-0234-10 ")
 ;;1235
 ;;21,"60429-0234-45 ")
 ;;1236
 ;;21,"60429-0234-90 ")
 ;;1237
 ;;21,"60429-0235-10 ")
 ;;1294
 ;;21,"60429-0235-18 ")
 ;;1295
 ;;21,"60429-0235-45 ")
 ;;1296
 ;;21,"60429-0235-90 ")
 ;;1297
 ;;21,"60429-0236-10 ")
 ;;1384
 ;;21,"60429-0236-18 ")
 ;;1385
 ;;21,"60429-0236-45 ")
 ;;1386
 ;;21,"60429-0236-90 ")
 ;;1387
 ;;21,"60429-0257-01 ")
 ;;674
 ;;21,"60429-0316-10 ")
 ;;3312
 ;;21,"60429-0316-30 ")
 ;;3313
 ;;21,"60429-0316-90 ")
 ;;3314
 ;;21,"60429-0317-10 ")
 ;;3415
 ;;21,"60429-0317-30 ")
 ;;3416
 ;;21,"60429-0317-90 ")
 ;;3417
 ;;21,"60429-0318-10 ")
 ;;3522
 ;;21,"60429-0318-30 ")
 ;;3523
 ;;21,"60429-0318-90 ")
 ;;3524
 ;;21,"60429-0728-01 ")
 ;;1469
 ;;21,"60429-0728-10 ")
 ;;1470
 ;;21,"60429-0728-30 ")
 ;;1471
 ;;21,"60429-0728-90 ")
 ;;1472
 ;;21,"60429-0729-01 ")
 ;;1555
 ;;21,"60429-0729-10 ")
 ;;1556
 ;;21,"60429-0729-30 ")
 ;;1557
 ;;21,"60429-0729-45 ")
 ;;1558
 ;;21,"60429-0729-90 ")
 ;;1559
 ;;21,"60429-0730-01 ")
 ;;1917
 ;;21,"60429-0730-10 ")
 ;;1918
 ;;21,"60429-0730-30 ")
 ;;1919
 ;;21,"60429-0730-45 ")
 ;;1920
 ;;21,"60429-0730-90 ")
 ;;1921
 ;;21,"60429-0731-01 ")
 ;;2042
 ;;21,"60429-0731-10 ")
 ;;2043
 ;;21,"60429-0731-30 ")
 ;;2044
 ;;21,"60429-0731-45 ")
 ;;2045
 ;;21,"60429-0731-90 ")
 ;;2046
 ;;21,"60429-0732-10 ")
 ;;2277
 ;;21,"60429-0732-30 ")
 ;;2278
 ;;21,"60429-0732-90 ")
 ;;2279
 ;;21,"60429-0733-01 ")
 ;;2506
 ;;21,"60429-0733-10 ")
 ;;2507
 ;;21,"60429-0733-30 ")
 ;;2508
 ;;21,"60429-0733-45 ")
 ;;2509
 ;;21,"60429-0733-90 ")
 ;;2510
 ;;21,"60429-0755-10 ")
 ;;1253
 ;;21,"60429-0755-45 ")
 ;;1254
 ;;21,"60429-0755-90 ")
 ;;1255
 ;;21,"60429-0756-10 ")
 ;;1342
 ;;21,"60429-0756-18 ")
 ;;1343
 ;;21,"60429-0756-45 ")
 ;;1344
 ;;21,"60429-0756-90 ")
 ;;1345
 ;;21,"60429-0757-10 ")
 ;;1399
 ;;21,"60429-0757-18 ")
 ;;1400
 ;;21,"60429-0757-45 ")
 ;;1409
 ;;21,"60429-0757-90 ")
 ;;1410
 ;;21,"60505-0003-06 ")
 ;;386
 ;;21,"60505-0003-09 ")
 ;;387
 ;;21,"60505-0004-06 ")
 ;;504
 ;;21,"60505-0004-09 ")
 ;;505
 ;;21,"60505-0005-06 ")
 ;;609
 ;;21,"60505-0005-09 ")
 ;;610
 ;;21,"60505-0006-06 ")
 ;;659
 ;;21,"60505-0006-09 ")
 ;;660
 ;;21,"60505-0049-07 ")
 ;;711
 ;;21,"60505-0049-09 ")
 ;;712
 ;;21,"60505-0050-07 ")
 ;;858
 ;;21,"60505-0050-09 ")
 ;;859
 ;;21,"60505-0051-07 ")
 ;;1007
 ;;21,"60505-0051-09 ")
 ;;1008
 ;;21,"60505-0052-09 ")
 ;;1165
 ;;21,"60505-0172-00 ")
 ;;2594
 ;;21,"60505-0172-01 ")
 ;;2595
 ;;21,"60505-0173-00 ")
 ;;2620
 ;;21,"60505-0173-01 ")
 ;;2621
 ;;21,"60505-0174-00 ")
 ;;2663
 ;;21,"60505-0174-01 ")
 ;;2664
 ;;21,"60505-0175-00 ")
 ;;2699
 ;;21,"60505-0175-01 ")
 ;;2700
 ;;21,"60505-0184-00 ")
 ;;1448
 ;;21,"60505-0184-01 ")
 ;;1449
 ;;21,"60505-0185-00 ")
 ;;1574
 ;;21,"60505-0185-01 ")
 ;;1575
 ;;21,"60505-0185-07 ")
 ;;1576
 ;;21,"60505-0185-09 ")
 ;;1577