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

BGP2TI4.m

Go to the documentation of this file.
BGP2TI4 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 12, 2012;
 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
 ;
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-0013-00 ")
 ;;783
 ;;21,"58016-0013-30 ")
 ;;784
 ;;21,"58016-0013-60 ")
 ;;785
 ;;21,"58016-0013-90 ")
 ;;786
 ;;21,"58016-0037-00 ")
 ;;963
 ;;21,"58016-0037-30 ")
 ;;964
 ;;21,"58016-0037-60 ")
 ;;965
 ;;21,"58016-0037-90 ")
 ;;966
 ;;21,"58016-0051-00 ")
 ;;292
 ;;21,"58016-0051-30 ")
 ;;293
 ;;21,"58016-0051-60 ")
 ;;294
 ;;21,"58016-0051-90 ")
 ;;295
 ;;21,"58016-0052-00 ")
 ;;985
 ;;21,"58016-0052-30 ")
 ;;986
 ;;21,"58016-0052-60 ")
 ;;987
 ;;21,"58016-0052-90 ")
 ;;988
 ;;21,"58016-0071-00 ")
 ;;1009
 ;;21,"58016-0071-30 ")
 ;;1010
 ;;21,"58016-0071-60 ")
 ;;1011
 ;;21,"58016-0071-90 ")
 ;;1012
 ;;21,"58016-0364-00 ")
 ;;1136
 ;;21,"58016-0364-30 ")
 ;;1137
 ;;21,"58016-0364-60 ")
 ;;1138
 ;;21,"58016-0364-90 ")
 ;;1139
 ;;21,"58016-0365-00 ")
 ;;1469
 ;;21,"58016-0365-30 ")
 ;;1470
 ;;21,"58016-0365-60 ")
 ;;1471
 ;;21,"58016-0365-90 ")
 ;;1472
 ;;21,"58016-0385-00 ")
 ;;1297
 ;;21,"58016-0385-30 ")
 ;;1298
 ;;21,"58016-0385-60 ")
 ;;1299
 ;;21,"58016-0385-90 ")
 ;;1300
 ;;21,"58016-0425-00 ")
 ;;737
 ;;21,"58016-0425-30 ")
 ;;738
 ;;21,"58016-0425-60 ")
 ;;739
 ;;21,"58016-0425-90 ")
 ;;740
 ;;21,"58016-0546-00 ")
 ;;533
 ;;21,"58016-0900-00 ")
 ;;452
 ;;21,"58016-0900-02 ")
 ;;453
 ;;21,"58016-0900-30 ")
 ;;454
 ;;21,"58016-0900-60 ")
 ;;455
 ;;21,"58016-0900-90 ")
 ;;456
 ;;21,"58016-0922-00 ")
 ;;569
 ;;21,"58016-0922-02 ")
 ;;570
 ;;21,"58016-0922-30 ")
 ;;571
 ;;21,"58016-0922-60 ")
 ;;572
 ;;21,"58016-0922-90 ")
 ;;573
 ;;21,"58016-0979-00 ")
 ;;368
 ;;21,"58016-0979-02 ")
 ;;369
 ;;21,"58016-0979-20 ")
 ;;370
 ;;21,"58016-0979-30 ")
 ;;371
 ;;21,"58016-0979-60 ")
 ;;372
 ;;21,"58016-0979-90 ")
 ;;373
 ;;21,"58864-0608-30 ")
 ;;136
 ;;21,"58864-0623-15 ")
 ;;241
 ;;21,"58864-0623-30 ")
 ;;242
 ;;21,"58864-0653-30 ")
 ;;672
 ;;21,"58864-0682-30 ")
 ;;1473
 ;;21,"58864-0685-30 ")
 ;;190
 ;;21,"58864-0739-30 ")
 ;;1545
 ;;21,"58864-0743-15 ")
 ;;824
 ;;21,"58864-0743-30 ")
 ;;825
 ;;21,"58864-0760-30 ")
 ;;1301
 ;;21,"58864-0780-30 ")
 ;;450
 ;;21,"58864-0780-60 ")
 ;;451
 ;;21,"58864-0781-30 ")
 ;;361
 ;;21,"58864-0834-30 ")
 ;;296
 ;;21,"59630-0628-30 ")
 ;;658
 ;;21,"59630-0629-30 ")
 ;;660
 ;;21,"59630-0630-30 ")
 ;;666
 ;;21,"60429-0248-10 ")
 ;;374
 ;;21,"60429-0248-60 ")
 ;;375
 ;;21,"60429-0249-10 ")
 ;;448
 ;;21,"60429-0249-60 ")
 ;;449
 ;;21,"60429-0250-10 ")
 ;;574
 ;;21,"60429-0250-60 ")
 ;;575
 ;;21,"60429-0250-90 ")
 ;;576
 ;;21,"60505-0168-05 ")
 ;;705
 ;;21,"60505-0168-09 ")
 ;;706
 ;;21,"60505-0169-07 ")
 ;;789
 ;;21,"60505-0169-09 ")
 ;;790
 ;;21,"60505-0170-07 ")
 ;;873
 ;;21,"60505-0170-08 ")
 ;;874
 ;;21,"60505-0170-09 ")
 ;;875
 ;;21,"60505-0177-00 ")
 ;;362
 ;;21,"60505-0178-00 ")
 ;;463
 ;;21,"60505-0179-00 ")
 ;;562
 ;;21,"60505-1323-05 ")
 ;;918
 ;;21,"60505-1323-09 ")
 ;;919
 ;;21,"60598-0006-90 ")
 ;;89
 ;;21,"60598-0007-90 ")
 ;;90
 ;;21,"60598-0008-90 ")
 ;;80
 ;;21,"60598-0009-90 ")
 ;;81
 ;;21,"60760-0005-30 ")
 ;;1206
 ;;21,"60760-0006-30 ")
 ;;1368
 ;;21,"60760-0019-30 ")
 ;;1615
 ;;21,"61442-0141-01 ")
 ;;363
 ;;21,"61442-0141-10 ")
 ;;364
 ;;21,"61442-0141-60 ")
 ;;365
 ;;21,"61442-0142-01 ")
 ;;459
 ;;21,"61442-0142-05 ")
 ;;460
 ;;21,"61442-0142-10 ")
 ;;461
 ;;21,"61442-0142-60 ")
 ;;462
 ;;21,"61442-0143-01 ")
 ;;563
 ;;21,"61442-0143-05 ")
 ;;564
 ;;21,"61442-0143-10 ")
 ;;565
 ;;21,"61442-0143-60 ")
 ;;566
 ;;21,"62022-0627-30 ")
 ;;655
 ;;21,"62022-0628-30 ")
 ;;657
 ;;21,"62022-0629-30 ")
 ;;661
 ;;21,"62022-0630-30 ")
 ;;665
 ;;21,"62022-0760-30 ")
 ;;654
 ;;21,"62022-0770-30 ")
 ;;656
 ;;21,"62022-0780-30 ")
 ;;659
 ;;21,"62022-0781-30 ")
 ;;663
 ;;21,"62037-0791-01 ")
 ;;366
 ;;21,"62037-0791-60 ")
 ;;367
 ;;21,"62037-0792-01 ")
 ;;457
 ;;21,"62037-0792-60 ")
 ;;458
 ;;21,"62037-0793-01 ")
 ;;567
 ;;21,"62037-0793-60 ")
 ;;568
 ;;21,"63304-0499-30 ")
 ;;59
 ;;21,"63304-0500-30 ")
 ;;16
 ;;21,"63304-0501-30 ")
 ;;29
 ;;21,"63304-0502-30 ")
 ;;32
 ;;21,"63304-0503-30 ")
 ;;36
 ;;21,"63304-0587-30 ")
 ;;41
 ;;21,"63304-0588-30 ")
 ;;50
 ;;21,"63304-0589-30 ")
 ;;56
 ;;21,"63304-0590-30 ")
 ;;3
 ;;21,"63304-0591-30 ")
 ;;10
 ;;21,"63304-0595-90 ")
 ;;689
 ;;21,"63304-0596-90 ")
 ;;752
 ;;21,"63304-0597-90 ")
 ;;837
 ;;21,"63304-0598-05 ")
 ;;942
 ;;21,"63304-0598-90 ")
 ;;943
 ;;21,"63304-0603-30 ")
 ;;24
 ;;21,"63304-0789-10 ")
 ;;1484
 ;;21,"63304-0789-30 ")
 ;;1485
 ;;21,"63304-0789-90 ")
 ;;1486
 ;;21,"63304-0790-10 ")
 ;;1124
 ;;21,"63304-0790-30 ")
 ;;1125
 ;;21,"63304-0790-90 ")
 ;;1126
 ;;21,"63304-0791-10 ")
 ;;1268
 ;;21,"63304-0791-30 ")
 ;;1269
 ;;21,"63304-0791-90 ")
 ;;1270
 ;;21,"63304-0792-10 ")
 ;;1449
 ;;21,"63304-0792-30 ")
 ;;1450
 ;;21,"63304-0792-90 ")
 ;;1451
 ;;21,"63304-0793-10 ")
 ;;1665
 ;;21,"63304-0793-30 ")
 ;;1666
 ;;21,"63304-0793-50 ")
 ;;1667
 ;;21,"63304-0793-90 ")
 ;;1668
 ;;21,"63304-0827-90 ")
 ;;115
 ;;21,"63304-0828-90 ")
 ;;173
 ;;21,"63304-0829-90 ")
 ;;225
 ;;21,"63304-0830-90 ")
 ;;277
 ;;21,"63629-1447-01 ")
 ;;182
 ;;21,"63629-1464-01 ")
 ;;507
 ;;21,"63629-1464-02 ")
 ;;508
 ;;21,"63629-1464-03 ")
 ;;509
 ;;21,"63629-1606-01 ")
 ;;838
 ;;21,"63629-1606-02 ")
 ;;839
 ;;21,"63629-1784-01 ")
 ;;632
 ;;21,"63629-1784-02 ")
 ;;633
 ;;21,"63629-3366-01 ")
 ;;281
 ;;21,"63629-3366-02 ")
 ;;282
 ;;21,"63629-3366-03 ")
 ;;283
 ;;21,"63629-3366-04 ")
 ;;284
 ;;21,"63629-3381-01 ")
 ;;946
 ;;21,"63629-3381-02 ")
 ;;947
 ;;21,"63629-3381-03 ")
 ;;948
 ;;21,"63629-3381-04 ")
 ;;949
 ;;21,"63629-3385-01 ")
 ;;1444
 ;;21,"63629-3385-02 ")
 ;;1445
 ;;21,"63629-3385-03 ")
 ;;1446
 ;;21,"63629-3385-04 ")
 ;;1447
 ;;21,"63629-3385-05 ")
 ;;1448
 ;;21,"63629-3392-01 ")
 ;;1123
 ;;21,"63629-3393-01 ")
 ;;1271
 ;;21,"63629-3393-02 ")
 ;;1272
 ;;21,"63629-3393-03 ")
 ;;1273
 ;;21,"63629-3393-04 ")
 ;;1274
 ;;21,"63629-3408-01 ")
 ;;1669
 ;;21,"63629-3408-02 ")
 ;;1670
 ;;21,"63629-3408-03 ")
 ;;1671
 ;;21,"63629-3408-04 ")
 ;;1672
 ;;21,"63629-3563-01 ")
 ;;757
 ;;21,"63629-3583-01 ")
 ;;409
 ;;21,"63629-3583-02 ")
 ;;410
 ;;21,"63629-3583-03 ")
 ;;411
 ;;21,"63739-0280-10 ")
 ;;412
 ;;21,"63739-0280-15 ")
 ;;413
 ;;21,"63739-0281-03 ")
 ;;504
 ;;21,"63739-0281-10 ")
 ;;505
 ;;21,"63739-0281-15 ")
 ;;506
 ;;21,"63739-0282-03 ")
 ;;630
 ;;21,"63739-0282-10 ")
 ;;631
 ;;21,"63739-0419-10 ")
 ;;1487
 ;;21,"63739-0420-10 ")
 ;;1122
 ;;21,"63739-0421-10 ")
 ;;1275
 ;;21,"63739-0422-10 ")
 ;;1443
 ;;21,"63739-0435-10 ")
 ;;1488
 ;;21,"63739-0436-10 ")
 ;;1121
 ;;21,"63739-0437-10 ")
 ;;1276
 ;;21,"63739-0438-10 ")
 ;;1442
 ;;21,"63874-0319-10 ")
 ;;234
 ;;21,"63874-0319-15 ")
 ;;235
 ;;21,"63874-0319-30 ")
 ;;236
 ;;21,"63874-0319-90 ")
 ;;237
 ;;21,"63874-0589-01 ")
 ;;122
 ;;21,"63874-0589-10 ")
 ;;123
 ;;21,"63874-0589-30 ")
 ;;124
 ;;21,"63874-0589-90 ")
 ;;125
 ;;21,"63874-0590-01 ")
 ;;183
 ;;21,"63874-0590-10 ")
 ;;184
 ;;21,"63874-0590-15 ")
 ;;185
 ;;21,"63874-0590-30 ")
 ;;186
 ;;21,"63874-0590-90 ")
 ;;187
 ;;21,"65243-0065-15 ")
 ;;1277
 ;;21,"65243-0065-45 ")
 ;;1278
 ;;21,"65243-0082-15 ")
 ;;1440
 ;;21,"65243-0082-45 ")
 ;;1441
 ;;21,"65243-0127-45 ")
 ;;1660
 ;;21,"65243-0348-15 ")
 ;;1285
 ;;21,"65243-0348-45 ")
 ;;1286
 ;;21,"65243-0349-15 ")
 ;;1433
 ;;21,"65243-0349-45 ")
 ;;1434
 ;;21,"65243-0350-45 ")
 ;;1658
 ;;21,"65243-0352-03 ")
 ;;634
 ;;21,"65243-0352-09 ")
 ;;635
 ;;21,"65243-0352-45 ")
 ;;636
 ;;21,"65243-0360-09 ")
 ;;1283
 ;;21,"65243-0360-45 ")
 ;;1284
 ;;21,"65243-0361-45 ")
 ;;1659
 ;;21,"65243-0365-45 ")
 ;;1435
 ;;21,"65243-0367-03 ")
 ;;1655
 ;;21,"65243-0367-09 ")
 ;;1656
 ;;21,"65243-0367-45 ")
 ;;1657
 ;;21,"65862-0050-30 ")
 ;;1489
 ;;21,"65862-0050-90 ")
 ;;1490
 ;;21,"65862-0050-99 ")
 ;;1491
 ;;21,"65862-0051-26 ")
 ;;1117
 ;;21,"65862-0051-30 ")
 ;;1118
 ;;21,"65862-0051-90 ")
 ;;1119
 ;;21,"65862-0051-99 ")
 ;;1120
 ;;21,"65862-0052-26 ")
 ;;1279
 ;;21,"65862-0052-30 ")
 ;;1280
 ;;21,"65862-0052-90 ")
 ;;1281
 ;;21,"65862-0052-99 ")
 ;;1282
 ;;21,"65862-0053-22 ")
 ;;1436
 ;;21,"65862-0053-30 ")
 ;;1437
 ;;21,"65862-0053-90 ")
 ;;1438
 ;;21,"65862-0053-99 ")
 ;;1439
 ;;21,"65862-0054-30 ")
 ;;1661
 ;;21,"65862-0054-39 ")
 ;;1662
 ;;21,"65862-0054-90 ")
 ;;1663
 ;;21,"65862-0054-99 ")
 ;;1664
 ;;21,"66105-0120-01 ")
 ;;677
 ;;21,"66105-0120-03 ")
 ;;678
 ;;21,"66105-0120-06 ")
 ;;679
 ;;21,"66105-0120-09 ")
 ;;680
 ;;21,"66105-0120-15 ")
 ;;681
 ;;21,"66105-0121-01 ")
 ;;746
 ;;21,"66105-0121-03 ")
 ;;747
 ;;21,"66105-0121-06 ")
 ;;748
 ;;21,"66105-0121-09 ")
 ;;749
 ;;21,"66105-0121-15 ")
 ;;750
 ;;21,"66105-0122-01 ")
 ;;832
 ;;21,"66105-0122-03 ")
 ;;833
 ;;21,"66105-0122-06 ")
 ;;834
 ;;21,"66105-0122-09 ")
 ;;835
 ;;21,"66105-0122-15 ")
 ;;836
 ;;21,"66105-0147-01 ")
 ;;319
 ;;21,"66105-0147-03 ")
 ;;320
 ;;21,"66105-0147-06 ")
 ;;321
 ;;21,"66105-0147-09 ")
 ;;322
 ;;21,"66105-0147-10 ")
 ;;323
 ;;21,"66105-0506-01 ")
 ;;1452
 ;;21,"66105-0506-03 ")
 ;;1453
 ;;21,"66105-0506-06 ")
 ;;1454
 ;;21,"66105-0506-09 ")
 ;;1455
 ;;21,"66105-0506-10 ")
 ;;1456
 ;;21,"66105-0988-03 ")
 ;;950
 ;;21,"66116-0238-30 ")
 ;;751
 ;;21,"66116-0276-30 ")
 ;;126
 ;;21,"66116-0277-30 ")
 ;;510
 ;;21,"66267-0561-30 ")
 ;;627
 ;;21,"66267-0561-60 ")
 ;;628
 ;;21,"66267-0561-90 ")
 ;;629
 ;;21,"66336-0310-05 ")
 ;;511
 ;;21,"66336-0310-30 ")
 ;;512
 ;;21,"66336-0310-60 ")
 ;;513
 ;;21,"66336-0310-90 ")
 ;;514
 ;;21,"66336-0412-05 ")
 ;;624
 ;;21,"66336-0412-30 ")
 ;;625
 ;;21,"66336-0412-90 ")
 ;;626
 ;;21,"66336-0602-05 ")
 ;;406
 ;;21,"66336-0602-30 ")
 ;;407
 ;;21,"66336-0602-90 ")
 ;;408
 ;;21,"66336-0674-30 ")
 ;;1001
 ;;21,"66336-0685-30 ")
 ;;758
 ;;21,"66336-0685-90 ")
 ;;759
 ;;21,"66336-0813-30 ")
 ;;840
 ;;21,"66336-0813-90 ")
 ;;841
 ;;21,"66336-0953-30 ")
 ;;1424
 ;;21,"66336-0953-90 ")
 ;;1425
 ;;21,"66336-0954-30 ")
 ;;1259
 ;;21,"66336-0954-90 ")
 ;;1260
 ;;21,"66336-0986-30 ")
 ;;1642
 ;;21,"66336-0986-90 ")
 ;;1643
 ;;21,"66582-0311-01 ")
 ;;1690
 ;;21,"66582-0311-28 ")
 ;;1691
 ;;21,"66582-0311-31 ")
 ;;1692
 ;;21,"66582-0311-54 ")
 ;;1693
 ;;21,"66582-0311-82 ")
 ;;1694
 ;;21,"66582-0312-01 ")
 ;;1695
 ;;21,"66582-0312-28 ")
 ;;1696
 ;;21,"66582-0312-31 ")
 ;;1697
 ;;21,"66582-0312-54 ")
 ;;1698
 ;;21,"66582-0312-82 ")
 ;;1699
 ;;21,"66582-0312-87 ")
 ;;1700
 ;;21,"66582-0313-01 ")
 ;;1723
 ;;21,"66582-0313-31 ")
 ;;1724
 ;;21,"66582-0313-52 ")
 ;;1725
 ;;21,"66582-0313-54 ")
 ;;1726
 ;;21,"66582-0313-74 ")
 ;;1727
 ;;21,"66582-0313-86 ")
 ;;1728
 ;;21,"66582-0315-01 ")
 ;;1729
 ;;21,"66582-0315-31 ")
 ;;1730
 ;;21,"66582-0315-52 ")
 ;;1731
 ;;21,"66582-0315-54 ")
 ;;1732
 ;;21,"66582-0315-66 ")
 ;;1733
 ;;21,"66582-0315-74 ")
 ;;1734
 ;;21,"67544-0050-15 ")
 ;;1127
 ;;21,"67544-0050-30 ")
 ;;1128
 ;;21,"67544-0050-45 ")
 ;;1129
 ;;21,"67544-0050-53 ")
 ;;1130
 ;;21,"67544-0050-60 ")
 ;;1131
 ;;21,"67544-0051-15 ")
 ;;1673
 ;;21,"67544-0051-16 ")
 ;;1674
 ;;21,"67544-0051-45 ")
 ;;1675
 ;;21,"67544-0051-53 ")
 ;;1676
 ;;21,"67544-0060-15 ")
 ;;285
 ;;21,"67544-0060-30 ")
 ;;286
 ;;21,"67544-0060-45 ")
 ;;287
 ;;21,"67544-0060-60 ")
 ;;288
 ;;21,"67544-0081-15 ")
 ;;1287
 ;;21,"67544-0081-30 ")
 ;;1288
 ;;21,"67544-0081-45 ")
 ;;1289
 ;;21,"67544-0081-60 ")
 ;;1290
 ;;21,"67544-0082-15 ")
 ;;1457
 ;;21,"67544-0082-45 ")
 ;;1458
 ;;21,"67544-0106-15 ")
 ;;515
 ;;21,"67544-0106-30 ")
 ;;516
 ;;21,"67544-0106-45 ")
 ;;517
 ;;21,"67544-0106-53 ")
 ;;518
 ;;21,"67544-0106-60 ")
 ;;519
 ;;21,"67544-0106-80 ")
 ;;520
 ;;21,"67544-0225-15 ")
 ;;618
 ;;21,"67544-0225-30 ")
 ;;619
 ;;21,"67544-0225-45 ")
 ;;620
 ;;21,"67544-0225-53 ")
 ;;621
 ;;21,"67544-0225-60 ")
 ;;622
 ;;21,"67544-0225-80 ")
 ;;623
 ;;21,"67544-0245-30 ")
 ;;401
 ;;21,"67544-0245-60 ")
 ;;402
 ;;21,"67544-0247-30 ")
 ;;239
 ;;21,"67544-0854-45 ")
 ;;1115
 ;;21,"67544-0854-60 ")
 ;;1116
 ;;21,"67544-0855-15 ")
 ;;1255
 ;;21,"67544-0855-30 ")
 ;;1256
 ;;21,"67544-0855-45 ")
 ;;1257
 ;;21,"67544-0855-60 ")
 ;;1258
 ;;21,"67544-0856-15 ")
 ;;1422
 ;;21,"67544-0856-45 ")
 ;;1423
 ;;21,"67544-0857-15 ")
 ;;1639
 ;;21,"67544-0857-45 ")
 ;;1640
 ;;21,"67544-0857-60 ")
 ;;1641
 ;;21,"67544-1001-30 ")
 ;;1494
 ;;21,"67544-1001-60 ")
 ;;1495
 ;;21,"67544-1003-15 ")
 ;;1650
 ;;21,"67544-1003-45 ")
 ;;1651
 ;;21,"67544-1003-53 ")
 ;;1652
 ;;21,"67544-1029-99 ")
 ;;335
 ;;21,"67544-1030-99 ")
 ;;324
 ;;21,"67544-1032-15 ")
 ;;1002
 ;;21,"67544-1032-45 ")
 ;;1003
 ;;21,"67544-1032-82 ")
 ;;1004
 ;;21,"67544-1032-99 ")
 ;;1005
 ;;21,"67544-1078-30 ")
 ;;1428
 ;;21,"67544-1254-15 ")
 ;;1429