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

BGP81W4.m

Go to the documentation of this file.
BGP81W4 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
 ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
 ;
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,"52959-0033-25 ")
 ;;1024
 ;;21,"52959-0033-30 ")
 ;;1025
 ;;21,"52959-0033-60 ")
 ;;1026
 ;;21,"52959-0033-90 ")
 ;;1027
 ;;21,"52959-0043-60 ")
 ;;1028
 ;;21,"52959-0074-12 ")
 ;;1029
 ;;21,"52959-0074-13 ")
 ;;1030
 ;;21,"52959-0074-15 ")
 ;;1031
 ;;21,"52959-0074-16 ")
 ;;1032
 ;;21,"52959-0074-20 ")
 ;;1033
 ;;21,"52959-0074-21 ")
 ;;1034
 ;;21,"52959-0074-24 ")
 ;;1035
 ;;21,"52959-0074-30 ")
 ;;1036
 ;;21,"52959-0074-40 ")
 ;;1037
 ;;21,"52959-0074-50 ")
 ;;1038
 ;;21,"52959-0074-60 ")
 ;;1039
 ;;21,"52959-0074-90 ")
 ;;1040
 ;;21,"52959-0118-03 ")
 ;;1041
 ;;21,"52959-0118-04 ")
 ;;1042
 ;;21,"52959-0118-05 ")
 ;;1043
 ;;21,"52959-0118-08 ")
 ;;1044
 ;;21,"52959-0157-00 ")
 ;;1045
 ;;21,"52959-0157-10 ")
 ;;1046
 ;;21,"52959-0157-12 ")
 ;;1047
 ;;21,"52959-0157-15 ")
 ;;1048
 ;;21,"52959-0157-20 ")
 ;;1049
 ;;21,"52959-0157-30 ")
 ;;1050
 ;;21,"52959-0157-50 ")
 ;;1051
 ;;21,"52959-0168-00 ")
 ;;1052
 ;;21,"52959-0168-30 ")
 ;;1053
 ;;21,"52959-0175-02 ")
 ;;1054
 ;;21,"52959-0175-30 ")
 ;;1055
 ;;21,"52959-0221-00 ")
 ;;1056
 ;;21,"52959-0221-20 ")
 ;;1057
 ;;21,"52959-0221-30 ")
 ;;1058
 ;;21,"52959-0225-00 ")
 ;;1059
 ;;21,"52959-0225-07 ")
 ;;1060
 ;;21,"52959-0225-12 ")
 ;;1061
 ;;21,"52959-0225-20 ")
 ;;1062
 ;;21,"52959-0225-21 ")
 ;;1063
 ;;21,"52959-0225-30 ")
 ;;1064
 ;;21,"52959-0225-60 ")
 ;;1065
 ;;21,"52959-0225-90 ")
 ;;1066
 ;;21,"52959-0229-04 ")
 ;;1067
 ;;21,"52959-0237-12 ")
 ;;1068
 ;;21,"52959-0274-03 ")
 ;;1069
 ;;21,"52959-0274-06 ")
 ;;1070
 ;;21,"52959-0274-30 ")
 ;;1071
 ;;21,"52959-0327-20 ")
 ;;1072
 ;;21,"52959-0327-30 ")
 ;;1073
 ;;21,"52959-0390-30 ")
 ;;1074
 ;;21,"52959-0433-10 ")
 ;;1075
 ;;21,"52959-0433-15 ")
 ;;1076
 ;;21,"52959-0433-20 ")
 ;;1077
 ;;21,"52959-0433-30 ")
 ;;1078
 ;;21,"52959-0433-40 ")
 ;;1079
 ;;21,"52959-0433-50 ")
 ;;1080
 ;;21,"52959-0433-60 ")
 ;;1081
 ;;21,"52959-0481-10 ")
 ;;1082
 ;;21,"52959-0481-12 ")
 ;;1083
 ;;21,"52959-0481-20 ")
 ;;1084
 ;;21,"52959-0481-30 ")
 ;;1085
 ;;21,"52959-0501-20 ")
 ;;1086
 ;;21,"52959-0534-01 ")
 ;;1087
 ;;21,"52959-0534-02 ")
 ;;1088
 ;;21,"52959-0534-10 ")
 ;;1089
 ;;21,"52959-0534-12 ")
 ;;1090
 ;;21,"52959-0534-15 ")
 ;;1091
 ;;21,"52959-0534-20 ")
 ;;1092
 ;;21,"52959-0534-28 ")
 ;;1093
 ;;21,"52959-0534-30 ")
 ;;1094
 ;;21,"52959-0534-45 ")
 ;;1095
 ;;21,"52959-0534-60 ")
 ;;1096
 ;;21,"52959-0534-90 ")
 ;;1097
 ;;21,"52959-0568-04 ")
 ;;1098
 ;;21,"52959-0582-03 ")
 ;;1099
 ;;21,"52959-0700-04 ")
 ;;1100
 ;;21,"52959-0700-06 ")
 ;;1101
 ;;21,"52959-0700-08 ")
 ;;1102
 ;;21,"52959-0731-12 ")
 ;;1103
 ;;21,"52959-0804-04 ")
 ;;1104
 ;;21,"52959-0804-08 ")
 ;;1105
 ;;21,"52959-0833-06 ")
 ;;1106
 ;;21,"52959-0833-20 ")
 ;;1107
 ;;21,"52959-0882-30 ")
 ;;1108
 ;;21,"52959-0914-30 ")
 ;;1109
 ;;21,"52959-0949-60 ")
 ;;1110
 ;;21,"53002-0327-92 ")
 ;;1111
 ;;21,"53002-0329-10 ")
 ;;1112
 ;;21,"53002-0329-20 ")
 ;;1113
 ;;21,"53002-0329-30 ")
 ;;1114
 ;;21,"53002-0329-40 ")
 ;;1115
 ;;21,"53002-0340-10 ")
 ;;1116
 ;;21,"53002-0340-15 ")
 ;;1117
 ;;21,"53002-0340-20 ")
 ;;1118
 ;;21,"53002-0340-30 ")
 ;;1119
 ;;21,"53002-0345-10 ")
 ;;1120
 ;;21,"53002-0345-20 ")
 ;;1121
 ;;21,"53002-0345-30 ")
 ;;1122
 ;;21,"53002-0345-40 ")
 ;;1123
 ;;21,"53002-0402-05 ")
 ;;1124
 ;;21,"53002-0402-10 ")
 ;;1125
 ;;21,"53002-0402-20 ")
 ;;1126
 ;;21,"53002-0402-30 ")
 ;;1127
 ;;21,"53002-0621-10 ")
 ;;1128
 ;;21,"53002-0621-15 ")
 ;;1129
 ;;21,"53002-0621-20 ")
 ;;1130
 ;;21,"53002-0621-30 ")
 ;;1131
 ;;21,"53002-0621-40 ")
 ;;1132
 ;;21,"53014-0548-01 ")
 ;;1133
 ;;21,"53217-0007-20 ")
 ;;1134
 ;;21,"53217-0007-25 ")
 ;;1135
 ;;21,"53217-0007-30 ")
 ;;1136
 ;;21,"53217-0007-37 ")
 ;;1137
 ;;21,"53217-0048-01 ")
 ;;1138
 ;;21,"53217-0063-20 ")
 ;;1139
 ;;21,"53217-0063-30 ")
 ;;1140
 ;;21,"53217-0120-25 ")
 ;;1141
 ;;21,"53217-0225-25 ")
 ;;1142
 ;;21,"53217-0225-30 ")
 ;;1143
 ;;21,"53217-0225-37 ")
 ;;1144
 ;;21,"53217-0236-20 ")
 ;;1145
 ;;21,"53217-0236-30 ")
 ;;1146
 ;;21,"53217-0236-60 ")
 ;;1147
 ;;21,"53217-0256-30 ")
 ;;1148
 ;;21,"53217-0256-60 ")
 ;;1149
 ;;21,"53217-0275-30 ")
 ;;1150
 ;;21,"53217-0275-60 ")
 ;;1151
 ;;21,"53217-0302-10 ")
 ;;1152
 ;;21,"53217-0302-21 ")
 ;;1153
 ;;21,"53217-0302-30 ")
 ;;1154
 ;;21,"53217-0302-60 ")
 ;;1155
 ;;21,"53217-0302-90 ")
 ;;1156
 ;;21,"53703-0800-16 ")
 ;;1157
 ;;21,"54348-0018-10 ")
 ;;1158
 ;;21,"54348-0117-12 ")
 ;;1159
 ;;21,"54348-0139-10 ")
 ;;1160
 ;;21,"54348-0648-02 ")
 ;;1161
 ;;21,"54348-0650-01 ")
 ;;1162
 ;;21,"54348-0650-02 ")
 ;;1163
 ;;21,"54348-0650-06 ")
 ;;1164
 ;;21,"54348-0650-20 ")
 ;;1165
 ;;21,"54348-0650-50 ")
 ;;1166
 ;;21,"54348-0920-06 ")
 ;;1167
 ;;21,"54348-0920-12 ")
 ;;1168
 ;;21,"54348-0921-04 ")
 ;;1169
 ;;21,"54348-0921-06 ")
 ;;1170
 ;;21,"54348-0921-10 ")
 ;;1171
 ;;21,"54348-0988-06 ")
 ;;1172
 ;;21,"54569-0222-00 ")
 ;;1173
 ;;21,"54569-0222-01 ")
 ;;1174
 ;;21,"54569-0222-02 ")
 ;;1175
 ;;21,"54569-0347-03 ")
 ;;1176
 ;;21,"54569-0347-07 ")
 ;;1177
 ;;21,"54569-0349-00 ")
 ;;1178
 ;;21,"54569-0349-01 ")
 ;;1179
 ;;21,"54569-0349-04 ")
 ;;1180
 ;;21,"54569-0406-00 ")
 ;;1181
 ;;21,"54569-0406-03 ")
 ;;1182
 ;;21,"54569-0409-01 ")
 ;;1183
 ;;21,"54569-0409-03 ")
 ;;1184
 ;;21,"54569-0409-04 ")
 ;;1185
 ;;21,"54569-0413-00 ")
 ;;1186
 ;;21,"54569-0413-01 ")
 ;;1187
 ;;21,"54569-0413-04 ")
 ;;1188
 ;;21,"54569-0413-06 ")
 ;;1189
 ;;21,"54569-0413-08 ")
 ;;1190
 ;;21,"54569-0417-00 ")
 ;;1191
 ;;21,"54569-0417-02 ")
 ;;1192
 ;;21,"54569-0417-08 ")
 ;;1193
 ;;21,"54569-0419-00 ")
 ;;1194
 ;;21,"54569-0419-02 ")
 ;;1195
 ;;21,"54569-0419-08 ")
 ;;1196
 ;;21,"54569-0430-00 ")
 ;;1197
 ;;21,"54569-1046-00 ")
 ;;1198
 ;;21,"54569-1047-00 ")
 ;;1199
 ;;21,"54569-1054-00 ")
 ;;1200
 ;;21,"54569-1055-00 ")
 ;;1201
 ;;21,"54569-1056-00 ")
 ;;1202
 ;;21,"54569-1640-01 ")
 ;;1203
 ;;21,"54569-1754-00 ")
 ;;1204
 ;;21,"54569-1754-01 ")
 ;;1205
 ;;21,"54569-1754-05 ")
 ;;1206
 ;;21,"54569-1754-06 ")
 ;;1207
 ;;21,"54569-1754-09 ")
 ;;1208
 ;;21,"54569-2236-00 ")
 ;;1209
 ;;21,"54569-2353-02 ")
 ;;1210
 ;;21,"54569-2353-05 ")
 ;;1211
 ;;21,"54569-2571-01 ")
 ;;1212
 ;;21,"54569-3540-02 ")
 ;;1213
 ;;21,"54569-3589-00 ")
 ;;1214
 ;;21,"54569-3763-02 ")
 ;;1215
 ;;21,"54569-3882-00 ")
 ;;1216
 ;;21,"54569-4168-00 ")
 ;;1217
 ;;21,"54569-4168-03 ")
 ;;1218
 ;;21,"54569-4510-00 ")
 ;;1219
 ;;21,"54569-5609-00 ")
 ;;1220
 ;;21,"54569-5609-01 ")
 ;;1221
 ;;21,"54569-5736-00 ")
 ;;1222
 ;;21,"54569-5744-00 ")
 ;;1223
 ;;21,"54569-5744-01 ")
 ;;1224
 ;;21,"54569-5745-00 ")
 ;;1225
 ;;21,"54569-5745-01 ")
 ;;1226
 ;;21,"54569-5745-02 ")
 ;;1227
 ;;21,"54569-5747-00 ")
 ;;1228
 ;;21,"54569-5759-00 ")
 ;;1229
 ;;21,"54569-6079-00 ")
 ;;1230
 ;;21,"54569-6379-00 ")
 ;;1231
 ;;21,"54569-8321-00 ")
 ;;1232
 ;;21,"54569-8321-01 ")
 ;;1233
 ;;21,"54569-8327-00 ")
 ;;1234
 ;;21,"54569-8327-01 ")
 ;;1235
 ;;21,"54569-8329-00 ")
 ;;1236
 ;;21,"54569-8331-00 ")
 ;;1237
 ;;21,"54569-9010-00 ")
 ;;1238
 ;;21,"54569-9019-00 ")
 ;;1239
 ;;21,"54569-9057-00 ")
 ;;1240
 ;;21,"54569-9065-00 ")
 ;;1241
 ;;21,"54569-9084-00 ")
 ;;1242
 ;;21,"54738-0554-01 ")
 ;;1243
 ;;21,"54738-0554-03 ")
 ;;1244
 ;;21,"54738-0555-01 ")
 ;;1245
 ;;21,"54738-0555-03 ")
 ;;1246
 ;;21,"54766-0200-10 ")
 ;;1247
 ;;21,"54838-0502-80 ")
 ;;1248
 ;;21,"54838-0506-15 ")
 ;;1249
 ;;21,"54838-0511-80 ")
 ;;1250
 ;;21,"54859-0801-60 ")
 ;;1251
 ;;21,"54868-0006-00 ")
 ;;1252
 ;;21,"54868-0030-00 ")
 ;;1253
 ;;21,"54868-0030-02 ")
 ;;1254
 ;;21,"54868-0030-04 ")
 ;;1255
 ;;21,"54868-0030-05 ")
 ;;1256
 ;;21,"54868-0030-06 ")
 ;;1257
 ;;21,"54868-0030-07 ")
 ;;1258
 ;;21,"54868-0031-00 ")
 ;;1259
 ;;21,"54868-0031-02 ")
 ;;1260
 ;;21,"54868-0031-04 ")
 ;;1261
 ;;21,"54868-0032-00 ")
 ;;1262
 ;;21,"54868-0032-03 ")
 ;;1263
 ;;21,"54868-0032-04 ")
 ;;1264
 ;;21,"54868-0032-06 ")
 ;;1265
 ;;21,"54868-0032-07 ")
 ;;1266
 ;;21,"54868-0032-09 ")
 ;;1267
 ;;21,"54868-0033-00 ")
 ;;1268
 ;;21,"54868-0033-02 ")
 ;;1269
 ;;21,"54868-0033-03 ")
 ;;1270
 ;;21,"54868-0033-05 ")
 ;;1271
 ;;21,"54868-0033-07 ")
 ;;1272
 ;;21,"54868-0033-08 ")
 ;;1273
 ;;21,"54868-0063-00 ")
 ;;1274
 ;;21,"54868-0063-02 ")
 ;;1275
 ;;21,"54868-0063-03 ")
 ;;1276
 ;;21,"54868-0063-05 ")
 ;;1277
 ;;21,"54868-0063-07 ")
 ;;1278
 ;;21,"54868-0063-09 ")
 ;;1279
 ;;21,"54868-0077-01 ")
 ;;1280
 ;;21,"54868-0077-02 ")
 ;;1281
 ;;21,"54868-0077-03 ")
 ;;1282
 ;;21,"54868-0077-04 ")
 ;;1283
 ;;21,"54868-0077-05 ")
 ;;1284
 ;;21,"54868-0077-07 ")
 ;;1285
 ;;21,"54868-0077-08 ")
 ;;1286
 ;;21,"54868-0089-00 ")
 ;;1287
 ;;21,"54868-0089-02 ")
 ;;1288
 ;;21,"54868-0089-04 ")
 ;;1289
 ;;21,"54868-0229-01 ")
 ;;1290
 ;;21,"54868-0229-02 ")
 ;;1291
 ;;21,"54868-0229-03 ")
 ;;1292
 ;;21,"54868-0229-04 ")
 ;;1293
 ;;21,"54868-0229-05 ")
 ;;1294
 ;;21,"54868-0229-06 ")
 ;;1295
 ;;21,"54868-0263-00 ")
 ;;1296
 ;;21,"54868-0263-01 ")
 ;;1297
 ;;21,"54868-0427-00 ")
 ;;1298
 ;;21,"54868-0427-01 ")
 ;;1299
 ;;21,"54868-0427-02 ")
 ;;1300
 ;;21,"54868-0427-03 ")
 ;;1301
 ;;21,"54868-0427-04 ")
 ;;1302
 ;;21,"54868-0427-05 ")
 ;;1303
 ;;21,"54868-0534-02 ")
 ;;1304
 ;;21,"54868-0601-00 ")
 ;;1305
 ;;21,"54868-0601-01 ")
 ;;1306
 ;;21,"54868-0601-02 ")
 ;;1307
 ;;21,"54868-0601-03 ")
 ;;1308
 ;;21,"54868-0740-02 ")
 ;;1309
 ;;21,"54868-0818-00 ")
 ;;1310
 ;;21,"54868-0818-01 ")
 ;;1311
 ;;21,"54868-0818-03 ")
 ;;1312
 ;;21,"54868-0818-05 ")
 ;;1313
 ;;21,"54868-0818-07 ")
 ;;1314
 ;;21,"54868-0818-08 ")
 ;;1315
 ;;21,"54868-1029-00 ")
 ;;1316
 ;;21,"54868-1029-01 ")
 ;;1317
 ;;21,"54868-1029-02 ")
 ;;1318
 ;;21,"54868-1237-01 ")
 ;;1319
 ;;21,"54868-1323-00 ")
 ;;1320
 ;;21,"54868-1323-01 ")
 ;;1321
 ;;21,"54868-1323-02 ")
 ;;1322
 ;;21,"54868-1323-04 ")
 ;;1323
 ;;21,"54868-1323-05 ")
 ;;1324
 ;;21,"54868-1323-06 ")
 ;;1325
 ;;21,"54868-1323-07 ")
 ;;1326
 ;;21,"54868-1323-08 ")
 ;;1327
 ;;21,"54868-1323-09 ")
 ;;1328
 ;;21,"54868-1332-03 ")
 ;;1329
 ;;21,"54868-1332-04 ")
 ;;1330
 ;;21,"54868-1332-05 ")
 ;;1331
 ;;21,"54868-1332-06 ")
 ;;1332
 ;;21,"54868-1332-07 ")
 ;;1333
 ;;21,"54868-1613-00 ")
 ;;1334
 ;;21,"54868-1613-01 ")
 ;;1335
 ;;21,"54868-1613-02 ")
 ;;1336
 ;;21,"54868-1613-03 ")
 ;;1337
 ;;21,"54868-1804-02 ")
 ;;1338
 ;;21,"54868-1804-04 ")
 ;;1339
 ;;21,"54868-1804-05 ")
 ;;1340
 ;;21,"54868-1854-00 ")
 ;;1341
 ;;21,"54868-1854-01 ")
 ;;1342
 ;;21,"54868-1854-03 ")
 ;;1343
 ;;21,"54868-1867-00 ")
 ;;1344
 ;;21,"54868-1990-00 ")
 ;;1345
 ;;21,"54868-2032-00 ")
 ;;1346
 ;;21,"54868-2088-00 ")
 ;;1347
 ;;21,"54868-2209-00 ")
 ;;1348
 ;;21,"54868-2209-02 ")
 ;;1349
 ;;21,"54868-2209-03 ")
 ;;1350
 ;;21,"54868-2209-04 ")
 ;;1351
 ;;21,"54868-2209-05 ")
 ;;1352
 ;;21,"54868-2209-06 ")
 ;;1353
 ;;21,"54868-2209-07 ")
 ;;1354
 ;;21,"54868-2292-00 ")
 ;;1355
 ;;21,"54868-2292-02 ")
 ;;1356