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

BGPM5ADY.m

Go to the documentation of this file.
  1. BGPM5ADY ;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,"67544038170 ")
  1. ;;3402
  1. ;;21,"67544038173 ")
  1. ;;3403
  1. ;;21,"67544038180 ")
  1. ;;3404
  1. ;;21,"67544038192 ")
  1. ;;3405
  1. ;;21,"67544038194 ")
  1. ;;3406
  1. ;;21,"67544041860 ")
  1. ;;3407
  1. ;;21,"67544043115 ")
  1. ;;3408
  1. ;;21,"67544043130 ")
  1. ;;3409
  1. ;;21,"67544043145 ")
  1. ;;3410
  1. ;;21,"67544043153 ")
  1. ;;3411
  1. ;;21,"67544043160 ")
  1. ;;3412
  1. ;;21,"67544043170 ")
  1. ;;3413
  1. ;;21,"67544043173 ")
  1. ;;3414
  1. ;;21,"67544043180 ")
  1. ;;3415
  1. ;;21,"67544043192 ")
  1. ;;3416
  1. ;;21,"67544043194 ")
  1. ;;3417
  1. ;;21,"67544045415 ")
  1. ;;3418
  1. ;;21,"67544045430 ")
  1. ;;3419
  1. ;;21,"67544045440 ")
  1. ;;3420
  1. ;;21,"67544045445 ")
  1. ;;3421
  1. ;;21,"67544045460 ")
  1. ;;3422
  1. ;;21,"67544048915 ")
  1. ;;3423
  1. ;;21,"67544048930 ")
  1. ;;3424
  1. ;;21,"67544048960 ")
  1. ;;3425
  1. ;;21,"67544055930 ")
  1. ;;3426
  1. ;;21,"67544055932 ")
  1. ;;3427
  1. ;;21,"67544062131 ")
  1. ;;3428
  1. ;;21,"67544062145 ")
  1. ;;3429
  1. ;;21,"67544062160 ")
  1. ;;3430
  1. ;;21,"67544066731 ")
  1. ;;3431
  1. ;;21,"67544066760 ")
  1. ;;3432
  1. ;;21,"67544067832 ")
  1. ;;3433
  1. ;;21,"67544067845 ")
  1. ;;3434
  1. ;;21,"67544067860 ")
  1. ;;3435
  1. ;;21,"67544068731 ")
  1. ;;3436
  1. ;;21,"67544068732 ")
  1. ;;3437
  1. ;;21,"67544070531 ")
  1. ;;3438
  1. ;;21,"67544070631 ")
  1. ;;3439
  1. ;;21,"67544071132 ")
  1. ;;3440
  1. ;;21,"67544071731 ")
  1. ;;3441
  1. ;;21,"67544072431 ")
  1. ;;3442
  1. ;;21,"67544077932 ")
  1. ;;3443
  1. ;;21,"67544081832 ")
  1. ;;3444
  1. ;;21,"67544086131 ")
  1. ;;3445
  1. ;;21,"67544086132 ")
  1. ;;3446
  1. ;;21,"67544086832 ")
  1. ;;3447
  1. ;;21,"67544093330 ")
  1. ;;3448
  1. ;;21,"67544096032 ")
  1. ;;3449
  1. ;;21,"67544099730 ")
  1. ;;3450
  1. ;;21,"67544099760 ")
  1. ;;3451
  1. ;;21,"67544099960 ")
  1. ;;3452
  1. ;;21,"67544099980 ")
  1. ;;3453
  1. ;;21,"67651001801 ")
  1. ;;3454
  1. ;;21,"67651001805 ")
  1. ;;3455
  1. ;;21,"67651001901 ")
  1. ;;3456
  1. ;;21,"67651001905 ")
  1. ;;3457
  1. ;;21,"67651002001 ")
  1. ;;3458
  1. ;;21,"67651002005 ")
  1. ;;3459
  1. ;;21,"67651002101 ")
  1. ;;3460
  1. ;;21,"67651002105 ")
  1. ;;3461
  1. ;;21,"67787020005 ")
  1. ;;3462
  1. ;;21,"67787020010 ")
  1. ;;3463
  1. ;;21,"67787020090 ")
  1. ;;3464
  1. ;;21,"67787020105 ")
  1. ;;3465
  1. ;;21,"67787020110 ")
  1. ;;3466
  1. ;;21,"67787020190 ")
  1. ;;3467
  1. ;;21,"67787020210 ")
  1. ;;3468
  1. ;;21,"67787020290 ")
  1. ;;3469
  1. ;;21,"67787022901 ")
  1. ;;3470
  1. ;;21,"67787023001 ")
  1. ;;3471
  1. ;;21,"67787026790 ")
  1. ;;3472
  1. ;;21,"67787026890 ")
  1. ;;3473
  1. ;;21,"67787026990 ")
  1. ;;3474
  1. ;;21,"67787027090 ")
  1. ;;3475
  1. ;;21,"67787027101 ")
  1. ;;3476
  1. ;;21,"67787027110 ")
  1. ;;3477
  1. ;;21,"67787027201 ")
  1. ;;3478
  1. ;;21,"67787027210 ")
  1. ;;3479
  1. ;;21,"67787027301 ")
  1. ;;3480
  1. ;;21,"67787027305 ")
  1. ;;3481
  1. ;;21,"67787027310 ")
  1. ;;3482
  1. ;;21,"67787027401 ")
  1. ;;3483
  1. ;;21,"67787027405 ")
  1. ;;3484
  1. ;;21,"67787027410 ")
  1. ;;3485
  1. ;;21,"68071004845 ")
  1. ;;3486
  1. ;;21,"68071009530 ")
  1. ;;3487
  1. ;;21,"68071010430 ")
  1. ;;3488
  1. ;;21,"68071015330 ")
  1. ;;3489
  1. ;;21,"68071015360 ")
  1. ;;3490
  1. ;;21,"68071015390 ")
  1. ;;3491
  1. ;;21,"68071015745 ")
  1. ;;3492
  1. ;;21,"68071015790 ")
  1. ;;3493
  1. ;;21,"68071015792 ")
  1. ;;3494
  1. ;;21,"68071021692 ")
  1. ;;3495
  1. ;;21,"68071039030 ")
  1. ;;3496
  1. ;;21,"68071043612 ")
  1. ;;3497
  1. ;;21,"68071049330 ")
  1. ;;3498
  1. ;;21,"68071076928 ")
  1. ;;3499
  1. ;;21,"68071077130 ")
  1. ;;3500
  1. ;;21,"68084005801 ")
  1. ;;3501
  1. ;;21,"68084006001 ")
  1. ;;3502
  1. ;;21,"68084006011 ")
  1. ;;3503
  1. ;;21,"68084006101 ")
  1. ;;3504
  1. ;;21,"68084006111 ")
  1. ;;3505
  1. ;;21,"68084006201 ")
  1. ;;3506
  1. ;;21,"68084006211 ")
  1. ;;3507
  1. ;;21,"68084006401 ")
  1. ;;3508
  1. ;;21,"68084006411 ")
  1. ;;3509
  1. ;;21,"68084009800 ")
  1. ;;3510
  1. ;;21,"68084009806 ")
  1. ;;3511
  1. ;;21,"68084009900 ")
  1. ;;3512
  1. ;;21,"68084009906 ")
  1. ;;3513
  1. ;;21,"68084026601 ")
  1. ;;3514
  1. ;;21,"68084026611 ")
  1. ;;3515
  1. ;;21,"68084026701 ")
  1. ;;3516
  1. ;;21,"68084026711 ")
  1. ;;3517
  1. ;;21,"68084026801 ")
  1. ;;3518
  1. ;;21,"68084026811 ")
  1. ;;3519
  1. ;;21,"68084029411 ")
  1. ;;3520
  1. ;;21,"68084029421 ")
  1. ;;3521
  1. ;;21,"68084039001 ")
  1. ;;3522
  1. ;;21,"68084039011 ")
  1. ;;3523
  1. ;;21,"68084039101 ")
  1. ;;3524
  1. ;;21,"68084039111 ")
  1. ;;3525
  1. ;;21,"68084039201 ")
  1. ;;3526
  1. ;;21,"68084039211 ")
  1. ;;3527
  1. ;;21,"68115012715 ")
  1. ;;3528
  1. ;;21,"68115012860 ")
  1. ;;3529
  1. ;;21,"68115012890 ")
  1. ;;3530
  1. ;;21,"68115036330 ")
  1. ;;3531
  1. ;;21,"68180023501 ")
  1. ;;3532
  1. ;;21,"68180023601 ")
  1. ;;3533
  1. ;;21,"68180023701 ")
  1. ;;3534
  1. ;;21,"68180051201 ")
  1. ;;3535
  1. ;;21,"68180051202 ")
  1. ;;3536
  1. ;;21,"68180051203 ")
  1. ;;3537
  1. ;;21,"68180051209 ")
  1. ;;3538
  1. ;;21,"68180051230 ")
  1. ;;3539
  1. ;;21,"68180051301 ")
  1. ;;3540
  1. ;;21,"68180051302 ")
  1. ;;3541
  1. ;;21,"68180051303 ")
  1. ;;3542
  1. ;;21,"68180051304 ")
  1. ;;3543
  1. ;;21,"68180051305 ")
  1. ;;3544
  1. ;;21,"68180051309 ")
  1. ;;3545
  1. ;;21,"68180051330 ")
  1. ;;3546
  1. ;;21,"68180051401 ")
  1. ;;3547
  1. ;;21,"68180051402 ")
  1. ;;3548
  1. ;;21,"68180051403 ")
  1. ;;3549
  1. ;;21,"68180051404 ")
  1. ;;3550
  1. ;;21,"68180051405 ")
  1. ;;3551
  1. ;;21,"68180051409 ")
  1. ;;3552
  1. ;;21,"68180051430 ")
  1. ;;3553
  1. ;;21,"68180051501 ")
  1. ;;3554
  1. ;;21,"68180051502 ")
  1. ;;3555
  1. ;;21,"68180051503 ")
  1. ;;3556
  1. ;;21,"68180051504 ")
  1. ;;3557
  1. ;;21,"68180051505 ")
  1. ;;3558
  1. ;;21,"68180051509 ")
  1. ;;3559
  1. ;;21,"68180051530 ")
  1. ;;3560
  1. ;;21,"68180051601 ")
  1. ;;3561
  1. ;;21,"68180051602 ")
  1. ;;3562
  1. ;;21,"68180051603 ")
  1. ;;3563
  1. ;;21,"68180051609 ")
  1. ;;3564
  1. ;;21,"68180051630 ")
  1. ;;3565
  1. ;;21,"68180051701 ")
  1. ;;3566
  1. ;;21,"68180051702 ")
  1. ;;3567
  1. ;;21,"68180051703 ")
  1. ;;3568
  1. ;;21,"68180051704 ")
  1. ;;3569
  1. ;;21,"68180051709 ")
  1. ;;3570
  1. ;;21,"68180051730 ")
  1. ;;3571
  1. ;;21,"68180051790 ")
  1. ;;3572
  1. ;;21,"68180051801 ")
  1. ;;3573
  1. ;;21,"68180051802 ")
  1. ;;3574
  1. ;;21,"68180051830 ")
  1. ;;3575
  1. ;;21,"68180051901 ")
  1. ;;3576
  1. ;;21,"68180051902 ")
  1. ;;3577
  1. ;;21,"68180051930 ")
  1. ;;3578
  1. ;;21,"68180052001 ")
  1. ;;3579
  1. ;;21,"68180052002 ")
  1. ;;3580
  1. ;;21,"68180052030 ")
  1. ;;3581
  1. ;;21,"68180055609 ")
  1. ;;3582
  1. ;;21,"68180055703 ")
  1. ;;3583
  1. ;;21,"68180055709 ")
  1. ;;3584
  1. ;;21,"68180055803 ")
  1. ;;3585
  1. ;;21,"68180055809 ")
  1. ;;3586
  1. ;;21,"68180055903 ")
  1. ;;3587
  1. ;;21,"68180055909 ")
  1. ;;3588
  1. ;;21,"68180056601 ")
  1. ;;3589
  1. ;;21,"68180056701 ")
  1. ;;3590
  1. ;;21,"68180058801 ")
  1. ;;3591
  1. ;;21,"68180058802 ")
  1. ;;3592
  1. ;;21,"68180058901 ")
  1. ;;3593
  1. ;;21,"68180058902 ")
  1. ;;3594
  1. ;;21,"68180058909 ")
  1. ;;3595
  1. ;;21,"68180059001 ")
  1. ;;3596
  1. ;;21,"68180059002 ")
  1. ;;3597
  1. ;;21,"68180059009 ")
  1. ;;3598
  1. ;;21,"68180059101 ")
  1. ;;3599
  1. ;;21,"68180059102 ")
  1. ;;3600
  1. ;;21,"68180059109 ")
  1. ;;3601
  1. ;;21,"68382014401 ")
  1. ;;3602
  1. ;;21,"68382014405 ")
  1. ;;3603
  1. ;;21,"68382014406 ")
  1. ;;3604
  1. ;;21,"68382014416 ")
  1. ;;3605
  1. ;;21,"68382014430 ")
  1. ;;3606
  1. ;;21,"68382014501 ")
  1. ;;3607
  1. ;;21,"68382014505 ")
  1. ;;3608
  1. ;;21,"68382014506 ")
  1. ;;3609
  1. ;;21,"68382014516 ")
  1. ;;3610
  1. ;;21,"68382014530 ")
  1. ;;3611
  1. ;;21,"68382014601 ")
  1. ;;3612
  1. ;;21,"68382014605 ")
  1. ;;3613
  1. ;;21,"68382014606 ")
  1. ;;3614
  1. ;;21,"68382014616 ")
  1. ;;3615
  1. ;;21,"68382014630 ")
  1. ;;3616
  1. ;;21,"68382014701 ")
  1. ;;3617
  1. ;;21,"68382014705 ")
  1. ;;3618
  1. ;;21,"68382014706 ")
  1. ;;3619
  1. ;;21,"68382014716 ")
  1. ;;3620
  1. ;;21,"68382014730 ")
  1. ;;3621
  1. ;;21,"68387052110 ")
  1. ;;3622
  1. ;;21,"68387054330 ")
  1. ;;3623
  1. ;;21,"68462020501 ")
  1. ;;3624
  1. ;;21,"68462020510 ")
  1. ;;3625
  1. ;;21,"68462020530 ")
  1. ;;3626
  1. ;;21,"68462020601 ")
  1. ;;3627
  1. ;;21,"68462020610 ")
  1. ;;3628
  1. ;;21,"68462020630 ")
  1. ;;3629
  1. ;;21,"68462020701 ")
  1. ;;3630
  1. ;;21,"68462020710 ")
  1. ;;3631
  1. ;;21,"68462020730 ")
  1. ;;3632
  1. ;;21,"68462020801 ")
  1. ;;3633
  1. ;;21,"68462020810 ")
  1. ;;3634
  1. ;;21,"68462020890 ")
  1. ;;3635
  1. ;;21,"68462020901 ")
  1. ;;3636
  1. ;;21,"68462020910 ")
  1. ;;3637
  1. ;;21,"68462020990 ")
  1. ;;3638
  1. ;;21,"68462036705 ")
  1. ;;3639
  1. ;;21,"68462036710 ")
  1. ;;3640
  1. ;;21,"68462036790 ")
  1. ;;3641
  1. ;;21,"68462036805 ")
  1. ;;3642
  1. ;;21,"68462036810 ")
  1. ;;3643
  1. ;;21,"68462036890 ")
  1. ;;3644
  1. ;;21,"68462036910 ")
  1. ;;3645
  1. ;;21,"68462036990 ")
  1. ;;3646
  1. ;;21,"68462055401 ")
  1. ;;3647
  1. ;;21,"68462055410 ")
  1. ;;3648
  1. ;;21,"68462055430 ")
  1. ;;3649
  1. ;;21,"68462055501 ")
  1. ;;3650
  1. ;;21,"68462055510 ")
  1. ;;3651
  1. ;;21,"68462055530 ")
  1. ;;3652
  1. ;;21,"68505251002 ")
  1. ;;3653
  1. ;;21,"68505251004 ")
  1. ;;3654
  1. ;;21,"68533004200 ")
  1. ;;3655
  1. ;;21,"68533004212 ")
  1. ;;3656
  1. ;;21,"68533004225 ")
  1. ;;3657
  1. ;;21,"68533004240 ")
  1. ;;3658
  1. ;;21,"68533004300 ")
  1. ;;3659
  1. ;;21,"68533004312 ")
  1. ;;3660
  1. ;;21,"68533004325 ")
  1. ;;3661
  1. ;;21,"68533004340 ")
  1. ;;3662
  1. ;;21,"68533004400 ")
  1. ;;3663
  1. ;;21,"68533004412 ")
  1. ;;3664
  1. ;;21,"68533004425 ")
  1. ;;3665
  1. ;;21,"68533004440 ")
  1. ;;3666
  1. ;;21,"68533006500 ")
  1. ;;3667
  1. ;;21,"68533006512 ")
  1. ;;3668
  1. ;;21,"68533006540 ")
  1. ;;3669
  1. ;;21,"68533006548 ")
  1. ;;3670
  1. ;;21,"68533006600 ")
  1. ;;3671
  1. ;;21,"68533006612 ")
  1. ;;3672
  1. ;;21,"68533006640 ")
  1. ;;3673
  1. ;;21,"68533006648 ")
  1. ;;3674
  1. ;;21,"68552022110 ")
  1. ;;3675
  1. ;;21,"68552022190 ")
  1. ;;3676
  1. ;;21,"68552022210 ")
  1. ;;3677
  1. ;;21,"68552022290 ")
  1. ;;3678
  1. ;;21,"68552022310 ")
  1. ;;3679
  1. ;;21,"68552022390 ")
  1. ;;3680
  1. ;;21,"68645016059 ")
  1. ;;3681
  1. ;;21,"68645016159 ")
  1. ;;3682
  1. ;;21,"68645016259 ")
  1. ;;3683
  1. ;;21,"68645016359 ")
  1. ;;3684
  1. ;;21,"68645027254 ")
  1. ;;3685
  1. ;;21,"68788006703 ")
  1. ;;3686
  1. ;;21,"68788006706 ")
  1. ;;3687
  1. ;;21,"68788006709 ")
  1. ;;3688
  1. ;;21,"68788010203 ")
  1. ;;3689
  1. ;;21,"68788010206 ")
  1. ;;3690
  1. ;;21,"68788010209 ")
  1. ;;3691
  1. ;;21,"68788036003 ")
  1. ;;3692
  1. ;;21,"68788036006 ")
  1. ;;3693
  1. ;;21,"68788036009 ")
  1. ;;3694
  1. ;;21,"68788056101 ")
  1. ;;3695
  1. ;;21,"68788056103 ")
  1. ;;3696
  1. ;;21,"68788056106 ")
  1. ;;3697
  1. ;;21,"68788056109 ")
  1. ;;3698
  1. ;;21,"68788083503 ")
  1. ;;3699
  1. ;;21,"68788083506 ")
  1. ;;3700
  1. ;;21,"68788083509 ")
  1. ;;3701
  1. ;;21,"68788083603 ")
  1. ;;3702
  1. ;;21,"68788083606 ")
  1. ;;3703
  1. ;;21,"68788083609 ")
  1. ;;3704
  1. ;;21,"68788083703 ")
  1. ;;3705
  1. ;;21,"68788083706 ")
  1. ;;3706
  1. ;;21,"68788083709 ")
  1. ;;3707
  1. ;;21,"68788084301 ")
  1. ;;3708
  1. ;;21,"68788084303 ")
  1. ;;3709
  1. ;;21,"68788084306 ")
  1. ;;3710
  1. ;;21,"68788084309 ")
  1. ;;3711
  1. ;;21,"68788092403 ")
  1. ;;3712
  1. ;;21,"68788092406 ")
  1. ;;3713
  1. ;;21,"68788092409 ")
  1. ;;3714
  1. ;;21,"68788092503 ")
  1. ;;3715
  1. ;;21,"68788092506 ")
  1. ;;3716
  1. ;;21,"68788092509 ")
  1. ;;3717
  1. ;;21,"68788092903 ")
  1. ;;3718
  1. ;;21,"68788092906 ")
  1. ;;3719
  1. ;;21,"68788092909 ")
  1. ;;3720
  1. ;;21,"68788117203 ")
  1. ;;3721
  1. ;;21,"68788117209 ")
  1. ;;3722
  1. ;;21,"68788234200 ")
  1. ;;3723
  1. ;;21,"68788234203 ")
  1. ;;3724
  1. ;;21,"68788234206 ")
  1. ;;3725
  1. ;;21,"68788234209 ")
  1. ;;3726
  1. ;;21,"68788376003 ")
  1. ;;3727
  1. ;;21,"68788376006 ")
  1. ;;3728
  1. ;;21,"68788376009 ")
  1. ;;3729
  1. ;;21,"68788376203 ")
  1. ;;3730
  1. ;;21,"68788376206 ")
  1. ;;3731
  1. ;;21,"68788376209 ")
  1. ;;3732
  1. ;;21,"68788540003 ")
  1. ;;3733
  1. ;;21,"68788540006 ")
  1. ;;3734
  1. ;;21,"68788540009 ")
  1. ;;3735
  1. ;;21,"68788999401 ")
  1. ;;3736
  1. ;;21,"68788999403 ")
  1. ;;3737
  1. ;;21,"68788999406 ")
  1. ;;3738
  1. ;;21,"68788999409 ")
  1. ;;3739
  1. ;;21,"68966207301 ")
  1. ;;3740
  1. ;;9002226,881,.01)
  1. ;;BGPMU DIAB ACE NDCS
  1. ;;9002226,881,.02)
  1. ;;Diabetes ACE Inhibitor NDCs
  1. ;;9002226,881,.04)
  1. ;;@
  1. ;;9002226,881,.06)
  1. ;;@
  1. ;;9002226,881,.08)
  1. ;;@
  1. ;;9002226,881,.09)
  1. ;;@
  1. ;;9002226,881,.11)
  1. ;;@
  1. ;;9002226,881,.12)
  1. ;;@
  1. ;;9002226,881,.13)
  1. ;;@
  1. ;;9002226,881,.14)
  1. ;;@
  1. ;;9002226,881,.15)
  1. ;;50.67
  1. ;;9002226,881,.16)
  1. ;;@
  1. ;;9002226,881,.17)
  1. ;;@