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

BGP48A2.m

Go to the documentation of this file.
BGP48A2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 17, 2014;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,"23490-7260-03 ")
 ;;850
 ;;21,"23490-7260-04 ")
 ;;851
 ;;21,"23490-7448-03 ")
 ;;1306
 ;;21,"23490-7448-06 ")
 ;;1307
 ;;21,"23490-7449-01 ")
 ;;1423
 ;;21,"23490-7449-06 ")
 ;;1405
 ;;21,"23490-7449-09 ")
 ;;1406
 ;;21,"23490-7458-03 ")
 ;;962
 ;;21,"23490-7458-06 ")
 ;;963
 ;;21,"23490-7458-07 ")
 ;;964
 ;;21,"23490-7458-12 ")
 ;;965
 ;;21,"23490-7458-16 ")
 ;;966
 ;;21,"24658-0290-05 ")
 ;;365
 ;;21,"24658-0290-12 ")
 ;;366
 ;;21,"24658-0290-18 ")
 ;;367
 ;;21,"24658-0290-27 ")
 ;;368
 ;;21,"24658-0290-36 ")
 ;;369
 ;;21,"24658-0290-46 ")
 ;;370
 ;;21,"24658-0290-60 ")
 ;;371
 ;;21,"24658-0290-90 ")
 ;;372
 ;;21,"24658-0292-05 ")
 ;;841
 ;;21,"24658-0292-18 ")
 ;;842
 ;;21,"24658-0292-60 ")
 ;;843
 ;;21,"24658-0292-90 ")
 ;;844
 ;;21,"29033-0018-01 ")
 ;;967
 ;;21,"29033-0018-05 ")
 ;;968
 ;;21,"29033-0018-10 ")
 ;;969
 ;;21,"29033-0021-01 ")
 ;;1113
 ;;21,"33261-0145-02 ")
 ;;837
 ;;21,"33261-0145-30 ")
 ;;838
 ;;21,"33261-0145-60 ")
 ;;839
 ;;21,"33261-0145-90 ")
 ;;840
 ;;21,"33261-0157-02 ")
 ;;373
 ;;21,"33261-0157-30 ")
 ;;374
 ;;21,"33261-0157-60 ")
 ;;375
 ;;21,"33261-0157-90 ")
 ;;376
 ;;21,"33261-0372-30 ")
 ;;970
 ;;21,"33261-0372-60 ")
 ;;971
 ;;21,"33261-0372-90 ")
 ;;972
 ;;21,"33261-0411-00 ")
 ;;1401
 ;;21,"33261-0411-30 ")
 ;;1402
 ;;21,"33261-0411-60 ")
 ;;1403
 ;;21,"33261-0411-90 ")
 ;;1404
 ;;21,"33261-0540-00 ")
 ;;621
 ;;21,"33261-0540-30 ")
 ;;622
 ;;21,"33261-0540-60 ")
 ;;623
 ;;21,"33261-0540-90 ")
 ;;624
 ;;21,"33261-0821-30 ")
 ;;1316
 ;;21,"33261-0821-60 ")
 ;;1317
 ;;21,"33261-0821-90 ")
 ;;1318
 ;;21,"33358-0234-00 ")
 ;;248
 ;;21,"33358-0234-30 ")
 ;;249
 ;;21,"33358-0234-60 ")
 ;;250
 ;;21,"33358-0235-60 ")
 ;;1011
 ;;21,"33358-0236-30 ")
 ;;547
 ;;21,"33358-0236-60 ")
 ;;548
 ;;21,"33358-0237-30 ")
 ;;769
 ;;21,"33358-0237-60 ")
 ;;770
 ;;21,"35356-0130-60 ")
 ;;1477
 ;;21,"35356-0136-60 ")
 ;;1175
 ;;21,"35356-0269-28 ")
 ;;1024
 ;;21,"35356-0691-60 ")
 ;;210
 ;;21,"35356-0792-30 ")
 ;;242
 ;;21,"35356-0886-30 ")
 ;;771
 ;;21,"35356-0886-60 ")
 ;;772
 ;;21,"35356-0886-90 ")
 ;;773
 ;;21,"35356-0897-30 ")
 ;;1314
 ;;21,"35356-0897-60 ")
 ;;1315
 ;;21,"35356-0922-60 ")
 ;;508
 ;;21,"35356-0932-30 ")
 ;;1260
 ;;21,"35356-0932-60 ")
 ;;1261
 ;;21,"35356-0932-90 ")
 ;;1262
 ;;21,"35356-0959-30 ")
 ;;511
 ;;21,"35356-0959-60 ")
 ;;512
 ;;21,"35356-0959-90 ")
 ;;513
 ;;21,"35356-0970-30 ")
 ;;1204
 ;;21,"35356-0970-60 ")
 ;;1205
 ;;21,"35356-0970-90 ")
 ;;1206
 ;;21,"42254-0071-30 ")
 ;;1333
 ;;21,"42291-0305-01 ")
 ;;1215
 ;;21,"42291-0306-01 ")
 ;;1236
 ;;21,"42291-0605-10 ")
 ;;211
 ;;21,"42291-0605-12 ")
 ;;212
 ;;21,"42291-0605-18 ")
 ;;213
 ;;21,"42291-0605-27 ")
 ;;214
 ;;21,"42291-0605-36 ")
 ;;215
 ;;21,"42291-0605-45 ")
 ;;216
 ;;21,"42291-0605-60 ")
 ;;217
 ;;21,"42291-0605-90 ")
 ;;218
 ;;21,"42291-0606-10 ")
 ;;536
 ;;21,"42291-0606-18 ")
 ;;537
 ;;21,"42291-0606-27 ")
 ;;538
 ;;21,"42291-0606-90 ")
 ;;539
 ;;21,"42291-0607-10 ")
 ;;883
 ;;21,"42291-0607-18 ")
 ;;884
 ;;21,"42291-0607-60 ")
 ;;885
 ;;21,"42291-0607-90 ")
 ;;886
 ;;21,"42291-0610-10 ")
 ;;1043
 ;;21,"42291-0610-18 ")
 ;;1044
 ;;21,"42291-0610-36 ")
 ;;1045
 ;;21,"42291-0610-90 ")
 ;;1046
 ;;21,"42291-0611-18 ")
 ;;1121
 ;;21,"42291-0612-10 ")
 ;;219
 ;;21,"42291-0612-12 ")
 ;;220
 ;;21,"42291-0612-18 ")
 ;;221
 ;;21,"42291-0612-27 ")
 ;;222
 ;;21,"42291-0612-36 ")
 ;;223
 ;;21,"42291-0612-45 ")
 ;;224
 ;;21,"42291-0612-60 ")
 ;;225
 ;;21,"42291-0612-90 ")
 ;;226
 ;;21,"42291-0613-10 ")
 ;;532
 ;;21,"42291-0613-18 ")
 ;;533
 ;;21,"42291-0613-27 ")
 ;;534
 ;;21,"42291-0613-90 ")
 ;;535
 ;;21,"42291-0614-10 ")
 ;;887
 ;;21,"42291-0614-18 ")
 ;;888
 ;;21,"42291-0614-60 ")
 ;;889
 ;;21,"42291-0614-90 ")
 ;;890
 ;;21,"43063-0012-01 ")
 ;;88
 ;;21,"43063-0012-60 ")
 ;;89
 ;;21,"43063-0012-86 ")
 ;;90
 ;;21,"43063-0012-90 ")
 ;;91
 ;;21,"43063-0012-93 ")
 ;;92
 ;;21,"43063-0012-94 ")
 ;;93
 ;;21,"43063-0372-30 ")
 ;;1138
 ;;21,"43063-0397-86 ")
 ;;1379
 ;;21,"43063-0428-30 ")
 ;;946
 ;;21,"43063-0428-90 ")
 ;;1099
 ;;21,"43063-0428-93 ")
 ;;1100
 ;;21,"43063-0428-94 ")
 ;;1101
 ;;21,"43063-0429-93 ")
 ;;441
 ;;21,"43063-0429-94 ")
 ;;442
 ;;21,"43063-0430-30 ")
 ;;692
 ;;21,"43063-0430-60 ")
 ;;693
 ;;21,"43063-0430-90 ")
 ;;694
 ;;21,"43063-0430-93 ")
 ;;695
 ;;21,"43063-0430-94 ")
 ;;696
 ;;21,"43063-0430-98 ")
 ;;697
 ;;21,"43353-0065-53 ")
 ;;944
 ;;21,"43353-0065-60 ")
 ;;945
 ;;21,"43353-0065-80 ")
 ;;942
 ;;21,"43353-0065-94 ")
 ;;943
 ;;21,"43353-0171-60 ")
 ;;940
 ;;21,"43353-0340-30 ")
 ;;377
 ;;21,"43353-0340-53 ")
 ;;378
 ;;21,"43353-0340-60 ")
 ;;379
 ;;21,"43353-0340-70 ")
 ;;380
 ;;21,"43353-0340-75 ")
 ;;381
 ;;21,"43353-0340-80 ")
 ;;382
 ;;21,"43353-0340-92 ")
 ;;383
 ;;21,"43353-0340-94 ")
 ;;384
 ;;21,"43353-0340-96 ")
 ;;385
 ;;21,"43353-0344-53 ")
 ;;617
 ;;21,"43353-0344-60 ")
 ;;618
 ;;21,"43353-0344-80 ")
 ;;619
 ;;21,"43353-0344-92 ")
 ;;620
 ;;21,"43353-0349-30 ")
 ;;830
 ;;21,"43353-0349-45 ")
 ;;831
 ;;21,"43353-0349-53 ")
 ;;832
 ;;21,"43353-0349-60 ")
 ;;833
 ;;21,"43353-0349-73 ")
 ;;834
 ;;21,"43353-0349-80 ")
 ;;835
 ;;21,"43353-0349-86 ")
 ;;836
 ;;21,"43353-0477-30 ")
 ;;246
 ;;21,"43353-0477-53 ")
 ;;247
 ;;21,"43353-0477-60 ")
 ;;94
 ;;21,"43353-0477-70 ")
 ;;95
 ;;21,"43353-0477-80 ")
 ;;96
 ;;21,"43353-0477-92 ")
 ;;97
 ;;21,"43353-0477-94 ")
 ;;98
 ;;21,"43353-0477-96 ")
 ;;99
 ;;21,"43353-0514-30 ")
 ;;724
 ;;21,"43353-0514-45 ")
 ;;725
 ;;21,"43353-0514-53 ")
 ;;726
 ;;21,"43353-0514-60 ")
 ;;727
 ;;21,"43353-0514-73 ")
 ;;728
 ;;21,"43353-0514-80 ")
 ;;729
 ;;21,"43353-0514-86 ")
 ;;730
 ;;21,"43353-0520-60 ")
 ;;731
 ;;21,"43353-0520-80 ")
 ;;732
 ;;21,"43353-0530-60 ")
 ;;514
 ;;21,"43353-0530-80 ")
 ;;515
 ;;21,"43353-0585-94 ")
 ;;1034
 ;;21,"43353-0589-30 ")
 ;;201
 ;;21,"43353-0589-53 ")
 ;;202
 ;;21,"43353-0589-60 ")
 ;;203
 ;;21,"43353-0589-70 ")
 ;;204
 ;;21,"43353-0589-75 ")
 ;;205
 ;;21,"43353-0589-80 ")
 ;;206
 ;;21,"43353-0589-92 ")
 ;;207
 ;;21,"43353-0589-94 ")
 ;;208
 ;;21,"43353-0589-96 ")
 ;;209
 ;;21,"43353-0811-53 ")
 ;;488
 ;;21,"43547-0248-10 ")
 ;;30
 ;;21,"43547-0248-11 ")
 ;;31
 ;;21,"43547-0248-50 ")
 ;;32
 ;;21,"43547-0249-10 ")
 ;;437
 ;;21,"43547-0249-11 ")
 ;;438
 ;;21,"43547-0249-50 ")
 ;;439
 ;;21,"43547-0250-10 ")
 ;;701
 ;;21,"43547-0250-11 ")
 ;;702
 ;;21,"43547-0250-50 ")
 ;;703
 ;;21,"43547-0320-11 ")
 ;;29
 ;;21,"43547-0321-50 ")
 ;;440
 ;;21,"43547-0322-50 ")
 ;;698
 ;;21,"43683-0131-30 ")
 ;;699
 ;;21,"43683-0131-60 ")
 ;;700
 ;;21,"43683-0132-30 ")
 ;;25
 ;;21,"43683-0132-60 ")
 ;;26
 ;;21,"45963-0753-02 ")
 ;;1414
 ;;21,"47463-0246-30 ")
 ;;1218
 ;;21,"47463-0247-30 ")
 ;;1242
 ;;21,"47463-0434-60 ")
 ;;1177
 ;;21,"47463-0435-60 ")
 ;;1173
 ;;21,"47463-0508-30 ")
 ;;891
 ;;21,"47463-0509-30 ")
 ;;197
 ;;21,"47463-0509-60 ")
 ;;198
 ;;21,"47463-0509-74 ")
 ;;199
 ;;21,"47463-0509-90 ")
 ;;200
 ;;21,"47463-0510-30 ")
 ;;1035
 ;;21,"47463-0510-60 ")
 ;;1036
 ;;21,"47463-0510-71 ")
 ;;1037
 ;;21,"47463-0510-74 ")
 ;;1038
 ;;21,"47463-0510-90 ")
 ;;1039
 ;;21,"47463-0611-60 ")
 ;;679
 ;;21,"47463-0611-74 ")
 ;;680
 ;;21,"47463-0612-30 ")
 ;;464
 ;;21,"49884-0736-01 ")
 ;;27
 ;;21,"49884-0736-05 ")
 ;;28
 ;;21,"49884-0737-01 ")
 ;;443
 ;;21,"49884-0737-05 ")
 ;;444
 ;;21,"49884-0738-01 ")
 ;;688
 ;;21,"49884-0738-05 ")
 ;;689
 ;;21,"49884-0739-01 ")
 ;;23
 ;;21,"49884-0739-05 ")
 ;;24
 ;;21,"49884-0740-01 ")
 ;;445
 ;;21,"49884-0740-05 ")
 ;;446
 ;;21,"49884-0741-01 ")
 ;;686
 ;;21,"49884-0741-05 ")
 ;;687
 ;;21,"49884-0921-01 ")
 ;;1069
 ;;21,"49884-0921-05 ")
 ;;1070
 ;;21,"49884-0967-01 ")
 ;;1269
 ;;21,"49884-0967-05 ")
 ;;1270
 ;;21,"49884-0968-01 ")
 ;;1338
 ;;21,"49884-0968-05 ")
 ;;1339
 ;;21,"49884-0969-01 ")
 ;;1449
 ;;21,"49884-0969-05 ")
 ;;1450
 ;;21,"49999-0106-00 ")
 ;;74
 ;;21,"49999-0106-01 ")
 ;;75
 ;;21,"49999-0106-28 ")
 ;;76
 ;;21,"49999-0106-30 ")
 ;;77
 ;;21,"49999-0106-60 ")
 ;;78
 ;;21,"49999-0106-90 ")
 ;;79
 ;;21,"49999-0116-00 ")
 ;;681
 ;;21,"49999-0116-30 ")
 ;;682
 ;;21,"49999-0116-60 ")
 ;;683
 ;;21,"49999-0401-30 ")
 ;;1415
 ;;21,"49999-0401-60 ")
 ;;1416
 ;;21,"49999-0401-90 ")
 ;;1413
 ;;21,"49999-0495-30 ")
 ;;489
 ;;21,"49999-0495-60 ")
 ;;490
 ;;21,"49999-0660-30 ")
 ;;1365
 ;;21,"49999-0660-60 ")
 ;;1366
 ;;21,"49999-0820-30 ")
 ;;1040
 ;;21,"49999-0820-60 ")
 ;;1041
 ;;21,"49999-0820-90 ")
 ;;1042
 ;;21,"50268-0531-15 ")
 ;;973
 ;;21,"51079-0172-01 ")
 ;;134
 ;;21,"51079-0172-20 ")
 ;;135
 ;;21,"51079-0173-01 ")
 ;;486
 ;;21,"51079-0173-08 ")
 ;;487
 ;;21,"51079-0174-01 ")
 ;;749
 ;;21,"51079-0174-20 ")
 ;;750
 ;;21,"51079-0626-01 ")
 ;;1012
 ;;21,"51079-0626-20 ")
 ;;1013
 ;;21,"51079-0627-01 ")
 ;;1119
 ;;21,"51079-0627-20 ")
 ;;1120
 ;;21,"51079-0972-01 ")
 ;;355
 ;;21,"51079-0972-17 ")
 ;;356
 ;;21,"51079-0972-19 ")
 ;;357
 ;;21,"51079-0972-20 ")
 ;;358
 ;;21,"51079-0972-30 ")
 ;;359
 ;;21,"51079-0972-56 ")
 ;;360
 ;;21,"51079-0972-57 ")
 ;;361
 ;;21,"51079-0973-01 ")
 ;;628
 ;;21,"51079-0973-20 ")
 ;;629
 ;;21,"51079-0995-01 ")
 ;;690
 ;;21,"51079-0995-20 ")
 ;;691
 ;;21,"51138-0074-30 ")
 ;;165
 ;;21,"51138-0075-30 ")
 ;;517
 ;;21,"51138-0076-30 ")
 ;;929
 ;;21,"51138-0083-30 ")
 ;;166
 ;;21,"51138-0084-30 ")
 ;;516
 ;;21,"51138-0085-30 ")
 ;;930
 ;;21,"51138-0470-30 ")
 ;;1259
 ;;21,"51138-0471-30 ")
 ;;1312
 ;;21,"51138-0472-30 ")
 ;;1392
 ;;21,"51138-0473-30 ")
 ;;1258
 ;;21,"51138-0474-30 ")
 ;;1313
 ;;21,"51138-0475-30 ")
 ;;1391
 ;;21,"51138-0495-20 ")
 ;;1494
 ;;21,"51138-0495-30 ")
 ;;1495
 ;;21,"51138-0496-30 ")
 ;;1508
 ;;21,"51138-0497-30 ")
 ;;1500
 ;;21,"51138-0498-30 ")
 ;;1509
 ;;21,"51138-0526-30 ")
 ;;1174
 ;;21,"51138-0527-30 ")
 ;;1176
 ;;21,"51138-0537-10 ")
 ;;1071
 ;;21,"51138-0537-30 ")
 ;;1072
 ;;21,"51138-0538-10 ")
 ;;1133
 ;;21,"51138-0538-30 ")
 ;;1134
 ;;21,"51138-0539-10 ")
 ;;1073
 ;;21,"51138-0539-30 ")
 ;;1074
 ;;21,"51138-0540-10 ")
 ;;1132
 ;;21,"51138-0540-30 ")
 ;;1128
 ;;21,"52959-0207-00 ")
 ;;351
 ;;21,"52959-0207-28 ")
 ;;352
 ;;21,"52959-0207-30 ")
 ;;353
 ;;21,"52959-0207-60 ")
 ;;354
 ;;21,"52959-0860-02 ")
 ;;826
 ;;21,"52959-0860-30 ")
 ;;827
 ;;21,"52959-0860-60 ")
 ;;828
 ;;21,"52959-0860-90 ")
 ;;829
 ;;21,"52959-0896-01 ")
 ;;509
 ;;21,"52959-0896-60 ")
 ;;510
 ;;21,"53002-1251-00 ")
 ;;127
 ;;21,"53002-1251-03 ")
 ;;128
 ;;21,"53002-1251-06 ")
 ;;129
 ;;21,"53002-1422-00 ")
 ;;427
 ;;21,"53002-1422-03 ")
 ;;428
 ;;21,"53002-1422-06 ")
 ;;429
 ;;21,"53002-1445-00 ")
 ;;710
 ;;21,"53002-1445-03 ")
 ;;711
 ;;21,"53002-1445-06 ")
 ;;712
 ;;21,"53489-0467-01 ")
 ;;71
 ;;21,"53489-0467-05 ")
 ;;72
 ;;21,"53489-0467-10 ")
 ;;73
 ;;21,"53489-0468-01 ")
 ;;465
 ;;21,"53489-0468-05 ")
 ;;466
 ;;21,"53489-0468-10 ")
 ;;467
 ;;21,"53489-0469-01 ")
 ;;676
 ;;21,"53489-0469-05 ")
 ;;677
 ;;21,"53489-0469-10 ")
 ;;678
 ;;21,"53746-0178-01 ")
 ;;1014
 ;;21,"53746-0178-05 ")
 ;;1015
 ;;21,"53746-0178-10 ")
 ;;1016
 ;;21,"53746-0178-90 ")
 ;;1017
 ;;21,"53746-0179-01 ")
 ;;1114
 ;;21,"53746-0179-05 ")
 ;;1115
 ;;21,"53746-0218-01 ")
 ;;243
 ;;21,"53746-0218-05 ")
 ;;244
 ;;21,"53746-0218-10 ")
 ;;245
 ;;21,"53746-0219-01 ")
 ;;549
 ;;21,"53746-0219-05 ")
 ;;550
 ;;21,"53746-0219-10 ")
 ;;551
 ;;21,"53746-0220-01 ")
 ;;766
 ;;21,"53746-0220-05 ")
 ;;767
 ;;21,"53746-0220-10 ")
 ;;768
 ;;21,"54458-0974-06 ")
 ;;1075
 ;;21,"54569-4202-00 ")
 ;;19
 ;;21,"54569-4202-01 ")
 ;;20
 ;;21,"54569-4202-02 ")
 ;;21
 ;;21,"54569-4202-03 ")
 ;;22
 ;;21,"54569-4740-00 ")
 ;;411
 ;;21,"54569-4740-01 ")
 ;;412
 ;;21,"54569-4786-00 ")
 ;;658
 ;;21,"54569-4786-01 ")
 ;;656
 ;;21,"54569-5210-00 ")
 ;;1297
 ;;21,"54569-5210-01 ")
 ;;1298
 ;;21,"54569-5211-00 ")
 ;;1371
 ;;21,"54569-5211-01 ")
 ;;1372
 ;;21,"54569-5252-00 ")
 ;;951
 ;;21,"54569-5252-01 ")
 ;;952
 ;;21,"54569-5252-02 ")
 ;;953
 ;;21,"54569-5353-00 ")
 ;;480
 ;;21,"54569-5353-02 ")
 ;;481
 ;;21,"54569-5353-03 ")
 ;;482
 ;;21,"54569-5353-04 ")
 ;;483
 ;;21,"54569-5353-05 ")
 ;;484
 ;;21,"54569-5353-06 ")
 ;;485
 ;;21,"54569-5360-00 ")
 ;;136
 ;;21,"54569-5360-03 ")
 ;;137
 ;;21,"54569-5360-04 ")
 ;;138
 ;;21,"54569-5360-05 ")
 ;;139
 ;;21,"54569-5360-06 ")
 ;;140
 ;;21,"54569-5373-00 ")
 ;;751
 ;;21,"54569-5373-02 ")
 ;;752
 ;;21,"54569-5373-03 ")
 ;;753
 ;;21,"54569-5373-04 ")
 ;;754
 ;;21,"54569-5546-00 ")
 ;;1076
 ;;21,"54569-5546-01 ")
 ;;1077
 ;;21,"54569-5546-02 ")
 ;;1078
 ;;21,"54569-5546-03 ")
 ;;1079
 ;;21,"54569-5603-00 ")
 ;;1496