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

BGP63D2.m

Go to the documentation of this file.
  1. BGP63D2 ;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,"00378-1052-10 ")
  1. ;;701
  1. ;;21,"00378-1053-01 ")
  1. ;;424
  1. ;;21,"00378-1053-10 ")
  1. ;;425
  1. ;;21,"00378-1054-01 ")
  1. ;;591
  1. ;;21,"00378-1054-05 ")
  1. ;;592
  1. ;;21,"00378-1117-77 ")
  1. ;;1882
  1. ;;21,"00378-2072-01 ")
  1. ;;1101
  1. ;;21,"00378-2073-01 ")
  1. ;;1588
  1. ;;21,"00378-2073-10 ")
  1. ;;1589
  1. ;;21,"00378-2074-01 ")
  1. ;;922
  1. ;;21,"00378-2074-10 ")
  1. ;;923
  1. ;;21,"00378-2075-01 ")
  1. ;;1189
  1. ;;21,"00378-2075-10 ")
  1. ;;1190
  1. ;;21,"00378-2076-01 ")
  1. ;;1439
  1. ;;21,"00378-2076-05 ")
  1. ;;1440
  1. ;;21,"00378-2077-01 ")
  1. ;;1371
  1. ;;21,"00378-3007-01 ")
  1. ;;264
  1. ;;21,"00378-3007-10 ")
  1. ;;265
  1. ;;21,"00378-3012-01 ")
  1. ;;301
  1. ;;21,"00378-3012-10 ")
  1. ;;302
  1. ;;21,"00378-3017-01 ")
  1. ;;361
  1. ;;21,"00378-3017-10 ")
  1. ;;362
  1. ;;21,"00378-3022-01 ")
  1. ;;246
  1. ;;21,"00378-3241-01 ")
  1. ;;2082
  1. ;;21,"00378-3242-01 ")
  1. ;;2095
  1. ;;21,"00378-3243-01 ")
  1. ;;2108
  1. ;;21,"00440-7231-60 ")
  1. ;;303
  1. ;;21,"00440-7232-60 ")
  1. ;;363
  1. ;;21,"00440-7674-90 ")
  1. ;;1590
  1. ;;21,"00440-7675-90 ")
  1. ;;924
  1. ;;21,"00440-7676-90 ")
  1. ;;1191
  1. ;;21,"00574-0110-01 ")
  1. ;;1741
  1. ;;21,"00574-0112-15 ")
  1. ;;1730
  1. ;;21,"00591-0405-01 ")
  1. ;;1102
  1. ;;21,"00591-0405-05 ")
  1. ;;1103
  1. ;;21,"00591-0406-01 ")
  1. ;;1591
  1. ;;21,"00591-0406-10 ")
  1. ;;1592
  1. ;;21,"00591-0407-01 ")
  1. ;;925
  1. ;;21,"00591-0407-10 ")
  1. ;;926
  1. ;;21,"00591-0408-01 ")
  1. ;;1192
  1. ;;21,"00591-0408-10 ")
  1. ;;1193
  1. ;;21,"00591-0409-01 ")
  1. ;;1441
  1. ;;21,"00591-0409-05 ")
  1. ;;1442
  1. ;;21,"00591-0409-75 ")
  1. ;;1443
  1. ;;21,"00591-0668-01 ")
  1. ;;534
  1. ;;21,"00591-0668-05 ")
  1. ;;535
  1. ;;21,"00591-0671-01 ")
  1. ;;593
  1. ;;21,"00591-0671-05 ")
  1. ;;594
  1. ;;21,"00591-0671-10 ")
  1. ;;595
  1. ;;21,"00591-0885-01 ")
  1. ;;1372
  1. ;;21,"00603-4209-21 ")
  1. ;;1104
  1. ;;21,"00603-4209-28 ")
  1. ;;1105
  1. ;;21,"00603-4210-02 ")
  1. ;;1593
  1. ;;21,"00603-4210-16 ")
  1. ;;1594
  1. ;;21,"00603-4210-21 ")
  1. ;;1595
  1. ;;21,"00603-4210-28 ")
  1. ;;1596
  1. ;;21,"00603-4210-30 ")
  1. ;;1597
  1. ;;21,"00603-4210-32 ")
  1. ;;1598
  1. ;;21,"00603-4210-60 ")
  1. ;;1599
  1. ;;21,"00603-4211-02 ")
  1. ;;927
  1. ;;21,"00603-4211-21 ")
  1. ;;928
  1. ;;21,"00603-4211-28 ")
  1. ;;929
  1. ;;21,"00603-4211-32 ")
  1. ;;930
  1. ;;21,"00603-4211-34 ")
  1. ;;931
  1. ;;21,"00603-4211-60 ")
  1. ;;932
  1. ;;21,"00603-4212-02 ")
  1. ;;1194
  1. ;;21,"00603-4212-21 ")
  1. ;;1195
  1. ;;21,"00603-4212-28 ")
  1. ;;1196
  1. ;;21,"00603-4212-32 ")
  1. ;;1197
  1. ;;21,"00603-4212-34 ")
  1. ;;1198
  1. ;;21,"00603-4212-60 ")
  1. ;;1199
  1. ;;21,"00603-4213-21 ")
  1. ;;1373
  1. ;;21,"00603-4213-28 ")
  1. ;;1374
  1. ;;21,"00603-4214-02 ")
  1. ;;1444
  1. ;;21,"00603-4214-04 ")
  1. ;;1445
  1. ;;21,"00603-4214-21 ")
  1. ;;1446
  1. ;;21,"00603-4214-28 ")
  1. ;;1447
  1. ;;21,"00603-4214-30 ")
  1. ;;1448
  1. ;;21,"00603-4214-32 ")
  1. ;;1449
  1. ;;21,"00603-4214-60 ")
  1. ;;1450
  1. ;;21,"00781-1667-92 ")
  1. ;;1200
  1. ;;21,"00781-1668-92 ")
  1. ;;1451
  1. ;;21,"00781-1828-01 ")
  1. ;;266
  1. ;;21,"00781-1839-01 ")
  1. ;;247
  1. ;;21,"00781-1891-01 ")
  1. ;;219
  1. ;;21,"00781-1892-01 ")
  1. ;;15
  1. ;;21,"00781-1893-01 ")
  1. ;;83
  1. ;;21,"00781-1894-01 ")
  1. ;;157
  1. ;;21,"00781-5083-10 ")
  1. ;;807
  1. ;;21,"00781-5083-92 ")
  1. ;;808
  1. ;;21,"00781-5084-10 ")
  1. ;;839
  1. ;;21,"00781-5084-92 ")
  1. ;;840
  1. ;;21,"00781-5320-01 ")
  1. ;;2083
  1. ;;21,"00781-5321-01 ")
  1. ;;2096
  1. ;;21,"00781-5322-01 ")
  1. ;;2109
  1. ;;21,"00781-5441-01 ")
  1. ;;536
  1. ;;21,"00781-5441-10 ")
  1. ;;537
  1. ;;21,"00781-5442-01 ")
  1. ;;702
  1. ;;21,"00781-5442-10 ")
  1. ;;703
  1. ;;21,"00781-5443-01 ")
  1. ;;426
  1. ;;21,"00781-5443-10 ")
  1. ;;427
  1. ;;21,"00781-5444-01 ")
  1. ;;596
  1. ;;21,"00781-5444-10 ")
  1. ;;597
  1. ;;21,"00904-5045-61 ")
  1. ;;267
  1. ;;21,"00904-5046-61 ")
  1. ;;304
  1. ;;21,"00904-5047-61 ")
  1. ;;364
  1. ;;21,"00904-5502-61 ")
  1. ;;704
  1. ;;21,"00904-5502-80 ")
  1. ;;705
  1. ;;21,"00904-5609-61 ")
  1. ;;538
  1. ;;21,"00904-5610-61 ")
  1. ;;428
  1. ;;21,"00904-5611-61 ")
  1. ;;598
  1. ;;21,"00904-5638-43 ")
  1. ;;1600
  1. ;;21,"00904-5638-89 ")
  1. ;;1601
  1. ;;21,"00904-5639-43 ")
  1. ;;933
  1. ;;21,"00904-5639-46 ")
  1. ;;934
  1. ;;21,"00904-5639-48 ")
  1. ;;935
  1. ;;21,"00904-5639-89 ")
  1. ;;936
  1. ;;21,"00904-5640-43 ")
  1. ;;1201
  1. ;;21,"00904-5640-46 ")
  1. ;;1202
  1. ;;21,"00904-5640-48 ")
  1. ;;1203
  1. ;;21,"00904-5640-89 ")
  1. ;;1204
  1. ;;21,"00904-5640-93 ")
  1. ;;1205
  1. ;;21,"00904-5808-43 ")
  1. ;;937
  1. ;;21,"00904-5808-46 ")
  1. ;;938
  1. ;;21,"00904-5808-48 ")
  1. ;;939
  1. ;;21,"00904-5808-61 ")
  1. ;;940
  1. ;;21,"00904-5808-80 ")
  1. ;;941
  1. ;;21,"00904-5808-89 ")
  1. ;;942
  1. ;;21,"00904-5808-93 ")
  1. ;;943
  1. ;;21,"00904-5809-43 ")
  1. ;;1206
  1. ;;21,"00904-5809-46 ")
  1. ;;1207
  1. ;;21,"00904-5809-48 ")
  1. ;;1208
  1. ;;21,"00904-5809-61 ")
  1. ;;1209
  1. ;;21,"00904-5809-80 ")
  1. ;;1210
  1. ;;21,"00904-5809-89 ")
  1. ;;1211
  1. ;;21,"00904-5809-93 ")
  1. ;;1212
  1. ;;21,"00904-5810-43 ")
  1. ;;1452
  1. ;;21,"00904-5810-46 ")
  1. ;;1453
  1. ;;21,"00904-5810-48 ")
  1. ;;1454
  1. ;;21,"00904-5810-52 ")
  1. ;;1455
  1. ;;21,"00904-5810-61 ")
  1. ;;1456
  1. ;;21,"00904-5810-80 ")
  1. ;;1457
  1. ;;21,"00904-5810-89 ")
  1. ;;1458
  1. ;;21,"00904-5810-93 ")
  1. ;;1459
  1. ;;21,"00904-5811-43 ")
  1. ;;1602
  1. ;;21,"00904-5811-46 ")
  1. ;;1603
  1. ;;21,"00904-5811-61 ")
  1. ;;1604
  1. ;;21,"00904-5811-80 ")
  1. ;;1605
  1. ;;21,"00904-5811-89 ")
  1. ;;1606
  1. ;;21,"00904-5812-89 ")
  1. ;;1106
  1. ;;21,"00904-6189-40 ")
  1. ;;220
  1. ;;21,"00904-6190-40 ")
  1. ;;16
  1. ;;21,"00904-6191-40 ")
  1. ;;84
  1. ;;21,"00904-6192-40 ")
  1. ;;158
  1. ;;21,"00904-6484-80 ")
  1. ;;1607
  1. ;;21,"00904-6485-80 ")
  1. ;;944
  1. ;;21,"00904-6487-80 ")
  1. ;;1460
  1. ;;21,"10544-0238-60 ")
  1. ;;945
  1. ;;21,"10544-0239-60 ")
  1. ;;1213
  1. ;;21,"10544-0240-30 ")
  1. ;;1461
  1. ;;21,"12280-0033-00 ")
  1. ;;159
  1. ;;21,"12280-0129-60 ")
  1. ;;1375
  1. ;;21,"12280-0144-00 ")
  1. ;;1214
  1. ;;21,"13811-0627-10 ")
  1. ;;221
  1. ;;21,"13811-0628-10 ")
  1. ;;17
  1. ;;21,"13811-0628-50 ")
  1. ;;18
  1. ;;21,"13811-0629-10 ")
  1. ;;85
  1. ;;21,"13811-0629-50 ")
  1. ;;86
  1. ;;21,"13811-0630-10 ")
  1. ;;160
  1. ;;21,"13811-0630-50 ")
  1. ;;161
  1. ;;21,"15338-0200-30 ")
  1. ;;539
  1. ;;21,"15338-0211-30 ")
  1. ;;706
  1. ;;21,"15338-0220-30 ")
  1. ;;429
  1. ;;21,"15338-0233-30 ")
  1. ;;599
  1. ;;21,"16252-0541-30 ")
  1. ;;2084
  1. ;;21,"16252-0542-90 ")
  1. ;;2097
  1. ;;21,"16252-0543-90 ")
  1. ;;2110
  1. ;;21,"16252-0570-30 ")
  1. ;;1904
  1. ;;21,"16252-0571-01 ")
  1. ;;1984
  1. ;;21,"16252-0571-50 ")
  1. ;;1985
  1. ;;21,"16252-0572-01 ")
  1. ;;2032
  1. ;;21,"16252-0572-50 ")
  1. ;;2033
  1. ;;21,"16252-0573-01 ")
  1. ;;1930
  1. ;;21,"16252-0573-50 ")
  1. ;;1931
  1. ;;21,"16252-0610-01 ")
  1. ;;1742
  1. ;;21,"16252-0611-01 ")
  1. ;;1731
  1. ;;21,"16590-0259-30 ")
  1. ;;87
  1. ;;21,"16590-0259-60 ")
  1. ;;88
  1. ;;21,"16590-0259-90 ")
  1. ;;89
  1. ;;21,"16590-0280-30 ")
  1. ;;19
  1. ;;21,"16590-0306-30 ")
  1. ;;946
  1. ;;21,"16590-0306-60 ")
  1. ;;947
  1. ;;21,"16590-0306-90 ")
  1. ;;948
  1. ;;21,"16729-0152-01 ")
  1. ;;1905
  1. ;;21,"16729-0153-01 ")
  1. ;;1986
  1. ;;21,"16729-0153-16 ")
  1. ;;1987
  1. ;;21,"16729-0154-01 ")
  1. ;;2034
  1. ;;21,"16729-0154-16 ")
  1. ;;2035
  1. ;;21,"16729-0155-01 ")
  1. ;;1932
  1. ;;21,"16729-0155-16 ")
  1. ;;1933
  1. ;;21,"16729-0194-01 ")
  1. ;;1107
  1. ;;21,"16729-0195-01 ")
  1. ;;1608
  1. ;;21,"16729-0195-17 ")
  1. ;;1609
  1. ;;21,"16729-0196-17 ")
  1. ;;949
  1. ;;21,"16729-0197-01 ")
  1. ;;1215
  1. ;;21,"16729-0197-17 ")
  1. ;;1216
  1. ;;21,"16729-0198-01 ")
  1. ;;1376
  1. ;;21,"16729-0199-01 ")
  1. ;;1462
  1. ;;21,"16729-0199-17 ")
  1. ;;1463
  1. ;;21,"18837-0277-30 ")
  1. ;;1610
  1. ;;21,"21695-0326-30 ")
  1. ;;20
  1. ;;21,"21695-0326-60 ")
  1. ;;21
  1. ;;21,"21695-0326-90 ")
  1. ;;22
  1. ;;21,"21695-0327-30 ")
  1. ;;90
  1. ;;21,"21695-0327-60 ")
  1. ;;91
  1. ;;21,"21695-0327-90 ")
  1. ;;92
  1. ;;21,"21695-0328-30 ")
  1. ;;1611
  1. ;;21,"21695-0328-90 ")
  1. ;;1612
  1. ;;21,"21695-0329-30 ")
  1. ;;950
  1. ;;21,"21695-0329-78 ")
  1. ;;951
  1. ;;21,"21695-0329-90 ")
  1. ;;952
  1. ;;21,"21695-0330-20 ")
  1. ;;1217
  1. ;;21,"21695-0330-30 ")
  1. ;;1218
  1. ;;21,"21695-0330-90 ")
  1. ;;1219
  1. ;;21,"21695-0331-30 ")
  1. ;;1464
  1. ;;21,"21695-0331-40 ")
  1. ;;1465
  1. ;;21,"21695-0331-90 ")
  1. ;;1466
  1. ;;21,"21695-0345-30 ")
  1. ;;1108
  1. ;;21,"21695-0345-90 ")
  1. ;;1109
  1. ;;21,"21695-0393-30 ")
  1. ;;1883
  1. ;;21,"21695-0394-30 ")
  1. ;;1776
  1. ;;21,"21695-0477-30 ")
  1. ;;305
  1. ;;21,"21695-0477-78 ")
  1. ;;306
  1. ;;21,"21695-0478-30 ")
  1. ;;365
  1. ;;21,"21695-0487-30 ")
  1. ;;707
  1. ;;21,"21695-0488-30 ")
  1. ;;430
  1. ;;21,"21695-0488-60 ")
  1. ;;431
  1. ;;21,"21695-0489-90 ")
  1. ;;600
  1. ;;21,"21695-0612-90 ")
  1. ;;222
  1. ;;21,"21695-0821-30 ")
  1. ;;1988
  1. ;;21,"21695-0822-30 ")
  1. ;;2036
  1. ;;21,"21695-0823-30 ")
  1. ;;1934
  1. ;;21,"21695-0877-30 ")
  1. ;;162
  1. ;;21,"21695-0877-90 ")
  1. ;;163
  1. ;;21,"23490-5118-01 ")
  1. ;;23
  1. ;;21,"23490-5119-01 ")
  1. ;;93
  1. ;;21,"23490-5120-03 ")
  1. ;;164
  1. ;;21,"23490-5120-09 ")
  1. ;;165
  1. ;;21,"23490-5121-01 ")
  1. ;;223
  1. ;;21,"23490-5191-01 ")
  1. ;;248
  1. ;;21,"23490-5192-01 ")
  1. ;;268
  1. ;;21,"23490-5193-01 ")
  1. ;;307
  1. ;;21,"23490-5193-02 ")
  1. ;;308
  1. ;;21,"23490-5193-03 ")
  1. ;;309
  1. ;;21,"23490-5194-00 ")
  1. ;;366
  1. ;;21,"23490-5194-01 ")
  1. ;;367
  1. ;;21,"23490-5194-02 ")
  1. ;;368
  1. ;;21,"23490-5491-01 ")
  1. ;;432
  1. ;;21,"23490-5491-02 ")
  1. ;;433
  1. ;;21,"23490-5491-08 ")
  1. ;;434
  1. ;;21,"23490-5491-09 ")
  1. ;;435
  1. ;;21,"23490-5492-01 ")
  1. ;;601
  1. ;;21,"23490-5492-02 ")
  1. ;;602
  1. ;;21,"23490-5494-01 ")
  1. ;;708
  1. ;;21,"23490-5494-02 ")
  1. ;;709
  1. ;;21,"23490-5815-00 ")
  1. ;;953
  1. ;;21,"23490-5815-01 ")
  1. ;;954
  1. ;;21,"23490-5816-01 ")
  1. ;;1220
  1. ;;21,"23490-5816-02 ")
  1. ;;1221
  1. ;;21,"23490-5816-06 ")
  1. ;;1222
  1. ;;21,"23490-5817-02 ")
  1. ;;1110
  1. ;;21,"23490-5818-02 ")
  1. ;;1467
  1. ;;21,"23490-5819-02 ")
  1. ;;1613
  1. ;;21,"23490-9364-03 ")
  1. ;;1843
  1. ;;21,"24658-0240-10 ")
  1. ;;1111
  1. ;;21,"24658-0240-90 ")
  1. ;;1112
  1. ;;21,"24658-0241-10 ")
  1. ;;1614
  1. ;;21,"24658-0241-30 ")
  1. ;;1615
  1. ;;21,"24658-0241-45 ")
  1. ;;1616
  1. ;;21,"24658-0241-90 ")
  1. ;;1617
  1. ;;21,"24658-0242-10 ")
  1. ;;955
  1. ;;21,"24658-0242-15 ")
  1. ;;956
  1. ;;21,"24658-0242-18 ")
  1. ;;957
  1. ;;21,"24658-0242-30 ")
  1. ;;958
  1. ;;21,"24658-0242-45 ")
  1. ;;959
  1. ;;21,"24658-0242-90 ")
  1. ;;960
  1. ;;21,"24658-0243-10 ")
  1. ;;1223
  1. ;;21,"24658-0243-15 ")
  1. ;;1224
  1. ;;21,"24658-0243-18 ")
  1. ;;1225
  1. ;;21,"24658-0243-30 ")
  1. ;;1226
  1. ;;21,"24658-0243-45 ")
  1. ;;1227
  1. ;;21,"24658-0243-90 ")
  1. ;;1228
  1. ;;21,"24658-0244-01 ")
  1. ;;1377
  1. ;;21,"24658-0244-10 ")
  1. ;;1378
  1. ;;21,"24658-0245-10 ")
  1. ;;1468
  1. ;;21,"24658-0245-15 ")
  1. ;;1469
  1. ;;21,"24658-0245-18 ")
  1. ;;1470
  1. ;;21,"24658-0245-30 ")
  1. ;;1471
  1. ;;21,"24658-0245-45 ")
  1. ;;1472
  1. ;;21,"24658-0245-60 ")
  1. ;;1473
  1. ;;21,"24658-0245-90 ")
  1. ;;1474
  1. ;;21,"30698-0449-01 ")
  1. ;;94
  1. ;;21,"30698-0450-01 ")
  1. ;;166
  1. ;;21,"31722-0200-10 ")
  1. ;;809
  1. ;;21,"31722-0200-90 ")
  1. ;;810
  1. ;;21,"31722-0201-10 ")
  1. ;;841
  1. ;;21,"31722-0201-90 ")
  1. ;;842
  1. ;;21,"31722-0202-10 ")
  1. ;;870
  1. ;;21,"31722-0202-90 ")
  1. ;;871
  1. ;;21,"31722-0267-90 ")
  1. ;;1884
  1. ;;21,"31722-0268-90 ")
  1. ;;1777
  1. ;;21,"31722-0269-90 ")
  1. ;;1811
  1. ;;21,"31722-0270-90 ")
  1. ;;1844
  1. ;;21,"31722-0271-01 ")
  1. ;;1906
  1. ;;21,"31722-0272-01 ")
  1. ;;1989
  1. ;;21,"31722-0272-05 ")
  1. ;;1990
  1. ;;21,"31722-0272-10 ")
  1. ;;1991
  1. ;;21,"31722-0273-01 ")
  1. ;;2037
  1. ;;21,"31722-0273-05 ")
  1. ;;2038
  1. ;;21,"31722-0273-10 ")
  1. ;;2039
  1. ;;21,"31722-0274-01 ")
  1. ;;1935
  1. ;;21,"31722-0274-05 ")
  1. ;;1936
  1. ;;21,"31722-0274-10 ")
  1. ;;1937
  1. ;;21,"33358-0048-30 ")
  1. ;;24
  1. ;;21,"33358-0049-30 ")
  1. ;;95
  1. ;;21,"33358-0127-30 ")
  1. ;;436
  1. ;;21,"33358-0211-30 ")
  1. ;;1618
  1. ;;21,"33358-0212-30 ")
  1. ;;961
  1. ;;21,"33358-0213-30 ")
  1. ;;1229
  1. ;;21,"35356-0541-30 ")
  1. ;;540
  1. ;;21,"42291-0160-90 ")
  1. ;;224
  1. ;;21,"42291-0161-90 ")
  1. ;;25
  1. ;;21,"42291-0162-18 ")
  1. ;;96
  1. ;;21,"42291-0162-50 ")
  1. ;;97
  1. ;;21,"42291-0162-90 ")
  1. ;;98
  1. ;;21,"42291-0163-18 ")
  1. ;;167
  1. ;;21,"42291-0163-50 ")
  1. ;;168
  1. ;;21,"42291-0163-90 ")
  1. ;;169