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

BGP83A31.m

Go to the documentation of this file.
BGP83A31 ; 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,"1828,55289-0091-60 ",.02)
 ;;55289-0091-60
 ;;9002226.02101,"1828,55289-0091-90 ",.01)
 ;;55289-0091-90
 ;;9002226.02101,"1828,55289-0091-90 ",.02)
 ;;55289-0091-90
 ;;9002226.02101,"1828,55289-0092-01 ",.01)
 ;;55289-0092-01
 ;;9002226.02101,"1828,55289-0092-01 ",.02)
 ;;55289-0092-01
 ;;9002226.02101,"1828,55289-0092-02 ",.01)
 ;;55289-0092-02
 ;;9002226.02101,"1828,55289-0092-02 ",.02)
 ;;55289-0092-02
 ;;9002226.02101,"1828,55289-0092-06 ",.01)
 ;;55289-0092-06
 ;;9002226.02101,"1828,55289-0092-06 ",.02)
 ;;55289-0092-06
 ;;9002226.02101,"1828,55289-0092-10 ",.01)
 ;;55289-0092-10
 ;;9002226.02101,"1828,55289-0092-10 ",.02)
 ;;55289-0092-10
 ;;9002226.02101,"1828,55289-0092-20 ",.01)
 ;;55289-0092-20
 ;;9002226.02101,"1828,55289-0092-20 ",.02)
 ;;55289-0092-20
 ;;9002226.02101,"1828,55289-0092-25 ",.01)
 ;;55289-0092-25
 ;;9002226.02101,"1828,55289-0092-25 ",.02)
 ;;55289-0092-25
 ;;9002226.02101,"1828,55289-0092-30 ",.01)
 ;;55289-0092-30
 ;;9002226.02101,"1828,55289-0092-30 ",.02)
 ;;55289-0092-30
 ;;9002226.02101,"1828,55289-0092-40 ",.01)
 ;;55289-0092-40
 ;;9002226.02101,"1828,55289-0092-40 ",.02)
 ;;55289-0092-40
 ;;9002226.02101,"1828,55289-0092-60 ",.01)
 ;;55289-0092-60
 ;;9002226.02101,"1828,55289-0092-60 ",.02)
 ;;55289-0092-60
 ;;9002226.02101,"1828,55289-0092-90 ",.01)
 ;;55289-0092-90
 ;;9002226.02101,"1828,55289-0092-90 ",.02)
 ;;55289-0092-90
 ;;9002226.02101,"1828,55289-0092-98 ",.01)
 ;;55289-0092-98
 ;;9002226.02101,"1828,55289-0092-98 ",.02)
 ;;55289-0092-98
 ;;9002226.02101,"1828,55289-0117-06 ",.01)
 ;;55289-0117-06
 ;;9002226.02101,"1828,55289-0117-06 ",.02)
 ;;55289-0117-06
 ;;9002226.02101,"1828,55289-0117-12 ",.01)
 ;;55289-0117-12
 ;;9002226.02101,"1828,55289-0117-12 ",.02)
 ;;55289-0117-12
 ;;9002226.02101,"1828,55289-0117-20 ",.01)
 ;;55289-0117-20
 ;;9002226.02101,"1828,55289-0117-20 ",.02)
 ;;55289-0117-20
 ;;9002226.02101,"1828,55289-0196-01 ",.01)
 ;;55289-0196-01
 ;;9002226.02101,"1828,55289-0196-01 ",.02)
 ;;55289-0196-01
 ;;9002226.02101,"1828,55289-0196-14 ",.01)
 ;;55289-0196-14
 ;;9002226.02101,"1828,55289-0196-14 ",.02)
 ;;55289-0196-14
 ;;9002226.02101,"1828,55289-0196-30 ",.01)
 ;;55289-0196-30
 ;;9002226.02101,"1828,55289-0196-30 ",.02)
 ;;55289-0196-30
 ;;9002226.02101,"1828,55289-0196-60 ",.01)
 ;;55289-0196-60
 ;;9002226.02101,"1828,55289-0196-60 ",.02)
 ;;55289-0196-60
 ;;9002226.02101,"1828,55289-0196-90 ",.01)
 ;;55289-0196-90
 ;;9002226.02101,"1828,55289-0196-90 ",.02)
 ;;55289-0196-90
 ;;9002226.02101,"1828,55289-0345-30 ",.01)
 ;;55289-0345-30
 ;;9002226.02101,"1828,55289-0345-30 ",.02)
 ;;55289-0345-30
 ;;9002226.02101,"1828,55289-0346-10 ",.01)
 ;;55289-0346-10
 ;;9002226.02101,"1828,55289-0346-10 ",.02)
 ;;55289-0346-10
 ;;9002226.02101,"1828,55289-0346-20 ",.01)
 ;;55289-0346-20
 ;;9002226.02101,"1828,55289-0346-20 ",.02)
 ;;55289-0346-20
 ;;9002226.02101,"1828,55289-0346-30 ",.01)
 ;;55289-0346-30
 ;;9002226.02101,"1828,55289-0346-30 ",.02)
 ;;55289-0346-30
 ;;9002226.02101,"1828,55289-0402-30 ",.01)
 ;;55289-0402-30
 ;;9002226.02101,"1828,55289-0402-30 ",.02)
 ;;55289-0402-30
 ;;9002226.02101,"1828,55289-0402-90 ",.01)
 ;;55289-0402-90
 ;;9002226.02101,"1828,55289-0402-90 ",.02)
 ;;55289-0402-90
 ;;9002226.02101,"1828,55289-0487-02 ",.01)
 ;;55289-0487-02
 ;;9002226.02101,"1828,55289-0487-02 ",.02)
 ;;55289-0487-02
 ;;9002226.02101,"1828,55289-0487-04 ",.01)
 ;;55289-0487-04
 ;;9002226.02101,"1828,55289-0487-04 ",.02)
 ;;55289-0487-04
 ;;9002226.02101,"1828,55289-0487-06 ",.01)
 ;;55289-0487-06
 ;;9002226.02101,"1828,55289-0487-06 ",.02)
 ;;55289-0487-06
 ;;9002226.02101,"1828,55289-0487-08 ",.01)
 ;;55289-0487-08
 ;;9002226.02101,"1828,55289-0487-08 ",.02)
 ;;55289-0487-08
 ;;9002226.02101,"1828,55289-0487-09 ",.01)
 ;;55289-0487-09
 ;;9002226.02101,"1828,55289-0487-09 ",.02)
 ;;55289-0487-09
 ;;9002226.02101,"1828,55289-0487-15 ",.01)
 ;;55289-0487-15
 ;;9002226.02101,"1828,55289-0487-15 ",.02)
 ;;55289-0487-15
 ;;9002226.02101,"1828,55289-0487-20 ",.01)
 ;;55289-0487-20
 ;;9002226.02101,"1828,55289-0487-20 ",.02)
 ;;55289-0487-20
 ;;9002226.02101,"1828,55289-0487-30 ",.01)
 ;;55289-0487-30
 ;;9002226.02101,"1828,55289-0487-30 ",.02)
 ;;55289-0487-30
 ;;9002226.02101,"1828,55289-0487-60 ",.01)
 ;;55289-0487-60
 ;;9002226.02101,"1828,55289-0487-60 ",.02)
 ;;55289-0487-60
 ;;9002226.02101,"1828,55289-0487-79 ",.01)
 ;;55289-0487-79
 ;;9002226.02101,"1828,55289-0487-79 ",.02)
 ;;55289-0487-79
 ;;9002226.02101,"1828,55289-0487-90 ",.01)
 ;;55289-0487-90
 ;;9002226.02101,"1828,55289-0487-90 ",.02)
 ;;55289-0487-90
 ;;9002226.02101,"1828,55289-0487-98 ",.01)
 ;;55289-0487-98
 ;;9002226.02101,"1828,55289-0487-98 ",.02)
 ;;55289-0487-98
 ;;9002226.02101,"1828,55289-0523-01 ",.01)
 ;;55289-0523-01
 ;;9002226.02101,"1828,55289-0523-01 ",.02)
 ;;55289-0523-01
 ;;9002226.02101,"1828,55289-0523-30 ",.01)
 ;;55289-0523-30
 ;;9002226.02101,"1828,55289-0523-30 ",.02)
 ;;55289-0523-30
 ;;9002226.02101,"1828,55289-0523-40 ",.01)
 ;;55289-0523-40
 ;;9002226.02101,"1828,55289-0523-40 ",.02)
 ;;55289-0523-40
 ;;9002226.02101,"1828,55289-0523-60 ",.01)
 ;;55289-0523-60
 ;;9002226.02101,"1828,55289-0523-60 ",.02)
 ;;55289-0523-60
 ;;9002226.02101,"1828,55289-0523-90 ",.01)
 ;;55289-0523-90
 ;;9002226.02101,"1828,55289-0523-90 ",.02)
 ;;55289-0523-90
 ;;9002226.02101,"1828,55289-0562-30 ",.01)
 ;;55289-0562-30
 ;;9002226.02101,"1828,55289-0562-30 ",.02)
 ;;55289-0562-30
 ;;9002226.02101,"1828,55289-0562-60 ",.01)
 ;;55289-0562-60
 ;;9002226.02101,"1828,55289-0562-60 ",.02)
 ;;55289-0562-60
 ;;9002226.02101,"1828,55289-0562-90 ",.01)
 ;;55289-0562-90
 ;;9002226.02101,"1828,55289-0562-90 ",.02)
 ;;55289-0562-90
 ;;9002226.02101,"1828,55289-0562-98 ",.01)
 ;;55289-0562-98
 ;;9002226.02101,"1828,55289-0562-98 ",.02)
 ;;55289-0562-98
 ;;9002226.02101,"1828,55289-0594-01 ",.01)
 ;;55289-0594-01
 ;;9002226.02101,"1828,55289-0594-01 ",.02)
 ;;55289-0594-01
 ;;9002226.02101,"1828,55289-0594-30 ",.01)
 ;;55289-0594-30
 ;;9002226.02101,"1828,55289-0594-30 ",.02)
 ;;55289-0594-30
 ;;9002226.02101,"1828,55289-0594-60 ",.01)
 ;;55289-0594-60
 ;;9002226.02101,"1828,55289-0594-60 ",.02)
 ;;55289-0594-60
 ;;9002226.02101,"1828,55289-0594-90 ",.01)
 ;;55289-0594-90
 ;;9002226.02101,"1828,55289-0594-90 ",.02)
 ;;55289-0594-90
 ;;9002226.02101,"1828,55289-0599-14 ",.01)
 ;;55289-0599-14
 ;;9002226.02101,"1828,55289-0599-14 ",.02)
 ;;55289-0599-14
 ;;9002226.02101,"1828,55289-0599-21 ",.01)
 ;;55289-0599-21
 ;;9002226.02101,"1828,55289-0599-21 ",.02)
 ;;55289-0599-21
 ;;9002226.02101,"1828,55289-0599-30 ",.01)
 ;;55289-0599-30
 ;;9002226.02101,"1828,55289-0599-30 ",.02)
 ;;55289-0599-30
 ;;9002226.02101,"1828,55289-0599-60 ",.01)
 ;;55289-0599-60
 ;;9002226.02101,"1828,55289-0599-60 ",.02)
 ;;55289-0599-60
 ;;9002226.02101,"1828,55289-0599-90 ",.01)
 ;;55289-0599-90
 ;;9002226.02101,"1828,55289-0599-90 ",.02)
 ;;55289-0599-90
 ;;9002226.02101,"1828,55289-0660-01 ",.01)
 ;;55289-0660-01
 ;;9002226.02101,"1828,55289-0660-01 ",.02)
 ;;55289-0660-01
 ;;9002226.02101,"1828,55289-0660-30 ",.01)
 ;;55289-0660-30
 ;;9002226.02101,"1828,55289-0660-30 ",.02)
 ;;55289-0660-30
 ;;9002226.02101,"1828,55289-0660-60 ",.01)
 ;;55289-0660-60
 ;;9002226.02101,"1828,55289-0660-60 ",.02)
 ;;55289-0660-60
 ;;9002226.02101,"1828,55289-0660-90 ",.01)
 ;;55289-0660-90
 ;;9002226.02101,"1828,55289-0660-90 ",.02)
 ;;55289-0660-90
 ;;9002226.02101,"1828,55289-0787-02 ",.01)
 ;;55289-0787-02
 ;;9002226.02101,"1828,55289-0787-02 ",.02)
 ;;55289-0787-02
 ;;9002226.02101,"1828,55289-0787-30 ",.01)
 ;;55289-0787-30
 ;;9002226.02101,"1828,55289-0787-30 ",.02)
 ;;55289-0787-30
 ;;9002226.02101,"1828,55289-0787-60 ",.01)
 ;;55289-0787-60
 ;;9002226.02101,"1828,55289-0787-60 ",.02)
 ;;55289-0787-60
 ;;9002226.02101,"1828,55289-0790-02 ",.01)
 ;;55289-0790-02
 ;;9002226.02101,"1828,55289-0790-02 ",.02)
 ;;55289-0790-02
 ;;9002226.02101,"1828,55289-0920-06 ",.01)
 ;;55289-0920-06
 ;;9002226.02101,"1828,55289-0920-06 ",.02)
 ;;55289-0920-06
 ;;9002226.02101,"1828,55289-0920-30 ",.01)
 ;;55289-0920-30
 ;;9002226.02101,"1828,55289-0920-30 ",.02)
 ;;55289-0920-30
 ;;9002226.02101,"1828,55289-0920-40 ",.01)
 ;;55289-0920-40
 ;;9002226.02101,"1828,55289-0920-40 ",.02)
 ;;55289-0920-40
 ;;9002226.02101,"1828,55289-0920-60 ",.01)
 ;;55289-0920-60
 ;;9002226.02101,"1828,55289-0920-60 ",.02)
 ;;55289-0920-60
 ;;9002226.02101,"1828,55289-0920-90 ",.01)
 ;;55289-0920-90
 ;;9002226.02101,"1828,55289-0920-90 ",.02)
 ;;55289-0920-90
 ;;9002226.02101,"1828,55289-0920-98 ",.01)
 ;;55289-0920-98
 ;;9002226.02101,"1828,55289-0920-98 ",.02)
 ;;55289-0920-98
 ;;9002226.02101,"1828,55289-0945-06 ",.01)
 ;;55289-0945-06
 ;;9002226.02101,"1828,55289-0945-06 ",.02)
 ;;55289-0945-06
 ;;9002226.02101,"1828,55289-0945-15 ",.01)
 ;;55289-0945-15
 ;;9002226.02101,"1828,55289-0945-15 ",.02)
 ;;55289-0945-15
 ;;9002226.02101,"1828,55289-0945-30 ",.01)
 ;;55289-0945-30
 ;;9002226.02101,"1828,55289-0945-30 ",.02)
 ;;55289-0945-30
 ;;9002226.02101,"1828,55289-0945-60 ",.01)
 ;;55289-0945-60
 ;;9002226.02101,"1828,55289-0945-60 ",.02)
 ;;55289-0945-60
 ;;9002226.02101,"1828,55289-0945-90 ",.01)
 ;;55289-0945-90
 ;;9002226.02101,"1828,55289-0945-90 ",.02)
 ;;55289-0945-90
 ;;9002226.02101,"1828,55289-0945-98 ",.01)
 ;;55289-0945-98
 ;;9002226.02101,"1828,55289-0945-98 ",.02)
 ;;55289-0945-98
 ;;9002226.02101,"1828,55289-0962-05 ",.01)
 ;;55289-0962-05
 ;;9002226.02101,"1828,55289-0962-05 ",.02)
 ;;55289-0962-05
 ;;9002226.02101,"1828,55289-0962-20 ",.01)
 ;;55289-0962-20
 ;;9002226.02101,"1828,55289-0962-20 ",.02)
 ;;55289-0962-20
 ;;9002226.02101,"1828,55289-0962-30 ",.01)
 ;;55289-0962-30
 ;;9002226.02101,"1828,55289-0962-30 ",.02)
 ;;55289-0962-30
 ;;9002226.02101,"1828,55289-0962-60 ",.01)
 ;;55289-0962-60
 ;;9002226.02101,"1828,55289-0962-60 ",.02)
 ;;55289-0962-60
 ;;9002226.02101,"1828,55289-0962-90 ",.01)
 ;;55289-0962-90
 ;;9002226.02101,"1828,55289-0962-90 ",.02)
 ;;55289-0962-90
 ;;9002226.02101,"1828,55289-0962-98 ",.01)
 ;;55289-0962-98
 ;;9002226.02101,"1828,55289-0962-98 ",.02)
 ;;55289-0962-98
 ;;9002226.02101,"1828,55289-0979-20 ",.01)
 ;;55289-0979-20
 ;;9002226.02101,"1828,55289-0979-20 ",.02)
 ;;55289-0979-20
 ;;9002226.02101,"1828,55289-0979-30 ",.01)
 ;;55289-0979-30
 ;;9002226.02101,"1828,55289-0979-30 ",.02)
 ;;55289-0979-30
 ;;9002226.02101,"1828,55289-0979-60 ",.01)
 ;;55289-0979-60
 ;;9002226.02101,"1828,55289-0979-60 ",.02)
 ;;55289-0979-60
 ;;9002226.02101,"1828,55292-0301-01 ",.01)
 ;;55292-0301-01
 ;;9002226.02101,"1828,55292-0301-01 ",.02)
 ;;55292-0301-01
 ;;9002226.02101,"1828,55292-0302-01 ",.01)
 ;;55292-0302-01
 ;;9002226.02101,"1828,55292-0302-01 ",.02)
 ;;55292-0302-01
 ;;9002226.02101,"1828,55292-0303-01 ",.01)
 ;;55292-0303-01
 ;;9002226.02101,"1828,55292-0303-01 ",.02)
 ;;55292-0303-01
 ;;9002226.02101,"1828,55700-0039-30 ",.01)
 ;;55700-0039-30
 ;;9002226.02101,"1828,55700-0039-30 ",.02)
 ;;55700-0039-30
 ;;9002226.02101,"1828,55700-0058-03 ",.01)
 ;;55700-0058-03
 ;;9002226.02101,"1828,55700-0058-03 ",.02)
 ;;55700-0058-03
 ;;9002226.02101,"1828,55700-0109-60 ",.01)
 ;;55700-0109-60
 ;;9002226.02101,"1828,55700-0109-60 ",.02)
 ;;55700-0109-60
 ;;9002226.02101,"1828,55700-0310-30 ",.01)
 ;;55700-0310-30
 ;;9002226.02101,"1828,55700-0310-30 ",.02)
 ;;55700-0310-30
 ;;9002226.02101,"1828,55700-0312-30 ",.01)
 ;;55700-0312-30
 ;;9002226.02101,"1828,55700-0312-30 ",.02)
 ;;55700-0312-30
 ;;9002226.02101,"1828,55700-0312-60 ",.01)
 ;;55700-0312-60
 ;;9002226.02101,"1828,55700-0312-60 ",.02)
 ;;55700-0312-60