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.
  1. BGP82Z28 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
  1. ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
  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. ;;9002226.02101,"619,16590-0276-30 ",.02)
  1. ;;16590-0276-30
  1. ;;9002226.02101,"619,16590-0276-40 ",.01)
  1. ;;16590-0276-40
  1. ;;9002226.02101,"619,16590-0276-40 ",.02)
  1. ;;16590-0276-40
  1. ;;9002226.02101,"619,16590-0289-60 ",.01)
  1. ;;16590-0289-60
  1. ;;9002226.02101,"619,16590-0289-60 ",.02)
  1. ;;16590-0289-60
  1. ;;9002226.02101,"619,16590-0296-12 ",.01)
  1. ;;16590-0296-12
  1. ;;9002226.02101,"619,16590-0296-12 ",.02)
  1. ;;16590-0296-12
  1. ;;9002226.02101,"619,16590-0296-15 ",.01)
  1. ;;16590-0296-15
  1. ;;9002226.02101,"619,16590-0296-15 ",.02)
  1. ;;16590-0296-15
  1. ;;9002226.02101,"619,16590-0296-20 ",.01)
  1. ;;16590-0296-20
  1. ;;9002226.02101,"619,16590-0296-20 ",.02)
  1. ;;16590-0296-20
  1. ;;9002226.02101,"619,16590-0296-30 ",.01)
  1. ;;16590-0296-30
  1. ;;9002226.02101,"619,16590-0296-30 ",.02)
  1. ;;16590-0296-30
  1. ;;9002226.02101,"619,16590-0296-40 ",.01)
  1. ;;16590-0296-40
  1. ;;9002226.02101,"619,16590-0296-40 ",.02)
  1. ;;16590-0296-40
  1. ;;9002226.02101,"619,16590-0296-60 ",.01)
  1. ;;16590-0296-60
  1. ;;9002226.02101,"619,16590-0296-60 ",.02)
  1. ;;16590-0296-60
  1. ;;9002226.02101,"619,16590-0296-62 ",.01)
  1. ;;16590-0296-62
  1. ;;9002226.02101,"619,16590-0296-62 ",.02)
  1. ;;16590-0296-62
  1. ;;9002226.02101,"619,16590-0296-90 ",.01)
  1. ;;16590-0296-90
  1. ;;9002226.02101,"619,16590-0296-90 ",.02)
  1. ;;16590-0296-90
  1. ;;9002226.02101,"619,16590-0361-04 ",.01)
  1. ;;16590-0361-04
  1. ;;9002226.02101,"619,16590-0361-04 ",.02)
  1. ;;16590-0361-04
  1. ;;9002226.02101,"619,16590-0494-30 ",.01)
  1. ;;16590-0494-30
  1. ;;9002226.02101,"619,16590-0494-30 ",.02)
  1. ;;16590-0494-30
  1. ;;9002226.02101,"619,16590-0494-40 ",.01)
  1. ;;16590-0494-40
  1. ;;9002226.02101,"619,16590-0494-40 ",.02)
  1. ;;16590-0494-40
  1. ;;9002226.02101,"619,16590-0494-60 ",.01)
  1. ;;16590-0494-60
  1. ;;9002226.02101,"619,16590-0494-60 ",.02)
  1. ;;16590-0494-60
  1. ;;9002226.02101,"619,16590-0494-72 ",.01)
  1. ;;16590-0494-72
  1. ;;9002226.02101,"619,16590-0494-72 ",.02)
  1. ;;16590-0494-72
  1. ;;9002226.02101,"619,16590-0494-90 ",.01)
  1. ;;16590-0494-90
  1. ;;9002226.02101,"619,16590-0494-90 ",.02)
  1. ;;16590-0494-90
  1. ;;9002226.02101,"619,16590-0556-30 ",.01)
  1. ;;16590-0556-30
  1. ;;9002226.02101,"619,16590-0556-30 ",.02)
  1. ;;16590-0556-30
  1. ;;9002226.02101,"619,16590-0556-40 ",.01)
  1. ;;16590-0556-40
  1. ;;9002226.02101,"619,16590-0556-40 ",.02)
  1. ;;16590-0556-40
  1. ;;9002226.02101,"619,16590-0556-60 ",.01)
  1. ;;16590-0556-60
  1. ;;9002226.02101,"619,16590-0556-60 ",.02)
  1. ;;16590-0556-60
  1. ;;9002226.02101,"619,16590-0556-72 ",.01)
  1. ;;16590-0556-72
  1. ;;9002226.02101,"619,16590-0556-72 ",.02)
  1. ;;16590-0556-72
  1. ;;9002226.02101,"619,16590-0556-90 ",.01)
  1. ;;16590-0556-90
  1. ;;9002226.02101,"619,16590-0556-90 ",.02)
  1. ;;16590-0556-90
  1. ;;9002226.02101,"619,16590-0593-30 ",.01)
  1. ;;16590-0593-30
  1. ;;9002226.02101,"619,16590-0593-30 ",.02)
  1. ;;16590-0593-30
  1. ;;9002226.02101,"619,16590-0593-60 ",.01)
  1. ;;16590-0593-60
  1. ;;9002226.02101,"619,16590-0593-60 ",.02)
  1. ;;16590-0593-60
  1. ;;9002226.02101,"619,16590-0593-90 ",.01)
  1. ;;16590-0593-90
  1. ;;9002226.02101,"619,16590-0593-90 ",.02)
  1. ;;16590-0593-90
  1. ;;9002226.02101,"619,16590-0594-30 ",.01)
  1. ;;16590-0594-30
  1. ;;9002226.02101,"619,16590-0594-30 ",.02)
  1. ;;16590-0594-30
  1. ;;9002226.02101,"619,16590-0594-60 ",.01)
  1. ;;16590-0594-60
  1. ;;9002226.02101,"619,16590-0594-60 ",.02)
  1. ;;16590-0594-60
  1. ;;9002226.02101,"619,16590-0594-90 ",.01)
  1. ;;16590-0594-90
  1. ;;9002226.02101,"619,16590-0594-90 ",.02)
  1. ;;16590-0594-90
  1. ;;9002226.02101,"619,16590-0597-30 ",.01)
  1. ;;16590-0597-30
  1. ;;9002226.02101,"619,16590-0597-30 ",.02)
  1. ;;16590-0597-30
  1. ;;9002226.02101,"619,16590-0597-60 ",.01)
  1. ;;16590-0597-60
  1. ;;9002226.02101,"619,16590-0597-60 ",.02)
  1. ;;16590-0597-60
  1. ;;9002226.02101,"619,16590-0597-90 ",.01)
  1. ;;16590-0597-90
  1. ;;9002226.02101,"619,16590-0597-90 ",.02)
  1. ;;16590-0597-90
  1. ;;9002226.02101,"619,16590-0598-30 ",.01)
  1. ;;16590-0598-30
  1. ;;9002226.02101,"619,16590-0598-30 ",.02)
  1. ;;16590-0598-30
  1. ;;9002226.02101,"619,16590-0598-56 ",.01)
  1. ;;16590-0598-56
  1. ;;9002226.02101,"619,16590-0598-56 ",.02)
  1. ;;16590-0598-56
  1. ;;9002226.02101,"619,16590-0598-60 ",.01)
  1. ;;16590-0598-60
  1. ;;9002226.02101,"619,16590-0598-60 ",.02)
  1. ;;16590-0598-60
  1. ;;9002226.02101,"619,16590-0598-90 ",.01)
  1. ;;16590-0598-90
  1. ;;9002226.02101,"619,16590-0598-90 ",.02)
  1. ;;16590-0598-90
  1. ;;9002226.02101,"619,16590-0606-30 ",.01)
  1. ;;16590-0606-30
  1. ;;9002226.02101,"619,16590-0606-30 ",.02)
  1. ;;16590-0606-30
  1. ;;9002226.02101,"619,16590-0606-60 ",.01)
  1. ;;16590-0606-60
  1. ;;9002226.02101,"619,16590-0606-60 ",.02)
  1. ;;16590-0606-60
  1. ;;9002226.02101,"619,16590-0606-90 ",.01)
  1. ;;16590-0606-90
  1. ;;9002226.02101,"619,16590-0606-90 ",.02)
  1. ;;16590-0606-90
  1. ;;9002226.02101,"619,16590-0609-30 ",.01)
  1. ;;16590-0609-30
  1. ;;9002226.02101,"619,16590-0609-30 ",.02)
  1. ;;16590-0609-30
  1. ;;9002226.02101,"619,16590-0609-60 ",.01)
  1. ;;16590-0609-60
  1. ;;9002226.02101,"619,16590-0609-60 ",.02)
  1. ;;16590-0609-60
  1. ;;9002226.02101,"619,16590-0609-90 ",.01)
  1. ;;16590-0609-90
  1. ;;9002226.02101,"619,16590-0609-90 ",.02)
  1. ;;16590-0609-90
  1. ;;9002226.02101,"619,16590-0616-30 ",.01)
  1. ;;16590-0616-30
  1. ;;9002226.02101,"619,16590-0616-30 ",.02)
  1. ;;16590-0616-30
  1. ;;9002226.02101,"619,16590-0616-60 ",.01)
  1. ;;16590-0616-60
  1. ;;9002226.02101,"619,16590-0616-60 ",.02)
  1. ;;16590-0616-60
  1. ;;9002226.02101,"619,16590-0616-62 ",.01)
  1. ;;16590-0616-62
  1. ;;9002226.02101,"619,16590-0616-62 ",.02)
  1. ;;16590-0616-62
  1. ;;9002226.02101,"619,16590-0616-72 ",.01)
  1. ;;16590-0616-72
  1. ;;9002226.02101,"619,16590-0616-72 ",.02)
  1. ;;16590-0616-72
  1. ;;9002226.02101,"619,16590-0616-73 ",.01)
  1. ;;16590-0616-73
  1. ;;9002226.02101,"619,16590-0616-73 ",.02)
  1. ;;16590-0616-73
  1. ;;9002226.02101,"619,16590-0616-90 ",.01)
  1. ;;16590-0616-90
  1. ;;9002226.02101,"619,16590-0616-90 ",.02)
  1. ;;16590-0616-90
  1. ;;9002226.02101,"619,16590-0617-30 ",.01)
  1. ;;16590-0617-30
  1. ;;9002226.02101,"619,16590-0617-30 ",.02)
  1. ;;16590-0617-30
  1. ;;9002226.02101,"619,16590-0617-60 ",.01)
  1. ;;16590-0617-60
  1. ;;9002226.02101,"619,16590-0617-60 ",.02)
  1. ;;16590-0617-60
  1. ;;9002226.02101,"619,16590-0617-86 ",.01)
  1. ;;16590-0617-86
  1. ;;9002226.02101,"619,16590-0617-86 ",.02)
  1. ;;16590-0617-86
  1. ;;9002226.02101,"619,16590-0617-90 ",.01)
  1. ;;16590-0617-90
  1. ;;9002226.02101,"619,16590-0617-90 ",.02)
  1. ;;16590-0617-90
  1. ;;9002226.02101,"619,16590-0618-30 ",.01)
  1. ;;16590-0618-30
  1. ;;9002226.02101,"619,16590-0618-30 ",.02)
  1. ;;16590-0618-30
  1. ;;9002226.02101,"619,16590-0618-56 ",.01)
  1. ;;16590-0618-56
  1. ;;9002226.02101,"619,16590-0618-56 ",.02)
  1. ;;16590-0618-56
  1. ;;9002226.02101,"619,16590-0618-60 ",.01)
  1. ;;16590-0618-60
  1. ;;9002226.02101,"619,16590-0618-60 ",.02)
  1. ;;16590-0618-60
  1. ;;9002226.02101,"619,16590-0618-62 ",.01)
  1. ;;16590-0618-62
  1. ;;9002226.02101,"619,16590-0618-62 ",.02)
  1. ;;16590-0618-62
  1. ;;9002226.02101,"619,16590-0618-72 ",.01)
  1. ;;16590-0618-72
  1. ;;9002226.02101,"619,16590-0618-72 ",.02)
  1. ;;16590-0618-72
  1. ;;9002226.02101,"619,16590-0618-73 ",.01)
  1. ;;16590-0618-73
  1. ;;9002226.02101,"619,16590-0618-73 ",.02)
  1. ;;16590-0618-73
  1. ;;9002226.02101,"619,16590-0618-82 ",.01)
  1. ;;16590-0618-82
  1. ;;9002226.02101,"619,16590-0618-82 ",.02)
  1. ;;16590-0618-82
  1. ;;9002226.02101,"619,16590-0618-90 ",.01)
  1. ;;16590-0618-90
  1. ;;9002226.02101,"619,16590-0618-90 ",.02)
  1. ;;16590-0618-90
  1. ;;9002226.02101,"619,16590-0619-30 ",.01)
  1. ;;16590-0619-30
  1. ;;9002226.02101,"619,16590-0619-30 ",.02)
  1. ;;16590-0619-30
  1. ;;9002226.02101,"619,16590-0619-60 ",.01)
  1. ;;16590-0619-60
  1. ;;9002226.02101,"619,16590-0619-60 ",.02)
  1. ;;16590-0619-60
  1. ;;9002226.02101,"619,16590-0619-62 ",.01)
  1. ;;16590-0619-62
  1. ;;9002226.02101,"619,16590-0619-62 ",.02)
  1. ;;16590-0619-62
  1. ;;9002226.02101,"619,16590-0619-90 ",.01)
  1. ;;16590-0619-90
  1. ;;9002226.02101,"619,16590-0619-90 ",.02)
  1. ;;16590-0619-90
  1. ;;9002226.02101,"619,16590-0620-30 ",.01)
  1. ;;16590-0620-30
  1. ;;9002226.02101,"619,16590-0620-30 ",.02)
  1. ;;16590-0620-30
  1. ;;9002226.02101,"619,16590-0620-56 ",.01)
  1. ;;16590-0620-56
  1. ;;9002226.02101,"619,16590-0620-56 ",.02)
  1. ;;16590-0620-56
  1. ;;9002226.02101,"619,16590-0620-60 ",.01)
  1. ;;16590-0620-60
  1. ;;9002226.02101,"619,16590-0620-60 ",.02)
  1. ;;16590-0620-60
  1. ;;9002226.02101,"619,16590-0620-62 ",.01)
  1. ;;16590-0620-62
  1. ;;9002226.02101,"619,16590-0620-62 ",.02)
  1. ;;16590-0620-62
  1. ;;9002226.02101,"619,16590-0620-72 ",.01)
  1. ;;16590-0620-72
  1. ;;9002226.02101,"619,16590-0620-72 ",.02)
  1. ;;16590-0620-72
  1. ;;9002226.02101,"619,16590-0620-73 ",.01)
  1. ;;16590-0620-73
  1. ;;9002226.02101,"619,16590-0620-73 ",.02)
  1. ;;16590-0620-73
  1. ;;9002226.02101,"619,16590-0620-83 ",.01)
  1. ;;16590-0620-83
  1. ;;9002226.02101,"619,16590-0620-83 ",.02)
  1. ;;16590-0620-83
  1. ;;9002226.02101,"619,16590-0620-90 ",.01)
  1. ;;16590-0620-90
  1. ;;9002226.02101,"619,16590-0620-90 ",.02)
  1. ;;16590-0620-90
  1. ;;9002226.02101,"619,16590-0636-62 ",.01)
  1. ;;16590-0636-62
  1. ;;9002226.02101,"619,16590-0636-62 ",.02)
  1. ;;16590-0636-62
  1. ;;9002226.02101,"619,16590-0653-30 ",.01)
  1. ;;16590-0653-30
  1. ;;9002226.02101,"619,16590-0653-30 ",.02)
  1. ;;16590-0653-30
  1. ;;9002226.02101,"619,16590-0653-60 ",.01)
  1. ;;16590-0653-60
  1. ;;9002226.02101,"619,16590-0653-60 ",.02)
  1. ;;16590-0653-60
  1. ;;9002226.02101,"619,16590-0653-90 ",.01)
  1. ;;16590-0653-90
  1. ;;9002226.02101,"619,16590-0653-90 ",.02)
  1. ;;16590-0653-90
  1. ;;9002226.02101,"619,16590-0659-30 ",.01)
  1. ;;16590-0659-30
  1. ;;9002226.02101,"619,16590-0659-30 ",.02)
  1. ;;16590-0659-30
  1. ;;9002226.02101,"619,16590-0659-56 ",.01)
  1. ;;16590-0659-56
  1. ;;9002226.02101,"619,16590-0659-56 ",.02)
  1. ;;16590-0659-56
  1. ;;9002226.02101,"619,16590-0659-60 ",.01)
  1. ;;16590-0659-60
  1. ;;9002226.02101,"619,16590-0659-60 ",.02)
  1. ;;16590-0659-60
  1. ;;9002226.02101,"619,16590-0659-62 ",.01)
  1. ;;16590-0659-62
  1. ;;9002226.02101,"619,16590-0659-62 ",.02)
  1. ;;16590-0659-62
  1. ;;9002226.02101,"619,16590-0659-71 ",.01)
  1. ;;16590-0659-71
  1. ;;9002226.02101,"619,16590-0659-71 ",.02)
  1. ;;16590-0659-71
  1. ;;9002226.02101,"619,16590-0659-72 ",.01)
  1. ;;16590-0659-72
  1. ;;9002226.02101,"619,16590-0659-72 ",.02)
  1. ;;16590-0659-72
  1. ;;9002226.02101,"619,16590-0659-73 ",.01)
  1. ;;16590-0659-73
  1. ;;9002226.02101,"619,16590-0659-73 ",.02)
  1. ;;16590-0659-73
  1. ;;9002226.02101,"619,16590-0659-82 ",.01)
  1. ;;16590-0659-82
  1. ;;9002226.02101,"619,16590-0659-82 ",.02)
  1. ;;16590-0659-82
  1. ;;9002226.02101,"619,16590-0659-83 ",.01)
  1. ;;16590-0659-83
  1. ;;9002226.02101,"619,16590-0659-83 ",.02)
  1. ;;16590-0659-83
  1. ;;9002226.02101,"619,16590-0659-90 ",.01)
  1. ;;16590-0659-90
  1. ;;9002226.02101,"619,16590-0659-90 ",.02)
  1. ;;16590-0659-90
  1. ;;9002226.02101,"619,16590-0660-30 ",.01)
  1. ;;16590-0660-30
  1. ;;9002226.02101,"619,16590-0660-30 ",.02)
  1. ;;16590-0660-30
  1. ;;9002226.02101,"619,16590-0660-56 ",.01)
  1. ;;16590-0660-56
  1. ;;9002226.02101,"619,16590-0660-56 ",.02)
  1. ;;16590-0660-56
  1. ;;9002226.02101,"619,16590-0660-60 ",.01)
  1. ;;16590-0660-60
  1. ;;9002226.02101,"619,16590-0660-60 ",.02)
  1. ;;16590-0660-60
  1. ;;9002226.02101,"619,16590-0689-30 ",.01)
  1. ;;16590-0689-30
  1. ;;9002226.02101,"619,16590-0689-30 ",.02)
  1. ;;16590-0689-30
  1. ;;9002226.02101,"619,16590-0689-45 ",.01)
  1. ;;16590-0689-45
  1. ;;9002226.02101,"619,16590-0689-45 ",.02)
  1. ;;16590-0689-45
  1. ;;9002226.02101,"619,16590-0689-60 ",.01)
  1. ;;16590-0689-60
  1. ;;9002226.02101,"619,16590-0689-60 ",.02)
  1. ;;16590-0689-60
  1. ;;9002226.02101,"619,16590-0689-72 ",.01)
  1. ;;16590-0689-72
  1. ;;9002226.02101,"619,16590-0689-72 ",.02)
  1. ;;16590-0689-72
  1. ;;9002226.02101,"619,16590-0689-90 ",.01)
  1. ;;16590-0689-90
  1. ;;9002226.02101,"619,16590-0689-90 ",.02)
  1. ;;16590-0689-90
  1. ;;9002226.02101,"619,16590-0697-30 ",.01)
  1. ;;16590-0697-30
  1. ;;9002226.02101,"619,16590-0697-30 ",.02)
  1. ;;16590-0697-30
  1. ;;9002226.02101,"619,16590-0697-60 ",.01)
  1. ;;16590-0697-60
  1. ;;9002226.02101,"619,16590-0697-60 ",.02)
  1. ;;16590-0697-60
  1. ;;9002226.02101,"619,16590-0740-60 ",.01)
  1. ;;16590-0740-60
  1. ;;9002226.02101,"619,16590-0740-60 ",.02)
  1. ;;16590-0740-60
  1. ;;9002226.02101,"619,16590-0740-73 ",.01)
  1. ;;16590-0740-73