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

BGPM5BAZ.m

Go to the documentation of this file.
BGPM5BAZ ;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,"58016022473 ")
 ;;3355
 ;;21,"58016022475 ")
 ;;3356
 ;;21,"58016022476 ")
 ;;3357
 ;;21,"58016022477 ")
 ;;3358
 ;;21,"58016022479 ")
 ;;3359
 ;;21,"58016022480 ")
 ;;3360
 ;;21,"58016022481 ")
 ;;3361
 ;;21,"58016022482 ")
 ;;3362
 ;;21,"58016022483 ")
 ;;3363
 ;;21,"58016022484 ")
 ;;3364
 ;;21,"58016022487 ")
 ;;3365
 ;;21,"58016022489 ")
 ;;3366
 ;;21,"58016022490 ")
 ;;3367
 ;;21,"58016022491 ")
 ;;3368
 ;;21,"58016022492 ")
 ;;3369
 ;;21,"58016022493 ")
 ;;3370
 ;;21,"58016022496 ")
 ;;3371
 ;;21,"58016022497 ")
 ;;3372
 ;;21,"58016022498 ")
 ;;3373
 ;;21,"58016022499 ")
 ;;3374
 ;;21,"58016026300 ")
 ;;3375
 ;;21,"58016026301 ")
 ;;3376
 ;;21,"58016026302 ")
 ;;3377
 ;;21,"58016026303 ")
 ;;3378
 ;;21,"58016026304 ")
 ;;3379
 ;;21,"58016026305 ")
 ;;3380
 ;;21,"58016026306 ")
 ;;3381
 ;;21,"58016026307 ")
 ;;3382
 ;;21,"58016026308 ")
 ;;3383
 ;;21,"58016026309 ")
 ;;3384
 ;;21,"58016026310 ")
 ;;3385
 ;;21,"58016026312 ")
 ;;3386
 ;;21,"58016026314 ")
 ;;3387
 ;;21,"58016026315 ")
 ;;3388
 ;;21,"58016026316 ")
 ;;3389
 ;;21,"58016026318 ")
 ;;3390
 ;;21,"58016026320 ")
 ;;3391
 ;;21,"58016026321 ")
 ;;3392
 ;;21,"58016026324 ")
 ;;3393
 ;;21,"58016026325 ")
 ;;3394
 ;;21,"58016026326 ")
 ;;3395
 ;;21,"58016026328 ")
 ;;3396
 ;;21,"58016026330 ")
 ;;3397
 ;;21,"58016026332 ")
 ;;3398
 ;;21,"58016026335 ")
 ;;3399
 ;;21,"58016026336 ")
 ;;3400
 ;;21,"58016026340 ")
 ;;3401
 ;;21,"58016026342 ")
 ;;3402
 ;;21,"58016026344 ")
 ;;3403
 ;;21,"58016026345 ")
 ;;3404
 ;;21,"58016026348 ")
 ;;3405
 ;;21,"58016026350 ")
 ;;3406
 ;;21,"58016026356 ")
 ;;3407
 ;;21,"58016026360 ")
 ;;3408
 ;;21,"58016026367 ")
 ;;3409
 ;;21,"58016026369 ")
 ;;3410
 ;;21,"58016026370 ")
 ;;3411
 ;;21,"58016026371 ")
 ;;3412
 ;;21,"58016026372 ")
 ;;3413
 ;;21,"58016026373 ")
 ;;3414
 ;;21,"58016026375 ")
 ;;3415
 ;;21,"58016026376 ")
 ;;3416
 ;;21,"58016026377 ")
 ;;3417
 ;;21,"58016026379 ")
 ;;3418
 ;;21,"58016026380 ")
 ;;3419
 ;;21,"58016026381 ")
 ;;3420
 ;;21,"58016026382 ")
 ;;3421
 ;;21,"58016026383 ")
 ;;3422
 ;;21,"58016026384 ")
 ;;3423
 ;;21,"58016026387 ")
 ;;3424
 ;;21,"58016026389 ")
 ;;3425
 ;;21,"58016026390 ")
 ;;3426
 ;;21,"58016026391 ")
 ;;3427
 ;;21,"58016026392 ")
 ;;3428
 ;;21,"58016026393 ")
 ;;3429
 ;;21,"58016026396 ")
 ;;3430
 ;;21,"58016026397 ")
 ;;3431
 ;;21,"58016026398 ")
 ;;3432
 ;;21,"58016026399 ")
 ;;3433
 ;;21,"58016028200 ")
 ;;3434
 ;;21,"58016028230 ")
 ;;3435
 ;;21,"58016028260 ")
 ;;3436
 ;;21,"58016028290 ")
 ;;3437
 ;;21,"58016049100 ")
 ;;3438
 ;;21,"58016049101 ")
 ;;3439
 ;;21,"58016049102 ")
 ;;3440
 ;;21,"58016049103 ")
 ;;3441
 ;;21,"58016049104 ")
 ;;3442
 ;;21,"58016049105 ")
 ;;3443
 ;;21,"58016049106 ")
 ;;3444
 ;;21,"58016049107 ")
 ;;3445
 ;;21,"58016049108 ")
 ;;3446
 ;;21,"58016049109 ")
 ;;3447
 ;;21,"58016049110 ")
 ;;3448
 ;;21,"58016049112 ")
 ;;3449
 ;;21,"58016049114 ")
 ;;3450
 ;;21,"58016049115 ")
 ;;3451
 ;;21,"58016049116 ")
 ;;3452
 ;;21,"58016049118 ")
 ;;3453
 ;;21,"58016049120 ")
 ;;3454
 ;;21,"58016049121 ")
 ;;3455
 ;;21,"58016049125 ")
 ;;3456
 ;;21,"58016049126 ")
 ;;3457
 ;;21,"58016049127 ")
 ;;3458
 ;;21,"58016049128 ")
 ;;3459
 ;;21,"58016049130 ")
 ;;3460
 ;;21,"58016049132 ")
 ;;3461
 ;;21,"58016049134 ")
 ;;3462
 ;;21,"58016049135 ")
 ;;3463
 ;;21,"58016049136 ")
 ;;3464
 ;;21,"58016049140 ")
 ;;3465
 ;;21,"58016049142 ")
 ;;3466
 ;;21,"58016049144 ")
 ;;3467
 ;;21,"58016049145 ")
 ;;3468
 ;;21,"58016049150 ")
 ;;3469
 ;;21,"58016049156 ")
 ;;3470
 ;;21,"58016049160 ")
 ;;3471
 ;;21,"58016049167 ")
 ;;3472
 ;;21,"58016049169 ")
 ;;3473
 ;;21,"58016049170 ")
 ;;3474
 ;;21,"58016049171 ")
 ;;3475
 ;;21,"58016049172 ")
 ;;3476
 ;;21,"58016049173 ")
 ;;3477
 ;;21,"58016049175 ")
 ;;3478
 ;;21,"58016049176 ")
 ;;3479
 ;;21,"58016049177 ")
 ;;3480
 ;;21,"58016049179 ")
 ;;3481
 ;;21,"58016049180 ")
 ;;3482
 ;;21,"58016049181 ")
 ;;3483
 ;;21,"58016049182 ")
 ;;3484
 ;;21,"58016049183 ")
 ;;3485
 ;;21,"58016049184 ")
 ;;3486
 ;;21,"58016049187 ")
 ;;3487
 ;;21,"58016049189 ")
 ;;3488
 ;;21,"58016049190 ")
 ;;3489
 ;;21,"58016049191 ")
 ;;3490
 ;;21,"58016049192 ")
 ;;3491
 ;;21,"58016049193 ")
 ;;3492
 ;;21,"58016049196 ")
 ;;3493
 ;;21,"58016049197 ")
 ;;3494
 ;;21,"58016049198 ")
 ;;3495
 ;;21,"58016049199 ")
 ;;3496
 ;;21,"58016050800 ")
 ;;3497
 ;;21,"58016050801 ")
 ;;3498
 ;;21,"58016050802 ")
 ;;3499
 ;;21,"58016050803 ")
 ;;3500
 ;;21,"58016050804 ")
 ;;3501
 ;;21,"58016050805 ")
 ;;3502
 ;;21,"58016050806 ")
 ;;3503
 ;;21,"58016050807 ")
 ;;3504
 ;;21,"58016050808 ")
 ;;3505
 ;;21,"58016050809 ")
 ;;3506
 ;;21,"58016050810 ")
 ;;3507
 ;;21,"58016050812 ")
 ;;3508
 ;;21,"58016050814 ")
 ;;3509
 ;;21,"58016050815 ")
 ;;3510
 ;;21,"58016050816 ")
 ;;3511
 ;;21,"58016050818 ")
 ;;3512
 ;;21,"58016050820 ")
 ;;3513
 ;;21,"58016050821 ")
 ;;3514
 ;;21,"58016050824 ")
 ;;3515
 ;;21,"58016050825 ")
 ;;3516
 ;;21,"58016050826 ")
 ;;3517
 ;;21,"58016050827 ")
 ;;3518
 ;;21,"58016050828 ")
 ;;3519
 ;;21,"58016050830 ")
 ;;3520
 ;;21,"58016050832 ")
 ;;3521
 ;;21,"58016050835 ")
 ;;3522
 ;;21,"58016050836 ")
 ;;3523
 ;;21,"58016050840 ")
 ;;3524
 ;;21,"58016050842 ")
 ;;3525
 ;;21,"58016050844 ")
 ;;3526
 ;;21,"58016050845 ")
 ;;3527
 ;;21,"58016050848 ")
 ;;3528
 ;;21,"58016050850 ")
 ;;3529
 ;;21,"58016050856 ")
 ;;3530
 ;;21,"58016050860 ")
 ;;3531
 ;;21,"58016050867 ")
 ;;3532
 ;;21,"58016050869 ")
 ;;3533
 ;;21,"58016050870 ")
 ;;3534
 ;;21,"58016050871 ")
 ;;3535
 ;;21,"58016050872 ")
 ;;3536
 ;;21,"58016050873 ")
 ;;3537
 ;;21,"58016050875 ")
 ;;3538
 ;;21,"58016050876 ")
 ;;3539
 ;;21,"58016050877 ")
 ;;3540
 ;;21,"58016050879 ")
 ;;3541
 ;;21,"58016050880 ")
 ;;3542
 ;;21,"58016050881 ")
 ;;3543
 ;;21,"58016050882 ")
 ;;3544
 ;;21,"58016050883 ")
 ;;3545
 ;;21,"58016050884 ")
 ;;3546
 ;;21,"58016050887 ")
 ;;3547
 ;;21,"58016050889 ")
 ;;3548
 ;;21,"58016050890 ")
 ;;3549
 ;;21,"58016050891 ")
 ;;3550
 ;;21,"58016050892 ")
 ;;3551
 ;;21,"58016050893 ")
 ;;3552
 ;;21,"58016050896 ")
 ;;3553
 ;;21,"58016050897 ")
 ;;3554
 ;;21,"58016050898 ")
 ;;3555
 ;;21,"58016050899 ")
 ;;3556
 ;;21,"58016051900 ")
 ;;3557
 ;;21,"58016051901 ")
 ;;3558
 ;;21,"58016051902 ")
 ;;3559
 ;;21,"58016051903 ")
 ;;3560
 ;;21,"58016051904 ")
 ;;3561
 ;;21,"58016051905 ")
 ;;3562
 ;;21,"58016051906 ")
 ;;3563
 ;;21,"58016051907 ")
 ;;3564
 ;;21,"58016051908 ")
 ;;3565
 ;;21,"58016051909 ")
 ;;3566
 ;;21,"58016051910 ")
 ;;3567
 ;;21,"58016051912 ")
 ;;3568
 ;;21,"58016051914 ")
 ;;3569
 ;;21,"58016051915 ")
 ;;3570
 ;;21,"58016051916 ")
 ;;3571
 ;;21,"58016051918 ")
 ;;3572
 ;;21,"58016051920 ")
 ;;3573
 ;;21,"58016051921 ")
 ;;3574
 ;;21,"58016051924 ")
 ;;3575
 ;;21,"58016051925 ")
 ;;3576
 ;;21,"58016051926 ")
 ;;3577
 ;;21,"58016051927 ")
 ;;3578
 ;;21,"58016051928 ")
 ;;3579
 ;;21,"58016051930 ")
 ;;3580
 ;;21,"58016051932 ")
 ;;3581
 ;;21,"58016051935 ")
 ;;3582
 ;;21,"58016051936 ")
 ;;3583
 ;;21,"58016051940 ")
 ;;3584
 ;;21,"58016051942 ")
 ;;3585
 ;;21,"58016051944 ")
 ;;3586
 ;;21,"58016051945 ")
 ;;3587
 ;;21,"58016051948 ")
 ;;3588
 ;;21,"58016051950 ")
 ;;3589
 ;;21,"58016051956 ")
 ;;3590
 ;;21,"58016051960 ")
 ;;3591
 ;;21,"58016051967 ")
 ;;3592
 ;;21,"58016051969 ")
 ;;3593
 ;;21,"58016051970 ")
 ;;3594
 ;;21,"58016051971 ")
 ;;3595
 ;;21,"58016051972 ")
 ;;3596
 ;;21,"58016051973 ")
 ;;3597
 ;;21,"58016051975 ")
 ;;3598
 ;;21,"58016051976 ")
 ;;3599
 ;;21,"58016051977 ")
 ;;3600
 ;;21,"58016051979 ")
 ;;3601
 ;;21,"58016051980 ")
 ;;3602
 ;;21,"58016051981 ")
 ;;3603
 ;;21,"58016051982 ")
 ;;3604
 ;;21,"58016051983 ")
 ;;3605
 ;;21,"58016051984 ")
 ;;3606
 ;;21,"58016051987 ")
 ;;3607
 ;;21,"58016051989 ")
 ;;3608
 ;;21,"58016051990 ")
 ;;3609
 ;;21,"58016051991 ")
 ;;3610
 ;;21,"58016051992 ")
 ;;3611
 ;;21,"58016051993 ")
 ;;3612
 ;;21,"58016051996 ")
 ;;3613
 ;;21,"58016051997 ")
 ;;3614
 ;;21,"58016051998 ")
 ;;3615
 ;;21,"58016051999 ")
 ;;3616
 ;;21,"58016056700 ")
 ;;3617
 ;;21,"58016056701 ")
 ;;3618
 ;;21,"58016056702 ")
 ;;3619
 ;;21,"58016056703 ")
 ;;3620
 ;;21,"58016056704 ")
 ;;3621
 ;;21,"58016056705 ")
 ;;3622
 ;;21,"58016056706 ")
 ;;3623
 ;;21,"58016056707 ")
 ;;3624
 ;;21,"58016056708 ")
 ;;3625
 ;;21,"58016056709 ")
 ;;3626
 ;;21,"58016056710 ")
 ;;3627
 ;;21,"58016056712 ")
 ;;3628
 ;;21,"58016056714 ")
 ;;3629
 ;;21,"58016056715 ")
 ;;3630
 ;;21,"58016056716 ")
 ;;3631
 ;;21,"58016056718 ")
 ;;3632
 ;;21,"58016056720 ")
 ;;3633
 ;;21,"58016056721 ")
 ;;3634
 ;;21,"58016056724 ")
 ;;3635
 ;;21,"58016056725 ")
 ;;3636
 ;;21,"58016056726 ")
 ;;3637
 ;;21,"58016056727 ")
 ;;3638
 ;;21,"58016056728 ")
 ;;3639
 ;;21,"58016056730 ")
 ;;3640
 ;;21,"58016056732 ")
 ;;3641
 ;;21,"58016056735 ")
 ;;3642
 ;;21,"58016056736 ")
 ;;3643
 ;;21,"58016056740 ")
 ;;3644
 ;;21,"58016056742 ")
 ;;3645
 ;;21,"58016056744 ")
 ;;3646
 ;;21,"58016056745 ")
 ;;3647
 ;;21,"58016056748 ")
 ;;3648
 ;;21,"58016056750 ")
 ;;3649
 ;;21,"58016056756 ")
 ;;3650
 ;;21,"58016056760 ")
 ;;3651
 ;;21,"58016056767 ")
 ;;3652
 ;;21,"58016056769 ")
 ;;3653
 ;;21,"58016056770 ")
 ;;3654
 ;;21,"58016056771 ")
 ;;3655
 ;;21,"58016056772 ")
 ;;3656
 ;;21,"58016056773 ")
 ;;3657
 ;;21,"58016056775 ")
 ;;3658
 ;;21,"58016056776 ")
 ;;3659
 ;;21,"58016056777 ")
 ;;3660
 ;;21,"58016056779 ")
 ;;3661
 ;;21,"58016056780 ")
 ;;3662
 ;;21,"58016056781 ")
 ;;3663
 ;;21,"58016056782 ")
 ;;3664
 ;;21,"58016056783 ")
 ;;3665
 ;;21,"58016056784 ")
 ;;3666
 ;;21,"58016056787 ")
 ;;3667
 ;;21,"58016056789 ")
 ;;3668
 ;;21,"58016056790 ")
 ;;3669
 ;;21,"58016056791 ")
 ;;3670
 ;;21,"58016056792 ")
 ;;3671
 ;;21,"58016056793 ")
 ;;3672
 ;;21,"58016056796 ")
 ;;3673
 ;;21,"58016056797 ")
 ;;3674
 ;;21,"58016056798 ")
 ;;3675
 ;;21,"58016056799 ")
 ;;3676
 ;;21,"58016070100 ")
 ;;3677
 ;;21,"58016070101 ")
 ;;3678
 ;;21,"58016070102 ")
 ;;3679
 ;;21,"58016070103 ")
 ;;3680
 ;;21,"58016070104 ")
 ;;3681
 ;;21,"58016070105 ")
 ;;3682
 ;;21,"58016070106 ")
 ;;3683
 ;;21,"58016070108 ")
 ;;3684
 ;;21,"58016070109 ")
 ;;3685
 ;;21,"58016070110 ")
 ;;3686
 ;;21,"58016070112 ")
 ;;3687
 ;;21,"58016070114 ")
 ;;3688
 ;;21,"58016070115 ")
 ;;3689
 ;;21,"58016070116 ")
 ;;3690
 ;;21,"58016070118 ")
 ;;3691
 ;;21,"58016070120 ")
 ;;3692
 ;;21,"58016070121 ")
 ;;3693
 ;;21,"58016070124 ")
 ;;3694
 ;;21,"58016070125 ")
 ;;3695
 ;;21,"58016070126 ")
 ;;3696
 ;;21,"58016070127 ")
 ;;3697
 ;;21,"58016070128 ")
 ;;3698
 ;;21,"58016070130 ")
 ;;3699
 ;;21,"58016070132 ")
 ;;3700
 ;;21,"58016070135 ")
 ;;3701
 ;;21,"58016070136 ")
 ;;3702
 ;;21,"58016070140 ")
 ;;3703
 ;;21,"58016070142 ")
 ;;3704
 ;;21,"58016070144 ")
 ;;3705
 ;;21,"58016070145 ")
 ;;3706