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

BGPM5AIN.m

Go to the documentation of this file.
BGPM5AIN ;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,"00247233460 ")
 ;;3793
 ;;21,"00247233477 ")
 ;;3794
 ;;21,"00247233490 ")
 ;;3795
 ;;21,"00310010110 ")
 ;;3796
 ;;21,"00310010510 ")
 ;;3797
 ;;21,"00310010710 ")
 ;;3798
 ;;21,"00310010801 ")
 ;;3799
 ;;21,"00310010802 ")
 ;;3800
 ;;21,"00310010803 ")
 ;;3801
 ;;21,"00310010810 ")
 ;;3802
 ;;21,"00310011510 ")
 ;;3803
 ;;21,"00310011710 ")
 ;;3804
 ;;21,"00339516511 ")
 ;;3805
 ;;21,"00339516711 ")
 ;;3806
 ;;21,"00339516714 ")
 ;;3807
 ;;21,"00339517111 ")
 ;;3808
 ;;21,"00339531512 ")
 ;;3809
 ;;21,"00339531712 ")
 ;;3810
 ;;21,"00339531912 ")
 ;;3811
 ;;21,"00339532012 ")
 ;;3812
 ;;21,"00339532112 ")
 ;;3813
 ;;21,"00339575312 ")
 ;;3814
 ;;21,"00339575512 ")
 ;;3815
 ;;21,"00339575712 ")
 ;;3816
 ;;21,"00339575912 ")
 ;;3817
 ;;21,"00339586411 ")
 ;;3818
 ;;21,"00339586414 ")
 ;;3819
 ;;21,"00378001801 ")
 ;;3820
 ;;21,"00378001802 ")
 ;;3821
 ;;21,"00378001805 ")
 ;;3822
 ;;21,"00378001807 ")
 ;;3823
 ;;21,"00378001891 ")
 ;;3824
 ;;21,"00378002801 ")
 ;;3825
 ;;21,"00378003201 ")
 ;;3826
 ;;21,"00378003202 ")
 ;;3827
 ;;21,"00378003204 ")
 ;;3828
 ;;21,"00378003210 ")
 ;;3829
 ;;21,"00378004701 ")
 ;;3830
 ;;21,"00378004702 ")
 ;;3831
 ;;21,"00378004704 ")
 ;;3832
 ;;21,"00378004710 ")
 ;;3833
 ;;21,"00378005201 ")
 ;;3834
 ;;21,"00378005501 ")
 ;;3835
 ;;21,"00378012701 ")
 ;;3836
 ;;21,"00378018201 ")
 ;;3837
 ;;21,"00378018210 ")
 ;;3838
 ;;21,"00378018301 ")
 ;;3839
 ;;21,"00378018310 ")
 ;;3840
 ;;21,"00378018401 ")
 ;;3841
 ;;21,"00378018410 ")
 ;;3842
 ;;21,"00378018501 ")
 ;;3843
 ;;21,"00378018505 ")
 ;;3844
 ;;21,"00378018701 ")
 ;;3845
 ;;21,"00378018705 ")
 ;;3846
 ;;21,"00378021801 ")
 ;;3847
 ;;21,"00378021810 ")
 ;;3848
 ;;21,"00378022101 ")
 ;;3849
 ;;21,"00378023101 ")
 ;;3850
 ;;21,"00378023110 ")
 ;;3851
 ;;21,"00378034701 ")
 ;;3852
 ;;21,"00378042401 ")
 ;;3853
 ;;21,"00378042405 ")
 ;;3854
 ;;21,"00378043401 ")
 ;;3855
 ;;21,"00378043405 ")
 ;;3856
 ;;21,"00378044501 ")
 ;;3857
 ;;21,"00378044505 ")
 ;;3858
 ;;21,"00378050101 ")
 ;;3859
 ;;21,"00378050105 ")
 ;;3860
 ;;21,"00378050110 ")
 ;;3861
 ;;21,"00378050301 ")
 ;;3862
 ;;21,"00378050305 ")
 ;;3863
 ;;21,"00378050310 ")
 ;;3864
 ;;21,"00378050501 ")
 ;;3865
 ;;21,"00378050505 ")
 ;;3866
 ;;21,"00378052301 ")
 ;;3867
 ;;21,"00378052325 ")
 ;;3868
 ;;21,"00378052393 ")
 ;;3869
 ;;21,"00378052401 ")
 ;;3870
 ;;21,"00378052425 ")
 ;;3871
 ;;21,"00378052493 ")
 ;;3872
 ;;21,"00378071501 ")
 ;;3873
 ;;21,"00378073101 ")
 ;;3874
 ;;21,"00378073105 ")
 ;;3875
 ;;21,"00378073110 ")
 ;;3876
 ;;21,"00378075701 ")
 ;;3877
 ;;21,"00378075710 ")
 ;;3878
 ;;21,"00378075793 ")
 ;;3879
 ;;21,"00378113201 ")
 ;;3880
 ;;21,"00378113210 ")
 ;;3881
 ;;21,"00378117101 ")
 ;;3882
 ;;21,"00378117110 ")
 ;;3883
 ;;21,"00378206301 ")
 ;;3884
 ;;21,"00378206401 ")
 ;;3885
 ;;21,"00378206493 ")
 ;;3886
 ;;21,"00378616001 ")
 ;;3887
 ;;21,"00378616005 ")
 ;;3888
 ;;21,"00378618001 ")
 ;;3889
 ;;21,"00378618005 ")
 ;;3890
 ;;21,"00378622001 ")
 ;;3891
 ;;21,"00378622005 ")
 ;;3892
 ;;21,"00378626001 ")
 ;;3893
 ;;21,"00378626005 ")
 ;;3894
 ;;21,"00406202200 ")
 ;;3895
 ;;21,"00406202201 ")
 ;;3896
 ;;21,"00406202210 ")
 ;;3897
 ;;21,"00406202300 ")
 ;;3898
 ;;21,"00406202301 ")
 ;;3899
 ;;21,"00406202310 ")
 ;;3900
 ;;21,"00406202400 ")
 ;;3901
 ;;21,"00406202401 ")
 ;;3902
 ;;21,"00406202410 ")
 ;;3903
 ;;21,"00409177805 ")
 ;;3904
 ;;21,"00409177835 ")
 ;;3905
 ;;21,"00409226720 ")
 ;;3906
 ;;21,"00409226754 ")
 ;;3907
 ;;21,"00409228505 ")
 ;;3908
 ;;21,"00409233934 ")
 ;;3909
 ;;21,"00440717030 ")
 ;;3910
 ;;21,"00440717090 ")
 ;;3911
 ;;21,"00440717110 ")
 ;;3912
 ;;21,"00440717130 ")
 ;;3913
 ;;21,"00440717145 ")
 ;;3914
 ;;21,"00440717160 ")
 ;;3915
 ;;21,"00440717190 ")
 ;;3916
 ;;21,"00440717230 ")
 ;;3917
 ;;21,"00440717290 ")
 ;;3918
 ;;21,"00440778530 ")
 ;;3919
 ;;21,"00440778560 ")
 ;;3920
 ;;21,"00440778592 ")
 ;;3921
 ;;21,"00480010001 ")
 ;;3922
 ;;21,"00480010201 ")
 ;;3923
 ;;21,"00480010205 ")
 ;;3924
 ;;21,"00480010601 ")
 ;;3925
 ;;21,"00480073301 ")
 ;;3926
 ;;21,"00480073310 ")
 ;;3927
 ;;21,"00480073401 ")
 ;;3928
 ;;21,"00480073410 ")
 ;;3929
 ;;21,"00480075201 ")
 ;;3930
 ;;21,"00480075210 ")
 ;;3931
 ;;21,"00480075301 ")
 ;;3932
 ;;21,"00480078701 ")
 ;;3933
 ;;21,"00480078710 ")
 ;;3934
 ;;21,"00490005300 ")
 ;;3935
 ;;21,"00490005330 ")
 ;;3936
 ;;21,"00490005360 ")
 ;;3937
 ;;21,"00490005390 ")
 ;;3938
 ;;21,"00490018301 ")
 ;;3939
 ;;21,"00490018302 ")
 ;;3940
 ;;21,"00490018303 ")
 ;;3941
 ;;21,"00490018304 ")
 ;;3942
 ;;21,"00490018305 ")
 ;;3943
 ;;21,"00490705301 ")
 ;;3944
 ;;21,"00490705302 ")
 ;;3945
 ;;21,"00490705303 ")
 ;;3946
 ;;21,"00490705304 ")
 ;;3947
 ;;21,"00490705305 ")
 ;;3948
 ;;21,"00490709500 ")
 ;;3949
 ;;21,"00490709501 ")
 ;;3950
 ;;21,"00490709502 ")
 ;;3951
 ;;21,"00490709503 ")
 ;;3952
 ;;21,"00490709504 ")
 ;;3953
 ;;21,"00490709505 ")
 ;;3954
 ;;21,"00490709506 ")
 ;;3955
 ;;21,"00490709507 ")
 ;;3956
 ;;21,"00490709508 ")
 ;;3957
 ;;21,"00490709509 ")
 ;;3958
 ;;21,"00490709510 ")
 ;;3959
 ;;21,"00490709512 ")
 ;;3960
 ;;21,"00490709514 ")
 ;;3961
 ;;21,"00490709515 ")
 ;;3962
 ;;21,"00490709516 ")
 ;;3963
 ;;21,"00490709518 ")
 ;;3964
 ;;21,"00490709520 ")
 ;;3965
 ;;21,"00490709521 ")
 ;;3966
 ;;21,"00490709524 ")
 ;;3967
 ;;21,"00490709525 ")
 ;;3968
 ;;21,"00490709526 ")
 ;;3969
 ;;21,"00490709527 ")
 ;;3970
 ;;21,"00490709528 ")
 ;;3971
 ;;21,"00490709530 ")
 ;;3972
 ;;21,"00490709532 ")
 ;;3973
 ;;21,"00490709535 ")
 ;;3974
 ;;21,"00490709536 ")
 ;;3975
 ;;21,"00490709540 ")
 ;;3976
 ;;21,"00490709542 ")
 ;;3977
 ;;21,"00490709544 ")
 ;;3978
 ;;21,"00490709545 ")
 ;;3979
 ;;21,"00490709548 ")
 ;;3980
 ;;21,"00490709550 ")
 ;;3981
 ;;21,"00490709556 ")
 ;;3982
 ;;21,"00490709560 ")
 ;;3983
 ;;21,"00490709567 ")
 ;;3984
 ;;21,"00490709569 ")
 ;;3985
 ;;21,"00490709570 ")
 ;;3986
 ;;21,"00490709571 ")
 ;;3987
 ;;21,"00490709572 ")
 ;;3988
 ;;21,"00490709573 ")
 ;;3989
 ;;21,"00490709575 ")
 ;;3990
 ;;21,"00490709576 ")
 ;;3991
 ;;21,"00490709577 ")
 ;;3992
 ;;21,"00490709579 ")
 ;;3993
 ;;21,"00490709580 ")
 ;;3994
 ;;21,"00490709581 ")
 ;;3995
 ;;21,"00490709582 ")
 ;;3996
 ;;21,"00490709583 ")
 ;;3997
 ;;21,"00490709584 ")
 ;;3998
 ;;21,"00490709587 ")
 ;;3999
 ;;21,"00490709589 ")
 ;;4000
 ;;21,"00490709590 ")
 ;;4001
 ;;21,"00490709591 ")
 ;;4002
 ;;21,"00490709592 ")
 ;;4003
 ;;21,"00490709593 ")
 ;;4004
 ;;21,"00490709596 ")
 ;;4005
 ;;21,"00490709597 ")
 ;;4006
 ;;21,"00490709598 ")
 ;;4007
 ;;21,"00490709599 ")
 ;;4008
 ;;21,"00517135501 ")
 ;;4009
 ;;21,"00517135510 ")
 ;;4010
 ;;21,"00517135525 ")
 ;;4011
 ;;21,"00555042702 ")
 ;;4012
 ;;21,"00555042705 ")
 ;;4013
 ;;21,"00555042802 ")
 ;;4014
 ;;21,"00555042805 ")
 ;;4015
 ;;21,"00591046201 ")
 ;;4016
 ;;21,"00591046210 ")
 ;;4017
 ;;21,"00591046301 ")
 ;;4018
 ;;21,"00591046310 ")
 ;;4019
 ;;21,"00591060501 ")
 ;;4020
 ;;21,"00591060505 ")
 ;;4021
 ;;21,"00591060510 ")
 ;;4022
 ;;21,"00591060601 ")
 ;;4023
 ;;21,"00591060605 ")
 ;;4024
 ;;21,"00591060610 ")
 ;;4025
 ;;21,"00591060701 ")
 ;;4026
 ;;21,"00591060705 ")
 ;;4027
 ;;21,"00591060710 ")
 ;;4028
 ;;21,"00591084101 ")
 ;;4029
 ;;21,"00591084105 ")
 ;;4030
 ;;21,"00591084201 ")
 ;;4031
 ;;21,"00591084205 ")
 ;;4032
 ;;21,"00591084301 ")
 ;;4033
 ;;21,"00591084330 ")
 ;;4034
 ;;21,"00591319526 ")
 ;;4035
 ;;21,"00591319578 ")
 ;;4036
 ;;21,"00591555400 ")
 ;;4037
 ;;21,"00591555401 ")
 ;;4038
 ;;21,"00591555410 ")
 ;;4039
 ;;21,"00591555500 ")
 ;;4040
 ;;21,"00591555501 ")
 ;;4041
 ;;21,"00591555510 ")
 ;;4042
 ;;21,"00591555600 ")
 ;;4043
 ;;21,"00591555601 ")
 ;;4044
 ;;21,"00591555610 ")
 ;;4045
 ;;21,"00591555700 ")
 ;;4046
 ;;21,"00591555701 ")
 ;;4047
 ;;21,"00591555705 ")
 ;;4048
 ;;21,"00591577701 ")
 ;;4049
 ;;21,"00591577710 ")
 ;;4050
 ;;21,"00591577801 ")
 ;;4051
 ;;21,"00591578200 ")
 ;;4052
 ;;21,"00591578201 ")
 ;;4053
 ;;21,"00591578300 ")
 ;;4054
 ;;21,"00591578301 ")
 ;;4055
 ;;21,"00603237121 ")
 ;;4056
 ;;21,"00603237132 ")
 ;;4057
 ;;21,"00603237221 ")
 ;;4058
 ;;21,"00603462721 ")
 ;;4059
 ;;21,"00603462732 ")
 ;;4060
 ;;21,"00603462821 ")
 ;;4061
 ;;21,"00603462832 ")
 ;;4062
 ;;21,"00603474221 ")
 ;;4063
 ;;21,"00603522021 ")
 ;;4064
 ;;21,"00603522121 ")
 ;;4065
 ;;21,"00603548221 ")
 ;;4066
 ;;21,"00603548232 ")
 ;;4067
 ;;21,"00603548321 ")
 ;;4068
 ;;21,"00603548332 ")
 ;;4069
 ;;21,"00603548421 ")
 ;;4070
 ;;21,"00603548432 ")
 ;;4071
 ;;21,"00603548521 ")
 ;;4072
 ;;21,"00603548621 ")
 ;;4073
 ;;21,"00603548628 ")
 ;;4074
 ;;21,"00603548921 ")
 ;;4075
 ;;21,"00603548932 ")
 ;;4076
 ;;21,"00603549021 ")
 ;;4077
 ;;21,"00603549032 ")
 ;;4078
 ;;21,"00603549132 ")
 ;;4079
 ;;21,"00603549221 ")
 ;;4080
 ;;21,"00603549228 ")
 ;;4081
 ;;21,"00603549321 ")
 ;;4082
 ;;21,"00603549328 ")
 ;;4083
 ;;21,"00603550321 ")
 ;;4084
 ;;21,"00603550328 ")
 ;;4085
 ;;21,"00603550421 ")
 ;;4086
 ;;21,"00615256131 ")
 ;;4087
 ;;21,"00615256139 ")
 ;;4088
 ;;21,"00615256231 ")
 ;;4089
 ;;21,"00615256239 ")
 ;;4090
 ;;21,"00615256331 ")
 ;;4091
 ;;21,"00615256339 ")
 ;;4092
 ;;21,"00615353205 ")
 ;;4093
 ;;21,"00615353231 ")
 ;;4094
 ;;21,"00615353239 ")
 ;;4095
 ;;21,"00615353331 ")
 ;;4096
 ;;21,"00615353339 ")
 ;;4097
 ;;21,"00615354405 ")
 ;;4098
 ;;21,"00615354431 ")
 ;;4099
 ;;21,"00615354439 ")
 ;;4100
 ;;21,"00615355205 ")
 ;;4101
 ;;21,"00615355231 ")
 ;;4102
 ;;21,"00615355239 ")
 ;;4103
 ;;21,"00615355331 ")
 ;;4104
 ;;21,"00615355339 ")
 ;;4105
 ;;21,"00615453831 ")
 ;;4106
 ;;21,"00615453839 ")
 ;;4107
 ;;21,"00615453931 ")
 ;;4108
 ;;21,"00615453939 ")
 ;;4109
 ;;21,"00615454031 ")
 ;;4110
 ;;21,"00615454039 ")
 ;;4111
 ;;21,"00615555631 ")
 ;;4112
 ;;21,"00615555639 ")
 ;;4113
 ;;21,"00615555731 ")
 ;;4114
 ;;21,"00615555739 ")
 ;;4115
 ;;21,"00615560631 ")
 ;;4116
 ;;21,"00615560639 ")
 ;;4117
 ;;21,"00615560731 ")
 ;;4118
 ;;21,"00615560739 ")
 ;;4119
 ;;21,"00615652231 ")
 ;;4120
 ;;21,"00615652239 ")
 ;;4121
 ;;21,"00615652931 ")
 ;;4122
 ;;21,"00615652939 ")
 ;;4123
 ;;21,"00615654705 ")
 ;;4124
 ;;21,"00615654731 ")
 ;;4125
 ;;21,"00615654739 ")
 ;;4126
 ;;21,"00641014501 ")
 ;;4127
 ;;21,"00641014543 ")
 ;;4128
 ;;21,"00677136301 ")
 ;;4129
 ;;21,"00677136401 ")
 ;;4130
 ;;21,"00677136501 ")
 ;;4131
 ;;21,"00677136601 ")
 ;;4132
 ;;21,"00677147801 ")
 ;;4133
 ;;21,"00677147810 ")
 ;;4134
 ;;21,"00677147901 ")
 ;;4135
 ;;21,"00677147910 ")
 ;;4136
 ;;21,"00677163301 ")
 ;;4137
 ;;21,"00677170101 ")
 ;;4138
 ;;21,"00677170105 ")
 ;;4139
 ;;21,"00677170106 ")
 ;;4140
 ;;21,"00677170206 ")
 ;;4141
 ;;21,"00677170301 ")
 ;;4142
 ;;21,"00781046005 ")
 ;;4143
 ;;21,"00781046105 ")
 ;;4144