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

BGP61J4.m

Go to the documentation of this file.
  1. BGP61J4 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 18, 2015 ;
  1. ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
  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,"1223,58118-5420-06 ",.01)
  1. ;;58118-5420-06
  1. ;;9002226.02101,"1223,58118-5420-06 ",.02)
  1. ;;58118-5420-06
  1. ;;9002226.02101,"1223,58118-5420-09 ",.01)
  1. ;;58118-5420-09
  1. ;;9002226.02101,"1223,58118-5420-09 ",.02)
  1. ;;58118-5420-09
  1. ;;9002226.02101,"1223,58864-0687-30 ",.01)
  1. ;;58864-0687-30
  1. ;;9002226.02101,"1223,58864-0687-30 ",.02)
  1. ;;58864-0687-30
  1. ;;9002226.02101,"1223,58864-0687-60 ",.01)
  1. ;;58864-0687-60
  1. ;;9002226.02101,"1223,58864-0687-60 ",.02)
  1. ;;58864-0687-60
  1. ;;9002226.02101,"1223,60429-0330-10 ",.01)
  1. ;;60429-0330-10
  1. ;;9002226.02101,"1223,60429-0330-10 ",.02)
  1. ;;60429-0330-10
  1. ;;9002226.02101,"1223,60429-0330-30 ",.01)
  1. ;;60429-0330-30
  1. ;;9002226.02101,"1223,60429-0330-30 ",.02)
  1. ;;60429-0330-30
  1. ;;9002226.02101,"1223,60429-0330-90 ",.01)
  1. ;;60429-0330-90
  1. ;;9002226.02101,"1223,60429-0330-90 ",.02)
  1. ;;60429-0330-90
  1. ;;9002226.02101,"1223,60429-0331-10 ",.01)
  1. ;;60429-0331-10
  1. ;;9002226.02101,"1223,60429-0331-10 ",.02)
  1. ;;60429-0331-10
  1. ;;9002226.02101,"1223,60429-0331-30 ",.01)
  1. ;;60429-0331-30
  1. ;;9002226.02101,"1223,60429-0331-30 ",.02)
  1. ;;60429-0331-30
  1. ;;9002226.02101,"1223,60429-0331-90 ",.01)
  1. ;;60429-0331-90
  1. ;;9002226.02101,"1223,60429-0331-90 ",.02)
  1. ;;60429-0331-90
  1. ;;9002226.02101,"1223,60429-0332-10 ",.01)
  1. ;;60429-0332-10
  1. ;;9002226.02101,"1223,60429-0332-10 ",.02)
  1. ;;60429-0332-10
  1. ;;9002226.02101,"1223,60429-0332-30 ",.01)
  1. ;;60429-0332-30
  1. ;;9002226.02101,"1223,60429-0332-30 ",.02)
  1. ;;60429-0332-30
  1. ;;9002226.02101,"1223,60429-0332-90 ",.01)
  1. ;;60429-0332-90
  1. ;;9002226.02101,"1223,60429-0332-90 ",.02)
  1. ;;60429-0332-90
  1. ;;9002226.02101,"1223,63304-0254-05 ",.01)
  1. ;;63304-0254-05
  1. ;;9002226.02101,"1223,63304-0254-05 ",.02)
  1. ;;63304-0254-05
  1. ;;9002226.02101,"1223,63304-0254-30 ",.01)
  1. ;;63304-0254-30
  1. ;;9002226.02101,"1223,63304-0254-30 ",.02)
  1. ;;63304-0254-30
  1. ;;9002226.02101,"1223,63304-0254-90 ",.01)
  1. ;;63304-0254-90
  1. ;;9002226.02101,"1223,63304-0254-90 ",.02)
  1. ;;63304-0254-90
  1. ;;9002226.02101,"1223,63304-0255-05 ",.01)
  1. ;;63304-0255-05
  1. ;;9002226.02101,"1223,63304-0255-05 ",.02)
  1. ;;63304-0255-05
  1. ;;9002226.02101,"1223,63304-0255-30 ",.01)
  1. ;;63304-0255-30
  1. ;;9002226.02101,"1223,63304-0255-30 ",.02)
  1. ;;63304-0255-30
  1. ;;9002226.02101,"1223,63304-0255-90 ",.01)
  1. ;;63304-0255-90
  1. ;;9002226.02101,"1223,63304-0255-90 ",.02)
  1. ;;63304-0255-90
  1. ;;9002226.02101,"1223,63304-0261-05 ",.01)
  1. ;;63304-0261-05
  1. ;;9002226.02101,"1223,63304-0261-05 ",.02)
  1. ;;63304-0261-05
  1. ;;9002226.02101,"1223,63304-0261-30 ",.01)
  1. ;;63304-0261-30
  1. ;;9002226.02101,"1223,63304-0261-30 ",.02)
  1. ;;63304-0261-30
  1. ;;9002226.02101,"1223,63304-0261-90 ",.01)
  1. ;;63304-0261-90
  1. ;;9002226.02101,"1223,63304-0261-90 ",.02)
  1. ;;63304-0261-90
  1. ;;9002226.02101,"1223,63304-0311-05 ",.01)
  1. ;;63304-0311-05
  1. ;;9002226.02101,"1223,63304-0311-05 ",.02)
  1. ;;63304-0311-05
  1. ;;9002226.02101,"1223,63304-0311-30 ",.01)
  1. ;;63304-0311-30
  1. ;;9002226.02101,"1223,63304-0311-30 ",.02)
  1. ;;63304-0311-30
  1. ;;9002226.02101,"1223,63304-0311-90 ",.01)
  1. ;;63304-0311-90
  1. ;;9002226.02101,"1223,63304-0311-90 ",.02)
  1. ;;63304-0311-90
  1. ;;9002226.02101,"1223,63304-0312-05 ",.01)
  1. ;;63304-0312-05
  1. ;;9002226.02101,"1223,63304-0312-05 ",.02)
  1. ;;63304-0312-05
  1. ;;9002226.02101,"1223,63304-0312-30 ",.01)
  1. ;;63304-0312-30
  1. ;;9002226.02101,"1223,63304-0312-30 ",.02)
  1. ;;63304-0312-30
  1. ;;9002226.02101,"1223,63304-0312-90 ",.01)
  1. ;;63304-0312-90
  1. ;;9002226.02101,"1223,63304-0312-90 ",.02)
  1. ;;63304-0312-90
  1. ;;9002226.02101,"1223,63304-0313-05 ",.01)
  1. ;;63304-0313-05
  1. ;;9002226.02101,"1223,63304-0313-05 ",.02)
  1. ;;63304-0313-05
  1. ;;9002226.02101,"1223,63304-0313-30 ",.01)
  1. ;;63304-0313-30
  1. ;;9002226.02101,"1223,63304-0313-30 ",.02)
  1. ;;63304-0313-30
  1. ;;9002226.02101,"1223,63304-0313-90 ",.01)
  1. ;;63304-0313-90
  1. ;;9002226.02101,"1223,63304-0313-90 ",.02)
  1. ;;63304-0313-90
  1. ;;9002226.02101,"1223,63629-1269-01 ",.01)
  1. ;;63629-1269-01
  1. ;;9002226.02101,"1223,63629-1269-01 ",.02)
  1. ;;63629-1269-01
  1. ;;9002226.02101,"1223,64764-0121-03 ",.01)
  1. ;;64764-0121-03
  1. ;;9002226.02101,"1223,64764-0121-03 ",.02)
  1. ;;64764-0121-03
  1. ;;9002226.02101,"1223,64764-0123-03 ",.01)
  1. ;;64764-0123-03
  1. ;;9002226.02101,"1223,64764-0123-03 ",.02)
  1. ;;64764-0123-03
  1. ;;9002226.02101,"1223,64764-0124-03 ",.01)
  1. ;;64764-0124-03
  1. ;;9002226.02101,"1223,64764-0124-03 ",.02)
  1. ;;64764-0124-03
  1. ;;9002226.02101,"1223,64764-0151-04 ",.01)
  1. ;;64764-0151-04
  1. ;;9002226.02101,"1223,64764-0151-04 ",.02)
  1. ;;64764-0151-04
  1. ;;9002226.02101,"1223,64764-0151-05 ",.01)
  1. ;;64764-0151-05
  1. ;;9002226.02101,"1223,64764-0151-05 ",.02)
  1. ;;64764-0151-05
  1. ;;9002226.02101,"1223,64764-0151-06 ",.01)
  1. ;;64764-0151-06
  1. ;;9002226.02101,"1223,64764-0151-06 ",.02)
  1. ;;64764-0151-06
  1. ;;9002226.02101,"1223,64764-0155-18 ",.01)
  1. ;;64764-0155-18
  1. ;;9002226.02101,"1223,64764-0155-18 ",.02)
  1. ;;64764-0155-18
  1. ;;9002226.02101,"1223,64764-0155-60 ",.01)
  1. ;;64764-0155-60
  1. ;;9002226.02101,"1223,64764-0155-60 ",.02)
  1. ;;64764-0155-60
  1. ;;9002226.02101,"1223,64764-0158-18 ",.01)
  1. ;;64764-0158-18
  1. ;;9002226.02101,"1223,64764-0158-18 ",.02)
  1. ;;64764-0158-18
  1. ;;9002226.02101,"1223,64764-0158-60 ",.01)
  1. ;;64764-0158-60
  1. ;;9002226.02101,"1223,64764-0158-60 ",.02)
  1. ;;64764-0158-60
  1. ;;9002226.02101,"1223,64764-0251-03 ",.01)
  1. ;;64764-0251-03
  1. ;;9002226.02101,"1223,64764-0251-03 ",.02)
  1. ;;64764-0251-03
  1. ;;9002226.02101,"1223,64764-0253-03 ",.01)
  1. ;;64764-0253-03
  1. ;;9002226.02101,"1223,64764-0253-03 ",.02)
  1. ;;64764-0253-03
  1. ;;9002226.02101,"1223,64764-0254-03 ",.01)
  1. ;;64764-0254-03
  1. ;;9002226.02101,"1223,64764-0254-03 ",.02)
  1. ;;64764-0254-03
  1. ;;9002226.02101,"1223,64764-0301-14 ",.01)
  1. ;;64764-0301-14
  1. ;;9002226.02101,"1223,64764-0301-14 ",.02)
  1. ;;64764-0301-14
  1. ;;9002226.02101,"1223,64764-0301-15 ",.01)
  1. ;;64764-0301-15
  1. ;;9002226.02101,"1223,64764-0301-15 ",.02)
  1. ;;64764-0301-15
  1. ;;9002226.02101,"1223,64764-0301-16 ",.01)
  1. ;;64764-0301-16
  1. ;;9002226.02101,"1223,64764-0301-16 ",.02)
  1. ;;64764-0301-16
  1. ;;9002226.02101,"1223,64764-0302-30 ",.01)
  1. ;;64764-0302-30
  1. ;;9002226.02101,"1223,64764-0302-30 ",.02)
  1. ;;64764-0302-30
  1. ;;9002226.02101,"1223,64764-0304-30 ",.01)
  1. ;;64764-0304-30
  1. ;;9002226.02101,"1223,64764-0304-30 ",.02)
  1. ;;64764-0304-30
  1. ;;9002226.02101,"1223,64764-0310-30 ",.01)
  1. ;;64764-0310-30
  1. ;;9002226.02101,"1223,64764-0310-30 ",.02)
  1. ;;64764-0310-30
  1. ;;9002226.02101,"1223,64764-0451-24 ",.01)
  1. ;;64764-0451-24
  1. ;;9002226.02101,"1223,64764-0451-24 ",.02)
  1. ;;64764-0451-24
  1. ;;9002226.02101,"1223,64764-0451-25 ",.01)
  1. ;;64764-0451-25
  1. ;;9002226.02101,"1223,64764-0451-25 ",.02)
  1. ;;64764-0451-25
  1. ;;9002226.02101,"1223,64764-0451-26 ",.01)
  1. ;;64764-0451-26
  1. ;;9002226.02101,"1223,64764-0451-26 ",.02)
  1. ;;64764-0451-26
  1. ;;9002226.02101,"1223,64764-0510-30 ",.01)
  1. ;;64764-0510-30
  1. ;;9002226.02101,"1223,64764-0510-30 ",.02)
  1. ;;64764-0510-30
  1. ;;9002226.02101,"1223,65243-0195-09 ",.01)
  1. ;;65243-0195-09
  1. ;;9002226.02101,"1223,65243-0195-09 ",.02)
  1. ;;65243-0195-09
  1. ;;9002226.02101,"1223,65243-0195-12 ",.01)
  1. ;;65243-0195-12
  1. ;;9002226.02101,"1223,65243-0195-12 ",.02)
  1. ;;65243-0195-12
  1. ;;9002226.02101,"1223,65243-0196-09 ",.01)
  1. ;;65243-0196-09
  1. ;;9002226.02101,"1223,65243-0196-09 ",.02)
  1. ;;65243-0196-09
  1. ;;9002226.02101,"1223,65862-0512-30 ",.01)
  1. ;;65862-0512-30
  1. ;;9002226.02101,"1223,65862-0512-30 ",.02)
  1. ;;65862-0512-30
  1. ;;9002226.02101,"1223,65862-0513-30 ",.01)
  1. ;;65862-0513-30
  1. ;;9002226.02101,"1223,65862-0513-30 ",.02)
  1. ;;65862-0513-30
  1. ;;9002226.02101,"1223,65862-0514-30 ",.01)
  1. ;;65862-0514-30
  1. ;;9002226.02101,"1223,65862-0514-30 ",.02)
  1. ;;65862-0514-30
  1. ;;9002226.02101,"1223,65862-0525-18 ",.01)
  1. ;;65862-0525-18
  1. ;;9002226.02101,"1223,65862-0525-18 ",.02)
  1. ;;65862-0525-18
  1. ;;9002226.02101,"1223,65862-0525-60 ",.01)
  1. ;;65862-0525-60
  1. ;;9002226.02101,"1223,65862-0525-60 ",.02)
  1. ;;65862-0525-60
  1. ;;9002226.02101,"1223,65862-0526-18 ",.01)
  1. ;;65862-0526-18
  1. ;;9002226.02101,"1223,65862-0526-18 ",.02)
  1. ;;65862-0526-18
  1. ;;9002226.02101,"1223,65862-0526-60 ",.01)
  1. ;;65862-0526-60
  1. ;;9002226.02101,"1223,65862-0526-60 ",.02)
  1. ;;65862-0526-60
  1. ;;9002226.02101,"1223,66105-0145-01 ",.01)
  1. ;;66105-0145-01
  1. ;;9002226.02101,"1223,66105-0145-01 ",.02)
  1. ;;66105-0145-01
  1. ;;9002226.02101,"1223,66105-0145-03 ",.01)
  1. ;;66105-0145-03
  1. ;;9002226.02101,"1223,66105-0145-03 ",.02)
  1. ;;66105-0145-03
  1. ;;9002226.02101,"1223,66105-0145-06 ",.01)
  1. ;;66105-0145-06
  1. ;;9002226.02101,"1223,66105-0145-06 ",.02)
  1. ;;66105-0145-06
  1. ;;9002226.02101,"1223,66105-0145-09 ",.01)
  1. ;;66105-0145-09
  1. ;;9002226.02101,"1223,66105-0145-09 ",.02)
  1. ;;66105-0145-09
  1. ;;9002226.02101,"1223,66105-0145-15 ",.01)
  1. ;;66105-0145-15
  1. ;;9002226.02101,"1223,66105-0145-15 ",.02)
  1. ;;66105-0145-15
  1. ;;9002226.02101,"1223,66105-0154-01 ",.01)
  1. ;;66105-0154-01
  1. ;;9002226.02101,"1223,66105-0154-01 ",.02)
  1. ;;66105-0154-01
  1. ;;9002226.02101,"1223,66105-0154-03 ",.01)
  1. ;;66105-0154-03
  1. ;;9002226.02101,"1223,66105-0154-03 ",.02)
  1. ;;66105-0154-03
  1. ;;9002226.02101,"1223,66105-0154-06 ",.01)
  1. ;;66105-0154-06
  1. ;;9002226.02101,"1223,66105-0154-06 ",.02)
  1. ;;66105-0154-06
  1. ;;9002226.02101,"1223,66105-0154-09 ",.01)
  1. ;;66105-0154-09
  1. ;;9002226.02101,"1223,66105-0154-09 ",.02)
  1. ;;66105-0154-09
  1. ;;9002226.02101,"1223,66105-0154-15 ",.01)
  1. ;;66105-0154-15
  1. ;;9002226.02101,"1223,66105-0154-15 ",.02)
  1. ;;66105-0154-15
  1. ;;9002226.02101,"1223,66105-0156-01 ",.01)
  1. ;;66105-0156-01
  1. ;;9002226.02101,"1223,66105-0156-01 ",.02)
  1. ;;66105-0156-01
  1. ;;9002226.02101,"1223,66105-0156-03 ",.01)
  1. ;;66105-0156-03
  1. ;;9002226.02101,"1223,66105-0156-03 ",.02)
  1. ;;66105-0156-03
  1. ;;9002226.02101,"1223,66105-0156-06 ",.01)
  1. ;;66105-0156-06
  1. ;;9002226.02101,"1223,66105-0156-06 ",.02)
  1. ;;66105-0156-06
  1. ;;9002226.02101,"1223,66105-0156-09 ",.01)
  1. ;;66105-0156-09
  1. ;;9002226.02101,"1223,66105-0156-09 ",.02)
  1. ;;66105-0156-09
  1. ;;9002226.02101,"1223,66105-0156-15 ",.01)
  1. ;;66105-0156-15
  1. ;;9002226.02101,"1223,66105-0156-15 ",.02)
  1. ;;66105-0156-15
  1. ;;9002226.02101,"1223,66105-0159-01 ",.01)
  1. ;;66105-0159-01
  1. ;;9002226.02101,"1223,66105-0159-01 ",.02)
  1. ;;66105-0159-01
  1. ;;9002226.02101,"1223,66105-0159-03 ",.01)
  1. ;;66105-0159-03
  1. ;;9002226.02101,"1223,66105-0159-03 ",.02)
  1. ;;66105-0159-03
  1. ;;9002226.02101,"1223,66105-0159-06 ",.01)
  1. ;;66105-0159-06
  1. ;;9002226.02101,"1223,66105-0159-06 ",.02)
  1. ;;66105-0159-06
  1. ;;9002226.02101,"1223,66105-0159-09 ",.01)
  1. ;;66105-0159-09
  1. ;;9002226.02101,"1223,66105-0159-09 ",.02)
  1. ;;66105-0159-09
  1. ;;9002226.02101,"1223,66105-0159-15 ",.01)
  1. ;;66105-0159-15
  1. ;;9002226.02101,"1223,66105-0159-15 ",.02)
  1. ;;66105-0159-15
  1. ;;9002226.02101,"1223,66336-0360-30 ",.01)
  1. ;;66336-0360-30
  1. ;;9002226.02101,"1223,66336-0360-30 ",.02)
  1. ;;66336-0360-30
  1. ;;9002226.02101,"1223,66336-0361-30 ",.01)
  1. ;;66336-0361-30
  1. ;;9002226.02101,"1223,66336-0361-30 ",.02)
  1. ;;66336-0361-30
  1. ;;9002226.02101,"1223,66336-0857-30 ",.01)
  1. ;;66336-0857-30
  1. ;;9002226.02101,"1223,66336-0857-30 ",.02)
  1. ;;66336-0857-30
  1. ;;9002226.02101,"1223,66336-0857-90 ",.01)
  1. ;;66336-0857-90
  1. ;;9002226.02101,"1223,66336-0857-90 ",.02)
  1. ;;66336-0857-90
  1. ;;9002226.02101,"1223,66336-0858-30 ",.01)
  1. ;;66336-0858-30
  1. ;;9002226.02101,"1223,66336-0858-30 ",.02)
  1. ;;66336-0858-30
  1. ;;9002226.02101,"1223,66336-0858-90 ",.01)
  1. ;;66336-0858-90
  1. ;;9002226.02101,"1223,66336-0858-90 ",.02)
  1. ;;66336-0858-90
  1. ;;9002226.02101,"1223,66336-0859-30 ",.01)
  1. ;;66336-0859-30
  1. ;;9002226.02101,"1223,66336-0859-30 ",.02)
  1. ;;66336-0859-30
  1. ;;9002226.02101,"1223,66336-0859-90 ",.01)
  1. ;;66336-0859-90
  1. ;;9002226.02101,"1223,66336-0859-90 ",.02)
  1. ;;66336-0859-90
  1. ;;9002226.02101,"1223,67544-0065-30 ",.01)
  1. ;;67544-0065-30
  1. ;;9002226.02101,"1223,67544-0065-30 ",.02)
  1. ;;67544-0065-30
  1. ;;9002226.02101,"1223,67544-0065-53 ",.01)
  1. ;;67544-0065-53
  1. ;;9002226.02101,"1223,67544-0065-53 ",.02)
  1. ;;67544-0065-53
  1. ;;9002226.02101,"1223,67544-0065-60 ",.01)
  1. ;;67544-0065-60
  1. ;;9002226.02101,"1223,67544-0065-60 ",.02)
  1. ;;67544-0065-60
  1. ;;9002226.02101,"1223,67544-0066-30 ",.01)
  1. ;;67544-0066-30
  1. ;;9002226.02101,"1223,67544-0066-30 ",.02)
  1. ;;67544-0066-30
  1. ;;9002226.02101,"1223,67544-0066-45 ",.01)
  1. ;;67544-0066-45
  1. ;;9002226.02101,"1223,67544-0066-45 ",.02)
  1. ;;67544-0066-45
  1. ;;9002226.02101,"1223,67544-0066-60 ",.01)
  1. ;;67544-0066-60
  1. ;;9002226.02101,"1223,67544-0066-60 ",.02)
  1. ;;67544-0066-60
  1. ;;9002226.02101,"1223,67544-0113-60 ",.01)
  1. ;;67544-0113-60
  1. ;;9002226.02101,"1223,67544-0113-60 ",.02)
  1. ;;67544-0113-60
  1. ;;9002226.02101,"1223,67544-0113-70 ",.01)
  1. ;;67544-0113-70
  1. ;;9002226.02101,"1223,67544-0113-70 ",.02)
  1. ;;67544-0113-70
  1. ;;9002226.02101,"1223,67544-0113-80 ",.01)
  1. ;;67544-0113-80
  1. ;;9002226.02101,"1223,67544-0113-80 ",.02)
  1. ;;67544-0113-80