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

BGPM5ABO.m

Go to the documentation of this file.
  1. BGPM5ABO ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;21,"65243028803 ")
  1. ;;1100
  1. ;;21,"65243028806 ")
  1. ;;1101
  1. ;;21,"65243028809 ")
  1. ;;1102
  1. ;;21,"65243028812 ")
  1. ;;1103
  1. ;;21,"65243028818 ")
  1. ;;1104
  1. ;;21,"65243028906 ")
  1. ;;1105
  1. ;;21,"65243028909 ")
  1. ;;1106
  1. ;;21,"65243028912 ")
  1. ;;1107
  1. ;;21,"65243028918 ")
  1. ;;1108
  1. ;;21,"65243028927 ")
  1. ;;1109
  1. ;;21,"65243037103 ")
  1. ;;1110
  1. ;;21,"65243037106 ")
  1. ;;1111
  1. ;;21,"65243037109 ")
  1. ;;1112
  1. ;;21,"65243037112 ")
  1. ;;1113
  1. ;;21,"65243037118 ")
  1. ;;1114
  1. ;;21,"65243037203 ")
  1. ;;1115
  1. ;;21,"65243037206 ")
  1. ;;1116
  1. ;;21,"65243037209 ")
  1. ;;1117
  1. ;;21,"65243037212 ")
  1. ;;1118
  1. ;;21,"65243037218 ")
  1. ;;1119
  1. ;;21,"65841002701 ")
  1. ;;1120
  1. ;;21,"65841002705 ")
  1. ;;1121
  1. ;;21,"65841002801 ")
  1. ;;1122
  1. ;;21,"65841002805 ")
  1. ;;1123
  1. ;;21,"65841002810 ")
  1. ;;1124
  1. ;;21,"65841002816 ")
  1. ;;1125
  1. ;;21,"65841002830 ")
  1. ;;1126
  1. ;;21,"65841002861 ")
  1. ;;1127
  1. ;;21,"65841002901 ")
  1. ;;1128
  1. ;;21,"65841002905 ")
  1. ;;1129
  1. ;;21,"65841002910 ")
  1. ;;1130
  1. ;;21,"65841002916 ")
  1. ;;1131
  1. ;;21,"65841002930 ")
  1. ;;1132
  1. ;;21,"65841002961 ")
  1. ;;1133
  1. ;;21,"65841003001 ")
  1. ;;1134
  1. ;;21,"65841003005 ")
  1. ;;1135
  1. ;;21,"65841003010 ")
  1. ;;1136
  1. ;;21,"65841003016 ")
  1. ;;1137
  1. ;;21,"65841003030 ")
  1. ;;1138
  1. ;;21,"65841003061 ")
  1. ;;1139
  1. ;;21,"65841003901 ")
  1. ;;1140
  1. ;;21,"65841003905 ")
  1. ;;1141
  1. ;;21,"65862000801 ")
  1. ;;1142
  1. ;;21,"65862000805 ")
  1. ;;1143
  1. ;;21,"65862000833 ")
  1. ;;1144
  1. ;;21,"65862000845 ")
  1. ;;1145
  1. ;;21,"65862000849 ")
  1. ;;1146
  1. ;;21,"65862000850 ")
  1. ;;1147
  1. ;;21,"65862000860 ")
  1. ;;1148
  1. ;;21,"65862000890 ")
  1. ;;1149
  1. ;;21,"65862000899 ")
  1. ;;1150
  1. ;;21,"65862000901 ")
  1. ;;1151
  1. ;;21,"65862000905 ")
  1. ;;1152
  1. ;;21,"65862000926 ")
  1. ;;1153
  1. ;;21,"65862000933 ")
  1. ;;1154
  1. ;;21,"65862000944 ")
  1. ;;1155
  1. ;;21,"65862000950 ")
  1. ;;1156
  1. ;;21,"65862000960 ")
  1. ;;1157
  1. ;;21,"65862000990 ")
  1. ;;1158
  1. ;;21,"65862000999 ")
  1. ;;1159
  1. ;;21,"65862001001 ")
  1. ;;1160
  1. ;;21,"65862001005 ")
  1. ;;1161
  1. ;;21,"65862001022 ")
  1. ;;1162
  1. ;;21,"65862001033 ")
  1. ;;1163
  1. ;;21,"65862001046 ")
  1. ;;1164
  1. ;;21,"65862001050 ")
  1. ;;1165
  1. ;;21,"65862001060 ")
  1. ;;1166
  1. ;;21,"65862001090 ")
  1. ;;1167
  1. ;;21,"65862001099 ")
  1. ;;1168
  1. ;;21,"65862008001 ")
  1. ;;1169
  1. ;;21,"65862008005 ")
  1. ;;1170
  1. ;;21,"65862008030 ")
  1. ;;1171
  1. ;;21,"65862008036 ")
  1. ;;1172
  1. ;;21,"65862008101 ")
  1. ;;1173
  1. ;;21,"65862008105 ")
  1. ;;1174
  1. ;;21,"65862008118 ")
  1. ;;1175
  1. ;;21,"65862008130 ")
  1. ;;1176
  1. ;;21,"65862008201 ")
  1. ;;1177
  1. ;;21,"65862008205 ")
  1. ;;1178
  1. ;;21,"65862008218 ")
  1. ;;1179
  1. ;;21,"65862008230 ")
  1. ;;1180
  1. ;;21,"66039015901 ")
  1. ;;1181
  1. ;;21,"66039015905 ")
  1. ;;1182
  1. ;;21,"66039016001 ")
  1. ;;1183
  1. ;;21,"66039016101 ")
  1. ;;1184
  1. ;;21,"66105060010 ")
  1. ;;1185
  1. ;;21,"66105060110 ")
  1. ;;1186
  1. ;;21,"66105063202 ")
  1. ;;1187
  1. ;;21,"66105063203 ")
  1. ;;1188
  1. ;;21,"66105063206 ")
  1. ;;1189
  1. ;;21,"66105063209 ")
  1. ;;1190
  1. ;;21,"66105063210 ")
  1. ;;1191
  1. ;;21,"66105074323 ")
  1. ;;1192
  1. ;;21,"66105074423 ")
  1. ;;1193
  1. ;;21,"66116030530 ")
  1. ;;1194
  1. ;;21,"66116030660 ")
  1. ;;1195
  1. ;;21,"66116080130 ")
  1. ;;1196
  1. ;;21,"66116087030 ")
  1. ;;1197
  1. ;;21,"66267049305 ")
  1. ;;1198
  1. ;;21,"66267049312 ")
  1. ;;1199
  1. ;;21,"66267049314 ")
  1. ;;1200
  1. ;;21,"66267049318 ")
  1. ;;1201
  1. ;;21,"66267049320 ")
  1. ;;1202
  1. ;;21,"66267049330 ")
  1. ;;1203
  1. ;;21,"66267049340 ")
  1. ;;1204
  1. ;;21,"66267049360 ")
  1. ;;1205
  1. ;;21,"66267049391 ")
  1. ;;1206
  1. ;;21,"66267049392 ")
  1. ;;1207
  1. ;;21,"66267049720 ")
  1. ;;1208
  1. ;;21,"66267049730 ")
  1. ;;1209
  1. ;;21,"66267049740 ")
  1. ;;1210
  1. ;;21,"66267049745 ")
  1. ;;1211
  1. ;;21,"66267049760 ")
  1. ;;1212
  1. ;;21,"66267049790 ")
  1. ;;1213
  1. ;;21,"66267055300 ")
  1. ;;1214
  1. ;;21,"66267055305 ")
  1. ;;1215
  1. ;;21,"66267055318 ")
  1. ;;1216
  1. ;;21,"66267055320 ")
  1. ;;1217
  1. ;;21,"66267055330 ")
  1. ;;1218
  1. ;;21,"66267055340 ")
  1. ;;1219
  1. ;;21,"66267055360 ")
  1. ;;1220
  1. ;;21,"66267055390 ")
  1. ;;1221
  1. ;;21,"66267062710 ")
  1. ;;1222
  1. ;;21,"66336027030 ")
  1. ;;1223
  1. ;;21,"66336035830 ")
  1. ;;1224
  1. ;;21,"66336035860 ")
  1. ;;1225
  1. ;;21,"66336078430 ")
  1. ;;1226
  1. ;;21,"66336088330 ")
  1. ;;1227
  1. ;;21,"66336088360 ")
  1. ;;1228
  1. ;;21,"66336088414 ")
  1. ;;1229
  1. ;;21,"66336088430 ")
  1. ;;1230
  1. ;;21,"66336088460 ")
  1. ;;1231
  1. ;;21,"67046046030 ")
  1. ;;1232
  1. ;;21,"67046046130 ")
  1. ;;1233
  1. ;;21,"67046046230 ")
  1. ;;1234
  1. ;;21,"67228026803 ")
  1. ;;1235
  1. ;;21,"67228026806 ")
  1. ;;1236
  1. ;;21,"67228028103 ")
  1. ;;1237
  1. ;;21,"67228028106 ")
  1. ;;1238
  1. ;;21,"67228036803 ")
  1. ;;1239
  1. ;;21,"67228036806 ")
  1. ;;1240
  1. ;;21,"67228036903 ")
  1. ;;1241
  1. ;;21,"67228036906 ")
  1. ;;1242
  1. ;;21,"67544004730 ")
  1. ;;1243
  1. ;;21,"67544004732 ")
  1. ;;1244
  1. ;;21,"67544004753 ")
  1. ;;1245
  1. ;;21,"67544004760 ")
  1. ;;1246
  1. ;;21,"67544004770 ")
  1. ;;1247
  1. ;;21,"67544004775 ")
  1. ;;1248
  1. ;;21,"67544004780 ")
  1. ;;1249
  1. ;;21,"67544004790 ")
  1. ;;1250
  1. ;;21,"67544004792 ")
  1. ;;1251
  1. ;;21,"67544004794 ")
  1. ;;1252
  1. ;;21,"67544004796 ")
  1. ;;1253
  1. ;;21,"67544010753 ")
  1. ;;1254
  1. ;;21,"67544010760 ")
  1. ;;1255
  1. ;;21,"67544010770 ")
  1. ;;1256
  1. ;;21,"67544010780 ")
  1. ;;1257
  1. ;;21,"67544010792 ")
  1. ;;1258
  1. ;;21,"67544016330 ")
  1. ;;1259
  1. ;;21,"67544016345 ")
  1. ;;1260
  1. ;;21,"67544016353 ")
  1. ;;1261
  1. ;;21,"67544016360 ")
  1. ;;1262
  1. ;;21,"67544016380 ")
  1. ;;1263
  1. ;;21,"67544016386 ")
  1. ;;1264
  1. ;;21,"67544036470 ")
  1. ;;1265
  1. ;;21,"67544041770 ")
  1. ;;1266
  1. ;;21,"67544042160 ")
  1. ;;1267
  1. ;;21,"67544042180 ")
  1. ;;1268
  1. ;;21,"67544042192 ")
  1. ;;1269
  1. ;;21,"67544042230 ")
  1. ;;1270
  1. ;;21,"67544042253 ")
  1. ;;1271
  1. ;;21,"67544042260 ")
  1. ;;1272
  1. ;;21,"67544042270 ")
  1. ;;1273
  1. ;;21,"67544042275 ")
  1. ;;1274
  1. ;;21,"67544042280 ")
  1. ;;1275
  1. ;;21,"67544042290 ")
  1. ;;1276
  1. ;;21,"67544042292 ")
  1. ;;1277
  1. ;;21,"67544042294 ")
  1. ;;1278
  1. ;;21,"67544042296 ")
  1. ;;1279
  1. ;;21,"67544042430 ")
  1. ;;1280
  1. ;;21,"67544042431 ")
  1. ;;1281
  1. ;;21,"67544042453 ")
  1. ;;1282
  1. ;;21,"67544042460 ")
  1. ;;1283
  1. ;;21,"67544042470 ")
  1. ;;1284
  1. ;;21,"67544042475 ")
  1. ;;1285
  1. ;;21,"67544042480 ")
  1. ;;1286
  1. ;;21,"67544042490 ")
  1. ;;1287
  1. ;;21,"67544042492 ")
  1. ;;1288
  1. ;;21,"67544042494 ")
  1. ;;1289
  1. ;;21,"67544042496 ")
  1. ;;1290
  1. ;;21,"67544042830 ")
  1. ;;1291
  1. ;;21,"67544042831 ")
  1. ;;1292
  1. ;;21,"67544042832 ")
  1. ;;1293
  1. ;;21,"67544042845 ")
  1. ;;1294
  1. ;;21,"67544042853 ")
  1. ;;1295
  1. ;;21,"67544042860 ")
  1. ;;1296
  1. ;;21,"67544042873 ")
  1. ;;1297
  1. ;;21,"67544042880 ")
  1. ;;1298
  1. ;;21,"67544042886 ")
  1. ;;1299
  1. ;;21,"67544048631 ")
  1. ;;1300
  1. ;;21,"67544048632 ")
  1. ;;1301
  1. ;;21,"67544048653 ")
  1. ;;1302
  1. ;;21,"67544051130 ")
  1. ;;1303
  1. ;;21,"67544051170 ")
  1. ;;1304
  1. ;;21,"67544051194 ")
  1. ;;1305
  1. ;;21,"67544059630 ")
  1. ;;1306
  1. ;;21,"67544059631 ")
  1. ;;1307
  1. ;;21,"67544059632 ")
  1. ;;1308
  1. ;;21,"67544059653 ")
  1. ;;1309
  1. ;;21,"67544059660 ")
  1. ;;1310
  1. ;;21,"67544059670 ")
  1. ;;1311
  1. ;;21,"67544059675 ")
  1. ;;1312
  1. ;;21,"67544059680 ")
  1. ;;1313
  1. ;;21,"67544059690 ")
  1. ;;1314
  1. ;;21,"67544059692 ")
  1. ;;1315
  1. ;;21,"67544059694 ")
  1. ;;1316
  1. ;;21,"67544059696 ")
  1. ;;1317
  1. ;;21,"67767011501 ")
  1. ;;1318
  1. ;;21,"67877021701 ")
  1. ;;1319
  1. ;;21,"67877021705 ")
  1. ;;1320
  1. ;;21,"67877021801 ")
  1. ;;1321
  1. ;;21,"67877022101 ")
  1. ;;1322
  1. ;;21,"68071002805 ")
  1. ;;1323
  1. ;;21,"68071002830 ")
  1. ;;1324
  1. ;;21,"68071002860 ")
  1. ;;1325
  1. ;;21,"68071010730 ")
  1. ;;1326
  1. ;;21,"68071016530 ")
  1. ;;1327
  1. ;;21,"68071043412 ")
  1. ;;1328
  1. ;;21,"68071048830 ")
  1. ;;1329
  1. ;;21,"68071050190 ")
  1. ;;1330
  1. ;;21,"68084007201 ")
  1. ;;1331
  1. ;;21,"68084007211 ")
  1. ;;1332
  1. ;;21,"68084013601 ")
  1. ;;1333
  1. ;;21,"68084013701 ")
  1. ;;1334
  1. ;;21,"68084013801 ")
  1. ;;1335
  1. ;;21,"68115023100 ")
  1. ;;1336
  1. ;;21,"68382002701 ")
  1. ;;1337
  1. ;;21,"68382002705 ")
  1. ;;1338
  1. ;;21,"68382002801 ")
  1. ;;1339
  1. ;;21,"68382002805 ")
  1. ;;1340
  1. ;;21,"68382002810 ")
  1. ;;1341
  1. ;;21,"68382002816 ")
  1. ;;1342
  1. ;;21,"68382002830 ")
  1. ;;1343
  1. ;;21,"68382002861 ")
  1. ;;1344
  1. ;;21,"68382002901 ")
  1. ;;1345
  1. ;;21,"68382002905 ")
  1. ;;1346
  1. ;;21,"68382002910 ")
  1. ;;1347
  1. ;;21,"68382002916 ")
  1. ;;1348
  1. ;;21,"68382002930 ")
  1. ;;1349
  1. ;;21,"68382002961 ")
  1. ;;1350
  1. ;;21,"68382003001 ")
  1. ;;1351
  1. ;;21,"68382003005 ")
  1. ;;1352
  1. ;;21,"68382003010 ")
  1. ;;1353
  1. ;;21,"68382003016 ")
  1. ;;1354
  1. ;;21,"68382003030 ")
  1. ;;1355
  1. ;;21,"68382003061 ")
  1. ;;1356
  1. ;;21,"68382003901 ")
  1. ;;1357
  1. ;;21,"68382003905 ")
  1. ;;1358
  1. ;;21,"68462015901 ")
  1. ;;1359
  1. ;;21,"68462015905 ")
  1. ;;1360
  1. ;;21,"68462015910 ")
  1. ;;1361
  1. ;;21,"68462015918 ")
  1. ;;1362
  1. ;;21,"68462015990 ")
  1. ;;1363
  1. ;;21,"68462016001 ")
  1. ;;1364
  1. ;;21,"68462016005 ")
  1. ;;1365
  1. ;;21,"68462016010 ")
  1. ;;1366
  1. ;;21,"68462016018 ")
  1. ;;1367
  1. ;;21,"68462016090 ")
  1. ;;1368
  1. ;;21,"68462016101 ")
  1. ;;1369
  1. ;;21,"68462016105 ")
  1. ;;1370
  1. ;;21,"68462016110 ")
  1. ;;1371
  1. ;;21,"68462016118 ")
  1. ;;1372
  1. ;;21,"68462016190 ")
  1. ;;1373
  1. ;;21,"68533001712 ")
  1. ;;1374
  1. ;;21,"68533001722 ")
  1. ;;1375
  1. ;;21,"68533001739 ")
  1. ;;1376
  1. ;;21,"68645011259 ")
  1. ;;1377
  1. ;;21,"68645012059 ")
  1. ;;1378
  1. ;;21,"68788039701 ")
  1. ;;1379
  1. ;;21,"68788039703 ")
  1. ;;1380
  1. ;;21,"68788039706 ")
  1. ;;1381
  1. ;;21,"68788039708 ")
  1. ;;1382
  1. ;;21,"68788039709 ")
  1. ;;1383
  1. ;;21,"68788043501 ")
  1. ;;1384
  1. ;;21,"68788043503 ")
  1. ;;1385
  1. ;;21,"68788043506 ")
  1. ;;1386
  1. ;;21,"68788043508 ")
  1. ;;1387
  1. ;;21,"68788043509 ")
  1. ;;1388
  1. ;;21,"68788046703 ")
  1. ;;1389
  1. ;;21,"68788046706 ")
  1. ;;1390
  1. ;;21,"68788047401 ")
  1. ;;1391
  1. ;;21,"68788047403 ")
  1. ;;1392
  1. ;;21,"68788047406 ")
  1. ;;1393
  1. ;;21,"68788047408 ")
  1. ;;1394
  1. ;;21,"68788047409 ")
  1. ;;1395
  1. ;;21,"68788096903 ")
  1. ;;1396
  1. ;;21,"68788096906 ")
  1. ;;1397
  1. ;;9002226,830,.01)
  1. ;;BGPMU DIAB BIGUANIDE MEDS
  1. ;;9002226,830,.02)
  1. ;;Biguanide NDC codes
  1. ;;9002226,830,.04)
  1. ;;n
  1. ;;9002226,830,.06)
  1. ;;@
  1. ;;9002226,830,.08)
  1. ;;@
  1. ;;9002226,830,.09)
  1. ;;3110310
  1. ;;9002226,830,.11)
  1. ;;@
  1. ;;9002226,830,.12)
  1. ;;@
  1. ;;9002226,830,.13)
  1. ;;1
  1. ;;9002226,830,.14)
  1. ;;@
  1. ;;9002226,830,.15)
  1. ;;50.67
  1. ;;9002226,830,.16)
  1. ;;@
  1. ;;9002226,830,.17)
  1. ;;@
  1. ;;9002226,830,3101)
  1. ;;@
  1. ;;9002226.02101,"830,00087092105 ",.01)
  1. ;;00087092105
  1. ;;9002226.02101,"830,00087092105 ",.02)
  1. ;;00087092105
  1. ;;9002226.02101,"830,00093104801 ",.01)
  1. ;;00093104801
  1. ;;9002226.02101,"830,00093104801 ",.02)
  1. ;;00093104801
  1. ;;9002226.02101,"830,00093104805 ",.01)
  1. ;;00093104805
  1. ;;9002226.02101,"830,00093104805 ",.02)
  1. ;;00093104805
  1. ;;9002226.02101,"830,00093104810 ",.01)
  1. ;;00093104810
  1. ;;9002226.02101,"830,00093104810 ",.02)
  1. ;;00093104810
  1. ;;9002226.02101,"830,00093104819 ",.01)
  1. ;;00093104819
  1. ;;9002226.02101,"830,00093104819 ",.02)
  1. ;;00093104819
  1. ;;9002226.02101,"830,00093104893 ",.01)
  1. ;;00093104893
  1. ;;9002226.02101,"830,00093104893 ",.02)
  1. ;;00093104893
  1. ;;9002226.02101,"830,00093104898 ",.01)
  1. ;;00093104898
  1. ;;9002226.02101,"830,00093104898 ",.02)
  1. ;;00093104898
  1. ;;9002226.02101,"830,00093104901 ",.01)
  1. ;;00093104901
  1. ;;9002226.02101,"830,00093104901 ",.02)
  1. ;;00093104901
  1. ;;9002226.02101,"830,00093104905 ",.01)
  1. ;;00093104905
  1. ;;9002226.02101,"830,00093104905 ",.02)
  1. ;;00093104905
  1. ;;9002226.02101,"830,00093104910 ",.01)
  1. ;;00093104910
  1. ;;9002226.02101,"830,00093104910 ",.02)
  1. ;;00093104910
  1. ;;9002226.02101,"830,00093104919 ",.01)
  1. ;;00093104919
  1. ;;9002226.02101,"830,00093104919 ",.02)
  1. ;;00093104919
  1. ;;9002226.02101,"830,00093104993 ",.01)
  1. ;;00093104993