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

BGP2TF2.m

Go to the documentation of this file.
BGP2TF2 ;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,"43353-0340-94 ")
 ;;486
 ;;21,"43353-0340-96 ")
 ;;487
 ;;21,"43353-0344-53 ")
 ;;688
 ;;21,"43353-0344-60 ")
 ;;689
 ;;21,"43353-0344-80 ")
 ;;690
 ;;21,"43353-0344-92 ")
 ;;691
 ;;21,"43353-0349-30 ")
 ;;173
 ;;21,"43353-0349-45 ")
 ;;174
 ;;21,"43353-0349-53 ")
 ;;175
 ;;21,"43353-0349-60 ")
 ;;176
 ;;21,"43353-0349-73 ")
 ;;177
 ;;21,"43353-0349-80 ")
 ;;178
 ;;21,"43353-0349-86 ")
 ;;179
 ;;21,"43353-0477-30 ")
 ;;446
 ;;21,"43353-0477-53 ")
 ;;447
 ;;21,"43353-0477-60 ")
 ;;448
 ;;21,"43353-0477-70 ")
 ;;449
 ;;21,"43353-0477-80 ")
 ;;450
 ;;21,"43353-0477-92 ")
 ;;451
 ;;21,"43353-0477-94 ")
 ;;452
 ;;21,"43353-0477-96 ")
 ;;453
 ;;21,"43353-0514-30 ")
 ;;149
 ;;21,"43353-0514-45 ")
 ;;150
 ;;21,"43353-0514-53 ")
 ;;151
 ;;21,"43353-0514-60 ")
 ;;152
 ;;21,"43353-0514-73 ")
 ;;153
 ;;21,"43353-0514-80 ")
 ;;154
 ;;21,"43353-0514-86 ")
 ;;155
 ;;21,"43353-0520-60 ")
 ;;156
 ;;21,"43353-0520-80 ")
 ;;157
 ;;21,"43353-0530-60 ")
 ;;699
 ;;21,"43353-0530-80 ")
 ;;700
 ;;21,"43353-0585-94 ")
 ;;822
 ;;21,"43353-0589-30 ")
 ;;459
 ;;21,"43353-0589-53 ")
 ;;460
 ;;21,"43353-0589-60 ")
 ;;461
 ;;21,"43353-0589-70 ")
 ;;462
 ;;21,"43353-0589-75 ")
 ;;463
 ;;21,"43353-0589-80 ")
 ;;464
 ;;21,"43353-0589-92 ")
 ;;465
 ;;21,"43353-0589-94 ")
 ;;466
 ;;21,"43353-0589-96 ")
 ;;467
 ;;21,"43547-0248-10 ")
 ;;456
 ;;21,"43547-0248-11 ")
 ;;457
 ;;21,"43547-0248-50 ")
 ;;458
 ;;21,"43547-0249-10 ")
 ;;696
 ;;21,"43547-0249-11 ")
 ;;697
 ;;21,"43547-0249-50 ")
 ;;698
 ;;21,"43547-0250-10 ")
 ;;158
 ;;21,"43547-0250-11 ")
 ;;159
 ;;21,"43547-0250-50 ")
 ;;160
 ;;21,"43683-0131-30 ")
 ;;161
 ;;21,"43683-0131-60 ")
 ;;162
 ;;21,"43683-0132-30 ")
 ;;454
 ;;21,"43683-0132-60 ")
 ;;455
 ;;21,"45963-0753-02 ")
 ;;1127
 ;;21,"47463-0246-30 ")
 ;;974
 ;;21,"47463-0247-30 ")
 ;;989
 ;;21,"47463-0434-60 ")
 ;;942
 ;;21,"47463-0435-60 ")
 ;;951
 ;;21,"47463-0508-30 ")
 ;;148
 ;;21,"47463-0509-30 ")
 ;;441
 ;;21,"47463-0509-60 ")
 ;;442
 ;;21,"47463-0509-74 ")
 ;;443
 ;;21,"47463-0509-90 ")
 ;;444
 ;;21,"47463-0510-30 ")
 ;;824
 ;;21,"47463-0510-60 ")
 ;;825
 ;;21,"47463-0510-71 ")
 ;;826
 ;;21,"47463-0510-74 ")
 ;;827
 ;;21,"47463-0510-90 ")
 ;;828
 ;;21,"47463-0611-60 ")
 ;;146
 ;;21,"47463-0611-74 ")
 ;;147
 ;;21,"47463-0612-30 ")
 ;;703
 ;;21,"49884-0736-01 ")
 ;;439
 ;;21,"49884-0736-05 ")
 ;;440
 ;;21,"49884-0737-01 ")
 ;;701
 ;;21,"49884-0737-05 ")
 ;;702
 ;;21,"49884-0738-01 ")
 ;;144
 ;;21,"49884-0738-05 ")
 ;;145
 ;;21,"49884-0739-01 ")
 ;;431
 ;;21,"49884-0739-05 ")
 ;;432
 ;;21,"49884-0740-01 ")
 ;;704
 ;;21,"49884-0740-05 ")
 ;;705
 ;;21,"49884-0741-01 ")
 ;;139
 ;;21,"49884-0741-05 ")
 ;;140
 ;;21,"49884-0921-01 ")
 ;;829
 ;;21,"49884-0921-05 ")
 ;;830
 ;;21,"49884-0967-01 ")
 ;;1011
 ;;21,"49884-0967-05 ")
 ;;1012
 ;;21,"49884-0968-01 ")
 ;;1086
 ;;21,"49884-0968-05 ")
 ;;1087
 ;;21,"49884-0969-01 ")
 ;;1133
 ;;21,"49884-0969-05 ")
 ;;1134
 ;;21,"49999-0106-00 ")
 ;;433
 ;;21,"49999-0106-01 ")
 ;;434
 ;;21,"49999-0106-28 ")
 ;;435
 ;;21,"49999-0106-30 ")
 ;;436
 ;;21,"49999-0106-60 ")
 ;;437
 ;;21,"49999-0106-90 ")
 ;;438
 ;;21,"49999-0116-00 ")
 ;;141
 ;;21,"49999-0116-30 ")
 ;;142
 ;;21,"49999-0116-60 ")
 ;;143
 ;;21,"49999-0401-30 ")
 ;;1135
 ;;21,"49999-0401-60 ")
 ;;1136
 ;;21,"49999-0495-30 ")
 ;;710
 ;;21,"49999-0495-60 ")
 ;;711
 ;;21,"49999-0660-30 ")
 ;;1096
 ;;21,"49999-0660-60 ")
 ;;1097
 ;;21,"49999-0820-60 ")
 ;;831
 ;;21,"50268-0531-15 ")
 ;;832
 ;;21,"51079-0626-01 ")
 ;;833
 ;;21,"51079-0626-20 ")
 ;;834
 ;;21,"51079-0627-01 ")
 ;;903
 ;;21,"51079-0627-20 ")
 ;;904
 ;;21,"51079-0972-01 ")
 ;;424
 ;;21,"51079-0972-17 ")
 ;;425
 ;;21,"51079-0972-19 ")
 ;;426
 ;;21,"51079-0972-20 ")
 ;;427
 ;;21,"51079-0972-30 ")
 ;;428
 ;;21,"51079-0972-56 ")
 ;;429
 ;;21,"51079-0972-57 ")
 ;;430
 ;;21,"51079-0973-01 ")
 ;;706
 ;;21,"51079-0973-20 ")
 ;;707
 ;;21,"51079-0995-01 ")
 ;;137
 ;;21,"51079-0995-20 ")
 ;;138
 ;;21,"51138-0074-30 ")
 ;;422
 ;;21,"51138-0075-30 ")
 ;;709
 ;;21,"51138-0076-30 ")
 ;;135
 ;;21,"51138-0083-30 ")
 ;;423
 ;;21,"51138-0084-30 ")
 ;;708
 ;;21,"51138-0085-30 ")
 ;;136
 ;;21,"51138-0470-30 ")
 ;;1010
 ;;21,"51138-0471-30 ")
 ;;1046
 ;;21,"51138-0472-30 ")
 ;;1129
 ;;21,"51138-0473-30 ")
 ;;1009
 ;;21,"51138-0474-30 ")
 ;;1047
 ;;21,"51138-0475-30 ")
 ;;1128
 ;;21,"51138-0495-20 ")
 ;;1197
 ;;21,"51138-0495-30 ")
 ;;1198
 ;;21,"51138-0496-30 ")
 ;;1213
 ;;21,"51138-0497-30 ")
 ;;1190
 ;;21,"51138-0498-30 ")
 ;;1205
 ;;21,"51138-0526-30 ")
 ;;953
 ;;21,"51138-0527-30 ")
 ;;939
 ;;21,"51138-0537-10 ")
 ;;806
 ;;21,"51138-0537-30 ")
 ;;807
 ;;21,"51138-0538-10 ")
 ;;908
 ;;21,"51138-0538-30 ")
 ;;909
 ;;21,"51138-0539-10 ")
 ;;804
 ;;21,"51138-0539-30 ")
 ;;805
 ;;21,"51138-0540-10 ")
 ;;910
 ;;21,"51138-0540-30 ")
 ;;911
 ;;21,"52959-0207-00 ")
 ;;404
 ;;21,"52959-0207-28 ")
 ;;405
 ;;21,"52959-0207-30 ")
 ;;406
 ;;21,"52959-0207-60 ")
 ;;407
 ;;21,"52959-0860-02 ")
 ;;115
 ;;21,"52959-0860-30 ")
 ;;116
 ;;21,"52959-0860-60 ")
 ;;117
 ;;21,"52959-0860-90 ")
 ;;118
 ;;21,"52959-0896-01 ")
 ;;676
 ;;21,"52959-0896-60 ")
 ;;677
 ;;21,"53002-1251-00 ")
 ;;408
 ;;21,"53002-1251-03 ")
 ;;409
 ;;21,"53002-1251-06 ")
 ;;410
 ;;21,"53002-1422-00 ")
 ;;678
 ;;21,"53002-1422-03 ")
 ;;679
 ;;21,"53002-1422-06 ")
 ;;680
 ;;21,"53002-1445-00 ")
 ;;122
 ;;21,"53002-1445-03 ")
 ;;123
 ;;21,"53002-1445-06 ")
 ;;124
 ;;21,"53489-0467-01 ")
 ;;401
 ;;21,"53489-0467-05 ")
 ;;402
 ;;21,"53489-0467-10 ")
 ;;403
 ;;21,"53489-0468-01 ")
 ;;673
 ;;21,"53489-0468-05 ")
 ;;674
 ;;21,"53489-0468-10 ")
 ;;675
 ;;21,"53489-0469-01 ")
 ;;119
 ;;21,"53489-0469-05 ")
 ;;120
 ;;21,"53489-0469-10 ")
 ;;121
 ;;21,"53746-0178-01 ")
 ;;808
 ;;21,"53746-0178-05 ")
 ;;809
 ;;21,"53746-0178-10 ")
 ;;810
 ;;21,"53746-0178-90 ")
 ;;811
 ;;21,"53746-0179-01 ")
 ;;906
 ;;21,"53746-0179-05 ")
 ;;907
 ;;21,"54458-0974-06 ")
 ;;812
 ;;21,"54569-4202-00 ")
 ;;243
 ;;21,"54569-4202-01 ")
 ;;244
 ;;21,"54569-4202-02 ")
 ;;245
 ;;21,"54569-4202-03 ")
 ;;246
 ;;21,"54569-4740-00 ")
 ;;573
 ;;21,"54569-4740-01 ")
 ;;574
 ;;21,"54569-4786-00 ")
 ;;8
 ;;21,"54569-4786-01 ")
 ;;9
 ;;21,"54569-5210-00 ")
 ;;1043
 ;;21,"54569-5210-01 ")
 ;;1044
 ;;21,"54569-5211-00 ")
 ;;1094
 ;;21,"54569-5211-01 ")
 ;;1095
 ;;21,"54569-5252-00 ")
 ;;771
 ;;21,"54569-5252-01 ")
 ;;772
 ;;21,"54569-5252-02 ")
 ;;773
 ;;21,"54569-5353-00 ")
 ;;684
 ;;21,"54569-5353-02 ")
 ;;685
 ;;21,"54569-5353-03 ")
 ;;686
 ;;21,"54569-5353-04 ")
 ;;687
 ;;21,"54569-5360-00 ")
 ;;417
 ;;21,"54569-5360-03 ")
 ;;418
 ;;21,"54569-5373-00 ")
 ;;130
 ;;21,"54569-5373-02 ")
 ;;131
 ;;21,"54569-5546-00 ")
 ;;801
 ;;21,"54569-5546-01 ")
 ;;802
 ;;21,"54569-5546-02 ")
 ;;803
 ;;21,"54569-5603-00 ")
 ;;1196
 ;;21,"54569-5618-00 ")
 ;;1088
 ;;21,"54569-5618-01 ")
 ;;1089
 ;;21,"54569-5619-00 ")
 ;;1130
 ;;21,"54569-5619-01 ")
 ;;1131
 ;;21,"54569-5991-00 ")
 ;;964
 ;;21,"54569-5992-00 ")
 ;;973
 ;;21,"54569-5993-00 ")
 ;;990
 ;;21,"54569-5993-01 ")
 ;;991
 ;;21,"54738-0925-01 ")
 ;;419
 ;;21,"54738-0925-02 ")
 ;;420
 ;;21,"54738-0925-03 ")
 ;;421
 ;;21,"54738-0926-01 ")
 ;;681
 ;;21,"54738-0926-02 ")
 ;;682
 ;;21,"54738-0926-03 ")
 ;;683
 ;;21,"54738-0927-01 ")
 ;;132
 ;;21,"54738-0927-02 ")
 ;;133
 ;;21,"54738-0927-03 ")
 ;;134
 ;;21,"54868-0795-00 ")
 ;;963
 ;;21,"54868-0830-00 ")
 ;;925
 ;;21,"54868-0830-01 ")
 ;;926
 ;;21,"54868-1097-00 ")
 ;;940
 ;;21,"54868-1097-01 ")
 ;;941
 ;;21,"54868-2894-00 ")
 ;;929
 ;;21,"54868-3545-00 ")
 ;;239
 ;;21,"54868-3545-01 ")
 ;;240
 ;;21,"54868-3545-02 ")
 ;;241
 ;;21,"54868-3545-03 ")
 ;;242
 ;;21,"54868-3546-00 ")
 ;;571
 ;;21,"54868-3546-01 ")
 ;;572
 ;;21,"54868-4160-00 ")
 ;;6
 ;;21,"54868-4160-01 ")
 ;;7
 ;;21,"54868-4529-00 ")
 ;;1090
 ;;21,"54868-4529-01 ")
 ;;1091
 ;;21,"54868-4529-02 ")
 ;;1092
 ;;21,"54868-4529-03 ")
 ;;1093
 ;;21,"54868-4561-00 ")
 ;;603
 ;;21,"54868-4561-01 ")
 ;;604
 ;;21,"54868-4561-02 ")
 ;;605
 ;;21,"54868-4561-03 ")
 ;;606
 ;;21,"54868-4561-04 ")
 ;;607
 ;;21,"54868-4564-00 ")
 ;;411
 ;;21,"54868-4564-01 ")
 ;;412
 ;;21,"54868-4564-02 ")
 ;;413
 ;;21,"54868-4564-03 ")
 ;;414
 ;;21,"54868-4564-04 ")
 ;;415
 ;;21,"54868-4564-05 ")
 ;;416
 ;;21,"54868-4566-00 ")
 ;;125
 ;;21,"54868-4566-01 ")
 ;;126
 ;;21,"54868-4566-02 ")
 ;;127
 ;;21,"54868-4566-03 ")
 ;;128
 ;;21,"54868-4566-04 ")
 ;;129
 ;;21,"54868-4569-00 ")
 ;;774
 ;;21,"54868-4569-01 ")
 ;;775
 ;;21,"54868-4569-02 ")
 ;;776
 ;;21,"54868-4609-00 ")
 ;;1045
 ;;21,"54868-4609-01 ")
 ;;1036
 ;;21,"54868-4906-00 ")
 ;;1001
 ;;21,"54868-4965-00 ")
 ;;1199
 ;;21,"54868-4965-01 ")
 ;;1200
 ;;21,"54868-4965-02 ")
 ;;1201
 ;;21,"54868-5148-00 ")
 ;;1066
 ;;21,"54868-5148-01 ")
 ;;1067
 ;;21,"54868-5148-02 ")
 ;;1068
 ;;21,"54868-5148-03 ")
 ;;1062
 ;;21,"54868-5148-04 ")
 ;;1063
 ;;21,"54868-5157-00 ")
 ;;1214
 ;;21,"54868-5157-01 ")
 ;;1215
 ;;21,"54868-5185-00 ")
 ;;1028
 ;;21,"54868-5185-01 ")
 ;;1029
 ;;21,"54868-5185-02 ")
 ;;1030
 ;;21,"54868-5185-03 ")
 ;;1031
 ;;21,"54868-5188-00 ")
 ;;975
 ;;21,"54868-5188-01 ")
 ;;976
 ;;21,"54868-5188-02 ")
 ;;977
 ;;21,"54868-5217-00 ")
 ;;886
 ;;21,"54868-5217-01 ")
 ;;887
 ;;21,"54868-5217-02 ")
 ;;888
 ;;21,"54868-5217-03 ")
 ;;889
 ;;21,"54868-5217-04 ")
 ;;890
 ;;21,"54868-5217-05 ")
 ;;891
 ;;21,"54868-5243-00 ")
 ;;1166
 ;;21,"54868-5243-01 ")
 ;;1167
 ;;21,"54868-5243-02 ")
 ;;1168
 ;;21,"54868-5243-03 ")
 ;;1169
 ;;21,"54868-5243-04 ")
 ;;1170
 ;;21,"54868-5262-00 ")
 ;;1203
 ;;21,"54868-5262-01 ")
 ;;1204
 ;;21,"54868-5288-00 ")
 ;;996
 ;;21,"54868-5288-01 ")
 ;;997
 ;;21,"54868-5288-02 ")
 ;;998
 ;;21,"54868-5376-00 ")
 ;;1189
 ;;21,"54868-5379-00 ")
 ;;1186
 ;;21,"54868-5399-00 ")
 ;;979
 ;;21,"54868-5399-01 ")
 ;;980
 ;;21,"54868-5467-00 ")
 ;;992
 ;;21,"54868-5467-01 ")
 ;;993
 ;;21,"54868-5467-02 ")
 ;;994
 ;;21,"54868-5500-00 ")
 ;;1174
 ;;21,"54868-5500-01 ")
 ;;1175
 ;;21,"54868-5505-00 ")
 ;;914
 ;;21,"54868-5505-01 ")
 ;;915
 ;;21,"54868-5505-02 ")
 ;;916
 ;;21,"54868-5553-00 ")
 ;;1180
 ;;21,"54868-5553-01 ")
 ;;1181
 ;;21,"54868-5553-02 ")
 ;;1182
 ;;21,"54868-5558-00 ")
 ;;933
 ;;21,"54868-5558-01 ")
 ;;934
 ;;21,"54868-5973-00 ")
 ;;954
 ;;21,"55045-2504-01 ")
 ;;575
 ;;21,"55045-2904-00 ")
 ;;286
 ;;21,"55045-2904-02 ")
 ;;287
 ;;21,"55045-2904-06 ")
 ;;288
 ;;21,"55045-2905-00 ")
 ;;601
 ;;21,"55045-2905-08 ")
 ;;602
 ;;21,"55045-2906-00 ")
 ;;57
 ;;21,"55045-2906-01 ")
 ;;58
 ;;21,"55045-2906-02 ")
 ;;59
 ;;21,"55045-2906-06 ")
 ;;60
 ;;21,"55045-2906-08 ")
 ;;61
 ;;21,"55045-2906-09 ")
 ;;62
 ;;21,"55045-3045-01 ")
 ;;248
 ;;21,"55045-3045-06 ")
 ;;249
 ;;21,"55045-3045-08 ")
 ;;250
 ;;21,"55045-3761-08 ")
 ;;289
 ;;21,"55111-0695-01 ")
 ;;1002
 ;;21,"55111-0696-01 ")
 ;;1064
 ;;21,"55111-0696-10 ")
 ;;1065
 ;;21,"55111-0697-01 ")
 ;;1105
 ;;21,"55111-0697-10 ")
 ;;1106
 ;;21,"55289-0211-60 ")
 ;;247
 ;;21,"55289-0281-30 ")
 ;;1107
 ;;21,"55289-0281-60 ")
 ;;1108
 ;;21,"55289-0281-86 ")
 ;;1109
 ;;21,"55289-0281-90 ")
 ;;1165
 ;;21,"55289-0384-30 ")
 ;;880
 ;;21,"55289-0384-60 ")
 ;;881
 ;;21,"55289-0384-86 ")
 ;;882
 ;;21,"55289-0384-90 ")
 ;;883
 ;;21,"55289-0384-93 ")
 ;;884
 ;;21,"55289-0384-94 ")
 ;;885
 ;;21,"55289-0615-14 ")
 ;;302
 ;;21,"55289-0615-30 ")
 ;;303
 ;;21,"55289-0615-60 ")
 ;;304
 ;;21,"55289-0615-86 ")
 ;;305
 ;;21,"55289-0615-90 ")
 ;;306
 ;;21,"55289-0615-93 ")
 ;;307
 ;;21,"55289-0615-94 ")
 ;;308
 ;;21,"55289-0615-98 ")
 ;;309
 ;;21,"55289-0919-30 ")
 ;;63
 ;;21,"55289-0919-60 ")
 ;;64
 ;;21,"55289-0919-90 ")
 ;;65
 ;;21,"55289-0919-93 ")
 ;;66
 ;;21,"55289-0919-94 ")
 ;;67
 ;;21,"55289-0919-98 ")
 ;;68
 ;;21,"55289-0934-30 ")
 ;;620
 ;;21,"55289-0934-60 ")
 ;;621
 ;;21,"55289-0934-93 ")
 ;;622
 ;;21,"55289-0934-94 ")
 ;;623
 ;;21,"55289-0934-98 ")
 ;;624
 ;;21,"55887-0368-30 ")
 ;;1171
 ;;21,"55887-0368-60 ")
 ;;1172
 ;;21,"55887-0368-90 ")
 ;;1173
 ;;21,"55887-0414-30 ")
 ;;892
 ;;21,"55887-0414-60 ")
 ;;893
 ;;21,"55887-0414-90 ")
 ;;894
 ;;21,"55887-0571-30 ")
 ;;41
 ;;21,"55887-0571-60 ")
 ;;42
 ;;21,"55887-0571-82 ")
 ;;43
 ;;21,"55887-0571-90 ")
 ;;44
 ;;21,"55887-0614-30 ")
 ;;625
 ;;21,"55887-0614-90 ")
 ;;626
 ;;21,"55887-0627-30 ")
 ;;297
 ;;21,"55887-0627-60 ")
 ;;298
 ;;21,"55887-0627-82 ")
 ;;299
 ;;21,"55887-0627-90 ")
 ;;300
 ;;21,"55887-0627-92 ")
 ;;301
 ;;21,"55887-0940-30 ")
 ;;912
 ;;21,"55887-0940-90 ")
 ;;913
 ;;21,"57664-0397-13 ")
 ;;290
 ;;21,"57664-0397-18 ")
 ;;291
 ;;21,"57664-0397-51 ")
 ;;292