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