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

BGP82Z27.m

Go to the documentation of this file.
BGP82Z27 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
 ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
 ;
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,"619,16590-0113-10 ",.02)
 ;;16590-0113-10
 ;;9002226.02101,"619,16590-0113-15 ",.01)
 ;;16590-0113-15
 ;;9002226.02101,"619,16590-0113-15 ",.02)
 ;;16590-0113-15
 ;;9002226.02101,"619,16590-0113-20 ",.01)
 ;;16590-0113-20
 ;;9002226.02101,"619,16590-0113-20 ",.02)
 ;;16590-0113-20
 ;;9002226.02101,"619,16590-0113-30 ",.01)
 ;;16590-0113-30
 ;;9002226.02101,"619,16590-0113-30 ",.02)
 ;;16590-0113-30
 ;;9002226.02101,"619,16590-0113-40 ",.01)
 ;;16590-0113-40
 ;;9002226.02101,"619,16590-0113-40 ",.02)
 ;;16590-0113-40
 ;;9002226.02101,"619,16590-0113-45 ",.01)
 ;;16590-0113-45
 ;;9002226.02101,"619,16590-0113-45 ",.02)
 ;;16590-0113-45
 ;;9002226.02101,"619,16590-0113-50 ",.01)
 ;;16590-0113-50
 ;;9002226.02101,"619,16590-0113-50 ",.02)
 ;;16590-0113-50
 ;;9002226.02101,"619,16590-0113-56 ",.01)
 ;;16590-0113-56
 ;;9002226.02101,"619,16590-0113-56 ",.02)
 ;;16590-0113-56
 ;;9002226.02101,"619,16590-0113-60 ",.01)
 ;;16590-0113-60
 ;;9002226.02101,"619,16590-0113-60 ",.02)
 ;;16590-0113-60
 ;;9002226.02101,"619,16590-0113-62 ",.01)
 ;;16590-0113-62
 ;;9002226.02101,"619,16590-0113-62 ",.02)
 ;;16590-0113-62
 ;;9002226.02101,"619,16590-0113-71 ",.01)
 ;;16590-0113-71
 ;;9002226.02101,"619,16590-0113-71 ",.02)
 ;;16590-0113-71
 ;;9002226.02101,"619,16590-0113-72 ",.01)
 ;;16590-0113-72
 ;;9002226.02101,"619,16590-0113-72 ",.02)
 ;;16590-0113-72
 ;;9002226.02101,"619,16590-0113-73 ",.01)
 ;;16590-0113-73
 ;;9002226.02101,"619,16590-0113-73 ",.02)
 ;;16590-0113-73
 ;;9002226.02101,"619,16590-0113-75 ",.01)
 ;;16590-0113-75
 ;;9002226.02101,"619,16590-0113-75 ",.02)
 ;;16590-0113-75
 ;;9002226.02101,"619,16590-0113-82 ",.01)
 ;;16590-0113-82
 ;;9002226.02101,"619,16590-0113-82 ",.02)
 ;;16590-0113-82
 ;;9002226.02101,"619,16590-0113-86 ",.01)
 ;;16590-0113-86
 ;;9002226.02101,"619,16590-0113-86 ",.02)
 ;;16590-0113-86
 ;;9002226.02101,"619,16590-0113-90 ",.01)
 ;;16590-0113-90
 ;;9002226.02101,"619,16590-0113-90 ",.02)
 ;;16590-0113-90
 ;;9002226.02101,"619,16590-0114-28 ",.01)
 ;;16590-0114-28
 ;;9002226.02101,"619,16590-0114-28 ",.02)
 ;;16590-0114-28
 ;;9002226.02101,"619,16590-0114-30 ",.01)
 ;;16590-0114-30
 ;;9002226.02101,"619,16590-0114-30 ",.02)
 ;;16590-0114-30
 ;;9002226.02101,"619,16590-0114-40 ",.01)
 ;;16590-0114-40
 ;;9002226.02101,"619,16590-0114-40 ",.02)
 ;;16590-0114-40
 ;;9002226.02101,"619,16590-0114-45 ",.01)
 ;;16590-0114-45
 ;;9002226.02101,"619,16590-0114-45 ",.02)
 ;;16590-0114-45
 ;;9002226.02101,"619,16590-0114-60 ",.01)
 ;;16590-0114-60
 ;;9002226.02101,"619,16590-0114-60 ",.02)
 ;;16590-0114-60
 ;;9002226.02101,"619,16590-0114-71 ",.01)
 ;;16590-0114-71
 ;;9002226.02101,"619,16590-0114-71 ",.02)
 ;;16590-0114-71
 ;;9002226.02101,"619,16590-0114-72 ",.01)
 ;;16590-0114-72
 ;;9002226.02101,"619,16590-0114-72 ",.02)
 ;;16590-0114-72
 ;;9002226.02101,"619,16590-0114-82 ",.01)
 ;;16590-0114-82
 ;;9002226.02101,"619,16590-0114-82 ",.02)
 ;;16590-0114-82
 ;;9002226.02101,"619,16590-0114-90 ",.01)
 ;;16590-0114-90
 ;;9002226.02101,"619,16590-0114-90 ",.02)
 ;;16590-0114-90
 ;;9002226.02101,"619,16590-0115-28 ",.01)
 ;;16590-0115-28
 ;;9002226.02101,"619,16590-0115-28 ",.02)
 ;;16590-0115-28
 ;;9002226.02101,"619,16590-0115-30 ",.01)
 ;;16590-0115-30
 ;;9002226.02101,"619,16590-0115-30 ",.02)
 ;;16590-0115-30
 ;;9002226.02101,"619,16590-0115-45 ",.01)
 ;;16590-0115-45
 ;;9002226.02101,"619,16590-0115-45 ",.02)
 ;;16590-0115-45
 ;;9002226.02101,"619,16590-0115-56 ",.01)
 ;;16590-0115-56
 ;;9002226.02101,"619,16590-0115-56 ",.02)
 ;;16590-0115-56
 ;;9002226.02101,"619,16590-0115-60 ",.01)
 ;;16590-0115-60
 ;;9002226.02101,"619,16590-0115-60 ",.02)
 ;;16590-0115-60
 ;;9002226.02101,"619,16590-0115-71 ",.01)
 ;;16590-0115-71
 ;;9002226.02101,"619,16590-0115-71 ",.02)
 ;;16590-0115-71
 ;;9002226.02101,"619,16590-0115-90 ",.01)
 ;;16590-0115-90
 ;;9002226.02101,"619,16590-0115-90 ",.02)
 ;;16590-0115-90
 ;;9002226.02101,"619,16590-0116-20 ",.01)
 ;;16590-0116-20
 ;;9002226.02101,"619,16590-0116-20 ",.02)
 ;;16590-0116-20
 ;;9002226.02101,"619,16590-0116-30 ",.01)
 ;;16590-0116-30
 ;;9002226.02101,"619,16590-0116-30 ",.02)
 ;;16590-0116-30
 ;;9002226.02101,"619,16590-0116-40 ",.01)
 ;;16590-0116-40
 ;;9002226.02101,"619,16590-0116-40 ",.02)
 ;;16590-0116-40
 ;;9002226.02101,"619,16590-0116-60 ",.01)
 ;;16590-0116-60
 ;;9002226.02101,"619,16590-0116-60 ",.02)
 ;;16590-0116-60
 ;;9002226.02101,"619,16590-0116-72 ",.01)
 ;;16590-0116-72
 ;;9002226.02101,"619,16590-0116-72 ",.02)
 ;;16590-0116-72
 ;;9002226.02101,"619,16590-0116-90 ",.01)
 ;;16590-0116-90
 ;;9002226.02101,"619,16590-0116-90 ",.02)
 ;;16590-0116-90
 ;;9002226.02101,"619,16590-0117-10 ",.01)
 ;;16590-0117-10
 ;;9002226.02101,"619,16590-0117-10 ",.02)
 ;;16590-0117-10
 ;;9002226.02101,"619,16590-0117-30 ",.01)
 ;;16590-0117-30
 ;;9002226.02101,"619,16590-0117-30 ",.02)
 ;;16590-0117-30
 ;;9002226.02101,"619,16590-0117-40 ",.01)
 ;;16590-0117-40
 ;;9002226.02101,"619,16590-0117-40 ",.02)
 ;;16590-0117-40
 ;;9002226.02101,"619,16590-0117-60 ",.01)
 ;;16590-0117-60
 ;;9002226.02101,"619,16590-0117-60 ",.02)
 ;;16590-0117-60
 ;;9002226.02101,"619,16590-0117-72 ",.01)
 ;;16590-0117-72
 ;;9002226.02101,"619,16590-0117-72 ",.02)
 ;;16590-0117-72
 ;;9002226.02101,"619,16590-0117-90 ",.01)
 ;;16590-0117-90
 ;;9002226.02101,"619,16590-0117-90 ",.02)
 ;;16590-0117-90
 ;;9002226.02101,"619,16590-0118-30 ",.01)
 ;;16590-0118-30
 ;;9002226.02101,"619,16590-0118-30 ",.02)
 ;;16590-0118-30
 ;;9002226.02101,"619,16590-0118-56 ",.01)
 ;;16590-0118-56
 ;;9002226.02101,"619,16590-0118-56 ",.02)
 ;;16590-0118-56
 ;;9002226.02101,"619,16590-0118-60 ",.01)
 ;;16590-0118-60
 ;;9002226.02101,"619,16590-0118-60 ",.02)
 ;;16590-0118-60
 ;;9002226.02101,"619,16590-0118-72 ",.01)
 ;;16590-0118-72
 ;;9002226.02101,"619,16590-0118-72 ",.02)
 ;;16590-0118-72
 ;;9002226.02101,"619,16590-0118-83 ",.01)
 ;;16590-0118-83
 ;;9002226.02101,"619,16590-0118-83 ",.02)
 ;;16590-0118-83
 ;;9002226.02101,"619,16590-0118-90 ",.01)
 ;;16590-0118-90
 ;;9002226.02101,"619,16590-0118-90 ",.02)
 ;;16590-0118-90
 ;;9002226.02101,"619,16590-0119-30 ",.01)
 ;;16590-0119-30
 ;;9002226.02101,"619,16590-0119-30 ",.02)
 ;;16590-0119-30
 ;;9002226.02101,"619,16590-0119-45 ",.01)
 ;;16590-0119-45
 ;;9002226.02101,"619,16590-0119-45 ",.02)
 ;;16590-0119-45
 ;;9002226.02101,"619,16590-0119-56 ",.01)
 ;;16590-0119-56
 ;;9002226.02101,"619,16590-0119-56 ",.02)
 ;;16590-0119-56
 ;;9002226.02101,"619,16590-0119-60 ",.01)
 ;;16590-0119-60
 ;;9002226.02101,"619,16590-0119-60 ",.02)
 ;;16590-0119-60
 ;;9002226.02101,"619,16590-0119-71 ",.01)
 ;;16590-0119-71
 ;;9002226.02101,"619,16590-0119-71 ",.02)
 ;;16590-0119-71
 ;;9002226.02101,"619,16590-0119-83 ",.01)
 ;;16590-0119-83
 ;;9002226.02101,"619,16590-0119-83 ",.02)
 ;;16590-0119-83
 ;;9002226.02101,"619,16590-0119-90 ",.01)
 ;;16590-0119-90
 ;;9002226.02101,"619,16590-0119-90 ",.02)
 ;;16590-0119-90
 ;;9002226.02101,"619,16590-0120-30 ",.01)
 ;;16590-0120-30
 ;;9002226.02101,"619,16590-0120-30 ",.02)
 ;;16590-0120-30
 ;;9002226.02101,"619,16590-0120-50 ",.01)
 ;;16590-0120-50
 ;;9002226.02101,"619,16590-0120-50 ",.02)
 ;;16590-0120-50
 ;;9002226.02101,"619,16590-0120-60 ",.01)
 ;;16590-0120-60
 ;;9002226.02101,"619,16590-0120-60 ",.02)
 ;;16590-0120-60
 ;;9002226.02101,"619,16590-0120-90 ",.01)
 ;;16590-0120-90
 ;;9002226.02101,"619,16590-0120-90 ",.02)
 ;;16590-0120-90
 ;;9002226.02101,"619,16590-0229-10 ",.01)
 ;;16590-0229-10
 ;;9002226.02101,"619,16590-0229-10 ",.02)
 ;;16590-0229-10
 ;;9002226.02101,"619,16590-0229-15 ",.01)
 ;;16590-0229-15
 ;;9002226.02101,"619,16590-0229-15 ",.02)
 ;;16590-0229-15
 ;;9002226.02101,"619,16590-0229-20 ",.01)
 ;;16590-0229-20
 ;;9002226.02101,"619,16590-0229-20 ",.02)
 ;;16590-0229-20
 ;;9002226.02101,"619,16590-0229-28 ",.01)
 ;;16590-0229-28
 ;;9002226.02101,"619,16590-0229-28 ",.02)
 ;;16590-0229-28
 ;;9002226.02101,"619,16590-0229-30 ",.01)
 ;;16590-0229-30
 ;;9002226.02101,"619,16590-0229-30 ",.02)
 ;;16590-0229-30
 ;;9002226.02101,"619,16590-0229-40 ",.01)
 ;;16590-0229-40
 ;;9002226.02101,"619,16590-0229-40 ",.02)
 ;;16590-0229-40
 ;;9002226.02101,"619,16590-0229-45 ",.01)
 ;;16590-0229-45
 ;;9002226.02101,"619,16590-0229-45 ",.02)
 ;;16590-0229-45
 ;;9002226.02101,"619,16590-0229-50 ",.01)
 ;;16590-0229-50
 ;;9002226.02101,"619,16590-0229-50 ",.02)
 ;;16590-0229-50
 ;;9002226.02101,"619,16590-0229-56 ",.01)
 ;;16590-0229-56
 ;;9002226.02101,"619,16590-0229-56 ",.02)
 ;;16590-0229-56
 ;;9002226.02101,"619,16590-0229-60 ",.01)
 ;;16590-0229-60
 ;;9002226.02101,"619,16590-0229-60 ",.02)
 ;;16590-0229-60
 ;;9002226.02101,"619,16590-0229-62 ",.01)
 ;;16590-0229-62
 ;;9002226.02101,"619,16590-0229-62 ",.02)
 ;;16590-0229-62
 ;;9002226.02101,"619,16590-0229-71 ",.01)
 ;;16590-0229-71
 ;;9002226.02101,"619,16590-0229-71 ",.02)
 ;;16590-0229-71
 ;;9002226.02101,"619,16590-0229-72 ",.01)
 ;;16590-0229-72
 ;;9002226.02101,"619,16590-0229-72 ",.02)
 ;;16590-0229-72
 ;;9002226.02101,"619,16590-0229-73 ",.01)
 ;;16590-0229-73
 ;;9002226.02101,"619,16590-0229-73 ",.02)
 ;;16590-0229-73
 ;;9002226.02101,"619,16590-0229-75 ",.01)
 ;;16590-0229-75
 ;;9002226.02101,"619,16590-0229-75 ",.02)
 ;;16590-0229-75
 ;;9002226.02101,"619,16590-0229-82 ",.01)
 ;;16590-0229-82
 ;;9002226.02101,"619,16590-0229-82 ",.02)
 ;;16590-0229-82
 ;;9002226.02101,"619,16590-0229-83 ",.01)
 ;;16590-0229-83
 ;;9002226.02101,"619,16590-0229-83 ",.02)
 ;;16590-0229-83
 ;;9002226.02101,"619,16590-0229-84 ",.01)
 ;;16590-0229-84
 ;;9002226.02101,"619,16590-0229-84 ",.02)
 ;;16590-0229-84
 ;;9002226.02101,"619,16590-0229-86 ",.01)
 ;;16590-0229-86
 ;;9002226.02101,"619,16590-0229-86 ",.02)
 ;;16590-0229-86
 ;;9002226.02101,"619,16590-0229-90 ",.01)
 ;;16590-0229-90
 ;;9002226.02101,"619,16590-0229-90 ",.02)
 ;;16590-0229-90
 ;;9002226.02101,"619,16590-0230-28 ",.01)
 ;;16590-0230-28
 ;;9002226.02101,"619,16590-0230-28 ",.02)
 ;;16590-0230-28
 ;;9002226.02101,"619,16590-0230-30 ",.01)
 ;;16590-0230-30
 ;;9002226.02101,"619,16590-0230-30 ",.02)
 ;;16590-0230-30
 ;;9002226.02101,"619,16590-0230-40 ",.01)
 ;;16590-0230-40
 ;;9002226.02101,"619,16590-0230-40 ",.02)
 ;;16590-0230-40
 ;;9002226.02101,"619,16590-0230-50 ",.01)
 ;;16590-0230-50
 ;;9002226.02101,"619,16590-0230-50 ",.02)
 ;;16590-0230-50
 ;;9002226.02101,"619,16590-0230-60 ",.01)
 ;;16590-0230-60
 ;;9002226.02101,"619,16590-0230-60 ",.02)
 ;;16590-0230-60
 ;;9002226.02101,"619,16590-0230-62 ",.01)
 ;;16590-0230-62
 ;;9002226.02101,"619,16590-0230-62 ",.02)
 ;;16590-0230-62
 ;;9002226.02101,"619,16590-0230-71 ",.01)
 ;;16590-0230-71
 ;;9002226.02101,"619,16590-0230-71 ",.02)
 ;;16590-0230-71
 ;;9002226.02101,"619,16590-0230-72 ",.01)
 ;;16590-0230-72
 ;;9002226.02101,"619,16590-0230-72 ",.02)
 ;;16590-0230-72
 ;;9002226.02101,"619,16590-0230-73 ",.01)
 ;;16590-0230-73
 ;;9002226.02101,"619,16590-0230-73 ",.02)
 ;;16590-0230-73
 ;;9002226.02101,"619,16590-0230-82 ",.01)
 ;;16590-0230-82
 ;;9002226.02101,"619,16590-0230-82 ",.02)
 ;;16590-0230-82
 ;;9002226.02101,"619,16590-0230-90 ",.01)
 ;;16590-0230-90
 ;;9002226.02101,"619,16590-0230-90 ",.02)
 ;;16590-0230-90
 ;;9002226.02101,"619,16590-0244-30 ",.01)
 ;;16590-0244-30
 ;;9002226.02101,"619,16590-0244-30 ",.02)
 ;;16590-0244-30
 ;;9002226.02101,"619,16590-0253-30 ",.01)
 ;;16590-0253-30
 ;;9002226.02101,"619,16590-0253-30 ",.02)
 ;;16590-0253-30
 ;;9002226.02101,"619,16590-0255-30 ",.01)
 ;;16590-0255-30
 ;;9002226.02101,"619,16590-0255-30 ",.02)
 ;;16590-0255-30
 ;;9002226.02101,"619,16590-0276-30 ",.01)
 ;;16590-0276-30