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