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

ATXD3J2.m

Go to the documentation of this file.
  1. ATXD3J2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON OCT 28, 2013;
  1. ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
  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,"516,M19.149 ",.02)
  1. ;;M19.149
  1. ;;9002226.02101,"516,M19.149 ",.03)
  1. ;;30
  1. ;;9002226.02101,"516,M19.171 ",.01)
  1. ;;M19.171
  1. ;;9002226.02101,"516,M19.171 ",.02)
  1. ;;M19.171
  1. ;;9002226.02101,"516,M19.171 ",.03)
  1. ;;30
  1. ;;9002226.02101,"516,M19.172 ",.01)
  1. ;;M19.172
  1. ;;9002226.02101,"516,M19.172 ",.02)
  1. ;;M19.172
  1. ;;9002226.02101,"516,M19.172 ",.03)
  1. ;;30
  1. ;;9002226.02101,"516,M19.179 ",.01)
  1. ;;M19.179
  1. ;;9002226.02101,"516,M19.179 ",.02)
  1. ;;M19.179
  1. ;;9002226.02101,"516,M19.179 ",.03)
  1. ;;30
  1. ;;9002226.02101,"516,M19.211 ",.01)
  1. ;;M19.211
  1. ;;9002226.02101,"516,M19.211 ",.02)
  1. ;;M19.211
  1. ;;9002226.02101,"516,M19.211 ",.03)
  1. ;;30
  1. ;;9002226.02101,"516,M19.212 ",.01)
  1. ;;M19.212
  1. ;;9002226.02101,"516,M19.212 ",.02)
  1. ;;M19.212
  1. ;;9002226.02101,"516,M19.212 ",.03)
  1. ;;30
  1. ;;9002226.02101,"516,M19.219 ",.01)
  1. ;;M19.219
  1. ;;9002226.02101,"516,M19.219 ",.02)
  1. ;;M19.219
  1. ;;9002226.02101,"516,M19.219 ",.03)
  1. ;;30
  1. ;;9002226.02101,"516,M19.221 ",.01)
  1. ;;M19.221
  1. ;;9002226.02101,"516,M19.221 ",.02)
  1. ;;M19.221
  1. ;;9002226.02101,"516,M19.221 ",.03)
  1. ;;30
  1. ;;9002226.02101,"516,M19.222 ",.01)
  1. ;;M19.222
  1. ;;9002226.02101,"516,M19.222 ",.02)
  1. ;;M19.222
  1. ;;9002226.02101,"516,M19.222 ",.03)
  1. ;;30
  1. ;;9002226.02101,"516,M19.229 ",.01)
  1. ;;M19.229
  1. ;;9002226.02101,"516,M19.229 ",.02)
  1. ;;M19.229
  1. ;;9002226.02101,"516,M19.229 ",.03)
  1. ;;30
  1. ;;9002226.02101,"516,M19.231 ",.01)
  1. ;;M19.231
  1. ;;9002226.02101,"516,M19.231 ",.02)
  1. ;;M19.231
  1. ;;9002226.02101,"516,M19.231 ",.03)
  1. ;;30
  1. ;;9002226.02101,"516,M19.232 ",.01)
  1. ;;M19.232
  1. ;;9002226.02101,"516,M19.232 ",.02)
  1. ;;M19.232
  1. ;;9002226.02101,"516,M19.232 ",.03)
  1. ;;30
  1. ;;9002226.02101,"516,M19.239 ",.01)
  1. ;;M19.239
  1. ;;9002226.02101,"516,M19.239 ",.02)
  1. ;;M19.239
  1. ;;9002226.02101,"516,M19.239 ",.03)
  1. ;;30
  1. ;;9002226.02101,"516,M19.241 ",.01)
  1. ;;M19.241
  1. ;;9002226.02101,"516,M19.241 ",.02)
  1. ;;M19.241
  1. ;;9002226.02101,"516,M19.241 ",.03)
  1. ;;30
  1. ;;9002226.02101,"516,M19.242 ",.01)
  1. ;;M19.242
  1. ;;9002226.02101,"516,M19.242 ",.02)
  1. ;;M19.242
  1. ;;9002226.02101,"516,M19.242 ",.03)
  1. ;;30
  1. ;;9002226.02101,"516,M19.249 ",.01)
  1. ;;M19.249
  1. ;;9002226.02101,"516,M19.249 ",.02)
  1. ;;M19.249
  1. ;;9002226.02101,"516,M19.249 ",.03)
  1. ;;30
  1. ;;9002226.02101,"516,M19.271 ",.01)
  1. ;;M19.271
  1. ;;9002226.02101,"516,M19.271 ",.02)
  1. ;;M19.271
  1. ;;9002226.02101,"516,M19.271 ",.03)
  1. ;;30
  1. ;;9002226.02101,"516,M19.272 ",.01)
  1. ;;M19.272
  1. ;;9002226.02101,"516,M19.272 ",.02)
  1. ;;M19.272
  1. ;;9002226.02101,"516,M19.272 ",.03)
  1. ;;30
  1. ;;9002226.02101,"516,M19.279 ",.01)
  1. ;;M19.279
  1. ;;9002226.02101,"516,M19.279 ",.02)
  1. ;;M19.279
  1. ;;9002226.02101,"516,M19.279 ",.03)
  1. ;;30
  1. ;;9002226.02101,"516,M19.90 ",.01)
  1. ;;M19.90
  1. ;;9002226.02101,"516,M19.90 ",.02)
  1. ;;M19.90
  1. ;;9002226.02101,"516,M19.90 ",.03)
  1. ;;30
  1. ;;9002226.02101,"516,M19.91 ",.01)
  1. ;;M19.91
  1. ;;9002226.02101,"516,M19.91 ",.02)
  1. ;;M19.91
  1. ;;9002226.02101,"516,M19.91 ",.03)
  1. ;;30
  1. ;;9002226.02101,"516,M19.92 ",.01)
  1. ;;M19.92
  1. ;;9002226.02101,"516,M19.92 ",.02)
  1. ;;M19.92
  1. ;;9002226.02101,"516,M19.92 ",.03)
  1. ;;30
  1. ;;9002226.02101,"516,M19.93 ",.01)
  1. ;;M19.93
  1. ;;9002226.02101,"516,M19.93 ",.02)
  1. ;;M19.93
  1. ;;9002226.02101,"516,M19.93 ",.03)
  1. ;;30
  1. ;;9002226.04101,"516,1",.01)
  1. ;;BGP