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

BGP7GXMC.m

Go to the documentation of this file.
BGP7GXMC ; 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,"00839-7885-06 ")
 ;;969
 ;;21,"00839-7886-06 ")
 ;;979
 ;;21,"00839-7887-06 ")
 ;;967
 ;;21,"00839-7888-06 ")
 ;;980
 ;;21,"00853-0121-01 ")
 ;;238
 ;;21,"00853-0121-10 ")
 ;;239
 ;;21,"00879-0090-10 ")
 ;;184
 ;;21,"00879-0426-16 ")
 ;;268
 ;;21,"00879-0426-28 ")
 ;;269
 ;;21,"00904-0623-60 ")
 ;;1450
 ;;21,"00904-0623-80 ")
 ;;1451
 ;;21,"00904-0720-16 ")
 ;;1452
 ;;21,"00904-0720-28 ")
 ;;1453
 ;;21,"00904-0978-16 ")
 ;;538
 ;;21,"00904-1445-16 ")
 ;;179
 ;;21,"00904-1445-28 ")
 ;;270
 ;;21,"00904-1555-16 ")
 ;;984
 ;;21,"00904-1556-60 ")
 ;;970
 ;;21,"00904-1557-60 ")
 ;;995
 ;;21,"00904-1558-60 ")
 ;;942
 ;;21,"00904-1610-60 ")
 ;;985
 ;;21,"00904-1610-61 ")
 ;;986
 ;;21,"00904-1611-60 ")
 ;;937
 ;;21,"00904-1611-61 ")
 ;;938
 ;;21,"00904-1611-80 ")
 ;;956
 ;;21,"00904-1612-40 ")
 ;;939
 ;;21,"00904-1612-60 ")
 ;;940
 ;;21,"00904-1612-61 ")
 ;;941
 ;;21,"00904-1612-80 ")
 ;;957
 ;;21,"00904-2273-60 ")
 ;;993
 ;;21,"00904-2273-61 ")
 ;;185
 ;;21,"00904-2273-80 ")
 ;;994
 ;;21,"00904-2282-60 ")
 ;;271
 ;;21,"00904-2283-60 ")
 ;;973
 ;;21,"00904-2283-80 ")
 ;;974
 ;;21,"00904-2876-40 ")
 ;;1454
 ;;21,"00904-2876-60 ")
 ;;1455
 ;;21,"00904-2876-61 ")
 ;;1456
 ;;21,"00904-2877-40 ")
 ;;1457
 ;;21,"00904-2877-60 ")
 ;;1458
 ;;21,"00904-2877-61 ")
 ;;1459
 ;;21,"00904-2878-60 ")
 ;;1460
 ;;21,"00904-2878-61 ")
 ;;1461
 ;;21,"00904-2879-60 ")
 ;;1462
 ;;21,"00904-2879-61 ")
 ;;1463
 ;;21,"00904-2880-16 ")
 ;;1464
 ;;21,"00904-5386-60 ")
 ;;240
 ;;21,"00904-7681-16 ")
 ;;1465
 ;;21,"00904-7849-60 ")
 ;;1017
 ;;21,"10350-0112-16 ")
 ;;156
 ;;21,"10892-0150-65 ")
 ;;1010
 ;;21,"11845-0144-01 ")
 ;;1466
 ;;21,"11845-0145-01 ")
 ;;1467
 ;;21,"11845-0358-01 ")
 ;;596
 ;;21,"11845-0358-03 ")
 ;;317
 ;;21,"11845-0359-01 ")
 ;;380
 ;;21,"11845-0359-03 ")
 ;;381
 ;;21,"11845-0360-01 ")
 ;;506
 ;;21,"11845-0360-03 ")
 ;;76
 ;;21,"11845-0390-01 ")
 ;;570
 ;;21,"11845-0390-02 ")
 ;;289
 ;;21,"11845-0390-04 ")
 ;;571
 ;;21,"11845-0390-20 ")
 ;;572
 ;;21,"11845-0400-01 ")
 ;;1468
 ;;21,"11845-0400-03 ")
 ;;1469
 ;;21,"11845-0401-01 ")
 ;;1470
 ;;21,"11845-0401-03 ")
 ;;1471
 ;;21,"11845-0412-13 ")
 ;;1472
 ;;21,"12634-0132-01 ")
 ;;573
 ;;21,"12634-0132-10 ")
 ;;290
 ;;21,"12939-0128-42 ")
 ;;257
 ;;21,"12939-0132-16 ")
 ;;1165
 ;;21,"12939-0209-16 ")
 ;;291
 ;;21,"12939-0212-16 ")
 ;;1011
 ;;21,"12939-0459-90 ")
 ;;77
 ;;21,"12939-0482-50 ")
 ;;382
 ;;21,"15370-0021-10 ")
 ;;1166
 ;;21,"17022-2597-09 ")
 ;;1473
 ;;21,"17022-3399-07 ")
 ;;545
 ;;21,"17022-3567-09 ")
 ;;157
 ;;21,"17022-4041-02 ")
 ;;1474
 ;;21,"17022-4041-06 ")
 ;;1475
 ;;21,"17022-8599-06 ")
 ;;292
 ;;21,"17236-0103-01 ")
 ;;186
 ;;21,"17236-0103-10 ")
 ;;187
 ;;21,"17236-0142-01 ")
 ;;241
 ;;21,"17236-0173-01 ")
 ;;1476
 ;;21,"17236-0173-10 ")
 ;;1477
 ;;21,"17236-0324-01 ")
 ;;1002
 ;;21,"17236-0324-05 ")
 ;;1003
 ;;21,"17236-0324-10 ")
 ;;1004
 ;;21,"17236-0325-01 ")
 ;;1005
 ;;21,"17236-0325-10 ")
 ;;1006
 ;;21,"17236-0335-01 ")
 ;;1027
 ;;21,"17236-0335-05 ")
 ;;1028
 ;;21,"17236-0335-10 ")
 ;;318
 ;;21,"17236-0497-01 ")
 ;;1478
 ;;21,"17236-0498-01 ")
 ;;1479
 ;;21,"17236-0503-01 ")
 ;;231
 ;;21,"17236-0503-10 ")
 ;;232
 ;;21,"17236-0561-01 ")
 ;;293
 ;;21,"17236-0561-10 ")
 ;;574
 ;;21,"17236-0709-16 ")
 ;;539
 ;;21,"17236-0709-28 ")
 ;;251
 ;;21,"17236-0779-16 ")
 ;;1480
 ;;21,"17236-0840-16 ")
 ;;258
 ;;21,"17236-0840-28 ")
 ;;259
 ;;21,"17236-0842-16 ")
 ;;711
 ;;21,"17236-0842-28 ")
 ;;158
 ;;21,"17236-0845-16 ")
 ;;1481
 ;;21,"17236-0894-01 ")
 ;;1482
 ;;21,"17236-0895-01 ")
 ;;1483
 ;;21,"38130-0012-01 ")
 ;;1007
 ;;21,"38130-0012-10 ")
 ;;1008
 ;;21,"38130-0400-01 ")
 ;;242
 ;;21,"38245-0132-10 ")
 ;;1484
 ;;21,"38245-0132-50 ")
 ;;1485
 ;;21,"38245-0134-10 ")
 ;;1486
 ;;21,"38245-0134-50 ")
 ;;1487
 ;;21,"38245-0138-07 ")
 ;;1488
 ;;21,"43567-0563-07 ")
 ;;1489
 ;;21,"43567-0563-11 ")
 ;;1490
 ;;21,"43567-0564-07 ")
 ;;1491
 ;;21,"43567-0564-11 ")
 ;;1492
 ;;21,"43797-0075-03 ")
 ;;383
 ;;21,"43797-0313-16 ")
 ;;493
 ;;21,"44514-0903-36 ")
 ;;339
 ;;21,"44514-0904-36 ")
 ;;49
 ;;21,"44778-0019-09 ")
 ;;1493
 ;;21,"45565-0305-01 ")
 ;;1162
 ;;21,"45565-0306-17 ")
 ;;1164
 ;;21,"45985-0633-08 ")
 ;;1160
 ;;21,"45985-0647-01 ")
 ;;1163
 ;;21,"46672-0614-16 ")
 ;;1026
 ;;21,"47202-1039-01 ")
 ;;1494
 ;;21,"47202-1077-01 ")
 ;;294
 ;;21,"47202-1077-02 ")
 ;;295
 ;;21,"47202-1078-01 ")
 ;;159
 ;;21,"47202-1078-02 ")
 ;;712
 ;;21,"47202-1079-01 ")
 ;;272
 ;;21,"47202-1275-01 ")
 ;;252
 ;;21,"47202-1275-02 ")
 ;;253
 ;;21,"47202-1296-01 ")
 ;;246
 ;;21,"47202-1303-08 ")
 ;;204
 ;;21,"47202-1413-01 ")
 ;;1495
 ;;21,"47202-2001-01 ")
 ;;188
 ;;21,"47202-2249-04 ")
 ;;273
 ;;21,"47202-2320-01 ")
 ;;482
 ;;21,"47202-2421-01 ")
 ;;507
 ;;21,"47202-2421-02 ")
 ;;508
 ;;21,"47202-2421-03 ")
 ;;509
 ;;21,"47202-2438-01 ")
 ;;319
 ;;21,"47202-2439-01 ")
 ;;649
 ;;21,"47202-2439-03 ")
 ;;384
 ;;21,"47202-2625-01 ")
 ;;495
 ;;21,"47202-2733-01 ")
 ;;496
 ;;21,"47202-2734-01 ")
 ;;388
 ;;21,"47202-2923-01 ")
 ;;1496
 ;;21,"47202-2924-01 ")
 ;;1497
 ;;21,"47649-0580-10 ")
 ;;650
 ;;21,"47649-0782-16 ")
 ;;713
 ;;21,"47679-0437-11 ")
 ;;274
 ;;21,"47679-0438-11 ")
 ;;714
 ;;21,"49158-0261-34 ")
 ;;715
 ;;21,"49158-0261-38 ")
 ;;160
 ;;21,"49158-0261-39 ")
 ;;161
 ;;21,"49502-0432-05 ")
 ;;651
 ;;21,"49502-0433-01 ")
 ;;510
 ;;21,"49502-0433-05 ")
 ;;78
 ;;21,"49502-0433-10 ")
 ;;511
 ;;21,"49502-0795-16 ")
 ;;1498
 ;;21,"49727-0474-04 ")
 ;;385
 ;;21,"49727-0475-04 ")
 ;;512
 ;;21,"49727-0960-02 ")
 ;;320
 ;;21,"49884-0258-01 ")
 ;;1499
 ;;21,"49884-0259-01 ")
 ;;1500
 ;;21,"49884-0411-33 ")
 ;;1501
 ;;21,"49999-0338-16 ")
 ;;1502
 ;;21,"49999-0550-00 ")
 ;;483
 ;;21,"50111-0459-01 ")
 ;;996
 ;;21,"50111-0459-02 ")
 ;;997
 ;;21,"50111-0459-03 ")
 ;;998
 ;;21,"50111-0482-01 ")
 ;;999
 ;;21,"50111-0482-02 ")
 ;;1000
 ;;21,"50111-0482-03 ")
 ;;1001
 ;;21,"50111-0483-01 ")
 ;;1030
 ;;21,"50111-0483-02 ")
 ;;1031
 ;;21,"50111-0483-03 ")
 ;;1032
 ;;21,"50111-0491-01 ")
 ;;1503
 ;;21,"50111-0491-02 ")
 ;;1504
 ;;21,"50111-0492-01 ")
 ;;1505
 ;;21,"50111-0492-02 ")
 ;;1506
 ;;21,"50111-0518-01 ")
 ;;1012
 ;;21,"50111-0846-01 ")
 ;;386
 ;;21,"50111-0846-05 ")
 ;;387
 ;;21,"50349-0165-01 ")
 ;;1507
 ;;21,"50349-0165-05 ")
 ;;1508
 ;;21,"50349-0166-01 ")
 ;;1509
 ;;21,"50349-0166-05 ")
 ;;1510
 ;;21,"50349-0172-01 ")
 ;;1511
 ;;21,"50349-0172-05 ")
 ;;1512
 ;;21,"50349-0172-10 ")
 ;;1513
 ;;21,"50349-0177-01 ")
 ;;1514
 ;;21,"50349-0177-05 ")
 ;;1515
 ;;21,"50349-0177-10 ")
 ;;1516
 ;;21,"50383-0740-16 ")
 ;;1517
 ;;21,"50383-0806-16 ")
 ;;1033
 ;;21,"50419-0112-08 ")
 ;;716
 ;;21,"50419-0120-10 ")
 ;;691
 ;;21,"50419-0121-16 ")
 ;;692
 ;;21,"50419-0121-32 ")
 ;;717
 ;;21,"50419-0123-10 ")
 ;;43
 ;;21,"50419-0123-11 ")
 ;;457
 ;;21,"50419-0123-50 ")
 ;;458
 ;;21,"50419-0123-51 ")
 ;;459
 ;;21,"50419-0124-08 ")
 ;;296
 ;;21,"50419-0124-28 ")
 ;;180
 ;;21,"50419-0129-10 ")
 ;;335
 ;;21,"50419-0129-11 ")
 ;;336
 ;;21,"50419-0129-50 ")
 ;;615
 ;;21,"50419-0129-51 ")
 ;;337
 ;;21,"50419-0136-16 ")
 ;;543
 ;;21,"50474-0100-01 ")
 ;;1013
 ;;21,"50474-0200-01 ")
 ;;1037
 ;;21,"50474-0200-50 ")
 ;;1038
 ;;21,"50474-0200-60 ")
 ;;1039
 ;;21,"50474-0300-01 ")
 ;;1021
 ;;21,"50474-0300-50 ")
 ;;1022
 ;;21,"50474-0300-60 ")
 ;;1023
 ;;21,"50474-0400-01 ")
 ;;1009
 ;;21,"50474-2832-04 ")
 ;;308
 ;;21,"50474-2832-06 ")
 ;;588
 ;;21,"50474-2842-04 ")
 ;;631
 ;;21,"50474-2842-06 ")
 ;;632
 ;;21,"50474-2842-08 ")
 ;;633
 ;;21,"50474-2852-04 ")
 ;;58
 ;;21,"50474-2852-06 ")
 ;;465
 ;;21,"50474-2852-08 ")
 ;;59
 ;;21,"50474-2902-04 ")
 ;;134
 ;;21,"50474-2902-06 ")
 ;;696
 ;;21,"50732-0896-04 ")
 ;;1014
 ;;21,"50732-0896-16 ")
 ;;1015
 ;;21,"50732-0896-28 ")
 ;;1016
 ;;21,"50732-0897-16 ")
 ;;1046
 ;;21,"50732-0897-28 ")
 ;;1047
 ;;21,"50962-0401-15 ")
 ;;162
 ;;21,"50962-0402-05 ")
 ;;1518
 ;;21,"50962-0408-03 ")
 ;;1519
 ;;21,"50962-0408-05 ")
 ;;1520
 ;;21,"50991-0200-16 ")
 ;;1018
 ;;21,"50991-0214-16 ")
 ;;362
 ;;21,"50991-0400-01 ")
 ;;1019
 ;;21,"50991-0400-05 ")
 ;;1020
 ;;21,"50991-0413-01 ")
 ;;363
 ;;21,"51079-0311-10 ")
 ;;559
 ;;21,"51079-0312-10 ")
 ;;275
 ;;21,"51079-0313-10 ")
 ;;560
 ;;21,"51079-0641-10 ")
 ;;1521
 ;;21,"51079-0642-10 ")
 ;;1522
 ;;21,"51079-0657-01 ")
 ;;1523
 ;;21,"51079-0657-20 ")
 ;;1524
 ;;21,"51079-0658-01 ")
 ;;1525
 ;;21,"51079-0658-20 ")
 ;;1526
 ;;21,"51079-0760-10 ")
 ;;1527
 ;;21,"51079-0761-10 ")
 ;;1528
 ;;21,"51079-0830-06 ")
 ;;1529
 ;;21,"51079-0831-06 ")
 ;;1530
 ;;21,"51285-0223-02 ")
 ;;410
 ;;21,"51285-0223-05 ")
 ;;411
 ;;21,"51285-0224-02 ")
 ;;233
 ;;21,"51285-0224-05 ")
 ;;484
 ;;21,"51285-0720-57 ")
 ;;1531
 ;;21,"51432-0004-00 ")
 ;;412
 ;;21,"51432-0004-06 ")
 ;;189
 ;;21,"51432-0006-00 ")
 ;;485
 ;;21,"51432-0006-03 ")
 ;;486
 ;;21,"51432-0006-06 ")
 ;;366
 ;;21,"51432-0222-03 ")
 ;;1532
 ;;21,"51432-0222-05 ")
 ;;1533
 ;;21,"51432-0222-06 ")
 ;;1534
 ;;21,"51432-0287-03 ")
 ;;1535
 ;;21,"51432-0340-20 ")
 ;;1536
 ;;21,"51432-0381-03 ")
 ;;1537
 ;;21,"51432-0381-05 ")
 ;;1538
 ;;21,"51432-0382-03 ")
 ;;1539
 ;;21,"51432-0382-05 ")
 ;;1540
 ;;21,"51432-0423-03 ")
 ;;1541
 ;;21,"51432-0451-03 ")
 ;;435
 ;;21,"51432-0451-05 ")
 ;;38
 ;;21,"51432-0452-03 ")
 ;;321
 ;;21,"51432-0452-05 ")
 ;;322
 ;;21,"51432-0453-03 ")
 ;;79
 ;;21,"51432-0453-05 ")
 ;;513
 ;;21,"51432-0454-03 ")
 ;;297
 ;;21,"51432-0505-19 ")
 ;;441
 ;;21,"51432-0540-20 ")
 ;;540
 ;;21,"51432-0578-20 ")
 ;;247
 ;;21,"51432-0606-20 ")
 ;;1542
 ;;21,"51432-0606-21 ")
 ;;1543
 ;;21,"51432-0641-20 ")
 ;;1544
 ;;21,"51432-0676-20 ")
 ;;546
 ;;21,"51432-0676-21 ")
 ;;547
 ;;21,"51432-0678-20 ")
 ;;718
 ;;21,"51432-0678-21 ")
 ;;163
 ;;21,"51432-0680-20 ")
 ;;276
 ;;21,"51432-0680-21 ")
 ;;277
 ;;21,"51655-0171-76 ")
 ;;514
 ;;21,"51655-0173-56 ")
 ;;1545
 ;;21,"51655-0174-56 ")
 ;;1546
 ;;21,"51655-0177-76 ")
 ;;1547
 ;;21,"51655-0256-24 ")
 ;;391
 ;;21,"51655-0256-25 ")
 ;;340
 ;;21,"51655-0256-76 ")
 ;;652
 ;;21,"51655-0257-25 ")
 ;;80
 ;;21,"51655-0257-52 ")
 ;;81
 ;;21,"51655-0257-76 ")
 ;;515
 ;;21,"51655-0291-24 ")
 ;;466
 ;;21,"51655-0334-24 ")
 ;;1
 ;;21,"51655-0708-56 ")
 ;;1548
 ;;21,"51799-0190-01 ")
 ;;575
 ;;21,"51799-0190-10 ")
 ;;298
 ;;21,"51991-0375-01 ")
 ;;1024
 ;;21,"52152-0013-02 ")
 ;;1549
 ;;21,"52152-0013-04 ")
 ;;1550
 ;;21,"52152-0013-05 ")
 ;;1551
 ;;21,"52246-0801-20 ")
 ;;413
 ;;21,"52246-0801-90 ")
 ;;414
 ;;21,"52246-0802-28 ")
 ;;1552
 ;;21,"52246-0802-30 ")
 ;;1553
 ;;21,"52246-0803-10 ")
 ;;1554
 ;;21,"52246-0803-30 ")
 ;;1555
 ;;21,"52246-0804-04 ")
 ;;1556
 ;;21,"52246-0830-04 ")
 ;;1557
 ;;21,"52246-0831-30 ")
 ;;1558
 ;;21,"52246-0832-30 ")
 ;;1559
 ;;21,"52246-0848-20 ")
 ;;392
 ;;21,"52246-0848-30 ")
 ;;2
 ;;21,"52246-0848-60 ")
 ;;393
 ;;21,"52246-0848-90 ")
 ;;394
 ;;21,"52246-0849-20 ")
 ;;82
 ;;21,"52246-0849-30 ")
 ;;653
 ;;21,"52246-0849-60 ")
 ;;654
 ;;21,"52246-0849-90 ")
 ;;655
 ;;21,"52246-0852-60 ")
 ;;323
 ;;21,"52246-0854-20 ")
 ;;1560
 ;;21,"52246-0880-04 ")
 ;;1561
 ;;21,"52246-0885-30 ")
 ;;618
 ;;21,"52446-0012-21 ")
 ;;190
 ;;21,"52446-0012-32 ")
 ;;415
 ;;21,"52446-0013-32 ")
 ;;487
 ;;21,"52446-0039-21 ")
 ;;1562
 ;;21,"52446-0039-28 ")
 ;;1563
 ;;21,"52446-0040-21 ")
 ;;1564
 ;;21,"52446-0040-28 ")
 ;;1565
 ;;21,"52446-0246-21 ")
 ;;1566
 ;;21,"52446-0467-21 ")
 ;;324
 ;;21,"52446-0468-21 ")
 ;;3
 ;;21,"52446-0468-28 ")
 ;;4
 ;;21,"52446-0469-21 ")
 ;;83
 ;;21,"52446-0469-28 ")
 ;;656
 ;;21,"52446-0469-32 ")
 ;;657
 ;;21,"52446-0600-21 ")
 ;;1567
 ;;21,"52446-0601-21 ")
 ;;1568
 ;;21,"52446-0776-58 ")
 ;;528
 ;;21,"52446-0829-58 ")
 ;;1569
 ;;21,"52446-0892-58 ")
 ;;576
 ;;21,"52446-0893-58 ")
 ;;164
 ;;21,"52446-0894-58 ")
 ;;278
 ;;21,"52493-0201-02 ")
 ;;1570
 ;;21,"52493-0201-04 ")
 ;;1571
 ;;21,"52493-0201-06 ")
 ;;1572
 ;;21,"52493-0202-01 ")
 ;;1573
 ;;21,"52493-0202-30 ")
 ;;1574
 ;;21,"52493-0204-30 ")
 ;;1575
 ;;21,"52493-0210-01 ")
 ;;191
 ;;21,"52493-0210-30 ")
 ;;192
 ;;21,"52493-0211-30 ")
 ;;488
 ;;21,"52493-0241-02 ")
 ;;1576
 ;;21,"52493-0241-04 ")
 ;;1577
 ;;21,"52493-0241-08 ")
 ;;1578
 ;;21,"52493-0249-30 ")
 ;;1579
 ;;21,"52493-0249-50 ")
 ;;1580
 ;;21,"52493-0259-01 ")
 ;;347
 ;;21,"52493-0274-01 ")
 ;;60
 ;;21,"52493-0279-01 ")
 ;;658
 ;;21,"52493-0279-30 ")
 ;;659
 ;;21,"52493-0279-60 ")
 ;;660
 ;;21,"52493-0280-30 ")
 ;;135
 ;;21,"52493-0281-30 ")
 ;;579
 ;;21,"52493-0282-01 ")
 ;;395
 ;;21,"52493-0282-20 ")
 ;;396
 ;;21,"52493-0282-30 ")
 ;;397