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

BGPM5ALH.m

Go to the documentation of this file.
  1. BGPM5ALH ;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,"54868480701 ")
  1. ;;758
  1. ;;21,"54868480702 ")
  1. ;;759
  1. ;;21,"54868481200 ")
  1. ;;760
  1. ;;21,"54868481201 ")
  1. ;;761
  1. ;;21,"54868493400 ")
  1. ;;762
  1. ;;21,"54868493401 ")
  1. ;;763
  1. ;;21,"54868493402 ")
  1. ;;764
  1. ;;21,"54868496300 ")
  1. ;;765
  1. ;;21,"54868496301 ")
  1. ;;766
  1. ;;21,"54868496302 ")
  1. ;;767
  1. ;;21,"54868496303 ")
  1. ;;768
  1. ;;21,"54868499900 ")
  1. ;;769
  1. ;;21,"54868499901 ")
  1. ;;770
  1. ;;21,"54868508500 ")
  1. ;;771
  1. ;;21,"54868508501 ")
  1. ;;772
  1. ;;21,"54868508502 ")
  1. ;;773
  1. ;;21,"54868508503 ")
  1. ;;774
  1. ;;21,"54868508700 ")
  1. ;;775
  1. ;;21,"54868517900 ")
  1. ;;776
  1. ;;21,"54868518400 ")
  1. ;;777
  1. ;;21,"54868518700 ")
  1. ;;778
  1. ;;21,"54868518701 ")
  1. ;;779
  1. ;;21,"54868518702 ")
  1. ;;780
  1. ;;21,"54868518900 ")
  1. ;;781
  1. ;;21,"54868518901 ")
  1. ;;782
  1. ;;21,"54868520000 ")
  1. ;;783
  1. ;;21,"54868520001 ")
  1. ;;784
  1. ;;21,"54868520300 ")
  1. ;;785
  1. ;;21,"54868520301 ")
  1. ;;786
  1. ;;21,"54868520900 ")
  1. ;;787
  1. ;;21,"54868520901 ")
  1. ;;788
  1. ;;21,"54868522400 ")
  1. ;;789
  1. ;;21,"54868522401 ")
  1. ;;790
  1. ;;21,"54868525000 ")
  1. ;;791
  1. ;;21,"54868525900 ")
  1. ;;792
  1. ;;21,"54868525901 ")
  1. ;;793
  1. ;;21,"54868534100 ")
  1. ;;794
  1. ;;21,"54868534101 ")
  1. ;;795
  1. ;;21,"54868535800 ")
  1. ;;796
  1. ;;21,"54868542000 ")
  1. ;;797
  1. ;;21,"54868549800 ")
  1. ;;798
  1. ;;21,"54868551200 ")
  1. ;;799
  1. ;;21,"54868551201 ")
  1. ;;800
  1. ;;21,"54868552300 ")
  1. ;;801
  1. ;;21,"54868552301 ")
  1. ;;802
  1. ;;21,"54868552600 ")
  1. ;;803
  1. ;;21,"54868556700 ")
  1. ;;804
  1. ;;21,"54868557500 ")
  1. ;;805
  1. ;;21,"54868557501 ")
  1. ;;806
  1. ;;21,"54868557502 ")
  1. ;;807
  1. ;;21,"54868567200 ")
  1. ;;808
  1. ;;21,"54868569900 ")
  1. ;;809
  1. ;;21,"54868578400 ")
  1. ;;810
  1. ;;21,"54868599400 ")
  1. ;;811
  1. ;;21,"54868599401 ")
  1. ;;812
  1. ;;21,"54868622600 ")
  1. ;;813
  1. ;;21,"54921075102 ")
  1. ;;814
  1. ;;21,"54921075115 ")
  1. ;;815
  1. ;;21,"54921075197 ")
  1. ;;816
  1. ;;21,"54921075202 ")
  1. ;;817
  1. ;;21,"54921075215 ")
  1. ;;818
  1. ;;21,"54921075297 ")
  1. ;;819
  1. ;;21,"54921075402 ")
  1. ;;820
  1. ;;21,"54921075415 ")
  1. ;;821
  1. ;;21,"54921075502 ")
  1. ;;822
  1. ;;21,"54921075515 ")
  1. ;;823
  1. ;;21,"54921075569 ")
  1. ;;824
  1. ;;21,"54921075597 ")
  1. ;;825
  1. ;;21,"55045159308 ")
  1. ;;826
  1. ;;21,"55045231608 ")
  1. ;;827
  1. ;;21,"55045232302 ")
  1. ;;828
  1. ;;21,"55045232306 ")
  1. ;;829
  1. ;;21,"55045301401 ")
  1. ;;830
  1. ;;21,"55045301402 ")
  1. ;;831
  1. ;;21,"55045301406 ")
  1. ;;832
  1. ;;21,"55045301408 ")
  1. ;;833
  1. ;;21,"55045301409 ")
  1. ;;834
  1. ;;21,"55045301501 ")
  1. ;;835
  1. ;;21,"55045301508 ")
  1. ;;836
  1. ;;21,"55045301509 ")
  1. ;;837
  1. ;;21,"55045310008 ")
  1. ;;838
  1. ;;21,"55154067000 ")
  1. ;;839
  1. ;;21,"55154242100 ")
  1. ;;840
  1. ;;21,"55154242200 ")
  1. ;;841
  1. ;;21,"55154242207 ")
  1. ;;842
  1. ;;21,"55154242500 ")
  1. ;;843
  1. ;;21,"55154242504 ")
  1. ;;844
  1. ;;21,"55154242506 ")
  1. ;;845
  1. ;;21,"55154242800 ")
  1. ;;846
  1. ;;21,"55154500400 ")
  1. ;;847
  1. ;;21,"55154501200 ")
  1. ;;848
  1. ;;21,"55154501207 ")
  1. ;;849
  1. ;;21,"55154502200 ")
  1. ;;850
  1. ;;21,"55154502207 ")
  1. ;;851
  1. ;;21,"55154502700 ")
  1. ;;852
  1. ;;21,"55154502707 ")
  1. ;;853
  1. ;;21,"55154503400 ")
  1. ;;854
  1. ;;21,"55154523100 ")
  1. ;;855
  1. ;;21,"55154523107 ")
  1. ;;856
  1. ;;21,"55154566600 ")
  1. ;;857
  1. ;;21,"55154692100 ")
  1. ;;858
  1. ;;21,"55154692208 ")
  1. ;;859
  1. ;;21,"55154692308 ")
  1. ;;860
  1. ;;21,"55154692402 ")
  1. ;;861
  1. ;;21,"55154692407 ")
  1. ;;862
  1. ;;21,"55154692408 ")
  1. ;;863
  1. ;;21,"55154692409 ")
  1. ;;864
  1. ;;21,"55154692508 ")
  1. ;;865
  1. ;;21,"55154696604 ")
  1. ;;866
  1. ;;21,"55154696606 ")
  1. ;;867
  1. ;;21,"55154696702 ")
  1. ;;868
  1. ;;21,"55154696704 ")
  1. ;;869
  1. ;;21,"55154696706 ")
  1. ;;870
  1. ;;21,"55154696708 ")
  1. ;;871
  1. ;;21,"55154827209 ")
  1. ;;872
  1. ;;21,"55154828400 ")
  1. ;;873
  1. ;;21,"55289028030 ")
  1. ;;874
  1. ;;21,"55289040030 ")
  1. ;;875
  1. ;;21,"55289041160 ")
  1. ;;876
  1. ;;21,"55289041193 ")
  1. ;;877
  1. ;;21,"55289047630 ")
  1. ;;878
  1. ;;21,"55289052030 ")
  1. ;;879
  1. ;;21,"55289054830 ")
  1. ;;880
  1. ;;21,"55289062001 ")
  1. ;;881
  1. ;;21,"55289069214 ")
  1. ;;882
  1. ;;21,"55289069230 ")
  1. ;;883
  1. ;;21,"55289074060 ")
  1. ;;884
  1. ;;21,"55289080030 ")
  1. ;;885
  1. ;;21,"55289086130 ")
  1. ;;886
  1. ;;21,"55289087030 ")
  1. ;;887
  1. ;;21,"55289087430 ")
  1. ;;888
  1. ;;21,"55289088130 ")
  1. ;;889
  1. ;;21,"55289093230 ")
  1. ;;890
  1. ;;21,"55289093530 ")
  1. ;;891
  1. ;;21,"55289096615 ")
  1. ;;892
  1. ;;21,"55289096630 ")
  1. ;;893
  1. ;;21,"55289097330 ")
  1. ;;894
  1. ;;21,"55289098021 ")
  1. ;;895
  1. ;;21,"55567012700 ")
  1. ;;896
  1. ;;21,"55567012706 ")
  1. ;;897
  1. ;;21,"55567012718 ")
  1. ;;898
  1. ;;21,"55567012735 ")
  1. ;;899
  1. ;;21,"55567012769 ")
  1. ;;900
  1. ;;21,"55567012800 ")
  1. ;;901
  1. ;;21,"55567012806 ")
  1. ;;902
  1. ;;21,"55567012818 ")
  1. ;;903
  1. ;;21,"55567012835 ")
  1. ;;904
  1. ;;21,"55567012869 ")
  1. ;;905
  1. ;;21,"55567012900 ")
  1. ;;906
  1. ;;21,"55567012906 ")
  1. ;;907
  1. ;;21,"55567012918 ")
  1. ;;908
  1. ;;21,"55567012935 ")
  1. ;;909
  1. ;;21,"55567012969 ")
  1. ;;910
  1. ;;21,"55567073161 ")
  1. ;;911
  1. ;;21,"55567073261 ")
  1. ;;912
  1. ;;21,"55648090101 ")
  1. ;;913
  1. ;;21,"55887033330 ")
  1. ;;914
  1. ;;21,"55887033530 ")
  1. ;;915
  1. ;;21,"55887033560 ")
  1. ;;916
  1. ;;21,"55887033582 ")
  1. ;;917
  1. ;;21,"55887033590 ")
  1. ;;918
  1. ;;21,"55887033592 ")
  1. ;;919
  1. ;;21,"55887035001 ")
  1. ;;920
  1. ;;21,"55887035030 ")
  1. ;;921
  1. ;;21,"55887035060 ")
  1. ;;922
  1. ;;21,"55887035090 ")
  1. ;;923
  1. ;;21,"55887036930 ")
  1. ;;924
  1. ;;21,"55887036940 ")
  1. ;;925
  1. ;;21,"55887036960 ")
  1. ;;926
  1. ;;21,"55887036990 ")
  1. ;;927
  1. ;;21,"55887062430 ")
  1. ;;928
  1. ;;21,"55887073030 ")
  1. ;;929
  1. ;;21,"55887073060 ")
  1. ;;930
  1. ;;21,"55887073090 ")
  1. ;;931
  1. ;;21,"55887087830 ")
  1. ;;932
  1. ;;21,"55887088230 ")
  1. ;;933
  1. ;;21,"55887092930 ")
  1. ;;934
  1. ;;21,"55887092990 ")
  1. ;;935
  1. ;;21,"55887097490 ")
  1. ;;936
  1. ;;21,"55983070101 ")
  1. ;;937
  1. ;;21,"55983070118 ")
  1. ;;938
  1. ;;21,"55983070124 ")
  1. ;;939
  1. ;;21,"57297046701 ")
  1. ;;940
  1. ;;21,"57297046703 ")
  1. ;;941
  1. ;;21,"57297046707 ")
  1. ;;942
  1. ;;21,"57297046801 ")
  1. ;;943
  1. ;;21,"57297046803 ")
  1. ;;944
  1. ;;21,"57297046807 ")
  1. ;;945
  1. ;;21,"57297046809 ")
  1. ;;946
  1. ;;21,"57297046901 ")
  1. ;;947
  1. ;;21,"57297046903 ")
  1. ;;948
  1. ;;21,"57297046907 ")
  1. ;;949
  1. ;;21,"57297046909 ")
  1. ;;950
  1. ;;21,"57664011508 ")
  1. ;;951
  1. ;;21,"57664011513 ")
  1. ;;952
  1. ;;21,"57664011518 ")
  1. ;;953
  1. ;;21,"57664011583 ")
  1. ;;954
  1. ;;21,"57664011586 ")
  1. ;;955
  1. ;;21,"57664011588 ")
  1. ;;956
  1. ;;21,"57844032201 ")
  1. ;;957
  1. ;;21,"57844032301 ")
  1. ;;958
  1. ;;21,"57844032401 ")
  1. ;;959
  1. ;;21,"57844069198 ")
  1. ;;960
  1. ;;21,"57844069298 ")
  1. ;;961
  1. ;;21,"57866650001 ")
  1. ;;962
  1. ;;21,"57866654001 ")
  1. ;;963
  1. ;;21,"57866654002 ")
  1. ;;964
  1. ;;21,"57866654004 ")
  1. ;;965
  1. ;;21,"57866659801 ")
  1. ;;966
  1. ;;21,"57866659901 ")
  1. ;;967
  1. ;;21,"57866660101 ")
  1. ;;968
  1. ;;21,"57866798201 ")
  1. ;;969
  1. ;;21,"58016003700 ")
  1. ;;970
  1. ;;21,"58016003701 ")
  1. ;;971
  1. ;;21,"58016003702 ")
  1. ;;972
  1. ;;21,"58016003703 ")
  1. ;;973
  1. ;;21,"58016003704 ")
  1. ;;974
  1. ;;21,"58016003705 ")
  1. ;;975
  1. ;;21,"58016003730 ")
  1. ;;976
  1. ;;21,"58016003760 ")
  1. ;;977
  1. ;;21,"58016003790 ")
  1. ;;978
  1. ;;21,"58016004401 ")
  1. ;;979
  1. ;;21,"58016004402 ")
  1. ;;980
  1. ;;21,"58016004403 ")
  1. ;;981
  1. ;;21,"58016004404 ")
  1. ;;982
  1. ;;21,"58016004405 ")
  1. ;;983
  1. ;;21,"58016005100 ")
  1. ;;984
  1. ;;21,"58016005101 ")
  1. ;;985
  1. ;;21,"58016005102 ")
  1. ;;986
  1. ;;21,"58016005103 ")
  1. ;;987
  1. ;;21,"58016005104 ")
  1. ;;988
  1. ;;21,"58016005105 ")
  1. ;;989
  1. ;;21,"58016005130 ")
  1. ;;990
  1. ;;21,"58016005160 ")
  1. ;;991
  1. ;;21,"58016005190 ")
  1. ;;992
  1. ;;21,"58016005200 ")
  1. ;;993
  1. ;;21,"58016005201 ")
  1. ;;994
  1. ;;21,"58016005202 ")
  1. ;;995
  1. ;;21,"58016005203 ")
  1. ;;996
  1. ;;21,"58016005204 ")
  1. ;;997
  1. ;;21,"58016005205 ")
  1. ;;998
  1. ;;21,"58016005206 ")
  1. ;;999
  1. ;;21,"58016005207 ")
  1. ;;1000
  1. ;;21,"58016005208 ")
  1. ;;1001
  1. ;;21,"58016005209 ")
  1. ;;1002
  1. ;;21,"58016005210 ")
  1. ;;1003
  1. ;;21,"58016005230 ")
  1. ;;1004
  1. ;;21,"58016005260 ")
  1. ;;1005
  1. ;;21,"58016005290 ")
  1. ;;1006
  1. ;;21,"58016007100 ")
  1. ;;1007
  1. ;;21,"58016007130 ")
  1. ;;1008
  1. ;;21,"58016007160 ")
  1. ;;1009
  1. ;;21,"58016007190 ")
  1. ;;1010
  1. ;;21,"58016024590 ")
  1. ;;1011
  1. ;;21,"58016025200 ")
  1. ;;1012
  1. ;;21,"58016025201 ")
  1. ;;1013
  1. ;;21,"58016025202 ")
  1. ;;1014
  1. ;;21,"58016025203 ")
  1. ;;1015
  1. ;;21,"58016025204 ")
  1. ;;1016
  1. ;;21,"58016025205 ")
  1. ;;1017
  1. ;;21,"58016025206 ")
  1. ;;1018
  1. ;;21,"58016025207 ")
  1. ;;1019
  1. ;;21,"58016025208 ")
  1. ;;1020
  1. ;;21,"58016025209 ")
  1. ;;1021
  1. ;;21,"58016025210 ")
  1. ;;1022
  1. ;;21,"58016025212 ")
  1. ;;1023
  1. ;;21,"58016025214 ")
  1. ;;1024
  1. ;;21,"58016025215 ")
  1. ;;1025
  1. ;;21,"58016025216 ")
  1. ;;1026
  1. ;;21,"58016025218 ")
  1. ;;1027
  1. ;;21,"58016025220 ")
  1. ;;1028
  1. ;;21,"58016025221 ")
  1. ;;1029
  1. ;;21,"58016025224 ")
  1. ;;1030
  1. ;;21,"58016025225 ")
  1. ;;1031
  1. ;;21,"58016025226 ")
  1. ;;1032
  1. ;;21,"58016025227 ")
  1. ;;1033
  1. ;;21,"58016025228 ")
  1. ;;1034
  1. ;;21,"58016025230 ")
  1. ;;1035
  1. ;;21,"58016025232 ")
  1. ;;1036
  1. ;;21,"58016025235 ")
  1. ;;1037
  1. ;;21,"58016025236 ")
  1. ;;1038
  1. ;;21,"58016025240 ")
  1. ;;1039
  1. ;;21,"58016025242 ")
  1. ;;1040
  1. ;;21,"58016025244 ")
  1. ;;1041
  1. ;;21,"58016025245 ")
  1. ;;1042
  1. ;;21,"58016025248 ")
  1. ;;1043
  1. ;;21,"58016025250 ")
  1. ;;1044
  1. ;;21,"58016025256 ")
  1. ;;1045
  1. ;;21,"58016025260 ")
  1. ;;1046
  1. ;;21,"58016025267 ")
  1. ;;1047
  1. ;;21,"58016025269 ")
  1. ;;1048
  1. ;;21,"58016025270 ")
  1. ;;1049
  1. ;;21,"58016025271 ")
  1. ;;1050
  1. ;;21,"58016025272 ")
  1. ;;1051
  1. ;;21,"58016025273 ")
  1. ;;1052
  1. ;;21,"58016025275 ")
  1. ;;1053
  1. ;;21,"58016025276 ")
  1. ;;1054
  1. ;;21,"58016025277 ")
  1. ;;1055
  1. ;;21,"58016025279 ")
  1. ;;1056
  1. ;;21,"58016025280 ")
  1. ;;1057
  1. ;;21,"58016025281 ")
  1. ;;1058
  1. ;;21,"58016025282 ")
  1. ;;1059
  1. ;;21,"58016025283 ")
  1. ;;1060
  1. ;;21,"58016025284 ")
  1. ;;1061
  1. ;;21,"58016025287 ")
  1. ;;1062
  1. ;;21,"58016025289 ")
  1. ;;1063
  1. ;;21,"58016025290 ")
  1. ;;1064
  1. ;;21,"58016025291 ")
  1. ;;1065
  1. ;;21,"58016025292 ")
  1. ;;1066
  1. ;;21,"58016025293 ")
  1. ;;1067
  1. ;;21,"58016025296 ")
  1. ;;1068
  1. ;;21,"58016025297 ")
  1. ;;1069
  1. ;;21,"58016025298 ")
  1. ;;1070
  1. ;;21,"58016025299 ")
  1. ;;1071
  1. ;;21,"58016025300 ")
  1. ;;1072
  1. ;;21,"58016025301 ")
  1. ;;1073
  1. ;;21,"58016025302 ")
  1. ;;1074
  1. ;;21,"58016025303 ")
  1. ;;1075
  1. ;;21,"58016025304 ")
  1. ;;1076
  1. ;;21,"58016025305 ")
  1. ;;1077
  1. ;;21,"58016025306 ")
  1. ;;1078
  1. ;;21,"58016025307 ")
  1. ;;1079
  1. ;;21,"58016025308 ")
  1. ;;1080
  1. ;;21,"58016025309 ")
  1. ;;1081
  1. ;;21,"58016025310 ")
  1. ;;1082
  1. ;;21,"58016025312 ")
  1. ;;1083
  1. ;;21,"58016025314 ")
  1. ;;1084
  1. ;;21,"58016025315 ")
  1. ;;1085
  1. ;;21,"58016025316 ")
  1. ;;1086
  1. ;;21,"58016025318 ")
  1. ;;1087
  1. ;;21,"58016025320 ")
  1. ;;1088
  1. ;;21,"58016025321 ")
  1. ;;1089
  1. ;;21,"58016025324 ")
  1. ;;1090
  1. ;;21,"58016025325 ")
  1. ;;1091
  1. ;;21,"58016025326 ")
  1. ;;1092
  1. ;;21,"58016025327 ")
  1. ;;1093
  1. ;;21,"58016025328 ")
  1. ;;1094
  1. ;;21,"58016025330 ")
  1. ;;1095
  1. ;;21,"58016025332 ")
  1. ;;1096
  1. ;;21,"58016025335 ")
  1. ;;1097
  1. ;;21,"58016025336 ")
  1. ;;1098
  1. ;;21,"58016025340 ")
  1. ;;1099
  1. ;;21,"58016025342 ")
  1. ;;1100
  1. ;;21,"58016025344 ")
  1. ;;1101
  1. ;;21,"58016025345 ")
  1. ;;1102
  1. ;;21,"58016025348 ")
  1. ;;1103
  1. ;;21,"58016025350 ")
  1. ;;1104
  1. ;;21,"58016025356 ")
  1. ;;1105
  1. ;;21,"58016025360 ")
  1. ;;1106
  1. ;;21,"58016025367 ")
  1. ;;1107
  1. ;;21,"58016025369 ")
  1. ;;1108
  1. ;;21,"58016025370 ")
  1. ;;1109
  1. ;;21,"58016025371 ")
  1. ;;1110
  1. ;;21,"58016025372 ")
  1. ;;1111
  1. ;;21,"58016025373 ")
  1. ;;1112
  1. ;;21,"58016025375 ")
  1. ;;1113
  1. ;;21,"58016025376 ")
  1. ;;1114
  1. ;;21,"58016025377 ")
  1. ;;1115