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

BGP61F7.m

Go to the documentation of this file.
BGP61F7 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 18, 2015 ;
 ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
 ;
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,"51672-4038-03 ")
 ;;2180
 ;;21,"51672-4039-01 ")
 ;;2181
 ;;21,"51672-4039-03 ")
 ;;2182
 ;;21,"51672-4040-01 ")
 ;;2183
 ;;21,"51672-4040-03 ")
 ;;2184
 ;;21,"51672-4045-01 ")
 ;;2185
 ;;21,"51672-4046-01 ")
 ;;2186
 ;;21,"52427-0435-90 ")
 ;;2187
 ;;21,"52427-0436-90 ")
 ;;2188
 ;;21,"52427-0437-90 ")
 ;;2189
 ;;21,"52427-0438-90 ")
 ;;2190
 ;;21,"52427-0439-90 ")
 ;;2191
 ;;21,"52427-0440-90 ")
 ;;2192
 ;;21,"52427-0441-90 ")
 ;;2193
 ;;21,"52427-0442-90 ")
 ;;2194
 ;;21,"52427-0443-90 ")
 ;;2195
 ;;21,"52652-1001-01 ")
 ;;2196
 ;;21,"52959-0137-15 ")
 ;;2197
 ;;21,"52959-0180-30 ")
 ;;2198
 ;;21,"52959-0180-60 ")
 ;;2199
 ;;21,"52959-0498-00 ")
 ;;2200
 ;;21,"52959-0728-15 ")
 ;;2201
 ;;21,"52959-0728-20 ")
 ;;2202
 ;;21,"52959-0728-30 ")
 ;;2203
 ;;21,"52959-0728-90 ")
 ;;2204
 ;;21,"52959-0729-30 ")
 ;;2205
 ;;21,"52959-0729-60 ")
 ;;2206
 ;;21,"52959-0729-90 ")
 ;;2207
 ;;21,"52959-0753-00 ")
 ;;2208
 ;;21,"52959-0753-30 ")
 ;;2209
 ;;21,"52959-0753-60 ")
 ;;2210
 ;;21,"52959-0756-30 ")
 ;;2211
 ;;21,"52959-0831-30 ")
 ;;2212
 ;;21,"52959-0835-30 ")
 ;;2213
 ;;21,"52959-0835-60 ")
 ;;2214
 ;;21,"52959-0841-30 ")
 ;;2215
 ;;21,"52959-0841-60 ")
 ;;2216
 ;;21,"52959-0854-20 ")
 ;;2217
 ;;21,"52959-0854-30 ")
 ;;2218
 ;;21,"52959-0907-30 ")
 ;;2219
 ;;21,"52959-0942-30 ")
 ;;2220
 ;;21,"52959-0973-30 ")
 ;;2221
 ;;21,"52959-0975-30 ")
 ;;2222
 ;;21,"52959-0997-30 ")
 ;;2223
 ;;21,"53002-0431-00 ")
 ;;2224
 ;;21,"53002-0431-30 ")
 ;;2225
 ;;21,"53002-0431-60 ")
 ;;2226
 ;;21,"53002-1086-00 ")
 ;;2227
 ;;21,"53002-1086-03 ")
 ;;2228
 ;;21,"53002-1086-06 ")
 ;;2229
 ;;21,"53002-1123-00 ")
 ;;2230
 ;;21,"53002-1123-03 ")
 ;;2231
 ;;21,"53002-1123-06 ")
 ;;2232
 ;;21,"53002-1178-00 ")
 ;;2233
 ;;21,"53002-1178-03 ")
 ;;2234
 ;;21,"53002-1178-06 ")
 ;;2235
 ;;21,"53002-1225-00 ")
 ;;2236
 ;;21,"53002-1225-03 ")
 ;;2237
 ;;21,"53002-1225-06 ")
 ;;2238
 ;;21,"53002-1463-00 ")
 ;;2239
 ;;21,"53002-1463-03 ")
 ;;2240
 ;;21,"53217-0003-00 ")
 ;;2241
 ;;21,"53217-0003-30 ")
 ;;2242
 ;;21,"53217-0003-60 ")
 ;;2243
 ;;21,"53217-0003-90 ")
 ;;2244
 ;;21,"53217-0012-30 ")
 ;;2245
 ;;21,"53217-0012-60 ")
 ;;2246
 ;;21,"53217-0012-90 ")
 ;;2247
 ;;21,"53217-0076-30 ")
 ;;2248
 ;;21,"53217-0076-60 ")
 ;;2249
 ;;21,"53217-0076-90 ")
 ;;2250
 ;;21,"53217-0089-30 ")
 ;;2251
 ;;21,"53217-0089-60 ")
 ;;2252
 ;;21,"53217-0089-90 ")
 ;;2253
 ;;21,"53217-0114-00 ")
 ;;2254
 ;;21,"53217-0114-30 ")
 ;;2255
 ;;21,"53217-0114-60 ")
 ;;2256
 ;;21,"53217-0114-90 ")
 ;;2257
 ;;21,"54458-0886-10 ")
 ;;2258
 ;;21,"54458-0893-10 ")
 ;;2259
 ;;21,"54458-0905-02 ")
 ;;2260
 ;;21,"54458-0906-02 ")
 ;;2261
 ;;21,"54458-0907-02 ")
 ;;2262
 ;;21,"54458-0910-02 ")
 ;;2263
 ;;21,"54458-0956-10 ")
 ;;2264
 ;;21,"54458-0957-10 ")
 ;;2265
 ;;21,"54458-0991-10 ")
 ;;2266
 ;;21,"54458-0992-10 ")
 ;;2267
 ;;21,"54458-0993-09 ")
 ;;2268
 ;;21,"54458-0994-10 ")
 ;;2269
 ;;21,"54458-0995-10 ")
 ;;2270
 ;;21,"54458-0996-10 ")
 ;;2271
 ;;21,"54458-0997-10 ")
 ;;2272
 ;;21,"54458-0998-09 ")
 ;;2273
 ;;21,"54458-0999-09 ")
 ;;2274
 ;;21,"54569-1944-02 ")
 ;;2275
 ;;21,"54569-3714-00 ")
 ;;2276
 ;;21,"54569-4246-00 ")
 ;;2277
 ;;21,"54569-4246-03 ")
 ;;2278
 ;;21,"54569-4246-04 ")
 ;;2279
 ;;21,"54569-4246-05 ")
 ;;2280
 ;;21,"54569-4246-07 ")
 ;;2281
 ;;21,"54569-4247-00 ")
 ;;2282
 ;;21,"54569-4247-02 ")
 ;;2283
 ;;21,"54569-4247-03 ")
 ;;2284
 ;;21,"54569-4247-04 ")
 ;;2285
 ;;21,"54569-4276-00 ")
 ;;2286
 ;;21,"54569-4438-00 ")
 ;;2287
 ;;21,"54569-4572-00 ")
 ;;2288
 ;;21,"54569-4593-00 ")
 ;;2289
 ;;21,"54569-4593-01 ")
 ;;2290
 ;;21,"54569-4593-03 ")
 ;;2291
 ;;21,"54569-4714-00 ")
 ;;2292
 ;;21,"54569-4722-01 ")
 ;;2293
 ;;21,"54569-4766-00 ")
 ;;2294
 ;;21,"54569-4766-03 ")
 ;;2295
 ;;21,"54569-4767-00 ")
 ;;2296
 ;;21,"54569-4767-03 ")
 ;;2297
 ;;21,"54569-5133-00 ")
 ;;2298
 ;;21,"54569-5133-01 ")
 ;;2299
 ;;21,"54569-5134-00 ")
 ;;2300
 ;;21,"54569-5134-01 ")
 ;;2301
 ;;21,"54569-5134-02 ")
 ;;2302
 ;;21,"54569-5134-04 ")
 ;;2303
 ;;21,"54569-5135-00 ")
 ;;2304
 ;;21,"54569-5135-01 ")
 ;;2305
 ;;21,"54569-5361-00 ")
 ;;2306
 ;;21,"54569-5362-00 ")
 ;;2307
 ;;21,"54569-5434-00 ")
 ;;2308
 ;;21,"54569-5434-03 ")
 ;;2309
 ;;21,"54569-5434-04 ")
 ;;2310
 ;;21,"54569-5434-05 ")
 ;;2311
 ;;21,"54569-5435-00 ")
 ;;2312
 ;;21,"54569-5435-03 ")
 ;;2313
 ;;21,"54569-5435-04 ")
 ;;2314
 ;;21,"54569-5435-05 ")
 ;;2315
 ;;21,"54569-5437-00 ")
 ;;2316
 ;;21,"54569-5437-02 ")
 ;;2317
 ;;21,"54569-5438-00 ")
 ;;2318
 ;;21,"54569-5438-03 ")
 ;;2319
 ;;21,"54569-5472-00 ")
 ;;2320
 ;;21,"54569-5472-02 ")
 ;;2321
 ;;21,"54569-5606-00 ")
 ;;2322
 ;;21,"54569-5621-00 ")
 ;;2323
 ;;21,"54569-5665-00 ")
 ;;2324
 ;;21,"54569-5666-00 ")
 ;;2325
 ;;21,"54569-5667-00 ")
 ;;2326
 ;;21,"54569-5668-00 ")
 ;;2327
 ;;21,"54569-5668-01 ")
 ;;2328
 ;;21,"54569-5668-02 ")
 ;;2329
 ;;21,"54569-5669-00 ")
 ;;2330
 ;;21,"54569-5669-01 ")
 ;;2331
 ;;21,"54569-5670-00 ")
 ;;2332
 ;;21,"54569-5670-01 ")
 ;;2333
 ;;21,"54569-5685-00 ")
 ;;2334
 ;;21,"54569-5685-01 ")
 ;;2335
 ;;21,"54569-5709-00 ")
 ;;2336
 ;;21,"54569-5710-00 ")
 ;;2337
 ;;21,"54569-5711-00 ")
 ;;2338
 ;;21,"54569-5728-00 ")
 ;;2339
 ;;21,"54569-5801-00 ")
 ;;2340
 ;;21,"54569-5867-00 ")
 ;;2341
 ;;21,"54569-5878-00 ")
 ;;2342
 ;;21,"54569-5880-01 ")
 ;;2343
 ;;21,"54569-5903-00 ")
 ;;2344
 ;;21,"54569-5916-00 ")
 ;;2345
 ;;21,"54569-5936-00 ")
 ;;2346
 ;;21,"54569-5937-00 ")
 ;;2347
 ;;21,"54569-5938-00 ")
 ;;2348
 ;;21,"54569-5938-01 ")
 ;;2349
 ;;21,"54569-5998-00 ")
 ;;2350
 ;;21,"54569-5999-00 ")
 ;;2351
 ;;21,"54569-6091-00 ")
 ;;2352
 ;;21,"54569-6091-01 ")
 ;;2353
 ;;21,"54569-6092-00 ")
 ;;2354
 ;;21,"54569-6092-01 ")
 ;;2355
 ;;21,"54569-6098-00 ")
 ;;2356
 ;;21,"54569-6110-01 ")
 ;;2357
 ;;21,"54569-6111-00 ")
 ;;2358
 ;;21,"54569-6111-01 ")
 ;;2359
 ;;21,"54569-6112-00 ")
 ;;2360
 ;;21,"54569-6112-01 ")
 ;;2361
 ;;21,"54569-6173-00 ")
 ;;2362
 ;;21,"54569-6173-01 ")
 ;;2363
 ;;21,"54569-6180-00 ")
 ;;2364
 ;;21,"54569-6180-01 ")
 ;;2365
 ;;21,"54569-6182-00 ")
 ;;2366
 ;;21,"54569-6182-01 ")
 ;;2367
 ;;21,"54569-6223-00 ")
 ;;2368
 ;;21,"54569-6223-01 ")
 ;;2369
 ;;21,"54569-6228-00 ")
 ;;2370
 ;;21,"54569-6228-01 ")
 ;;2371
 ;;21,"54569-6228-02 ")
 ;;2372
 ;;21,"54569-6273-00 ")
 ;;2373
 ;;21,"54569-6274-00 ")
 ;;2374
 ;;21,"54569-6294-00 ")
 ;;2375
 ;;21,"54569-6294-01 ")
 ;;2376
 ;;21,"54569-6297-00 ")
 ;;2377
 ;;21,"54569-6297-01 ")
 ;;2378
 ;;21,"54569-6309-00 ")
 ;;2379
 ;;21,"54569-6416-00 ")
 ;;2380
 ;;21,"54569-6480-00 ")
 ;;2381
 ;;21,"54569-6480-01 ")
 ;;2382
 ;;21,"54569-6483-00 ")
 ;;2383
 ;;21,"54569-6483-01 ")
 ;;2384
 ;;21,"54569-6485-00 ")
 ;;2385
 ;;21,"54569-6486-00 ")
 ;;2386
 ;;21,"54569-6487-00 ")
 ;;2387
 ;;21,"54569-6488-00 ")
 ;;2388
 ;;21,"54569-6552-00 ")
 ;;2389
 ;;21,"54569-6553-00 ")
 ;;2390
 ;;21,"54569-6564-00 ")
 ;;2391
 ;;21,"54569-6582-00 ")
 ;;2392
 ;;21,"54569-6582-01 ")
 ;;2393
 ;;21,"54569-6583-00 ")
 ;;2394
 ;;21,"54569-6583-01 ")
 ;;2395
 ;;21,"54569-6588-00 ")
 ;;2396
 ;;21,"54569-6588-01 ")
 ;;2397
 ;;21,"54868-0009-00 ")
 ;;2398
 ;;21,"54868-0009-01 ")
 ;;2399
 ;;21,"54868-1502-00 ")
 ;;2400
 ;;21,"54868-1802-00 ")
 ;;2401
 ;;21,"54868-1960-00 ")
 ;;2402
 ;;21,"54868-1970-01 ")
 ;;2403
 ;;21,"54868-1970-02 ")
 ;;2404
 ;;21,"54868-1970-03 ")
 ;;2405
 ;;21,"54868-2335-00 ")
 ;;2406
 ;;21,"54868-2335-01 ")
 ;;2407
 ;;21,"54868-2350-01 ")
 ;;2408
 ;;21,"54868-2350-02 ")
 ;;2409
 ;;21,"54868-2350-03 ")
 ;;2410
 ;;21,"54868-2350-04 ")
 ;;2411
 ;;21,"54868-2351-00 ")
 ;;2412
 ;;21,"54868-2351-02 ")
 ;;2413
 ;;21,"54868-2351-03 ")
 ;;2414
 ;;21,"54868-2352-00 ")
 ;;2415
 ;;21,"54868-2352-01 ")
 ;;2416
 ;;21,"54868-2644-01 ")
 ;;2417
 ;;21,"54868-2644-02 ")
 ;;2418
 ;;21,"54868-2645-01 ")
 ;;2419
 ;;21,"54868-2645-02 ")
 ;;2420
 ;;21,"54868-2645-03 ")
 ;;2421
 ;;21,"54868-2665-00 ")
 ;;2422
 ;;21,"54868-2665-01 ")
 ;;2423
 ;;21,"54868-2666-01 ")
 ;;2424
 ;;21,"54868-2666-02 ")
 ;;2425
 ;;21,"54868-2666-03 ")
 ;;2426
 ;;21,"54868-2666-04 ")
 ;;2427
 ;;21,"54868-2847-00 ")
 ;;2428
 ;;21,"54868-3307-00 ")
 ;;2429
 ;;21,"54868-3307-01 ")
 ;;2430
 ;;21,"54868-3443-00 ")
 ;;2431
 ;;21,"54868-3443-01 ")
 ;;2432
 ;;21,"54868-3445-00 ")
 ;;2433
 ;;21,"54868-3445-01 ")
 ;;2434
 ;;21,"54868-3690-01 ")
 ;;2435
 ;;21,"54868-3723-01 ")
 ;;2436
 ;;21,"54868-3723-02 ")
 ;;2437
 ;;21,"54868-3723-03 ")
 ;;2438
 ;;21,"54868-3723-04 ")
 ;;2439
 ;;21,"54868-3723-05 ")
 ;;2440
 ;;21,"54868-3724-01 ")
 ;;2441
 ;;21,"54868-3724-02 ")
 ;;2442
 ;;21,"54868-3724-03 ")
 ;;2443
 ;;21,"54868-3724-04 ")
 ;;2444
 ;;21,"54868-3725-01 ")
 ;;2445
 ;;21,"54868-3725-02 ")
 ;;2446
 ;;21,"54868-3725-03 ")
 ;;2447
 ;;21,"54868-3725-04 ")
 ;;2448
 ;;21,"54868-3726-00 ")
 ;;2449
 ;;21,"54868-3726-01 ")
 ;;2450
 ;;21,"54868-3726-02 ")
 ;;2451
 ;;21,"54868-3846-00 ")
 ;;2452
 ;;21,"54868-3846-02 ")
 ;;2453
 ;;21,"54868-3846-03 ")
 ;;2454
 ;;21,"54868-3866-00 ")
 ;;2455
 ;;21,"54868-3866-01 ")
 ;;2456
 ;;21,"54868-3906-00 ")
 ;;2457
 ;;21,"54868-3906-01 ")
 ;;2458
 ;;21,"54868-3906-02 ")
 ;;2459
 ;;21,"54868-4062-00 ")
 ;;2460
 ;;21,"54868-4062-01 ")
 ;;2461
 ;;21,"54868-4066-00 ")
 ;;2462
 ;;21,"54868-4066-01 ")
 ;;2463
 ;;21,"54868-4073-00 ")
 ;;2464
 ;;21,"54868-4073-01 ")
 ;;2465
 ;;21,"54868-4073-02 ")
 ;;2466
 ;;21,"54868-4073-03 ")
 ;;2467
 ;;21,"54868-4074-00 ")
 ;;2468
 ;;21,"54868-4074-01 ")
 ;;2469
 ;;21,"54868-4074-02 ")
 ;;2470
 ;;21,"54868-4074-03 ")
 ;;2471
 ;;21,"54868-4074-04 ")
 ;;2472
 ;;21,"54868-4199-00 ")
 ;;2473
 ;;21,"54868-4199-01 ")
 ;;2474
 ;;21,"54868-4199-02 ")
 ;;2475
 ;;21,"54868-4331-00 ")
 ;;2476
 ;;21,"54868-4331-01 ")
 ;;2477
 ;;21,"54868-4331-02 ")
 ;;2478
 ;;21,"54868-4331-03 ")
 ;;2479
 ;;21,"54868-4332-00 ")
 ;;2480
 ;;21,"54868-4332-01 ")
 ;;2481
 ;;21,"54868-4332-02 ")
 ;;2482
 ;;21,"54868-4341-00 ")
 ;;2483
 ;;21,"54868-4341-01 ")
 ;;2484
 ;;21,"54868-4357-00 ")
 ;;2485
 ;;21,"54868-4357-01 ")
 ;;2486
 ;;21,"54868-4357-02 ")
 ;;2487
 ;;21,"54868-4357-03 ")
 ;;2488
 ;;21,"54868-4358-00 ")
 ;;2489
 ;;21,"54868-4358-01 ")
 ;;2490
 ;;21,"54868-4358-02 ")
 ;;2491
 ;;21,"54868-4358-03 ")
 ;;2492
 ;;21,"54868-4413-00 ")
 ;;2493
 ;;21,"54868-4414-00 ")
 ;;2494
 ;;21,"54868-4414-01 ")
 ;;2495
 ;;21,"54868-4425-00 ")
 ;;2496
 ;;21,"54868-4425-03 ")
 ;;2497
 ;;21,"54868-4428-00 ")
 ;;2498
 ;;21,"54868-4428-02 ")
 ;;2499
 ;;21,"54868-4428-03 ")
 ;;2500
 ;;21,"54868-4479-00 ")
 ;;2501
 ;;21,"54868-4479-01 ")
 ;;2502
 ;;21,"54868-4479-02 ")
 ;;2503
 ;;21,"54868-4494-00 ")
 ;;2504
 ;;21,"54868-4526-00 ")
 ;;2505
 ;;21,"54868-4526-01 ")
 ;;2506
 ;;21,"54868-4539-01 ")
 ;;2507
 ;;21,"54868-4540-01 ")
 ;;2508
 ;;21,"54868-4540-02 ")
 ;;2509
 ;;21,"54868-4605-01 ")
 ;;2510
 ;;21,"54868-4605-02 ")
 ;;2511
 ;;21,"54868-4612-00 ")
 ;;2512
 ;;21,"54868-4637-00 ")
 ;;2513
 ;;21,"54868-4637-01 ")
 ;;2514
 ;;21,"54868-4637-02 ")
 ;;2515
 ;;21,"54868-4637-03 ")
 ;;2516
 ;;21,"54868-4637-04 ")
 ;;2517
 ;;21,"54868-4645-00 ")
 ;;2518
 ;;21,"54868-4645-01 ")
 ;;2519
 ;;21,"54868-4645-02 ")
 ;;2520
 ;;21,"54868-4645-03 ")
 ;;2521
 ;;21,"54868-4646-00 ")
 ;;2522
 ;;21,"54868-4646-02 ")
 ;;2523
 ;;21,"54868-4646-03 ")
 ;;2524
 ;;21,"54868-4646-04 ")
 ;;2525
 ;;21,"54868-4646-05 ")
 ;;2526
 ;;21,"54868-4652-00 ")
 ;;2527
 ;;21,"54868-4652-01 ")
 ;;2528
 ;;21,"54868-4652-02 ")
 ;;2529
 ;;21,"54868-4652-03 ")
 ;;2530
 ;;21,"54868-4652-04 ")
 ;;2531
 ;;21,"54868-4652-05 ")
 ;;2532
 ;;21,"54868-4656-00 ")
 ;;2533
 ;;21,"54868-4656-01 ")
 ;;2534
 ;;21,"54868-4656-02 ")
 ;;2535
 ;;21,"54868-4656-03 ")
 ;;2536
 ;;21,"54868-4657-00 ")
 ;;2537
 ;;21,"54868-4657-01 ")
 ;;2538