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

BGP2TG3.m

Go to the documentation of this file.
BGP2TG3 ;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,"55289-0806-90 ")
 ;;613
 ;;21,"55289-0892-01 ")
 ;;1205
 ;;21,"55289-0892-14 ")
 ;;1206
 ;;21,"55289-0892-15 ")
 ;;1207
 ;;21,"55289-0892-30 ")
 ;;1208
 ;;21,"55289-0892-60 ")
 ;;1209
 ;;21,"55289-0892-86 ")
 ;;1210
 ;;21,"55289-0892-90 ")
 ;;1211
 ;;21,"55289-0892-93 ")
 ;;1212
 ;;21,"55289-0892-97 ")
 ;;1213
 ;;21,"55289-0892-98 ")
 ;;1214
 ;;21,"55289-0976-01 ")
 ;;414
 ;;21,"55289-0976-14 ")
 ;;415
 ;;21,"55289-0976-30 ")
 ;;416
 ;;21,"55289-0976-60 ")
 ;;417
 ;;21,"55289-0976-93 ")
 ;;418
 ;;21,"55370-0146-07 ")
 ;;864
 ;;21,"55370-0146-08 ")
 ;;865
 ;;21,"55370-0146-09 ")
 ;;866
 ;;21,"55370-0147-07 ")
 ;;896
 ;;21,"55370-0147-08 ")
 ;;897
 ;;21,"55370-0147-09 ")
 ;;898
 ;;21,"55370-0506-07 ")
 ;;922
 ;;21,"55370-0506-08 ")
 ;;923
 ;;21,"55370-0506-09 ")
 ;;924
 ;;21,"55887-0179-30 ")
 ;;744
 ;;21,"55887-0212-30 ")
 ;;835
 ;;21,"55887-0212-60 ")
 ;;836
 ;;21,"55887-0222-30 ")
 ;;335
 ;;21,"55887-0222-60 ")
 ;;336
 ;;21,"55887-0222-90 ")
 ;;337
 ;;21,"55887-0339-30 ")
 ;;899
 ;;21,"55887-0339-60 ")
 ;;900
 ;;21,"55887-0339-90 ")
 ;;901
 ;;21,"55887-0368-30 ")
 ;;215
 ;;21,"55887-0368-60 ")
 ;;216
 ;;21,"55887-0368-90 ")
 ;;217
 ;;21,"55887-0535-30 ")
 ;;997
 ;;21,"55887-0535-60 ")
 ;;998
 ;;21,"55887-0535-90 ")
 ;;999
 ;;21,"55887-0536-30 ")
 ;;1196
 ;;21,"55887-0536-60 ")
 ;;1197
 ;;21,"55887-0536-90 ")
 ;;1198
 ;;21,"55887-0693-30 ")
 ;;419
 ;;21,"55887-0693-60 ")
 ;;420
 ;;21,"55887-0693-90 ")
 ;;421
 ;;21,"55887-0727-30 ")
 ;;614
 ;;21,"55887-0727-60 ")
 ;;615
 ;;21,"55887-0727-90 ")
 ;;616
 ;;21,"55887-0965-30 ")
 ;;959
 ;;21,"55887-0968-30 ")
 ;;784
 ;;21,"55887-0969-30 ")
 ;;855
 ;;21,"57664-0398-13 ")
 ;;605
 ;;21,"57664-0398-18 ")
 ;;606
 ;;21,"57664-0398-88 ")
 ;;607
 ;;21,"57664-0399-13 ")
 ;;422
 ;;21,"57664-0399-18 ")
 ;;423
 ;;21,"57664-0399-88 ")
 ;;424
 ;;21,"57664-0724-88 ")
 ;;39
 ;;21,"57664-0725-88 ")
 ;;22
 ;;21,"57664-0727-88 ")
 ;;9
 ;;21,"57866-0236-01 ")
 ;;608
 ;;21,"57866-0237-01 ")
 ;;996
 ;;21,"57866-6302-01 ")
 ;;841
 ;;21,"57866-6409-01 ")
 ;;1199
 ;;21,"57866-6409-02 ")
 ;;1200
 ;;21,"57866-6409-03 ")
 ;;1201
 ;;21,"57866-6409-04 ")
 ;;1202
 ;;21,"57866-6409-05 ")
 ;;1203
 ;;21,"57866-6409-06 ")
 ;;1204
 ;;21,"57866-6462-01 ")
 ;;425
 ;;21,"57866-6462-02 ")
 ;;426
 ;;21,"57866-6463-01 ")
 ;;603
 ;;21,"57866-6463-02 ")
 ;;604
 ;;21,"57866-7073-01 ")
 ;;338
 ;;21,"57866-7073-02 ")
 ;;339
 ;;21,"57866-7074-01 ")
 ;;397
 ;;21,"57866-7074-02 ")
 ;;398
 ;;21,"57866-7991-01 ")
 ;;148
 ;;21,"58016-0005-00 ")
 ;;340
 ;;21,"58016-0005-30 ")
 ;;341
 ;;21,"58016-0005-60 ")
 ;;342
 ;;21,"58016-0005-90 ")
 ;;343
 ;;21,"58016-0058-00 ")
 ;;76
 ;;21,"58016-0058-30 ")
 ;;77
 ;;21,"58016-0058-60 ")
 ;;78
 ;;21,"58016-0058-90 ")
 ;;79
 ;;21,"58016-0334-00 ")
 ;;823
 ;;21,"58016-0334-02 ")
 ;;824
 ;;21,"58016-0334-30 ")
 ;;825
 ;;21,"58016-0334-60 ")
 ;;826
 ;;21,"58016-0334-90 ")
 ;;827
 ;;21,"58016-0370-30 ")
 ;;1308
 ;;21,"58016-0376-00 ")
 ;;447
 ;;21,"58016-0376-02 ")
 ;;448
 ;;21,"58016-0376-30 ")
 ;;449
 ;;21,"58016-0376-60 ")
 ;;450
 ;;21,"58016-0376-90 ")
 ;;451
 ;;21,"58016-0376-99 ")
 ;;452
 ;;21,"58016-0378-00 ")
 ;;1190
 ;;21,"58016-0378-02 ")
 ;;1191
 ;;21,"58016-0378-30 ")
 ;;1192
 ;;21,"58016-0378-60 ")
 ;;1193
 ;;21,"58016-0378-90 ")
 ;;1194
 ;;21,"58016-0378-99 ")
 ;;1195
 ;;21,"58016-0411-00 ")
 ;;204
 ;;21,"58016-0411-02 ")
 ;;205
 ;;21,"58016-0411-30 ")
 ;;206
 ;;21,"58016-0411-60 ")
 ;;207
 ;;21,"58016-0411-90 ")
 ;;208
 ;;21,"58016-0467-00 ")
 ;;405
 ;;21,"58016-0467-30 ")
 ;;406
 ;;21,"58016-0467-60 ")
 ;;407
 ;;21,"58016-0467-90 ")
 ;;408
 ;;21,"58016-0691-00 ")
 ;;753
 ;;21,"58016-0691-30 ")
 ;;754
 ;;21,"58016-0691-60 ")
 ;;755
 ;;21,"58016-0691-90 ")
 ;;756
 ;;21,"58016-0844-00 ")
 ;;409
 ;;21,"58016-0844-30 ")
 ;;410
 ;;21,"58016-0844-60 ")
 ;;411
 ;;21,"58016-0844-90 ")
 ;;412
 ;;21,"58016-0876-00 ")
 ;;572
 ;;21,"58016-0876-10 ")
 ;;573
 ;;21,"58016-0876-12 ")
 ;;574
 ;;21,"58016-0876-14 ")
 ;;575
 ;;21,"58016-0876-15 ")
 ;;576
 ;;21,"58016-0876-20 ")
 ;;577
 ;;21,"58016-0876-21 ")
 ;;578
 ;;21,"58016-0876-24 ")
 ;;579
 ;;21,"58016-0876-28 ")
 ;;580
 ;;21,"58016-0876-30 ")
 ;;581
 ;;21,"58016-0876-40 ")
 ;;582
 ;;21,"58016-0876-50 ")
 ;;583
 ;;21,"58016-0876-60 ")
 ;;584
 ;;21,"58864-0027-14 ")
 ;;585
 ;;21,"58864-0027-30 ")
 ;;586
 ;;21,"58864-0027-60 ")
 ;;587
 ;;21,"58864-0027-90 ")
 ;;588
 ;;21,"58864-0100-30 ")
 ;;231
 ;;21,"58864-0161-30 ")
 ;;445
 ;;21,"58864-0161-60 ")
 ;;446
 ;;21,"58864-0214-30 ")
 ;;1291
 ;;21,"58864-0214-60 ")
 ;;1292
 ;;21,"58864-0224-30 ")
 ;;1187
 ;;21,"58864-0224-60 ")
 ;;1188
 ;;21,"58864-0224-93 ")
 ;;1189
 ;;21,"58864-0689-30 ")
 ;;782
 ;;21,"58864-0689-60 ")
 ;;783
 ;;21,"58864-0705-30 ")
 ;;854
 ;;21,"58864-0711-30 ")
 ;;81
 ;;21,"58864-0858-30 ")
 ;;806
 ;;21,"58864-0952-30 ")
 ;;113
 ;;21,"58864-0953-30 ")
 ;;203
 ;;21,"58864-0956-30 ")
 ;;752
 ;;21,"58864-0957-30 ")
 ;;822
 ;;21,"59762-2330-07 ")
 ;;47
 ;;21,"59762-2331-06 ")
 ;;101
 ;;21,"59762-2331-08 ")
 ;;102
 ;;21,"59762-2332-06 ")
 ;;154
 ;;21,"59762-2332-08 ")
 ;;155
 ;;21,"59762-3725-01 ")
 ;;960
 ;;21,"59762-3726-03 ")
 ;;995
 ;;21,"59762-3727-04 ")
 ;;1184
 ;;21,"59762-3727-06 ")
 ;;1185
 ;;21,"59762-3727-07 ")
 ;;1186
 ;;21,"59762-3781-01 ")
 ;;862
 ;;21,"59762-3782-01 ")
 ;;902
 ;;21,"59762-3782-03 ")
 ;;903
 ;;21,"59762-3783-01 ")
 ;;919
 ;;21,"59762-3783-02 ")
 ;;920
 ;;21,"59762-3783-03 ")
 ;;921
 ;;21,"59762-5031-01 ")
 ;;805
 ;;21,"59762-5032-01 ")
 ;;842
 ;;21,"59762-5032-02 ")
 ;;843
 ;;21,"59762-5033-01 ")
 ;;776
 ;;21,"59762-5033-02 ")
 ;;777
 ;;21,"59762-7020-09 ")
 ;;961
 ;;21,"59762-7021-05 ")
 ;;987
 ;;21,"59762-7021-09 ")
 ;;988
 ;;21,"59762-7022-05 ")
 ;;1164
 ;;21,"59762-7022-09 ")
 ;;1165
 ;;21,"60346-0457-30 ")
 ;;781
 ;;21,"60346-0513-60 ")
 ;;906
 ;;21,"60346-0613-30 ")
 ;;570
 ;;21,"60346-0633-30 ")
 ;;249
 ;;21,"60346-0633-60 ")
 ;;250
 ;;21,"60346-0633-90 ")
 ;;251
 ;;21,"60346-0662-30 ")
 ;;1293
 ;;21,"60346-0662-60 ")
 ;;1294
 ;;21,"60346-0730-30 ")
 ;;1078
 ;;21,"60346-0730-60 ")
 ;;1079
 ;;21,"60346-0784-30 ")
 ;;232
 ;;21,"60346-0890-30 ")
 ;;986
 ;;21,"60346-0938-07 ")
 ;;1173
 ;;21,"60346-0938-30 ")
 ;;1174
 ;;21,"60429-0082-30 ")
 ;;599
 ;;21,"60429-0082-60 ")
 ;;600
 ;;21,"60429-0083-12 ")
 ;;427
 ;;21,"60429-0083-30 ")
 ;;428
 ;;21,"60429-0083-60 ")
 ;;429
 ;;21,"60429-0085-12 ")
 ;;1166
 ;;21,"60429-0085-18 ")
 ;;1167
 ;;21,"60429-0085-27 ")
 ;;1168
 ;;21,"60429-0085-30 ")
 ;;1169
 ;;21,"60429-0085-36 ")
 ;;1170
 ;;21,"60429-0085-60 ")
 ;;1171
 ;;21,"60429-0085-90 ")
 ;;1172
 ;;21,"60505-0141-00 ")
 ;;595
 ;;21,"60505-0141-01 ")
 ;;596
 ;;21,"60505-0141-02 ")
 ;;597
 ;;21,"60505-0141-08 ")
 ;;598
 ;;21,"60505-0142-00 ")
 ;;430
 ;;21,"60505-0142-01 ")
 ;;431
 ;;21,"60505-0142-02 ")
 ;;432
 ;;21,"60505-0142-04 ")
 ;;433
 ;;21,"60951-0714-70 ")
 ;;434
 ;;21,"60951-0714-85 ")
 ;;435
 ;;21,"61442-0115-01 ")
 ;;296
 ;;21,"61442-0116-01 ")
 ;;329
 ;;21,"61442-0117-01 ")
 ;;401
 ;;21,"62037-0871-30 ")
 ;;797
 ;;21,"62037-0872-01 ")
 ;;828
 ;;21,"62037-0872-05 ")
 ;;829
 ;;21,"62037-0873-01 ")
 ;;757
 ;;21,"62037-0873-05 ")
 ;;758
 ;;21,"62682-5002-01 ")
 ;;594
 ;;21,"62682-5004-03 ")
 ;;436
 ;;21,"62682-5006-03 ")
 ;;989
 ;;21,"63304-0425-01 ")
 ;;297
 ;;21,"63304-0426-01 ")
 ;;328
 ;;21,"63304-0427-01 ")
 ;;402
 ;;21,"63629-1255-01 ")
 ;;403
 ;;21,"63629-1255-02 ")
 ;;404
 ;;21,"63629-1392-01 ")
 ;;103
 ;;21,"63629-1392-02 ")
 ;;104
 ;;21,"63629-1392-03 ")
 ;;105
 ;;21,"63629-1393-01 ")
 ;;1180
 ;;21,"63629-1393-02 ")
 ;;1181
 ;;21,"63629-1393-03 ")
 ;;1182
 ;;21,"63629-1393-04 ")
 ;;1183
 ;;21,"63629-1394-01 ")
 ;;442
 ;;21,"63629-1394-02 ")
 ;;443
 ;;21,"63629-1394-03 ")
 ;;444
 ;;21,"63629-1398-01 ")
 ;;628
 ;;21,"63629-1398-02 ")
 ;;629
 ;;21,"63629-1398-03 ")
 ;;630
 ;;21,"63629-2793-01 ")
 ;;160
 ;;21,"63629-2793-03 ")
 ;;161
 ;;21,"63629-2793-04 ")
 ;;162
 ;;21,"63629-2793-05 ")
 ;;163
 ;;21,"63629-2907-01 ")
 ;;1019
 ;;21,"63629-2907-02 ")
 ;;1020
 ;;21,"63629-3043-01 ")
 ;;349
 ;;21,"63629-3043-02 ")
 ;;350
 ;;21,"63629-3158-01 ")
 ;;741
 ;;21,"63629-3158-02 ")
 ;;742
 ;;21,"63629-3158-03 ")
 ;;743
 ;;21,"63629-3397-03 ")
 ;;870
 ;;21,"63629-3998-01 ")
 ;;50
 ;;21,"63629-4071-01 ")
 ;;840
 ;;21,"63739-0116-01 ")
 ;;589
 ;;21,"63739-0116-02 ")
 ;;590
 ;;21,"63739-0116-03 ")
 ;;591
 ;;21,"63739-0116-10 ")
 ;;592
 ;;21,"63739-0116-15 ")
 ;;593
 ;;21,"63739-0117-01 ")
 ;;437
 ;;21,"63739-0117-02 ")
 ;;438
 ;;21,"63739-0117-03 ")
 ;;439
 ;;21,"63739-0117-10 ")
 ;;440
 ;;21,"63739-0117-15 ")
 ;;441
 ;;21,"63739-0118-01 ")
 ;;990
 ;;21,"63739-0118-02 ")
 ;;991
 ;;21,"63739-0118-03 ")
 ;;992
 ;;21,"63739-0118-10 ")
 ;;993
 ;;21,"63739-0118-15 ")
 ;;994
 ;;21,"63739-0119-01 ")
 ;;1175
 ;;21,"63739-0119-02 ")
 ;;1176
 ;;21,"63739-0119-03 ")
 ;;1177
 ;;21,"63739-0119-10 ")
 ;;1178
 ;;21,"63739-0119-15 ")
 ;;1179
 ;;21,"63874-0316-01 ")
 ;;631
 ;;21,"63874-0316-02 ")
 ;;632
 ;;21,"63874-0316-04 ")
 ;;633
 ;;21,"63874-0316-05 ")
 ;;634
 ;;21,"63874-0316-10 ")
 ;;635
 ;;21,"63874-0316-12 ")
 ;;636
 ;;21,"63874-0316-14 ")
 ;;637
 ;;21,"63874-0316-15 ")
 ;;638
 ;;21,"63874-0316-20 ")
 ;;639
 ;;21,"63874-0316-21 ")
 ;;640
 ;;21,"63874-0316-24 ")
 ;;641
 ;;21,"63874-0316-28 ")
 ;;642
 ;;21,"63874-0316-30 ")
 ;;643
 ;;21,"63874-0316-50 ")
 ;;644
 ;;21,"63874-0316-60 ")
 ;;645
 ;;21,"63874-0316-81 ")
 ;;646
 ;;21,"63874-0316-90 ")
 ;;647
 ;;21,"63874-0317-01 ")
 ;;1268
 ;;21,"63874-0317-02 ")
 ;;1269
 ;;21,"63874-0317-04 ")
 ;;1270
 ;;21,"63874-0317-10 ")
 ;;1271
 ;;21,"63874-0317-12 ")
 ;;1272
 ;;21,"63874-0317-14 ")
 ;;1273
 ;;21,"63874-0317-15 ")
 ;;1274
 ;;21,"63874-0317-20 ")
 ;;1275
 ;;21,"63874-0317-24 ")
 ;;1276
 ;;21,"63874-0317-28 ")
 ;;1277
 ;;21,"63874-0317-30 ")
 ;;1278
 ;;21,"63874-0317-40 ")
 ;;1279
 ;;21,"63874-0317-50 ")
 ;;1280
 ;;21,"63874-0317-60 ")
 ;;1281
 ;;21,"63874-0317-90 ")
 ;;1282
 ;;21,"63874-0357-01 ")
 ;;255
 ;;21,"63874-0357-02 ")
 ;;256
 ;;21,"63874-0357-10 ")
 ;;257
 ;;21,"63874-0357-12 ")
 ;;258
 ;;21,"63874-0357-14 ")
 ;;259
 ;;21,"63874-0357-15 ")
 ;;260
 ;;21,"63874-0357-20 ")
 ;;261
 ;;21,"63874-0357-21 ")
 ;;262
 ;;21,"63874-0357-24 ")
 ;;263
 ;;21,"63874-0357-30 ")
 ;;264
 ;;21,"63874-0357-40 ")
 ;;265
 ;;21,"63874-0357-60 ")
 ;;266
 ;;21,"63874-0432-01 ")
 ;;468
 ;;21,"63874-0432-02 ")
 ;;469
 ;;21,"63874-0432-04 ")
 ;;470
 ;;21,"63874-0432-10 ")
 ;;471
 ;;21,"63874-0432-14 ")
 ;;472
 ;;21,"63874-0432-20 ")
 ;;473
 ;;21,"63874-0432-21 ")
 ;;474
 ;;21,"63874-0432-24 ")
 ;;475
 ;;21,"63874-0432-28 ")
 ;;476
 ;;21,"63874-0432-30 ")
 ;;477
 ;;21,"63874-0432-50 ")
 ;;478
 ;;21,"63874-0432-60 ")
 ;;479
 ;;21,"63874-0432-81 ")
 ;;480
 ;;21,"63874-0432-90 ")
 ;;481
 ;;21,"63874-0588-01 ")
 ;;1007
 ;;21,"63874-0588-04 ")
 ;;1008
 ;;21,"63874-0588-10 ")
 ;;1009
 ;;21,"63874-0588-14 ")
 ;;1010
 ;;21,"63874-0588-20 ")
 ;;1011
 ;;21,"63874-0588-30 ")
 ;;1012
 ;;21,"63874-0588-60 ")
 ;;1013
 ;;21,"63874-0588-80 ")
 ;;1014
 ;;21,"63874-0588-90 ")
 ;;1015
 ;;21,"63874-0665-01 ")
 ;;971
 ;;21,"63874-0665-04 ")
 ;;972
 ;;21,"63874-0665-10 ")
 ;;973
 ;;21,"63874-0665-14 ")
 ;;974
 ;;21,"63874-0665-30 ")
 ;;975
 ;;21,"63874-0665-60 ")
 ;;976
 ;;21,"63874-0665-90 ")
 ;;977
 ;;21,"64720-0123-10 ")
 ;;970
 ;;21,"64720-0124-10 ")
 ;;1016
 ;;21,"64720-0125-10 ")
 ;;1266
 ;;21,"64720-0125-11 ")
 ;;1267
 ;;21,"64764-0302-30 ")
 ;;1327
 ;;21,"64764-0304-30 ")
 ;;1328
 ;;21,"64909-0101-07 ")
 ;;871
 ;;21,"64909-0102-07 ")
 ;;904
 ;;21,"64909-0102-08 ")
 ;;905
 ;;21,"64909-0104-07 ")
 ;;914
 ;;21,"64909-0105-07 ")
 ;;939
 ;;21,"64909-0105-08 ")
 ;;940
 ;;21,"65243-0176-09 ")
 ;;1259
 ;;21,"65243-0176-12 ")
 ;;1260
 ;;21,"65243-0176-18 ")
 ;;1261
 ;;21,"65243-0176-27 ")
 ;;1262
 ;;21,"65243-0176-36 ")
 ;;1263
 ;;21,"65243-0183-18 ")
 ;;482
 ;;21,"65243-0185-36 ")
 ;;1258
 ;;21,"65243-0325-09 ")
 ;;1021
 ;;21,"65243-0325-18 ")
 ;;1022
 ;;21,"65243-0343-09 ")
 ;;1256
 ;;21,"65243-0343-36 ")
 ;;1257
 ;;21,"65243-0346-09 ")
 ;;626
 ;;21,"65243-0375-09 ")
 ;;1028
 ;;21,"65243-0378-09 ")
 ;;627
 ;;21,"65862-0028-01 ")
 ;;969
 ;;21,"65862-0029-01 ")
 ;;1017
 ;;21,"65862-0029-05 ")
 ;;1018
 ;;21,"65862-0030-01 ")
 ;;1264
 ;;21,"65862-0030-99 ")
 ;;1265
 ;;21,"65862-0080-01 ")
 ;;48
 ;;21,"65862-0080-05 ")
 ;;49
 ;;21,"65862-0081-01 ")
 ;;99
 ;;21,"65862-0081-05 ")
 ;;100
 ;;21,"65862-0082-01 ")
 ;;158
 ;;21,"65862-0082-05 ")
 ;;159
 ;;21,"66105-0984-03 ")
 ;;964
 ;;21,"66105-0984-06 ")
 ;;965