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

BGPLXCI.m

Go to the documentation of this file.
  1. BGPLXCI ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON NOV 18, 2003 ;
  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,"781,13815-6 ",.02)
  1. ;;13815-6
  1. ;;9002226.02101,"781,13816-4 ",.01)
  1. ;;13816-4
  1. ;;9002226.02101,"781,13816-4 ",.02)
  1. ;;13816-4
  1. ;;9002226.02101,"781,13817-2 ",.01)
  1. ;;13817-2
  1. ;;9002226.02101,"781,13817-2 ",.02)
  1. ;;13817-2
  1. ;;9002226.02101,"781,13818-0 ",.01)
  1. ;;13818-0
  1. ;;9002226.02101,"781,13818-0 ",.02)
  1. ;;13818-0
  1. ;;9002226.02101,"781,13819-8 ",.01)
  1. ;;13819-8
  1. ;;9002226.02101,"781,13819-8 ",.02)
  1. ;;13819-8
  1. ;;9002226.02101,"781,13820-6 ",.01)
  1. ;;13820-6
  1. ;;9002226.02101,"781,13820-6 ",.02)
  1. ;;13820-6
  1. ;;9002226.02101,"781,13821-4 ",.01)
  1. ;;13821-4
  1. ;;9002226.02101,"781,13821-4 ",.02)
  1. ;;13821-4
  1. ;;9002226.02101,"781,13822-2 ",.01)
  1. ;;13822-2
  1. ;;9002226.02101,"781,13822-2 ",.02)
  1. ;;13822-2
  1. ;;9002226.02101,"781,13823-0 ",.01)
  1. ;;13823-0
  1. ;;9002226.02101,"781,13823-0 ",.02)
  1. ;;13823-0
  1. ;;9002226.02101,"781,13824-8 ",.01)
  1. ;;13824-8
  1. ;;9002226.02101,"781,13824-8 ",.02)
  1. ;;13824-8
  1. ;;9002226.02101,"781,13825-5 ",.01)
  1. ;;13825-5
  1. ;;9002226.02101,"781,13825-5 ",.02)
  1. ;;13825-5
  1. ;;9002226.02101,"781,13826-3 ",.01)
  1. ;;13826-3
  1. ;;9002226.02101,"781,13826-3 ",.02)
  1. ;;13826-3
  1. ;;9002226.02101,"781,13827-1 ",.01)
  1. ;;13827-1
  1. ;;9002226.02101,"781,13827-1 ",.02)
  1. ;;13827-1
  1. ;;9002226.02101,"781,13828-9 ",.01)
  1. ;;13828-9
  1. ;;9002226.02101,"781,13828-9 ",.02)
  1. ;;13828-9
  1. ;;9002226.02101,"781,13829-7 ",.01)
  1. ;;13829-7
  1. ;;9002226.02101,"781,13829-7 ",.02)
  1. ;;13829-7
  1. ;;9002226.02101,"781,13830-5 ",.01)
  1. ;;13830-5
  1. ;;9002226.02101,"781,13830-5 ",.02)
  1. ;;13830-5
  1. ;;9002226.02101,"781,13831-3 ",.01)
  1. ;;13831-3
  1. ;;9002226.02101,"781,13831-3 ",.02)
  1. ;;13831-3
  1. ;;9002226.02101,"781,13832-1 ",.01)
  1. ;;13832-1
  1. ;;9002226.02101,"781,13832-1 ",.02)
  1. ;;13832-1
  1. ;;9002226.02101,"781,13881-8 ",.01)
  1. ;;13881-8
  1. ;;9002226.02101,"781,13881-8 ",.02)
  1. ;;13881-8
  1. ;;9002226.02101,"781,13996-4 ",.01)
  1. ;;13996-4
  1. ;;9002226.02101,"781,13996-4 ",.02)
  1. ;;13996-4
  1. ;;9002226.02101,"781,14115-0 ",.01)
  1. ;;14115-0
  1. ;;9002226.02101,"781,14115-0 ",.02)
  1. ;;14115-0
  1. ;;9002226.02101,"781,14153-1 ",.01)
  1. ;;14153-1
  1. ;;9002226.02101,"781,14153-1 ",.02)
  1. ;;14153-1
  1. ;;9002226.02101,"781,14295-0 ",.01)
  1. ;;14295-0
  1. ;;9002226.02101,"781,14295-0 ",.02)
  1. ;;14295-0
  1. ;;9002226.02101,"781,14398-2 ",.01)
  1. ;;14398-2
  1. ;;9002226.02101,"781,14398-2 ",.02)
  1. ;;14398-2
  1. ;;9002226.02101,"781,14399-0 ",.01)
  1. ;;14399-0
  1. ;;9002226.02101,"781,14399-0 ",.02)
  1. ;;14399-0
  1. ;;9002226.02101,"781,14401-4 ",.01)
  1. ;;14401-4
  1. ;;9002226.02101,"781,14401-4 ",.02)
  1. ;;14401-4
  1. ;;9002226.02101,"781,14402-2 ",.01)
  1. ;;14402-2
  1. ;;9002226.02101,"781,14402-2 ",.02)
  1. ;;14402-2
  1. ;;9002226.02101,"781,1452-2 ",.01)
  1. ;;1452-2
  1. ;;9002226.02101,"781,1452-2 ",.02)
  1. ;;1452-2
  1. ;;9002226.02101,"781,1453-0 ",.01)
  1. ;;1453-0
  1. ;;9002226.02101,"781,1453-0 ",.02)
  1. ;;1453-0
  1. ;;9002226.02101,"781,1454-8 ",.01)
  1. ;;1454-8
  1. ;;9002226.02101,"781,1454-8 ",.02)
  1. ;;1454-8
  1. ;;9002226.02101,"781,1455-5 ",.01)
  1. ;;1455-5
  1. ;;9002226.02101,"781,1455-5 ",.02)
  1. ;;1455-5
  1. ;;9002226.02101,"781,1456-3 ",.01)
  1. ;;1456-3
  1. ;;9002226.02101,"781,1456-3 ",.02)
  1. ;;1456-3
  1. ;;9002226.02101,"781,1457-1 ",.01)
  1. ;;1457-1
  1. ;;9002226.02101,"781,1457-1 ",.02)
  1. ;;1457-1
  1. ;;9002226.02101,"781,1458-9 ",.01)
  1. ;;1458-9
  1. ;;9002226.02101,"781,1458-9 ",.02)
  1. ;;1458-9
  1. ;;9002226.02101,"781,14585-4 ",.01)
  1. ;;14585-4
  1. ;;9002226.02101,"781,14585-4 ",.02)
  1. ;;14585-4
  1. ;;9002226.02101,"781,1459-7 ",.01)
  1. ;;1459-7
  1. ;;9002226.02101,"781,1459-7 ",.02)
  1. ;;1459-7
  1. ;;9002226.02101,"781,14681-1 ",.01)
  1. ;;14681-1
  1. ;;9002226.02101,"781,14681-1 ",.02)
  1. ;;14681-1
  1. ;;9002226.02101,"781,14682-9 ",.01)
  1. ;;14682-9
  1. ;;9002226.02101,"781,14682-9 ",.02)
  1. ;;14682-9
  1. ;;9002226.02101,"781,14683-7 ",.01)
  1. ;;14683-7
  1. ;;9002226.02101,"781,14683-7 ",.02)
  1. ;;14683-7
  1. ;;9002226.02101,"781,14684-5 ",.01)
  1. ;;14684-5
  1. ;;9002226.02101,"781,14684-5 ",.02)
  1. ;;14684-5
  1. ;;9002226.02101,"781,14831-2 ",.01)
  1. ;;14831-2
  1. ;;9002226.02101,"781,14831-2 ",.02)
  1. ;;14831-2
  1. ;;9002226.02101,"781,14948-4 ",.01)
  1. ;;14948-4
  1. ;;9002226.02101,"781,14948-4 ",.02)
  1. ;;14948-4
  1. ;;9002226.02101,"781,14958-3 ",.01)
  1. ;;14958-3
  1. ;;9002226.02101,"781,14958-3 ",.02)
  1. ;;14958-3
  1. ;;9002226.02101,"781,14959-1 ",.01)
  1. ;;14959-1
  1. ;;9002226.02101,"781,14959-1 ",.02)
  1. ;;14959-1
  1. ;;9002226.02101,"781,15050-8 ",.01)
  1. ;;15050-8
  1. ;;9002226.02101,"781,15050-8 ",.02)
  1. ;;15050-8
  1. ;;9002226.02101,"781,15051-6 ",.01)
  1. ;;15051-6
  1. ;;9002226.02101,"781,15051-6 ",.02)
  1. ;;15051-6
  1. ;;9002226.02101,"781,16188-5 ",.01)
  1. ;;16188-5
  1. ;;9002226.02101,"781,16188-5 ",.02)
  1. ;;16188-5
  1. ;;9002226.02101,"781,16189-3 ",.01)
  1. ;;16189-3
  1. ;;9002226.02101,"781,16189-3 ",.02)
  1. ;;16189-3
  1. ;;9002226.02101,"781,16285-9 ",.01)
  1. ;;16285-9
  1. ;;9002226.02101,"781,16285-9 ",.02)
  1. ;;16285-9
  1. ;;9002226.02101,"781,16304-8 ",.01)
  1. ;;16304-8
  1. ;;9002226.02101,"781,16304-8 ",.02)
  1. ;;16304-8
  1. ;;9002226.02101,"781,16469-9 ",.01)
  1. ;;16469-9
  1. ;;9002226.02101,"781,16469-9 ",.02)
  1. ;;16469-9
  1. ;;9002226.02101,"781,16689-2 ",.01)
  1. ;;16689-2
  1. ;;9002226.02101,"781,16689-2 ",.02)
  1. ;;16689-2
  1. ;;9002226.02101,"781,16690-0 ",.01)
  1. ;;16690-0
  1. ;;9002226.02101,"781,16690-0 ",.02)
  1. ;;16690-0
  1. ;;9002226.02101,"781,16700-7 ",.01)
  1. ;;16700-7