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

BGP7IXCB.m

Go to the documentation of this file.
  1. BGP7IXCB ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 11, 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,"314,34699-9 ",.02)
  1. ;;34699-9
  1. ;;9002226.02101,"314,35437-3 ",.01)
  1. ;;35437-3
  1. ;;9002226.02101,"314,35437-3 ",.02)
  1. ;;35437-3
  1. ;;9002226.02101,"314,35438-1 ",.01)
  1. ;;35438-1
  1. ;;9002226.02101,"314,35438-1 ",.02)
  1. ;;35438-1
  1. ;;9002226.02101,"314,35439-9 ",.01)
  1. ;;35439-9
  1. ;;9002226.02101,"314,35439-9 ",.02)
  1. ;;35439-9
  1. ;;9002226.02101,"314,35440-7 ",.01)
  1. ;;35440-7
  1. ;;9002226.02101,"314,35440-7 ",.02)
  1. ;;35440-7
  1. ;;9002226.02101,"314,35441-5 ",.01)
  1. ;;35441-5
  1. ;;9002226.02101,"314,35441-5 ",.02)
  1. ;;35441-5
  1. ;;9002226.02101,"314,35442-3 ",.01)
  1. ;;35442-3
  1. ;;9002226.02101,"314,35442-3 ",.02)
  1. ;;35442-3
  1. ;;9002226.02101,"314,35443-1 ",.01)
  1. ;;35443-1
  1. ;;9002226.02101,"314,35443-1 ",.02)
  1. ;;35443-1
  1. ;;9002226.02101,"314,35444-9 ",.01)
  1. ;;35444-9
  1. ;;9002226.02101,"314,35444-9 ",.02)
  1. ;;35444-9
  1. ;;9002226.02101,"314,35445-6 ",.01)
  1. ;;35445-6
  1. ;;9002226.02101,"314,35445-6 ",.02)
  1. ;;35445-6
  1. ;;9002226.02101,"314,35446-4 ",.01)
  1. ;;35446-4
  1. ;;9002226.02101,"314,35446-4 ",.02)
  1. ;;35446-4
  1. ;;9002226.02101,"314,35447-2 ",.01)
  1. ;;35447-2
  1. ;;9002226.02101,"314,35447-2 ",.02)
  1. ;;35447-2
  1. ;;9002226.02101,"314,35448-0 ",.01)
  1. ;;35448-0
  1. ;;9002226.02101,"314,35448-0 ",.02)
  1. ;;35448-0
  1. ;;9002226.02101,"314,35449-8 ",.01)
  1. ;;35449-8
  1. ;;9002226.02101,"314,35449-8 ",.02)
  1. ;;35449-8
  1. ;;9002226.02101,"314,35450-6 ",.01)
  1. ;;35450-6
  1. ;;9002226.02101,"314,35450-6 ",.02)
  1. ;;35450-6
  1. ;;9002226.02101,"314,35452-2 ",.01)
  1. ;;35452-2
  1. ;;9002226.02101,"314,35452-2 ",.02)
  1. ;;35452-2
  1. ;;9002226.02101,"314,35564-4 ",.01)
  1. ;;35564-4
  1. ;;9002226.02101,"314,35564-4 ",.02)
  1. ;;35564-4
  1. ;;9002226.02101,"314,35565-1 ",.01)
  1. ;;35565-1
  1. ;;9002226.02101,"314,35565-1 ",.02)
  1. ;;35565-1
  1. ;;9002226.02101,"314,38998-1 ",.01)
  1. ;;38998-1
  1. ;;9002226.02101,"314,38998-1 ",.02)
  1. ;;38998-1
  1. ;;9002226.02101,"314,40437-6 ",.01)
  1. ;;40437-6
  1. ;;9002226.02101,"314,40437-6 ",.02)
  1. ;;40437-6
  1. ;;9002226.02101,"314,40438-4 ",.01)
  1. ;;40438-4
  1. ;;9002226.02101,"314,40438-4 ",.02)
  1. ;;40438-4
  1. ;;9002226.02101,"314,40439-2 ",.01)
  1. ;;40439-2
  1. ;;9002226.02101,"314,40439-2 ",.02)
  1. ;;40439-2
  1. ;;9002226.02101,"314,40732-0 ",.01)
  1. ;;40732-0
  1. ;;9002226.02101,"314,40732-0 ",.02)
  1. ;;40732-0
  1. ;;9002226.02101,"314,40733-8 ",.01)
  1. ;;40733-8
  1. ;;9002226.02101,"314,40733-8 ",.02)
  1. ;;40733-8
  1. ;;9002226.02101,"314,41143-9 ",.01)
  1. ;;41143-9
  1. ;;9002226.02101,"314,41143-9 ",.02)
  1. ;;41143-9
  1. ;;9002226.02101,"314,41144-7 ",.01)
  1. ;;41144-7
  1. ;;9002226.02101,"314,41144-7 ",.02)
  1. ;;41144-7
  1. ;;9002226.02101,"314,41145-4 ",.01)
  1. ;;41145-4
  1. ;;9002226.02101,"314,41145-4 ",.02)
  1. ;;41145-4
  1. ;;9002226.02101,"314,41290-8 ",.01)
  1. ;;41290-8
  1. ;;9002226.02101,"314,41290-8 ",.02)
  1. ;;41290-8
  1. ;;9002226.02101,"314,41497-9 ",.01)
  1. ;;41497-9
  1. ;;9002226.02101,"314,41497-9 ",.02)
  1. ;;41497-9
  1. ;;9002226.02101,"314,41498-7 ",.01)
  1. ;;41498-7
  1. ;;9002226.02101,"314,41498-7 ",.02)
  1. ;;41498-7
  1. ;;9002226.02101,"314,41513-3 ",.01)
  1. ;;41513-3
  1. ;;9002226.02101,"314,41513-3 ",.02)
  1. ;;41513-3
  1. ;;9002226.02101,"314,41514-1 ",.01)
  1. ;;41514-1
  1. ;;9002226.02101,"314,41514-1 ",.02)
  1. ;;41514-1
  1. ;;9002226.02101,"314,41515-8 ",.01)
  1. ;;41515-8
  1. ;;9002226.02101,"314,41515-8 ",.02)
  1. ;;41515-8
  1. ;;9002226.02101,"314,41516-6 ",.01)
  1. ;;41516-6
  1. ;;9002226.02101,"314,41516-6 ",.02)
  1. ;;41516-6
  1. ;;9002226.02101,"314,42339-2 ",.01)
  1. ;;42339-2
  1. ;;9002226.02101,"314,42339-2 ",.02)
  1. ;;42339-2
  1. ;;9002226.02101,"314,42600-7 ",.01)
  1. ;;42600-7
  1. ;;9002226.02101,"314,42600-7 ",.02)
  1. ;;42600-7
  1. ;;9002226.02101,"314,42627-0 ",.01)
  1. ;;42627-0
  1. ;;9002226.02101,"314,42627-0 ",.02)
  1. ;;42627-0
  1. ;;9002226.02101,"314,42768-2 ",.01)
  1. ;;42768-2
  1. ;;9002226.02101,"314,42768-2 ",.02)
  1. ;;42768-2
  1. ;;9002226.02101,"314,42917-5 ",.01)
  1. ;;42917-5
  1. ;;9002226.02101,"314,42917-5 ",.02)
  1. ;;42917-5
  1. ;;9002226.02101,"314,43008-2 ",.01)
  1. ;;43008-2
  1. ;;9002226.02101,"314,43008-2 ",.02)
  1. ;;43008-2
  1. ;;9002226.02101,"314,43009-0 ",.01)
  1. ;;43009-0
  1. ;;9002226.02101,"314,43009-0 ",.02)
  1. ;;43009-0
  1. ;;9002226.02101,"314,43010-8 ",.01)
  1. ;;43010-8
  1. ;;9002226.02101,"314,43010-8 ",.02)
  1. ;;43010-8
  1. ;;9002226.02101,"314,43011-6 ",.01)
  1. ;;43011-6
  1. ;;9002226.02101,"314,43011-6 ",.02)
  1. ;;43011-6
  1. ;;9002226.02101,"314,43012-4 ",.01)
  1. ;;43012-4
  1. ;;9002226.02101,"314,43012-4 ",.02)
  1. ;;43012-4
  1. ;;9002226.02101,"314,43013-2 ",.01)
  1. ;;43013-2
  1. ;;9002226.02101,"314,43013-2 ",.02)
  1. ;;43013-2
  1. ;;9002226.02101,"314,43185-8 ",.01)
  1. ;;43185-8
  1. ;;9002226.02101,"314,43185-8 ",.02)
  1. ;;43185-8
  1. ;;9002226.02101,"314,43599-0 ",.01)
  1. ;;43599-0
  1. ;;9002226.02101,"314,43599-0 ",.02)
  1. ;;43599-0
  1. ;;9002226.02101,"314,44532-0 ",.01)
  1. ;;44532-0
  1. ;;9002226.02101,"314,44532-0 ",.02)
  1. ;;44532-0
  1. ;;9002226.02101,"314,44533-8 ",.01)
  1. ;;44533-8
  1. ;;9002226.02101,"314,44533-8 ",.02)
  1. ;;44533-8
  1. ;;9002226.02101,"314,44607-0 ",.01)
  1. ;;44607-0
  1. ;;9002226.02101,"314,44607-0 ",.02)
  1. ;;44607-0
  1. ;;9002226.02101,"314,44871-2 ",.01)
  1. ;;44871-2
  1. ;;9002226.02101,"314,44871-2 ",.02)
  1. ;;44871-2
  1. ;;9002226.02101,"314,44872-0 ",.01)
  1. ;;44872-0
  1. ;;9002226.02101,"314,44872-0 ",.02)
  1. ;;44872-0
  1. ;;9002226.02101,"314,44873-8 ",.01)
  1. ;;44873-8
  1. ;;9002226.02101,"314,44873-8 ",.02)
  1. ;;44873-8
  1. ;;9002226.02101,"314,45212-8 ",.01)
  1. ;;45212-8
  1. ;;9002226.02101,"314,45212-8 ",.02)
  1. ;;45212-8
  1. ;;9002226.02101,"314,5017-9 ",.01)
  1. ;;5017-9
  1. ;;9002226.02101,"314,5017-9 ",.02)
  1. ;;5017-9
  1. ;;9002226.02101,"314,5018-7 ",.01)
  1. ;;5018-7
  1. ;;9002226.02101,"314,5018-7 ",.02)
  1. ;;5018-7
  1. ;;9002226.02101,"314,5220-9 ",.01)
  1. ;;5220-9
  1. ;;9002226.02101,"314,5220-9 ",.02)
  1. ;;5220-9
  1. ;;9002226.02101,"314,5221-7 ",.01)
  1. ;;5221-7
  1. ;;9002226.02101,"314,5221-7 ",.02)
  1. ;;5221-7
  1. ;;9002226.02101,"314,5222-5 ",.01)
  1. ;;5222-5
  1. ;;9002226.02101,"314,5222-5 ",.02)
  1. ;;5222-5
  1. ;;9002226.02101,"314,5223-3 ",.01)
  1. ;;5223-3
  1. ;;9002226.02101,"314,5223-3 ",.02)
  1. ;;5223-3
  1. ;;9002226.02101,"314,5224-1 ",.01)
  1. ;;5224-1
  1. ;;9002226.02101,"314,5224-1 ",.02)
  1. ;;5224-1
  1. ;;9002226.02101,"314,5225-8 ",.01)
  1. ;;5225-8
  1. ;;9002226.02101,"314,5225-8 ",.02)
  1. ;;5225-8
  1. ;;9002226.02101,"314,6429-5 ",.01)
  1. ;;6429-5
  1. ;;9002226.02101,"314,6429-5 ",.02)
  1. ;;6429-5
  1. ;;9002226.02101,"314,6430-3 ",.01)
  1. ;;6430-3
  1. ;;9002226.02101,"314,6430-3 ",.02)
  1. ;;6430-3
  1. ;;9002226.02101,"314,6431-1 ",.01)
  1. ;;6431-1
  1. ;;9002226.02101,"314,6431-1 ",.02)
  1. ;;6431-1
  1. ;;9002226.02101,"314,7917-8 ",.01)
  1. ;;7917-8
  1. ;;9002226.02101,"314,7917-8 ",.02)
  1. ;;7917-8
  1. ;;9002226.02101,"314,7918-6 ",.01)
  1. ;;7918-6
  1. ;;9002226.02101,"314,7918-6 ",.02)
  1. ;;7918-6
  1. ;;9002226.02101,"314,7919-4 ",.01)
  1. ;;7919-4
  1. ;;9002226.02101,"314,7919-4 ",.02)
  1. ;;7919-4
  1. ;;9002226.02101,"314,9660-2 ",.01)
  1. ;;9660-2
  1. ;;9002226.02101,"314,9660-2 ",.02)
  1. ;;9660-2
  1. ;;9002226.02101,"314,9661-0 ",.01)
  1. ;;9661-0
  1. ;;9002226.02101,"314,9661-0 ",.02)
  1. ;;9661-0
  1. ;;9002226.02101,"314,9662-8 ",.01)
  1. ;;9662-8
  1. ;;9002226.02101,"314,9662-8 ",.02)
  1. ;;9662-8
  1. ;;9002226.02101,"314,9663-6 ",.01)
  1. ;;9663-6
  1. ;;9002226.02101,"314,9663-6 ",.02)
  1. ;;9663-6
  1. ;;9002226.02101,"314,9664-4 ",.01)
  1. ;;9664-4
  1. ;;9002226.02101,"314,9664-4 ",.02)
  1. ;;9664-4
  1. ;;9002226.02101,"314,9665-1 ",.01)
  1. ;;9665-1
  1. ;;9002226.02101,"314,9665-1 ",.02)
  1. ;;9665-1
  1. ;;9002226.02101,"314,9666-9 ",.01)
  1. ;;9666-9
  1. ;;9002226.02101,"314,9666-9 ",.02)
  1. ;;9666-9
  1. ;;9002226.02101,"314,9667-7 ",.01)
  1. ;;9667-7
  1. ;;9002226.02101,"314,9667-7 ",.02)
  1. ;;9667-7
  1. ;;9002226.02101,"314,9668-5 ",.01)
  1. ;;9668-5
  1. ;;9002226.02101,"314,9668-5 ",.02)
  1. ;;9668-5
  1. ;;9002226.02101,"314,9669-3 ",.01)
  1. ;;9669-3
  1. ;;9002226.02101,"314,9669-3 ",.02)
  1. ;;9669-3
  1. ;;9002226.02101,"314,9821-0 ",.01)
  1. ;;9821-0
  1. ;;9002226.02101,"314,9821-0 ",.02)
  1. ;;9821-0
  1. ;;9002226.02101,"314,9836-8 ",.01)
  1. ;;9836-8
  1. ;;9002226.02101,"314,9836-8 ",.02)
  1. ;;9836-8
  1. ;;9002226.02101,"314,9837-6 ",.01)
  1. ;;9837-6
  1. ;;9002226.02101,"314,9837-6 ",.02)
  1. ;;9837-6