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

BGP44N5.m

Go to the documentation of this file.
BGP44N5 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON SEP 11, 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-0333-30 ")
 ;;587
 ;;21,"58016-0333-60 ")
 ;;588
 ;;21,"58016-0373-00 ")
 ;;976
 ;;21,"58016-0373-02 ")
 ;;977
 ;;21,"58016-0373-30 ")
 ;;978
 ;;21,"58016-0373-60 ")
 ;;979
 ;;21,"58016-0373-90 ")
 ;;980
 ;;21,"58016-0442-00 ")
 ;;1308
 ;;21,"58016-0442-02 ")
 ;;1309
 ;;21,"58016-0442-30 ")
 ;;1310
 ;;21,"58016-0442-60 ")
 ;;1311
 ;;21,"58016-0442-90 ")
 ;;1312
 ;;21,"58016-0442-99 ")
 ;;1313
 ;;21,"58016-0526-00 ")
 ;;2047
 ;;21,"58016-0526-02 ")
 ;;2048
 ;;21,"58016-0526-30 ")
 ;;2049
 ;;21,"58016-0526-60 ")
 ;;2050
 ;;21,"58016-0526-90 ")
 ;;2051
 ;;21,"58016-0528-00 ")
 ;;57
 ;;21,"58016-0528-30 ")
 ;;58
 ;;21,"58016-0528-60 ")
 ;;59
 ;;21,"58016-0529-00 ")
 ;;142
 ;;21,"58016-0529-10 ")
 ;;143
 ;;21,"58016-0529-30 ")
 ;;144
 ;;21,"58016-0529-50 ")
 ;;145
 ;;21,"58016-0531-00 ")
 ;;174
 ;;21,"58016-0531-30 ")
 ;;175
 ;;21,"58016-0532-00 ")
 ;;238
 ;;21,"58016-0532-02 ")
 ;;239
 ;;21,"58016-0532-60 ")
 ;;240
 ;;21,"58016-0582-00 ")
 ;;466
 ;;21,"58016-0582-15 ")
 ;;467
 ;;21,"58016-0582-20 ")
 ;;468
 ;;21,"58016-0582-30 ")
 ;;469
 ;;21,"58016-0582-60 ")
 ;;470
 ;;21,"58016-0640-00 ")
 ;;1344
 ;;21,"58016-0640-15 ")
 ;;1345
 ;;21,"58016-0640-20 ")
 ;;1346
 ;;21,"58016-0640-30 ")
 ;;1347
 ;;21,"58016-0771-00 ")
 ;;701
 ;;21,"58016-0771-12 ")
 ;;702
 ;;21,"58016-0771-15 ")
 ;;703
 ;;21,"58016-0771-20 ")
 ;;704
 ;;21,"58016-0771-30 ")
 ;;705
 ;;21,"58016-0771-60 ")
 ;;706
 ;;21,"58016-0859-00 ")
 ;;290
 ;;21,"58016-0859-30 ")
 ;;291
 ;;21,"58016-0859-60 ")
 ;;292
 ;;21,"58016-0859-90 ")
 ;;293
 ;;21,"58016-0974-00 ")
 ;;893
 ;;21,"58016-0974-30 ")
 ;;894
 ;;21,"58016-0974-60 ")
 ;;895
 ;;21,"58016-0974-90 ")
 ;;896
 ;;21,"58864-0016-01 ")
 ;;1379
 ;;21,"58864-0016-28 ")
 ;;1380
 ;;21,"58864-0016-30 ")
 ;;1381
 ;;21,"58864-0016-60 ")
 ;;1382
 ;;21,"58864-0065-01 ")
 ;;589
 ;;21,"58864-0065-30 ")
 ;;590
 ;;21,"58864-0363-30 ")
 ;;121
 ;;21,"58864-0645-56 ")
 ;;75
 ;;21,"58864-0680-30 ")
 ;;225
 ;;21,"58864-0695-30 ")
 ;;1474
 ;;21,"58864-0717-30 ")
 ;;770
 ;;21,"58864-0727-30 ")
 ;;1931
 ;;21,"58864-0737-30 ")
 ;;1720
 ;;21,"58864-0749-30 ")
 ;;471
 ;;21,"58864-0749-90 ")
 ;;472
 ;;21,"58864-0759-30 ")
 ;;1072
 ;;21,"58864-0765-30 ")
 ;;1002
 ;;21,"58864-0784-30 ")
 ;;2138
 ;;21,"59762-1258-01 ")
 ;;810
 ;;21,"59762-1258-02 ")
 ;;811
 ;;21,"59762-1261-01 ")
 ;;831
 ;;21,"59762-1261-02 ")
 ;;832
 ;;21,"59762-1300-01 ")
 ;;1122
 ;;21,"59762-1300-03 ")
 ;;1123
 ;;21,"59762-1301-01 ")
 ;;1224
 ;;21,"59762-1301-03 ")
 ;;1225
 ;;21,"59762-1302-01 ")
 ;;1413
 ;;21,"59762-1302-03 ")
 ;;1414
 ;;21,"60429-0025-30 ")
 ;;602
 ;;21,"60429-0025-90 ")
 ;;603
 ;;21,"60429-0139-01 ")
 ;;841
 ;;21,"60429-0139-10 ")
 ;;842
 ;;21,"60429-0140-01 ")
 ;;917
 ;;21,"60429-0140-10 ")
 ;;918
 ;;21,"60429-0141-01 ")
 ;;1014
 ;;21,"60429-0141-10 ")
 ;;1015
 ;;21,"60429-0141-45 ")
 ;;1016
 ;;21,"60429-0142-01 ")
 ;;1075
 ;;21,"60429-0142-05 ")
 ;;1076
 ;;21,"60429-0142-10 ")
 ;;1077
 ;;21,"60429-0142-45 ")
 ;;1078
 ;;21,"60429-0277-01 ")
 ;;1984
 ;;21,"60429-0277-05 ")
 ;;1985
 ;;21,"60429-0278-01 ")
 ;;2008
 ;;21,"60429-0278-05 ")
 ;;2009
 ;;21,"60429-0279-01 ")
 ;;2045
 ;;21,"60429-0753-01 ")
 ;;790
 ;;21,"60429-0754-01 ")
 ;;795
 ;;21,"60429-0830-10 ")
 ;;890
 ;;21,"60429-0831-10 ")
 ;;941
 ;;21,"60505-2606-01 ")
 ;;1591
 ;;21,"60505-2606-08 ")
 ;;1592
 ;;21,"60505-2607-01 ")
 ;;1676
 ;;21,"60505-2607-08 ")
 ;;1677
 ;;21,"60505-2608-01 ")
 ;;1771
 ;;21,"60505-2608-08 ")
 ;;1772
 ;;21,"60505-2609-01 ")
 ;;1929
 ;;21,"60505-2609-08 ")
 ;;1930
 ;;21,"60760-0059-30 ")
 ;;666
 ;;21,"60760-0060-30 ")
 ;;463
 ;;21,"60760-0142-60 ")
 ;;1575
 ;;21,"60760-0143-60 ")
 ;;1688
 ;;21,"60760-0144-60 ")
 ;;1780
 ;;21,"60760-0145-60 ")
 ;;1921
 ;;21,"60760-0251-60 ")
 ;;1253
 ;;21,"60760-0252-60 ")
 ;;1396
 ;;21,"60793-0283-01 ")
 ;;2203
 ;;21,"60793-0284-01 ")
 ;;2209
 ;;21,"60793-0800-01 ")
 ;;1
 ;;21,"60793-0801-01 ")
 ;;16
 ;;21,"60793-0802-01 ")
 ;;35
 ;;21,"62037-0830-01 ")
 ;;869
 ;;21,"62037-0830-10 ")
 ;;870
 ;;21,"62037-0831-01 ")
 ;;964
 ;;21,"62037-0831-10 ")
 ;;965
 ;;21,"62037-0832-01 ")
 ;;1044
 ;;21,"62037-0832-10 ")
 ;;1045
 ;;21,"62037-0833-01 ")
 ;;1095
 ;;21,"62037-0833-10 ")
 ;;1096
 ;;21,"62584-0265-01 ")
 ;;1160
 ;;21,"62584-0265-11 ")
 ;;1161
 ;;21,"62584-0266-01 ")
 ;;1348
 ;;21,"62584-0266-11 ")
 ;;1349
 ;;21,"62584-0267-01 ")
 ;;1478
 ;;21,"62584-0267-11 ")
 ;;1479
 ;;21,"62584-0467-01 ")
 ;;532
 ;;21,"62584-0467-11 ")
 ;;533
 ;;21,"62584-0715-01 ")
 ;;699
 ;;21,"62584-0715-11 ")
 ;;700
 ;;21,"62756-0368-88 ")
 ;;2193
 ;;21,"62756-0369-88 ")
 ;;2199
 ;;21,"62756-0370-88 ")
 ;;2188
 ;;21,"63304-0579-01 ")
 ;;1116
 ;;21,"63304-0579-10 ")
 ;;1117
 ;;21,"63304-0580-01 ")
 ;;1239
 ;;21,"63304-0580-10 ")
 ;;1240
 ;;21,"63304-0581-01 ")
 ;;1402
 ;;21,"63304-0581-10 ")
 ;;1403
 ;;21,"63304-0621-01 ")
 ;;473
 ;;21,"63304-0621-10 ")
 ;;474
 ;;21,"63304-0622-01 ")
 ;;658
 ;;21,"63304-0622-10 ")
 ;;659
 ;;21,"63304-0623-01 ")
 ;;772
 ;;21,"63304-0623-10 ")
 ;;773
 ;;21,"63629-1423-01 ")
 ;;61
 ;;21,"63629-1423-02 ")
 ;;62
 ;;21,"63629-1462-01 ")
 ;;1418
 ;;21,"63629-1462-02 ")
 ;;1419
 ;;21,"63629-1462-03 ")
 ;;1420
 ;;21,"63629-1463-01 ")
 ;;1219
 ;;21,"63629-1463-02 ")
 ;;1220
 ;;21,"63629-1463-03 ")
 ;;1221
 ;;21,"63629-1463-04 ")
 ;;1222
 ;;21,"63629-1463-05 ")
 ;;1223
 ;;21,"63629-1674-01 ")
 ;;2116
 ;;21,"63629-1740-01 ")
 ;;521
 ;;21,"63629-1740-02 ")
 ;;522
 ;;21,"63629-1740-03 ")
 ;;523
 ;;21,"63629-1785-01 ")
 ;;453
 ;;21,"63629-1785-02 ")
 ;;454
 ;;21,"63629-1785-03 ")
 ;;455
 ;;21,"63629-1842-01 ")
 ;;274
 ;;21,"63629-2570-01 ")
 ;;122
 ;;21,"63629-2570-02 ")
 ;;123
 ;;21,"63629-2570-03 ")
 ;;124
 ;;21,"63629-2570-04 ")
 ;;125
 ;;21,"63629-2626-01 ")
 ;;733
 ;;21,"63629-2626-02 ")
 ;;734
 ;;21,"63629-2626-03 ")
 ;;735
 ;;21,"63629-2626-04 ")
 ;;736
 ;;21,"63629-2909-01 ")
 ;;2057
 ;;21,"63629-2909-02 ")
 ;;2058
 ;;21,"63629-2909-03 ")
 ;;2059
 ;;21,"63629-2909-04 ")
 ;;2060
 ;;21,"63629-3587-01 ")
 ;;251
 ;;21,"63629-3587-02 ")
 ;;252
 ;;21,"63629-3636-01 ")
 ;;987
 ;;21,"63629-3636-02 ")
 ;;988
 ;;21,"63629-3668-01 ")
 ;;1665
 ;;21,"63629-3668-02 ")
 ;;1666
 ;;21,"63629-3668-03 ")
 ;;1667
 ;;21,"63629-3669-01 ")
 ;;1766
 ;;21,"63629-3669-02 ")
 ;;1767
 ;;21,"63629-3669-03 ")
 ;;1768
 ;;21,"63629-3738-01 ")
 ;;2081
 ;;21,"63629-3871-01 ")
 ;;374
 ;;21,"63629-4060-01 ")
 ;;1573
 ;;21,"63629-4060-02 ")
 ;;1574
 ;;21,"63629-4070-01 ")
 ;;1922
 ;;21,"63629-4070-02 ")
 ;;1923
 ;;21,"63629-4072-01 ")
 ;;2139
 ;;21,"63629-4075-01 ")
 ;;2169
 ;;21,"63629-4096-01 ")
 ;;843
 ;;21,"63629-4241-01 ")
 ;;912
 ;;21,"63629-4241-02 ")
 ;;913
 ;;21,"63629-4241-03 ")
 ;;914
 ;;21,"63629-4241-04 ")
 ;;915
 ;;21,"63629-4241-05 ")
 ;;916
 ;;21,"63629-4605-01 ")
 ;;1121
 ;;21,"63739-0366-10 ")
 ;;2007
 ;;21,"63739-0454-10 ")
 ;;1003
 ;;21,"63874-0332-01 ")
 ;;650
 ;;21,"63874-0332-02 ")
 ;;651
 ;;21,"63874-0332-07 ")
 ;;652
 ;;21,"63874-0332-10 ")
 ;;653
 ;;21,"63874-0332-14 ")
 ;;654
 ;;21,"63874-0332-15 ")
 ;;655
 ;;21,"63874-0332-20 ")
 ;;656
 ;;21,"63874-0332-30 ")
 ;;657
 ;;21,"63874-0332-60 ")
 ;;545
 ;;21,"63874-0332-90 ")
 ;;546
 ;;21,"63874-0368-01 ")
 ;;120
 ;;21,"63874-0368-02 ")
 ;;162
 ;;21,"63874-0368-15 ")
 ;;163
 ;;21,"63874-0368-20 ")
 ;;164
 ;;21,"63874-0368-28 ")
 ;;165
 ;;21,"63874-0368-30 ")
 ;;166
 ;;21,"63874-0368-60 ")
 ;;167
 ;;21,"63874-0388-01 ")
 ;;779
 ;;21,"63874-0388-07 ")
 ;;780
 ;;21,"63874-0388-10 ")
 ;;781
 ;;21,"63874-0388-12 ")
 ;;782
 ;;21,"63874-0388-15 ")
 ;;783
 ;;21,"63874-0388-20 ")
 ;;784
 ;;21,"63874-0388-30 ")
 ;;785
 ;;21,"63874-0406-01 ")
 ;;1256
 ;;21,"63874-0406-10 ")
 ;;1257
 ;;21,"63874-0406-14 ")
 ;;1258
 ;;21,"63874-0406-15 ")
 ;;1259
 ;;21,"63874-0406-20 ")
 ;;1260
 ;;21,"63874-0406-28 ")
 ;;1261
 ;;21,"63874-0406-30 ")
 ;;1262
 ;;21,"63874-0406-60 ")
 ;;1263
 ;;21,"63874-0407-01 ")
 ;;1515
 ;;21,"63874-0407-10 ")
 ;;1516
 ;;21,"63874-0407-15 ")
 ;;1517
 ;;21,"63874-0407-20 ")
 ;;1518
 ;;21,"63874-0407-30 ")
 ;;1519
 ;;21,"63874-0407-60 ")
 ;;1520
 ;;21,"63874-0407-90 ")
 ;;1521
 ;;21,"63874-0454-01 ")
 ;;89
 ;;21,"63874-0454-02 ")
 ;;90
 ;;21,"63874-0454-04 ")
 ;;91
 ;;21,"63874-0454-15 ")
 ;;92
 ;;21,"63874-0454-20 ")
 ;;93
 ;;21,"63874-0454-30 ")
 ;;94
 ;;21,"63874-0454-60 ")
 ;;95
 ;;21,"63874-0468-01 ")
 ;;410
 ;;21,"63874-0468-10 ")
 ;;411
 ;;21,"63874-0468-14 ")
 ;;412
 ;;21,"63874-0468-15 ")
 ;;413
 ;;21,"63874-0468-20 ")
 ;;414
 ;;21,"63874-0468-30 ")
 ;;415
 ;;21,"63874-0468-60 ")
 ;;416
 ;;21,"63874-0468-90 ")
 ;;417
 ;;21,"63874-0486-01 ")
 ;;204
 ;;21,"63874-0486-02 ")
 ;;205
 ;;21,"63874-0486-15 ")
 ;;206
 ;;21,"63874-0486-30 ")
 ;;193
 ;;21,"63874-0486-40 ")
 ;;194
 ;;21,"63874-0486-60 ")
 ;;195
 ;;21,"64679-0734-02 ")
 ;;884
 ;;21,"64679-0734-03 ")
 ;;885
 ;;21,"64679-0734-08 ")
 ;;886
 ;;21,"64679-0734-09 ")
 ;;887
 ;;21,"64679-0735-02 ")
 ;;944
 ;;21,"64679-0735-03 ")
 ;;945
 ;;21,"64679-0735-08 ")
 ;;946
 ;;21,"64679-0735-09 ")
 ;;947
 ;;21,"64679-0736-02 ")
 ;;1034
 ;;21,"64679-0736-03 ")
 ;;1035
 ;;21,"64679-0736-08 ")
 ;;1036
 ;;21,"64679-0736-09 ")
 ;;1037
 ;;21,"64679-0737-02 ")
 ;;1088
 ;;21,"64679-0737-03 ")
 ;;1089
 ;;21,"64679-0737-08 ")
 ;;1090
 ;;21,"65162-0669-10 ")
 ;;377
 ;;21,"65162-0670-10 ")
 ;;383
 ;;21,"65243-0014-03 ")
 ;;604
 ;;21,"65243-0014-09 ")
 ;;605
 ;;21,"65243-0014-18 ")
 ;;606
 ;;21,"65243-0014-45 ")
 ;;607
 ;;21,"65243-0232-03 ")
 ;;1303
 ;;21,"65243-0232-06 ")
 ;;1304
 ;;21,"65243-0232-09 ")
 ;;1305
 ;;21,"65243-0232-12 ")
 ;;1306
 ;;21,"65243-0232-18 ")
 ;;1307
 ;;21,"65243-0265-03 ")
 ;;1483
 ;;21,"65243-0265-06 ")
 ;;1484
 ;;21,"65243-0265-09 ")
 ;;1485
 ;;21,"65243-0265-18 ")
 ;;1486
 ;;21,"65243-0265-45 ")
 ;;1487
 ;;21,"65243-0308-03 ")
 ;;599
 ;;21,"65243-0308-09 ")
 ;;600
 ;;21,"65243-0308-18 ")
 ;;601
 ;;21,"65243-0329-03 ")
 ;;1297
 ;;21,"65243-0329-09 ")
 ;;1298
 ;;21,"65243-0329-18 ")
 ;;1299
 ;;21,"65243-0347-09 ")
 ;;490
 ;;21,"65243-0379-09 ")
 ;;1488
 ;;21,"65243-0379-18 ")
 ;;1412
 ;;21,"65243-0382-09 ")
 ;;1226
 ;;21,"65243-0382-18 ")
 ;;1227
 ;;21,"65483-0391-10 ")
 ;;1997
 ;;21,"65483-0392-10 ")
 ;;2028
 ;;21,"65483-0393-10 ")
 ;;2046
 ;;21,"65862-0062-01 ")
 ;;1175
 ;;21,"65862-0062-99 ")
 ;;1118
 ;;21,"65862-0063-01 ")
 ;;1288
 ;;21,"65862-0063-99 ")
 ;;1289
 ;;21,"65862-0064-01 ")
 ;;1495
 ;;21,"65862-0064-99 ")
 ;;1496
 ;;21,"65862-0086-01 ")
 ;;818
 ;;21,"65862-0086-30 ")
 ;;819
 ;;21,"65862-0087-01 ")
 ;;827
 ;;21,"65862-0087-30 ")
 ;;828
 ;;21,"65862-0142-01 ")
 ;;1589
 ;;21,"65862-0142-05 ")
 ;;1590
 ;;21,"65862-0143-01 ")
 ;;1678
 ;;21,"65862-0143-05 ")
 ;;1679
 ;;21,"65862-0144-01 ")
 ;;1773
 ;;21,"65862-0144-05 ")
 ;;1774
 ;;21,"65862-0145-01 ")
 ;;1927
 ;;21,"65862-0145-05 ")
 ;;1928
 ;;21,"65862-0168-01 ")
 ;;428
 ;;21,"65862-0168-99 ")
 ;;429
 ;;21,"65862-0169-01 ")
 ;;543
 ;;21,"65862-0169-99 ")
 ;;544
 ;;21,"65862-0170-01 ")
 ;;690
 ;;21,"65862-0170-99 ")
 ;;691
 ;;21,"66105-0994-03 ")
 ;;1383
 ;;21,"66105-0994-06 ")
 ;;1384
 ;;21,"66105-0994-10 ")
 ;;1385
 ;;21,"66105-0994-11 ")
 ;;1386
 ;;21,"66105-0994-15 ")
 ;;1387
 ;;21,"66105-0996-03 ")
 ;;1452
 ;;21,"66105-0996-06 ")
 ;;1453
 ;;21,"66105-0996-10 ")
 ;;1454
 ;;21,"66105-0996-11 ")
 ;;1455
 ;;21,"66105-0996-15 ")
 ;;1456
 ;;21,"66116-0239-30 ")
 ;;591
 ;;21,"66116-0421-30 ")
 ;;732
 ;;21,"66116-0455-30 ")
 ;;1466
 ;;21,"66116-0456-30 ")
 ;;1388
 ;;21,"66267-0029-30 ")
 ;;746
 ;;21,"66267-0029-60 ")
 ;;747
 ;;21,"66267-0029-90 ")
 ;;748
 ;;21,"66267-0029-91 ")
 ;;749
 ;;21,"66267-0029-92 ")
 ;;750
 ;;21,"66267-0030-60 ")
 ;;498
 ;;21,"66267-0031-30 ")
 ;;594
 ;;21,"66267-0031-60 ")
 ;;595
 ;;21,"66267-0346-30 ")
 ;;1406
 ;;21,"66267-0346-60 ")
 ;;1407
 ;;21,"66267-0346-90 ")
 ;;1408
 ;;21,"66267-0346-91 ")
 ;;1409
 ;;21,"66267-0346-92 ")
 ;;1410
 ;;21,"66267-0346-93 ")
 ;;1411
 ;;21,"66336-0514-30 ")
 ;;1493
 ;;21,"66336-0514-60 ")
 ;;1494
 ;;21,"66336-0514-62 ")
 ;;1401
 ;;21,"66336-0514-90 ")
 ;;1492
 ;;21,"66336-0523-30 ")
 ;;1286
 ;;21,"66336-0523-60 ")
 ;;1287
 ;;21,"66336-0523-62 ")
 ;;1238
 ;;21,"66336-0523-90 ")
 ;;1285
 ;;21,"66336-0587-00 ")
 ;;475
 ;;21,"66336-0587-30 ")
 ;;476
 ;;21,"66336-0587-60 ")
 ;;477
 ;;21,"66336-0587-90 ")
 ;;478
 ;;21,"66336-0612-30 ")
 ;;2163
 ;;21,"66336-0612-90 ")
 ;;2164
 ;;21,"66336-0719-30 ")
 ;;596
 ;;21,"66336-0719-60 ")
 ;;597
 ;;21,"66336-0719-90 ")
 ;;598
 ;;21,"66336-0772-30 ")
 ;;1734
 ;;21,"66336-0772-60 ")
 ;;1735
 ;;21,"66336-0772-62 ")
 ;;1736