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

BGPM5AVS.m

Go to the documentation of this file.
BGPM5AVS ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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)
 ;;9002226.02101,"1033,58016010472 ",.01)
 ;;58016010472
 ;;9002226.02101,"1033,58016010472 ",.02)
 ;;58016010472
 ;;9002226.02101,"1033,58016010475 ",.01)
 ;;58016010475
 ;;9002226.02101,"1033,58016010475 ",.02)
 ;;58016010475
 ;;9002226.02101,"1033,58016010476 ",.01)
 ;;58016010476
 ;;9002226.02101,"1033,58016010476 ",.02)
 ;;58016010476
 ;;9002226.02101,"1033,58016010480 ",.01)
 ;;58016010480
 ;;9002226.02101,"1033,58016010480 ",.02)
 ;;58016010480
 ;;9002226.02101,"1033,58016010484 ",.01)
 ;;58016010484
 ;;9002226.02101,"1033,58016010484 ",.02)
 ;;58016010484
 ;;9002226.02101,"1033,58016010490 ",.01)
 ;;58016010490
 ;;9002226.02101,"1033,58016010490 ",.02)
 ;;58016010490
 ;;9002226.02101,"1033,58016010492 ",.01)
 ;;58016010492
 ;;9002226.02101,"1033,58016010492 ",.02)
 ;;58016010492
 ;;9002226.02101,"1033,58016010496 ",.01)
 ;;58016010496
 ;;9002226.02101,"1033,58016010496 ",.02)
 ;;58016010496
 ;;9002226.02101,"1033,58016010497 ",.01)
 ;;58016010497
 ;;9002226.02101,"1033,58016010497 ",.02)
 ;;58016010497
 ;;9002226.02101,"1033,58016010499 ",.01)
 ;;58016010499
 ;;9002226.02101,"1033,58016010499 ",.02)
 ;;58016010499
 ;;9002226.02101,"1033,58016010500 ",.01)
 ;;58016010500
 ;;9002226.02101,"1033,58016010500 ",.02)
 ;;58016010500
 ;;9002226.02101,"1033,58016010520 ",.01)
 ;;58016010520
 ;;9002226.02101,"1033,58016010520 ",.02)
 ;;58016010520
 ;;9002226.02101,"1033,58016010530 ",.01)
 ;;58016010530
 ;;9002226.02101,"1033,58016010530 ",.02)
 ;;58016010530
 ;;9002226.02101,"1033,58016010560 ",.01)
 ;;58016010560
 ;;9002226.02101,"1033,58016010560 ",.02)
 ;;58016010560
 ;;9002226.02101,"1033,58016010590 ",.01)
 ;;58016010590
 ;;9002226.02101,"1033,58016010590 ",.02)
 ;;58016010590
 ;;9002226.02101,"1033,58016010900 ",.01)
 ;;58016010900
 ;;9002226.02101,"1033,58016010900 ",.02)
 ;;58016010900
 ;;9002226.02101,"1033,58016010902 ",.01)
 ;;58016010902
 ;;9002226.02101,"1033,58016010902 ",.02)
 ;;58016010902
 ;;9002226.02101,"1033,58016010903 ",.01)
 ;;58016010903
 ;;9002226.02101,"1033,58016010903 ",.02)
 ;;58016010903
 ;;9002226.02101,"1033,58016010906 ",.01)
 ;;58016010906
 ;;9002226.02101,"1033,58016010906 ",.02)
 ;;58016010906
 ;;9002226.02101,"1033,58016010907 ",.01)
 ;;58016010907
 ;;9002226.02101,"1033,58016010907 ",.02)
 ;;58016010907
 ;;9002226.02101,"1033,58016010910 ",.01)
 ;;58016010910
 ;;9002226.02101,"1033,58016010910 ",.02)
 ;;58016010910
 ;;9002226.02101,"1033,58016010914 ",.01)
 ;;58016010914
 ;;9002226.02101,"1033,58016010914 ",.02)
 ;;58016010914
 ;;9002226.02101,"1033,58016010918 ",.01)
 ;;58016010918
 ;;9002226.02101,"1033,58016010918 ",.02)
 ;;58016010918
 ;;9002226.02101,"1033,58016010920 ",.01)
 ;;58016010920
 ;;9002226.02101,"1033,58016010920 ",.02)
 ;;58016010920
 ;;9002226.02101,"1033,58016010921 ",.01)
 ;;58016010921
 ;;9002226.02101,"1033,58016010921 ",.02)
 ;;58016010921
 ;;9002226.02101,"1033,58016010924 ",.01)
 ;;58016010924
 ;;9002226.02101,"1033,58016010924 ",.02)
 ;;58016010924
 ;;9002226.02101,"1033,58016010928 ",.01)
 ;;58016010928
 ;;9002226.02101,"1033,58016010928 ",.02)
 ;;58016010928
 ;;9002226.02101,"1033,58016010930 ",.01)
 ;;58016010930
 ;;9002226.02101,"1033,58016010930 ",.02)
 ;;58016010930
 ;;9002226.02101,"1033,58016010940 ",.01)
 ;;58016010940
 ;;9002226.02101,"1033,58016010940 ",.02)
 ;;58016010940
 ;;9002226.02101,"1033,58016010950 ",.01)
 ;;58016010950
 ;;9002226.02101,"1033,58016010950 ",.02)
 ;;58016010950
 ;;9002226.02101,"1033,58016010960 ",.01)
 ;;58016010960
 ;;9002226.02101,"1033,58016010960 ",.02)
 ;;58016010960
 ;;9002226.02101,"1033,58016010973 ",.01)
 ;;58016010973
 ;;9002226.02101,"1033,58016010973 ",.02)
 ;;58016010973
 ;;9002226.02101,"1033,58016010980 ",.01)
 ;;58016010980
 ;;9002226.02101,"1033,58016010980 ",.02)
 ;;58016010980
 ;;9002226.02101,"1033,58016010989 ",.01)
 ;;58016010989
 ;;9002226.02101,"1033,58016010989 ",.02)
 ;;58016010989
 ;;9002226.02101,"1033,58016010990 ",.01)
 ;;58016010990
 ;;9002226.02101,"1033,58016010990 ",.02)
 ;;58016010990
 ;;9002226.02101,"1033,58016011900 ",.01)
 ;;58016011900
 ;;9002226.02101,"1033,58016011900 ",.02)
 ;;58016011900
 ;;9002226.02101,"1033,58016011901 ",.01)
 ;;58016011901
 ;;9002226.02101,"1033,58016011901 ",.02)
 ;;58016011901
 ;;9002226.02101,"1033,58016011902 ",.01)
 ;;58016011902
 ;;9002226.02101,"1033,58016011902 ",.02)
 ;;58016011902
 ;;9002226.02101,"1033,58016011903 ",.01)
 ;;58016011903
 ;;9002226.02101,"1033,58016011903 ",.02)
 ;;58016011903
 ;;9002226.02101,"1033,58016011904 ",.01)
 ;;58016011904
 ;;9002226.02101,"1033,58016011904 ",.02)
 ;;58016011904
 ;;9002226.02101,"1033,58016011907 ",.01)
 ;;58016011907
 ;;9002226.02101,"1033,58016011907 ",.02)
 ;;58016011907
 ;;9002226.02101,"1033,58016011908 ",.01)
 ;;58016011908
 ;;9002226.02101,"1033,58016011908 ",.02)
 ;;58016011908
 ;;9002226.02101,"1033,58016011909 ",.01)
 ;;58016011909
 ;;9002226.02101,"1033,58016011909 ",.02)
 ;;58016011909
 ;;9002226.02101,"1033,58016011910 ",.01)
 ;;58016011910
 ;;9002226.02101,"1033,58016011910 ",.02)
 ;;58016011910
 ;;9002226.02101,"1033,58016011912 ",.01)
 ;;58016011912
 ;;9002226.02101,"1033,58016011912 ",.02)
 ;;58016011912
 ;;9002226.02101,"1033,58016011914 ",.01)
 ;;58016011914
 ;;9002226.02101,"1033,58016011914 ",.02)
 ;;58016011914
 ;;9002226.02101,"1033,58016011915 ",.01)
 ;;58016011915
 ;;9002226.02101,"1033,58016011915 ",.02)
 ;;58016011915
 ;;9002226.02101,"1033,58016011916 ",.01)
 ;;58016011916
 ;;9002226.02101,"1033,58016011916 ",.02)
 ;;58016011916
 ;;9002226.02101,"1033,58016011918 ",.01)
 ;;58016011918
 ;;9002226.02101,"1033,58016011918 ",.02)
 ;;58016011918
 ;;9002226.02101,"1033,58016011920 ",.01)
 ;;58016011920
 ;;9002226.02101,"1033,58016011920 ",.02)
 ;;58016011920
 ;;9002226.02101,"1033,58016011921 ",.01)
 ;;58016011921
 ;;9002226.02101,"1033,58016011921 ",.02)
 ;;58016011921
 ;;9002226.02101,"1033,58016011924 ",.01)
 ;;58016011924
 ;;9002226.02101,"1033,58016011924 ",.02)
 ;;58016011924
 ;;9002226.02101,"1033,58016011925 ",.01)
 ;;58016011925
 ;;9002226.02101,"1033,58016011925 ",.02)
 ;;58016011925
 ;;9002226.02101,"1033,58016011926 ",.01)
 ;;58016011926
 ;;9002226.02101,"1033,58016011926 ",.02)
 ;;58016011926
 ;;9002226.02101,"1033,58016011927 ",.01)
 ;;58016011927
 ;;9002226.02101,"1033,58016011927 ",.02)
 ;;58016011927
 ;;9002226.02101,"1033,58016011928 ",.01)
 ;;58016011928
 ;;9002226.02101,"1033,58016011928 ",.02)
 ;;58016011928
 ;;9002226.02101,"1033,58016011930 ",.01)
 ;;58016011930
 ;;9002226.02101,"1033,58016011930 ",.02)
 ;;58016011930
 ;;9002226.02101,"1033,58016011932 ",.01)
 ;;58016011932
 ;;9002226.02101,"1033,58016011932 ",.02)
 ;;58016011932
 ;;9002226.02101,"1033,58016011935 ",.01)
 ;;58016011935
 ;;9002226.02101,"1033,58016011935 ",.02)
 ;;58016011935
 ;;9002226.02101,"1033,58016011936 ",.01)
 ;;58016011936
 ;;9002226.02101,"1033,58016011936 ",.02)
 ;;58016011936
 ;;9002226.02101,"1033,58016011940 ",.01)
 ;;58016011940
 ;;9002226.02101,"1033,58016011940 ",.02)
 ;;58016011940
 ;;9002226.02101,"1033,58016011942 ",.01)
 ;;58016011942
 ;;9002226.02101,"1033,58016011942 ",.02)
 ;;58016011942
 ;;9002226.02101,"1033,58016011944 ",.01)
 ;;58016011944
 ;;9002226.02101,"1033,58016011944 ",.02)
 ;;58016011944
 ;;9002226.02101,"1033,58016011945 ",.01)
 ;;58016011945
 ;;9002226.02101,"1033,58016011945 ",.02)
 ;;58016011945
 ;;9002226.02101,"1033,58016011948 ",.01)
 ;;58016011948
 ;;9002226.02101,"1033,58016011948 ",.02)
 ;;58016011948
 ;;9002226.02101,"1033,58016011950 ",.01)
 ;;58016011950
 ;;9002226.02101,"1033,58016011950 ",.02)
 ;;58016011950
 ;;9002226.02101,"1033,58016011956 ",.01)
 ;;58016011956
 ;;9002226.02101,"1033,58016011956 ",.02)
 ;;58016011956
 ;;9002226.02101,"1033,58016011960 ",.01)
 ;;58016011960
 ;;9002226.02101,"1033,58016011960 ",.02)
 ;;58016011960
 ;;9002226.02101,"1033,58016011970 ",.01)
 ;;58016011970
 ;;9002226.02101,"1033,58016011970 ",.02)
 ;;58016011970
 ;;9002226.02101,"1033,58016011972 ",.01)
 ;;58016011972
 ;;9002226.02101,"1033,58016011972 ",.02)
 ;;58016011972
 ;;9002226.02101,"1033,58016011973 ",.01)
 ;;58016011973
 ;;9002226.02101,"1033,58016011973 ",.02)
 ;;58016011973
 ;;9002226.02101,"1033,58016011975 ",.01)
 ;;58016011975
 ;;9002226.02101,"1033,58016011975 ",.02)
 ;;58016011975
 ;;9002226.02101,"1033,58016011976 ",.01)
 ;;58016011976
 ;;9002226.02101,"1033,58016011976 ",.02)
 ;;58016011976
 ;;9002226.02101,"1033,58016011980 ",.01)
 ;;58016011980
 ;;9002226.02101,"1033,58016011980 ",.02)
 ;;58016011980
 ;;9002226.02101,"1033,58016011984 ",.01)
 ;;58016011984
 ;;9002226.02101,"1033,58016011984 ",.02)
 ;;58016011984
 ;;9002226.02101,"1033,58016011989 ",.01)
 ;;58016011989
 ;;9002226.02101,"1033,58016011989 ",.02)
 ;;58016011989
 ;;9002226.02101,"1033,58016011990 ",.01)
 ;;58016011990
 ;;9002226.02101,"1033,58016011990 ",.02)
 ;;58016011990
 ;;9002226.02101,"1033,58016011992 ",.01)
 ;;58016011992
 ;;9002226.02101,"1033,58016011992 ",.02)
 ;;58016011992
 ;;9002226.02101,"1033,58016011996 ",.01)
 ;;58016011996
 ;;9002226.02101,"1033,58016011996 ",.02)
 ;;58016011996
 ;;9002226.02101,"1033,58016011997 ",.01)
 ;;58016011997
 ;;9002226.02101,"1033,58016011997 ",.02)
 ;;58016011997
 ;;9002226.02101,"1033,58016011999 ",.01)
 ;;58016011999
 ;;9002226.02101,"1033,58016011999 ",.02)
 ;;58016011999
 ;;9002226.02101,"1033,58016012100 ",.01)
 ;;58016012100
 ;;9002226.02101,"1033,58016012100 ",.02)
 ;;58016012100
 ;;9002226.02101,"1033,58016012110 ",.01)
 ;;58016012110
 ;;9002226.02101,"1033,58016012110 ",.02)
 ;;58016012110
 ;;9002226.02101,"1033,58016012112 ",.01)
 ;;58016012112
 ;;9002226.02101,"1033,58016012112 ",.02)
 ;;58016012112
 ;;9002226.02101,"1033,58016012114 ",.01)
 ;;58016012114
 ;;9002226.02101,"1033,58016012114 ",.02)
 ;;58016012114
 ;;9002226.02101,"1033,58016012115 ",.01)
 ;;58016012115
 ;;9002226.02101,"1033,58016012115 ",.02)
 ;;58016012115
 ;;9002226.02101,"1033,58016012118 ",.01)
 ;;58016012118
 ;;9002226.02101,"1033,58016012118 ",.02)
 ;;58016012118
 ;;9002226.02101,"1033,58016012120 ",.01)
 ;;58016012120
 ;;9002226.02101,"1033,58016012120 ",.02)
 ;;58016012120
 ;;9002226.02101,"1033,58016012124 ",.01)
 ;;58016012124
 ;;9002226.02101,"1033,58016012124 ",.02)
 ;;58016012124
 ;;9002226.02101,"1033,58016012128 ",.01)
 ;;58016012128
 ;;9002226.02101,"1033,58016012128 ",.02)
 ;;58016012128
 ;;9002226.02101,"1033,58016012130 ",.01)
 ;;58016012130
 ;;9002226.02101,"1033,58016012130 ",.02)
 ;;58016012130
 ;;9002226.02101,"1033,58016012140 ",.01)
 ;;58016012140
 ;;9002226.02101,"1033,58016012140 ",.02)
 ;;58016012140
 ;;9002226.02101,"1033,58016012200 ",.01)
 ;;58016012200
 ;;9002226.02101,"1033,58016012200 ",.02)
 ;;58016012200
 ;;9002226.02101,"1033,58016012201 ",.01)
 ;;58016012201
 ;;9002226.02101,"1033,58016012201 ",.02)
 ;;58016012201
 ;;9002226.02101,"1033,58016012202 ",.01)
 ;;58016012202
 ;;9002226.02101,"1033,58016012202 ",.02)
 ;;58016012202
 ;;9002226.02101,"1033,58016012203 ",.01)
 ;;58016012203
 ;;9002226.02101,"1033,58016012203 ",.02)
 ;;58016012203
 ;;9002226.02101,"1033,58016012204 ",.01)
 ;;58016012204
 ;;9002226.02101,"1033,58016012204 ",.02)
 ;;58016012204
 ;;9002226.02101,"1033,58016012205 ",.01)
 ;;58016012205
 ;;9002226.02101,"1033,58016012205 ",.02)
 ;;58016012205
 ;;9002226.02101,"1033,58016012206 ",.01)
 ;;58016012206
 ;;9002226.02101,"1033,58016012206 ",.02)
 ;;58016012206
 ;;9002226.02101,"1033,58016012207 ",.01)
 ;;58016012207
 ;;9002226.02101,"1033,58016012207 ",.02)
 ;;58016012207
 ;;9002226.02101,"1033,58016012208 ",.01)
 ;;58016012208