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

BGP21O7.m

Go to the documentation of this file.
  1. BGP21O7 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON OCT 14, 2011;
  1. ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
  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,"1204,00456-0672-99 ",.02)
  1. ;;00456-0672-99
  1. ;;9002226.02101,"1204,00456-4301-01 ",.01)
  1. ;;00456-4301-01
  1. ;;9002226.02101,"1204,00456-4301-01 ",.02)
  1. ;;00456-4301-01
  1. ;;9002226.02101,"1204,00456-4302-01 ",.01)
  1. ;;00456-4302-01
  1. ;;9002226.02101,"1204,00456-4302-01 ",.02)
  1. ;;00456-4302-01
  1. ;;9002226.02101,"1204,00456-4303-01 ",.01)
  1. ;;00456-4303-01
  1. ;;9002226.02101,"1204,00456-4303-01 ",.02)
  1. ;;00456-4303-01
  1. ;;9002226.02101,"1204,00456-4310-01 ",.01)
  1. ;;00456-4310-01
  1. ;;9002226.02101,"1204,00456-4310-01 ",.02)
  1. ;;00456-4310-01
  1. ;;9002226.02101,"1204,00456-4310-02 ",.01)
  1. ;;00456-4310-02
  1. ;;9002226.02101,"1204,00456-4310-02 ",.02)
  1. ;;00456-4310-02
  1. ;;9002226.02101,"1204,00456-4320-00 ",.01)
  1. ;;00456-4320-00
  1. ;;9002226.02101,"1204,00456-4320-00 ",.02)
  1. ;;00456-4320-00
  1. ;;9002226.02101,"1204,00456-4320-01 ",.01)
  1. ;;00456-4320-01
  1. ;;9002226.02101,"1204,00456-4320-01 ",.02)
  1. ;;00456-4320-01
  1. ;;9002226.02101,"1204,00456-4320-02 ",.01)
  1. ;;00456-4320-02
  1. ;;9002226.02101,"1204,00456-4320-02 ",.02)
  1. ;;00456-4320-02
  1. ;;9002226.02101,"1204,00456-4330-00 ",.01)
  1. ;;00456-4330-00
  1. ;;9002226.02101,"1204,00456-4330-00 ",.02)
  1. ;;00456-4330-00
  1. ;;9002226.02101,"1204,00456-4330-01 ",.01)
  1. ;;00456-4330-01
  1. ;;9002226.02101,"1204,00456-4330-01 ",.02)
  1. ;;00456-4330-01
  1. ;;9002226.02101,"1204,00456-4330-02 ",.01)
  1. ;;00456-4330-02
  1. ;;9002226.02101,"1204,00456-4330-02 ",.02)
  1. ;;00456-4330-02
  1. ;;9002226.02101,"1204,00456-4345-01 ",.01)
  1. ;;00456-4345-01
  1. ;;9002226.02101,"1204,00456-4345-01 ",.02)
  1. ;;00456-4345-01
  1. ;;9002226.02101,"1204,00490-0080-00 ",.01)
  1. ;;00490-0080-00
  1. ;;9002226.02101,"1204,00490-0080-00 ",.02)
  1. ;;00490-0080-00
  1. ;;9002226.02101,"1204,00490-0080-30 ",.01)
  1. ;;00490-0080-30
  1. ;;9002226.02101,"1204,00490-0080-30 ",.02)
  1. ;;00490-0080-30
  1. ;;9002226.02101,"1204,00490-0080-60 ",.01)
  1. ;;00490-0080-60
  1. ;;9002226.02101,"1204,00490-0080-60 ",.02)
  1. ;;00490-0080-60
  1. ;;9002226.02101,"1204,00490-0080-90 ",.01)
  1. ;;00490-0080-90
  1. ;;9002226.02101,"1204,00490-0080-90 ",.02)
  1. ;;00490-0080-90
  1. ;;9002226.02101,"1204,00585-0675-01 ",.01)
  1. ;;00585-0675-01
  1. ;;9002226.02101,"1204,00585-0675-01 ",.02)
  1. ;;00585-0675-01
  1. ;;9002226.02101,"1204,00585-0675-02 ",.01)
  1. ;;00585-0675-02
  1. ;;9002226.02101,"1204,00585-0675-02 ",.02)
  1. ;;00585-0675-02
  1. ;;9002226.02101,"1204,00585-0685-02 ",.01)
  1. ;;00585-0685-02
  1. ;;9002226.02101,"1204,00585-0685-02 ",.02)
  1. ;;00585-0685-02
  1. ;;9002226.02101,"1204,00603-5944-21 ",.01)
  1. ;;00603-5944-21
  1. ;;9002226.02101,"1204,00603-5944-21 ",.02)
  1. ;;00603-5944-21
  1. ;;9002226.02101,"1204,00603-5944-28 ",.01)
  1. ;;00603-5944-28
  1. ;;9002226.02101,"1204,00603-5944-28 ",.02)
  1. ;;00603-5944-28
  1. ;;9002226.02101,"1204,00603-5945-21 ",.01)
  1. ;;00603-5945-21
  1. ;;9002226.02101,"1204,00603-5945-21 ",.02)
  1. ;;00603-5945-21
  1. ;;9002226.02101,"1204,00603-5945-28 ",.01)
  1. ;;00603-5945-28
  1. ;;9002226.02101,"1204,00603-5945-28 ",.02)
  1. ;;00603-5945-28
  1. ;;9002226.02101,"1204,00603-5945-32 ",.01)
  1. ;;00603-5945-32
  1. ;;9002226.02101,"1204,00603-5945-32 ",.02)
  1. ;;00603-5945-32
  1. ;;9002226.02101,"1204,00603-5946-21 ",.01)
  1. ;;00603-5946-21
  1. ;;9002226.02101,"1204,00603-5946-21 ",.02)
  1. ;;00603-5946-21
  1. ;;9002226.02101,"1204,00603-5946-28 ",.01)
  1. ;;00603-5946-28
  1. ;;9002226.02101,"1204,00603-5946-28 ",.02)
  1. ;;00603-5946-28
  1. ;;9002226.02101,"1204,00603-5946-32 ",.01)
  1. ;;00603-5946-32
  1. ;;9002226.02101,"1204,00603-5946-32 ",.02)
  1. ;;00603-5946-32
  1. ;;9002226.02101,"1204,00603-5950-21 ",.01)
  1. ;;00603-5950-21
  1. ;;9002226.02101,"1204,00603-5950-21 ",.02)
  1. ;;00603-5950-21
  1. ;;9002226.02101,"1204,00603-5951-21 ",.01)
  1. ;;00603-5951-21
  1. ;;9002226.02101,"1204,00603-5951-21 ",.02)
  1. ;;00603-5951-21
  1. ;;9002226.02101,"1204,00603-5952-21 ",.01)
  1. ;;00603-5952-21
  1. ;;9002226.02101,"1204,00603-5952-21 ",.02)
  1. ;;00603-5952-21
  1. ;;9002226.02101,"1204,00677-0817-01 ",.01)
  1. ;;00677-0817-01
  1. ;;9002226.02101,"1204,00677-0817-01 ",.02)
  1. ;;00677-0817-01
  1. ;;9002226.02101,"1204,00677-0817-05 ",.01)
  1. ;;00677-0817-05
  1. ;;9002226.02101,"1204,00677-0817-05 ",.02)
  1. ;;00677-0817-05
  1. ;;9002226.02101,"1204,00677-0846-01 ",.01)
  1. ;;00677-0846-01
  1. ;;9002226.02101,"1204,00677-0846-01 ",.02)
  1. ;;00677-0846-01
  1. ;;9002226.02101,"1204,00677-0846-05 ",.01)
  1. ;;00677-0846-05
  1. ;;9002226.02101,"1204,00677-0846-05 ",.02)
  1. ;;00677-0846-05
  1. ;;9002226.02101,"1204,00904-1610-60 ",.01)
  1. ;;00904-1610-60
  1. ;;9002226.02101,"1204,00904-1610-60 ",.02)
  1. ;;00904-1610-60
  1. ;;9002226.02101,"1204,00904-1610-61 ",.01)
  1. ;;00904-1610-61
  1. ;;9002226.02101,"1204,00904-1610-61 ",.02)
  1. ;;00904-1610-61
  1. ;;9002226.02101,"1204,00904-1611-60 ",.01)
  1. ;;00904-1611-60
  1. ;;9002226.02101,"1204,00904-1611-60 ",.02)
  1. ;;00904-1611-60
  1. ;;9002226.02101,"1204,00904-1611-61 ",.01)
  1. ;;00904-1611-61
  1. ;;9002226.02101,"1204,00904-1611-61 ",.02)
  1. ;;00904-1611-61
  1. ;;9002226.02101,"1204,00904-1611-80 ",.01)
  1. ;;00904-1611-80
  1. ;;9002226.02101,"1204,00904-1611-80 ",.02)
  1. ;;00904-1611-80
  1. ;;9002226.02101,"1204,00904-1612-40 ",.01)
  1. ;;00904-1612-40
  1. ;;9002226.02101,"1204,00904-1612-40 ",.02)
  1. ;;00904-1612-40
  1. ;;9002226.02101,"1204,00904-1612-60 ",.01)
  1. ;;00904-1612-60
  1. ;;9002226.02101,"1204,00904-1612-60 ",.02)
  1. ;;00904-1612-60
  1. ;;9002226.02101,"1204,00904-1612-61 ",.01)
  1. ;;00904-1612-61
  1. ;;9002226.02101,"1204,00904-1612-61 ",.02)
  1. ;;00904-1612-61