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

BGP82Z43.m

Go to the documentation of this file.
BGP82Z43 ; 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,"619,43376-0350-60 ",.02)
 ;;43376-0350-60
 ;;9002226.02101,"619,43386-0118-01 ",.01)
 ;;43386-0118-01
 ;;9002226.02101,"619,43386-0118-01 ",.02)
 ;;43386-0118-01
 ;;9002226.02101,"619,43386-0118-03 ",.01)
 ;;43386-0118-03
 ;;9002226.02101,"619,43386-0118-03 ",.02)
 ;;43386-0118-03
 ;;9002226.02101,"619,43386-0351-01 ",.01)
 ;;43386-0351-01
 ;;9002226.02101,"619,43386-0351-01 ",.02)
 ;;43386-0351-01
 ;;9002226.02101,"619,43386-0351-05 ",.01)
 ;;43386-0351-05
 ;;9002226.02101,"619,43386-0351-05 ",.02)
 ;;43386-0351-05
 ;;9002226.02101,"619,43386-0352-01 ",.01)
 ;;43386-0352-01
 ;;9002226.02101,"619,43386-0352-01 ",.02)
 ;;43386-0352-01
 ;;9002226.02101,"619,43386-0352-05 ",.01)
 ;;43386-0352-05
 ;;9002226.02101,"619,43386-0352-05 ",.02)
 ;;43386-0352-05
 ;;9002226.02101,"619,43386-0353-01 ",.01)
 ;;43386-0353-01
 ;;9002226.02101,"619,43386-0353-01 ",.02)
 ;;43386-0353-01
 ;;9002226.02101,"619,43386-0353-05 ",.01)
 ;;43386-0353-05
 ;;9002226.02101,"619,43386-0353-05 ",.02)
 ;;43386-0353-05
 ;;9002226.02101,"619,43386-0540-01 ",.01)
 ;;43386-0540-01
 ;;9002226.02101,"619,43386-0540-01 ",.02)
 ;;43386-0540-01
 ;;9002226.02101,"619,43386-0541-01 ",.01)
 ;;43386-0541-01
 ;;9002226.02101,"619,43386-0541-01 ",.02)
 ;;43386-0541-01
 ;;9002226.02101,"619,43386-0542-01 ",.01)
 ;;43386-0542-01
 ;;9002226.02101,"619,43386-0542-01 ",.02)
 ;;43386-0542-01
 ;;9002226.02101,"619,43386-0543-01 ",.01)
 ;;43386-0543-01
 ;;9002226.02101,"619,43386-0543-01 ",.02)
 ;;43386-0543-01
 ;;9002226.02101,"619,43386-0544-01 ",.01)
 ;;43386-0544-01
 ;;9002226.02101,"619,43386-0544-01 ",.02)
 ;;43386-0544-01
 ;;9002226.02101,"619,43386-0670-01 ",.01)
 ;;43386-0670-01
 ;;9002226.02101,"619,43386-0670-01 ",.02)
 ;;43386-0670-01
 ;;9002226.02101,"619,43386-0680-01 ",.01)
 ;;43386-0680-01
 ;;9002226.02101,"619,43386-0680-01 ",.02)
 ;;43386-0680-01
 ;;9002226.02101,"619,43386-0920-60 ",.01)
 ;;43386-0920-60
 ;;9002226.02101,"619,43386-0920-60 ",.02)
 ;;43386-0920-60
 ;;9002226.02101,"619,43386-0950-01 ",.01)
 ;;43386-0950-01
 ;;9002226.02101,"619,43386-0950-01 ",.02)
 ;;43386-0950-01
 ;;9002226.02101,"619,43547-0373-10 ",.01)
 ;;43547-0373-10
 ;;9002226.02101,"619,43547-0373-10 ",.02)
 ;;43547-0373-10
 ;;9002226.02101,"619,46987-0322-11 ",.01)
 ;;46987-0322-11
 ;;9002226.02101,"619,46987-0322-11 ",.02)
 ;;46987-0322-11
 ;;9002226.02101,"619,46987-0323-11 ",.01)
 ;;46987-0323-11
 ;;9002226.02101,"619,46987-0323-11 ",.02)
 ;;46987-0323-11
 ;;9002226.02101,"619,46987-0324-11 ",.01)
 ;;46987-0324-11
 ;;9002226.02101,"619,46987-0324-11 ",.02)
 ;;46987-0324-11
 ;;9002226.02101,"619,46987-0325-11 ",.01)
 ;;46987-0325-11
 ;;9002226.02101,"619,46987-0325-11 ",.02)
 ;;46987-0325-11
 ;;9002226.02101,"619,46987-0326-11 ",.01)
 ;;46987-0326-11
 ;;9002226.02101,"619,46987-0326-11 ",.02)
 ;;46987-0326-11
 ;;9002226.02101,"619,46987-0327-11 ",.01)
 ;;46987-0327-11
 ;;9002226.02101,"619,46987-0327-11 ",.02)
 ;;46987-0327-11
 ;;9002226.02101,"619,46987-0328-11 ",.01)
 ;;46987-0328-11
 ;;9002226.02101,"619,46987-0328-11 ",.02)
 ;;46987-0328-11
 ;;9002226.02101,"619,46987-0329-11 ",.01)
 ;;46987-0329-11
 ;;9002226.02101,"619,46987-0329-11 ",.02)
 ;;46987-0329-11
 ;;9002226.02101,"619,46987-0330-11 ",.01)
 ;;46987-0330-11
 ;;9002226.02101,"619,46987-0330-11 ",.02)
 ;;46987-0330-11
 ;;9002226.02101,"619,46987-0377-11 ",.01)
 ;;46987-0377-11
 ;;9002226.02101,"619,46987-0377-11 ",.02)
 ;;46987-0377-11
 ;;9002226.02101,"619,46987-0410-11 ",.01)
 ;;46987-0410-11
 ;;9002226.02101,"619,46987-0410-11 ",.02)
 ;;46987-0410-11
 ;;9002226.02101,"619,46987-0412-11 ",.01)
 ;;46987-0412-11
 ;;9002226.02101,"619,46987-0412-11 ",.02)
 ;;46987-0412-11
 ;;9002226.02101,"619,47335-0531-83 ",.01)
 ;;47335-0531-83
 ;;9002226.02101,"619,47335-0531-83 ",.02)
 ;;47335-0531-83
 ;;9002226.02101,"619,47335-0531-88 ",.01)
 ;;47335-0531-88
 ;;9002226.02101,"619,47335-0531-88 ",.02)
 ;;47335-0531-88
 ;;9002226.02101,"619,47335-0533-83 ",.01)
 ;;47335-0533-83
 ;;9002226.02101,"619,47335-0533-83 ",.02)
 ;;47335-0533-83
 ;;9002226.02101,"619,47335-0533-88 ",.01)
 ;;47335-0533-88
 ;;9002226.02101,"619,47335-0533-88 ",.02)
 ;;47335-0533-88
 ;;9002226.02101,"619,47335-0537-83 ",.01)
 ;;47335-0537-83
 ;;9002226.02101,"619,47335-0537-83 ",.02)
 ;;47335-0537-83
 ;;9002226.02101,"619,47335-0537-88 ",.01)
 ;;47335-0537-88
 ;;9002226.02101,"619,47335-0537-88 ",.02)
 ;;47335-0537-88
 ;;9002226.02101,"619,47335-0859-83 ",.01)
 ;;47335-0859-83
 ;;9002226.02101,"619,47335-0859-83 ",.02)
 ;;47335-0859-83
 ;;9002226.02101,"619,47335-0860-83 ",.01)
 ;;47335-0860-83
 ;;9002226.02101,"619,47335-0860-83 ",.02)
 ;;47335-0860-83
 ;;9002226.02101,"619,47335-0861-83 ",.01)
 ;;47335-0861-83
 ;;9002226.02101,"619,47335-0861-83 ",.02)
 ;;47335-0861-83
 ;;9002226.02101,"619,47463-0002-00 ",.01)
 ;;47463-0002-00
 ;;9002226.02101,"619,47463-0002-00 ",.02)
 ;;47463-0002-00
 ;;9002226.02101,"619,47463-0002-30 ",.01)
 ;;47463-0002-30
 ;;9002226.02101,"619,47463-0002-30 ",.02)
 ;;47463-0002-30
 ;;9002226.02101,"619,47463-0002-45 ",.01)
 ;;47463-0002-45
 ;;9002226.02101,"619,47463-0002-45 ",.02)
 ;;47463-0002-45
 ;;9002226.02101,"619,47463-0002-60 ",.01)
 ;;47463-0002-60
 ;;9002226.02101,"619,47463-0002-60 ",.02)
 ;;47463-0002-60
 ;;9002226.02101,"619,47463-0002-84 ",.01)
 ;;47463-0002-84
 ;;9002226.02101,"619,47463-0002-84 ",.02)
 ;;47463-0002-84
 ;;9002226.02101,"619,47463-0002-90 ",.01)
 ;;47463-0002-90
 ;;9002226.02101,"619,47463-0002-90 ",.02)
 ;;47463-0002-90
 ;;9002226.02101,"619,47463-0363-30 ",.01)
 ;;47463-0363-30
 ;;9002226.02101,"619,47463-0363-30 ",.02)
 ;;47463-0363-30
 ;;9002226.02101,"619,47463-0363-60 ",.01)
 ;;47463-0363-60
 ;;9002226.02101,"619,47463-0363-60 ",.02)
 ;;47463-0363-60
 ;;9002226.02101,"619,47463-0363-71 ",.01)
 ;;47463-0363-71
 ;;9002226.02101,"619,47463-0363-71 ",.02)
 ;;47463-0363-71
 ;;9002226.02101,"619,47463-0363-73 ",.01)
 ;;47463-0363-73
 ;;9002226.02101,"619,47463-0363-73 ",.02)
 ;;47463-0363-73
 ;;9002226.02101,"619,47463-0363-74 ",.01)
 ;;47463-0363-74
 ;;9002226.02101,"619,47463-0363-74 ",.02)
 ;;47463-0363-74
 ;;9002226.02101,"619,47463-0363-90 ",.01)
 ;;47463-0363-90
 ;;9002226.02101,"619,47463-0363-90 ",.02)
 ;;47463-0363-90
 ;;9002226.02101,"619,47463-0364-30 ",.01)
 ;;47463-0364-30
 ;;9002226.02101,"619,47463-0364-30 ",.02)
 ;;47463-0364-30
 ;;9002226.02101,"619,47463-0364-60 ",.01)
 ;;47463-0364-60
 ;;9002226.02101,"619,47463-0364-60 ",.02)
 ;;47463-0364-60
 ;;9002226.02101,"619,47463-0364-71 ",.01)
 ;;47463-0364-71
 ;;9002226.02101,"619,47463-0364-71 ",.02)
 ;;47463-0364-71
 ;;9002226.02101,"619,47463-0364-90 ",.01)
 ;;47463-0364-90
 ;;9002226.02101,"619,47463-0364-90 ",.02)
 ;;47463-0364-90
 ;;9002226.02101,"619,47463-0365-30 ",.01)
 ;;47463-0365-30
 ;;9002226.02101,"619,47463-0365-30 ",.02)
 ;;47463-0365-30
 ;;9002226.02101,"619,47463-0365-60 ",.01)
 ;;47463-0365-60
 ;;9002226.02101,"619,47463-0365-60 ",.02)
 ;;47463-0365-60
 ;;9002226.02101,"619,47463-0365-90 ",.01)
 ;;47463-0365-90
 ;;9002226.02101,"619,47463-0365-90 ",.02)
 ;;47463-0365-90
 ;;9002226.02101,"619,47463-0427-91 ",.01)
 ;;47463-0427-91
 ;;9002226.02101,"619,47463-0427-91 ",.02)
 ;;47463-0427-91
 ;;9002226.02101,"619,47463-0433-60 ",.01)
 ;;47463-0433-60
 ;;9002226.02101,"619,47463-0433-60 ",.02)
 ;;47463-0433-60
 ;;9002226.02101,"619,47463-0532-60 ",.01)
 ;;47463-0532-60
 ;;9002226.02101,"619,47463-0532-60 ",.02)
 ;;47463-0532-60
 ;;9002226.02101,"619,47463-0560-30 ",.01)
 ;;47463-0560-30
 ;;9002226.02101,"619,47463-0560-30 ",.02)
 ;;47463-0560-30
 ;;9002226.02101,"619,47463-0560-60 ",.01)
 ;;47463-0560-60
 ;;9002226.02101,"619,47463-0560-60 ",.02)
 ;;47463-0560-60
 ;;9002226.02101,"619,47463-0560-71 ",.01)
 ;;47463-0560-71
 ;;9002226.02101,"619,47463-0560-71 ",.02)
 ;;47463-0560-71
 ;;9002226.02101,"619,47463-0560-90 ",.01)
 ;;47463-0560-90
 ;;9002226.02101,"619,47463-0560-90 ",.02)
 ;;47463-0560-90
 ;;9002226.02101,"619,47463-0561-30 ",.01)
 ;;47463-0561-30
 ;;9002226.02101,"619,47463-0561-30 ",.02)
 ;;47463-0561-30
 ;;9002226.02101,"619,47463-0561-60 ",.01)
 ;;47463-0561-60
 ;;9002226.02101,"619,47463-0561-60 ",.02)
 ;;47463-0561-60
 ;;9002226.02101,"619,47463-0561-71 ",.01)
 ;;47463-0561-71
 ;;9002226.02101,"619,47463-0561-71 ",.02)
 ;;47463-0561-71
 ;;9002226.02101,"619,47463-0561-73 ",.01)
 ;;47463-0561-73
 ;;9002226.02101,"619,47463-0561-73 ",.02)
 ;;47463-0561-73
 ;;9002226.02101,"619,47463-0561-90 ",.01)
 ;;47463-0561-90
 ;;9002226.02101,"619,47463-0561-90 ",.02)
 ;;47463-0561-90
 ;;9002226.02101,"619,47463-0562-30 ",.01)
 ;;47463-0562-30
 ;;9002226.02101,"619,47463-0562-30 ",.02)
 ;;47463-0562-30
 ;;9002226.02101,"619,47463-0562-60 ",.01)
 ;;47463-0562-60
 ;;9002226.02101,"619,47463-0562-60 ",.02)
 ;;47463-0562-60
 ;;9002226.02101,"619,47463-0562-71 ",.01)
 ;;47463-0562-71
 ;;9002226.02101,"619,47463-0562-71 ",.02)
 ;;47463-0562-71
 ;;9002226.02101,"619,47463-0562-73 ",.01)
 ;;47463-0562-73
 ;;9002226.02101,"619,47463-0562-73 ",.02)
 ;;47463-0562-73
 ;;9002226.02101,"619,47463-0562-90 ",.01)
 ;;47463-0562-90
 ;;9002226.02101,"619,47463-0562-90 ",.02)
 ;;47463-0562-90
 ;;9002226.02101,"619,47463-0563-30 ",.01)
 ;;47463-0563-30
 ;;9002226.02101,"619,47463-0563-30 ",.02)
 ;;47463-0563-30
 ;;9002226.02101,"619,47463-0564-71 ",.01)
 ;;47463-0564-71
 ;;9002226.02101,"619,47463-0564-71 ",.02)
 ;;47463-0564-71
 ;;9002226.02101,"619,47463-0801-15 ",.01)
 ;;47463-0801-15
 ;;9002226.02101,"619,47463-0801-15 ",.02)
 ;;47463-0801-15
 ;;9002226.02101,"619,47463-0801-30 ",.01)
 ;;47463-0801-30
 ;;9002226.02101,"619,47463-0801-30 ",.02)
 ;;47463-0801-30
 ;;9002226.02101,"619,47463-0801-60 ",.01)
 ;;47463-0801-60
 ;;9002226.02101,"619,47463-0801-60 ",.02)
 ;;47463-0801-60
 ;;9002226.02101,"619,47463-0801-71 ",.01)
 ;;47463-0801-71
 ;;9002226.02101,"619,47463-0801-71 ",.02)
 ;;47463-0801-71
 ;;9002226.02101,"619,47463-0801-90 ",.01)
 ;;47463-0801-90
 ;;9002226.02101,"619,47463-0801-90 ",.02)
 ;;47463-0801-90
 ;;9002226.02101,"619,47463-0802-30 ",.01)
 ;;47463-0802-30
 ;;9002226.02101,"619,47463-0802-30 ",.02)
 ;;47463-0802-30
 ;;9002226.02101,"619,47463-0802-60 ",.01)
 ;;47463-0802-60
 ;;9002226.02101,"619,47463-0802-60 ",.02)
 ;;47463-0802-60
 ;;9002226.02101,"619,47463-0844-30 ",.01)
 ;;47463-0844-30
 ;;9002226.02101,"619,47463-0844-30 ",.02)
 ;;47463-0844-30
 ;;9002226.02101,"619,47463-0845-30 ",.01)
 ;;47463-0845-30
 ;;9002226.02101,"619,47463-0845-30 ",.02)
 ;;47463-0845-30
 ;;9002226.02101,"619,47463-0851-30 ",.01)
 ;;47463-0851-30
 ;;9002226.02101,"619,47463-0851-30 ",.02)
 ;;47463-0851-30
 ;;9002226.02101,"619,47781-0196-01 ",.01)
 ;;47781-0196-01
 ;;9002226.02101,"619,47781-0196-01 ",.02)
 ;;47781-0196-01
 ;;9002226.02101,"619,47781-0196-05 ",.01)
 ;;47781-0196-05
 ;;9002226.02101,"619,47781-0196-05 ",.02)
 ;;47781-0196-05
 ;;9002226.02101,"619,47781-0229-01 ",.01)
 ;;47781-0229-01
 ;;9002226.02101,"619,47781-0229-01 ",.02)
 ;;47781-0229-01
 ;;9002226.02101,"619,47781-0229-05 ",.01)
 ;;47781-0229-05
 ;;9002226.02101,"619,47781-0229-05 ",.02)
 ;;47781-0229-05
 ;;9002226.02101,"619,47781-0229-63 ",.01)
 ;;47781-0229-63
 ;;9002226.02101,"619,47781-0229-63 ",.02)
 ;;47781-0229-63
 ;;9002226.02101,"619,47781-0230-01 ",.01)
 ;;47781-0230-01
 ;;9002226.02101,"619,47781-0230-01 ",.02)
 ;;47781-0230-01
 ;;9002226.02101,"619,47781-0230-05 ",.01)
 ;;47781-0230-05
 ;;9002226.02101,"619,47781-0230-05 ",.02)
 ;;47781-0230-05
 ;;9002226.02101,"619,47781-0230-63 ",.01)
 ;;47781-0230-63
 ;;9002226.02101,"619,47781-0230-63 ",.02)
 ;;47781-0230-63
 ;;9002226.02101,"619,47781-0263-01 ",.01)
 ;;47781-0263-01