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

BGP7GXMB.m

Go to the documentation of this file.
BGP7GXMB ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 25, 2006 ;
 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
 ;
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,"00369-0850-01 ")
 ;;129
 ;;21,"00369-0875-01 ")
 ;;130
 ;;21,"00378-0255-01 ")
 ;;1314
 ;;21,"00378-0255-05 ")
 ;;1315
 ;;21,"00378-0572-01 ")
 ;;1316
 ;;21,"00378-0572-05 ")
 ;;1317
 ;;21,"00378-3401-72 ")
 ;;1318
 ;;21,"00392-0522-68 ")
 ;;524
 ;;21,"00392-0522-78 ")
 ;;235
 ;;21,"00403-1773-84 ")
 ;;1319
 ;;21,"00403-1775-30 ")
 ;;1320
 ;;21,"00403-1776-01 ")
 ;;1321
 ;;21,"00403-1776-30 ")
 ;;1322
 ;;21,"00403-1778-20 ")
 ;;1323
 ;;21,"00403-2253-84 ")
 ;;1324
 ;;21,"00403-2253-88 ")
 ;;1325
 ;;21,"00403-2254-84 ")
 ;;1326
 ;;21,"00403-2555-18 ")
 ;;1327
 ;;21,"00403-2751-01 ")
 ;;525
 ;;21,"00403-2751-40 ")
 ;;526
 ;;21,"00403-2801-20 ")
 ;;1328
 ;;21,"00405-2135-16 ")
 ;;1329
 ;;21,"00405-3255-16 ")
 ;;1330
 ;;21,"00405-3825-16 ")
 ;;932
 ;;21,"00405-4030-01 ")
 ;;1331
 ;;21,"00405-4030-02 ")
 ;;1332
 ;;21,"00405-4031-01 ")
 ;;1333
 ;;21,"00405-4031-02 ")
 ;;1334
 ;;21,"00405-4060-01 ")
 ;;988
 ;;21,"00405-4060-03 ")
 ;;989
 ;;21,"00405-4061-01 ")
 ;;933
 ;;21,"00405-4061-03 ")
 ;;934
 ;;21,"00405-4629-01 ")
 ;;1335
 ;;21,"00405-4630-01 ")
 ;;1336
 ;;21,"00405-4983-01 ")
 ;;981
 ;;21,"00405-4984-01 ")
 ;;968
 ;;21,"00405-4985-01 ")
 ;;982
 ;;21,"00405-4986-01 ")
 ;;983
 ;;21,"00405-4987-01 ")
 ;;975
 ;;21,"00405-4987-02 ")
 ;;976
 ;;21,"00405-4988-01 ")
 ;;977
 ;;21,"00405-4988-02 ")
 ;;978
 ;;21,"00426-8650-16 ")
 ;;1337
 ;;21,"00430-0214-24 ")
 ;;881
 ;;21,"00430-0221-24 ")
 ;;882
 ;;21,"00440-7045-30 ")
 ;;1338
 ;;21,"00440-7046-30 ")
 ;;1339
 ;;21,"00440-8530-30 ")
 ;;314
 ;;21,"00440-8531-30 ")
 ;;641
 ;;21,"00440-8531-90 ")
 ;;642
 ;;21,"00440-8531-94 ")
 ;;643
 ;;21,"00440-8532-30 ")
 ;;471
 ;;21,"00451-0398-00 ")
 ;;1340
 ;;21,"00451-0398-50 ")
 ;;1341
 ;;21,"00451-0398-60 ")
 ;;1342
 ;;21,"00451-0399-00 ")
 ;;1343
 ;;21,"00451-0399-50 ")
 ;;1344
 ;;21,"00451-0399-60 ")
 ;;1345
 ;;21,"00456-0644-16 ")
 ;;905
 ;;21,"00456-0645-08 ")
 ;;883
 ;;21,"00456-0646-00 ")
 ;;613
 ;;21,"00456-0646-01 ")
 ;;334
 ;;21,"00456-0646-63 ")
 ;;614
 ;;21,"00456-0647-00 ")
 ;;41
 ;;21,"00456-0647-01 ")
 ;;455
 ;;21,"00456-0647-63 ")
 ;;456
 ;;21,"00456-0648-08 ")
 ;;885
 ;;21,"00456-0648-16 ")
 ;;886
 ;;21,"00456-3581-01 ")
 ;;906
 ;;21,"00456-3581-05 ")
 ;;907
 ;;21,"00456-3581-10 ")
 ;;908
 ;;21,"00456-4301-01 ")
 ;;922
 ;;21,"00456-4310-01 ")
 ;;930
 ;;21,"00456-4310-02 ")
 ;;931
 ;;21,"00456-4320-00 ")
 ;;909
 ;;21,"00456-4320-01 ")
 ;;910
 ;;21,"00456-4320-02 ")
 ;;911
 ;;21,"00456-4330-00 ")
 ;;912
 ;;21,"00456-4330-01 ")
 ;;913
 ;;21,"00456-4330-02 ")
 ;;914
 ;;21,"00456-4345-01 ")
 ;;916
 ;;21,"00463-9031-16 ")
 ;;872
 ;;21,"00467-0005-25 ")
 ;;446
 ;;21,"00467-0051-25 ")
 ;;209
 ;;21,"00471-0054-28 ")
 ;;245
 ;;21,"00471-0075-16 ")
 ;;248
 ;;21,"00471-0108-04 ")
 ;;563
 ;;21,"00471-0108-16 ")
 ;;564
 ;;21,"00472-0709-16 ")
 ;;868
 ;;21,"00472-0709-28 ")
 ;;537
 ;;21,"00472-0825-04 ")
 ;;1346
 ;;21,"00472-0825-08 ")
 ;;1347
 ;;21,"00472-0825-16 ")
 ;;1348
 ;;21,"00472-0873-08 ")
 ;;917
 ;;21,"00472-1238-16 ")
 ;;918
 ;;21,"00472-1444-16 ")
 ;;869
 ;;21,"00472-1444-28 ")
 ;;870
 ;;21,"00472-1445-16 ")
 ;;359
 ;;21,"00472-1445-28 ")
 ;;360
 ;;21,"00472-1540-16 ")
 ;;873
 ;;21,"00472-1552-16 ")
 ;;1349
 ;;21,"00472-1552-28 ")
 ;;1350
 ;;21,"00485-0059-16 ")
 ;;875
 ;;21,"00491-0122-01 ")
 ;;565
 ;;21,"00493-5002-01 ")
 ;;541
 ;;21,"00493-5002-10 ")
 ;;542
 ;;21,"00496-0609-01 ")
 ;;174
 ;;21,"00525-0302-01 ")
 ;;518
 ;;21,"00525-0305-01 ")
 ;;871
 ;;21,"00525-0376-16 ")
 ;;919
 ;;21,"00527-0599-01 ")
 ;;527
 ;;21,"00527-0599-05 ")
 ;;236
 ;;21,"00527-1004-01 ")
 ;;447
 ;;21,"00527-1004-10 ")
 ;;448
 ;;21,"00527-1006-01 ")
 ;;220
 ;;21,"00527-1006-10 ")
 ;;221
 ;;21,"00536-0415-85 ")
 ;;1351
 ;;21,"00536-0490-85 ")
 ;;1352
 ;;21,"00536-0760-90 ")
 ;;261
 ;;21,"00536-1462-85 ")
 ;;1353
 ;;21,"00536-2120-85 ")
 ;;551
 ;;21,"00536-2120-90 ")
 ;;552
 ;;21,"00536-3008-01 ")
 ;;1354
 ;;21,"00536-3008-05 ")
 ;;1355
 ;;21,"00536-3009-01 ")
 ;;1356
 ;;21,"00536-3009-05 ")
 ;;1357
 ;;21,"00536-3868-10 ")
 ;;282
 ;;21,"00536-3906-01 ")
 ;;1358
 ;;21,"00536-3906-05 ")
 ;;1359
 ;;21,"00536-3906-10 ")
 ;;1360
 ;;21,"00536-4437-01 ")
 ;;1361
 ;;21,"00536-4438-01 ")
 ;;1362
 ;;21,"00536-4652-01 ")
 ;;876
 ;;21,"00536-4652-05 ")
 ;;877
 ;;21,"00536-4652-10 ")
 ;;878
 ;;21,"00536-4996-01 ")
 ;;315
 ;;21,"00536-4997-01 ")
 ;;644
 ;;21,"00536-4997-05 ")
 ;;376
 ;;21,"00536-4997-10 ")
 ;;645
 ;;21,"00536-4998-01 ")
 ;;472
 ;;21,"00536-4998-05 ")
 ;;69
 ;;21,"00536-4998-10 ")
 ;;70
 ;;21,"00536-5538-01 ")
 ;;1363
 ;;21,"00536-5538-05 ")
 ;;1364
 ;;21,"00537-2003-01 ")
 ;;449
 ;;21,"00537-2003-10 ")
 ;;210
 ;;21,"00537-2004-10 ")
 ;;211
 ;;21,"00537-2005-01 ")
 ;;222
 ;;21,"00537-2005-10 ")
 ;;476
 ;;21,"00537-2546-16 ")
 ;;148
 ;;21,"00537-2546-28 ")
 ;;149
 ;;21,"00537-2550-16 ")
 ;;262
 ;;21,"00537-2550-28 ")
 ;;263
 ;;21,"00537-5006-10 ")
 ;;477
 ;;21,"00537-6062-01 ")
 ;;283
 ;;21,"00537-6062-10 ")
 ;;284
 ;;21,"00537-6365-16 ")
 ;;553
 ;;21,"00537-6365-28 ")
 ;;554
 ;;21,"00538-3378-01 ")
 ;;237
 ;;21,"00538-3379-16 ")
 ;;264
 ;;21,"00551-0123-01 ")
 ;;923
 ;;21,"00551-0123-02 ")
 ;;924
 ;;21,"00551-0124-01 ")
 ;;925
 ;;21,"00551-0124-02 ")
 ;;926
 ;;21,"00551-0205-01 ")
 ;;921
 ;;21,"00556-0048-01 ")
 ;;212
 ;;21,"00556-0048-10 ")
 ;;450
 ;;21,"00556-0149-16 ")
 ;;928
 ;;21,"00556-0149-28 ")
 ;;929
 ;;21,"00556-0240-01 ")
 ;;223
 ;;21,"00556-0240-10 ")
 ;;478
 ;;21,"00573-2942-10 ")
 ;;1365
 ;;21,"00573-2942-20 ")
 ;;1366
 ;;21,"00580-0008-01 ")
 ;;213
 ;;21,"00580-0008-10 ")
 ;;451
 ;;21,"00580-0010-01 ")
 ;;479
 ;;21,"00580-0010-10 ")
 ;;480
 ;;21,"00580-0343-16 ")
 ;;285
 ;;21,"00580-0346-16 ")
 ;;150
 ;;21,"00580-0346-99 ")
 ;;151
 ;;21,"00580-0472-16 ")
 ;;1367
 ;;21,"00580-0704-01 ")
 ;;498
 ;;21,"00580-0704-05 ")
 ;;499
 ;;21,"00580-0816-16 ")
 ;;1368
 ;;21,"00580-0875-01 ")
 ;;646
 ;;21,"00580-0875-05 ")
 ;;647
 ;;21,"00580-1584-34 ")
 ;;437
 ;;21,"00580-1608-16 ")
 ;;1369
 ;;21,"00580-1619-01 ")
 ;;1370
 ;;21,"00580-1620-01 ")
 ;;1371
 ;;21,"00585-0218-84 ")
 ;;201
 ;;21,"00585-1218-20 ")
 ;;1372
 ;;21,"00585-1218-25 ")
 ;;1373
 ;;21,"00585-2218-80 ")
 ;;438
 ;;21,"00585-2218-82 ")
 ;;202
 ;;21,"00585-3318-40 ")
 ;;500
 ;;21,"00585-4318-50 ")
 ;;71
 ;;21,"00585-5318-60 ")
 ;;501
 ;;21,"00585-6218-70 ")
 ;;42
 ;;21,"00585-6219-01 ")
 ;;616
 ;;21,"00585-7218-75 ")
 ;;617
 ;;21,"00585-7219-10 ")
 ;;48
 ;;21,"00591-5710-01 ")
 ;;1374
 ;;21,"00591-5711-01 ")
 ;;1375
 ;;21,"00591-5724-01 ")
 ;;1376
 ;;21,"00591-5725-01 ")
 ;;1377
 ;;21,"00597-0049-01 ")
 ;;1378
 ;;21,"00597-0072-01 ")
 ;;1379
 ;;21,"00597-0073-16 ")
 ;;1380
 ;;21,"00597-0074-01 ")
 ;;1381
 ;;21,"00603-1007-58 ")
 ;;1382
 ;;21,"00603-1190-58 ")
 ;;971
 ;;21,"00603-1422-58 ")
 ;;1383
 ;;21,"00603-1715-58 ")
 ;;256
 ;;21,"00603-1729-58 ")
 ;;887
 ;;21,"00603-1742-58 ")
 ;;176
 ;;21,"00603-2093-21 ")
 ;;1384
 ;;21,"00603-2093-28 ")
 ;;1385
 ;;21,"00603-2094-21 ")
 ;;1386
 ;;21,"00603-2094-28 ")
 ;;1387
 ;;21,"00603-3948-21 ")
 ;;1388
 ;;21,"00603-4464-21 ")
 ;;1389
 ;;21,"00603-4465-21 ")
 ;;1390
 ;;21,"00603-5747-21 ")
 ;;915
 ;;21,"00603-5944-21 ")
 ;;943
 ;;21,"00603-5944-28 ")
 ;;944
 ;;21,"00603-5945-21 ")
 ;;893
 ;;21,"00603-5945-28 ")
 ;;894
 ;;21,"00603-5945-32 ")
 ;;895
 ;;21,"00603-5946-21 ")
 ;;896
 ;;21,"00603-5946-28 ")
 ;;897
 ;;21,"00603-5946-29 ")
 ;;898
 ;;21,"00603-5946-32 ")
 ;;899
 ;;21,"00603-5947-21 ")
 ;;141
 ;;21,"00603-5950-21 ")
 ;;945
 ;;21,"00603-5951-21 ")
 ;;892
 ;;21,"00603-5952-21 ")
 ;;946
 ;;21,"00615-0314-01 ")
 ;;555
 ;;21,"00615-0727-16 ")
 ;;265
 ;;21,"00615-0729-16 ")
 ;;152
 ;;21,"00615-0729-60 ")
 ;;153
 ;;21,"00615-0799-16 ")
 ;;1391
 ;;21,"00615-1505-01 ")
 ;;1392
 ;;21,"00615-1505-10 ")
 ;;1393
 ;;21,"00615-1706-16 ")
 ;;266
 ;;21,"00615-3517-13 ")
 ;;1394
 ;;21,"00615-3517-29 ")
 ;;1395
 ;;21,"00615-3517-43 ")
 ;;1396
 ;;21,"00615-3517-53 ")
 ;;1397
 ;;21,"00615-3517-63 ")
 ;;1398
 ;;21,"00615-3518-13 ")
 ;;1399
 ;;21,"00615-3518-29 ")
 ;;1400
 ;;21,"00615-3518-43 ")
 ;;1401
 ;;21,"00615-3518-53 ")
 ;;1402
 ;;21,"00615-3518-63 ")
 ;;1403
 ;;21,"00659-1305-30 ")
 ;;502
 ;;21,"00659-2801-54 ")
 ;;1404
 ;;21,"00659-2805-25 ")
 ;;955
 ;;21,"00659-2809-30 ")
 ;;72
 ;;21,"00659-2810-30 ")
 ;;648
 ;;21,"00675-2250-07 ")
 ;;452
 ;;21,"00675-2250-12 ")
 ;;453
 ;;21,"00675-2258-07 ")
 ;;481
 ;;21,"00675-2258-12 ")
 ;;224
 ;;21,"00675-2262-07 ")
 ;;225
 ;;21,"00675-2262-12 ")
 ;;226
 ;;21,"00675-2847-16 ")
 ;;544
 ;;21,"00675-2850-16 ")
 ;;706
 ;;21,"00675-2850-28 ")
 ;;707
 ;;21,"00675-2853-16 ")
 ;;177
 ;;21,"00675-2853-28 ")
 ;;178
 ;;21,"00675-4024-07 ")
 ;;131
 ;;21,"00675-4024-10 ")
 ;;132
 ;;21,"00677-0003-01 ")
 ;;987
 ;;21,"00677-0007-01 ")
 ;;953
 ;;21,"00677-0007-10 ")
 ;;954
 ;;21,"00677-0817-01 ")
 ;;900
 ;;21,"00677-0817-05 ")
 ;;901
 ;;21,"00677-0846-01 ")
 ;;902
 ;;21,"00677-0846-05 ")
 ;;903
 ;;21,"00677-1037-01 ")
 ;;904
 ;;21,"00677-1253-01 ")
 ;;1405
 ;;21,"00677-1254-01 ")
 ;;1406
 ;;21,"00677-1359-01 ")
 ;;1407
 ;;21,"00677-1359-05 ")
 ;;1408
 ;;21,"00677-1360-01 ")
 ;;1409
 ;;21,"00677-1360-05 ")
 ;;1410
 ;;21,"00677-1445-33 ")
 ;;1411
 ;;21,"00677-1505-33 ")
 ;;1412
 ;;21,"00677-1780-01 ")
 ;;891
 ;;21,"00686-0656-20 ")
 ;;1413
 ;;21,"00686-0657-20 ")
 ;;1414
 ;;21,"00686-0658-20 ")
 ;;1415
 ;;21,"00686-0873-08 ")
 ;;439
 ;;21,"00686-1020-25 ")
 ;;454
 ;;21,"00686-1025-25 ")
 ;;227
 ;;21,"00686-2230-09 ")
 ;;1416
 ;;21,"00686-2232-09 ")
 ;;1417
 ;;21,"00686-6117-38 ")
 ;;1418
 ;;21,"00719-1004-10 ")
 ;;1419
 ;;21,"00719-1005-10 ")
 ;;1420
 ;;21,"00719-1030-13 ")
 ;;214
 ;;21,"00719-1031-13 ")
 ;;228
 ;;21,"00719-1584-10 ")
 ;;1421
 ;;21,"00719-1585-10 ")
 ;;1422
 ;;21,"00719-1939-10 ")
 ;;316
 ;;21,"00719-1942-10 ")
 ;;377
 ;;21,"00719-1942-13 ")
 ;;378
 ;;21,"00719-1943-10 ")
 ;;503
 ;;21,"00719-1943-12 ")
 ;;504
 ;;21,"00719-1943-13 ")
 ;;73
 ;;21,"00719-4070-80 ")
 ;;203
 ;;21,"00719-4172-83 ")
 ;;286
 ;;21,"00719-4195-83 ")
 ;;1423
 ;;21,"00719-4343-83 ")
 ;;531
 ;;21,"00719-4553-83 ")
 ;;1424
 ;;21,"00719-4820-83 ")
 ;;287
 ;;21,"00719-4820-85 ")
 ;;566
 ;;21,"00719-4825-83 ")
 ;;708
 ;;21,"00719-4825-85 ")
 ;;709
 ;;21,"00779-1085-25 ")
 ;;567
 ;;21,"00779-1085-30 ")
 ;;568
 ;;21,"00781-1004-13 ")
 ;;379
 ;;21,"00781-1005-13 ")
 ;;74
 ;;21,"00781-1214-10 ")
 ;;473
 ;;21,"00781-1671-01 ")
 ;;1425
 ;;21,"00781-1672-01 ")
 ;;1426
 ;;21,"00781-1702-01 ")
 ;;1427
 ;;21,"00781-1703-01 ")
 ;;1428
 ;;21,"00781-2890-01 ")
 ;;569
 ;;21,"00781-2890-05 ")
 ;;288
 ;;21,"00781-6067-16 ")
 ;;1429
 ;;21,"00781-6404-16 ")
 ;;1430
 ;;21,"00781-6600-16 ")
 ;;935
 ;;21,"00781-6600-28 ")
 ;;936
 ;;21,"00781-6602-16 ")
 ;;556
 ;;21,"00783-0152-09 ")
 ;;215
 ;;21,"00783-0170-09 ")
 ;;409
 ;;21,"00783-0209-09 ")
 ;;229
 ;;21,"00783-0665-09 ")
 ;;230
 ;;21,"00785-4345-01 ")
 ;;947
 ;;21,"00814-4500-14 ")
 ;;1431
 ;;21,"00814-4500-30 ")
 ;;1432
 ;;21,"00814-4742-82 ")
 ;;1433
 ;;21,"00814-7785-86 ")
 ;;154
 ;;21,"00814-7790-82 ")
 ;;557
 ;;21,"00832-1073-00 ")
 ;;1434
 ;;21,"00832-1074-00 ")
 ;;1435
 ;;21,"00832-8019-16 ")
 ;;155
 ;;21,"00832-8019-28 ")
 ;;710
 ;;21,"00832-8069-16 ")
 ;;249
 ;;21,"00832-8069-28 ")
 ;;75
 ;;21,"00832-8078-16 ")
 ;;361
 ;;21,"00832-8078-28 ")
 ;;267
 ;;21,"00832-8525-08 ")
 ;;440
 ;;21,"00832-8650-16 ")
 ;;1436
 ;;21,"00834-4019-91 ")
 ;;519
 ;;21,"00834-4019-99 ")
 ;;520
 ;;21,"00839-1011-06 ")
 ;;949
 ;;21,"00839-1011-16 ")
 ;;950
 ;;21,"00839-5029-69 ")
 ;;951
 ;;21,"00839-5029-70 ")
 ;;952
 ;;21,"00839-5053-16 ")
 ;;972
 ;;21,"00839-5441-69 ")
 ;;558
 ;;21,"00839-6216-06 ")
 ;;1437
 ;;21,"00839-6216-16 ")
 ;;1438
 ;;21,"00839-6311-69 ")
 ;;250
 ;;21,"00839-6348-69 ")
 ;;927
 ;;21,"00839-6693-06 ")
 ;;958
 ;;21,"00839-6693-12 ")
 ;;505
 ;;21,"00839-6693-16 ")
 ;;959
 ;;21,"00839-6697-06 ")
 ;;966
 ;;21,"00839-6729-06 ")
 ;;960
 ;;21,"00839-6729-12 ")
 ;;961
 ;;21,"00839-6729-16 ")
 ;;962
 ;;21,"00839-6730-06 ")
 ;;990
 ;;21,"00839-6730-12 ")
 ;;991
 ;;21,"00839-7442-69 ")
 ;;1439
 ;;21,"00839-7485-06 ")
 ;;1440
 ;;21,"00839-7486-06 ")
 ;;1441
 ;;21,"00839-7611-06 ")
 ;;1442
 ;;21,"00839-7611-12 ")
 ;;1443
 ;;21,"00839-7612-06 ")
 ;;1444
 ;;21,"00839-7612-12 ")
 ;;1445
 ;;21,"00839-7651-06 ")
 ;;948
 ;;21,"00839-7705-06 ")
 ;;992
 ;;21,"00839-7706-06 ")
 ;;963
 ;;21,"00839-7706-12 ")
 ;;964
 ;;21,"00839-7707-16 ")
 ;;965
 ;;21,"00839-7746-69 ")
 ;;1446
 ;;21,"00839-7859-69 ")
 ;;1447
 ;;21,"00839-7867-06 ")
 ;;1448
 ;;21,"00839-7868-06 ")
 ;;1449