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

BGP63E5.m

Go to the documentation of this file.
BGP63E5 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 11, 2016;
 ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
 ;
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,"60505-0263-01 ")
 ;;942
 ;;21,"60505-0264-01 ")
 ;;963
 ;;21,"60505-2689-01 ")
 ;;1191
 ;;21,"60505-2690-01 ")
 ;;1261
 ;;21,"60505-2691-01 ")
 ;;1325
 ;;21,"60505-2915-03 ")
 ;;1420
 ;;21,"60505-2915-09 ")
 ;;1421
 ;;21,"60505-2916-03 ")
 ;;1372
 ;;21,"60505-2916-09 ")
 ;;1373
 ;;21,"60505-2917-03 ")
 ;;1475
 ;;21,"60505-2917-09 ")
 ;;1476
 ;;21,"60505-3160-08 ")
 ;;315
 ;;21,"60505-3160-09 ")
 ;;316
 ;;21,"60505-3161-03 ")
 ;;393
 ;;21,"60505-3161-08 ")
 ;;394
 ;;21,"60505-3161-09 ")
 ;;395
 ;;21,"60505-3162-03 ")
 ;;247
 ;;21,"60505-3162-09 ")
 ;;248
 ;;21,"60505-3409-05 ")
 ;;1544
 ;;21,"60505-3409-09 ")
 ;;1545
 ;;21,"60505-3410-05 ")
 ;;1554
 ;;21,"60505-3410-09 ")
 ;;1555
 ;;21,"60505-3411-05 ")
 ;;1566
 ;;21,"60505-3411-09 ")
 ;;1567
 ;;21,"60505-3547-03 ")
 ;;190
 ;;21,"60505-3547-09 ")
 ;;191
 ;;21,"60505-3548-03 ")
 ;;87
 ;;21,"60505-3548-05 ")
 ;;88
 ;;21,"60505-3548-09 ")
 ;;89
 ;;21,"60505-3549-03 ")
 ;;151
 ;;21,"60505-3549-05 ")
 ;;152
 ;;21,"60505-3549-09 ")
 ;;153
 ;;21,"60505-3603-03 ")
 ;;1105
 ;;21,"60505-3603-09 ")
 ;;1106
 ;;21,"60505-3604-03 ")
 ;;1135
 ;;21,"60505-3604-09 ")
 ;;1136
 ;;21,"60505-3618-03 ")
 ;;30
 ;;21,"60505-3619-03 ")
 ;;38
 ;;21,"60505-3620-03 ")
 ;;14
 ;;21,"60505-3620-09 ")
 ;;15
 ;;21,"60505-3621-03 ")
 ;;24
 ;;21,"60505-3621-09 ")
 ;;25
 ;;21,"60505-3758-05 ")
 ;;980
 ;;21,"60505-3758-09 ")
 ;;981
 ;;21,"60505-3759-05 ")
 ;;989
 ;;21,"60505-3759-09 ")
 ;;990
 ;;21,"60505-3760-09 ")
 ;;996
 ;;21,"60505-3806-09 ")
 ;;1699
 ;;21,"60505-3807-09 ")
 ;;1634
 ;;21,"60505-3808-09 ")
 ;;1738
 ;;21,"60505-3809-09 ")
 ;;1664
 ;;21,"60505-3810-09 ")
 ;;1760
 ;;21,"60598-0081-01 ")
 ;;1057
 ;;21,"60598-0101-01 ")
 ;;44
 ;;21,"60631-0040-30 ")
 ;;1
 ;;21,"60631-0080-30 ")
 ;;3
 ;;21,"60631-0412-30 ")
 ;;904
 ;;21,"60631-0425-30 ")
 ;;906
 ;;21,"60687-0128-01 ")
 ;;619
 ;;21,"60687-0139-01 ")
 ;;532
 ;;21,"62175-0712-37 ")
 ;;1500
 ;;21,"62175-0720-37 ")
 ;;1494
 ;;21,"62175-0725-37 ")
 ;;1512
 ;;21,"63304-0155-01 ")
 ;;921
 ;;21,"63304-0156-01 ")
 ;;943
 ;;21,"63304-0157-01 ")
 ;;964
 ;;21,"63304-0403-01 ")
 ;;1066
 ;;21,"63304-0404-01 ")
 ;;1077
 ;;21,"63304-0536-01 ")
 ;;1192
 ;;21,"63304-0536-05 ")
 ;;1193
 ;;21,"63304-0537-01 ")
 ;;1262
 ;;21,"63304-0537-05 ")
 ;;1263
 ;;21,"63304-0538-01 ")
 ;;1326
 ;;21,"63304-0538-05 ")
 ;;1327
 ;;21,"63629-1337-01 ")
 ;;396
 ;;21,"63629-1454-01 ")
 ;;813
 ;;21,"63629-1679-01 ")
 ;;1194
 ;;21,"63629-1679-02 ")
 ;;1195
 ;;21,"63629-1679-03 ")
 ;;1196
 ;;21,"63629-1809-01 ")
 ;;922
 ;;21,"63629-1809-02 ")
 ;;923
 ;;21,"63629-1809-03 ")
 ;;924
 ;;21,"63629-2680-01 ")
 ;;944
 ;;21,"63629-2680-02 ")
 ;;945
 ;;21,"63629-2680-03 ")
 ;;946
 ;;21,"63629-2735-01 ")
 ;;965
 ;;21,"63629-2912-01 ")
 ;;249
 ;;21,"63629-3183-01 ")
 ;;1422
 ;;21,"63739-0513-10 ")
 ;;317
 ;;21,"63739-0514-10 ")
 ;;397
 ;;21,"63739-0515-10 ")
 ;;250
 ;;21,"63739-0527-10 ")
 ;;1423
 ;;21,"63739-0528-10 ")
 ;;1374
 ;;21,"63739-0529-10 ")
 ;;1477
 ;;21,"63739-0698-10 ")
 ;;251
 ;;21,"63874-0637-01 ")
 ;;398
 ;;21,"63874-0637-10 ")
 ;;399
 ;;21,"63874-0637-20 ")
 ;;400
 ;;21,"63874-0637-30 ")
 ;;401
 ;;21,"63874-0637-90 ")
 ;;402
 ;;21,"63874-0647-10 ")
 ;;90
 ;;21,"63874-0647-14 ")
 ;;91
 ;;21,"63874-0647-30 ")
 ;;92
 ;;21,"64455-0145-01 ")
 ;;1050
 ;;21,"64455-0146-01 ")
 ;;1030
 ;;21,"64764-0844-30 ")
 ;;2
 ;;21,"64764-0884-30 ")
 ;;4
 ;;21,"64764-0944-30 ")
 ;;905
 ;;21,"64764-0994-30 ")
 ;;907
 ;;21,"64980-0194-01 ")
 ;;925
 ;;21,"64980-0195-01 ")
 ;;947
 ;;21,"64980-0196-01 ")
 ;;966
 ;;21,"65597-0101-30 ")
 ;;459
 ;;21,"65597-0103-10 ")
 ;;437
 ;;21,"65597-0103-30 ")
 ;;438
 ;;21,"65597-0103-90 ")
 ;;439
 ;;21,"65597-0104-10 ")
 ;;452
 ;;21,"65597-0104-30 ")
 ;;453
 ;;21,"65597-0104-90 ")
 ;;454
 ;;21,"65597-0105-10 ")
 ;;1517
 ;;21,"65597-0105-30 ")
 ;;1518
 ;;21,"65597-0105-90 ")
 ;;1519
 ;;21,"65597-0106-10 ")
 ;;1524
 ;;21,"65597-0106-30 ")
 ;;1525
 ;;21,"65597-0106-90 ")
 ;;1526
 ;;21,"65597-0107-10 ")
 ;;1533
 ;;21,"65597-0107-30 ")
 ;;1534
 ;;21,"65597-0107-90 ")
 ;;1535
 ;;21,"65597-0110-10 ")
 ;;844
 ;;21,"65597-0110-30 ")
 ;;845
 ;;21,"65597-0110-90 ")
 ;;846
 ;;21,"65597-0111-10 ")
 ;;837
 ;;21,"65597-0111-30 ")
 ;;838
 ;;21,"65597-0111-90 ")
 ;;839
 ;;21,"65597-0112-10 ")
 ;;847
 ;;21,"65597-0112-30 ")
 ;;848
 ;;21,"65597-0112-90 ")
 ;;849
 ;;21,"65597-0113-10 ")
 ;;840
 ;;21,"65597-0113-30 ")
 ;;841
 ;;21,"65597-0113-90 ")
 ;;842
 ;;21,"65597-0114-30 ")
 ;;632
 ;;21,"65597-0114-90 ")
 ;;633
 ;;21,"65597-0115-30 ")
 ;;634
 ;;21,"65597-0115-90 ")
 ;;635
 ;;21,"65597-0116-30 ")
 ;;636
 ;;21,"65597-0116-90 ")
 ;;637
 ;;21,"65597-0117-30 ")
 ;;628
 ;;21,"65597-0117-90 ")
 ;;629
 ;;21,"65597-0118-30 ")
 ;;630
 ;;21,"65597-0118-90 ")
 ;;631
 ;;21,"65682-0638-05 ")
 ;;93
 ;;21,"65682-0638-30 ")
 ;;94
 ;;21,"65682-0638-90 ")
 ;;95
 ;;21,"65862-0043-01 ")
 ;;1197
 ;;21,"65862-0043-05 ")
 ;;1198
 ;;21,"65862-0044-01 ")
 ;;1264
 ;;21,"65862-0044-05 ")
 ;;1265
 ;;21,"65862-0045-01 ")
 ;;1328
 ;;21,"65862-0045-05 ")
 ;;1329
 ;;21,"65862-0161-90 ")
 ;;1546
 ;;21,"65862-0162-30 ")
 ;;1556
 ;;21,"65862-0162-90 ")
 ;;1557
 ;;21,"65862-0163-90 ")
 ;;1568
 ;;21,"65862-0201-90 ")
 ;;318
 ;;21,"65862-0201-99 ")
 ;;319
 ;;21,"65862-0202-30 ")
 ;;403
 ;;21,"65862-0202-90 ")
 ;;404
 ;;21,"65862-0202-99 ")
 ;;405
 ;;21,"65862-0203-30 ")
 ;;252
 ;;21,"65862-0203-90 ")
 ;;253
 ;;21,"65862-0203-99 ")
 ;;254
 ;;21,"65862-0308-01 ")
 ;;1067
 ;;21,"65862-0309-01 ")
 ;;1078
 ;;21,"65862-0468-30 ")
 ;;1424
 ;;21,"65862-0468-90 ")
 ;;1425
 ;;21,"65862-0468-99 ")
 ;;1426
 ;;21,"65862-0469-30 ")
 ;;1375
 ;;21,"65862-0469-90 ")
 ;;1376
 ;;21,"65862-0469-99 ")
 ;;1377
 ;;21,"65862-0470-30 ")
 ;;1478
 ;;21,"65862-0470-90 ")
 ;;1479
 ;;21,"65862-0470-99 ")
 ;;1480
 ;;21,"65862-0547-90 ")
 ;;1700
 ;;21,"65862-0547-99 ")
 ;;1701
 ;;21,"65862-0548-90 ")
 ;;1635
 ;;21,"65862-0548-99 ")
 ;;1636
 ;;21,"65862-0549-90 ")
 ;;1739
 ;;21,"65862-0549-99 ")
 ;;1740
 ;;21,"65862-0550-05 ")
 ;;1665
 ;;21,"65862-0550-90 ")
 ;;1666
 ;;21,"65862-0551-05 ")
 ;;1761
 ;;21,"65862-0551-90 ")
 ;;1762
 ;;21,"65862-0570-30 ")
 ;;579
 ;;21,"65862-0571-90 ")
 ;;620
 ;;21,"65862-0572-90 ")
 ;;533
 ;;21,"65862-0573-90 ")
 ;;560
 ;;21,"65862-0582-01 ")
 ;;745
 ;;21,"65862-0582-05 ")
 ;;746
 ;;21,"65862-0583-01 ")
 ;;775
 ;;21,"65862-0583-05 ")
 ;;776
 ;;21,"65862-0584-01 ")
 ;;814
 ;;21,"65862-0584-05 ")
 ;;815
 ;;21,"65862-0585-01 ")
 ;;833
 ;;21,"65862-0585-05 ")
 ;;834
 ;;21,"65862-0586-01 ")
 ;;712
 ;;21,"65862-0586-05 ")
 ;;713
 ;;21,"65862-0587-01 ")
 ;;730
 ;;21,"65862-0587-05 ")
 ;;731
 ;;21,"65862-0637-30 ")
 ;;192
 ;;21,"65862-0637-90 ")
 ;;193
 ;;21,"65862-0638-05 ")
 ;;96
 ;;21,"65862-0638-30 ")
 ;;97
 ;;21,"65862-0638-90 ")
 ;;98
 ;;21,"65862-0639-05 ")
 ;;154
 ;;21,"65862-0639-30 ")
 ;;155
 ;;21,"65862-0639-90 ")
 ;;156
 ;;21,"66105-0503-01 ")
 ;;99
 ;;21,"66105-0503-03 ")
 ;;100
 ;;21,"66105-0503-06 ")
 ;;101
 ;;21,"66105-0503-09 ")
 ;;102
 ;;21,"66105-0503-15 ")
 ;;103
 ;;21,"66105-0504-01 ")
 ;;157
 ;;21,"66105-0504-03 ")
 ;;158
 ;;21,"66105-0504-06 ")
 ;;159
 ;;21,"66105-0504-09 ")
 ;;160
 ;;21,"66105-0504-15 ")
 ;;161
 ;;21,"66105-0544-09 ")
 ;;1702
 ;;21,"66105-0545-01 ")
 ;;1637
 ;;21,"66105-0545-03 ")
 ;;1638
 ;;21,"66105-0545-06 ")
 ;;1639
 ;;21,"66105-0545-09 ")
 ;;1640
 ;;21,"66105-0545-10 ")
 ;;1641
 ;;21,"66105-0552-10 ")
 ;;320
 ;;21,"66105-0553-03 ")
 ;;406
 ;;21,"66105-0553-10 ")
 ;;407
 ;;21,"66105-0663-03 ")
 ;;1481
 ;;21,"66105-0669-03 ")
 ;;1427
 ;;21,"66105-0842-03 ")
 ;;480
 ;;21,"66105-0842-06 ")
 ;;481
 ;;21,"66105-0842-09 ")
 ;;482
 ;;21,"66105-0842-10 ")
 ;;483
 ;;21,"66105-0842-28 ")
 ;;484
 ;;21,"66336-0169-30 ")
 ;;621
 ;;21,"66336-0572-30 ")
 ;;1199
 ;;21,"66336-0805-30 ")
 ;;1266
 ;;21,"67544-0377-60 ")
 ;;1267
 ;;21,"67544-0382-30 ")
 ;;321
 ;;21,"67544-0400-45 ")
 ;;162
 ;;21,"67544-0418-60 ")
 ;;1268
 ;;21,"67801-0340-03 ")
 ;;747
 ;;21,"67801-0342-03 ")
 ;;816
 ;;21,"67801-0343-03 ")
 ;;714
 ;;21,"67801-0441-03 ")
 ;;777
 ;;21,"68001-0130-00 ")
 ;;715
 ;;21,"68001-0131-00 ")
 ;;732
 ;;21,"68001-0132-00 ")
 ;;748
 ;;21,"68001-0133-00 ")
 ;;778
 ;;21,"68001-0134-00 ")
 ;;817
 ;;21,"68001-0135-00 ")
 ;;835
 ;;21,"68071-0785-30 ")
 ;;1642
 ;;21,"68071-0785-60 ")
 ;;1643
 ;;21,"68071-0786-30 ")
 ;;1703
 ;;21,"68071-0786-60 ")
 ;;1704
 ;;21,"68084-0007-11 ")
 ;;104
 ;;21,"68084-0007-21 ")
 ;;105
 ;;21,"68084-0217-21 ")
 ;;106
 ;;21,"68084-0346-01 ")
 ;;322
 ;;21,"68084-0346-11 ")
 ;;323
 ;;21,"68084-0347-01 ")
 ;;408
 ;;21,"68084-0347-11 ")
 ;;409
 ;;21,"68084-0348-01 ")
 ;;255
 ;;21,"68084-0348-11 ")
 ;;256
 ;;21,"68084-0349-11 ")
 ;;779
 ;;21,"68084-0349-21 ")
 ;;780
 ;;21,"68084-0350-01 ")
 ;;818
 ;;21,"68084-0350-11 ")
 ;;819
 ;;21,"68084-0351-11 ")
 ;;716
 ;;21,"68084-0351-21 ")
 ;;717
 ;;21,"68084-0519-11 ")
 ;;1330
 ;;21,"68084-0519-21 ")
 ;;1331
 ;;21,"68084-0644-21 ")
 ;;107
 ;;21,"68084-0726-32 ")
 ;;718
 ;;21,"68084-0727-21 ")
 ;;1269
 ;;21,"68084-0749-21 ")
 ;;1482
 ;;21,"68084-0766-21 ")
 ;;1200
 ;;21,"68084-0804-01 ")
 ;;622
 ;;21,"68084-0817-25 ")
 ;;1667
 ;;21,"68084-0822-01 ")
 ;;534
 ;;21,"68084-0834-25 ")
 ;;1763
 ;;21,"68115-0573-30 ")
 ;;820
 ;;21,"68115-0669-00 ")
 ;;1705
 ;;21,"68115-0673-30 ")
 ;;821
 ;;21,"68115-0703-30 ")
 ;;991
 ;;21,"68115-0854-00 ")
 ;;623
 ;;21,"68180-0101-02 ")
 ;;1668
 ;;21,"68180-0101-09 ")
 ;;1669
 ;;21,"68180-0102-02 ")
 ;;1764
 ;;21,"68180-0102-09 ")
 ;;1765
 ;;21,"68180-0103-02 ")
 ;;1706
 ;;21,"68180-0103-09 ")
 ;;1707
 ;;21,"68180-0104-02 ")
 ;;1644
 ;;21,"68180-0104-09 ")
 ;;1645
 ;;21,"68180-0105-02 ")
 ;;1741
 ;;21,"68180-0105-09 ")
 ;;1742
 ;;21,"68180-0193-06 ")
 ;;1578
 ;;21,"68180-0194-06 ")
 ;;1591
 ;;21,"68180-0195-06 ")
 ;;1601
 ;;21,"68180-0196-06 ")
 ;;861
 ;;21,"68180-0197-06 ")
 ;;853
 ;;21,"68180-0198-06 ")
 ;;865
 ;;21,"68180-0199-06 ")
 ;;857
 ;;21,"68180-0210-03 ")
 ;;324
 ;;21,"68180-0210-09 ")
 ;;325
 ;;21,"68180-0211-03 ")
 ;;410
 ;;21,"68180-0211-06 ")
 ;;411
 ;;21,"68180-0211-09 ")
 ;;412
 ;;21,"68180-0212-03 ")
 ;;257
 ;;21,"68180-0212-06 ")
 ;;258
 ;;21,"68180-0212-09 ")
 ;;259
 ;;21,"68180-0215-03 ")
 ;;1428
 ;;21,"68180-0215-06 ")
 ;;1429
 ;;21,"68180-0215-09 ")
 ;;1430
 ;;21,"68180-0216-03 ")
 ;;1378
 ;;21,"68180-0216-06 ")
 ;;1379
 ;;21,"68180-0216-09 ")
 ;;1380
 ;;21,"68180-0217-03 ")
 ;;1483
 ;;21,"68180-0217-06 ")
 ;;1484
 ;;21,"68180-0217-09 ")
 ;;1485
 ;;21,"68180-0276-01 ")
 ;;580
 ;;21,"68180-0276-06 ")
 ;;581
 ;;21,"68180-0277-03 ")
 ;;624
 ;;21,"68180-0277-09 ")
 ;;625
 ;;21,"68180-0278-03 ")
 ;;535
 ;;21,"68180-0278-09 ")
 ;;536
 ;;21,"68180-0279-02 ")
 ;;561
 ;;21,"68180-0279-09 ")
 ;;562
 ;;21,"68180-0410-06 ")
 ;;194
 ;;21,"68180-0410-09 ")
 ;;195
 ;;21,"68180-0411-06 ")
 ;;108