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

BGP82H18.m

Go to the documentation of this file.
BGP82H18 ; 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,"1218,51079-0812-20 ",.01)
 ;;51079-0812-20
 ;;9002226.02101,"1218,51079-0812-20 ",.02)
 ;;51079-0812-20
 ;;9002226.02101,"1218,51079-0813-01 ",.01)
 ;;51079-0813-01
 ;;9002226.02101,"1218,51079-0813-01 ",.02)
 ;;51079-0813-01
 ;;9002226.02101,"1218,51079-0813-20 ",.01)
 ;;51079-0813-20
 ;;9002226.02101,"1218,51079-0813-20 ",.02)
 ;;51079-0813-20
 ;;9002226.02101,"1218,51079-0928-01 ",.01)
 ;;51079-0928-01
 ;;9002226.02101,"1218,51079-0928-01 ",.02)
 ;;51079-0928-01
 ;;9002226.02101,"1218,51079-0928-20 ",.01)
 ;;51079-0928-20
 ;;9002226.02101,"1218,51079-0928-20 ",.02)
 ;;51079-0928-20
 ;;9002226.02101,"1218,51079-0929-01 ",.01)
 ;;51079-0929-01
 ;;9002226.02101,"1218,51079-0929-01 ",.02)
 ;;51079-0929-01
 ;;9002226.02101,"1218,51079-0929-20 ",.01)
 ;;51079-0929-20
 ;;9002226.02101,"1218,51079-0929-20 ",.02)
 ;;51079-0929-20
 ;;9002226.02101,"1218,51079-0930-01 ",.01)
 ;;51079-0930-01
 ;;9002226.02101,"1218,51079-0930-01 ",.02)
 ;;51079-0930-01
 ;;9002226.02101,"1218,51079-0930-17 ",.01)
 ;;51079-0930-17
 ;;9002226.02101,"1218,51079-0930-17 ",.02)
 ;;51079-0930-17
 ;;9002226.02101,"1218,51079-0930-19 ",.01)
 ;;51079-0930-19
 ;;9002226.02101,"1218,51079-0930-19 ",.02)
 ;;51079-0930-19
 ;;9002226.02101,"1218,51079-0930-20 ",.01)
 ;;51079-0930-20
 ;;9002226.02101,"1218,51079-0930-20 ",.02)
 ;;51079-0930-20
 ;;9002226.02101,"1218,51079-0931-01 ",.01)
 ;;51079-0931-01
 ;;9002226.02101,"1218,51079-0931-01 ",.02)
 ;;51079-0931-01
 ;;9002226.02101,"1218,51079-0931-17 ",.01)
 ;;51079-0931-17
 ;;9002226.02101,"1218,51079-0931-17 ",.02)
 ;;51079-0931-17
 ;;9002226.02101,"1218,51079-0931-19 ",.01)
 ;;51079-0931-19
 ;;9002226.02101,"1218,51079-0931-19 ",.02)
 ;;51079-0931-19
 ;;9002226.02101,"1218,51079-0931-20 ",.01)
 ;;51079-0931-20
 ;;9002226.02101,"1218,51079-0931-20 ",.02)
 ;;51079-0931-20
 ;;9002226.02101,"1218,51079-0932-01 ",.01)
 ;;51079-0932-01
 ;;9002226.02101,"1218,51079-0932-01 ",.02)
 ;;51079-0932-01
 ;;9002226.02101,"1218,51079-0932-20 ",.01)
 ;;51079-0932-20
 ;;9002226.02101,"1218,51079-0932-20 ",.02)
 ;;51079-0932-20
 ;;9002226.02101,"1218,51138-0096-30 ",.01)
 ;;51138-0096-30
 ;;9002226.02101,"1218,51138-0096-30 ",.02)
 ;;51138-0096-30
 ;;9002226.02101,"1218,51138-0097-30 ",.01)
 ;;51138-0097-30
 ;;9002226.02101,"1218,51138-0097-30 ",.02)
 ;;51138-0097-30
 ;;9002226.02101,"1218,51138-0098-30 ",.01)
 ;;51138-0098-30
 ;;9002226.02101,"1218,51138-0098-30 ",.02)
 ;;51138-0098-30
 ;;9002226.02101,"1218,51138-0106-30 ",.01)
 ;;51138-0106-30
 ;;9002226.02101,"1218,51138-0106-30 ",.02)
 ;;51138-0106-30
 ;;9002226.02101,"1218,51138-0107-30 ",.01)
 ;;51138-0107-30
 ;;9002226.02101,"1218,51138-0107-30 ",.02)
 ;;51138-0107-30
 ;;9002226.02101,"1218,51138-0108-30 ",.01)
 ;;51138-0108-30
 ;;9002226.02101,"1218,51138-0108-30 ",.02)
 ;;51138-0108-30
 ;;9002226.02101,"1218,51138-0109-30 ",.01)
 ;;51138-0109-30
 ;;9002226.02101,"1218,51138-0109-30 ",.02)
 ;;51138-0109-30
 ;;9002226.02101,"1218,51285-0040-01 ",.01)
 ;;51285-0040-01
 ;;9002226.02101,"1218,51285-0040-01 ",.02)
 ;;51285-0040-01
 ;;9002226.02101,"1218,51285-0047-02 ",.01)
 ;;51285-0047-02
 ;;9002226.02101,"1218,51285-0047-02 ",.02)
 ;;51285-0047-02
 ;;9002226.02101,"1218,51285-0050-02 ",.01)
 ;;51285-0050-02
 ;;9002226.02101,"1218,51285-0050-02 ",.02)
 ;;51285-0050-02
 ;;9002226.02101,"1218,51285-0060-01 ",.01)
 ;;51285-0060-01
 ;;9002226.02101,"1218,51285-0060-01 ",.02)
 ;;51285-0060-01
 ;;9002226.02101,"1218,51285-0061-01 ",.01)
 ;;51285-0061-01
 ;;9002226.02101,"1218,51285-0061-01 ",.02)
 ;;51285-0061-01
 ;;9002226.02101,"1218,51552-1440-03 ",.01)
 ;;51552-1440-03
 ;;9002226.02101,"1218,51552-1440-03 ",.02)
 ;;51552-1440-03
 ;;9002226.02101,"1218,51655-0530-24 ",.01)
 ;;51655-0530-24
 ;;9002226.02101,"1218,51655-0530-24 ",.02)
 ;;51655-0530-24
 ;;9002226.02101,"1218,51991-0817-01 ",.01)
 ;;51991-0817-01
 ;;9002226.02101,"1218,51991-0817-01 ",.02)
 ;;51991-0817-01
 ;;9002226.02101,"1218,51991-0817-05 ",.01)
 ;;51991-0817-05
 ;;9002226.02101,"1218,51991-0817-05 ",.02)
 ;;51991-0817-05
 ;;9002226.02101,"1218,51991-0818-01 ",.01)
 ;;51991-0818-01
 ;;9002226.02101,"1218,51991-0818-01 ",.02)
 ;;51991-0818-01
 ;;9002226.02101,"1218,51991-0818-05 ",.01)
 ;;51991-0818-05
 ;;9002226.02101,"1218,51991-0818-05 ",.02)
 ;;51991-0818-05
 ;;9002226.02101,"1218,51991-0819-01 ",.01)
 ;;51991-0819-01
 ;;9002226.02101,"1218,51991-0819-01 ",.02)
 ;;51991-0819-01
 ;;9002226.02101,"1218,51991-0819-05 ",.01)
 ;;51991-0819-05
 ;;9002226.02101,"1218,51991-0819-05 ",.02)
 ;;51991-0819-05
 ;;9002226.02101,"1218,51991-0820-01 ",.01)
 ;;51991-0820-01
 ;;9002226.02101,"1218,51991-0820-01 ",.02)
 ;;51991-0820-01
 ;;9002226.02101,"1218,51991-0820-05 ",.01)
 ;;51991-0820-05
 ;;9002226.02101,"1218,51991-0820-05 ",.02)
 ;;51991-0820-05
 ;;9002226.02101,"1218,52244-0450-10 ",.01)
 ;;52244-0450-10
 ;;9002226.02101,"1218,52244-0450-10 ",.02)
 ;;52244-0450-10
 ;;9002226.02101,"1218,52343-0026-01 ",.01)
 ;;52343-0026-01
 ;;9002226.02101,"1218,52343-0026-01 ",.02)
 ;;52343-0026-01
 ;;9002226.02101,"1218,52343-0026-05 ",.01)
 ;;52343-0026-05
 ;;9002226.02101,"1218,52343-0026-05 ",.02)
 ;;52343-0026-05
 ;;9002226.02101,"1218,52343-0027-01 ",.01)
 ;;52343-0027-01
 ;;9002226.02101,"1218,52343-0027-01 ",.02)
 ;;52343-0027-01
 ;;9002226.02101,"1218,52343-0027-05 ",.01)
 ;;52343-0027-05
 ;;9002226.02101,"1218,52343-0027-05 ",.02)
 ;;52343-0027-05
 ;;9002226.02101,"1218,52343-0028-01 ",.01)
 ;;52343-0028-01
 ;;9002226.02101,"1218,52343-0028-01 ",.02)
 ;;52343-0028-01
 ;;9002226.02101,"1218,52343-0028-05 ",.01)
 ;;52343-0028-05
 ;;9002226.02101,"1218,52343-0028-05 ",.02)
 ;;52343-0028-05
 ;;9002226.02101,"1218,52343-0029-01 ",.01)
 ;;52343-0029-01
 ;;9002226.02101,"1218,52343-0029-01 ",.02)
 ;;52343-0029-01
 ;;9002226.02101,"1218,52343-0029-05 ",.01)
 ;;52343-0029-05
 ;;9002226.02101,"1218,52343-0029-05 ",.02)
 ;;52343-0029-05
 ;;9002226.02101,"1218,52343-0059-01 ",.01)
 ;;52343-0059-01
 ;;9002226.02101,"1218,52343-0059-01 ",.02)
 ;;52343-0059-01
 ;;9002226.02101,"1218,52343-0059-99 ",.01)
 ;;52343-0059-99
 ;;9002226.02101,"1218,52343-0059-99 ",.02)
 ;;52343-0059-99
 ;;9002226.02101,"1218,52343-0060-01 ",.01)
 ;;52343-0060-01
 ;;9002226.02101,"1218,52343-0060-01 ",.02)
 ;;52343-0060-01
 ;;9002226.02101,"1218,52343-0060-99 ",.01)
 ;;52343-0060-99
 ;;9002226.02101,"1218,52343-0060-99 ",.02)
 ;;52343-0060-99
 ;;9002226.02101,"1218,52343-0061-01 ",.01)
 ;;52343-0061-01
 ;;9002226.02101,"1218,52343-0061-01 ",.02)
 ;;52343-0061-01
 ;;9002226.02101,"1218,52343-0061-99 ",.01)
 ;;52343-0061-99
 ;;9002226.02101,"1218,52343-0061-99 ",.02)
 ;;52343-0061-99
 ;;9002226.02101,"1218,52427-0382-90 ",.01)
 ;;52427-0382-90
 ;;9002226.02101,"1218,52427-0382-90 ",.02)
 ;;52427-0382-90
 ;;9002226.02101,"1218,52427-0383-90 ",.01)
 ;;52427-0383-90
 ;;9002226.02101,"1218,52427-0383-90 ",.02)
 ;;52427-0383-90
 ;;9002226.02101,"1218,52427-0429-90 ",.01)
 ;;52427-0429-90
 ;;9002226.02101,"1218,52427-0429-90 ",.02)
 ;;52427-0429-90
 ;;9002226.02101,"1218,52427-0430-90 ",.01)
 ;;52427-0430-90
 ;;9002226.02101,"1218,52427-0430-90 ",.02)
 ;;52427-0430-90
 ;;9002226.02101,"1218,52427-0431-90 ",.01)
 ;;52427-0431-90
 ;;9002226.02101,"1218,52427-0431-90 ",.02)
 ;;52427-0431-90
 ;;9002226.02101,"1218,52959-0212-01 ",.01)
 ;;52959-0212-01
 ;;9002226.02101,"1218,52959-0212-01 ",.02)
 ;;52959-0212-01
 ;;9002226.02101,"1218,52959-0212-10 ",.01)
 ;;52959-0212-10
 ;;9002226.02101,"1218,52959-0212-10 ",.02)
 ;;52959-0212-10
 ;;9002226.02101,"1218,52959-0212-20 ",.01)
 ;;52959-0212-20
 ;;9002226.02101,"1218,52959-0212-20 ",.02)
 ;;52959-0212-20
 ;;9002226.02101,"1218,52959-0212-45 ",.01)
 ;;52959-0212-45
 ;;9002226.02101,"1218,52959-0212-45 ",.02)
 ;;52959-0212-45
 ;;9002226.02101,"1218,52959-0212-50 ",.01)
 ;;52959-0212-50
 ;;9002226.02101,"1218,52959-0212-50 ",.02)
 ;;52959-0212-50
 ;;9002226.02101,"1218,52959-0212-60 ",.01)
 ;;52959-0212-60
 ;;9002226.02101,"1218,52959-0212-60 ",.02)
 ;;52959-0212-60
 ;;9002226.02101,"1218,52959-0241-30 ",.01)
 ;;52959-0241-30
 ;;9002226.02101,"1218,52959-0241-30 ",.02)
 ;;52959-0241-30
 ;;9002226.02101,"1218,52959-0253-00 ",.01)
 ;;52959-0253-00
 ;;9002226.02101,"1218,52959-0253-00 ",.02)
 ;;52959-0253-00
 ;;9002226.02101,"1218,52959-0253-20 ",.01)
 ;;52959-0253-20
 ;;9002226.02101,"1218,52959-0253-20 ",.02)
 ;;52959-0253-20
 ;;9002226.02101,"1218,52959-0253-30 ",.01)
 ;;52959-0253-30
 ;;9002226.02101,"1218,52959-0253-30 ",.02)
 ;;52959-0253-30
 ;;9002226.02101,"1218,52959-0253-40 ",.01)
 ;;52959-0253-40
 ;;9002226.02101,"1218,52959-0253-40 ",.02)
 ;;52959-0253-40
 ;;9002226.02101,"1218,52959-0258-30 ",.01)
 ;;52959-0258-30
 ;;9002226.02101,"1218,52959-0258-30 ",.02)
 ;;52959-0258-30
 ;;9002226.02101,"1218,52959-0258-60 ",.01)
 ;;52959-0258-60
 ;;9002226.02101,"1218,52959-0258-60 ",.02)
 ;;52959-0258-60
 ;;9002226.02101,"1218,52959-0280-30 ",.01)
 ;;52959-0280-30
 ;;9002226.02101,"1218,52959-0280-30 ",.02)
 ;;52959-0280-30
 ;;9002226.02101,"1218,52959-0337-10 ",.01)
 ;;52959-0337-10
 ;;9002226.02101,"1218,52959-0337-10 ",.02)
 ;;52959-0337-10
 ;;9002226.02101,"1218,52959-0337-30 ",.01)
 ;;52959-0337-30
 ;;9002226.02101,"1218,52959-0337-30 ",.02)
 ;;52959-0337-30
 ;;9002226.02101,"1218,52959-0463-01 ",.01)
 ;;52959-0463-01
 ;;9002226.02101,"1218,52959-0463-01 ",.02)
 ;;52959-0463-01
 ;;9002226.02101,"1218,52959-0463-30 ",.01)
 ;;52959-0463-30
 ;;9002226.02101,"1218,52959-0463-30 ",.02)
 ;;52959-0463-30
 ;;9002226.02101,"1218,52959-0463-60 ",.01)
 ;;52959-0463-60
 ;;9002226.02101,"1218,52959-0463-60 ",.02)
 ;;52959-0463-60
 ;;9002226.02101,"1218,52959-0543-30 ",.01)
 ;;52959-0543-30
 ;;9002226.02101,"1218,52959-0543-30 ",.02)
 ;;52959-0543-30
 ;;9002226.02101,"1218,52959-0827-30 ",.01)
 ;;52959-0827-30
 ;;9002226.02101,"1218,52959-0827-30 ",.02)
 ;;52959-0827-30
 ;;9002226.02101,"1218,52959-0839-30 ",.01)
 ;;52959-0839-30
 ;;9002226.02101,"1218,52959-0839-30 ",.02)
 ;;52959-0839-30
 ;;9002226.02101,"1218,52959-0839-60 ",.01)
 ;;52959-0839-60
 ;;9002226.02101,"1218,52959-0839-60 ",.02)
 ;;52959-0839-60
 ;;9002226.02101,"1218,52959-0895-60 ",.01)
 ;;52959-0895-60
 ;;9002226.02101,"1218,52959-0895-60 ",.02)
 ;;52959-0895-60
 ;;9002226.02101,"1218,53002-1004-00 ",.01)
 ;;53002-1004-00
 ;;9002226.02101,"1218,53002-1004-00 ",.02)
 ;;53002-1004-00
 ;;9002226.02101,"1218,53002-1004-03 ",.01)
 ;;53002-1004-03
 ;;9002226.02101,"1218,53002-1004-03 ",.02)
 ;;53002-1004-03
 ;;9002226.02101,"1218,53002-1004-06 ",.01)
 ;;53002-1004-06
 ;;9002226.02101,"1218,53002-1004-06 ",.02)
 ;;53002-1004-06
 ;;9002226.02101,"1218,53002-1108-00 ",.01)
 ;;53002-1108-00
 ;;9002226.02101,"1218,53002-1108-00 ",.02)
 ;;53002-1108-00
 ;;9002226.02101,"1218,53002-1108-03 ",.01)
 ;;53002-1108-03
 ;;9002226.02101,"1218,53002-1108-03 ",.02)
 ;;53002-1108-03
 ;;9002226.02101,"1218,53002-1108-06 ",.01)
 ;;53002-1108-06
 ;;9002226.02101,"1218,53002-1108-06 ",.02)
 ;;53002-1108-06
 ;;9002226.02101,"1218,53002-1138-00 ",.01)
 ;;53002-1138-00
 ;;9002226.02101,"1218,53002-1138-00 ",.02)
 ;;53002-1138-00
 ;;9002226.02101,"1218,53002-1138-03 ",.01)
 ;;53002-1138-03
 ;;9002226.02101,"1218,53002-1138-03 ",.02)
 ;;53002-1138-03
 ;;9002226.02101,"1218,53002-1138-06 ",.01)
 ;;53002-1138-06
 ;;9002226.02101,"1218,53002-1138-06 ",.02)
 ;;53002-1138-06
 ;;9002226.02101,"1218,53217-0181-00 ",.01)
 ;;53217-0181-00
 ;;9002226.02101,"1218,53217-0181-00 ",.02)
 ;;53217-0181-00
 ;;9002226.02101,"1218,53217-0181-30 ",.01)
 ;;53217-0181-30
 ;;9002226.02101,"1218,53217-0181-30 ",.02)
 ;;53217-0181-30
 ;;9002226.02101,"1218,53217-0181-90 ",.01)
 ;;53217-0181-90