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

BGP44I5.m

Go to the documentation of this file.
BGP44I5 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON SEP 06, 2013;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,"58016-0378-60 ")
 ;;808
 ;;21,"58016-0378-90 ")
 ;;809
 ;;21,"58016-0378-99 ")
 ;;810
 ;;21,"58016-0411-00 ")
 ;;2305
 ;;21,"58016-0411-02 ")
 ;;2306
 ;;21,"58016-0411-30 ")
 ;;2307
 ;;21,"58016-0411-60 ")
 ;;2308
 ;;21,"58016-0411-90 ")
 ;;2298
 ;;21,"58016-0457-00 ")
 ;;1210
 ;;21,"58016-0457-10 ")
 ;;1211
 ;;21,"58016-0457-30 ")
 ;;1212
 ;;21,"58016-0457-60 ")
 ;;1213
 ;;21,"58016-0466-00 ")
 ;;1594
 ;;21,"58016-0466-30 ")
 ;;1595
 ;;21,"58016-0466-60 ")
 ;;1596
 ;;21,"58016-0466-90 ")
 ;;1597
 ;;21,"58016-0467-00 ")
 ;;174
 ;;21,"58016-0467-30 ")
 ;;175
 ;;21,"58016-0467-60 ")
 ;;176
 ;;21,"58016-0467-90 ")
 ;;177
 ;;21,"58016-0536-00 ")
 ;;1275
 ;;21,"58016-0536-30 ")
 ;;1276
 ;;21,"58016-0536-60 ")
 ;;1277
 ;;21,"58016-0536-90 ")
 ;;1278
 ;;21,"58016-0553-00 ")
 ;;1389
 ;;21,"58016-0553-10 ")
 ;;1390
 ;;21,"58016-0553-30 ")
 ;;1391
 ;;21,"58016-0553-60 ")
 ;;1392
 ;;21,"58016-0691-00 ")
 ;;534
 ;;21,"58016-0691-30 ")
 ;;535
 ;;21,"58016-0691-60 ")
 ;;536
 ;;21,"58016-0691-90 ")
 ;;537
 ;;21,"58016-0772-00 ")
 ;;1156
 ;;21,"58016-0772-30 ")
 ;;1157
 ;;21,"58016-0772-60 ")
 ;;1158
 ;;21,"58016-0772-90 ")
 ;;1159
 ;;21,"58016-0844-00 ")
 ;;125
 ;;21,"58016-0844-30 ")
 ;;126
 ;;21,"58016-0844-60 ")
 ;;127
 ;;21,"58016-0844-90 ")
 ;;128
 ;;21,"58016-0876-00 ")
 ;;270
 ;;21,"58016-0876-10 ")
 ;;271
 ;;21,"58016-0876-12 ")
 ;;272
 ;;21,"58016-0876-14 ")
 ;;273
 ;;21,"58016-0876-15 ")
 ;;274
 ;;21,"58016-0876-20 ")
 ;;275
 ;;21,"58016-0876-21 ")
 ;;276
 ;;21,"58016-0876-24 ")
 ;;220
 ;;21,"58016-0876-28 ")
 ;;221
 ;;21,"58016-0876-30 ")
 ;;222
 ;;21,"58016-0876-40 ")
 ;;223
 ;;21,"58016-0876-50 ")
 ;;224
 ;;21,"58016-0876-60 ")
 ;;225
 ;;21,"58016-0883-00 ")
 ;;1611
 ;;21,"58016-0883-30 ")
 ;;1612
 ;;21,"58016-0883-60 ")
 ;;1613
 ;;21,"58016-0883-90 ")
 ;;1614
 ;;21,"58864-0015-28 ")
 ;;1028
 ;;21,"58864-0015-30 ")
 ;;1029
 ;;21,"58864-0015-60 ")
 ;;1030
 ;;21,"58864-0015-90 ")
 ;;1031
 ;;21,"58864-0027-14 ")
 ;;304
 ;;21,"58864-0027-30 ")
 ;;305
 ;;21,"58864-0027-60 ")
 ;;306
 ;;21,"58864-0027-90 ")
 ;;307
 ;;21,"58864-0161-30 ")
 ;;393
 ;;21,"58864-0161-60 ")
 ;;394
 ;;21,"58864-0224-30 ")
 ;;674
 ;;21,"58864-0224-60 ")
 ;;675
 ;;21,"58864-0224-93 ")
 ;;676
 ;;21,"58864-0507-30 ")
 ;;1604
 ;;21,"58864-0687-30 ")
 ;;2043
 ;;21,"58864-0687-60 ")
 ;;2044
 ;;21,"58864-0689-30 ")
 ;;551
 ;;21,"58864-0689-60 ")
 ;;552
 ;;21,"58864-0693-30 ")
 ;;1598
 ;;21,"58864-0693-60 ")
 ;;1599
 ;;21,"58864-0705-30 ")
 ;;498
 ;;21,"58864-0711-30 ")
 ;;2196
 ;;21,"58864-0789-30 ")
 ;;1253
 ;;21,"58864-0851-30 ")
 ;;1708
 ;;21,"58864-0858-30 ")
 ;;464
 ;;21,"58864-0952-30 ")
 ;;2238
 ;;21,"58864-0953-30 ")
 ;;2291
 ;;21,"58864-0956-30 ")
 ;;539
 ;;21,"58864-0957-30 ")
 ;;476
 ;;21,"59630-0574-60 ")
 ;;1757
 ;;21,"59630-0575-60 ")
 ;;1760
 ;;21,"59762-0541-01 ")
 ;;494
 ;;21,"59762-2330-07 ")
 ;;2166
 ;;21,"59762-2331-06 ")
 ;;2206
 ;;21,"59762-2331-08 ")
 ;;2207
 ;;21,"59762-2332-06 ")
 ;;2263
 ;;21,"59762-2332-08 ")
 ;;2264
 ;;21,"59762-3725-01 ")
 ;;570
 ;;21,"59762-3726-03 ")
 ;;621
 ;;21,"59762-3727-04 ")
 ;;705
 ;;21,"59762-3727-06 ")
 ;;706
 ;;21,"59762-3727-07 ")
 ;;707
 ;;21,"59762-4320-00 ")
 ;;936
 ;;21,"59762-4320-02 ")
 ;;937
 ;;21,"59762-4320-06 ")
 ;;938
 ;;21,"59762-4321-00 ")
 ;;1224
 ;;21,"59762-4321-02 ")
 ;;1225
 ;;21,"59762-4321-06 ")
 ;;1226
 ;;21,"59762-4322-00 ")
 ;;1402
 ;;21,"59762-4322-02 ")
 ;;1403
 ;;21,"59762-4322-06 ")
 ;;1404
 ;;21,"59762-5031-01 ")
 ;;462
 ;;21,"59762-5032-01 ")
 ;;495
 ;;21,"59762-5032-02 ")
 ;;496
 ;;21,"59762-5033-01 ")
 ;;548
 ;;21,"59762-5033-02 ")
 ;;549
 ;;21,"59762-7020-09 ")
 ;;587
 ;;21,"59762-7021-05 ")
 ;;635
 ;;21,"59762-7021-09 ")
 ;;636
 ;;21,"59762-7022-05 ")
 ;;811
 ;;21,"59762-7022-09 ")
 ;;812
 ;;21,"60429-0082-01 ")
 ;;178
 ;;21,"60429-0082-10 ")
 ;;179
 ;;21,"60429-0083-01 ")
 ;;391
 ;;21,"60429-0083-10 ")
 ;;392
 ;;21,"60429-0280-01 ")
 ;;1748
 ;;21,"60429-0280-10 ")
 ;;1749
 ;;21,"60429-0280-18 ")
 ;;1750
 ;;21,"60429-0283-01 ")
 ;;834
 ;;21,"60429-0284-01 ")
 ;;845
 ;;21,"60429-0285-01 ")
 ;;871
 ;;21,"60429-0291-01 ")
 ;;46
 ;;21,"60429-0293-01 ")
 ;;148
 ;;21,"60429-0330-10 ")
 ;;1869
 ;;21,"60429-0330-30 ")
 ;;1870
 ;;21,"60429-0330-90 ")
 ;;1871
 ;;21,"60429-0331-10 ")
 ;;1935
 ;;21,"60429-0331-30 ")
 ;;1936
 ;;21,"60429-0331-90 ")
 ;;1937
 ;;21,"60429-0332-10 ")
 ;;1994
 ;;21,"60429-0332-30 ")
 ;;1995
 ;;21,"60429-0332-90 ")
 ;;1996
 ;;21,"60429-0336-01 ")
 ;;1770
 ;;21,"60429-0337-01 ")
 ;;1775
 ;;21,"60429-0723-12 ")
 ;;969
 ;;21,"60429-0723-18 ")
 ;;970
 ;;21,"60429-0723-60 ")
 ;;971
 ;;21,"60429-0723-90 ")
 ;;972
 ;;21,"60429-0725-05 ")
 ;;1709
 ;;21,"60429-0725-18 ")
 ;;1710
 ;;21,"60429-0725-60 ")
 ;;1711
 ;;21,"60429-0725-90 ")
 ;;1712
 ;;21,"60505-0141-00 ")
 ;;226
 ;;21,"60505-0141-01 ")
 ;;227
 ;;21,"60505-0141-02 ")
 ;;228
 ;;21,"60505-0141-08 ")
 ;;229
 ;;21,"60505-0142-00 ")
 ;;316
 ;;21,"60505-0142-01 ")
 ;;317
 ;;21,"60505-0142-02 ")
 ;;318
 ;;21,"60505-0142-04 ")
 ;;395
 ;;21,"60505-0190-00 ")
 ;;1032
 ;;21,"60505-0190-01 ")
 ;;1033
 ;;21,"60505-0190-04 ")
 ;;1034
 ;;21,"60505-0190-08 ")
 ;;1035
 ;;21,"60505-0191-00 ")
 ;;1307
 ;;21,"60505-0191-01 ")
 ;;1308
 ;;21,"60505-0191-04 ")
 ;;1309
 ;;21,"60505-0191-08 ")
 ;;1310
 ;;21,"60505-0192-00 ")
 ;;1460
 ;;21,"60505-0192-01 ")
 ;;1461
 ;;21,"60505-0192-04 ")
 ;;1462
 ;;21,"60505-0192-08 ")
 ;;1463
 ;;21,"60505-0260-01 ")
 ;;1720
 ;;21,"60505-0260-02 ")
 ;;1721
 ;;21,"60505-0260-07 ")
 ;;1722
 ;;21,"60505-1329-01 ")
 ;;1730
 ;;21,"60760-0024-60 ")
 ;;349
 ;;21,"60760-0042-60 ")
 ;;1650
 ;;21,"60760-0141-60 ")
 ;;180
 ;;21,"60760-0175-30 ")
 ;;2149
 ;;21,"60760-0176-30 ")
 ;;2150
 ;;21,"60760-0229-30 ")
 ;;76
 ;;21,"60760-0230-30 ")
 ;;171
 ;;21,"60760-0973-60 ")
 ;;944
 ;;21,"60760-0974-60 ")
 ;;1244
 ;;21,"60760-0975-60 ")
 ;;1416
 ;;21,"61442-0115-01 ")
 ;;42
 ;;21,"61442-0116-01 ")
 ;;69
 ;;21,"61442-0117-01 ")
 ;;134
 ;;21,"62037-0571-01 ")
 ;;1705
 ;;21,"62037-0571-10 ")
 ;;1706
 ;;21,"62037-0577-01 ")
 ;;1731
 ;;21,"62037-0577-10 ")
 ;;1732
 ;;21,"62584-0259-01 ")
 ;;973
 ;;21,"62584-0259-11 ")
 ;;974
 ;;21,"62584-0332-01 ")
 ;;1376
 ;;21,"62584-0332-11 ")
 ;;1377
 ;;21,"62584-0452-01 ")
 ;;1512
 ;;21,"62584-0452-11 ")
 ;;1513
 ;;21,"62756-0142-01 ")
 ;;1609
 ;;21,"62756-0142-02 ")
 ;;1610
 ;;21,"62756-0143-01 ")
 ;;1751
 ;;21,"63304-0254-30 ")
 ;;1872
 ;;21,"63304-0254-90 ")
 ;;1873
 ;;21,"63304-0255-30 ")
 ;;1941
 ;;21,"63304-0255-90 ")
 ;;1942
 ;;21,"63304-0261-30 ")
 ;;1997
 ;;21,"63304-0261-90 ")
 ;;1998
 ;;21,"63304-0311-05 ")
 ;;1874
 ;;21,"63304-0311-30 ")
 ;;1875
 ;;21,"63304-0311-90 ")
 ;;1876
 ;;21,"63304-0312-05 ")
 ;;1938
 ;;21,"63304-0312-30 ")
 ;;1939
 ;;21,"63304-0312-90 ")
 ;;1940
 ;;21,"63304-0313-05 ")
 ;;1999
 ;;21,"63304-0313-30 ")
 ;;2000
 ;;21,"63304-0313-90 ")
 ;;2001
 ;;21,"63629-1255-01 ")
 ;;129
 ;;21,"63629-1255-02 ")
 ;;130
 ;;21,"63629-1269-01 ")
 ;;2058
 ;;21,"63629-1392-01 ")
 ;;2198
 ;;21,"63629-1392-02 ")
 ;;2199
 ;;21,"63629-1392-03 ")
 ;;2200
 ;;21,"63629-1393-01 ")
 ;;670
 ;;21,"63629-1393-02 ")
 ;;671
 ;;21,"63629-1393-03 ")
 ;;672
 ;;21,"63629-1393-04 ")
 ;;673
 ;;21,"63629-1394-01 ")
 ;;396
 ;;21,"63629-1394-02 ")
 ;;397
 ;;21,"63629-1394-03 ")
 ;;398
 ;;21,"63629-1395-01 ")
 ;;1039
 ;;21,"63629-1395-02 ")
 ;;1040
 ;;21,"63629-1395-03 ")
 ;;1041
 ;;21,"63629-1396-01 ")
 ;;1302
 ;;21,"63629-1396-02 ")
 ;;1303
 ;;21,"63629-1397-01 ")
 ;;1464
 ;;21,"63629-1397-02 ")
 ;;1465
 ;;21,"63629-1397-03 ")
 ;;1466
 ;;21,"63629-1397-04 ")
 ;;1467
 ;;21,"63629-1397-05 ")
 ;;1558
 ;;21,"63629-1398-01 ")
 ;;198
 ;;21,"63629-1398-02 ")
 ;;199
 ;;21,"63629-1398-03 ")
 ;;200
 ;;21,"63629-2793-01 ")
 ;;2268
 ;;21,"63629-2793-03 ")
 ;;2269
 ;;21,"63629-2793-04 ")
 ;;2270
 ;;21,"63629-2793-05 ")
 ;;2271
 ;;21,"63629-2883-01 ")
 ;;1696
 ;;21,"63629-2883-02 ")
 ;;1697
 ;;21,"63629-2883-03 ")
 ;;1698
 ;;21,"63629-2907-01 ")
 ;;619
 ;;21,"63629-2907-02 ")
 ;;620
 ;;21,"63629-3043-01 ")
 ;;93
 ;;21,"63629-3043-02 ")
 ;;94
 ;;21,"63629-3158-01 ")
 ;;511
 ;;21,"63629-3158-02 ")
 ;;512
 ;;21,"63629-3158-03 ")
 ;;513
 ;;21,"63629-3397-03 ")
 ;;835
 ;;21,"63629-3998-01 ")
 ;;2172
 ;;21,"63629-4071-01 ")
 ;;477
 ;;21,"63739-0119-10 ")
 ;;800
 ;;21,"63874-0316-01 ")
 ;;230
 ;;21,"63874-0316-02 ")
 ;;231
 ;;21,"63874-0316-04 ")
 ;;232
 ;;21,"63874-0316-05 ")
 ;;233
 ;;21,"63874-0316-10 ")
 ;;234
 ;;21,"63874-0316-12 ")
 ;;235
 ;;21,"63874-0316-14 ")
 ;;236
 ;;21,"63874-0316-15 ")
 ;;237
 ;;21,"63874-0316-20 ")
 ;;238
 ;;21,"63874-0316-21 ")
 ;;239
 ;;21,"63874-0316-24 ")
 ;;240
 ;;21,"63874-0316-28 ")
 ;;241
 ;;21,"63874-0316-30 ")
 ;;242
 ;;21,"63874-0316-50 ")
 ;;243
 ;;21,"63874-0316-60 ")
 ;;244
 ;;21,"63874-0316-81 ")
 ;;245
 ;;21,"63874-0316-90 ")
 ;;246
 ;;21,"63874-0317-01 ")
 ;;756
 ;;21,"63874-0317-02 ")
 ;;757
 ;;21,"63874-0317-04 ")
 ;;758
 ;;21,"63874-0317-10 ")
 ;;759
 ;;21,"63874-0317-12 ")
 ;;760
 ;;21,"63874-0317-14 ")
 ;;761
 ;;21,"63874-0317-15 ")
 ;;762
 ;;21,"63874-0317-20 ")
 ;;763
 ;;21,"63874-0317-24 ")
 ;;764
 ;;21,"63874-0317-28 ")
 ;;765
 ;;21,"63874-0317-30 ")
 ;;766
 ;;21,"63874-0317-40 ")
 ;;767
 ;;21,"63874-0317-50 ")
 ;;768
 ;;21,"63874-0317-60 ")
 ;;769
 ;;21,"63874-0317-90 ")
 ;;770
 ;;21,"63874-0357-01 ")
 ;;22
 ;;21,"63874-0357-02 ")
 ;;23
 ;;21,"63874-0357-10 ")
 ;;24
 ;;21,"63874-0357-12 ")
 ;;25
 ;;21,"63874-0357-14 ")
 ;;26
 ;;21,"63874-0357-15 ")
 ;;27
 ;;21,"63874-0357-20 ")
 ;;28
 ;;21,"63874-0357-21 ")
 ;;29
 ;;21,"63874-0357-24 ")
 ;;30
 ;;21,"63874-0357-30 ")
 ;;31
 ;;21,"63874-0357-40 ")
 ;;32
 ;;21,"63874-0357-60 ")
 ;;33
 ;;21,"63874-0432-01 ")
 ;;377
 ;;21,"63874-0432-02 ")
 ;;378
 ;;21,"63874-0432-04 ")
 ;;379
 ;;21,"63874-0432-10 ")
 ;;380
 ;;21,"63874-0432-14 ")
 ;;381
 ;;21,"63874-0432-20 ")
 ;;382
 ;;21,"63874-0432-21 ")
 ;;383
 ;;21,"63874-0432-24 ")
 ;;384
 ;;21,"63874-0432-28 ")
 ;;385
 ;;21,"63874-0432-30 ")
 ;;386
 ;;21,"63874-0432-50 ")
 ;;387
 ;;21,"63874-0432-60 ")
 ;;388
 ;;21,"63874-0432-81 ")
 ;;389
 ;;21,"63874-0432-90 ")
 ;;390
 ;;21,"63874-0501-01 ")
 ;;1042
 ;;21,"63874-0501-04 ")
 ;;1043
 ;;21,"63874-0501-10 ")
 ;;1044
 ;;21,"63874-0501-14 ")
 ;;1045
 ;;21,"63874-0501-20 ")
 ;;1046
 ;;21,"63874-0501-24 ")
 ;;1047
 ;;21,"63874-0501-28 ")
 ;;1048
 ;;21,"63874-0501-30 ")
 ;;1049
 ;;21,"63874-0501-60 ")
 ;;1050
 ;;21,"63874-0501-90 ")
 ;;1051
 ;;21,"63874-0588-01 ")
 ;;605
 ;;21,"63874-0588-04 ")
 ;;606
 ;;21,"63874-0588-10 ")
 ;;607
 ;;21,"63874-0588-14 ")
 ;;608
 ;;21,"63874-0588-20 ")
 ;;609
 ;;21,"63874-0588-30 ")
 ;;610
 ;;21,"63874-0588-60 ")
 ;;611
 ;;21,"63874-0588-80 ")
 ;;612
 ;;21,"63874-0588-90 ")
 ;;613
 ;;21,"63874-0635-01 ")
 ;;1245
 ;;21,"63874-0635-10 ")
 ;;1246
 ;;21,"63874-0635-20 ")
 ;;1247
 ;;21,"63874-0635-28 ")
 ;;1248
 ;;21,"63874-0635-30 ")
 ;;1249
 ;;21,"63874-0635-60 ")
 ;;1250
 ;;21,"63874-0635-90 ")
 ;;1251
 ;;21,"63874-0665-01 ")
 ;;571
 ;;21,"63874-0665-04 ")
 ;;572
 ;;21,"63874-0665-10 ")
 ;;573
 ;;21,"63874-0665-14 ")
 ;;574
 ;;21,"63874-0665-30 ")
 ;;575
 ;;21,"63874-0665-60 ")
 ;;576
 ;;21,"63874-0665-90 ")
 ;;577
 ;;21,"63874-0974-01 ")
 ;;1405
 ;;21,"63874-0974-30 ")
 ;;1406
 ;;21,"63874-0974-60 ")
 ;;1407
 ;;21,"64720-0123-10 ")
 ;;588
 ;;21,"64720-0124-10 ")
 ;;634
 ;;21,"64720-0125-10 ")
 ;;813
 ;;21,"64720-0125-11 ")
 ;;814
 ;;21,"64764-0125-30 ")
 ;;1790
 ;;21,"64764-0151-04 ")
 ;;1854
 ;;21,"64764-0151-05 ")
 ;;1855
 ;;21,"64764-0151-06 ")
 ;;1856
 ;;21,"64764-0155-18 ")
 ;;2331
 ;;21,"64764-0155-60 ")
 ;;2332
 ;;21,"64764-0158-18 ")
 ;;2345
 ;;21,"64764-0158-60 ")
 ;;2346
 ;;21,"64764-0250-30 ")
 ;;1791
 ;;21,"64764-0301-14 ")
 ;;1917
 ;;21,"64764-0301-15 ")
 ;;1918
 ;;21,"64764-0301-16 ")
 ;;1901
 ;;21,"64764-0302-30 ")
 ;;2315
 ;;21,"64764-0304-30 ")
 ;;2317
 ;;21,"64764-0310-30 ")
 ;;2356
 ;;21,"64764-0335-60 ")
 ;;2074
 ;;21,"64764-0337-60 ")
 ;;2075
 ;;21,"64764-0451-24 ")
 ;;1964
 ;;21,"64764-0451-25 ")
 ;;1965
 ;;21,"64764-0451-26 ")
 ;;1966
 ;;21,"64764-0510-30 ")
 ;;2355
 ;;21,"64764-0625-30 ")
 ;;1789
 ;;21,"65162-0174-10 ")
 ;;1304
 ;;21,"65162-0174-11 ")
 ;;1305
 ;;21,"65162-0174-50 ")
 ;;1306
 ;;21,"65162-0175-10 ")
 ;;1036
 ;;21,"65162-0175-11 ")
 ;;1037
 ;;21,"65162-0175-50 ")
 ;;1038
 ;;21,"65162-0177-10 ")
 ;;1719
 ;;21,"65162-0177-11 ")
 ;;1469
 ;;21,"65162-0177-50 ")
 ;;1718
 ;;21,"65162-0218-10 ")
 ;;1060
 ;;21,"65162-0218-11 ")
 ;;1061
 ;;21,"65162-0218-50 ")
 ;;1062
 ;;21,"65162-0219-10 ")
 ;;1296