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

BGP44T2.m

Go to the documentation of this file.
BGP44T2 ;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,"16714-0683-02 ")
 ;;1204
 ;;21,"16714-0683-03 ")
 ;;1205
 ;;21,"16714-0684-01 ")
 ;;1355
 ;;21,"16714-0684-02 ")
 ;;1356
 ;;21,"16714-0684-03 ")
 ;;1357
 ;;21,"16714-0685-01 ")
 ;;1503
 ;;21,"16714-0685-02 ")
 ;;1504
 ;;21,"16714-0685-03 ")
 ;;1505
 ;;21,"16729-0004-10 ")
 ;;1077
 ;;21,"16729-0004-15 ")
 ;;1078
 ;;21,"16729-0004-17 ")
 ;;1079
 ;;21,"16729-0005-10 ")
 ;;1206
 ;;21,"16729-0005-15 ")
 ;;1207
 ;;21,"16729-0005-17 ")
 ;;1208
 ;;21,"16729-0006-10 ")
 ;;1366
 ;;21,"16729-0006-15 ")
 ;;1367
 ;;21,"16729-0006-17 ")
 ;;1368
 ;;21,"16729-0007-10 ")
 ;;1506
 ;;21,"16729-0007-15 ")
 ;;1507
 ;;21,"16729-0007-17 ")
 ;;1508
 ;;21,"21695-0178-30 ")
 ;;740
 ;;21,"21695-0179-30 ")
 ;;820
 ;;21,"21695-0179-90 ")
 ;;821
 ;;21,"21695-0180-30 ")
 ;;900
 ;;21,"21695-0180-90 ")
 ;;901
 ;;21,"21695-0255-90 ")
 ;;234
 ;;21,"21695-0287-90 ")
 ;;645
 ;;21,"21695-0288-90 ")
 ;;690
 ;;21,"21695-0325-30 ")
 ;;1613
 ;;21,"21695-0339-30 ")
 ;;1634
 ;;21,"21695-0534-30 ")
 ;;349
 ;;21,"21695-0535-30 ")
 ;;508
 ;;21,"21695-0535-90 ")
 ;;509
 ;;21,"21695-0536-30 ")
 ;;592
 ;;21,"21695-0536-90 ")
 ;;593
 ;;21,"21695-0659-30 ")
 ;;716
 ;;21,"21695-0738-90 ")
 ;;1001
 ;;21,"21695-0739-30 ")
 ;;1089
 ;;21,"21695-0739-90 ")
 ;;1090
 ;;21,"21695-0740-30 ")
 ;;1226
 ;;21,"21695-0740-90 ")
 ;;1227
 ;;21,"21695-0741-30 ")
 ;;1386
 ;;21,"21695-0741-90 ")
 ;;1387
 ;;21,"21695-0742-30 ")
 ;;1526
 ;;21,"21695-0742-90 ")
 ;;1527
 ;;21,"21695-0759-90 ")
 ;;628
 ;;21,"21695-0827-30 ")
 ;;1648
 ;;21,"23490-0131-03 ")
 ;;133
 ;;21,"23490-0132-03 ")
 ;;220
 ;;21,"23490-0133-03 ")
 ;;293
 ;;21,"23490-0167-03 ")
 ;;1623
 ;;21,"23490-1981-03 ")
 ;;930
 ;;21,"23490-5838-02 ")
 ;;398
 ;;21,"23490-5838-06 ")
 ;;399
 ;;21,"23490-5838-09 ")
 ;;400
 ;;21,"23490-5839-00 ")
 ;;446
 ;;21,"23490-5839-01 ")
 ;;447
 ;;21,"23490-5840-01 ")
 ;;552
 ;;21,"23490-5840-02 ")
 ;;553
 ;;21,"23490-9350-03 ")
 ;;725
 ;;21,"23490-9350-06 ")
 ;;726
 ;;21,"23490-9350-09 ")
 ;;727
 ;;21,"23490-9351-03 ")
 ;;784
 ;;21,"23490-9351-06 ")
 ;;785
 ;;21,"23490-9351-09 ")
 ;;786
 ;;21,"23490-9352-03 ")
 ;;866
 ;;21,"23490-9352-06 ")
 ;;867
 ;;21,"23490-9352-09 ")
 ;;868
 ;;21,"23490-9353-03 ")
 ;;1074
 ;;21,"23490-9353-06 ")
 ;;1075
 ;;21,"23490-9353-09 ")
 ;;1076
 ;;21,"23490-9354-03 ")
 ;;1200
 ;;21,"23490-9354-06 ")
 ;;1201
 ;;21,"23490-9354-09 ")
 ;;1202
 ;;21,"23490-9355-03 ")
 ;;1358
 ;;21,"23490-9355-06 ")
 ;;1359
 ;;21,"23490-9355-09 ")
 ;;1360
 ;;21,"23490-9356-03 ")
 ;;993
 ;;21,"23490-9356-06 ")
 ;;994
 ;;21,"23490-9356-09 ")
 ;;995
 ;;21,"23490-9357-03 ")
 ;;1513
 ;;21,"23490-9357-06 ")
 ;;1514
 ;;21,"23490-9357-09 ")
 ;;1515
 ;;21,"23490-9925-01 ")
 ;;660
 ;;21,"23490-9925-09 ")
 ;;661
 ;;21,"23490-9926-01 ")
 ;;676
 ;;21,"24658-0210-10 ")
 ;;1002
 ;;21,"24658-0210-30 ")
 ;;1003
 ;;21,"24658-0210-45 ")
 ;;1004
 ;;21,"24658-0210-90 ")
 ;;1005
 ;;21,"24658-0211-10 ")
 ;;1085
 ;;21,"24658-0211-30 ")
 ;;1086
 ;;21,"24658-0211-45 ")
 ;;1087
 ;;21,"24658-0211-90 ")
 ;;1088
 ;;21,"24658-0212-10 ")
 ;;1228
 ;;21,"24658-0212-30 ")
 ;;1229
 ;;21,"24658-0212-45 ")
 ;;1230
 ;;21,"24658-0212-90 ")
 ;;1231
 ;;21,"24658-0213-10 ")
 ;;1382
 ;;21,"24658-0213-30 ")
 ;;1383
 ;;21,"24658-0213-45 ")
 ;;1384
 ;;21,"24658-0213-90 ")
 ;;1385
 ;;21,"24658-0214-10 ")
 ;;1528
 ;;21,"24658-0214-30 ")
 ;;1529
 ;;21,"24658-0214-45 ")
 ;;1530
 ;;21,"24658-0214-90 ")
 ;;1531
 ;;21,"24658-0300-10 ")
 ;;1006
 ;;21,"24658-0300-30 ")
 ;;1007
 ;;21,"24658-0300-45 ")
 ;;1008
 ;;21,"24658-0300-90 ")
 ;;1009
 ;;21,"24658-0301-10 ")
 ;;1080
 ;;21,"24658-0301-15 ")
 ;;1081
 ;;21,"24658-0301-30 ")
 ;;1082
 ;;21,"24658-0301-45 ")
 ;;1083
 ;;21,"24658-0301-90 ")
 ;;1084
 ;;21,"24658-0302-10 ")
 ;;1232
 ;;21,"24658-0302-15 ")
 ;;1233
 ;;21,"24658-0302-30 ")
 ;;1234
 ;;21,"24658-0302-45 ")
 ;;1235
 ;;21,"24658-0302-90 ")
 ;;1236
 ;;21,"24658-0303-10 ")
 ;;1379
 ;;21,"24658-0303-15 ")
 ;;1380
 ;;21,"24658-0303-30 ")
 ;;1381
 ;;21,"24658-0303-45 ")
 ;;1412
 ;;21,"24658-0303-90 ")
 ;;1413
 ;;21,"24658-0304-10 ")
 ;;1551
 ;;21,"24658-0304-15 ")
 ;;1552
 ;;21,"24658-0304-30 ")
 ;;1553
 ;;21,"24658-0304-45 ")
 ;;1554
 ;;21,"24658-0304-90 ")
 ;;1555
 ;;21,"33261-0541-02 ")
 ;;1253
 ;;21,"33261-0541-30 ")
 ;;1254
 ;;21,"33261-0541-60 ")
 ;;1255
 ;;21,"33261-0541-90 ")
 ;;1256
 ;;21,"33261-0542-02 ")
 ;;1405
 ;;21,"33261-0542-30 ")
 ;;1406
 ;;21,"33261-0542-60 ")
 ;;1407
 ;;21,"33261-0542-90 ")
 ;;1408
 ;;21,"33261-0548-30 ")
 ;;492
 ;;21,"33261-0548-60 ")
 ;;493
 ;;21,"33261-0972-00 ")
 ;;118
 ;;21,"33261-0972-30 ")
 ;;119
 ;;21,"33261-0972-60 ")
 ;;120
 ;;21,"33261-0972-90 ")
 ;;121
 ;;21,"33261-0973-00 ")
 ;;199
 ;;21,"33261-0973-30 ")
 ;;200
 ;;21,"33261-0973-60 ")
 ;;201
 ;;21,"33261-0973-90 ")
 ;;202
 ;;21,"33358-0210-01 ")
 ;;58
 ;;21,"33358-0210-30 ")
 ;;59
 ;;21,"33358-0210-60 ")
 ;;60
 ;;21,"33358-0210-90 ")
 ;;61
 ;;21,"33358-0223-30 ")
 ;;383
 ;;21,"33358-0224-30 ")
 ;;461
 ;;21,"33358-0225-00 ")
 ;;462
 ;;21,"33358-0225-60 ")
 ;;463
 ;;21,"33358-0226-30 ")
 ;;558
 ;;21,"35356-0125-30 ")
 ;;896
 ;;21,"35356-0413-30 ")
 ;;702
 ;;21,"35356-0519-30 ")
 ;;633
 ;;21,"35356-0600-30 ")
 ;;1558
 ;;21,"35356-0604-30 ")
 ;;1103
 ;;21,"35356-0667-30 ")
 ;;1247
 ;;21,"35356-0775-30 ")
 ;;1419
 ;;21,"35356-0781-30 ")
 ;;1272
 ;;21,"35356-0860-30 ")
 ;;49
 ;;21,"35356-0885-30 ")
 ;;434
 ;;21,"35356-0894-30 ")
 ;;103
 ;;21,"35356-0919-30 ")
 ;;830
 ;;21,"35356-0921-30 ")
 ;;748
 ;;21,"35356-0929-30 ")
 ;;180
 ;;21,"42254-0019-30 ")
 ;;196
 ;;21,"42254-0019-45 ")
 ;;197
 ;;21,"42254-0019-90 ")
 ;;198
 ;;21,"42254-0025-30 ")
 ;;559
 ;;21,"42254-0025-90 ")
 ;;560
 ;;21,"42254-0028-30 ")
 ;;464
 ;;21,"42254-0028-90 ")
 ;;465
 ;;21,"42254-0032-30 ")
 ;;1361
 ;;21,"42254-0032-45 ")
 ;;1362
 ;;21,"42254-0032-90 ")
 ;;1363
 ;;21,"42254-0060-30 ")
 ;;1209
 ;;21,"42254-0060-90 ")
 ;;1210
 ;;21,"42254-0106-30 ")
 ;;412
 ;;21,"42254-0106-90 ")
 ;;413
 ;;21,"42254-0129-30 ")
 ;;1044
 ;;21,"42254-0129-90 ")
 ;;1045
 ;;21,"42254-0131-30 ")
 ;;918
 ;;21,"42254-0131-90 ")
 ;;919
 ;;21,"42254-0168-90 ")
 ;;1456
 ;;21,"42254-0202-30 ")
 ;;835
 ;;21,"42254-0202-90 ")
 ;;836
 ;;21,"42254-0225-30 ")
 ;;1299
 ;;21,"42254-0261-30 ")
 ;;112
 ;;21,"42254-0261-45 ")
 ;;113
 ;;21,"42254-0261-90 ")
 ;;114
 ;;21,"42254-0267-30 ")
 ;;270
 ;;21,"42254-0267-45 ")
 ;;271
 ;;21,"42254-0267-90 ")
 ;;272
 ;;21,"42254-0307-30 ")
 ;;36
 ;;21,"42254-0379-30 ")
 ;;190
 ;;21,"42254-0379-90 ")
 ;;191
 ;;21,"42254-0382-30 ")
 ;;110
 ;;21,"42254-0382-90 ")
 ;;111
 ;;21,"42254-0391-30 ")
 ;;37
 ;;21,"42254-0392-90 ")
 ;;269
 ;;21,"42291-0375-90 ")
 ;;377
 ;;21,"42291-0376-90 ")
 ;;475
 ;;21,"42291-0377-10 ")
 ;;576
 ;;21,"42291-0377-90 ")
 ;;577
 ;;21,"42571-0005-90 ")
 ;;966
 ;;21,"42571-0010-90 ")
 ;;1041
 ;;21,"42571-0020-10 ")
 ;;1171
 ;;21,"42571-0020-90 ")
 ;;1172
 ;;21,"42571-0040-10 ")
 ;;1347
 ;;21,"42571-0040-90 ")
 ;;1348
 ;;21,"42571-0080-90 ")
 ;;1493
 ;;21,"43063-0008-01 ")
 ;;1170
 ;;21,"43063-0080-30 ")
 ;;1549
 ;;21,"43063-0080-90 ")
 ;;1550
 ;;21,"43063-0143-30 ")
 ;;804
 ;;21,"43063-0195-30 ")
 ;;886
 ;;21,"43063-0373-30 ")
 ;;50
 ;;21,"43353-0031-15 ")
 ;;697
 ;;21,"43353-0031-45 ")
 ;;698
 ;;21,"43353-0031-60 ")
 ;;699
 ;;21,"43353-0031-82 ")
 ;;700
 ;;21,"43353-0031-91 ")
 ;;701
 ;;21,"43353-0227-15 ")
 ;;1364
 ;;21,"43353-0227-45 ")
 ;;1365
 ;;21,"43353-0228-15 ")
 ;;1509
 ;;21,"43353-0228-30 ")
 ;;1510
 ;;21,"43353-0228-45 ")
 ;;1511
 ;;21,"43353-0228-60 ")
 ;;1512
 ;;21,"43353-0229-15 ")
 ;;1211
 ;;21,"43353-0229-45 ")
 ;;1212
 ;;21,"43353-0229-60 ")
 ;;1213
 ;;21,"43353-0289-15 ")
 ;;678
 ;;21,"43353-0289-45 ")
 ;;679
 ;;21,"43353-0289-91 ")
 ;;680
 ;;21,"43353-0290-15 ")
 ;;657
 ;;21,"43353-0290-45 ")
 ;;658
 ;;21,"43353-0394-15 ")
 ;;1520
 ;;21,"43353-0394-30 ")
 ;;1521
 ;;21,"43353-0394-45 ")
 ;;1522
 ;;21,"43353-0394-60 ")
 ;;1523
 ;;21,"43353-0474-45 ")
 ;;872
 ;;21,"43353-0496-45 ")
 ;;897
 ;;21,"43353-0625-15 ")
 ;;1248
 ;;21,"43353-0625-30 ")
 ;;1249
 ;;21,"43353-0625-45 ")
 ;;1250
 ;;21,"43353-0625-60 ")
 ;;1251
 ;;21,"43353-0664-15 ")
 ;;1545
 ;;21,"43353-0664-30 ")
 ;;1546
 ;;21,"43353-0664-45 ")
 ;;1547
 ;;21,"43353-0664-60 ")
 ;;1548
 ;;21,"43353-0665-15 ")
 ;;1416
 ;;21,"43353-0665-30 ")
 ;;1417
 ;;21,"43353-0665-45 ")
 ;;1418
 ;;21,"43353-0665-60 ")
 ;;1300
 ;;21,"43353-0666-30 ")
 ;;1453
 ;;21,"43353-0666-45 ")
 ;;1454
 ;;21,"43353-0666-60 ")
 ;;1455
 ;;21,"43353-0685-45 ")
 ;;922
 ;;21,"43353-0718-45 ")
 ;;531
 ;;21,"43353-0718-60 ")
 ;;532
 ;;21,"43353-0763-45 ")
 ;;533
 ;;21,"43353-0768-15 ")
 ;;1458
 ;;21,"43353-0773-15 ")
 ;;1150
 ;;21,"43353-0774-15 ")
 ;;1302
 ;;21,"43353-0776-15 ")
 ;;273
 ;;21,"43353-0776-30 ")
 ;;274
 ;;21,"43353-0776-45 ")
 ;;275
 ;;21,"43353-0776-60 ")
 ;;276
 ;;21,"43353-0781-15 ")
 ;;187
 ;;21,"43353-0781-30 ")
 ;;188
 ;;21,"43353-0781-45 ")
 ;;189
 ;;21,"43683-0152-30 ")
 ;;1349
 ;;21,"45963-0633-01 ")
 ;;395
 ;;21,"45963-0633-04 ")
 ;;396
 ;;21,"45963-0634-01 ")
 ;;450
 ;;21,"45963-0634-04 ")
 ;;451
 ;;21,"45963-0635-01 ")
 ;;549
 ;;21,"45963-0635-04 ")
 ;;550
 ;;21,"47463-0031-30 ")
 ;;62
 ;;21,"47463-0032-30 ")
 ;;143
 ;;21,"47463-0033-30 ")
 ;;229
 ;;21,"47463-0033-90 ")
 ;;230
 ;;21,"47463-0034-30 ")
 ;;308
 ;;21,"47463-0095-30 ")
 ;;629
 ;;21,"47463-0096-30 ")
 ;;659
 ;;21,"47463-0097-30 ")
 ;;677
 ;;21,"47463-0394-30 ")
 ;;526
 ;;21,"47463-0394-90 ")
 ;;527
 ;;21,"47463-0395-30 ")
 ;;435
 ;;21,"47463-0596-30 ")
 ;;898
 ;;21,"47463-0597-30 ")
 ;;812
 ;;21,"47463-0598-30 ")
 ;;954
 ;;21,"47463-0774-30 ")
 ;;1335
 ;;21,"47463-0774-90 ")
 ;;1336
 ;;21,"47463-0775-30 ")
 ;;1185
 ;;21,"47463-0775-90 ")
 ;;1186
 ;;21,"47463-0776-30 ")
 ;;1486
 ;;21,"47463-0776-90 ")
 ;;1487
 ;;21,"47463-0821-30 ")
 ;;1619
 ;;21,"47463-0822-30 ")
 ;;1626
 ;;21,"47463-0823-30 ")
 ;;1647
 ;;21,"49999-0293-30 ")
 ;;385
 ;;21,"49999-0293-60 ")
 ;;386
 ;;21,"49999-0293-90 ")
 ;;387
 ;;21,"49999-0306-30 ")
 ;;1286
 ;;21,"49999-0392-30 ")
 ;;71
 ;;21,"49999-0392-90 ")
 ;;72
 ;;21,"49999-0467-30 ")
 ;;151
 ;;21,"49999-0467-90 ")
 ;;152
 ;;21,"49999-0468-30 ")
 ;;240
 ;;21,"49999-0468-90 ")
 ;;241
 ;;21,"49999-0470-30 ")
 ;;477
 ;;21,"49999-0470-60 ")
 ;;478
 ;;21,"49999-0470-90 ")
 ;;479
 ;;21,"49999-0471-00 ")
 ;;572
 ;;21,"49999-0471-30 ")
 ;;573
 ;;21,"49999-0471-60 ")
 ;;574
 ;;21,"49999-0488-30 ")
 ;;1435
 ;;21,"49999-0873-30 ")
 ;;650
 ;;21,"49999-0873-90 ")
 ;;651
 ;;21,"49999-0882-30 ")
 ;;291
 ;;21,"49999-0882-90 ")
 ;;292
 ;;21,"49999-0889-30 ")
 ;;1269
 ;;21,"49999-0889-60 ")
 ;;1270
 ;;21,"49999-0889-90 ")
 ;;1271
 ;;21,"49999-0900-90 ")
 ;;1010
 ;;21,"49999-0903-15 ")
 ;;1420
 ;;21,"49999-0903-30 ")
 ;;1421
 ;;21,"49999-0903-90 ")
 ;;1422
 ;;21,"49999-0957-30 ")
 ;;1621
 ;;21,"49999-0958-30 ")
 ;;1625
 ;;21,"49999-0989-30 ")
 ;;1671
 ;;21,"49999-0992-30 ")
 ;;684
 ;;21,"49999-0992-90 ")
 ;;685
 ;;21,"50111-0761-17 ")
 ;;730
 ;;21,"50111-0762-03 ")
 ;;802
 ;;21,"50111-0762-17 ")
 ;;803
 ;;21,"50111-0764-03 ")
 ;;887
 ;;21,"50111-0764-17 ")
 ;;888
 ;;21,"50436-0122-02 ")
 ;;1169
 ;;21,"50742-0137-10 ")
 ;;1046
 ;;21,"50742-0138-10 ")
 ;;1137
 ;;21,"50742-0139-10 ")
 ;;1298
 ;;21,"50742-0140-10 ")
 ;;1457
 ;;21,"51079-0393-01 ")
 ;;1159
 ;;21,"51079-0393-20 ")
 ;;1160
 ;;21,"51079-0398-01 ")
 ;;1316
 ;;21,"51079-0398-20 ")
 ;;1317
 ;;21,"51079-0409-01 ")
 ;;30
 ;;21,"51079-0409-20 ")
 ;;31
 ;;21,"51079-0410-01 ")
 ;;104
 ;;21,"51079-0410-20 ")
 ;;105
 ;;21,"51079-0411-01 ")
 ;;181
 ;;21,"51079-0411-20 ")
 ;;182
 ;;21,"51079-0412-01 ")
 ;;264
 ;;21,"51079-0412-03 ")
 ;;265
 ;;21,"51079-0454-01 ")
 ;;1065
 ;;21,"51079-0454-20 ")
 ;;1066
 ;;21,"51079-0455-01 ")
 ;;1157
 ;;21,"51079-0455-20 ")
 ;;1158
 ;;21,"51079-0456-01 ")
 ;;1318
 ;;21,"51079-0456-20 ")
 ;;1319
 ;;21,"51079-0458-01 ")
 ;;813
 ;;21,"51079-0458-20 ")
 ;;814
 ;;21,"51079-0686-01 ")
 ;;1032
 ;;21,"51079-0686-20 ")
 ;;1033
 ;;21,"51079-0782-01 ")
 ;;870
 ;;21,"51079-0782-20 ")
 ;;871
 ;;21,"51079-0974-01 ")
 ;;361
 ;;21,"51079-0974-20 ")
 ;;362
 ;;21,"51079-0975-01 ")
 ;;498
 ;;21,"51079-0975-20 ")
 ;;499
 ;;21,"51079-0976-01 ")
 ;;600
 ;;21,"51079-0976-20 ")
 ;;601
 ;;21,"51138-0110-30 ")
 ;;965
 ;;21,"51138-0111-30 ")
 ;;1042
 ;;21,"51138-0112-30 ")
 ;;1168
 ;;21,"51138-0113-30 ")
 ;;1350
 ;;21,"51138-0114-30 ")
 ;;1492
 ;;21,"51138-0220-10 ")
 ;;63
 ;;21,"51138-0220-30 ")
 ;;64
 ;;21,"51138-0220-45 ")
 ;;65
 ;;21,"51138-0220-60 ")
 ;;66
 ;;21,"51138-0221-15 ")
 ;;139
 ;;21,"51138-0221-30 ")
 ;;140