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

BGP48K2.m

Go to the documentation of this file.
BGP48K2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 24, 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,"00781-3655-05 ")
 ;;79
 ;;21,"00781-3655-69 ")
 ;;80
 ;;21,"00832-1211-00 ")
 ;;619
 ;;21,"00832-1211-01 ")
 ;;620
 ;;21,"00832-1211-10 ")
 ;;621
 ;;21,"00832-1211-89 ")
 ;;622
 ;;21,"00832-1212-00 ")
 ;;782
 ;;21,"00832-1212-01 ")
 ;;783
 ;;21,"00832-1212-10 ")
 ;;784
 ;;21,"00832-1212-89 ")
 ;;785
 ;;21,"00832-1213-00 ")
 ;;898
 ;;21,"00832-1213-01 ")
 ;;899
 ;;21,"00832-1213-10 ")
 ;;900
 ;;21,"00832-1213-89 ")
 ;;901
 ;;21,"00832-1214-00 ")
 ;;986
 ;;21,"00832-1214-01 ")
 ;;987
 ;;21,"00832-1214-10 ")
 ;;988
 ;;21,"00832-1214-89 ")
 ;;989
 ;;21,"00832-1215-00 ")
 ;;1050
 ;;21,"00832-1215-01 ")
 ;;1051
 ;;21,"00832-1215-10 ")
 ;;1052
 ;;21,"00832-1215-89 ")
 ;;1053
 ;;21,"00832-1216-00 ")
 ;;1175
 ;;21,"00832-1216-01 ")
 ;;1176
 ;;21,"00832-1216-10 ")
 ;;1177
 ;;21,"00832-1216-89 ")
 ;;1178
 ;;21,"00832-1217-00 ")
 ;;1318
 ;;21,"00832-1217-01 ")
 ;;1319
 ;;21,"00832-1217-10 ")
 ;;1320
 ;;21,"00832-1217-89 ")
 ;;1321
 ;;21,"00832-1218-00 ")
 ;;1367
 ;;21,"00832-1218-01 ")
 ;;1368
 ;;21,"00832-1218-50 ")
 ;;1369
 ;;21,"00832-1218-89 ")
 ;;1370
 ;;21,"00832-1219-00 ")
 ;;708
 ;;21,"00832-1219-01 ")
 ;;709
 ;;21,"00832-1219-50 ")
 ;;710
 ;;21,"00832-1219-89 ")
 ;;711
 ;;21,"00955-1003-10 ")
 ;;93
 ;;21,"00955-1004-10 ")
 ;;107
 ;;21,"00955-1006-10 ")
 ;;115
 ;;21,"00955-1008-10 ")
 ;;125
 ;;21,"00955-1010-10 ")
 ;;60
 ;;21,"00955-1012-10 ")
 ;;70
 ;;21,"00955-1015-10 ")
 ;;78
 ;;21,"00955-1016-01 ")
 ;;100
 ;;21,"08290-0340-02 ")
 ;;510
 ;;21,"08290-0340-03 ")
 ;;511
 ;;21,"08290-0350-05 ")
 ;;512
 ;;21,"08290-0360-03 ")
 ;;513
 ;;21,"08290-0360-05 ")
 ;;514
 ;;21,"08290-0360-06 ")
 ;;515
 ;;21,"08290-0361-05 ")
 ;;516
 ;;21,"08290-0370-02 ")
 ;;548
 ;;21,"08290-0370-03 ")
 ;;549
 ;;21,"08290-0380-03 ")
 ;;550
 ;;21,"08290-0380-05 ")
 ;;554
 ;;21,"08290-0390-03 ")
 ;;551
 ;;21,"08290-0390-05 ")
 ;;555
 ;;21,"08290-0391-05 ")
 ;;556
 ;;21,"08290-0400-03 ")
 ;;565
 ;;21,"08290-0410-03 ")
 ;;573
 ;;21,"08290-0420-05 ")
 ;;581
 ;;21,"08290-3064-13 ")
 ;;209
 ;;21,"08290-3064-14 ")
 ;;210
 ;;21,"08290-3064-23 ")
 ;;220
 ;;21,"08290-3064-24 ")
 ;;224
 ;;21,"08290-3065-09 ")
 ;;205
 ;;21,"08290-3065-10 ")
 ;;206
 ;;21,"08290-3065-11 ")
 ;;207
 ;;21,"08290-3065-12 ")
 ;;208
 ;;21,"08290-3065-13 ")
 ;;225
 ;;21,"08290-3065-14 ")
 ;;221
 ;;21,"08290-3065-15 ")
 ;;226
 ;;21,"08290-3065-16 ")
 ;;222
 ;;21,"08290-3065-17 ")
 ;;223
 ;;21,"08290-3065-21 ")
 ;;421
 ;;21,"08290-3065-25 ")
 ;;517
 ;;21,"08290-3065-27 ")
 ;;422
 ;;21,"08290-3065-28 ")
 ;;487
 ;;21,"08290-3065-31 ")
 ;;553
 ;;21,"08290-3065-37 ")
 ;;582
 ;;21,"08290-3065-38 ")
 ;;566
 ;;21,"08290-3065-39 ")
 ;;583
 ;;21,"08450-6026-03 ")
 ;;394
 ;;21,"08450-6030-05 ")
 ;;395
 ;;21,"08450-6034-03 ")
 ;;396
 ;;21,"08450-6037-05 ")
 ;;397
 ;;21,"08450-6046-03 ")
 ;;479
 ;;21,"08450-6049-03 ")
 ;;480
 ;;21,"08450-6050-05 ")
 ;;481
 ;;21,"08450-6055-03 ")
 ;;482
 ;;21,"08450-6058-05 ")
 ;;483
 ;;21,"08881-5801-21 ")
 ;;402
 ;;21,"08881-5801-23 ")
 ;;403
 ;;21,"08881-5801-25 ")
 ;;404
 ;;21,"08881-5811-25 ")
 ;;521
 ;;21,"08881-5813-00 ")
 ;;522
 ;;21,"08881-5901-21 ")
 ;;448
 ;;21,"08881-5901-23 ")
 ;;442
 ;;21,"08881-5901-25 ")
 ;;445
 ;;21,"08881-5911-25 ")
 ;;546
 ;;21,"08881-5913-00 ")
 ;;547
 ;;21,"10974-0008-05 ")
 ;;305
 ;;21,"12280-0312-30 ")
 ;;906
 ;;21,"12280-0312-60 ")
 ;;907
 ;;21,"12280-0312-90 ")
 ;;908
 ;;21,"15330-0100-01 ")
 ;;625
 ;;21,"15330-0100-10 ")
 ;;626
 ;;21,"15330-0101-01 ")
 ;;839
 ;;21,"15330-0101-10 ")
 ;;840
 ;;21,"15330-0102-01 ")
 ;;903
 ;;21,"15330-0102-10 ")
 ;;904
 ;;21,"15330-0106-01 ")
 ;;1324
 ;;21,"15330-0107-01 ")
 ;;1376
 ;;21,"15330-0108-01 ")
 ;;716
 ;;21,"15330-0266-01 ")
 ;;1013
 ;;21,"15330-0267-01 ")
 ;;1084
 ;;21,"15330-0268-01 ")
 ;;1217
 ;;21,"15330-0268-10 ")
 ;;1218
 ;;21,"16590-0340-30 ")
 ;;914
 ;;21,"16590-0340-60 ")
 ;;915
 ;;21,"16590-0340-90 ")
 ;;916
 ;;21,"16590-0341-30 ")
 ;;1181
 ;;21,"16590-0341-60 ")
 ;;1182
 ;;21,"16590-0341-90 ")
 ;;1183
 ;;21,"17474-0123-01 ")
 ;;405
 ;;21,"17474-0123-02 ")
 ;;406
 ;;21,"17474-0123-03 ")
 ;;407
 ;;21,"17474-0123-05 ")
 ;;408
 ;;21,"17474-0125-01 ")
 ;;430
 ;;21,"17474-0125-02 ")
 ;;431
 ;;21,"17474-0125-03 ")
 ;;432
 ;;21,"17474-0125-05 ")
 ;;433
 ;;21,"21695-0672-30 ")
 ;;627
 ;;21,"21695-0673-30 ")
 ;;837
 ;;21,"21695-0673-60 ")
 ;;838
 ;;21,"21695-0674-30 ")
 ;;905
 ;;21,"21695-0675-30 ")
 ;;1014
 ;;21,"21695-0677-30 ")
 ;;1219
 ;;21,"21695-0801-30 ")
 ;;717
 ;;21,"21695-0939-30 ")
 ;;1092
 ;;21,"21695-0940-30 ")
 ;;1377
 ;;21,"23490-6478-01 ")
 ;;630
 ;;21,"23490-6478-02 ")
 ;;631
 ;;21,"23490-6478-03 ")
 ;;632
 ;;21,"23490-6480-01 ")
 ;;832
 ;;21,"23490-6480-02 ")
 ;;833
 ;;21,"23490-6480-03 ")
 ;;834
 ;;21,"23490-6481-01 ")
 ;;911
 ;;21,"23490-6481-02 ")
 ;;912
 ;;21,"23490-6481-03 ")
 ;;913
 ;;21,"23490-6482-01 ")
 ;;1087
 ;;21,"23490-6482-02 ")
 ;;1088
 ;;21,"23490-6482-03 ")
 ;;1089
 ;;21,"23490-6483-01 ")
 ;;1212
 ;;21,"23490-6483-02 ")
 ;;1213
 ;;21,"23490-6483-03 ")
 ;;1214
 ;;21,"23490-6484-01 ")
 ;;1373
 ;;21,"23490-6484-02 ")
 ;;1374
 ;;21,"23490-6484-03 ")
 ;;1375
 ;;21,"24200-0661-10 ")
 ;;186
 ;;21,"24200-0662-48 ")
 ;;176
 ;;21,"24200-1660-10 ")
 ;;589
 ;;21,"25021-0400-01 ")
 ;;267
 ;;21,"25021-0400-10 ")
 ;;268
 ;;21,"25021-0400-30 ")
 ;;269
 ;;21,"25021-0401-02 ")
 ;;259
 ;;21,"25021-0402-01 ")
 ;;332
 ;;21,"25021-0402-10 ")
 ;;333
 ;;21,"25021-0403-01 ")
 ;;303
 ;;21,"25021-0403-04 ")
 ;;304
 ;;21,"25021-0404-01 ")
 ;;318
 ;;21,"31722-0327-01 ")
 ;;628
 ;;21,"31722-0327-10 ")
 ;;629
 ;;21,"31722-0328-01 ")
 ;;835
 ;;21,"31722-0328-10 ")
 ;;836
 ;;21,"31722-0329-01 ")
 ;;909
 ;;21,"31722-0329-10 ")
 ;;910
 ;;21,"31722-0330-01 ")
 ;;1011
 ;;21,"31722-0330-10 ")
 ;;1012
 ;;21,"31722-0331-01 ")
 ;;1085
 ;;21,"31722-0331-10 ")
 ;;1086
 ;;21,"31722-0332-01 ")
 ;;1215
 ;;21,"31722-0332-10 ")
 ;;1216
 ;;21,"31722-0333-01 ")
 ;;1325
 ;;21,"31722-0334-01 ")
 ;;1372
 ;;21,"31722-0335-01 ")
 ;;718
 ;;21,"33261-0357-07 ")
 ;;1184
 ;;21,"33261-0357-14 ")
 ;;1185
 ;;21,"33261-0357-20 ")
 ;;1186
 ;;21,"33261-0357-21 ")
 ;;1187
 ;;21,"33261-0357-28 ")
 ;;1188
 ;;21,"33261-0357-30 ")
 ;;1189
 ;;21,"33261-0357-60 ")
 ;;1190
 ;;21,"33261-0357-90 ")
 ;;1191
 ;;21,"33261-0990-00 ")
 ;;1066
 ;;21,"33261-0990-30 ")
 ;;1067
 ;;21,"33261-0990-60 ")
 ;;1068
 ;;21,"33261-0990-90 ")
 ;;1069
 ;;21,"33358-0360-00 ")
 ;;849
 ;;21,"33358-0361-30 ")
 ;;1229
 ;;21,"35356-0018-10 ")
 ;;53
 ;;21,"35356-0019-10 ")
 ;;29
 ;;21,"35356-0020-10 ")
 ;;40
 ;;21,"35356-0078-02 ")
 ;;160
 ;;21,"35356-0078-10 ")
 ;;161
 ;;21,"35356-0079-02 ")
 ;;142
 ;;21,"35356-0079-10 ")
 ;;143
 ;;21,"35356-0080-02 ")
 ;;151
 ;;21,"35356-0080-10 ")
 ;;152
 ;;21,"35356-0081-02 ")
 ;;140
 ;;21,"35356-0081-10 ")
 ;;141
 ;;21,"35356-0397-30 ")
 ;;917
 ;;21,"35356-0397-60 ")
 ;;918
 ;;21,"35356-0397-90 ")
 ;;919
 ;;21,"35356-0481-10 ")
 ;;26
 ;;21,"35356-0540-90 ")
 ;;610
 ;;21,"35356-0571-30 ")
 ;;822
 ;;21,"35356-0571-60 ")
 ;;823
 ;;21,"35356-0571-90 ")
 ;;824
 ;;21,"35356-0582-30 ")
 ;;676
 ;;21,"35356-0582-60 ")
 ;;677
 ;;21,"35356-0582-90 ")
 ;;678
 ;;21,"35356-0906-30 ")
 ;;1005
 ;;21,"35356-0906-90 ")
 ;;1006
 ;;21,"42549-0496-30 ")
 ;;805
 ;;21,"42549-0497-30 ")
 ;;694
 ;;21,"43063-0218-30 ")
 ;;1109
 ;;21,"43353-0049-30 ")
 ;;1090
 ;;21,"43353-0049-60 ")
 ;;1091
 ;;21,"43353-0050-15 ")
 ;;1192
 ;;21,"43353-0050-20 ")
 ;;1193
 ;;21,"43353-0050-25 ")
 ;;1194
 ;;21,"43353-0050-28 ")
 ;;1195
 ;;21,"43353-0050-30 ")
 ;;1196
 ;;21,"43353-0050-35 ")
 ;;1197
 ;;21,"43353-0050-38 ")
 ;;1198
 ;;21,"43353-0050-40 ")
 ;;1199
 ;;21,"43353-0050-45 ")
 ;;1200
 ;;21,"43353-0050-50 ")
 ;;1201
 ;;21,"43353-0050-53 ")
 ;;1202
 ;;21,"43353-0050-55 ")
 ;;1203
 ;;21,"43353-0050-57 ")
 ;;1204
 ;;21,"43353-0050-60 ")
 ;;1205
 ;;21,"43353-0050-61 ")
 ;;1206
 ;;21,"43353-0050-65 ")
 ;;1207
 ;;21,"43353-0050-68 ")
 ;;1208
 ;;21,"43353-0050-70 ")
 ;;1209
 ;;21,"43353-0050-78 ")
 ;;1210
 ;;21,"43353-0089-30 ")
 ;;991
 ;;21,"43353-0089-60 ")
 ;;992
 ;;21,"43353-0142-30 ")
 ;;942
 ;;21,"43353-0142-40 ")
 ;;943
 ;;21,"43353-0142-45 ")
 ;;944
 ;;21,"43353-0142-53 ")
 ;;945
 ;;21,"43353-0142-60 ")
 ;;946
 ;;21,"43353-0491-30 ")
 ;;732
 ;;21,"43353-0492-30 ")
 ;;1007
 ;;21,"43353-0492-60 ")
 ;;1008
 ;;21,"43353-0493-30 ")
 ;;651
 ;;21,"43353-0493-60 ")
 ;;652
 ;;21,"43353-0494-30 ")
 ;;1397
 ;;21,"43353-0578-30 ")
 ;;742
 ;;21,"43353-0579-30 ")
 ;;1405
 ;;21,"43353-0584-30 ")
 ;;695
 ;;21,"43353-0584-60 ")
 ;;696
 ;;21,"43353-0587-30 ")
 ;;1346
 ;;21,"43683-0117-30 ")
 ;;1211
 ;;21,"43683-0118-30 ")
 ;;1010
 ;;21,"49999-0093-30 ")
 ;;1138
 ;;21,"49999-0411-30 ")
 ;;875
 ;;21,"49999-0576-00 ")
 ;;1277
 ;;21,"49999-0576-10 ")
 ;;1278
 ;;21,"49999-0576-20 ")
 ;;1279
 ;;21,"49999-0576-30 ")
 ;;1280
 ;;21,"49999-0576-60 ")
 ;;1281
 ;;21,"49999-0576-90 ")
 ;;1282
 ;;21,"49999-0829-00 ")
 ;;1378
 ;;21,"49999-0923-10 ")
 ;;1070
 ;;21,"49999-0923-30 ")
 ;;1071
 ;;21,"49999-0923-60 ")
 ;;1072
 ;;21,"49999-0923-90 ")
 ;;1073
 ;;21,"51138-0054-30 ")
 ;;686
 ;;21,"51138-0055-30 ")
 ;;788
 ;;21,"51138-0056-30 ")
 ;;964
 ;;21,"51138-0057-30 ")
 ;;1022
 ;;21,"51138-0058-30 ")
 ;;1055
 ;;21,"51138-0059-30 ")
 ;;1303
 ;;21,"51138-0060-30 ")
 ;;1347
 ;;21,"51138-0061-30 ")
 ;;1412
 ;;21,"51138-0062-30 ")
 ;;743
 ;;21,"51138-0179-30 ")
 ;;679
 ;;21,"51138-0180-30 ")
 ;;827
 ;;21,"51138-0180-60 ")
 ;;828
 ;;21,"51138-0181-30 ")
 ;;972
 ;;21,"51138-0182-30 ")
 ;;1038
 ;;21,"51138-0183-30 ")
 ;;1081
 ;;21,"51138-0184-30 ")
 ;;1276
 ;;21,"51138-0185-30 ")
 ;;1341
 ;;21,"51138-0186-30 ")
 ;;1399
 ;;21,"51138-0187-30 ")
 ;;734
 ;;21,"51138-0195-30 ")
 ;;675
 ;;21,"51138-0196-30 ")
 ;;825
 ;;21,"51138-0196-60 ")
 ;;826
 ;;21,"51138-0197-30 ")
 ;;973
 ;;21,"51138-0198-30 ")
 ;;1037
 ;;21,"51138-0199-30 ")
 ;;1082
 ;;21,"51138-0200-30 ")
 ;;1269
 ;;21,"51138-0201-30 ")
 ;;1342
 ;;21,"51138-0202-30 ")
 ;;1398
 ;;21,"51138-0203-30 ")
 ;;735
 ;;21,"51138-0482-10 ")
 ;;612
 ;;21,"51138-0482-30 ")
 ;;613
 ;;21,"51138-0483-30 ")
 ;;761
 ;;21,"51138-0484-10 ")
 ;;890
 ;;21,"51138-0484-30 ")
 ;;891
 ;;21,"51138-0484-45 ")
 ;;892
 ;;21,"51138-0485-10 ")
 ;;976
 ;;21,"51138-0485-30 ")
 ;;977
 ;;21,"51138-0486-10 ")
 ;;1040
 ;;21,"51138-0486-30 ")
 ;;1041
 ;;21,"51138-0487-10 ")
 ;;1158
 ;;21,"51138-0487-20 ")
 ;;1159
 ;;21,"51138-0487-30 ")
 ;;1160
 ;;21,"51138-0487-75 ")
 ;;1161
 ;;21,"51138-0488-10 ")
 ;;1312
 ;;21,"51138-0488-30 ")
 ;;1313
 ;;21,"51138-0489-30 ")
 ;;1362
 ;;21,"51138-0490-10 ")
 ;;701
 ;;21,"51138-0490-30 ")
 ;;702
 ;;21,"51672-4027-01 ")
 ;;687
 ;;21,"51672-4027-03 ")
 ;;688
 ;;21,"51672-4027-07 ")
 ;;689
 ;;21,"51672-4028-01 ")
 ;;789
 ;;21,"51672-4028-03 ")
 ;;790
 ;;21,"51672-4028-07 ")
 ;;791
 ;;21,"51672-4029-01 ")
 ;;961
 ;;21,"51672-4029-03 ")
 ;;962
 ;;21,"51672-4029-07 ")
 ;;963
 ;;21,"51672-4030-01 ")
 ;;1023
 ;;21,"51672-4030-03 ")
 ;;1024
 ;;21,"51672-4030-07 ")
 ;;1025
 ;;21,"51672-4031-01 ")
 ;;1056
 ;;21,"51672-4031-03 ")
 ;;1057
 ;;21,"51672-4031-07 ")
 ;;1058
 ;;21,"51672-4032-01 ")
 ;;1300
 ;;21,"51672-4032-03 ")
 ;;1301
 ;;21,"51672-4032-07 ")
 ;;1302
 ;;21,"51672-4033-01 ")
 ;;1348
 ;;21,"51672-4033-03 ")
 ;;1349
 ;;21,"51672-4034-01 ")
 ;;1410
 ;;21,"51672-4034-03 ")
 ;;1411
 ;;21,"51672-4035-01 ")
 ;;744
 ;;21,"51672-4035-03 ")
 ;;745
 ;;21,"52533-0104-70 ")
 ;;182
 ;;21,"52959-0924-30 ")
 ;;624
 ;;21,"52959-0925-30 ")
 ;;831
 ;;21,"52959-0926-30 ")
 ;;1180
 ;;21,"53217-0001-00 ")
 ;;746
 ;;21,"53217-0001-30 ")
 ;;747
 ;;21,"53217-0001-60 ")
 ;;748
 ;;21,"53217-0001-90 ")
 ;;749
 ;;21,"53258-0813-05 ")
 ;;191
 ;;21,"53258-0833-07 ")
 ;;197
 ;;21,"54569-0158-00 ")
 ;;755
 ;;21,"54569-0158-01 ")
 ;;762
 ;;21,"54569-0159-00 ")
 ;;1124
 ;;21,"54569-0159-01 ")
 ;;1125
 ;;21,"54569-0212-01 ")
 ;;876
 ;;21,"54569-0212-02 ")
 ;;877
 ;;21,"54569-1496-00 ")
 ;;545
 ;;21,"54569-4216-00 ")
 ;;309
 ;;21,"54569-4443-00 ")
 ;;608
 ;;21,"54569-4443-01 ")
 ;;609
 ;;21,"54569-4934-00 ")
 ;;1304
 ;;21,"54569-4934-01 ")
 ;;1305
 ;;21,"54569-4934-02 ")
 ;;1306
 ;;21,"54569-5742-00 ")
 ;;38
 ;;21,"54569-5742-01 ")
 ;;39
 ;;21,"54569-5868-00 ")
 ;;930
 ;;21,"54569-5869-00 ")
 ;;1108
 ;;21,"54569-6224-00 ")
 ;;787
 ;;21,"54569-6225-00 ")
 ;;685
 ;;21,"54569-6312-00 ")
 ;;1345
 ;;21,"54569-6313-00 ")
 ;;1400
 ;;21,"54569-6313-01 ")
 ;;1401
 ;;21,"54569-6394-00 ")
 ;;1036
 ;;21,"54569-6427-00 ")
 ;;741
 ;;21,"54868-0485-00 ")
 ;;255
 ;;21,"54868-0822-00 ")
 ;;786
 ;;21,"54868-0825-00 ")
 ;;1054