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

BGP2TPD.m

Go to the documentation of this file.
BGP2TPD ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 27, 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,"54868-4396-00 ")
 ;;656
 ;;21,"54868-4396-01 ")
 ;;657
 ;;21,"54868-4396-02 ")
 ;;658
 ;;21,"54868-4396-03 ")
 ;;659
 ;;21,"54868-4421-00 ")
 ;;777
 ;;21,"54868-4421-01 ")
 ;;778
 ;;21,"54868-4421-02 ")
 ;;779
 ;;21,"54868-4423-00 ")
 ;;2032
 ;;21,"54868-4423-01 ")
 ;;2071
 ;;21,"54868-4424-00 ")
 ;;835
 ;;21,"54868-4424-01 ")
 ;;836
 ;;21,"54868-4424-02 ")
 ;;837
 ;;21,"54868-4424-03 ")
 ;;838
 ;;21,"54868-4435-00 ")
 ;;2033
 ;;21,"54868-4435-01 ")
 ;;2034
 ;;21,"54868-4435-02 ")
 ;;2035
 ;;21,"54868-4435-03 ")
 ;;2036
 ;;21,"54868-4576-00 ")
 ;;608
 ;;21,"54868-4576-01 ")
 ;;609
 ;;21,"54868-4576-02 ")
 ;;610
 ;;21,"54868-4576-03 ")
 ;;611
 ;;21,"54868-4577-00 ")
 ;;573
 ;;21,"54868-4577-01 ")
 ;;574
 ;;21,"54868-4577-03 ")
 ;;575
 ;;21,"54868-4578-00 ")
 ;;534
 ;;21,"54868-4578-01 ")
 ;;535
 ;;21,"54868-4578-02 ")
 ;;536
 ;;21,"54868-4578-03 ")
 ;;537
 ;;21,"54868-4621-00 ")
 ;;492
 ;;21,"54868-4661-00 ")
 ;;1076
 ;;21,"54868-4661-01 ")
 ;;1077
 ;;21,"54868-4661-02 ")
 ;;1078
 ;;21,"54868-4661-03 ")
 ;;1079
 ;;21,"54868-4844-00 ")
 ;;966
 ;;21,"54868-4844-01 ")
 ;;967
 ;;21,"54868-4844-02 ")
 ;;968
 ;;21,"54868-4903-00 ")
 ;;989
 ;;21,"54868-4903-01 ")
 ;;990
 ;;21,"54868-4903-02 ")
 ;;991
 ;;21,"54868-4921-00 ")
 ;;928
 ;;21,"54868-4921-01 ")
 ;;929
 ;;21,"54868-4932-00 ")
 ;;462
 ;;21,"54868-4932-01 ")
 ;;463
 ;;21,"54868-5013-00 ")
 ;;478
 ;;21,"54868-5021-00 ")
 ;;1276
 ;;21,"54868-5021-01 ")
 ;;1277
 ;;21,"54868-5021-02 ")
 ;;1278
 ;;21,"54868-5068-00 ")
 ;;1045
 ;;21,"54868-5068-01 ")
 ;;1046
 ;;21,"54868-5068-02 ")
 ;;1047
 ;;21,"54868-5068-03 ")
 ;;1048
 ;;21,"54868-5095-00 ")
 ;;493
 ;;21,"54868-5095-01 ")
 ;;494
 ;;21,"54868-5095-02 ")
 ;;495
 ;;21,"54868-5095-03 ")
 ;;496
 ;;21,"54868-5295-00 ")
 ;;1474
 ;;21,"54868-5295-01 ")
 ;;1475
 ;;21,"54868-5344-00 ")
 ;;453
 ;;21,"54868-5344-01 ")
 ;;454
 ;;21,"54868-5344-02 ")
 ;;455
 ;;21,"54868-5395-00 ")
 ;;1664
 ;;21,"54868-5400-00 ")
 ;;884
 ;;21,"54868-5400-01 ")
 ;;885
 ;;21,"54868-5520-00 ")
 ;;7
 ;;21,"54868-5524-00 ")
 ;;876
 ;;21,"54868-5524-01 ")
 ;;877
 ;;21,"54868-5549-00 ")
 ;;1996
 ;;21,"54868-5549-01 ")
 ;;1997
 ;;21,"54868-5564-00 ")
 ;;1866
 ;;21,"54868-5564-01 ")
 ;;1867
 ;;21,"54868-5588-00 ")
 ;;1466
 ;;21,"54868-5614-00 ")
 ;;1978
 ;;21,"54868-5729-00 ")
 ;;1080
 ;;21,"54868-5729-01 ")
 ;;1081
 ;;21,"54868-5729-02 ")
 ;;1082
 ;;21,"54868-5729-03 ")
 ;;1083
 ;;21,"54868-5729-04 ")
 ;;1084
 ;;21,"54868-5730-00 ")
 ;;1129
 ;;21,"54868-5730-01 ")
 ;;1130
 ;;21,"54868-5730-02 ")
 ;;1131
 ;;21,"54868-5730-03 ")
 ;;1132
 ;;21,"54868-5731-00 ")
 ;;1019
 ;;21,"54868-5731-01 ")
 ;;1020
 ;;21,"54868-5731-02 ")
 ;;1021
 ;;21,"54868-5731-03 ")
 ;;1022
 ;;21,"54868-5732-00 ")
 ;;1049
 ;;21,"54868-5755-00 ")
 ;;1906
 ;;21,"54868-5755-01 ")
 ;;1907
 ;;21,"54868-5771-00 ")
 ;;868
 ;;21,"54868-5771-01 ")
 ;;869
 ;;21,"54868-5773-00 ")
 ;;660
 ;;21,"54868-5773-01 ")
 ;;661
 ;;21,"54868-5773-02 ")
 ;;662
 ;;21,"54868-5773-03 ")
 ;;663
 ;;21,"54868-5817-00 ")
 ;;722
 ;;21,"54868-5817-01 ")
 ;;723
 ;;21,"54868-5869-00 ")
 ;;801
 ;;21,"54868-5869-01 ")
 ;;802
 ;;21,"54868-5944-00 ")
 ;;1547
 ;;21,"54868-6018-00 ")
 ;;1538
 ;;21,"54868-6019-00 ")
 ;;626
 ;;21,"54868-6019-01 ")
 ;;627
 ;;21,"54921-0101-10 ")
 ;;69
 ;;21,"54921-0101-39 ")
 ;;70
 ;;21,"54921-0105-10 ")
 ;;315
 ;;21,"54921-0105-34 ")
 ;;316
 ;;21,"54921-0105-39 ")
 ;;317
 ;;21,"54921-0107-10 ")
 ;;188
 ;;21,"54921-0115-10 ")
 ;;428
 ;;21,"55045-1236-07 ")
 ;;1735
 ;;21,"55045-1236-08 ")
 ;;1736
 ;;21,"55045-1236-09 ")
 ;;1737
 ;;21,"55045-1860-01 ")
 ;;318
 ;;21,"55045-1860-02 ")
 ;;319
 ;;21,"55045-1860-06 ")
 ;;320
 ;;21,"55045-1860-08 ")
 ;;321
 ;;21,"55045-1860-09 ")
 ;;322
 ;;21,"55045-2078-01 ")
 ;;1611
 ;;21,"55045-2078-06 ")
 ;;1612
 ;;21,"55045-2078-08 ")
 ;;1613
 ;;21,"55045-2217-00 ")
 ;;1208
 ;;21,"55045-2217-02 ")
 ;;1209
 ;;21,"55045-2217-06 ")
 ;;1210
 ;;21,"55045-2217-08 ")
 ;;1211
 ;;21,"55045-2217-09 ")
 ;;1212
 ;;21,"55045-2269-01 ")
 ;;71
 ;;21,"55045-2269-02 ")
 ;;72
 ;;21,"55045-2269-06 ")
 ;;73
 ;;21,"55045-2269-08 ")
 ;;74
 ;;21,"55045-2269-09 ")
 ;;75
 ;;21,"55045-2282-00 ")
 ;;1377
 ;;21,"55045-2282-02 ")
 ;;1378
 ;;21,"55045-2282-06 ")
 ;;1379
 ;;21,"55045-2282-07 ")
 ;;1380
 ;;21,"55045-2282-08 ")
 ;;1381
 ;;21,"55045-2282-09 ")
 ;;1382
 ;;21,"55045-2431-01 ")
 ;;1133
 ;;21,"55045-2431-08 ")
 ;;1134
 ;;21,"55045-2498-01 ")
 ;;189
 ;;21,"55045-2498-08 ")
 ;;190
 ;;21,"55045-2755-08 ")
 ;;429
 ;;21,"55045-2990-08 ")
 ;;612
 ;;21,"55045-3006-08 ")
 ;;538
 ;;21,"55045-3160-00 ")
 ;;2037
 ;;21,"55045-3361-01 ")
 ;;1085
 ;;21,"55045-3361-08 ")
 ;;1086
 ;;21,"55045-3371-08 ")
 ;;1868
 ;;21,"55045-3762-08 ")
 ;;1383
 ;;21,"55045-3798-01 ")
 ;;1087
 ;;21,"55111-0252-01 ")
 ;;780
 ;;21,"55111-0252-05 ")
 ;;781
 ;;21,"55111-0253-01 ")
 ;;839
 ;;21,"55111-0253-05 ")
 ;;840
 ;;21,"55111-0254-01 ")
 ;;664
 ;;21,"55111-0254-05 ")
 ;;665
 ;;21,"55111-0255-01 ")
 ;;724
 ;;21,"55111-0255-05 ")
 ;;725
 ;;21,"55289-0093-30 ")
 ;;1213
 ;;21,"55289-0093-90 ")
 ;;1214
 ;;21,"55289-0093-93 ")
 ;;1215
 ;;21,"55289-0093-97 ")
 ;;1216
 ;;21,"55289-0131-97 ")
 ;;1738
 ;;21,"55289-0227-01 ")
 ;;191
 ;;21,"55289-0227-30 ")
 ;;192
 ;;21,"55289-0227-90 ")
 ;;193
 ;;21,"55289-0227-97 ")
 ;;194
 ;;21,"55289-0228-01 ")
 ;;323
 ;;21,"55289-0228-03 ")
 ;;324
 ;;21,"55289-0228-06 ")
 ;;325
 ;;21,"55289-0228-14 ")
 ;;326
 ;;21,"55289-0228-30 ")
 ;;327
 ;;21,"55289-0228-60 ")
 ;;328
 ;;21,"55289-0228-90 ")
 ;;329
 ;;21,"55289-0228-97 ")
 ;;330
 ;;21,"55289-0233-01 ")
 ;;1739
 ;;21,"55289-0233-12 ")
 ;;1740
 ;;21,"55289-0233-60 ")
 ;;1741
 ;;21,"55289-0233-90 ")
 ;;1742
 ;;21,"55289-0233-97 ")
 ;;1743
 ;;21,"55289-0234-01 ")
 ;;1812
 ;;21,"55289-0234-30 ")
 ;;1813
 ;;21,"55289-0234-90 ")
 ;;1814
 ;;21,"55289-0254-30 ")
 ;;331
 ;;21,"55289-0382-30 ")
 ;;1279
 ;;21,"55289-0382-93 ")
 ;;1280
 ;;21,"55289-0413-30 ")
 ;;1384
 ;;21,"55289-0413-60 ")
 ;;1385
 ;;21,"55289-0413-90 ")
 ;;1386
 ;;21,"55289-0413-93 ")
 ;;1387
 ;;21,"55289-0413-94 ")
 ;;1388
 ;;21,"55289-0413-97 ")
 ;;1389
 ;;21,"55289-0587-30 ")
 ;;76
 ;;21,"55289-0627-30 ")
 ;;1390
 ;;21,"55289-0630-30 ")
 ;;613
 ;;21,"55289-0653-30 ")
 ;;77
 ;;21,"55289-0653-90 ")
 ;;78
 ;;21,"55289-0855-30 ")
 ;;1135
 ;;21,"55289-0902-30 ")
 ;;1088
 ;;21,"55289-0986-30 ")
 ;;841
 ;;21,"55289-0988-30 ")
 ;;401
 ;;21,"55289-0993-30 ")
 ;;430
 ;;21,"55289-0993-60 ")
 ;;431
 ;;21,"55289-0993-90 ")
 ;;432
 ;;21,"55887-0048-60 ")
 ;;842
 ;;21,"55887-0049-30 ")
 ;;726
 ;;21,"55887-0049-60 ")
 ;;727
 ;;21,"55887-0074-01 ")
 ;;1614
 ;;21,"55887-0074-30 ")
 ;;1615
 ;;21,"55887-0074-60 ")
 ;;1616
 ;;21,"55887-0074-90 ")
 ;;1617
 ;;21,"55887-0180-01 ")
 ;;930
 ;;21,"55887-0180-30 ")
 ;;931
 ;;21,"55887-0242-30 ")
 ;;1979
 ;;21,"55887-0259-30 ")
 ;;969
 ;;21,"55887-0267-30 ")
 ;;576
 ;;21,"55887-0274-01 ")
 ;;1217
 ;;21,"55887-0274-30 ")
 ;;1218
 ;;21,"55887-0274-60 ")
 ;;1219
 ;;21,"55887-0274-90 ")
 ;;1220
 ;;21,"55887-0348-30 ")
 ;;1504
 ;;21,"55887-0349-20 ")
 ;;1476
 ;;21,"55887-0349-30 ")
 ;;1477
 ;;21,"55887-0349-90 ")
 ;;1478
 ;;21,"55887-0453-30 ")
 ;;1869
 ;;21,"55887-0453-60 ")
 ;;1870
 ;;21,"55887-0474-01 ")
 ;;1391
 ;;21,"55887-0474-30 ")
 ;;1392
 ;;21,"55887-0474-60 ")
 ;;1393
 ;;21,"55887-0474-90 ")
 ;;1394
 ;;21,"55887-0474-92 ")
 ;;1395
 ;;21,"55887-0559-01 ")
 ;;1744
 ;;21,"55887-0559-30 ")
 ;;1745
 ;;21,"55887-0559-60 ")
 ;;1746
 ;;21,"55887-0559-90 ")
 ;;1747
 ;;21,"55887-0575-60 ")
 ;;666
 ;;21,"55887-0585-01 ")
 ;;433
 ;;21,"55887-0585-30 ")
 ;;434
 ;;21,"55887-0585-60 ")
 ;;435
 ;;21,"55887-0585-82 ")
 ;;436
 ;;21,"55887-0585-90 ")
 ;;437
 ;;21,"55887-0599-30 ")
 ;;195
 ;;21,"55887-0599-60 ")
 ;;196
 ;;21,"55887-0599-90 ")
 ;;197
 ;;21,"55887-0613-30 ")
 ;;402
 ;;21,"55887-0613-60 ")
 ;;403
 ;;21,"55887-0613-82 ")
 ;;404
 ;;21,"55887-0625-01 ")
 ;;539
 ;;21,"55887-0625-30 ")
 ;;540
 ;;21,"55887-0625-60 ")
 ;;541
 ;;21,"55887-0625-90 ")
 ;;542
 ;;21,"55887-0729-30 ")
 ;;1136
 ;;21,"55887-0731-60 ")
 ;;843
 ;;21,"55887-0792-90 ")
 ;;614
 ;;21,"55887-0832-20 ")
 ;;1281
 ;;21,"55887-0832-30 ")
 ;;1282
 ;;21,"55887-0832-60 ")
 ;;1283
 ;;21,"55887-0838-01 ")
 ;;332
 ;;21,"55887-0838-30 ")
 ;;333
 ;;21,"55887-0838-60 ")
 ;;334
 ;;21,"55887-0838-90 ")
 ;;335
 ;;21,"55887-0998-30 ")
 ;;79
 ;;21,"55887-0998-60 ")
 ;;80
 ;;21,"55887-0998-90 ")
 ;;81
 ;;21,"57664-0166-08 ")
 ;;1396
 ;;21,"57664-0166-18 ")
 ;;1397
 ;;21,"57664-0166-52 ")
 ;;1398
 ;;21,"57664-0166-58 ")
 ;;1399
 ;;21,"57664-0167-08 ")
 ;;1221
 ;;21,"57664-0167-18 ")
 ;;1222
 ;;21,"57664-0167-52 ")
 ;;1223
 ;;21,"57664-0167-58 ")
 ;;1224
 ;;21,"57664-0242-13 ")
 ;;782
 ;;21,"57664-0242-18 ")
 ;;783
 ;;21,"57664-0242-88 ")
 ;;784
 ;;21,"57664-0244-13 ")
 ;;844
 ;;21,"57664-0244-18 ")
 ;;845
 ;;21,"57664-0244-88 ")
 ;;846
 ;;21,"57664-0245-13 ")
 ;;667
 ;;21,"57664-0245-18 ")
 ;;668
 ;;21,"57664-0245-88 ")
 ;;669
 ;;21,"57664-0247-13 ")
 ;;728
 ;;21,"57664-0247-18 ")
 ;;729
 ;;21,"57664-0247-88 ")
 ;;730
 ;;21,"57664-0264-18 ")
 ;;198
 ;;21,"57664-0264-88 ")
 ;;199
 ;;21,"57664-0265-18 ")
 ;;336
 ;;21,"57664-0265-88 ")
 ;;337
 ;;21,"57664-0266-18 ")
 ;;82
 ;;21,"57664-0266-88 ")
 ;;83
 ;;21,"57664-0477-08 ")
 ;;1400
 ;;21,"57664-0477-18 ")
 ;;1401
 ;;21,"57664-0477-52 ")
 ;;1402
 ;;21,"57664-0477-58 ")
 ;;1403
 ;;21,"57664-0506-08 ")
 ;;1284
 ;;21,"57664-0506-18 ")
 ;;1285
 ;;21,"57664-0506-52 ")
 ;;1286
 ;;21,"57664-0506-58 ")
 ;;1287
 ;;21,"57866-3155-01 ")
 ;;1288
 ;;21,"57866-3330-01 ")
 ;;338
 ;;21,"57866-3330-03 ")
 ;;339
 ;;21,"57866-3331-01 ")
 ;;84
 ;;21,"57866-3331-02 ")
 ;;85
 ;;21,"57866-3331-03 ")
 ;;86
 ;;21,"57866-3332-01 ")
 ;;200
 ;;21,"57866-3332-03 ")
 ;;201
 ;;21,"57866-6578-01 ")
 ;;1404
 ;;21,"57866-6579-01 ")
 ;;1225
 ;;21,"57866-7068-01 ")
 ;;497
 ;;21,"57866-7068-02 ")
 ;;498
 ;;21,"58016-0001-00 ")
 ;;1871
 ;;21,"58016-0001-30 ")
 ;;1872
 ;;21,"58016-0001-60 ")
 ;;1873
 ;;21,"58016-0001-90 ")
 ;;1874
 ;;21,"58016-0045-00 ")
 ;;1050
 ;;21,"58016-0045-30 ")
 ;;1051
 ;;21,"58016-0045-60 ")
 ;;1052
 ;;21,"58016-0045-90 ")
 ;;1053
 ;;21,"58016-0188-00 ")
 ;;2038
 ;;21,"58016-0188-02 ")
 ;;2039
 ;;21,"58016-0188-30 ")
 ;;2040
 ;;21,"58016-0188-60 ")
 ;;2041
 ;;21,"58016-0188-90 ")
 ;;2042
 ;;21,"58016-0286-00 ")
 ;;615
 ;;21,"58016-0286-02 ")
 ;;616
 ;;21,"58016-0286-30 ")
 ;;617
 ;;21,"58016-0286-60 ")
 ;;618
 ;;21,"58016-0286-90 ")
 ;;619
 ;;21,"58016-0300-00 ")
 ;;8
 ;;21,"58016-0300-30 ")
 ;;9
 ;;21,"58016-0300-60 ")
 ;;10
 ;;21,"58016-0300-90 ")
 ;;11
 ;;21,"58016-0331-00 ")
 ;;405
 ;;21,"58016-0331-30 ")
 ;;406
 ;;21,"58016-0331-60 ")
 ;;407
 ;;21,"58016-0331-90 ")
 ;;408
 ;;21,"58016-0333-00 ")
 ;;340
 ;;21,"58016-0333-15 ")
 ;;341
 ;;21,"58016-0333-30 ")
 ;;342
 ;;21,"58016-0333-60 ")
 ;;343
 ;;21,"58016-0373-00 ")
 ;;1137
 ;;21,"58016-0373-02 ")
 ;;1138
 ;;21,"58016-0373-90 ")
 ;;1139
 ;;21,"58016-0442-00 ")
 ;;1405
 ;;21,"58016-0442-02 ")
 ;;1406
 ;;21,"58016-0442-30 ")
 ;;1407
 ;;21,"58016-0442-60 ")
 ;;1408
 ;;21,"58016-0442-90 ")
 ;;1409
 ;;21,"58016-0442-99 ")
 ;;1410
 ;;21,"58016-0526-00 ")
 ;;438
 ;;21,"58016-0526-02 ")
 ;;439
 ;;21,"58016-0526-30 ")
 ;;440
 ;;21,"58016-0526-60 ")
 ;;441
 ;;21,"58016-0526-90 ")
 ;;442
 ;;21,"58016-0528-00 ")
 ;;1618
 ;;21,"58016-0528-30 ")
 ;;1619
 ;;21,"58016-0528-60 ")
 ;;1620
 ;;21,"58016-0529-00 ")
 ;;1748
 ;;21,"58016-0529-10 ")
 ;;1749
 ;;21,"58016-0529-30 ")
 ;;1750
 ;;21,"58016-0529-50 ")
 ;;1751
 ;;21,"58016-0531-00 ")
 ;;1815
 ;;21,"58016-0531-30 ")
 ;;1816
 ;;21,"58016-0532-00 ")
 ;;1948
 ;;21,"58016-0532-02 ")
 ;;1949
 ;;21,"58016-0532-30 ")
 ;;1950
 ;;21,"58016-0532-60 ")
 ;;1951
 ;;21,"58016-0582-00 ")
 ;;202
 ;;21,"58016-0582-15 ")
 ;;203
 ;;21,"58016-0582-20 ")
 ;;204
 ;;21,"58016-0582-30 ")
 ;;205
 ;;21,"58016-0582-60 ")
 ;;206
 ;;21,"58016-0604-00 ")
 ;;1908
 ;;21,"58016-0604-30 ")
 ;;1909
 ;;21,"58016-0604-60 ")
 ;;1910
 ;;21,"58016-0604-90 ")
 ;;1911
 ;;21,"58016-0771-00 ")
 ;;87
 ;;21,"58016-0771-12 ")
 ;;88
 ;;21,"58016-0771-15 ")
 ;;89
 ;;21,"58016-0771-20 ")
 ;;90
 ;;21,"58016-0771-30 ")
 ;;91
 ;;21,"58016-0771-60 ")
 ;;92
 ;;21,"58016-0859-00 ")
 ;;1912
 ;;21,"58016-0859-30 ")
 ;;1913
 ;;21,"58016-0859-60 ")
 ;;1914
 ;;21,"58016-0859-90 ")
 ;;1915
 ;;21,"58016-0974-00 ")
 ;;1089
 ;;21,"58016-0974-30 ")
 ;;1090
 ;;21,"58016-0974-60 ")
 ;;1091
 ;;21,"58016-0974-90 ")
 ;;1092
 ;;21,"58177-0293-04 ")
 ;;1093
 ;;21,"58177-0293-09 ")
 ;;1094
 ;;21,"58177-0293-11 ")
 ;;1095