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

BGP8ZH68.m

Go to the documentation of this file.
  1. BGP8ZH68 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 22, 2018;
  1. ;;18.0;IHS CLINICAL REPORTING;**1**;NOV 21, 2017;Build 62
  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,"868,65862-0185-05 ",.02)
  1. ;;65862-0185-05
  1. ;;9002226.02101,"868,65862-0186-01 ",.01)
  1. ;;65862-0186-01
  1. ;;9002226.02101,"868,65862-0186-01 ",.02)
  1. ;;65862-0186-01
  1. ;;9002226.02101,"868,65862-0209-01 ",.01)
  1. ;;65862-0209-01
  1. ;;9002226.02101,"868,65862-0209-01 ",.02)
  1. ;;65862-0209-01
  1. ;;9002226.02101,"868,65862-0210-01 ",.01)
  1. ;;65862-0210-01
  1. ;;9002226.02101,"868,65862-0210-01 ",.02)
  1. ;;65862-0210-01
  1. ;;9002226.02101,"868,65862-0211-05 ",.01)
  1. ;;65862-0211-05
  1. ;;9002226.02101,"868,65862-0211-05 ",.02)
  1. ;;65862-0211-05
  1. ;;9002226.02101,"868,65862-0211-50 ",.01)
  1. ;;65862-0211-50
  1. ;;9002226.02101,"868,65862-0211-50 ",.02)
  1. ;;65862-0211-50
  1. ;;9002226.02101,"868,65862-0218-01 ",.01)
  1. ;;65862-0218-01
  1. ;;9002226.02101,"868,65862-0218-01 ",.02)
  1. ;;65862-0218-01
  1. ;;9002226.02101,"868,65862-0218-60 ",.01)
  1. ;;65862-0218-60
  1. ;;9002226.02101,"868,65862-0218-60 ",.02)
  1. ;;65862-0218-60
  1. ;;9002226.02101,"868,65862-0219-01 ",.01)
  1. ;;65862-0219-01
  1. ;;9002226.02101,"868,65862-0219-01 ",.02)
  1. ;;65862-0219-01
  1. ;;9002226.02101,"868,65862-0219-60 ",.01)
  1. ;;65862-0219-60
  1. ;;9002226.02101,"868,65862-0219-60 ",.02)
  1. ;;65862-0219-60
  1. ;;9002226.02101,"868,65862-0225-60 ",.01)
  1. ;;65862-0225-60
  1. ;;9002226.02101,"868,65862-0225-60 ",.02)
  1. ;;65862-0225-60
  1. ;;9002226.02101,"868,65862-0226-60 ",.01)
  1. ;;65862-0226-60
  1. ;;9002226.02101,"868,65862-0226-60 ",.02)
  1. ;;65862-0226-60
  1. ;;9002226.02101,"868,65862-0419-01 ",.01)
  1. ;;65862-0419-01
  1. ;;9002226.02101,"868,65862-0419-01 ",.02)
  1. ;;65862-0419-01
  1. ;;9002226.02101,"868,65862-0419-05 ",.01)
  1. ;;65862-0419-05
  1. ;;9002226.02101,"868,65862-0419-05 ",.02)
  1. ;;65862-0419-05
  1. ;;9002226.02101,"868,65862-0420-01 ",.01)
  1. ;;65862-0420-01
  1. ;;9002226.02101,"868,65862-0420-01 ",.02)
  1. ;;65862-0420-01
  1. ;;9002226.02101,"868,65862-0420-05 ",.01)
  1. ;;65862-0420-05
  1. ;;9002226.02101,"868,65862-0420-05 ",.02)
  1. ;;65862-0420-05
  1. ;;9002226.02101,"868,65862-0496-47 ",.01)
  1. ;;65862-0496-47
  1. ;;9002226.02101,"868,65862-0496-47 ",.02)
  1. ;;65862-0496-47
  1. ;;9002226.02101,"868,65862-0501-30 ",.01)
  1. ;;65862-0501-30
  1. ;;9002226.02101,"868,65862-0501-30 ",.02)
  1. ;;65862-0501-30
  1. ;;9002226.02101,"868,65862-0502-20 ",.01)
  1. ;;65862-0502-20
  1. ;;9002226.02101,"868,65862-0502-20 ",.02)
  1. ;;65862-0502-20
  1. ;;9002226.02101,"868,65862-0503-01 ",.01)
  1. ;;65862-0503-01
  1. ;;9002226.02101,"868,65862-0503-01 ",.02)
  1. ;;65862-0503-01
  1. ;;9002226.02101,"868,65862-0503-20 ",.01)
  1. ;;65862-0503-20
  1. ;;9002226.02101,"868,65862-0503-20 ",.02)
  1. ;;65862-0503-20
  1. ;;9002226.02101,"868,65862-0533-01 ",.01)
  1. ;;65862-0533-01
  1. ;;9002226.02101,"868,65862-0533-01 ",.02)
  1. ;;65862-0533-01
  1. ;;9002226.02101,"868,65862-0533-50 ",.01)
  1. ;;65862-0533-50
  1. ;;9002226.02101,"868,65862-0533-50 ",.02)
  1. ;;65862-0533-50
  1. ;;9002226.02101,"868,65862-0533-75 ",.01)
  1. ;;65862-0533-75
  1. ;;9002226.02101,"868,65862-0533-75 ",.02)
  1. ;;65862-0533-75
  1. ;;9002226.02101,"868,65862-0534-01 ",.01)
  1. ;;65862-0534-01
  1. ;;9002226.02101,"868,65862-0534-01 ",.02)
  1. ;;65862-0534-01
  1. ;;9002226.02101,"868,65862-0534-50 ",.01)
  1. ;;65862-0534-50
  1. ;;9002226.02101,"868,65862-0534-50 ",.02)
  1. ;;65862-0534-50
  1. ;;9002226.02101,"868,65862-0534-75 ",.01)
  1. ;;65862-0534-75
  1. ;;9002226.02101,"868,65862-0534-75 ",.02)
  1. ;;65862-0534-75
  1. ;;9002226.02101,"868,65862-0535-02 ",.01)
  1. ;;65862-0535-02
  1. ;;9002226.02101,"868,65862-0535-02 ",.02)
  1. ;;65862-0535-02
  1. ;;9002226.02101,"868,65862-0535-13 ",.01)
  1. ;;65862-0535-13
  1. ;;9002226.02101,"868,65862-0535-13 ",.02)
  1. ;;65862-0535-13
  1. ;;9002226.02101,"868,65862-0535-75 ",.01)
  1. ;;65862-0535-75
  1. ;;9002226.02101,"868,65862-0535-75 ",.02)
  1. ;;65862-0535-75
  1. ;;9002226.02101,"868,65862-0536-50 ",.01)
  1. ;;65862-0536-50
  1. ;;9002226.02101,"868,65862-0536-50 ",.02)
  1. ;;65862-0536-50
  1. ;;9002226.02101,"868,65862-0537-50 ",.01)
  1. ;;65862-0537-50
  1. ;;9002226.02101,"868,65862-0537-50 ",.02)
  1. ;;65862-0537-50
  1. ;;9002226.02101,"868,65862-0538-20 ",.01)
  1. ;;65862-0538-20
  1. ;;9002226.02101,"868,65862-0538-20 ",.02)
  1. ;;65862-0538-20
  1. ;;9002226.02101,"868,65862-0596-01 ",.01)
  1. ;;65862-0596-01
  1. ;;9002226.02101,"868,65862-0596-01 ",.02)
  1. ;;65862-0596-01
  1. ;;9002226.02101,"868,65862-0603-30 ",.01)
  1. ;;65862-0603-30
  1. ;;9002226.02101,"868,65862-0603-30 ",.02)
  1. ;;65862-0603-30
  1. ;;9002226.02101,"868,65862-0699-20 ",.01)
  1. ;;65862-0699-20
  1. ;;9002226.02101,"868,65862-0699-20 ",.02)
  1. ;;65862-0699-20
  1. ;;9002226.02101,"868,65862-0699-60 ",.01)
  1. ;;65862-0699-60
  1. ;;9002226.02101,"868,65862-0699-60 ",.02)
  1. ;;65862-0699-60
  1. ;;9002226.02101,"868,65862-0700-20 ",.01)
  1. ;;65862-0700-20
  1. ;;9002226.02101,"868,65862-0700-20 ",.02)
  1. ;;65862-0700-20
  1. ;;9002226.02101,"868,65862-0700-60 ",.01)
  1. ;;65862-0700-60
  1. ;;9002226.02101,"868,65862-0700-60 ",.02)
  1. ;;65862-0700-60
  1. ;;9002226.02101,"868,65862-0706-01 ",.01)
  1. ;;65862-0706-01
  1. ;;9002226.02101,"868,65862-0706-01 ",.02)
  1. ;;65862-0706-01
  1. ;;9002226.02101,"868,65862-0706-55 ",.01)
  1. ;;65862-0706-55
  1. ;;9002226.02101,"868,65862-0706-55 ",.02)
  1. ;;65862-0706-55
  1. ;;9002226.02101,"868,65862-0706-80 ",.01)
  1. ;;65862-0706-80
  1. ;;9002226.02101,"868,65862-0706-80 ",.02)
  1. ;;65862-0706-80
  1. ;;9002226.02101,"868,65862-0707-01 ",.01)
  1. ;;65862-0707-01
  1. ;;9002226.02101,"868,65862-0707-01 ",.02)
  1. ;;65862-0707-01
  1. ;;9002226.02101,"868,65862-0707-55 ",.01)
  1. ;;65862-0707-55
  1. ;;9002226.02101,"868,65862-0707-55 ",.02)
  1. ;;65862-0707-55
  1. ;;9002226.02101,"868,65862-0707-80 ",.01)
  1. ;;65862-0707-80
  1. ;;9002226.02101,"868,65862-0707-80 ",.02)
  1. ;;65862-0707-80
  1. ;;9002226.02101,"868,65862-0751-50 ",.01)
  1. ;;65862-0751-50
  1. ;;9002226.02101,"868,65862-0751-50 ",.02)
  1. ;;65862-0751-50
  1. ;;9002226.02101,"868,65862-0752-50 ",.01)
  1. ;;65862-0752-50
  1. ;;9002226.02101,"868,65862-0752-50 ",.02)
  1. ;;65862-0752-50
  1. ;;9002226.02101,"868,65862-0752-75 ",.01)
  1. ;;65862-0752-75
  1. ;;9002226.02101,"868,65862-0752-75 ",.02)
  1. ;;65862-0752-75
  1. ;;9002226.02101,"868,66105-0108-10 ",.01)
  1. ;;66105-0108-10
  1. ;;9002226.02101,"868,66105-0108-10 ",.02)
  1. ;;66105-0108-10
  1. ;;9002226.02101,"868,66105-0109-01 ",.01)
  1. ;;66105-0109-01
  1. ;;9002226.02101,"868,66105-0109-01 ",.02)
  1. ;;66105-0109-01
  1. ;;9002226.02101,"868,66105-0109-02 ",.01)
  1. ;;66105-0109-02
  1. ;;9002226.02101,"868,66105-0109-02 ",.02)
  1. ;;66105-0109-02
  1. ;;9002226.02101,"868,66105-0109-03 ",.01)
  1. ;;66105-0109-03
  1. ;;9002226.02101,"868,66105-0109-03 ",.02)
  1. ;;66105-0109-03
  1. ;;9002226.02101,"868,66105-0109-06 ",.01)
  1. ;;66105-0109-06
  1. ;;9002226.02101,"868,66105-0109-06 ",.02)
  1. ;;66105-0109-06
  1. ;;9002226.02101,"868,66105-0109-10 ",.01)
  1. ;;66105-0109-10
  1. ;;9002226.02101,"868,66105-0109-10 ",.02)
  1. ;;66105-0109-10
  1. ;;9002226.02101,"868,66105-0477-05 ",.01)
  1. ;;66105-0477-05
  1. ;;9002226.02101,"868,66105-0477-05 ",.02)
  1. ;;66105-0477-05
  1. ;;9002226.02101,"868,66105-0478-05 ",.01)
  1. ;;66105-0478-05
  1. ;;9002226.02101,"868,66105-0478-05 ",.02)
  1. ;;66105-0478-05
  1. ;;9002226.02101,"868,66105-0507-01 ",.01)
  1. ;;66105-0507-01
  1. ;;9002226.02101,"868,66105-0507-01 ",.02)
  1. ;;66105-0507-01
  1. ;;9002226.02101,"868,66105-0507-03 ",.01)
  1. ;;66105-0507-03
  1. ;;9002226.02101,"868,66105-0507-03 ",.02)
  1. ;;66105-0507-03
  1. ;;9002226.02101,"868,66105-0507-06 ",.01)
  1. ;;66105-0507-06
  1. ;;9002226.02101,"868,66105-0507-06 ",.02)
  1. ;;66105-0507-06
  1. ;;9002226.02101,"868,66105-0507-09 ",.01)
  1. ;;66105-0507-09
  1. ;;9002226.02101,"868,66105-0507-09 ",.02)
  1. ;;66105-0507-09
  1. ;;9002226.02101,"868,66105-0507-10 ",.01)
  1. ;;66105-0507-10
  1. ;;9002226.02101,"868,66105-0507-10 ",.02)
  1. ;;66105-0507-10
  1. ;;9002226.02101,"868,66105-0537-01 ",.01)
  1. ;;66105-0537-01
  1. ;;9002226.02101,"868,66105-0537-01 ",.02)
  1. ;;66105-0537-01
  1. ;;9002226.02101,"868,66105-0537-03 ",.01)
  1. ;;66105-0537-03
  1. ;;9002226.02101,"868,66105-0537-03 ",.02)
  1. ;;66105-0537-03
  1. ;;9002226.02101,"868,66105-0537-06 ",.01)
  1. ;;66105-0537-06
  1. ;;9002226.02101,"868,66105-0537-06 ",.02)
  1. ;;66105-0537-06
  1. ;;9002226.02101,"868,66105-0537-09 ",.01)
  1. ;;66105-0537-09
  1. ;;9002226.02101,"868,66105-0537-09 ",.02)
  1. ;;66105-0537-09
  1. ;;9002226.02101,"868,66105-0537-15 ",.01)
  1. ;;66105-0537-15
  1. ;;9002226.02101,"868,66105-0537-15 ",.02)
  1. ;;66105-0537-15
  1. ;;9002226.02101,"868,66105-0670-01 ",.01)
  1. ;;66105-0670-01
  1. ;;9002226.02101,"868,66105-0670-01 ",.02)
  1. ;;66105-0670-01
  1. ;;9002226.02101,"868,66105-0670-03 ",.01)
  1. ;;66105-0670-03
  1. ;;9002226.02101,"868,66105-0670-03 ",.02)
  1. ;;66105-0670-03
  1. ;;9002226.02101,"868,66105-0670-05 ",.01)
  1. ;;66105-0670-05
  1. ;;9002226.02101,"868,66105-0670-05 ",.02)
  1. ;;66105-0670-05
  1. ;;9002226.02101,"868,66105-0670-06 ",.01)
  1. ;;66105-0670-06
  1. ;;9002226.02101,"868,66105-0670-06 ",.02)
  1. ;;66105-0670-06
  1. ;;9002226.02101,"868,66105-0670-18 ",.01)
  1. ;;66105-0670-18
  1. ;;9002226.02101,"868,66105-0670-18 ",.02)
  1. ;;66105-0670-18
  1. ;;9002226.02101,"868,66105-0743-01 ",.01)
  1. ;;66105-0743-01
  1. ;;9002226.02101,"868,66105-0743-01 ",.02)
  1. ;;66105-0743-01
  1. ;;9002226.02101,"868,66105-0743-03 ",.01)
  1. ;;66105-0743-03
  1. ;;9002226.02101,"868,66105-0743-03 ",.02)
  1. ;;66105-0743-03
  1. ;;9002226.02101,"868,66105-0743-06 ",.01)
  1. ;;66105-0743-06
  1. ;;9002226.02101,"868,66105-0743-06 ",.02)
  1. ;;66105-0743-06
  1. ;;9002226.02101,"868,66105-0743-09 ",.01)
  1. ;;66105-0743-09
  1. ;;9002226.02101,"868,66105-0743-09 ",.02)
  1. ;;66105-0743-09
  1. ;;9002226.02101,"868,66105-0743-15 ",.01)
  1. ;;66105-0743-15
  1. ;;9002226.02101,"868,66105-0743-15 ",.02)
  1. ;;66105-0743-15
  1. ;;9002226.02101,"868,66105-0744-01 ",.01)
  1. ;;66105-0744-01
  1. ;;9002226.02101,"868,66105-0744-01 ",.02)
  1. ;;66105-0744-01
  1. ;;9002226.02101,"868,66105-0744-03 ",.01)
  1. ;;66105-0744-03
  1. ;;9002226.02101,"868,66105-0744-03 ",.02)
  1. ;;66105-0744-03
  1. ;;9002226.02101,"868,66105-0744-06 ",.01)
  1. ;;66105-0744-06
  1. ;;9002226.02101,"868,66105-0744-06 ",.02)
  1. ;;66105-0744-06
  1. ;;9002226.02101,"868,66105-0744-09 ",.01)
  1. ;;66105-0744-09
  1. ;;9002226.02101,"868,66105-0744-09 ",.02)
  1. ;;66105-0744-09
  1. ;;9002226.02101,"868,66105-0744-15 ",.01)
  1. ;;66105-0744-15
  1. ;;9002226.02101,"868,66105-0744-15 ",.02)
  1. ;;66105-0744-15
  1. ;;9002226.02101,"868,66105-0745-01 ",.01)
  1. ;;66105-0745-01
  1. ;;9002226.02101,"868,66105-0745-01 ",.02)
  1. ;;66105-0745-01
  1. ;;9002226.02101,"868,66105-0745-03 ",.01)
  1. ;;66105-0745-03
  1. ;;9002226.02101,"868,66105-0745-03 ",.02)
  1. ;;66105-0745-03
  1. ;;9002226.02101,"868,66105-0745-06 ",.01)
  1. ;;66105-0745-06
  1. ;;9002226.02101,"868,66105-0745-06 ",.02)
  1. ;;66105-0745-06
  1. ;;9002226.02101,"868,66105-0745-09 ",.01)
  1. ;;66105-0745-09
  1. ;;9002226.02101,"868,66105-0745-09 ",.02)
  1. ;;66105-0745-09
  1. ;;9002226.02101,"868,66105-0745-15 ",.01)
  1. ;;66105-0745-15
  1. ;;9002226.02101,"868,66105-0745-15 ",.02)
  1. ;;66105-0745-15
  1. ;;9002226.02101,"868,66267-0021-15 ",.01)
  1. ;;66267-0021-15
  1. ;;9002226.02101,"868,66267-0021-15 ",.02)
  1. ;;66267-0021-15
  1. ;;9002226.02101,"868,66267-0023-08 ",.01)
  1. ;;66267-0023-08
  1. ;;9002226.02101,"868,66267-0023-08 ",.02)
  1. ;;66267-0023-08
  1. ;;9002226.02101,"868,66267-0023-09 ",.01)
  1. ;;66267-0023-09
  1. ;;9002226.02101,"868,66267-0023-09 ",.02)
  1. ;;66267-0023-09
  1. ;;9002226.02101,"868,66267-0023-15 ",.01)
  1. ;;66267-0023-15
  1. ;;9002226.02101,"868,66267-0023-15 ",.02)
  1. ;;66267-0023-15
  1. ;;9002226.02101,"868,66267-0023-20 ",.01)
  1. ;;66267-0023-20
  1. ;;9002226.02101,"868,66267-0023-20 ",.02)
  1. ;;66267-0023-20
  1. ;;9002226.02101,"868,66267-0023-60 ",.01)
  1. ;;66267-0023-60
  1. ;;9002226.02101,"868,66267-0023-60 ",.02)
  1. ;;66267-0023-60
  1. ;;9002226.02101,"868,66267-0024-30 ",.01)
  1. ;;66267-0024-30
  1. ;;9002226.02101,"868,66267-0024-30 ",.02)
  1. ;;66267-0024-30
  1. ;;9002226.02101,"868,66267-0025-30 ",.01)
  1. ;;66267-0025-30
  1. ;;9002226.02101,"868,66267-0025-30 ",.02)
  1. ;;66267-0025-30
  1. ;;9002226.02101,"868,66267-0034-14 ",.01)
  1. ;;66267-0034-14
  1. ;;9002226.02101,"868,66267-0034-14 ",.02)
  1. ;;66267-0034-14
  1. ;;9002226.02101,"868,66267-0034-20 ",.01)
  1. ;;66267-0034-20
  1. ;;9002226.02101,"868,66267-0034-20 ",.02)
  1. ;;66267-0034-20
  1. ;;9002226.02101,"868,66267-0045-30 ",.01)
  1. ;;66267-0045-30