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

BGPM5BAW.m

Go to the documentation of this file.
BGPM5BAW ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 2011;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
 ;
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,"54458096110 ")
 ;;2299
 ;;21,"54458098005 ")
 ;;2300
 ;;21,"54458098010 ")
 ;;2301
 ;;21,"54458098110 ")
 ;;2302
 ;;21,"54458098810 ")
 ;;2303
 ;;21,"54458098904 ")
 ;;2304
 ;;21,"54458098910 ")
 ;;2305
 ;;21,"54458099010 ")
 ;;2306
 ;;21,"54569017200 ")
 ;;2307
 ;;21,"54569017201 ")
 ;;2308
 ;;21,"54569017202 ")
 ;;2309
 ;;21,"54569017204 ")
 ;;2310
 ;;21,"54569017206 ")
 ;;2311
 ;;21,"54569017207 ")
 ;;2312
 ;;21,"54569017208 ")
 ;;2313
 ;;21,"54569017500 ")
 ;;2314
 ;;21,"54569017501 ")
 ;;2315
 ;;21,"54569017502 ")
 ;;2316
 ;;21,"54569017503 ")
 ;;2317
 ;;21,"54569017504 ")
 ;;2318
 ;;21,"54569017505 ")
 ;;2319
 ;;21,"54569017506 ")
 ;;2320
 ;;21,"54569017508 ")
 ;;2321
 ;;21,"54569019400 ")
 ;;2322
 ;;21,"54569019402 ")
 ;;2323
 ;;21,"54569019603 ")
 ;;2324
 ;;21,"54569019604 ")
 ;;2325
 ;;21,"54569147000 ")
 ;;2326
 ;;21,"54569147001 ")
 ;;2327
 ;;21,"54569147006 ")
 ;;2328
 ;;21,"54569147008 ")
 ;;2329
 ;;21,"54569147009 ")
 ;;2330
 ;;21,"54569151900 ")
 ;;2331
 ;;21,"54569151901 ")
 ;;2332
 ;;21,"54569151902 ")
 ;;2333
 ;;21,"54569151903 ")
 ;;2334
 ;;21,"54569186401 ")
 ;;2335
 ;;21,"54569186402 ")
 ;;2336
 ;;21,"54569199900 ")
 ;;2337
 ;;21,"54569199901 ")
 ;;2338
 ;;21,"54569199902 ")
 ;;2339
 ;;21,"54569199903 ")
 ;;2340
 ;;21,"54569214600 ")
 ;;2341
 ;;21,"54569214601 ")
 ;;2342
 ;;21,"54569214602 ")
 ;;2343
 ;;21,"54569272600 ")
 ;;2344
 ;;21,"54569373201 ")
 ;;2345
 ;;21,"54569373202 ")
 ;;2346
 ;;21,"54569373203 ")
 ;;2347
 ;;21,"54569384900 ")
 ;;2348
 ;;21,"54569384901 ")
 ;;2349
 ;;21,"54569389400 ")
 ;;2350
 ;;21,"54569414600 ")
 ;;2351
 ;;21,"54569414601 ")
 ;;2352
 ;;21,"54569529100 ")
 ;;2353
 ;;21,"54569529101 ")
 ;;2354
 ;;21,"54569529103 ")
 ;;2355
 ;;21,"54569531900 ")
 ;;2356
 ;;21,"54569531901 ")
 ;;2357
 ;;21,"54569531902 ")
 ;;2358
 ;;21,"54569532000 ")
 ;;2359
 ;;21,"54569532001 ")
 ;;2360
 ;;21,"54569554100 ")
 ;;2361
 ;;21,"54569554101 ")
 ;;2362
 ;;21,"54569562600 ")
 ;;2363
 ;;21,"54569562601 ")
 ;;2364
 ;;21,"54569562700 ")
 ;;2365
 ;;21,"54569568200 ")
 ;;2366
 ;;21,"54569581800 ")
 ;;2367
 ;;21,"54569581801 ")
 ;;2368
 ;;21,"54569581802 ")
 ;;2369
 ;;21,"54569581900 ")
 ;;2370
 ;;21,"54569581901 ")
 ;;2371
 ;;21,"54569581902 ")
 ;;2372
 ;;21,"54569587200 ")
 ;;2373
 ;;21,"54569589500 ")
 ;;2374
 ;;21,"54569596800 ")
 ;;2375
 ;;21,"54569596802 ")
 ;;2376
 ;;21,"54569619200 ")
 ;;2377
 ;;21,"54569622600 ")
 ;;2378
 ;;21,"54569622700 ")
 ;;2379
 ;;21,"54738091201 ")
 ;;2380
 ;;21,"54738091301 ")
 ;;2381
 ;;21,"54738091401 ")
 ;;2382
 ;;21,"54838054070 ")
 ;;2383
 ;;21,"54868006402 ")
 ;;2384
 ;;21,"54868006403 ")
 ;;2385
 ;;21,"54868006404 ")
 ;;2386
 ;;21,"54868006405 ")
 ;;2387
 ;;21,"54868006406 ")
 ;;2388
 ;;21,"54868006407 ")
 ;;2389
 ;;21,"54868006500 ")
 ;;2390
 ;;21,"54868006502 ")
 ;;2391
 ;;21,"54868006503 ")
 ;;2392
 ;;21,"54868006504 ")
 ;;2393
 ;;21,"54868006505 ")
 ;;2394
 ;;21,"54868006507 ")
 ;;2395
 ;;21,"54868006508 ")
 ;;2396
 ;;21,"54868006509 ")
 ;;2397
 ;;21,"54868006600 ")
 ;;2398
 ;;21,"54868006602 ")
 ;;2399
 ;;21,"54868006603 ")
 ;;2400
 ;;21,"54868006605 ")
 ;;2401
 ;;21,"54868006606 ")
 ;;2402
 ;;21,"54868006607 ")
 ;;2403
 ;;21,"54868012200 ")
 ;;2404
 ;;21,"54868012201 ")
 ;;2405
 ;;21,"54868012202 ")
 ;;2406
 ;;21,"54868012203 ")
 ;;2407
 ;;21,"54868012204 ")
 ;;2408
 ;;21,"54868012205 ")
 ;;2409
 ;;21,"54868012206 ")
 ;;2410
 ;;21,"54868012207 ")
 ;;2411
 ;;21,"54868012402 ")
 ;;2412
 ;;21,"54868012403 ")
 ;;2413
 ;;21,"54868012502 ")
 ;;2414
 ;;21,"54868012503 ")
 ;;2415
 ;;21,"54868012504 ")
 ;;2416
 ;;21,"54868042600 ")
 ;;2417
 ;;21,"54868122300 ")
 ;;2418
 ;;21,"54868122301 ")
 ;;2419
 ;;21,"54868122302 ")
 ;;2420
 ;;21,"54868122303 ")
 ;;2421
 ;;21,"54868122304 ")
 ;;2422
 ;;21,"54868123900 ")
 ;;2423
 ;;21,"54868123901 ")
 ;;2424
 ;;21,"54868123902 ")
 ;;2425
 ;;21,"54868123903 ")
 ;;2426
 ;;21,"54868123904 ")
 ;;2427
 ;;21,"54868134400 ")
 ;;2428
 ;;21,"54868134401 ")
 ;;2429
 ;;21,"54868134402 ")
 ;;2430
 ;;21,"54868134403 ")
 ;;2431
 ;;21,"54868134404 ")
 ;;2432
 ;;21,"54868153400 ")
 ;;2433
 ;;21,"54868153401 ")
 ;;2434
 ;;21,"54868181900 ")
 ;;2435
 ;;21,"54868195900 ")
 ;;2436
 ;;21,"54868195901 ")
 ;;2437
 ;;21,"54868195902 ")
 ;;2438
 ;;21,"54868195903 ")
 ;;2439
 ;;21,"54868195904 ")
 ;;2440
 ;;21,"54868220600 ")
 ;;2441
 ;;21,"54868220601 ")
 ;;2442
 ;;21,"54868222100 ")
 ;;2443
 ;;21,"54868222101 ")
 ;;2444
 ;;21,"54868222102 ")
 ;;2445
 ;;21,"54868222103 ")
 ;;2446
 ;;21,"54868222104 ")
 ;;2447
 ;;21,"54868222105 ")
 ;;2448
 ;;21,"54868235700 ")
 ;;2449
 ;;21,"54868235702 ")
 ;;2450
 ;;21,"54868235703 ")
 ;;2451
 ;;21,"54868243300 ")
 ;;2452
 ;;21,"54868243302 ")
 ;;2453
 ;;21,"54868243400 ")
 ;;2454
 ;;21,"54868243402 ")
 ;;2455
 ;;21,"54868243800 ")
 ;;2456
 ;;21,"54868243801 ")
 ;;2457
 ;;21,"54868248000 ")
 ;;2458
 ;;21,"54868248001 ")
 ;;2459
 ;;21,"54868248002 ")
 ;;2460
 ;;21,"54868248004 ")
 ;;2461
 ;;21,"54868248101 ")
 ;;2462
 ;;21,"54868248102 ")
 ;;2463
 ;;21,"54868248103 ")
 ;;2464
 ;;21,"54868248200 ")
 ;;2465
 ;;21,"54868248202 ")
 ;;2466
 ;;21,"54868257100 ")
 ;;2467
 ;;21,"54868257101 ")
 ;;2468
 ;;21,"54868283300 ")
 ;;2469
 ;;21,"54868283301 ")
 ;;2470
 ;;21,"54868283501 ")
 ;;2471
 ;;21,"54868283502 ")
 ;;2472
 ;;21,"54868283503 ")
 ;;2473
 ;;21,"54868283504 ")
 ;;2474
 ;;21,"54868392700 ")
 ;;2475
 ;;21,"54868402300 ")
 ;;2476
 ;;21,"54868402301 ")
 ;;2477
 ;;21,"54868405500 ")
 ;;2478
 ;;21,"54868405501 ")
 ;;2479
 ;;21,"54868405502 ")
 ;;2480
 ;;21,"54868405503 ")
 ;;2481
 ;;21,"54868428800 ")
 ;;2482
 ;;21,"54868453700 ")
 ;;2483
 ;;21,"54868453701 ")
 ;;2484
 ;;21,"54868453702 ")
 ;;2485
 ;;21,"54868453703 ")
 ;;2486
 ;;21,"54868453704 ")
 ;;2487
 ;;21,"54868456000 ")
 ;;2488
 ;;21,"54868456001 ")
 ;;2489
 ;;21,"54868456002 ")
 ;;2490
 ;;21,"54868456200 ")
 ;;2491
 ;;21,"54868456201 ")
 ;;2492
 ;;21,"54868481700 ")
 ;;2493
 ;;21,"54868481701 ")
 ;;2494
 ;;21,"54868481702 ")
 ;;2495
 ;;21,"54868493700 ")
 ;;2496
 ;;21,"54868493701 ")
 ;;2497
 ;;21,"54868493702 ")
 ;;2498
 ;;21,"54868493703 ")
 ;;2499
 ;;21,"54868493704 ")
 ;;2500
 ;;21,"54868493800 ")
 ;;2501
 ;;21,"54868508000 ")
 ;;2502
 ;;21,"54868517800 ")
 ;;2503
 ;;21,"54868517801 ")
 ;;2504
 ;;21,"54868517802 ")
 ;;2505
 ;;21,"54868517803 ")
 ;;2506
 ;;21,"54868517804 ")
 ;;2507
 ;;21,"54868517805 ")
 ;;2508
 ;;21,"54868527500 ")
 ;;2509
 ;;21,"54868527501 ")
 ;;2510
 ;;21,"54868527502 ")
 ;;2511
 ;;21,"54868544800 ")
 ;;2512
 ;;21,"54868563500 ")
 ;;2513
 ;;21,"54868563800 ")
 ;;2514
 ;;21,"54868563801 ")
 ;;2515
 ;;21,"54868563802 ")
 ;;2516
 ;;21,"54868563803 ")
 ;;2517
 ;;21,"54868563804 ")
 ;;2518
 ;;21,"54868563805 ")
 ;;2519
 ;;21,"54868563806 ")
 ;;2520
 ;;21,"54868563807 ")
 ;;2521
 ;;21,"54868563808 ")
 ;;2522
 ;;21,"54868563900 ")
 ;;2523
 ;;21,"54868563901 ")
 ;;2524
 ;;21,"54868563902 ")
 ;;2525
 ;;21,"54868563903 ")
 ;;2526
 ;;21,"54868563904 ")
 ;;2527
 ;;21,"54868563905 ")
 ;;2528
 ;;21,"54868563906 ")
 ;;2529
 ;;21,"54868564200 ")
 ;;2530
 ;;21,"54868565800 ")
 ;;2531
 ;;21,"54868566300 ")
 ;;2532
 ;;21,"54868566301 ")
 ;;2533
 ;;21,"54868566302 ")
 ;;2534
 ;;21,"54868575400 ")
 ;;2535
 ;;21,"54868575401 ")
 ;;2536
 ;;21,"54868575402 ")
 ;;2537
 ;;21,"54868575403 ")
 ;;2538
 ;;21,"54868581200 ")
 ;;2539
 ;;21,"54868612700 ")
 ;;2540
 ;;21,"54868613900 ")
 ;;2541
 ;;21,"54868613901 ")
 ;;2542
 ;;21,"54868614000 ")
 ;;2543
 ;;21,"54868614001 ")
 ;;2544
 ;;21,"54868614100 ")
 ;;2545
 ;;21,"54868614101 ")
 ;;2546
 ;;21,"54868614102 ")
 ;;2547
 ;;21,"54868617800 ")
 ;;2548
 ;;21,"54868624700 ")
 ;;2549
 ;;21,"55045071506 ")
 ;;2550
 ;;21,"55045146300 ")
 ;;2551
 ;;21,"55045146301 ")
 ;;2552
 ;;21,"55045146302 ")
 ;;2553
 ;;21,"55045146303 ")
 ;;2554
 ;;21,"55045146304 ")
 ;;2555
 ;;21,"55045146306 ")
 ;;2556
 ;;21,"55045146307 ")
 ;;2557
 ;;21,"55045146308 ")
 ;;2558
 ;;21,"55045146309 ")
 ;;2559
 ;;21,"55045159200 ")
 ;;2560
 ;;21,"55045159201 ")
 ;;2561
 ;;21,"55045159205 ")
 ;;2562
 ;;21,"55045159206 ")
 ;;2563
 ;;21,"55045159208 ")
 ;;2564
 ;;21,"55045159209 ")
 ;;2565
 ;;21,"55045168200 ")
 ;;2566
 ;;21,"55045168201 ")
 ;;2567
 ;;21,"55045168202 ")
 ;;2568
 ;;21,"55045168203 ")
 ;;2569
 ;;21,"55045168204 ")
 ;;2570
 ;;21,"55045168205 ")
 ;;2571
 ;;21,"55045168206 ")
 ;;2572
 ;;21,"55045168208 ")
 ;;2573
 ;;21,"55045168209 ")
 ;;2574
 ;;21,"55045171500 ")
 ;;2575
 ;;21,"55045171501 ")
 ;;2576
 ;;21,"55045171502 ")
 ;;2577
 ;;21,"55045171503 ")
 ;;2578
 ;;21,"55045171507 ")
 ;;2579
 ;;21,"55045171508 ")
 ;;2580
 ;;21,"55045171509 ")
 ;;2581
 ;;21,"55045172100 ")
 ;;2582
 ;;21,"55045172108 ")
 ;;2583
 ;;21,"55045172201 ")
 ;;2584
 ;;21,"55045172208 ")
 ;;2585
 ;;21,"55045172400 ")
 ;;2586
 ;;21,"55045172401 ")
 ;;2587
 ;;21,"55045172406 ")
 ;;2588
 ;;21,"55045172408 ")
 ;;2589
 ;;21,"55045172409 ")
 ;;2590
 ;;21,"55045174100 ")
 ;;2591
 ;;21,"55045174101 ")
 ;;2592
 ;;21,"55045174102 ")
 ;;2593
 ;;21,"55045174103 ")
 ;;2594
 ;;21,"55045174105 ")
 ;;2595
 ;;21,"55045174106 ")
 ;;2596
 ;;21,"55045174108 ")
 ;;2597
 ;;21,"55045174109 ")
 ;;2598
 ;;21,"55045174202 ")
 ;;2599
 ;;21,"55045179401 ")
 ;;2600
 ;;21,"55045179408 ")
 ;;2601
 ;;21,"55045180008 ")
 ;;2602
 ;;21,"55045192001 ")
 ;;2603
 ;;21,"55045192002 ")
 ;;2604
 ;;21,"55045192006 ")
 ;;2605
 ;;21,"55045192008 ")
 ;;2606
 ;;21,"55045192009 ")
 ;;2607
 ;;21,"55045195601 ")
 ;;2608
 ;;21,"55045195602 ")
 ;;2609
 ;;21,"55045195604 ")
 ;;2610
 ;;21,"55045195606 ")
 ;;2611
 ;;21,"55045195608 ")
 ;;2612
 ;;21,"55045195609 ")
 ;;2613
 ;;21,"55045198202 ")
 ;;2614
 ;;21,"55045198208 ")
 ;;2615
 ;;21,"55045198209 ")
 ;;2616
 ;;21,"55045215301 ")
 ;;2617
 ;;21,"55045215308 ")
 ;;2618
 ;;21,"55045236008 ")
 ;;2619
 ;;21,"55045250900 ")
 ;;2620
 ;;21,"55045250901 ")
 ;;2621
 ;;21,"55045250906 ")
 ;;2622
 ;;21,"55045250908 ")
 ;;2623
 ;;21,"55045250909 ")
 ;;2624
 ;;21,"55045269806 ")
 ;;2625
 ;;21,"55045269808 ")
 ;;2626
 ;;21,"55045279506 ")
 ;;2627
 ;;21,"55045290700 ")
 ;;2628
 ;;21,"55045290702 ")
 ;;2629
 ;;21,"55045290706 ")
 ;;2630
 ;;21,"55045290708 ")
 ;;2631
 ;;21,"55045290709 ")
 ;;2632
 ;;21,"55045290800 ")
 ;;2633
 ;;21,"55045290802 ")
 ;;2634
 ;;21,"55045290806 ")
 ;;2635
 ;;21,"55045290808 ")
 ;;2636
 ;;21,"55045290809 ")
 ;;2637
 ;;21,"55045313708 ")
 ;;2638
 ;;21,"55045317108 ")
 ;;2639
 ;;21,"55045317208 ")
 ;;2640
 ;;21,"55045317209 ")
 ;;2641
 ;;21,"55045318506 ")
 ;;2642
 ;;21,"55045334100 ")
 ;;2643
 ;;21,"55045334106 ")
 ;;2644
 ;;21,"55045334108 ")
 ;;2645
 ;;21,"55045342301 ")
 ;;2646
 ;;21,"55045342302 ")
 ;;2647
 ;;21,"55045342400 ")
 ;;2648
 ;;21,"55045342408 ")
 ;;2649
 ;;21,"55045356201 ")
 ;;2650