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

BGP7IXSJ.m

Go to the documentation of this file.
  1. BGP7IXSJ ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 16, 2006 ;
  1. ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
  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,"635,00591-0407-10 ",.02)
  1. ;;00591-0407-10
  1. ;;9002226.02101,"635,00591-0408-01 ",.01)
  1. ;;00591-0408-01
  1. ;;9002226.02101,"635,00591-0408-01 ",.02)
  1. ;;00591-0408-01
  1. ;;9002226.02101,"635,00591-0408-10 ",.01)
  1. ;;00591-0408-10
  1. ;;9002226.02101,"635,00591-0408-10 ",.02)
  1. ;;00591-0408-10
  1. ;;9002226.02101,"635,00591-0409-01 ",.01)
  1. ;;00591-0409-01
  1. ;;9002226.02101,"635,00591-0409-01 ",.02)
  1. ;;00591-0409-01
  1. ;;9002226.02101,"635,00591-0409-05 ",.01)
  1. ;;00591-0409-05
  1. ;;9002226.02101,"635,00591-0409-05 ",.02)
  1. ;;00591-0409-05
  1. ;;9002226.02101,"635,00591-0668-01 ",.01)
  1. ;;00591-0668-01
  1. ;;9002226.02101,"635,00591-0668-01 ",.02)
  1. ;;00591-0668-01
  1. ;;9002226.02101,"635,00591-0669-01 ",.01)
  1. ;;00591-0669-01
  1. ;;9002226.02101,"635,00591-0669-01 ",.02)
  1. ;;00591-0669-01
  1. ;;9002226.02101,"635,00591-0670-01 ",.01)
  1. ;;00591-0670-01
  1. ;;9002226.02101,"635,00591-0670-01 ",.02)
  1. ;;00591-0670-01
  1. ;;9002226.02101,"635,00591-0671-01 ",.01)
  1. ;;00591-0671-01
  1. ;;9002226.02101,"635,00591-0671-01 ",.02)
  1. ;;00591-0671-01
  1. ;;9002226.02101,"635,00591-0671-05 ",.01)
  1. ;;00591-0671-05
  1. ;;9002226.02101,"635,00591-0671-05 ",.02)
  1. ;;00591-0671-05
  1. ;;9002226.02101,"635,00591-0671-10 ",.01)
  1. ;;00591-0671-10
  1. ;;9002226.02101,"635,00591-0671-10 ",.02)
  1. ;;00591-0671-10
  1. ;;9002226.02101,"635,00591-0860-01 ",.01)
  1. ;;00591-0860-01
  1. ;;9002226.02101,"635,00591-0860-01 ",.02)
  1. ;;00591-0860-01
  1. ;;9002226.02101,"635,00591-0860-05 ",.01)
  1. ;;00591-0860-05
  1. ;;9002226.02101,"635,00591-0860-05 ",.02)
  1. ;;00591-0860-05
  1. ;;9002226.02101,"635,00591-0861-01 ",.01)
  1. ;;00591-0861-01
  1. ;;9002226.02101,"635,00591-0861-01 ",.02)
  1. ;;00591-0861-01
  1. ;;9002226.02101,"635,00591-0861-05 ",.01)
  1. ;;00591-0861-05
  1. ;;9002226.02101,"635,00591-0861-05 ",.02)
  1. ;;00591-0861-05
  1. ;;9002226.02101,"635,00591-0862-01 ",.01)
  1. ;;00591-0862-01
  1. ;;9002226.02101,"635,00591-0862-01 ",.02)
  1. ;;00591-0862-01
  1. ;;9002226.02101,"635,00591-0862-05 ",.01)
  1. ;;00591-0862-05
  1. ;;9002226.02101,"635,00591-0862-05 ",.02)
  1. ;;00591-0862-05
  1. ;;9002226.02101,"635,00591-0885-01 ",.01)
  1. ;;00591-0885-01
  1. ;;9002226.02101,"635,00591-0885-01 ",.02)
  1. ;;00591-0885-01
  1. ;;9002226.02101,"635,00603-2555-21 ",.01)
  1. ;;00603-2555-21
  1. ;;9002226.02101,"635,00603-2555-21 ",.02)
  1. ;;00603-2555-21
  1. ;;9002226.02101,"635,00603-2556-21 ",.01)
  1. ;;00603-2556-21
  1. ;;9002226.02101,"635,00603-2556-21 ",.02)
  1. ;;00603-2556-21
  1. ;;9002226.02101,"635,00603-2557-21 ",.01)
  1. ;;00603-2557-21
  1. ;;9002226.02101,"635,00603-2557-21 ",.02)
  1. ;;00603-2557-21
  1. ;;9002226.02101,"635,00603-2558-21 ",.01)
  1. ;;00603-2558-21
  1. ;;9002226.02101,"635,00603-2558-21 ",.02)
  1. ;;00603-2558-21
  1. ;;9002226.02101,"635,00615-4519-29 ",.01)
  1. ;;00615-4519-29
  1. ;;9002226.02101,"635,00615-4519-29 ",.02)
  1. ;;00615-4519-29
  1. ;;9002226.02101,"635,00615-4519-43 ",.01)
  1. ;;00615-4519-43
  1. ;;9002226.02101,"635,00615-4519-43 ",.02)
  1. ;;00615-4519-43
  1. ;;9002226.02101,"635,00615-4519-53 ",.01)
  1. ;;00615-4519-53
  1. ;;9002226.02101,"635,00615-4519-53 ",.02)
  1. ;;00615-4519-53
  1. ;;9002226.02101,"635,00615-4519-63 ",.01)
  1. ;;00615-4519-63
  1. ;;9002226.02101,"635,00615-4519-63 ",.02)
  1. ;;00615-4519-63
  1. ;;9002226.02101,"635,00615-4519-65 ",.01)
  1. ;;00615-4519-65
  1. ;;9002226.02101,"635,00615-4519-65 ",.02)
  1. ;;00615-4519-65
  1. ;;9002226.02101,"635,00615-4520-29 ",.01)
  1. ;;00615-4520-29
  1. ;;9002226.02101,"635,00615-4520-29 ",.02)
  1. ;;00615-4520-29
  1. ;;9002226.02101,"635,00615-4520-43 ",.01)
  1. ;;00615-4520-43
  1. ;;9002226.02101,"635,00615-4520-43 ",.02)
  1. ;;00615-4520-43
  1. ;;9002226.02101,"635,00615-4520-53 ",.01)
  1. ;;00615-4520-53
  1. ;;9002226.02101,"635,00615-4520-53 ",.02)
  1. ;;00615-4520-53
  1. ;;9002226.02101,"635,00615-4520-63 ",.01)
  1. ;;00615-4520-63
  1. ;;9002226.02101,"635,00615-4520-63 ",.02)
  1. ;;00615-4520-63
  1. ;;9002226.02101,"635,00615-4520-65 ",.01)
  1. ;;00615-4520-65
  1. ;;9002226.02101,"635,00615-4520-65 ",.02)
  1. ;;00615-4520-65
  1. ;;9002226.02101,"635,00615-4521-29 ",.01)
  1. ;;00615-4521-29
  1. ;;9002226.02101,"635,00615-4521-29 ",.02)
  1. ;;00615-4521-29
  1. ;;9002226.02101,"635,00615-4521-43 ",.01)
  1. ;;00615-4521-43
  1. ;;9002226.02101,"635,00615-4521-43 ",.02)
  1. ;;00615-4521-43
  1. ;;9002226.02101,"635,00615-4521-53 ",.01)
  1. ;;00615-4521-53
  1. ;;9002226.02101,"635,00615-4521-53 ",.02)
  1. ;;00615-4521-53
  1. ;;9002226.02101,"635,00615-4521-63 ",.01)
  1. ;;00615-4521-63
  1. ;;9002226.02101,"635,00615-4521-63 ",.02)
  1. ;;00615-4521-63
  1. ;;9002226.02101,"635,00615-4521-65 ",.01)
  1. ;;00615-4521-65
  1. ;;9002226.02101,"635,00615-4521-65 ",.02)
  1. ;;00615-4521-65
  1. ;;9002226.02101,"635,00615-4590-53 ",.01)
  1. ;;00615-4590-53
  1. ;;9002226.02101,"635,00615-4590-53 ",.02)
  1. ;;00615-4590-53
  1. ;;9002226.02101,"635,00615-4590-63 ",.01)
  1. ;;00615-4590-63
  1. ;;9002226.02101,"635,00615-4590-63 ",.02)
  1. ;;00615-4590-63
  1. ;;9002226.02101,"635,00615-4591-53 ",.01)
  1. ;;00615-4591-53
  1. ;;9002226.02101,"635,00615-4591-53 ",.02)
  1. ;;00615-4591-53
  1. ;;9002226.02101,"635,00615-4591-63 ",.01)
  1. ;;00615-4591-63
  1. ;;9002226.02101,"635,00615-4591-63 ",.02)
  1. ;;00615-4591-63
  1. ;;9002226.02101,"635,00781-1176-01 ",.01)
  1. ;;00781-1176-01
  1. ;;9002226.02101,"635,00781-1176-01 ",.02)
  1. ;;00781-1176-01
  1. ;;9002226.02101,"635,00781-1178-01 ",.01)
  1. ;;00781-1178-01
  1. ;;9002226.02101,"635,00781-1178-01 ",.02)
  1. ;;00781-1178-01
  1. ;;9002226.02101,"635,00781-1229-01 ",.01)
  1. ;;00781-1229-01
  1. ;;9002226.02101,"635,00781-1229-01 ",.02)
  1. ;;00781-1229-01
  1. ;;9002226.02101,"635,00781-1229-10 ",.01)
  1. ;;00781-1229-10
  1. ;;9002226.02101,"635,00781-1229-10 ",.02)
  1. ;;00781-1229-10
  1. ;;9002226.02101,"635,00781-1229-13 ",.01)
  1. ;;00781-1229-13
  1. ;;9002226.02101,"635,00781-1229-13 ",.02)
  1. ;;00781-1229-13
  1. ;;9002226.02101,"635,00781-1231-01 ",.01)
  1. ;;00781-1231-01
  1. ;;9002226.02101,"635,00781-1231-01 ",.02)
  1. ;;00781-1231-01
  1. ;;9002226.02101,"635,00781-1231-10 ",.01)
  1. ;;00781-1231-10
  1. ;;9002226.02101,"635,00781-1231-10 ",.02)
  1. ;;00781-1231-10
  1. ;;9002226.02101,"635,00781-1231-13 ",.01)
  1. ;;00781-1231-13
  1. ;;9002226.02101,"635,00781-1231-13 ",.02)
  1. ;;00781-1231-13
  1. ;;9002226.02101,"635,00781-1232-01 ",.01)
  1. ;;00781-1232-01
  1. ;;9002226.02101,"635,00781-1232-01 ",.02)
  1. ;;00781-1232-01
  1. ;;9002226.02101,"635,00781-1232-10 ",.01)
  1. ;;00781-1232-10
  1. ;;9002226.02101,"635,00781-1232-10 ",.02)
  1. ;;00781-1232-10
  1. ;;9002226.02101,"635,00781-1232-13 ",.01)
  1. ;;00781-1232-13
  1. ;;9002226.02101,"635,00781-1232-13 ",.02)
  1. ;;00781-1232-13
  1. ;;9002226.02101,"635,00781-1233-01 ",.01)
  1. ;;00781-1233-01
  1. ;;9002226.02101,"635,00781-1233-01 ",.02)
  1. ;;00781-1233-01
  1. ;;9002226.02101,"635,00781-1233-10 ",.01)
  1. ;;00781-1233-10
  1. ;;9002226.02101,"635,00781-1233-10 ",.02)
  1. ;;00781-1233-10
  1. ;;9002226.02101,"635,00781-1665-01 ",.01)
  1. ;;00781-1665-01
  1. ;;9002226.02101,"635,00781-1665-01 ",.02)
  1. ;;00781-1665-01
  1. ;;9002226.02101,"635,00781-1666-01 ",.01)
  1. ;;00781-1666-01
  1. ;;9002226.02101,"635,00781-1666-01 ",.02)
  1. ;;00781-1666-01
  1. ;;9002226.02101,"635,00781-1667-01 ",.01)
  1. ;;00781-1667-01
  1. ;;9002226.02101,"635,00781-1667-01 ",.02)
  1. ;;00781-1667-01
  1. ;;9002226.02101,"635,00781-1668-01 ",.01)
  1. ;;00781-1668-01
  1. ;;9002226.02101,"635,00781-1668-01 ",.02)
  1. ;;00781-1668-01
  1. ;;9002226.02101,"635,00781-1669-01 ",.01)
  1. ;;00781-1669-01
  1. ;;9002226.02101,"635,00781-1669-01 ",.02)
  1. ;;00781-1669-01
  1. ;;9002226.02101,"635,00781-1673-01 ",.01)
  1. ;;00781-1673-01
  1. ;;9002226.02101,"635,00781-1673-01 ",.02)
  1. ;;00781-1673-01
  1. ;;9002226.02101,"635,00781-1839-01 ",.01)
  1. ;;00781-1839-01
  1. ;;9002226.02101,"635,00781-1839-01 ",.02)
  1. ;;00781-1839-01
  1. ;;9002226.02101,"635,00781-1848-01 ",.01)
  1. ;;00781-1848-01
  1. ;;9002226.02101,"635,00781-1848-01 ",.02)
  1. ;;00781-1848-01
  1. ;;9002226.02101,"635,00781-1891-01 ",.01)
  1. ;;00781-1891-01
  1. ;;9002226.02101,"635,00781-1891-01 ",.02)
  1. ;;00781-1891-01
  1. ;;9002226.02101,"635,00781-1892-01 ",.01)
  1. ;;00781-1892-01
  1. ;;9002226.02101,"635,00781-1892-01 ",.02)
  1. ;;00781-1892-01
  1. ;;9002226.02101,"635,00781-1893-01 ",.01)
  1. ;;00781-1893-01
  1. ;;9002226.02101,"635,00781-1893-01 ",.02)
  1. ;;00781-1893-01
  1. ;;9002226.02101,"635,00781-1894-01 ",.01)
  1. ;;00781-1894-01
  1. ;;9002226.02101,"635,00781-1894-01 ",.02)
  1. ;;00781-1894-01
  1. ;;9002226.02101,"635,00781-5083-10 ",.01)
  1. ;;00781-5083-10
  1. ;;9002226.02101,"635,00781-5083-10 ",.02)
  1. ;;00781-5083-10
  1. ;;9002226.02101,"635,00781-5083-92 ",.01)
  1. ;;00781-5083-92
  1. ;;9002226.02101,"635,00781-5083-92 ",.02)
  1. ;;00781-5083-92
  1. ;;9002226.02101,"635,00781-5084-10 ",.01)
  1. ;;00781-5084-10
  1. ;;9002226.02101,"635,00781-5084-10 ",.02)
  1. ;;00781-5084-10
  1. ;;9002226.02101,"635,00781-5084-92 ",.01)
  1. ;;00781-5084-92
  1. ;;9002226.02101,"635,00781-5084-92 ",.02)
  1. ;;00781-5084-92
  1. ;;9002226.02101,"635,00781-5085-92 ",.01)
  1. ;;00781-5085-92
  1. ;;9002226.02101,"635,00781-5085-92 ",.02)
  1. ;;00781-5085-92
  1. ;;9002226.02101,"635,00781-5131-01 ",.01)
  1. ;;00781-5131-01
  1. ;;9002226.02101,"635,00781-5131-01 ",.02)
  1. ;;00781-5131-01
  1. ;;9002226.02101,"635,00781-5132-01 ",.01)
  1. ;;00781-5132-01
  1. ;;9002226.02101,"635,00781-5132-01 ",.02)
  1. ;;00781-5132-01
  1. ;;9002226.02101,"635,00781-5133-01 ",.01)
  1. ;;00781-5133-01
  1. ;;9002226.02101,"635,00781-5133-01 ",.02)
  1. ;;00781-5133-01
  1. ;;9002226.02101,"635,00781-5134-01 ",.01)
  1. ;;00781-5134-01
  1. ;;9002226.02101,"635,00781-5134-01 ",.02)
  1. ;;00781-5134-01
  1. ;;9002226.02101,"635,00839-7994-16 ",.01)
  1. ;;00839-7994-16
  1. ;;9002226.02101,"635,00839-7994-16 ",.02)
  1. ;;00839-7994-16
  1. ;;9002226.02101,"635,00839-7996-06 ",.01)
  1. ;;00839-7996-06
  1. ;;9002226.02101,"635,00839-7996-06 ",.02)
  1. ;;00839-7996-06
  1. ;;9002226.02101,"635,00839-7996-16 ",.01)
  1. ;;00839-7996-16
  1. ;;9002226.02101,"635,00839-7996-16 ",.02)
  1. ;;00839-7996-16
  1. ;;9002226.02101,"635,00839-7997-06 ",.01)
  1. ;;00839-7997-06
  1. ;;9002226.02101,"635,00839-7997-06 ",.02)
  1. ;;00839-7997-06
  1. ;;9002226.02101,"635,00839-7997-16 ",.01)
  1. ;;00839-7997-16
  1. ;;9002226.02101,"635,00839-7997-16 ",.02)
  1. ;;00839-7997-16
  1. ;;9002226.02101,"635,00904-5045-60 ",.01)
  1. ;;00904-5045-60
  1. ;;9002226.02101,"635,00904-5045-60 ",.02)
  1. ;;00904-5045-60
  1. ;;9002226.02101,"635,00904-5045-80 ",.01)
  1. ;;00904-5045-80
  1. ;;9002226.02101,"635,00904-5045-80 ",.02)
  1. ;;00904-5045-80
  1. ;;9002226.02101,"635,00904-5046-60 ",.01)
  1. ;;00904-5046-60
  1. ;;9002226.02101,"635,00904-5046-60 ",.02)
  1. ;;00904-5046-60
  1. ;;9002226.02101,"635,00904-5046-80 ",.01)
  1. ;;00904-5046-80
  1. ;;9002226.02101,"635,00904-5046-80 ",.02)
  1. ;;00904-5046-80
  1. ;;9002226.02101,"635,00904-5047-40 ",.01)
  1. ;;00904-5047-40
  1. ;;9002226.02101,"635,00904-5047-40 ",.02)
  1. ;;00904-5047-40
  1. ;;9002226.02101,"635,00904-5047-60 ",.01)
  1. ;;00904-5047-60
  1. ;;9002226.02101,"635,00904-5047-60 ",.02)
  1. ;;00904-5047-60
  1. ;;9002226.02101,"635,00904-5047-80 ",.01)
  1. ;;00904-5047-80
  1. ;;9002226.02101,"635,00904-5047-80 ",.02)
  1. ;;00904-5047-80
  1. ;;9002226.02101,"635,00904-5048-60 ",.01)
  1. ;;00904-5048-60
  1. ;;9002226.02101,"635,00904-5048-60 ",.02)
  1. ;;00904-5048-60
  1. ;;9002226.02101,"635,00904-5502-60 ",.01)
  1. ;;00904-5502-60
  1. ;;9002226.02101,"635,00904-5502-60 ",.02)
  1. ;;00904-5502-60
  1. ;;9002226.02101,"635,00904-5502-61 ",.01)
  1. ;;00904-5502-61
  1. ;;9002226.02101,"635,00904-5502-61 ",.02)
  1. ;;00904-5502-61
  1. ;;9002226.02101,"635,00904-5503-60 ",.01)
  1. ;;00904-5503-60
  1. ;;9002226.02101,"635,00904-5503-60 ",.02)
  1. ;;00904-5503-60
  1. ;;9002226.02101,"635,00904-5503-80 ",.01)
  1. ;;00904-5503-80
  1. ;;9002226.02101,"635,00904-5503-80 ",.02)
  1. ;;00904-5503-80
  1. ;;9002226.02101,"635,00904-5504-60 ",.01)
  1. ;;00904-5504-60
  1. ;;9002226.02101,"635,00904-5504-60 ",.02)
  1. ;;00904-5504-60
  1. ;;9002226.02101,"635,00904-5504-80 ",.01)
  1. ;;00904-5504-80
  1. ;;9002226.02101,"635,00904-5504-80 ",.02)
  1. ;;00904-5504-80
  1. ;;9002226.02101,"635,00904-5609-60 ",.01)
  1. ;;00904-5609-60
  1. ;;9002226.02101,"635,00904-5609-60 ",.02)
  1. ;;00904-5609-60
  1. ;;9002226.02101,"635,00904-5609-61 ",.01)
  1. ;;00904-5609-61
  1. ;;9002226.02101,"635,00904-5609-61 ",.02)
  1. ;;00904-5609-61
  1. ;;9002226.02101,"635,00904-5610-60 ",.01)
  1. ;;00904-5610-60
  1. ;;9002226.02101,"635,00904-5610-60 ",.02)
  1. ;;00904-5610-60
  1. ;;9002226.02101,"635,00904-5611-80 ",.01)
  1. ;;00904-5611-80
  1. ;;9002226.02101,"635,00904-5611-80 ",.02)
  1. ;;00904-5611-80
  1. ;;9002226.02101,"635,00904-5638-43 ",.01)
  1. ;;00904-5638-43
  1. ;;9002226.02101,"635,00904-5638-43 ",.02)
  1. ;;00904-5638-43
  1. ;;9002226.02101,"635,00904-5638-46 ",.01)
  1. ;;00904-5638-46
  1. ;;9002226.02101,"635,00904-5638-46 ",.02)
  1. ;;00904-5638-46
  1. ;;9002226.02101,"635,00904-5640-43 ",.01)
  1. ;;00904-5640-43
  1. ;;9002226.02101,"635,00904-5640-43 ",.02)
  1. ;;00904-5640-43
  1. ;;9002226.02101,"635,00904-5640-93 ",.01)
  1. ;;00904-5640-93
  1. ;;9002226.02101,"635,00904-5640-93 ",.02)
  1. ;;00904-5640-93
  1. ;;9002226.02101,"635,00904-5642-43 ",.01)
  1. ;;00904-5642-43
  1. ;;9002226.02101,"635,00904-5642-43 ",.02)
  1. ;;00904-5642-43
  1. ;;9002226.02101,"635,00904-5642-46 ",.01)
  1. ;;00904-5642-46
  1. ;;9002226.02101,"635,00904-5642-46 ",.02)
  1. ;;00904-5642-46
  1. ;;9002226.02101,"635,00904-5642-48 ",.01)
  1. ;;00904-5642-48
  1. ;;9002226.02101,"635,00904-5642-48 ",.02)
  1. ;;00904-5642-48
  1. ;;9002226.02101,"635,00904-5642-52 ",.01)
  1. ;;00904-5642-52
  1. ;;9002226.02101,"635,00904-5642-52 ",.02)
  1. ;;00904-5642-52
  1. ;;9002226.02101,"635,00904-5642-93 ",.01)
  1. ;;00904-5642-93
  1. ;;9002226.02101,"635,00904-5642-93 ",.02)
  1. ;;00904-5642-93
  1. ;;9002226.02101,"635,00904-5701-61 ",.01)
  1. ;;00904-5701-61
  1. ;;9002226.02101,"635,00904-5701-61 ",.02)
  1. ;;00904-5701-61
  1. ;;9002226.02101,"635,12280-0033-00 ",.01)
  1. ;;12280-0033-00
  1. ;;9002226.02101,"635,12280-0033-00 ",.02)
  1. ;;12280-0033-00
  1. ;;9002226.02101,"635,12280-0059-90 ",.01)
  1. ;;12280-0059-90
  1. ;;9002226.02101,"635,12280-0059-90 ",.02)
  1. ;;12280-0059-90
  1. ;;9002226.02101,"635,12280-0061-00 ",.01)
  1. ;;12280-0061-00
  1. ;;9002226.02101,"635,12280-0061-00 ",.02)
  1. ;;12280-0061-00
  1. ;;9002226.02101,"635,12280-0120-30 ",.01)
  1. ;;12280-0120-30