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

BGP82Z28.m

Go to the documentation of this file.
BGP82Z28 ; 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-0276-30 ",.02)
 ;;16590-0276-30
 ;;9002226.02101,"619,16590-0276-40 ",.01)
 ;;16590-0276-40
 ;;9002226.02101,"619,16590-0276-40 ",.02)
 ;;16590-0276-40
 ;;9002226.02101,"619,16590-0289-60 ",.01)
 ;;16590-0289-60
 ;;9002226.02101,"619,16590-0289-60 ",.02)
 ;;16590-0289-60
 ;;9002226.02101,"619,16590-0296-12 ",.01)
 ;;16590-0296-12
 ;;9002226.02101,"619,16590-0296-12 ",.02)
 ;;16590-0296-12
 ;;9002226.02101,"619,16590-0296-15 ",.01)
 ;;16590-0296-15
 ;;9002226.02101,"619,16590-0296-15 ",.02)
 ;;16590-0296-15
 ;;9002226.02101,"619,16590-0296-20 ",.01)
 ;;16590-0296-20
 ;;9002226.02101,"619,16590-0296-20 ",.02)
 ;;16590-0296-20
 ;;9002226.02101,"619,16590-0296-30 ",.01)
 ;;16590-0296-30
 ;;9002226.02101,"619,16590-0296-30 ",.02)
 ;;16590-0296-30
 ;;9002226.02101,"619,16590-0296-40 ",.01)
 ;;16590-0296-40
 ;;9002226.02101,"619,16590-0296-40 ",.02)
 ;;16590-0296-40
 ;;9002226.02101,"619,16590-0296-60 ",.01)
 ;;16590-0296-60
 ;;9002226.02101,"619,16590-0296-60 ",.02)
 ;;16590-0296-60
 ;;9002226.02101,"619,16590-0296-62 ",.01)
 ;;16590-0296-62
 ;;9002226.02101,"619,16590-0296-62 ",.02)
 ;;16590-0296-62
 ;;9002226.02101,"619,16590-0296-90 ",.01)
 ;;16590-0296-90
 ;;9002226.02101,"619,16590-0296-90 ",.02)
 ;;16590-0296-90
 ;;9002226.02101,"619,16590-0361-04 ",.01)
 ;;16590-0361-04
 ;;9002226.02101,"619,16590-0361-04 ",.02)
 ;;16590-0361-04
 ;;9002226.02101,"619,16590-0494-30 ",.01)
 ;;16590-0494-30
 ;;9002226.02101,"619,16590-0494-30 ",.02)
 ;;16590-0494-30
 ;;9002226.02101,"619,16590-0494-40 ",.01)
 ;;16590-0494-40
 ;;9002226.02101,"619,16590-0494-40 ",.02)
 ;;16590-0494-40
 ;;9002226.02101,"619,16590-0494-60 ",.01)
 ;;16590-0494-60
 ;;9002226.02101,"619,16590-0494-60 ",.02)
 ;;16590-0494-60
 ;;9002226.02101,"619,16590-0494-72 ",.01)
 ;;16590-0494-72
 ;;9002226.02101,"619,16590-0494-72 ",.02)
 ;;16590-0494-72
 ;;9002226.02101,"619,16590-0494-90 ",.01)
 ;;16590-0494-90
 ;;9002226.02101,"619,16590-0494-90 ",.02)
 ;;16590-0494-90
 ;;9002226.02101,"619,16590-0556-30 ",.01)
 ;;16590-0556-30
 ;;9002226.02101,"619,16590-0556-30 ",.02)
 ;;16590-0556-30
 ;;9002226.02101,"619,16590-0556-40 ",.01)
 ;;16590-0556-40
 ;;9002226.02101,"619,16590-0556-40 ",.02)
 ;;16590-0556-40
 ;;9002226.02101,"619,16590-0556-60 ",.01)
 ;;16590-0556-60
 ;;9002226.02101,"619,16590-0556-60 ",.02)
 ;;16590-0556-60
 ;;9002226.02101,"619,16590-0556-72 ",.01)
 ;;16590-0556-72
 ;;9002226.02101,"619,16590-0556-72 ",.02)
 ;;16590-0556-72
 ;;9002226.02101,"619,16590-0556-90 ",.01)
 ;;16590-0556-90
 ;;9002226.02101,"619,16590-0556-90 ",.02)
 ;;16590-0556-90
 ;;9002226.02101,"619,16590-0593-30 ",.01)
 ;;16590-0593-30
 ;;9002226.02101,"619,16590-0593-30 ",.02)
 ;;16590-0593-30
 ;;9002226.02101,"619,16590-0593-60 ",.01)
 ;;16590-0593-60
 ;;9002226.02101,"619,16590-0593-60 ",.02)
 ;;16590-0593-60
 ;;9002226.02101,"619,16590-0593-90 ",.01)
 ;;16590-0593-90
 ;;9002226.02101,"619,16590-0593-90 ",.02)
 ;;16590-0593-90
 ;;9002226.02101,"619,16590-0594-30 ",.01)
 ;;16590-0594-30
 ;;9002226.02101,"619,16590-0594-30 ",.02)
 ;;16590-0594-30
 ;;9002226.02101,"619,16590-0594-60 ",.01)
 ;;16590-0594-60
 ;;9002226.02101,"619,16590-0594-60 ",.02)
 ;;16590-0594-60
 ;;9002226.02101,"619,16590-0594-90 ",.01)
 ;;16590-0594-90
 ;;9002226.02101,"619,16590-0594-90 ",.02)
 ;;16590-0594-90
 ;;9002226.02101,"619,16590-0597-30 ",.01)
 ;;16590-0597-30
 ;;9002226.02101,"619,16590-0597-30 ",.02)
 ;;16590-0597-30
 ;;9002226.02101,"619,16590-0597-60 ",.01)
 ;;16590-0597-60
 ;;9002226.02101,"619,16590-0597-60 ",.02)
 ;;16590-0597-60
 ;;9002226.02101,"619,16590-0597-90 ",.01)
 ;;16590-0597-90
 ;;9002226.02101,"619,16590-0597-90 ",.02)
 ;;16590-0597-90
 ;;9002226.02101,"619,16590-0598-30 ",.01)
 ;;16590-0598-30
 ;;9002226.02101,"619,16590-0598-30 ",.02)
 ;;16590-0598-30
 ;;9002226.02101,"619,16590-0598-56 ",.01)
 ;;16590-0598-56
 ;;9002226.02101,"619,16590-0598-56 ",.02)
 ;;16590-0598-56
 ;;9002226.02101,"619,16590-0598-60 ",.01)
 ;;16590-0598-60
 ;;9002226.02101,"619,16590-0598-60 ",.02)
 ;;16590-0598-60
 ;;9002226.02101,"619,16590-0598-90 ",.01)
 ;;16590-0598-90
 ;;9002226.02101,"619,16590-0598-90 ",.02)
 ;;16590-0598-90
 ;;9002226.02101,"619,16590-0606-30 ",.01)
 ;;16590-0606-30
 ;;9002226.02101,"619,16590-0606-30 ",.02)
 ;;16590-0606-30
 ;;9002226.02101,"619,16590-0606-60 ",.01)
 ;;16590-0606-60
 ;;9002226.02101,"619,16590-0606-60 ",.02)
 ;;16590-0606-60
 ;;9002226.02101,"619,16590-0606-90 ",.01)
 ;;16590-0606-90
 ;;9002226.02101,"619,16590-0606-90 ",.02)
 ;;16590-0606-90
 ;;9002226.02101,"619,16590-0609-30 ",.01)
 ;;16590-0609-30
 ;;9002226.02101,"619,16590-0609-30 ",.02)
 ;;16590-0609-30
 ;;9002226.02101,"619,16590-0609-60 ",.01)
 ;;16590-0609-60
 ;;9002226.02101,"619,16590-0609-60 ",.02)
 ;;16590-0609-60
 ;;9002226.02101,"619,16590-0609-90 ",.01)
 ;;16590-0609-90
 ;;9002226.02101,"619,16590-0609-90 ",.02)
 ;;16590-0609-90
 ;;9002226.02101,"619,16590-0616-30 ",.01)
 ;;16590-0616-30
 ;;9002226.02101,"619,16590-0616-30 ",.02)
 ;;16590-0616-30
 ;;9002226.02101,"619,16590-0616-60 ",.01)
 ;;16590-0616-60
 ;;9002226.02101,"619,16590-0616-60 ",.02)
 ;;16590-0616-60
 ;;9002226.02101,"619,16590-0616-62 ",.01)
 ;;16590-0616-62
 ;;9002226.02101,"619,16590-0616-62 ",.02)
 ;;16590-0616-62
 ;;9002226.02101,"619,16590-0616-72 ",.01)
 ;;16590-0616-72
 ;;9002226.02101,"619,16590-0616-72 ",.02)
 ;;16590-0616-72
 ;;9002226.02101,"619,16590-0616-73 ",.01)
 ;;16590-0616-73
 ;;9002226.02101,"619,16590-0616-73 ",.02)
 ;;16590-0616-73
 ;;9002226.02101,"619,16590-0616-90 ",.01)
 ;;16590-0616-90
 ;;9002226.02101,"619,16590-0616-90 ",.02)
 ;;16590-0616-90
 ;;9002226.02101,"619,16590-0617-30 ",.01)
 ;;16590-0617-30
 ;;9002226.02101,"619,16590-0617-30 ",.02)
 ;;16590-0617-30
 ;;9002226.02101,"619,16590-0617-60 ",.01)
 ;;16590-0617-60
 ;;9002226.02101,"619,16590-0617-60 ",.02)
 ;;16590-0617-60
 ;;9002226.02101,"619,16590-0617-86 ",.01)
 ;;16590-0617-86
 ;;9002226.02101,"619,16590-0617-86 ",.02)
 ;;16590-0617-86
 ;;9002226.02101,"619,16590-0617-90 ",.01)
 ;;16590-0617-90
 ;;9002226.02101,"619,16590-0617-90 ",.02)
 ;;16590-0617-90
 ;;9002226.02101,"619,16590-0618-30 ",.01)
 ;;16590-0618-30
 ;;9002226.02101,"619,16590-0618-30 ",.02)
 ;;16590-0618-30
 ;;9002226.02101,"619,16590-0618-56 ",.01)
 ;;16590-0618-56
 ;;9002226.02101,"619,16590-0618-56 ",.02)
 ;;16590-0618-56
 ;;9002226.02101,"619,16590-0618-60 ",.01)
 ;;16590-0618-60
 ;;9002226.02101,"619,16590-0618-60 ",.02)
 ;;16590-0618-60
 ;;9002226.02101,"619,16590-0618-62 ",.01)
 ;;16590-0618-62
 ;;9002226.02101,"619,16590-0618-62 ",.02)
 ;;16590-0618-62
 ;;9002226.02101,"619,16590-0618-72 ",.01)
 ;;16590-0618-72
 ;;9002226.02101,"619,16590-0618-72 ",.02)
 ;;16590-0618-72
 ;;9002226.02101,"619,16590-0618-73 ",.01)
 ;;16590-0618-73
 ;;9002226.02101,"619,16590-0618-73 ",.02)
 ;;16590-0618-73
 ;;9002226.02101,"619,16590-0618-82 ",.01)
 ;;16590-0618-82
 ;;9002226.02101,"619,16590-0618-82 ",.02)
 ;;16590-0618-82
 ;;9002226.02101,"619,16590-0618-90 ",.01)
 ;;16590-0618-90
 ;;9002226.02101,"619,16590-0618-90 ",.02)
 ;;16590-0618-90
 ;;9002226.02101,"619,16590-0619-30 ",.01)
 ;;16590-0619-30
 ;;9002226.02101,"619,16590-0619-30 ",.02)
 ;;16590-0619-30
 ;;9002226.02101,"619,16590-0619-60 ",.01)
 ;;16590-0619-60
 ;;9002226.02101,"619,16590-0619-60 ",.02)
 ;;16590-0619-60
 ;;9002226.02101,"619,16590-0619-62 ",.01)
 ;;16590-0619-62
 ;;9002226.02101,"619,16590-0619-62 ",.02)
 ;;16590-0619-62
 ;;9002226.02101,"619,16590-0619-90 ",.01)
 ;;16590-0619-90
 ;;9002226.02101,"619,16590-0619-90 ",.02)
 ;;16590-0619-90
 ;;9002226.02101,"619,16590-0620-30 ",.01)
 ;;16590-0620-30
 ;;9002226.02101,"619,16590-0620-30 ",.02)
 ;;16590-0620-30
 ;;9002226.02101,"619,16590-0620-56 ",.01)
 ;;16590-0620-56
 ;;9002226.02101,"619,16590-0620-56 ",.02)
 ;;16590-0620-56
 ;;9002226.02101,"619,16590-0620-60 ",.01)
 ;;16590-0620-60
 ;;9002226.02101,"619,16590-0620-60 ",.02)
 ;;16590-0620-60
 ;;9002226.02101,"619,16590-0620-62 ",.01)
 ;;16590-0620-62
 ;;9002226.02101,"619,16590-0620-62 ",.02)
 ;;16590-0620-62
 ;;9002226.02101,"619,16590-0620-72 ",.01)
 ;;16590-0620-72
 ;;9002226.02101,"619,16590-0620-72 ",.02)
 ;;16590-0620-72
 ;;9002226.02101,"619,16590-0620-73 ",.01)
 ;;16590-0620-73
 ;;9002226.02101,"619,16590-0620-73 ",.02)
 ;;16590-0620-73
 ;;9002226.02101,"619,16590-0620-83 ",.01)
 ;;16590-0620-83
 ;;9002226.02101,"619,16590-0620-83 ",.02)
 ;;16590-0620-83
 ;;9002226.02101,"619,16590-0620-90 ",.01)
 ;;16590-0620-90
 ;;9002226.02101,"619,16590-0620-90 ",.02)
 ;;16590-0620-90
 ;;9002226.02101,"619,16590-0636-62 ",.01)
 ;;16590-0636-62
 ;;9002226.02101,"619,16590-0636-62 ",.02)
 ;;16590-0636-62
 ;;9002226.02101,"619,16590-0653-30 ",.01)
 ;;16590-0653-30
 ;;9002226.02101,"619,16590-0653-30 ",.02)
 ;;16590-0653-30
 ;;9002226.02101,"619,16590-0653-60 ",.01)
 ;;16590-0653-60
 ;;9002226.02101,"619,16590-0653-60 ",.02)
 ;;16590-0653-60
 ;;9002226.02101,"619,16590-0653-90 ",.01)
 ;;16590-0653-90
 ;;9002226.02101,"619,16590-0653-90 ",.02)
 ;;16590-0653-90
 ;;9002226.02101,"619,16590-0659-30 ",.01)
 ;;16590-0659-30
 ;;9002226.02101,"619,16590-0659-30 ",.02)
 ;;16590-0659-30
 ;;9002226.02101,"619,16590-0659-56 ",.01)
 ;;16590-0659-56
 ;;9002226.02101,"619,16590-0659-56 ",.02)
 ;;16590-0659-56
 ;;9002226.02101,"619,16590-0659-60 ",.01)
 ;;16590-0659-60
 ;;9002226.02101,"619,16590-0659-60 ",.02)
 ;;16590-0659-60
 ;;9002226.02101,"619,16590-0659-62 ",.01)
 ;;16590-0659-62
 ;;9002226.02101,"619,16590-0659-62 ",.02)
 ;;16590-0659-62
 ;;9002226.02101,"619,16590-0659-71 ",.01)
 ;;16590-0659-71
 ;;9002226.02101,"619,16590-0659-71 ",.02)
 ;;16590-0659-71
 ;;9002226.02101,"619,16590-0659-72 ",.01)
 ;;16590-0659-72
 ;;9002226.02101,"619,16590-0659-72 ",.02)
 ;;16590-0659-72
 ;;9002226.02101,"619,16590-0659-73 ",.01)
 ;;16590-0659-73
 ;;9002226.02101,"619,16590-0659-73 ",.02)
 ;;16590-0659-73
 ;;9002226.02101,"619,16590-0659-82 ",.01)
 ;;16590-0659-82
 ;;9002226.02101,"619,16590-0659-82 ",.02)
 ;;16590-0659-82
 ;;9002226.02101,"619,16590-0659-83 ",.01)
 ;;16590-0659-83
 ;;9002226.02101,"619,16590-0659-83 ",.02)
 ;;16590-0659-83
 ;;9002226.02101,"619,16590-0659-90 ",.01)
 ;;16590-0659-90
 ;;9002226.02101,"619,16590-0659-90 ",.02)
 ;;16590-0659-90
 ;;9002226.02101,"619,16590-0660-30 ",.01)
 ;;16590-0660-30
 ;;9002226.02101,"619,16590-0660-30 ",.02)
 ;;16590-0660-30
 ;;9002226.02101,"619,16590-0660-56 ",.01)
 ;;16590-0660-56
 ;;9002226.02101,"619,16590-0660-56 ",.02)
 ;;16590-0660-56
 ;;9002226.02101,"619,16590-0660-60 ",.01)
 ;;16590-0660-60
 ;;9002226.02101,"619,16590-0660-60 ",.02)
 ;;16590-0660-60
 ;;9002226.02101,"619,16590-0689-30 ",.01)
 ;;16590-0689-30
 ;;9002226.02101,"619,16590-0689-30 ",.02)
 ;;16590-0689-30
 ;;9002226.02101,"619,16590-0689-45 ",.01)
 ;;16590-0689-45
 ;;9002226.02101,"619,16590-0689-45 ",.02)
 ;;16590-0689-45
 ;;9002226.02101,"619,16590-0689-60 ",.01)
 ;;16590-0689-60
 ;;9002226.02101,"619,16590-0689-60 ",.02)
 ;;16590-0689-60
 ;;9002226.02101,"619,16590-0689-72 ",.01)
 ;;16590-0689-72
 ;;9002226.02101,"619,16590-0689-72 ",.02)
 ;;16590-0689-72
 ;;9002226.02101,"619,16590-0689-90 ",.01)
 ;;16590-0689-90
 ;;9002226.02101,"619,16590-0689-90 ",.02)
 ;;16590-0689-90
 ;;9002226.02101,"619,16590-0697-30 ",.01)
 ;;16590-0697-30
 ;;9002226.02101,"619,16590-0697-30 ",.02)
 ;;16590-0697-30
 ;;9002226.02101,"619,16590-0697-60 ",.01)
 ;;16590-0697-60
 ;;9002226.02101,"619,16590-0697-60 ",.02)
 ;;16590-0697-60
 ;;9002226.02101,"619,16590-0740-60 ",.01)
 ;;16590-0740-60
 ;;9002226.02101,"619,16590-0740-60 ",.02)
 ;;16590-0740-60
 ;;9002226.02101,"619,16590-0740-73 ",.01)
 ;;16590-0740-73