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

BGPM5ADV.m

Go to the documentation of this file.
BGPM5ADV ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"60429073145 ")
 ;;2346
 ;;21,"60429073190 ")
 ;;2347
 ;;21,"60429073210 ")
 ;;2348
 ;;21,"60429073230 ")
 ;;2349
 ;;21,"60429073290 ")
 ;;2350
 ;;21,"60429073301 ")
 ;;2351
 ;;21,"60429073310 ")
 ;;2352
 ;;21,"60429073330 ")
 ;;2353
 ;;21,"60429073345 ")
 ;;2354
 ;;21,"60429073390 ")
 ;;2355
 ;;21,"60429075510 ")
 ;;2356
 ;;21,"60429075545 ")
 ;;2357
 ;;21,"60429075590 ")
 ;;2358
 ;;21,"60429075610 ")
 ;;2359
 ;;21,"60429075618 ")
 ;;2360
 ;;21,"60429075645 ")
 ;;2361
 ;;21,"60429075690 ")
 ;;2362
 ;;21,"60429075710 ")
 ;;2363
 ;;21,"60429075718 ")
 ;;2364
 ;;21,"60429075745 ")
 ;;2365
 ;;21,"60429075790 ")
 ;;2366
 ;;21,"60505000306 ")
 ;;2367
 ;;21,"60505000309 ")
 ;;2368
 ;;21,"60505000406 ")
 ;;2369
 ;;21,"60505000409 ")
 ;;2370
 ;;21,"60505000506 ")
 ;;2371
 ;;21,"60505000509 ")
 ;;2372
 ;;21,"60505000606 ")
 ;;2373
 ;;21,"60505000609 ")
 ;;2374
 ;;21,"60505004906 ")
 ;;2375
 ;;21,"60505004907 ")
 ;;2376
 ;;21,"60505004909 ")
 ;;2377
 ;;21,"60505005006 ")
 ;;2378
 ;;21,"60505005007 ")
 ;;2379
 ;;21,"60505005009 ")
 ;;2380
 ;;21,"60505005106 ")
 ;;2381
 ;;21,"60505005107 ")
 ;;2382
 ;;21,"60505005109 ")
 ;;2383
 ;;21,"60505005206 ")
 ;;2384
 ;;21,"60505005207 ")
 ;;2385
 ;;21,"60505005209 ")
 ;;2386
 ;;21,"60505017200 ")
 ;;2387
 ;;21,"60505017201 ")
 ;;2388
 ;;21,"60505017202 ")
 ;;2389
 ;;21,"60505017205 ")
 ;;2390
 ;;21,"60505017300 ")
 ;;2391
 ;;21,"60505017301 ")
 ;;2392
 ;;21,"60505017302 ")
 ;;2393
 ;;21,"60505017305 ")
 ;;2394
 ;;21,"60505017400 ")
 ;;2395
 ;;21,"60505017401 ")
 ;;2396
 ;;21,"60505017402 ")
 ;;2397
 ;;21,"60505017405 ")
 ;;2398
 ;;21,"60505017500 ")
 ;;2399
 ;;21,"60505017501 ")
 ;;2400
 ;;21,"60505017502 ")
 ;;2401
 ;;21,"60505017505 ")
 ;;2402
 ;;21,"60505018400 ")
 ;;2403
 ;;21,"60505018401 ")
 ;;2404
 ;;21,"60505018500 ")
 ;;2405
 ;;21,"60505018501 ")
 ;;2406
 ;;21,"60505018507 ")
 ;;2407
 ;;21,"60505018509 ")
 ;;2408
 ;;21,"60505018600 ")
 ;;2409
 ;;21,"60505018601 ")
 ;;2410
 ;;21,"60505018607 ")
 ;;2411
 ;;21,"60505018609 ")
 ;;2412
 ;;21,"60505018700 ")
 ;;2413
 ;;21,"60505018701 ")
 ;;2414
 ;;21,"60505018707 ")
 ;;2415
 ;;21,"60505018709 ")
 ;;2416
 ;;21,"60505018800 ")
 ;;2417
 ;;21,"60505018801 ")
 ;;2418
 ;;21,"60505018809 ")
 ;;2419
 ;;21,"60505018900 ")
 ;;2420
 ;;21,"60505018901 ")
 ;;2421
 ;;21,"60505018908 ")
 ;;2422
 ;;21,"60505018909 ")
 ;;2423
 ;;21,"60505020501 ")
 ;;2424
 ;;21,"60505020502 ")
 ;;2425
 ;;21,"60505020503 ")
 ;;2426
 ;;21,"60505020505 ")
 ;;2427
 ;;21,"60505020507 ")
 ;;2428
 ;;21,"60505020601 ")
 ;;2429
 ;;21,"60505020602 ")
 ;;2430
 ;;21,"60505020603 ")
 ;;2431
 ;;21,"60505020605 ")
 ;;2432
 ;;21,"60505020607 ")
 ;;2433
 ;;21,"60505020701 ")
 ;;2434
 ;;21,"60505020702 ")
 ;;2435
 ;;21,"60505020703 ")
 ;;2436
 ;;21,"60505020705 ")
 ;;2437
 ;;21,"60505020707 ")
 ;;2438
 ;;21,"60505020801 ")
 ;;2439
 ;;21,"60505020802 ")
 ;;2440
 ;;21,"60505020901 ")
 ;;2441
 ;;21,"60505020902 ")
 ;;2442
 ;;21,"60505027101 ")
 ;;2443
 ;;21,"60505027103 ")
 ;;2444
 ;;21,"60505027105 ")
 ;;2445
 ;;21,"60505027108 ")
 ;;2446
 ;;21,"60505027201 ")
 ;;2447
 ;;21,"60505027203 ")
 ;;2448
 ;;21,"60505027205 ")
 ;;2449
 ;;21,"60505027208 ")
 ;;2450
 ;;21,"60505251002 ")
 ;;2451
 ;;21,"60505251003 ")
 ;;2452
 ;;21,"60505251004 ")
 ;;2453
 ;;21,"60505251102 ")
 ;;2454
 ;;21,"60505251103 ")
 ;;2455
 ;;21,"60505251104 ")
 ;;2456
 ;;21,"60505251202 ")
 ;;2457
 ;;21,"60505251203 ")
 ;;2458
 ;;21,"60505251204 ")
 ;;2459
 ;;21,"60505251208 ")
 ;;2460
 ;;21,"60505268301 ")
 ;;2461
 ;;21,"60505268401 ")
 ;;2462
 ;;21,"60505268408 ")
 ;;2463
 ;;21,"60505268409 ")
 ;;2464
 ;;21,"60505268501 ")
 ;;2465
 ;;21,"60505268508 ")
 ;;2466
 ;;21,"60505268509 ")
 ;;2467
 ;;21,"60505268601 ")
 ;;2468
 ;;21,"60505268608 ")
 ;;2469
 ;;21,"60505268609 ")
 ;;2470
 ;;21,"60505268801 ")
 ;;2471
 ;;21,"60505268808 ")
 ;;2472
 ;;21,"60505268809 ")
 ;;2473
 ;;21,"60505268901 ")
 ;;2474
 ;;21,"60505269001 ")
 ;;2475
 ;;21,"60505269101 ")
 ;;2476
 ;;21,"60505287501 ")
 ;;2477
 ;;21,"60505287503 ")
 ;;2478
 ;;21,"60505287505 ")
 ;;2479
 ;;21,"60505287508 ")
 ;;2480
 ;;21,"60505287600 ")
 ;;2481
 ;;21,"60505287601 ")
 ;;2482
 ;;21,"60505287603 ")
 ;;2483
 ;;21,"60505287605 ")
 ;;2484
 ;;21,"60505287608 ")
 ;;2485
 ;;21,"60505287700 ")
 ;;2486
 ;;21,"60505287701 ")
 ;;2487
 ;;21,"60505287703 ")
 ;;2488
 ;;21,"60505287705 ")
 ;;2489
 ;;21,"60505287708 ")
 ;;2490
 ;;21,"60505287800 ")
 ;;2491
 ;;21,"60505287801 ")
 ;;2492
 ;;21,"60505287803 ")
 ;;2493
 ;;21,"60505287805 ")
 ;;2494
 ;;21,"60505287808 ")
 ;;2495
 ;;21,"60763101100 ")
 ;;2496
 ;;21,"60763101102 ")
 ;;2497
 ;;21,"60763101200 ")
 ;;2498
 ;;21,"60763101202 ")
 ;;2499
 ;;21,"60763101300 ")
 ;;2500
 ;;21,"60763101302 ")
 ;;2501
 ;;21,"60763101400 ")
 ;;2502
 ;;21,"60951072170 ")
 ;;2503
 ;;21,"60951072270 ")
 ;;2504
 ;;21,"60951072470 ")
 ;;2505
 ;;21,"60951072770 ")
 ;;2506
 ;;21,"60951073170 ")
 ;;2507
 ;;21,"60951073370 ")
 ;;2508
 ;;21,"60951073970 ")
 ;;2509
 ;;21,"60951074170 ")
 ;;2510
 ;;21,"61392045425 ")
 ;;2511
 ;;21,"61392045430 ")
 ;;2512
 ;;21,"61392045431 ")
 ;;2513
 ;;21,"61392045439 ")
 ;;2514
 ;;21,"61392047425 ")
 ;;2515
 ;;21,"61392047430 ")
 ;;2516
 ;;21,"61392047431 ")
 ;;2517
 ;;21,"61392047439 ")
 ;;2518
 ;;21,"61392060425 ")
 ;;2519
 ;;21,"61392060430 ")
 ;;2520
 ;;21,"61392060460 ")
 ;;2521
 ;;21,"61392060490 ")
 ;;2522
 ;;21,"61392060525 ")
 ;;2523
 ;;21,"61392060530 ")
 ;;2524
 ;;21,"61392060531 ")
 ;;2525
 ;;21,"61392060539 ")
 ;;2526
 ;;21,"61392060560 ")
 ;;2527
 ;;21,"61392060565 ")
 ;;2528
 ;;21,"61392060590 ")
 ;;2529
 ;;21,"61392060595 ")
 ;;2530
 ;;21,"61392064925 ")
 ;;2531
 ;;21,"61392064930 ")
 ;;2532
 ;;21,"61392064931 ")
 ;;2533
 ;;21,"61392064939 ")
 ;;2534
 ;;21,"61392064960 ")
 ;;2535
 ;;21,"61392064965 ")
 ;;2536
 ;;21,"61392064990 ")
 ;;2537
 ;;21,"61392064995 ")
 ;;2538
 ;;21,"61392065025 ")
 ;;2539
 ;;21,"61392065030 ")
 ;;2540
 ;;21,"61392065031 ")
 ;;2541
 ;;21,"61392065039 ")
 ;;2542
 ;;21,"61392065060 ")
 ;;2543
 ;;21,"61392065065 ")
 ;;2544
 ;;21,"61392065090 ")
 ;;2545
 ;;21,"61392065095 ")
 ;;2546
 ;;21,"61392065125 ")
 ;;2547
 ;;21,"61392065130 ")
 ;;2548
 ;;21,"61392065131 ")
 ;;2549
 ;;21,"61392065139 ")
 ;;2550
 ;;21,"61392065160 ")
 ;;2551
 ;;21,"61392065165 ")
 ;;2552
 ;;21,"61392065190 ")
 ;;2553
 ;;21,"61392065195 ")
 ;;2554
 ;;21,"61392065225 ")
 ;;2555
 ;;21,"61392065230 ")
 ;;2556
 ;;21,"61392065231 ")
 ;;2557
 ;;21,"61392065239 ")
 ;;2558
 ;;21,"61392065260 ")
 ;;2559
 ;;21,"61392065265 ")
 ;;2560
 ;;21,"61392065290 ")
 ;;2561
 ;;21,"61392065295 ")
 ;;2562
 ;;21,"61392069323 ")
 ;;2563
 ;;21,"61392069325 ")
 ;;2564
 ;;21,"61392069330 ")
 ;;2565
 ;;21,"61392069331 ")
 ;;2566
 ;;21,"61392069339 ")
 ;;2567
 ;;21,"61392069360 ")
 ;;2568
 ;;21,"61392069365 ")
 ;;2569
 ;;21,"61392069390 ")
 ;;2570
 ;;21,"61392069395 ")
 ;;2571
 ;;21,"61392069423 ")
 ;;2572
 ;;21,"61392069425 ")
 ;;2573
 ;;21,"61392069430 ")
 ;;2574
 ;;21,"61392069431 ")
 ;;2575
 ;;21,"61392069439 ")
 ;;2576
 ;;21,"61392069460 ")
 ;;2577
 ;;21,"61392069465 ")
 ;;2578
 ;;21,"61392069490 ")
 ;;2579
 ;;21,"61392069495 ")
 ;;2580
 ;;21,"61392069525 ")
 ;;2581
 ;;21,"61392069530 ")
 ;;2582
 ;;21,"61392069531 ")
 ;;2583
 ;;21,"61392069539 ")
 ;;2584
 ;;21,"61392069560 ")
 ;;2585
 ;;21,"61392069625 ")
 ;;2586
 ;;21,"61392069630 ")
 ;;2587
 ;;21,"61392069660 ")
 ;;2588
 ;;21,"61392069690 ")
 ;;2589
 ;;21,"61392069725 ")
 ;;2590
 ;;21,"61392069730 ")
 ;;2591
 ;;21,"61392069731 ")
 ;;2592
 ;;21,"61392069739 ")
 ;;2593
 ;;21,"61392069760 ")
 ;;2594
 ;;21,"61392069765 ")
 ;;2595
 ;;21,"61392069790 ")
 ;;2596
 ;;21,"61392069795 ")
 ;;2597
 ;;21,"61392069825 ")
 ;;2598
 ;;21,"61392069830 ")
 ;;2599
 ;;21,"61392069831 ")
 ;;2600
 ;;21,"61392069839 ")
 ;;2601
 ;;21,"61392069860 ")
 ;;2602
 ;;21,"61392069865 ")
 ;;2603
 ;;21,"61392069890 ")
 ;;2604
 ;;21,"61392069895 ")
 ;;2605
 ;;21,"62022094501 ")
 ;;2606
 ;;21,"62022094505 ")
 ;;2607
 ;;21,"62022094510 ")
 ;;2608
 ;;21,"62022094601 ")
 ;;2609
 ;;21,"62022094605 ")
 ;;2610
 ;;21,"62022094610 ")
 ;;2611
 ;;21,"62033010120 ")
 ;;2612
 ;;21,"62037053110 ")
 ;;2613
 ;;21,"62037053190 ")
 ;;2614
 ;;21,"62037053210 ")
 ;;2615
 ;;21,"62037053290 ")
 ;;2616
 ;;21,"62037053310 ")
 ;;2617
 ;;21,"62037053390 ")
 ;;2618
 ;;21,"62037053410 ")
 ;;2619
 ;;21,"62037053490 ")
 ;;2620
 ;;21,"62037093505 ")
 ;;2621
 ;;21,"62037093510 ")
 ;;2622
 ;;21,"62037093530 ")
 ;;2623
 ;;21,"62037093590 ")
 ;;2624
 ;;21,"62037093605 ")
 ;;2625
 ;;21,"62037093610 ")
 ;;2626
 ;;21,"62037093630 ")
 ;;2627
 ;;21,"62037093690 ")
 ;;2628
 ;;21,"62037093705 ")
 ;;2629
 ;;21,"62037093710 ")
 ;;2630
 ;;21,"62037093730 ")
 ;;2631
 ;;21,"62037093790 ")
 ;;2632
 ;;21,"62175017137 ")
 ;;2633
 ;;21,"62175017737 ")
 ;;2634
 ;;21,"62175071237 ")
 ;;2635
 ;;21,"62175072037 ")
 ;;2636
 ;;21,"62175072537 ")
 ;;2637
 ;;21,"62318018400 ")
 ;;2638
 ;;21,"62318018401 ")
 ;;2639
 ;;21,"62318018500 ")
 ;;2640
 ;;21,"62318018501 ")
 ;;2641
 ;;21,"62318018600 ")
 ;;2642
 ;;21,"62318018601 ")
 ;;2643
 ;;21,"62318018700 ")
 ;;2644
 ;;21,"62318018701 ")
 ;;2645
 ;;21,"62318018800 ")
 ;;2646
 ;;21,"62318018801 ")
 ;;2647
 ;;21,"62318018900 ")
 ;;2648
 ;;21,"62318018901 ")
 ;;2649
 ;;21,"62540722203 ")
 ;;2650
 ;;21,"62540722205 ")
 ;;2651
 ;;21,"62540722303 ")
 ;;2652
 ;;21,"62540722305 ")
 ;;2653
 ;;21,"62540722403 ")
 ;;2654
 ;;21,"62540722405 ")
 ;;2655
 ;;21,"62584096585 ")
 ;;2656
 ;;21,"62645040110 ")
 ;;2657
 ;;21,"62756031008 ")
 ;;2658
 ;;21,"62756031018 ")
 ;;2659
 ;;21,"62756031081 ")
 ;;2660
 ;;21,"62756031083 ")
 ;;2661
 ;;21,"62756031088 ")
 ;;2662
 ;;21,"62756031108 ")
 ;;2663
 ;;21,"62756031118 ")
 ;;2664
 ;;21,"62756031181 ")
 ;;2665
 ;;21,"62756031183 ")
 ;;2666
 ;;21,"62756031188 ")
 ;;2667
 ;;21,"62756031208 ")
 ;;2668
 ;;21,"62756031218 ")
 ;;2669
 ;;21,"62756031281 ")
 ;;2670
 ;;21,"62756031283 ")
 ;;2671
 ;;21,"62756031288 ")
 ;;2672
 ;;21,"62756031308 ")
 ;;2673
 ;;21,"62756031318 ")
 ;;2674
 ;;21,"62756031381 ")
 ;;2675
 ;;21,"62756031383 ")
 ;;2676
 ;;21,"62756031388 ")
 ;;2677
 ;;21,"63304016110 ")
 ;;2678
 ;;21,"63304016130 ")
 ;;2679
 ;;21,"63304016190 ")
 ;;2680
 ;;21,"63304016210 ")
 ;;2681
 ;;21,"63304016230 ")
 ;;2682
 ;;21,"63304016290 ")
 ;;2683
 ;;21,"63304016310 ")
 ;;2684
 ;;21,"63304016330 ")
 ;;2685
 ;;21,"63304016390 ")
 ;;2686
 ;;21,"63304040301 ")
 ;;2687
 ;;21,"63304040310 ")
 ;;2688
 ;;21,"63304040330 ")
 ;;2689
 ;;21,"63304040401 ")
 ;;2690
 ;;21,"63304040410 ")
 ;;2691
 ;;21,"63304040430 ")
 ;;2692
 ;;21,"63304044110 ")
 ;;2693
 ;;21,"63304044130 ")
 ;;2694
 ;;21,"63304044169 ")
 ;;2695
 ;;21,"63304044210 ")
 ;;2696
 ;;21,"63304044230 ")
 ;;2697