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

BGP2TG2.m

Go to the documentation of this file.
BGP2TG2 ;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-0369-70 ")
 ;;559
 ;;21,"43353-0369-80 ")
 ;;560
 ;;21,"43353-0369-94 ")
 ;;561
 ;;21,"43353-0379-60 ")
 ;;698
 ;;21,"43353-0379-80 ")
 ;;699
 ;;21,"43353-0582-80 ")
 ;;1050
 ;;21,"43353-0656-53 ")
 ;;1139
 ;;21,"43353-0656-60 ")
 ;;1140
 ;;21,"43353-0656-70 ")
 ;;1141
 ;;21,"43353-0656-80 ")
 ;;1142
 ;;21,"43353-0656-92 ")
 ;;1143
 ;;21,"43353-0656-94 ")
 ;;1144
 ;;21,"43353-0659-60 ")
 ;;1051
 ;;21,"43353-0659-80 ")
 ;;1052
 ;;21,"43683-0123-60 ")
 ;;377
 ;;21,"43683-0124-30 ")
 ;;844
 ;;21,"45802-0770-78 ")
 ;;283
 ;;21,"45802-0822-78 ")
 ;;310
 ;;21,"45802-0947-78 ")
 ;;376
 ;;21,"45963-0753-02 ")
 ;;171
 ;;21,"47463-0241-30 ")
 ;;315
 ;;21,"47463-0242-30 ")
 ;;278
 ;;21,"47463-0243-30 ")
 ;;372
 ;;21,"47463-0243-60 ")
 ;;373
 ;;21,"47463-0244-30 ")
 ;;703
 ;;21,"47463-0245-30 ")
 ;;774
 ;;21,"47463-0245-60 ")
 ;;775
 ;;21,"47463-0246-30 ")
 ;;18
 ;;21,"47463-0247-30 ")
 ;;33
 ;;21,"47463-0248-90 ")
 ;;1158
 ;;21,"49884-0845-01 ")
 ;;279
 ;;21,"49884-0846-01 ")
 ;;314
 ;;21,"49884-0847-01 ")
 ;;374
 ;;21,"49884-0967-01 ")
 ;;55
 ;;21,"49884-0967-05 ")
 ;;56
 ;;21,"49884-0968-01 ")
 ;;130
 ;;21,"49884-0968-05 ")
 ;;131
 ;;21,"49884-0969-01 ")
 ;;177
 ;;21,"49884-0969-05 ")
 ;;178
 ;;21,"49999-0107-00 ")
 ;;552
 ;;21,"49999-0107-20 ")
 ;;553
 ;;21,"49999-0107-30 ")
 ;;554
 ;;21,"49999-0107-60 ")
 ;;555
 ;;21,"49999-0107-90 ")
 ;;556
 ;;21,"49999-0108-00 ")
 ;;700
 ;;21,"49999-0108-30 ")
 ;;701
 ;;21,"49999-0108-60 ")
 ;;702
 ;;21,"49999-0113-00 ")
 ;;1159
 ;;21,"49999-0113-01 ")
 ;;1160
 ;;21,"49999-0113-30 ")
 ;;1161
 ;;21,"49999-0113-60 ")
 ;;1162
 ;;21,"49999-0113-90 ")
 ;;1163
 ;;21,"49999-0401-30 ")
 ;;179
 ;;21,"49999-0401-60 ")
 ;;180
 ;;21,"49999-0514-30 ")
 ;;803
 ;;21,"49999-0571-60 ")
 ;;938
 ;;21,"49999-0660-30 ")
 ;;140
 ;;21,"49999-0660-60 ")
 ;;141
 ;;21,"49999-0781-00 ")
 ;;316
 ;;21,"49999-0807-00 ")
 ;;371
 ;;21,"49999-0808-00 ")
 ;;890
 ;;21,"50111-0372-01 ")
 ;;225
 ;;21,"50111-0372-03 ")
 ;;226
 ;;21,"50111-0373-01 ")
 ;;247
 ;;21,"50111-0373-03 ")
 ;;248
 ;;21,"50111-0584-01 ")
 ;;704
 ;;21,"50111-0584-02 ")
 ;;705
 ;;21,"50111-0585-01 ")
 ;;550
 ;;21,"50111-0585-02 ")
 ;;551
 ;;21,"51079-0202-01 ")
 ;;227
 ;;21,"51079-0202-20 ")
 ;;228
 ;;21,"51079-0203-01 ")
 ;;245
 ;;21,"51079-0203-20 ")
 ;;246
 ;;21,"51079-0292-20 ")
 ;;1315
 ;;21,"51079-0293-20 ")
 ;;1320
 ;;21,"51079-0425-01 ")
 ;;317
 ;;21,"51079-0425-20 ")
 ;;318
 ;;21,"51079-0426-01 ")
 ;;369
 ;;21,"51079-0426-20 ")
 ;;370
 ;;21,"51079-0560-01 ")
 ;;1322
 ;;21,"51079-0560-20 ")
 ;;1323
 ;;21,"51079-0810-01 ")
 ;;706
 ;;21,"51079-0810-17 ")
 ;;707
 ;;21,"51079-0810-19 ")
 ;;708
 ;;21,"51079-0810-20 ")
 ;;709
 ;;21,"51079-0811-01 ")
 ;;546
 ;;21,"51079-0811-17 ")
 ;;547
 ;;21,"51079-0811-19 ")
 ;;548
 ;;21,"51079-0811-20 ")
 ;;549
 ;;21,"51079-0872-01 ")
 ;;1040
 ;;21,"51079-0872-17 ")
 ;;1041
 ;;21,"51079-0872-19 ")
 ;;1042
 ;;21,"51079-0872-20 ")
 ;;1043
 ;;21,"51079-0873-01 ")
 ;;1154
 ;;21,"51079-0873-17 ")
 ;;1155
 ;;21,"51079-0873-19 ")
 ;;1156
 ;;21,"51079-0873-20 ")
 ;;1157
 ;;21,"51138-0251-30 ")
 ;;710
 ;;21,"51138-0252-30 ")
 ;;545
 ;;21,"51138-0265-30 ")
 ;;804
 ;;21,"51138-0266-30 ")
 ;;819
 ;;21,"51138-0267-30 ")
 ;;773
 ;;21,"51138-0268-30 ")
 ;;820
 ;;21,"51138-0269-30 ")
 ;;772
 ;;21,"51138-0270-30 ")
 ;;711
 ;;21,"51138-0271-30 ")
 ;;544
 ;;21,"51138-0337-30 ")
 ;;275
 ;;21,"51138-0338-30 ")
 ;;307
 ;;21,"51138-0339-30 ")
 ;;368
 ;;21,"51138-0367-30 ")
 ;;860
 ;;21,"51138-0368-30 ")
 ;;885
 ;;21,"51138-0369-30 ")
 ;;933
 ;;21,"51138-0370-30 ")
 ;;955
 ;;21,"51138-0371-30 ")
 ;;1035
 ;;21,"51138-0372-10 ")
 ;;1125
 ;;21,"51138-0372-30 ")
 ;;1126
 ;;21,"51138-0470-30 ")
 ;;54
 ;;21,"51138-0471-30 ")
 ;;90
 ;;21,"51138-0472-30 ")
 ;;173
 ;;21,"51138-0473-30 ")
 ;;53
 ;;21,"51138-0474-30 ")
 ;;91
 ;;21,"51138-0475-30 ")
 ;;172
 ;;21,"51655-0011-77 ")
 ;;1299
 ;;21,"51655-0012-77 ")
 ;;1070
 ;;21,"51655-0289-24 ")
 ;;567
 ;;21,"51655-0297-24 ")
 ;;267
 ;;21,"51655-0753-24 ")
 ;;1036
 ;;21,"51655-0758-77 ")
 ;;954
 ;;21,"51655-0904-25 ")
 ;;1127
 ;;21,"51655-0947-24 ")
 ;;1128
 ;;21,"51655-0947-25 ")
 ;;1129
 ;;21,"52152-0133-02 ")
 ;;861
 ;;21,"52152-0134-02 ")
 ;;882
 ;;21,"52152-0134-04 ")
 ;;883
 ;;21,"52152-0134-05 ")
 ;;884
 ;;21,"52152-0135-02 ")
 ;;934
 ;;21,"52152-0135-04 ")
 ;;935
 ;;21,"52152-0135-05 ")
 ;;936
 ;;21,"52544-0460-10 ")
 ;;715
 ;;21,"52959-0177-30 ")
 ;;1298
 ;;21,"52959-0449-01 ")
 ;;1130
 ;;21,"52959-0449-30 ")
 ;;1131
 ;;21,"52959-0449-60 ")
 ;;1132
 ;;21,"52959-0598-90 ")
 ;;953
 ;;21,"52959-0822-00 ")
 ;;527
 ;;21,"52959-0822-30 ")
 ;;528
 ;;21,"52959-0822-60 ")
 ;;529
 ;;21,"52959-0823-20 ")
 ;;716
 ;;21,"52959-0823-60 ")
 ;;717
 ;;21,"52959-0888-00 ")
 ;;366
 ;;21,"52959-0888-30 ")
 ;;367
 ;;21,"52959-0936-30 ")
 ;;308
 ;;21,"52959-0936-60 ")
 ;;309
 ;;21,"53002-0446-00 ")
 ;;712
 ;;21,"53002-0446-30 ")
 ;;713
 ;;21,"53002-0446-60 ")
 ;;714
 ;;21,"53002-1111-00 ")
 ;;534
 ;;21,"53002-1111-03 ")
 ;;535
 ;;21,"53002-1111-06 ")
 ;;536
 ;;21,"54348-0098-30 ")
 ;;1313
 ;;21,"54348-0104-30 ")
 ;;1119
 ;;21,"54458-0966-10 ")
 ;;364
 ;;21,"54458-0967-10 ")
 ;;305
 ;;21,"54458-0968-10 ")
 ;;277
 ;;21,"54458-0971-10 ")
 ;;365
 ;;21,"54458-0972-10 ")
 ;;306
 ;;21,"54458-0973-10 ")
 ;;276
 ;;21,"54569-0200-00 ")
 ;;1082
 ;;21,"54569-0203-00 ")
 ;;243
 ;;21,"54569-0203-01 ")
 ;;244
 ;;21,"54569-0206-01 ")
 ;;729
 ;;21,"54569-0206-02 ")
 ;;730
 ;;21,"54569-0206-03 ")
 ;;731
 ;;21,"54569-2017-01 ")
 ;;229
 ;;21,"54569-3690-00 ")
 ;;908
 ;;21,"54569-3690-01 ")
 ;;909
 ;;21,"54569-3830-00 ")
 ;;1037
 ;;21,"54569-3830-01 ")
 ;;1038
 ;;21,"54569-3830-02 ")
 ;;1039
 ;;21,"54569-3831-00 ")
 ;;1120
 ;;21,"54569-3831-01 ")
 ;;1121
 ;;21,"54569-3831-02 ")
 ;;1122
 ;;21,"54569-3831-04 ")
 ;;1123
 ;;21,"54569-3831-08 ")
 ;;1124
 ;;21,"54569-3832-00 ")
 ;;958
 ;;21,"54569-3841-00 ")
 ;;718
 ;;21,"54569-3841-01 ")
 ;;719
 ;;21,"54569-3841-02 ")
 ;;720
 ;;21,"54569-3842-00 ")
 ;;530
 ;;21,"54569-3842-01 ")
 ;;531
 ;;21,"54569-3842-02 ")
 ;;532
 ;;21,"54569-3842-04 ")
 ;;533
 ;;21,"54569-3937-00 ")
 ;;850
 ;;21,"54569-3938-00 ")
 ;;790
 ;;21,"54569-3938-01 ")
 ;;791
 ;;21,"54569-4453-00 ")
 ;;354
 ;;21,"54569-4453-01 ")
 ;;355
 ;;21,"54569-4695-00 ")
 ;;943
 ;;21,"54569-4695-01 ")
 ;;944
 ;;21,"54569-4706-00 ")
 ;;300
 ;;21,"54569-5210-00 ")
 ;;87
 ;;21,"54569-5210-01 ")
 ;;88
 ;;21,"54569-5211-00 ")
 ;;138
 ;;21,"54569-5211-01 ")
 ;;139
 ;;21,"54569-5547-00 ")
 ;;817
 ;;21,"54569-5547-01 ")
 ;;818
 ;;21,"54569-5548-00 ")
 ;;770
 ;;21,"54569-5548-01 ")
 ;;771
 ;;21,"54569-5618-00 ")
 ;;132
 ;;21,"54569-5618-01 ")
 ;;133
 ;;21,"54569-5619-00 ")
 ;;174
 ;;21,"54569-5619-01 ")
 ;;175
 ;;21,"54569-5855-00 ")
 ;;363
 ;;21,"54569-5991-00 ")
 ;;8
 ;;21,"54569-5992-00 ")
 ;;17
 ;;21,"54569-5993-00 ")
 ;;34
 ;;21,"54569-5993-01 ")
 ;;35
 ;;21,"54569-6072-00 ")
 ;;304
 ;;21,"54868-0036-00 ")
 ;;240
 ;;21,"54868-0036-02 ")
 ;;241
 ;;21,"54868-0036-04 ")
 ;;242
 ;;21,"54868-0373-01 ")
 ;;984
 ;;21,"54868-0373-02 ")
 ;;985
 ;;21,"54868-0795-00 ")
 ;;7
 ;;21,"54868-0877-01 ")
 ;;230
 ;;21,"54868-0996-01 ")
 ;;1080
 ;;21,"54868-0996-02 ")
 ;;1081
 ;;21,"54868-0997-01 ")
 ;;726
 ;;21,"54868-0997-02 ")
 ;;727
 ;;21,"54868-0997-04 ")
 ;;728
 ;;21,"54868-1020-00 ")
 ;;1314
 ;;21,"54868-1089-01 ")
 ;;564
 ;;21,"54868-1089-02 ")
 ;;565
 ;;21,"54868-1089-03 ")
 ;;566
 ;;21,"54868-1244-01 ")
 ;;1071
 ;;21,"54868-1244-02 ")
 ;;1072
 ;;21,"54868-1244-03 ")
 ;;1073
 ;;21,"54868-1244-04 ")
 ;;1074
 ;;21,"54868-1245-01 ")
 ;;1295
 ;;21,"54868-1245-02 ")
 ;;1296
 ;;21,"54868-1245-05 ")
 ;;1297
 ;;21,"54868-1361-01 ")
 ;;1324
 ;;21,"54868-1688-01 ")
 ;;979
 ;;21,"54868-3017-00 ")
 ;;907
 ;;21,"54868-3265-00 ")
 ;;1133
 ;;21,"54868-3265-01 ")
 ;;1134
 ;;21,"54868-3265-02 ")
 ;;1135
 ;;21,"54868-3265-03 ")
 ;;1136
 ;;21,"54868-3265-04 ")
 ;;1137
 ;;21,"54868-3265-05 ")
 ;;1138
 ;;21,"54868-3266-00 ")
 ;;1030
 ;;21,"54868-3266-01 ")
 ;;1031
 ;;21,"54868-3266-02 ")
 ;;1032
 ;;21,"54868-3266-03 ")
 ;;1033
 ;;21,"54868-3266-04 ")
 ;;1034
 ;;21,"54868-3318-01 ")
 ;;721
 ;;21,"54868-3318-02 ")
 ;;722
 ;;21,"54868-3318-03 ")
 ;;723
 ;;21,"54868-3318-04 ")
 ;;724
 ;;21,"54868-3318-05 ")
 ;;725
 ;;21,"54868-3319-01 ")
 ;;537
 ;;21,"54868-3319-02 ")
 ;;538
 ;;21,"54868-3319-03 ")
 ;;539
 ;;21,"54868-3319-04 ")
 ;;540
 ;;21,"54868-3319-05 ")
 ;;541
 ;;21,"54868-3319-06 ")
 ;;542
 ;;21,"54868-3319-07 ")
 ;;543
 ;;21,"54868-3327-00 ")
 ;;274
 ;;21,"54868-3334-00 ")
 ;;785
 ;;21,"54868-3334-01 ")
 ;;786
 ;;21,"54868-3334-02 ")
 ;;787
 ;;21,"54868-3334-03 ")
 ;;788
 ;;21,"54868-3334-04 ")
 ;;789
 ;;21,"54868-3335-00 ")
 ;;846
 ;;21,"54868-3335-01 ")
 ;;847
 ;;21,"54868-3335-02 ")
 ;;848
 ;;21,"54868-3335-03 ")
 ;;849
 ;;21,"54868-3377-00 ")
 ;;360
 ;;21,"54868-3377-01 ")
 ;;361
 ;;21,"54868-3377-02 ")
 ;;362
 ;;21,"54868-3426-00 ")
 ;;956
 ;;21,"54868-3426-01 ")
 ;;957
 ;;21,"54868-3711-00 ")
 ;;941
 ;;21,"54868-3711-01 ")
 ;;942
 ;;21,"54868-4091-00 ")
 ;;886
 ;;21,"54868-4091-01 ")
 ;;887
 ;;21,"54868-4091-02 ")
 ;;888
 ;;21,"54868-4091-03 ")
 ;;889
 ;;21,"54868-4205-00 ")
 ;;301
 ;;21,"54868-4205-01 ")
 ;;302
 ;;21,"54868-4205-02 ")
 ;;303
 ;;21,"54868-4206-00 ")
 ;;356
 ;;21,"54868-4206-01 ")
 ;;357
 ;;21,"54868-4206-03 ")
 ;;358
 ;;21,"54868-4206-04 ")
 ;;359
 ;;21,"54868-4412-00 ")
 ;;271
 ;;21,"54868-4412-01 ")
 ;;272
 ;;21,"54868-4412-02 ")
 ;;273
 ;;21,"54868-4420-00 ")
 ;;807
 ;;21,"54868-4529-00 ")
 ;;134
 ;;21,"54868-4529-01 ")
 ;;135
 ;;21,"54868-4529-02 ")
 ;;136
 ;;21,"54868-4529-03 ")
 ;;137
 ;;21,"54868-4609-00 ")
 ;;89
 ;;21,"54868-4609-01 ")
 ;;80
 ;;21,"54868-4842-00 ")
 ;;925
 ;;21,"54868-4842-01 ")
 ;;926
 ;;21,"54868-4842-02 ")
 ;;927
 ;;21,"54868-4906-00 ")
 ;;45
 ;;21,"54868-4988-00 ")
 ;;745
 ;;21,"54868-4988-01 ")
 ;;746
 ;;21,"54868-4988-02 ")
 ;;747
 ;;21,"54868-4988-03 ")
 ;;748
 ;;21,"54868-4988-04 ")
 ;;749
 ;;21,"54868-5148-00 ")
 ;;110
 ;;21,"54868-5148-01 ")
 ;;111
 ;;21,"54868-5148-02 ")
 ;;112
 ;;21,"54868-5148-03 ")
 ;;106
 ;;21,"54868-5148-04 ")
 ;;107
 ;;21,"54868-5185-00 ")
 ;;72
 ;;21,"54868-5185-01 ")
 ;;73
 ;;21,"54868-5185-02 ")
 ;;74
 ;;21,"54868-5185-03 ")
 ;;75
 ;;21,"54868-5188-00 ")
 ;;19
 ;;21,"54868-5188-01 ")
 ;;20
 ;;21,"54868-5188-02 ")
 ;;21
 ;;21,"54868-5210-00 ")
 ;;830
 ;;21,"54868-5210-01 ")
 ;;831
 ;;21,"54868-5210-02 ")
 ;;832
 ;;21,"54868-5210-03 ")
 ;;833
 ;;21,"54868-5243-00 ")
 ;;210
 ;;21,"54868-5243-01 ")
 ;;211
 ;;21,"54868-5243-02 ")
 ;;212
 ;;21,"54868-5243-03 ")
 ;;213
 ;;21,"54868-5243-04 ")
 ;;214
 ;;21,"54868-5288-00 ")
 ;;40
 ;;21,"54868-5288-01 ")
 ;;41
 ;;21,"54868-5288-02 ")
 ;;42
 ;;21,"54868-5364-00 ")
 ;;794
 ;;21,"54868-5364-01 ")
 ;;795
 ;;21,"54868-5364-02 ")
 ;;796
 ;;21,"54868-5399-00 ")
 ;;23
 ;;21,"54868-5399-01 ")
 ;;24
 ;;21,"54868-5457-00 ")
 ;;332
 ;;21,"54868-5457-01 ")
 ;;333
 ;;21,"54868-5457-02 ")
 ;;334
 ;;21,"54868-5467-00 ")
 ;;36
 ;;21,"54868-5467-01 ")
 ;;37
 ;;21,"54868-5467-02 ")
 ;;38
 ;;21,"54868-5712-00 ")
 ;;863
 ;;21,"54868-5739-00 ")
 ;;1338
 ;;21,"55045-1211-01 ")
 ;;252
 ;;21,"55045-2058-01 ")
 ;;734
 ;;21,"55045-2138-00 ")
 ;;1216
 ;;21,"55045-2138-01 ")
 ;;1217
 ;;21,"55045-2138-08 ")
 ;;1218
 ;;21,"55045-2265-01 ")
 ;;601
 ;;21,"55045-2265-08 ")
 ;;602
 ;;21,"55045-2266-01 ")
 ;;413
 ;;21,"55045-2322-01 ")
 ;;1215
 ;;21,"55045-3300-01 ")
 ;;750
 ;;21,"55111-0320-01 ")
 ;;294
 ;;21,"55111-0320-05 ")
 ;;295
 ;;21,"55111-0321-01 ")
 ;;330
 ;;21,"55111-0321-05 ")
 ;;331
 ;;21,"55111-0322-01 ")
 ;;399
 ;;21,"55111-0322-05 ")
 ;;400
 ;;21,"55111-0695-01 ")
 ;;46
 ;;21,"55111-0696-01 ")
 ;;108
 ;;21,"55111-0696-10 ")
 ;;109
 ;;21,"55111-0697-01 ")
 ;;149
 ;;21,"55111-0697-10 ")
 ;;150
 ;;21,"55289-0066-90 ")
 ;;253
 ;;21,"55289-0066-97 ")
 ;;254
 ;;21,"55289-0125-30 ")
 ;;571
 ;;21,"55289-0173-30 ")
 ;;1290
 ;;21,"55289-0187-97 ")
 ;;1321
 ;;21,"55289-0265-90 ")
 ;;1307
 ;;21,"55289-0281-30 ")
 ;;151
 ;;21,"55289-0281-60 ")
 ;;152
 ;;21,"55289-0281-86 ")
 ;;153
 ;;21,"55289-0281-90 ")
 ;;209
 ;;21,"55289-0289-97 ")
 ;;1306
 ;;21,"55289-0301-93 ")
 ;;751
 ;;21,"55289-0424-30 ")
 ;;735
 ;;21,"55289-0424-97 ")
 ;;736
 ;;21,"55289-0606-30 ")
 ;;1000
 ;;21,"55289-0606-90 ")
 ;;1001
 ;;21,"55289-0614-01 ")
 ;;1076
 ;;21,"55289-0614-60 ")
 ;;1077
 ;;21,"55289-0779-07 ")
 ;;834
 ;;21,"55289-0806-14 ")
 ;;609
 ;;21,"55289-0806-30 ")
 ;;610
 ;;21,"55289-0806-60 ")
 ;;611
 ;;21,"55289-0806-86 ")
 ;;612