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.
  1. BGP82Z43 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
  1. ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
  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,"619,43376-0350-60 ",.02)
  1. ;;43376-0350-60
  1. ;;9002226.02101,"619,43386-0118-01 ",.01)
  1. ;;43386-0118-01
  1. ;;9002226.02101,"619,43386-0118-01 ",.02)
  1. ;;43386-0118-01
  1. ;;9002226.02101,"619,43386-0118-03 ",.01)
  1. ;;43386-0118-03
  1. ;;9002226.02101,"619,43386-0118-03 ",.02)
  1. ;;43386-0118-03
  1. ;;9002226.02101,"619,43386-0351-01 ",.01)
  1. ;;43386-0351-01
  1. ;;9002226.02101,"619,43386-0351-01 ",.02)
  1. ;;43386-0351-01
  1. ;;9002226.02101,"619,43386-0351-05 ",.01)
  1. ;;43386-0351-05
  1. ;;9002226.02101,"619,43386-0351-05 ",.02)
  1. ;;43386-0351-05
  1. ;;9002226.02101,"619,43386-0352-01 ",.01)
  1. ;;43386-0352-01
  1. ;;9002226.02101,"619,43386-0352-01 ",.02)
  1. ;;43386-0352-01
  1. ;;9002226.02101,"619,43386-0352-05 ",.01)
  1. ;;43386-0352-05
  1. ;;9002226.02101,"619,43386-0352-05 ",.02)
  1. ;;43386-0352-05
  1. ;;9002226.02101,"619,43386-0353-01 ",.01)
  1. ;;43386-0353-01
  1. ;;9002226.02101,"619,43386-0353-01 ",.02)
  1. ;;43386-0353-01
  1. ;;9002226.02101,"619,43386-0353-05 ",.01)
  1. ;;43386-0353-05
  1. ;;9002226.02101,"619,43386-0353-05 ",.02)
  1. ;;43386-0353-05
  1. ;;9002226.02101,"619,43386-0540-01 ",.01)
  1. ;;43386-0540-01
  1. ;;9002226.02101,"619,43386-0540-01 ",.02)
  1. ;;43386-0540-01
  1. ;;9002226.02101,"619,43386-0541-01 ",.01)
  1. ;;43386-0541-01
  1. ;;9002226.02101,"619,43386-0541-01 ",.02)
  1. ;;43386-0541-01
  1. ;;9002226.02101,"619,43386-0542-01 ",.01)
  1. ;;43386-0542-01
  1. ;;9002226.02101,"619,43386-0542-01 ",.02)
  1. ;;43386-0542-01
  1. ;;9002226.02101,"619,43386-0543-01 ",.01)
  1. ;;43386-0543-01
  1. ;;9002226.02101,"619,43386-0543-01 ",.02)
  1. ;;43386-0543-01
  1. ;;9002226.02101,"619,43386-0544-01 ",.01)
  1. ;;43386-0544-01
  1. ;;9002226.02101,"619,43386-0544-01 ",.02)
  1. ;;43386-0544-01
  1. ;;9002226.02101,"619,43386-0670-01 ",.01)
  1. ;;43386-0670-01
  1. ;;9002226.02101,"619,43386-0670-01 ",.02)
  1. ;;43386-0670-01
  1. ;;9002226.02101,"619,43386-0680-01 ",.01)
  1. ;;43386-0680-01
  1. ;;9002226.02101,"619,43386-0680-01 ",.02)
  1. ;;43386-0680-01
  1. ;;9002226.02101,"619,43386-0920-60 ",.01)
  1. ;;43386-0920-60
  1. ;;9002226.02101,"619,43386-0920-60 ",.02)
  1. ;;43386-0920-60
  1. ;;9002226.02101,"619,43386-0950-01 ",.01)
  1. ;;43386-0950-01
  1. ;;9002226.02101,"619,43386-0950-01 ",.02)
  1. ;;43386-0950-01
  1. ;;9002226.02101,"619,43547-0373-10 ",.01)
  1. ;;43547-0373-10
  1. ;;9002226.02101,"619,43547-0373-10 ",.02)
  1. ;;43547-0373-10
  1. ;;9002226.02101,"619,46987-0322-11 ",.01)
  1. ;;46987-0322-11
  1. ;;9002226.02101,"619,46987-0322-11 ",.02)
  1. ;;46987-0322-11
  1. ;;9002226.02101,"619,46987-0323-11 ",.01)
  1. ;;46987-0323-11
  1. ;;9002226.02101,"619,46987-0323-11 ",.02)
  1. ;;46987-0323-11
  1. ;;9002226.02101,"619,46987-0324-11 ",.01)
  1. ;;46987-0324-11
  1. ;;9002226.02101,"619,46987-0324-11 ",.02)
  1. ;;46987-0324-11
  1. ;;9002226.02101,"619,46987-0325-11 ",.01)
  1. ;;46987-0325-11
  1. ;;9002226.02101,"619,46987-0325-11 ",.02)
  1. ;;46987-0325-11
  1. ;;9002226.02101,"619,46987-0326-11 ",.01)
  1. ;;46987-0326-11
  1. ;;9002226.02101,"619,46987-0326-11 ",.02)
  1. ;;46987-0326-11
  1. ;;9002226.02101,"619,46987-0327-11 ",.01)
  1. ;;46987-0327-11
  1. ;;9002226.02101,"619,46987-0327-11 ",.02)
  1. ;;46987-0327-11
  1. ;;9002226.02101,"619,46987-0328-11 ",.01)
  1. ;;46987-0328-11
  1. ;;9002226.02101,"619,46987-0328-11 ",.02)
  1. ;;46987-0328-11
  1. ;;9002226.02101,"619,46987-0329-11 ",.01)
  1. ;;46987-0329-11
  1. ;;9002226.02101,"619,46987-0329-11 ",.02)
  1. ;;46987-0329-11
  1. ;;9002226.02101,"619,46987-0330-11 ",.01)
  1. ;;46987-0330-11
  1. ;;9002226.02101,"619,46987-0330-11 ",.02)
  1. ;;46987-0330-11
  1. ;;9002226.02101,"619,46987-0377-11 ",.01)
  1. ;;46987-0377-11
  1. ;;9002226.02101,"619,46987-0377-11 ",.02)
  1. ;;46987-0377-11
  1. ;;9002226.02101,"619,46987-0410-11 ",.01)
  1. ;;46987-0410-11
  1. ;;9002226.02101,"619,46987-0410-11 ",.02)
  1. ;;46987-0410-11
  1. ;;9002226.02101,"619,46987-0412-11 ",.01)
  1. ;;46987-0412-11
  1. ;;9002226.02101,"619,46987-0412-11 ",.02)
  1. ;;46987-0412-11
  1. ;;9002226.02101,"619,47335-0531-83 ",.01)
  1. ;;47335-0531-83
  1. ;;9002226.02101,"619,47335-0531-83 ",.02)
  1. ;;47335-0531-83
  1. ;;9002226.02101,"619,47335-0531-88 ",.01)
  1. ;;47335-0531-88
  1. ;;9002226.02101,"619,47335-0531-88 ",.02)
  1. ;;47335-0531-88
  1. ;;9002226.02101,"619,47335-0533-83 ",.01)
  1. ;;47335-0533-83
  1. ;;9002226.02101,"619,47335-0533-83 ",.02)
  1. ;;47335-0533-83
  1. ;;9002226.02101,"619,47335-0533-88 ",.01)
  1. ;;47335-0533-88
  1. ;;9002226.02101,"619,47335-0533-88 ",.02)
  1. ;;47335-0533-88
  1. ;;9002226.02101,"619,47335-0537-83 ",.01)
  1. ;;47335-0537-83
  1. ;;9002226.02101,"619,47335-0537-83 ",.02)
  1. ;;47335-0537-83
  1. ;;9002226.02101,"619,47335-0537-88 ",.01)
  1. ;;47335-0537-88
  1. ;;9002226.02101,"619,47335-0537-88 ",.02)
  1. ;;47335-0537-88
  1. ;;9002226.02101,"619,47335-0859-83 ",.01)
  1. ;;47335-0859-83
  1. ;;9002226.02101,"619,47335-0859-83 ",.02)
  1. ;;47335-0859-83
  1. ;;9002226.02101,"619,47335-0860-83 ",.01)
  1. ;;47335-0860-83
  1. ;;9002226.02101,"619,47335-0860-83 ",.02)
  1. ;;47335-0860-83
  1. ;;9002226.02101,"619,47335-0861-83 ",.01)
  1. ;;47335-0861-83
  1. ;;9002226.02101,"619,47335-0861-83 ",.02)
  1. ;;47335-0861-83
  1. ;;9002226.02101,"619,47463-0002-00 ",.01)
  1. ;;47463-0002-00
  1. ;;9002226.02101,"619,47463-0002-00 ",.02)
  1. ;;47463-0002-00
  1. ;;9002226.02101,"619,47463-0002-30 ",.01)
  1. ;;47463-0002-30
  1. ;;9002226.02101,"619,47463-0002-30 ",.02)
  1. ;;47463-0002-30
  1. ;;9002226.02101,"619,47463-0002-45 ",.01)
  1. ;;47463-0002-45
  1. ;;9002226.02101,"619,47463-0002-45 ",.02)
  1. ;;47463-0002-45
  1. ;;9002226.02101,"619,47463-0002-60 ",.01)
  1. ;;47463-0002-60
  1. ;;9002226.02101,"619,47463-0002-60 ",.02)
  1. ;;47463-0002-60
  1. ;;9002226.02101,"619,47463-0002-84 ",.01)
  1. ;;47463-0002-84
  1. ;;9002226.02101,"619,47463-0002-84 ",.02)
  1. ;;47463-0002-84
  1. ;;9002226.02101,"619,47463-0002-90 ",.01)
  1. ;;47463-0002-90
  1. ;;9002226.02101,"619,47463-0002-90 ",.02)
  1. ;;47463-0002-90
  1. ;;9002226.02101,"619,47463-0363-30 ",.01)
  1. ;;47463-0363-30
  1. ;;9002226.02101,"619,47463-0363-30 ",.02)
  1. ;;47463-0363-30
  1. ;;9002226.02101,"619,47463-0363-60 ",.01)
  1. ;;47463-0363-60
  1. ;;9002226.02101,"619,47463-0363-60 ",.02)
  1. ;;47463-0363-60
  1. ;;9002226.02101,"619,47463-0363-71 ",.01)
  1. ;;47463-0363-71
  1. ;;9002226.02101,"619,47463-0363-71 ",.02)
  1. ;;47463-0363-71
  1. ;;9002226.02101,"619,47463-0363-73 ",.01)
  1. ;;47463-0363-73
  1. ;;9002226.02101,"619,47463-0363-73 ",.02)
  1. ;;47463-0363-73
  1. ;;9002226.02101,"619,47463-0363-74 ",.01)
  1. ;;47463-0363-74
  1. ;;9002226.02101,"619,47463-0363-74 ",.02)
  1. ;;47463-0363-74
  1. ;;9002226.02101,"619,47463-0363-90 ",.01)
  1. ;;47463-0363-90
  1. ;;9002226.02101,"619,47463-0363-90 ",.02)
  1. ;;47463-0363-90
  1. ;;9002226.02101,"619,47463-0364-30 ",.01)
  1. ;;47463-0364-30
  1. ;;9002226.02101,"619,47463-0364-30 ",.02)
  1. ;;47463-0364-30
  1. ;;9002226.02101,"619,47463-0364-60 ",.01)
  1. ;;47463-0364-60
  1. ;;9002226.02101,"619,47463-0364-60 ",.02)
  1. ;;47463-0364-60
  1. ;;9002226.02101,"619,47463-0364-71 ",.01)
  1. ;;47463-0364-71
  1. ;;9002226.02101,"619,47463-0364-71 ",.02)
  1. ;;47463-0364-71
  1. ;;9002226.02101,"619,47463-0364-90 ",.01)
  1. ;;47463-0364-90
  1. ;;9002226.02101,"619,47463-0364-90 ",.02)
  1. ;;47463-0364-90
  1. ;;9002226.02101,"619,47463-0365-30 ",.01)
  1. ;;47463-0365-30
  1. ;;9002226.02101,"619,47463-0365-30 ",.02)
  1. ;;47463-0365-30
  1. ;;9002226.02101,"619,47463-0365-60 ",.01)
  1. ;;47463-0365-60
  1. ;;9002226.02101,"619,47463-0365-60 ",.02)
  1. ;;47463-0365-60
  1. ;;9002226.02101,"619,47463-0365-90 ",.01)
  1. ;;47463-0365-90
  1. ;;9002226.02101,"619,47463-0365-90 ",.02)
  1. ;;47463-0365-90
  1. ;;9002226.02101,"619,47463-0427-91 ",.01)
  1. ;;47463-0427-91
  1. ;;9002226.02101,"619,47463-0427-91 ",.02)
  1. ;;47463-0427-91
  1. ;;9002226.02101,"619,47463-0433-60 ",.01)
  1. ;;47463-0433-60
  1. ;;9002226.02101,"619,47463-0433-60 ",.02)
  1. ;;47463-0433-60
  1. ;;9002226.02101,"619,47463-0532-60 ",.01)
  1. ;;47463-0532-60
  1. ;;9002226.02101,"619,47463-0532-60 ",.02)
  1. ;;47463-0532-60
  1. ;;9002226.02101,"619,47463-0560-30 ",.01)
  1. ;;47463-0560-30
  1. ;;9002226.02101,"619,47463-0560-30 ",.02)
  1. ;;47463-0560-30
  1. ;;9002226.02101,"619,47463-0560-60 ",.01)
  1. ;;47463-0560-60
  1. ;;9002226.02101,"619,47463-0560-60 ",.02)
  1. ;;47463-0560-60
  1. ;;9002226.02101,"619,47463-0560-71 ",.01)
  1. ;;47463-0560-71
  1. ;;9002226.02101,"619,47463-0560-71 ",.02)
  1. ;;47463-0560-71
  1. ;;9002226.02101,"619,47463-0560-90 ",.01)
  1. ;;47463-0560-90
  1. ;;9002226.02101,"619,47463-0560-90 ",.02)
  1. ;;47463-0560-90
  1. ;;9002226.02101,"619,47463-0561-30 ",.01)
  1. ;;47463-0561-30
  1. ;;9002226.02101,"619,47463-0561-30 ",.02)
  1. ;;47463-0561-30
  1. ;;9002226.02101,"619,47463-0561-60 ",.01)
  1. ;;47463-0561-60
  1. ;;9002226.02101,"619,47463-0561-60 ",.02)
  1. ;;47463-0561-60
  1. ;;9002226.02101,"619,47463-0561-71 ",.01)
  1. ;;47463-0561-71
  1. ;;9002226.02101,"619,47463-0561-71 ",.02)
  1. ;;47463-0561-71
  1. ;;9002226.02101,"619,47463-0561-73 ",.01)
  1. ;;47463-0561-73
  1. ;;9002226.02101,"619,47463-0561-73 ",.02)
  1. ;;47463-0561-73
  1. ;;9002226.02101,"619,47463-0561-90 ",.01)
  1. ;;47463-0561-90
  1. ;;9002226.02101,"619,47463-0561-90 ",.02)
  1. ;;47463-0561-90
  1. ;;9002226.02101,"619,47463-0562-30 ",.01)
  1. ;;47463-0562-30
  1. ;;9002226.02101,"619,47463-0562-30 ",.02)
  1. ;;47463-0562-30
  1. ;;9002226.02101,"619,47463-0562-60 ",.01)
  1. ;;47463-0562-60
  1. ;;9002226.02101,"619,47463-0562-60 ",.02)
  1. ;;47463-0562-60
  1. ;;9002226.02101,"619,47463-0562-71 ",.01)
  1. ;;47463-0562-71
  1. ;;9002226.02101,"619,47463-0562-71 ",.02)
  1. ;;47463-0562-71
  1. ;;9002226.02101,"619,47463-0562-73 ",.01)
  1. ;;47463-0562-73
  1. ;;9002226.02101,"619,47463-0562-73 ",.02)
  1. ;;47463-0562-73
  1. ;;9002226.02101,"619,47463-0562-90 ",.01)
  1. ;;47463-0562-90
  1. ;;9002226.02101,"619,47463-0562-90 ",.02)
  1. ;;47463-0562-90
  1. ;;9002226.02101,"619,47463-0563-30 ",.01)
  1. ;;47463-0563-30
  1. ;;9002226.02101,"619,47463-0563-30 ",.02)
  1. ;;47463-0563-30
  1. ;;9002226.02101,"619,47463-0564-71 ",.01)
  1. ;;47463-0564-71
  1. ;;9002226.02101,"619,47463-0564-71 ",.02)
  1. ;;47463-0564-71
  1. ;;9002226.02101,"619,47463-0801-15 ",.01)
  1. ;;47463-0801-15
  1. ;;9002226.02101,"619,47463-0801-15 ",.02)
  1. ;;47463-0801-15
  1. ;;9002226.02101,"619,47463-0801-30 ",.01)
  1. ;;47463-0801-30
  1. ;;9002226.02101,"619,47463-0801-30 ",.02)
  1. ;;47463-0801-30
  1. ;;9002226.02101,"619,47463-0801-60 ",.01)
  1. ;;47463-0801-60
  1. ;;9002226.02101,"619,47463-0801-60 ",.02)
  1. ;;47463-0801-60
  1. ;;9002226.02101,"619,47463-0801-71 ",.01)
  1. ;;47463-0801-71
  1. ;;9002226.02101,"619,47463-0801-71 ",.02)
  1. ;;47463-0801-71
  1. ;;9002226.02101,"619,47463-0801-90 ",.01)
  1. ;;47463-0801-90
  1. ;;9002226.02101,"619,47463-0801-90 ",.02)
  1. ;;47463-0801-90
  1. ;;9002226.02101,"619,47463-0802-30 ",.01)
  1. ;;47463-0802-30
  1. ;;9002226.02101,"619,47463-0802-30 ",.02)
  1. ;;47463-0802-30
  1. ;;9002226.02101,"619,47463-0802-60 ",.01)
  1. ;;47463-0802-60
  1. ;;9002226.02101,"619,47463-0802-60 ",.02)
  1. ;;47463-0802-60
  1. ;;9002226.02101,"619,47463-0844-30 ",.01)
  1. ;;47463-0844-30
  1. ;;9002226.02101,"619,47463-0844-30 ",.02)
  1. ;;47463-0844-30
  1. ;;9002226.02101,"619,47463-0845-30 ",.01)
  1. ;;47463-0845-30
  1. ;;9002226.02101,"619,47463-0845-30 ",.02)
  1. ;;47463-0845-30
  1. ;;9002226.02101,"619,47463-0851-30 ",.01)
  1. ;;47463-0851-30
  1. ;;9002226.02101,"619,47463-0851-30 ",.02)
  1. ;;47463-0851-30
  1. ;;9002226.02101,"619,47781-0196-01 ",.01)
  1. ;;47781-0196-01
  1. ;;9002226.02101,"619,47781-0196-01 ",.02)
  1. ;;47781-0196-01
  1. ;;9002226.02101,"619,47781-0196-05 ",.01)
  1. ;;47781-0196-05
  1. ;;9002226.02101,"619,47781-0196-05 ",.02)
  1. ;;47781-0196-05
  1. ;;9002226.02101,"619,47781-0229-01 ",.01)
  1. ;;47781-0229-01
  1. ;;9002226.02101,"619,47781-0229-01 ",.02)
  1. ;;47781-0229-01
  1. ;;9002226.02101,"619,47781-0229-05 ",.01)
  1. ;;47781-0229-05
  1. ;;9002226.02101,"619,47781-0229-05 ",.02)
  1. ;;47781-0229-05
  1. ;;9002226.02101,"619,47781-0229-63 ",.01)
  1. ;;47781-0229-63
  1. ;;9002226.02101,"619,47781-0229-63 ",.02)
  1. ;;47781-0229-63
  1. ;;9002226.02101,"619,47781-0230-01 ",.01)
  1. ;;47781-0230-01
  1. ;;9002226.02101,"619,47781-0230-01 ",.02)
  1. ;;47781-0230-01
  1. ;;9002226.02101,"619,47781-0230-05 ",.01)
  1. ;;47781-0230-05
  1. ;;9002226.02101,"619,47781-0230-05 ",.02)
  1. ;;47781-0230-05
  1. ;;9002226.02101,"619,47781-0230-63 ",.01)
  1. ;;47781-0230-63
  1. ;;9002226.02101,"619,47781-0230-63 ",.02)
  1. ;;47781-0230-63
  1. ;;9002226.02101,"619,47781-0263-01 ",.01)
  1. ;;47781-0263-01