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

BGP44T4.m

Go to the documentation of this file.
BGP44T4 ;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-0385-30 ")
 ;;1283
 ;;21,"58016-0385-60 ")
 ;;1284
 ;;21,"58016-0385-90 ")
 ;;1285
 ;;21,"58016-0425-00 ")
 ;;775
 ;;21,"58016-0425-30 ")
 ;;776
 ;;21,"58016-0425-60 ")
 ;;777
 ;;21,"58016-0425-90 ")
 ;;778
 ;;21,"58016-0900-00 ")
 ;;468
 ;;21,"58016-0900-02 ")
 ;;469
 ;;21,"58016-0900-30 ")
 ;;470
 ;;21,"58016-0900-60 ")
 ;;471
 ;;21,"58016-0900-90 ")
 ;;472
 ;;21,"58016-0922-00 ")
 ;;581
 ;;21,"58016-0922-02 ")
 ;;582
 ;;21,"58016-0922-30 ")
 ;;583
 ;;21,"58016-0922-60 ")
 ;;584
 ;;21,"58016-0922-90 ")
 ;;585
 ;;21,"58016-0979-00 ")
 ;;379
 ;;21,"58016-0979-02 ")
 ;;380
 ;;21,"58016-0979-20 ")
 ;;370
 ;;21,"58016-0979-30 ")
 ;;371
 ;;21,"58016-0979-60 ")
 ;;372
 ;;21,"58016-0979-90 ")
 ;;373
 ;;21,"58864-0608-30 ")
 ;;53
 ;;21,"58864-0623-15 ")
 ;;218
 ;;21,"58864-0623-30 ")
 ;;219
 ;;21,"58864-0682-30 ")
 ;;1428
 ;;21,"58864-0685-30 ")
 ;;132
 ;;21,"58864-0739-30 ")
 ;;1024
 ;;21,"58864-0743-15 ")
 ;;849
 ;;21,"58864-0743-30 ")
 ;;850
 ;;21,"58864-0760-30 ")
 ;;1281
 ;;21,"58864-0780-30 ")
 ;;444
 ;;21,"58864-0780-60 ")
 ;;445
 ;;21,"58864-0781-30 ")
 ;;408
 ;;21,"58864-0834-30 ")
 ;;317
 ;;21,"59630-0628-30 ")
 ;;618
 ;;21,"59630-0629-30 ")
 ;;619
 ;;21,"59630-0630-30 ")
 ;;620
 ;;21,"59762-0155-01 ")
 ;;27
 ;;21,"59762-0155-02 ")
 ;;28
 ;;21,"59762-0156-01 ")
 ;;96
 ;;21,"59762-0156-02 ")
 ;;97
 ;;21,"59762-0157-01 ")
 ;;175
 ;;21,"59762-0157-02 ")
 ;;176
 ;;21,"59762-0158-01 ")
 ;;258
 ;;21,"59762-0158-02 ")
 ;;259
 ;;21,"60429-0248-10 ")
 ;;381
 ;;21,"60429-0248-60 ")
 ;;382
 ;;21,"60429-0249-10 ")
 ;;466
 ;;21,"60429-0249-60 ")
 ;;467
 ;;21,"60429-0250-10 ")
 ;;586
 ;;21,"60429-0250-60 ")
 ;;587
 ;;21,"60429-0250-90 ")
 ;;588
 ;;21,"60429-0323-01 ")
 ;;41
 ;;21,"60429-0323-10 ")
 ;;42
 ;;21,"60429-0323-90 ")
 ;;43
 ;;21,"60429-0324-01 ")
 ;;123
 ;;21,"60429-0324-10 ")
 ;;124
 ;;21,"60429-0324-90 ")
 ;;125
 ;;21,"60429-0325-01 ")
 ;;205
 ;;21,"60429-0325-05 ")
 ;;206
 ;;21,"60429-0325-90 ")
 ;;207
 ;;21,"60429-0326-01 ")
 ;;281
 ;;21,"60429-0326-05 ")
 ;;282
 ;;21,"60429-0326-90 ")
 ;;283
 ;;21,"60429-0367-05 ")
 ;;718
 ;;21,"60429-0367-90 ")
 ;;719
 ;;21,"60429-0368-05 ")
 ;;797
 ;;21,"60429-0368-90 ")
 ;;798
 ;;21,"60429-0369-05 ")
 ;;877
 ;;21,"60429-0369-90 ")
 ;;878
 ;;21,"60429-0370-05 ")
 ;;940
 ;;21,"60429-0370-45 ")
 ;;941
 ;;21,"60429-0370-90 ")
 ;;942
 ;;21,"60505-0168-05 ")
 ;;751
 ;;21,"60505-0168-09 ")
 ;;752
 ;;21,"60505-0169-07 ")
 ;;833
 ;;21,"60505-0169-09 ")
 ;;834
 ;;21,"60505-0170-07 ")
 ;;913
 ;;21,"60505-0170-08 ")
 ;;914
 ;;21,"60505-0170-09 ")
 ;;915
 ;;21,"60505-0177-00 ")
 ;;409
 ;;21,"60505-0178-00 ")
 ;;423
 ;;21,"60505-0179-00 ")
 ;;522
 ;;21,"60505-1323-05 ")
 ;;936
 ;;21,"60505-1323-09 ")
 ;;937
 ;;21,"60505-2578-08 ")
 ;;47
 ;;21,"60505-2578-09 ")
 ;;48
 ;;21,"60505-2579-08 ")
 ;;126
 ;;21,"60505-2579-09 ")
 ;;127
 ;;21,"60505-2580-08 ")
 ;;208
 ;;21,"60505-2580-09 ")
 ;;209
 ;;21,"60505-2671-08 ")
 ;;284
 ;;21,"60505-2671-09 ")
 ;;285
 ;;21,"60760-0005-30 ")
 ;;1220
 ;;21,"60760-0006-30 ")
 ;;1369
 ;;21,"60760-0019-30 ")
 ;;1518
 ;;21,"61442-0141-01 ")
 ;;353
 ;;21,"61442-0141-10 ")
 ;;354
 ;;21,"61442-0141-60 ")
 ;;355
 ;;21,"61442-0142-01 ")
 ;;504
 ;;21,"61442-0142-05 ")
 ;;505
 ;;21,"61442-0142-10 ")
 ;;506
 ;;21,"61442-0142-60 ")
 ;;507
 ;;21,"61442-0143-01 ")
 ;;594
 ;;21,"61442-0143-05 ")
 ;;595
 ;;21,"61442-0143-10 ")
 ;;596
 ;;21,"61442-0143-60 ")
 ;;597
 ;;21,"62175-0890-43 ")
 ;;39
 ;;21,"62175-0890-46 ")
 ;;40
 ;;21,"62175-0891-43 ")
 ;;115
 ;;21,"62175-0891-46 ")
 ;;116
 ;;21,"62175-0892-41 ")
 ;;194
 ;;21,"62175-0892-46 ")
 ;;195
 ;;21,"62175-0897-41 ")
 ;;277
 ;;21,"62175-0897-46 ")
 ;;278
 ;;21,"63304-0499-30 ")
 ;;1687
 ;;21,"63304-0500-30 ")
 ;;1708
 ;;21,"63304-0501-30 ")
 ;;1651
 ;;21,"63304-0502-30 ")
 ;;1655
 ;;21,"63304-0503-30 ")
 ;;1660
 ;;21,"63304-0587-30 ")
 ;;1666
 ;;21,"63304-0588-30 ")
 ;;1675
 ;;21,"63304-0589-30 ")
 ;;1682
 ;;21,"63304-0590-30 ")
 ;;1693
 ;;21,"63304-0591-30 ")
 ;;1700
 ;;21,"63304-0603-30 ")
 ;;1713
 ;;21,"63304-0789-10 ")
 ;;961
 ;;21,"63304-0789-90 ")
 ;;962
 ;;21,"63304-0790-10 ")
 ;;1025
 ;;21,"63304-0790-90 ")
 ;;1026
 ;;21,"63304-0791-10 ")
 ;;1193
 ;;21,"63304-0791-90 ")
 ;;1194
 ;;21,"63304-0792-10 ")
 ;;1328
 ;;21,"63304-0792-90 ")
 ;;1329
 ;;21,"63304-0793-10 ")
 ;;1483
 ;;21,"63304-0793-50 ")
 ;;1484
 ;;21,"63304-0793-90 ")
 ;;1485
 ;;21,"63304-0827-05 ")
 ;;19
 ;;21,"63304-0827-90 ")
 ;;20
 ;;21,"63304-0828-05 ")
 ;;92
 ;;21,"63304-0828-90 ")
 ;;93
 ;;21,"63304-0829-05 ")
 ;;169
 ;;21,"63304-0829-90 ")
 ;;170
 ;;21,"63304-0830-05 ")
 ;;254
 ;;21,"63304-0830-90 ")
 ;;255
 ;;21,"63629-1447-01 ")
 ;;134
 ;;21,"63629-1464-01 ")
 ;;482
 ;;21,"63629-1464-02 ")
 ;;483
 ;;21,"63629-1464-03 ")
 ;;484
 ;;21,"63629-1606-01 ")
 ;;892
 ;;21,"63629-1606-02 ")
 ;;893
 ;;21,"63629-1784-01 ")
 ;;568
 ;;21,"63629-1784-02 ")
 ;;569
 ;;21,"63629-3366-01 ")
 ;;298
 ;;21,"63629-3366-02 ")
 ;;299
 ;;21,"63629-3366-03 ")
 ;;300
 ;;21,"63629-3366-04 ")
 ;;301
 ;;21,"63629-3381-01 ")
 ;;663
 ;;21,"63629-3381-02 ")
 ;;664
 ;;21,"63629-3381-03 ")
 ;;665
 ;;21,"63629-3381-04 ")
 ;;666
 ;;21,"63629-3385-01 ")
 ;;1391
 ;;21,"63629-3385-02 ")
 ;;1392
 ;;21,"63629-3385-03 ")
 ;;1393
 ;;21,"63629-3385-04 ")
 ;;1394
 ;;21,"63629-3385-05 ")
 ;;1395
 ;;21,"63629-3392-01 ")
 ;;1095
 ;;21,"63629-3393-01 ")
 ;;1221
 ;;21,"63629-3393-02 ")
 ;;1222
 ;;21,"63629-3393-03 ")
 ;;1223
 ;;21,"63629-3393-04 ")
 ;;1224
 ;;21,"63629-3408-01 ")
 ;;1532
 ;;21,"63629-3408-02 ")
 ;;1533
 ;;21,"63629-3408-03 ")
 ;;1563
 ;;21,"63629-3408-04 ")
 ;;1564
 ;;21,"63629-3563-01 ")
 ;;794
 ;;21,"63629-3583-01 ")
 ;;350
 ;;21,"63629-3583-02 ")
 ;;351
 ;;21,"63629-3583-03 ")
 ;;352
 ;;21,"63739-0281-10 ")
 ;;443
 ;;21,"63739-0435-10 ")
 ;;960
 ;;21,"63739-0436-10 ")
 ;;1027
 ;;21,"63739-0437-04 ")
 ;;1191
 ;;21,"63739-0437-10 ")
 ;;1192
 ;;21,"63739-0438-10 ")
 ;;1330
 ;;21,"63739-0570-10 ")
 ;;985
 ;;21,"63739-0571-10 ")
 ;;1052
 ;;21,"63739-0572-10 ")
 ;;1151
 ;;21,"63739-0573-10 ")
 ;;1301
 ;;21,"63874-0319-10 ")
 ;;214
 ;;21,"63874-0319-15 ")
 ;;215
 ;;21,"63874-0319-30 ")
 ;;216
 ;;21,"63874-0319-90 ")
 ;;217
 ;;21,"63874-0589-01 ")
 ;;81
 ;;21,"63874-0589-10 ")
 ;;82
 ;;21,"63874-0589-30 ")
 ;;83
 ;;21,"63874-0589-90 ")
 ;;84
 ;;21,"63874-0590-01 ")
 ;;161
 ;;21,"63874-0590-10 ")
 ;;162
 ;;21,"63874-0590-15 ")
 ;;163
 ;;21,"63874-0590-30 ")
 ;;164
 ;;21,"63874-0590-90 ")
 ;;165
 ;;21,"65243-0065-15 ")
 ;;1182
 ;;21,"65243-0065-45 ")
 ;;1183
 ;;21,"65243-0082-15 ")
 ;;1339
 ;;21,"65243-0082-45 ")
 ;;1340
 ;;21,"65243-0127-45 ")
 ;;1499
 ;;21,"65243-0348-15 ")
 ;;1163
 ;;21,"65243-0348-45 ")
 ;;1164
 ;;21,"65243-0349-15 ")
 ;;1320
 ;;21,"65243-0349-45 ")
 ;;1321
 ;;21,"65243-0350-45 ")
 ;;1471
 ;;21,"65243-0352-03 ")
 ;;519
 ;;21,"65243-0352-09 ")
 ;;520
 ;;21,"65243-0352-45 ")
 ;;521
 ;;21,"65243-0360-09 ")
 ;;1165
 ;;21,"65243-0360-45 ")
 ;;1166
 ;;21,"65243-0361-45 ")
 ;;1470
 ;;21,"65243-0365-45 ")
 ;;1324
 ;;21,"65243-0367-03 ")
 ;;1467
 ;;21,"65243-0367-09 ")
 ;;1468
 ;;21,"65243-0367-45 ")
 ;;1469
 ;;21,"65862-0050-30 ")
 ;;1013
 ;;21,"65862-0050-90 ")
 ;;1014
 ;;21,"65862-0050-99 ")
 ;;1015
 ;;21,"65862-0051-26 ")
 ;;1106
 ;;21,"65862-0051-30 ")
 ;;1107
 ;;21,"65862-0051-90 ")
 ;;1108
 ;;21,"65862-0051-99 ")
 ;;1109
 ;;21,"65862-0052-26 ")
 ;;1259
 ;;21,"65862-0052-30 ")
 ;;1260
 ;;21,"65862-0052-90 ")
 ;;1261
 ;;21,"65862-0052-99 ")
 ;;1262
 ;;21,"65862-0053-22 ")
 ;;1399
 ;;21,"65862-0053-30 ")
 ;;1400
 ;;21,"65862-0053-90 ")
 ;;1401
 ;;21,"65862-0053-99 ")
 ;;1402
 ;;21,"65862-0054-30 ")
 ;;1539
 ;;21,"65862-0054-39 ")
 ;;1540
 ;;21,"65862-0054-90 ")
 ;;1541
 ;;21,"65862-0054-99 ")
 ;;1542
 ;;21,"66105-0121-01 ")
 ;;770
 ;;21,"66105-0121-03 ")
 ;;771
 ;;21,"66105-0121-06 ")
 ;;772
 ;;21,"66105-0121-09 ")
 ;;773
 ;;21,"66105-0121-15 ")
 ;;774
 ;;21,"66105-0122-01 ")
 ;;851
 ;;21,"66105-0122-03 ")
 ;;852
 ;;21,"66105-0122-06 ")
 ;;853
 ;;21,"66105-0122-09 ")
 ;;854
 ;;21,"66105-0122-15 ")
 ;;855
 ;;21,"66105-0147-01 ")
 ;;325
 ;;21,"66105-0147-03 ")
 ;;326
 ;;21,"66105-0147-06 ")
 ;;327
 ;;21,"66105-0147-09 ")
 ;;328
 ;;21,"66105-0147-10 ")
 ;;329
 ;;21,"66105-0506-01 ")
 ;;1436
 ;;21,"66105-0506-03 ")
 ;;1437
 ;;21,"66105-0506-06 ")
 ;;1438
 ;;21,"66105-0506-09 ")
 ;;1439
 ;;21,"66105-0506-10 ")
 ;;1440
 ;;21,"66105-0988-03 ")
 ;;648
 ;;21,"66116-0238-30 ")
 ;;769
 ;;21,"66116-0276-30 ")
 ;;85
 ;;21,"66116-0277-30 ")
 ;;440
 ;;21,"66267-0561-30 ")
 ;;589
 ;;21,"66267-0561-60 ")
 ;;590
 ;;21,"66267-0561-90 ")
 ;;591
 ;;21,"66336-0310-05 ")
 ;;485
 ;;21,"66336-0310-30 ")
 ;;486
 ;;21,"66336-0310-60 ")
 ;;487
 ;;21,"66336-0310-90 ")
 ;;488
 ;;21,"66336-0412-05 ")
 ;;609
 ;;21,"66336-0412-30 ")
 ;;610
 ;;21,"66336-0412-90 ")
 ;;611
 ;;21,"66336-0602-05 ")
 ;;389
 ;;21,"66336-0602-30 ")
 ;;390
 ;;21,"66336-0602-90 ")
 ;;391
 ;;21,"66336-0674-30 ")
 ;;689
 ;;21,"66336-0685-30 ")
 ;;823
 ;;21,"66336-0685-90 ")
 ;;824
 ;;21,"66336-0813-30 ")
 ;;923
 ;;21,"66336-0813-90 ")
 ;;924
 ;;21,"66336-0953-30 ")
 ;;1337
 ;;21,"66336-0953-90 ")
 ;;1338
 ;;21,"66336-0954-30 ")
 ;;1195
 ;;21,"66336-0954-90 ")
 ;;1196
 ;;21,"66336-0986-30 ")
 ;;1490
 ;;21,"66336-0986-90 ")
 ;;1491
 ;;21,"66582-0311-31 ")
 ;;1604
 ;;21,"66582-0311-54 ")
 ;;1605
 ;;21,"66582-0311-82 ")
 ;;1606
 ;;21,"66582-0312-31 ")
 ;;1614
 ;;21,"66582-0312-54 ")
 ;;1615
 ;;21,"66582-0312-82 ")
 ;;1616
 ;;21,"66582-0312-87 ")
 ;;1617
 ;;21,"66582-0313-31 ")
 ;;1628
 ;;21,"66582-0313-54 ")
 ;;1629
 ;;21,"66582-0313-74 ")
 ;;1630
 ;;21,"66582-0313-86 ")
 ;;1631
 ;;21,"66582-0315-31 ")
 ;;1639
 ;;21,"66582-0315-54 ")
 ;;1640
 ;;21,"66582-0315-66 ")
 ;;1641
 ;;21,"66582-0315-74 ")
 ;;1642
 ;;21,"66582-0320-30 ")
 ;;1595
 ;;21,"66582-0320-54 ")
 ;;1596
 ;;21,"66582-0321-30 ")
 ;;1597
 ;;21,"66582-0321-54 ")
 ;;1598
 ;;21,"66582-0322-30 ")
 ;;1599
 ;;21,"66582-0322-54 ")
 ;;1600
 ;;21,"66582-0323-30 ")
 ;;1601
 ;;21,"66582-0323-54 ")
 ;;1602
 ;;21,"66869-0104-90 ")
 ;;623
 ;;21,"66869-0204-90 ")
 ;;624
 ;;21,"66869-0404-90 ")
 ;;627
 ;;21,"67544-0050-15 ")
 ;;1117
 ;;21,"67544-0050-30 ")
 ;;1118
 ;;21,"67544-0050-45 ")
 ;;1119
 ;;21,"67544-0050-53 ")
 ;;1120
 ;;21,"67544-0050-60 ")
 ;;1121
 ;;21,"67544-0051-15 ")
 ;;1565
 ;;21,"67544-0051-16 ")
 ;;1566
 ;;21,"67544-0051-45 ")
 ;;1567
 ;;21,"67544-0051-53 ")
 ;;1568
 ;;21,"67544-0060-15 ")
 ;;294
 ;;21,"67544-0060-30 ")
 ;;295
 ;;21,"67544-0060-45 ")
 ;;296
 ;;21,"67544-0060-60 ")
 ;;297
 ;;21,"67544-0081-15 ")
 ;;1273
 ;;21,"67544-0081-30 ")
 ;;1274
 ;;21,"67544-0081-45 ")
 ;;1275
 ;;21,"67544-0081-60 ")
 ;;1276
 ;;21,"67544-0082-15 ")
 ;;1433
 ;;21,"67544-0082-45 ")
 ;;1434
 ;;21,"67544-0106-15 ")
 ;;424
 ;;21,"67544-0106-30 ")
 ;;425
 ;;21,"67544-0106-45 ")
 ;;426
 ;;21,"67544-0106-53 ")
 ;;427
 ;;21,"67544-0106-60 ")
 ;;428
 ;;21,"67544-0106-80 ")
 ;;429
 ;;21,"67544-0225-15 ")
 ;;538
 ;;21,"67544-0225-30 ")
 ;;539
 ;;21,"67544-0225-45 ")
 ;;540
 ;;21,"67544-0225-53 ")
 ;;541
 ;;21,"67544-0225-60 ")
 ;;542
 ;;21,"67544-0225-80 ")
 ;;543
 ;;21,"67544-0245-30 ")
 ;;401
 ;;21,"67544-0245-60 ")
 ;;402
 ;;21,"67544-0247-15 ")
 ;;248
 ;;21,"67544-0247-30 ")
 ;;249
 ;;21,"67544-0247-45 ")
 ;;250
 ;;21,"67544-0854-45 ")
 ;;1053
 ;;21,"67544-0854-60 ")
 ;;1054
 ;;21,"67544-0855-15 ")
 ;;1146
 ;;21,"67544-0855-30 ")
 ;;1147
 ;;21,"67544-0855-45 ")
 ;;1148
 ;;21,"67544-0855-60 ")
 ;;1149
 ;;21,"67544-0856-15 ")
 ;;1303
 ;;21,"67544-0856-45 ")
 ;;1304
 ;;21,"67544-0857-15 ")
 ;;1462
 ;;21,"67544-0857-45 ")
 ;;1463
 ;;21,"67544-0857-60 ")
 ;;1464
 ;;21,"67544-1001-30 ")
 ;;983
 ;;21,"67544-1001-60 ")
 ;;984
 ;;21,"67544-1003-15 ")
 ;;1465
 ;;21,"67544-1003-45 ")
 ;;1466
 ;;21,"67544-1003-53 ")
 ;;1535
 ;;21,"67544-1029-99 ")
 ;;345
 ;;21,"67544-1030-99 ")
 ;;344
 ;;21,"67544-1032-15 ")
 ;;708
 ;;21,"67544-1032-45 ")
 ;;709
 ;;21,"67544-1032-82 ")
 ;;710
 ;;21,"67544-1032-99 ")
 ;;711
 ;;21,"67544-1078-30 ")
 ;;1396
 ;;21,"67544-1254-15 ")
 ;;1397
 ;;21,"67544-1254-45 ")
 ;;1398
 ;;21,"67544-1255-15 ")
 ;;1536
 ;;21,"67544-1255-30 ")
 ;;1537
 ;;21,"67544-1255-45 ")
 ;;1538
 ;;21,"67544-1256-15 ")
 ;;1263
 ;;21,"67544-1256-30 ")
 ;;1264
 ;;21,"67544-1256-45 ")
 ;;1265
 ;;21,"67544-1257-45 ")
 ;;1110
 ;;21,"67544-1257-60 ")
 ;;1111
 ;;21,"68071-0154-30 ")
 ;;137
 ;;21,"68071-0263-30 ")
 ;;675
 ;;21,"68071-0310-30 ")
 ;;223
 ;;21,"68071-0399-30 ")
 ;;56
 ;;21,"68071-0433-30 ")
 ;;662
 ;;21,"68071-0784-30 ")
 ;;634