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