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

BGPM5AEE.m

Go to the documentation of this file.
  1. BGPM5AEE ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  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,"881,00603255721 ",.01)
  1. ;;00603255721
  1. ;;9002226.02101,"881,00603255721 ",.02)
  1. ;;00603255721
  1. ;;9002226.02101,"881,00603255732 ",.01)
  1. ;;00603255732
  1. ;;9002226.02101,"881,00603255732 ",.02)
  1. ;;00603255732
  1. ;;9002226.02101,"881,00603255821 ",.01)
  1. ;;00603255821
  1. ;;9002226.02101,"881,00603255821 ",.02)
  1. ;;00603255821
  1. ;;9002226.02101,"881,00603420921 ",.01)
  1. ;;00603420921
  1. ;;9002226.02101,"881,00603420921 ",.02)
  1. ;;00603420921
  1. ;;9002226.02101,"881,00603420928 ",.01)
  1. ;;00603420928
  1. ;;9002226.02101,"881,00603420928 ",.02)
  1. ;;00603420928
  1. ;;9002226.02101,"881,00603421002 ",.01)
  1. ;;00603421002
  1. ;;9002226.02101,"881,00603421002 ",.02)
  1. ;;00603421002
  1. ;;9002226.02101,"881,00603421016 ",.01)
  1. ;;00603421016
  1. ;;9002226.02101,"881,00603421016 ",.02)
  1. ;;00603421016
  1. ;;9002226.02101,"881,00603421021 ",.01)
  1. ;;00603421021
  1. ;;9002226.02101,"881,00603421021 ",.02)
  1. ;;00603421021
  1. ;;9002226.02101,"881,00603421028 ",.01)
  1. ;;00603421028
  1. ;;9002226.02101,"881,00603421028 ",.02)
  1. ;;00603421028
  1. ;;9002226.02101,"881,00603421032 ",.01)
  1. ;;00603421032
  1. ;;9002226.02101,"881,00603421032 ",.02)
  1. ;;00603421032
  1. ;;9002226.02101,"881,00603421060 ",.01)
  1. ;;00603421060
  1. ;;9002226.02101,"881,00603421060 ",.02)
  1. ;;00603421060
  1. ;;9002226.02101,"881,00603421102 ",.01)
  1. ;;00603421102
  1. ;;9002226.02101,"881,00603421102 ",.02)
  1. ;;00603421102
  1. ;;9002226.02101,"881,00603421121 ",.01)
  1. ;;00603421121
  1. ;;9002226.02101,"881,00603421121 ",.02)
  1. ;;00603421121
  1. ;;9002226.02101,"881,00603421128 ",.01)
  1. ;;00603421128
  1. ;;9002226.02101,"881,00603421128 ",.02)
  1. ;;00603421128
  1. ;;9002226.02101,"881,00603421132 ",.01)
  1. ;;00603421132
  1. ;;9002226.02101,"881,00603421132 ",.02)
  1. ;;00603421132
  1. ;;9002226.02101,"881,00603421134 ",.01)
  1. ;;00603421134
  1. ;;9002226.02101,"881,00603421134 ",.02)
  1. ;;00603421134
  1. ;;9002226.02101,"881,00603421160 ",.01)
  1. ;;00603421160
  1. ;;9002226.02101,"881,00603421160 ",.02)
  1. ;;00603421160
  1. ;;9002226.02101,"881,00603421202 ",.01)
  1. ;;00603421202
  1. ;;9002226.02101,"881,00603421202 ",.02)
  1. ;;00603421202
  1. ;;9002226.02101,"881,00603421221 ",.01)
  1. ;;00603421221
  1. ;;9002226.02101,"881,00603421221 ",.02)
  1. ;;00603421221
  1. ;;9002226.02101,"881,00603421228 ",.01)
  1. ;;00603421228
  1. ;;9002226.02101,"881,00603421228 ",.02)
  1. ;;00603421228
  1. ;;9002226.02101,"881,00603421232 ",.01)
  1. ;;00603421232
  1. ;;9002226.02101,"881,00603421232 ",.02)
  1. ;;00603421232
  1. ;;9002226.02101,"881,00603421234 ",.01)
  1. ;;00603421234
  1. ;;9002226.02101,"881,00603421234 ",.02)
  1. ;;00603421234
  1. ;;9002226.02101,"881,00603421260 ",.01)
  1. ;;00603421260
  1. ;;9002226.02101,"881,00603421260 ",.02)
  1. ;;00603421260
  1. ;;9002226.02101,"881,00603421321 ",.01)
  1. ;;00603421321
  1. ;;9002226.02101,"881,00603421321 ",.02)
  1. ;;00603421321
  1. ;;9002226.02101,"881,00603421328 ",.01)
  1. ;;00603421328
  1. ;;9002226.02101,"881,00603421328 ",.02)
  1. ;;00603421328
  1. ;;9002226.02101,"881,00603421402 ",.01)
  1. ;;00603421402
  1. ;;9002226.02101,"881,00603421402 ",.02)
  1. ;;00603421402
  1. ;;9002226.02101,"881,00603421404 ",.01)
  1. ;;00603421404
  1. ;;9002226.02101,"881,00603421404 ",.02)
  1. ;;00603421404
  1. ;;9002226.02101,"881,00603421421 ",.01)
  1. ;;00603421421
  1. ;;9002226.02101,"881,00603421421 ",.02)
  1. ;;00603421421
  1. ;;9002226.02101,"881,00603421428 ",.01)
  1. ;;00603421428
  1. ;;9002226.02101,"881,00603421428 ",.02)
  1. ;;00603421428
  1. ;;9002226.02101,"881,00603421430 ",.01)
  1. ;;00603421430
  1. ;;9002226.02101,"881,00603421430 ",.02)
  1. ;;00603421430
  1. ;;9002226.02101,"881,00603421432 ",.01)
  1. ;;00603421432
  1. ;;9002226.02101,"881,00603421432 ",.02)
  1. ;;00603421432
  1. ;;9002226.02101,"881,00603421460 ",.01)
  1. ;;00603421460
  1. ;;9002226.02101,"881,00603421460 ",.02)
  1. ;;00603421460
  1. ;;9002226.02101,"881,00615451939 ",.01)
  1. ;;00615451939
  1. ;;9002226.02101,"881,00615451939 ",.02)
  1. ;;00615451939
  1. ;;9002226.02101,"881,00615452039 ",.01)
  1. ;;00615452039
  1. ;;9002226.02101,"881,00615452039 ",.02)
  1. ;;00615452039
  1. ;;9002226.02101,"881,00615452139 ",.01)
  1. ;;00615452139
  1. ;;9002226.02101,"881,00615452139 ",.02)
  1. ;;00615452139
  1. ;;9002226.02101,"881,00615458939 ",.01)
  1. ;;00615458939
  1. ;;9002226.02101,"881,00615458939 ",.02)
  1. ;;00615458939
  1. ;;9002226.02101,"881,00615459031 ",.01)
  1. ;;00615459031
  1. ;;9002226.02101,"881,00615459031 ",.02)
  1. ;;00615459031
  1. ;;9002226.02101,"881,00615459039 ",.01)
  1. ;;00615459039
  1. ;;9002226.02101,"881,00615459039 ",.02)
  1. ;;00615459039
  1. ;;9002226.02101,"881,00615459131 ",.01)
  1. ;;00615459131
  1. ;;9002226.02101,"881,00615459131 ",.02)
  1. ;;00615459131
  1. ;;9002226.02101,"881,00615459139 ",.01)
  1. ;;00615459139
  1. ;;9002226.02101,"881,00615459139 ",.02)
  1. ;;00615459139
  1. ;;9002226.02101,"881,00615459339 ",.01)
  1. ;;00615459339
  1. ;;9002226.02101,"881,00615459339 ",.02)
  1. ;;00615459339
  1. ;;9002226.02101,"881,00615552105 ",.01)
  1. ;;00615552105
  1. ;;9002226.02101,"881,00615552105 ",.02)
  1. ;;00615552105
  1. ;;9002226.02101,"881,00615552131 ",.01)
  1. ;;00615552131
  1. ;;9002226.02101,"881,00615552131 ",.02)
  1. ;;00615552131
  1. ;;9002226.02101,"881,00615552139 ",.01)
  1. ;;00615552139
  1. ;;9002226.02101,"881,00615552139 ",.02)
  1. ;;00615552139
  1. ;;9002226.02101,"881,00615553005 ",.01)
  1. ;;00615553005
  1. ;;9002226.02101,"881,00615553005 ",.02)
  1. ;;00615553005
  1. ;;9002226.02101,"881,00615553031 ",.01)
  1. ;;00615553031
  1. ;;9002226.02101,"881,00615553031 ",.02)
  1. ;;00615553031
  1. ;;9002226.02101,"881,00615553039 ",.01)
  1. ;;00615553039
  1. ;;9002226.02101,"881,00615553039 ",.02)
  1. ;;00615553039
  1. ;;9002226.02101,"881,00615553105 ",.01)
  1. ;;00615553105
  1. ;;9002226.02101,"881,00615553105 ",.02)
  1. ;;00615553105
  1. ;;9002226.02101,"881,00615553131 ",.01)
  1. ;;00615553131
  1. ;;9002226.02101,"881,00615553131 ",.02)
  1. ;;00615553131
  1. ;;9002226.02101,"881,00615553139 ",.01)
  1. ;;00615553139
  1. ;;9002226.02101,"881,00615553139 ",.02)
  1. ;;00615553139
  1. ;;9002226.02101,"881,00615553831 ",.01)
  1. ;;00615553831
  1. ;;9002226.02101,"881,00615553831 ",.02)
  1. ;;00615553831
  1. ;;9002226.02101,"881,00615553839 ",.01)
  1. ;;00615553839
  1. ;;9002226.02101,"881,00615553839 ",.02)
  1. ;;00615553839
  1. ;;9002226.02101,"881,00615553939 ",.01)
  1. ;;00615553939
  1. ;;9002226.02101,"881,00615553939 ",.02)
  1. ;;00615553939
  1. ;;9002226.02101,"881,00615554005 ",.01)
  1. ;;00615554005
  1. ;;9002226.02101,"881,00615554005 ",.02)
  1. ;;00615554005
  1. ;;9002226.02101,"881,00615554031 ",.01)
  1. ;;00615554031
  1. ;;9002226.02101,"881,00615554031 ",.02)
  1. ;;00615554031
  1. ;;9002226.02101,"881,00615554039 ",.01)
  1. ;;00615554039
  1. ;;9002226.02101,"881,00615554039 ",.02)
  1. ;;00615554039
  1. ;;9002226.02101,"881,00615757739 ",.01)
  1. ;;00615757739
  1. ;;9002226.02101,"881,00615757739 ",.02)
  1. ;;00615757739
  1. ;;9002226.02101,"881,00615758139 ",.01)
  1. ;;00615758139
  1. ;;9002226.02101,"881,00615758139 ",.02)
  1. ;;00615758139
  1. ;;9002226.02101,"881,00615758239 ",.01)
  1. ;;00615758239
  1. ;;9002226.02101,"881,00615758239 ",.02)
  1. ;;00615758239
  1. ;;9002226.02101,"881,00615763931 ",.01)
  1. ;;00615763931
  1. ;;9002226.02101,"881,00615763931 ",.02)
  1. ;;00615763931
  1. ;;9002226.02101,"881,00615763939 ",.01)
  1. ;;00615763939
  1. ;;9002226.02101,"881,00615763939 ",.02)
  1. ;;00615763939
  1. ;;9002226.02101,"881,00615764005 ",.01)
  1. ;;00615764005
  1. ;;9002226.02101,"881,00615764005 ",.02)
  1. ;;00615764005
  1. ;;9002226.02101,"881,00615764031 ",.01)
  1. ;;00615764031
  1. ;;9002226.02101,"881,00615764031 ",.02)
  1. ;;00615764031
  1. ;;9002226.02101,"881,00615764039 ",.01)
  1. ;;00615764039
  1. ;;9002226.02101,"881,00615764039 ",.02)
  1. ;;00615764039
  1. ;;9002226.02101,"881,00615764105 ",.01)
  1. ;;00615764105
  1. ;;9002226.02101,"881,00615764105 ",.02)
  1. ;;00615764105
  1. ;;9002226.02101,"881,00615764131 ",.01)
  1. ;;00615764131
  1. ;;9002226.02101,"881,00615764131 ",.02)
  1. ;;00615764131
  1. ;;9002226.02101,"881,00615764139 ",.01)
  1. ;;00615764139
  1. ;;9002226.02101,"881,00615764139 ",.02)
  1. ;;00615764139
  1. ;;9002226.02101,"881,00615764205 ",.01)
  1. ;;00615764205
  1. ;;9002226.02101,"881,00615764205 ",.02)
  1. ;;00615764205
  1. ;;9002226.02101,"881,00615764231 ",.01)
  1. ;;00615764231
  1. ;;9002226.02101,"881,00615764231 ",.02)
  1. ;;00615764231
  1. ;;9002226.02101,"881,00615764239 ",.01)
  1. ;;00615764239
  1. ;;9002226.02101,"881,00615764239 ",.02)
  1. ;;00615764239
  1. ;;9002226.02101,"881,00615764339 ",.01)
  1. ;;00615764339
  1. ;;9002226.02101,"881,00615764339 ",.02)
  1. ;;00615764339
  1. ;;9002226.02101,"881,00615764405 ",.01)
  1. ;;00615764405
  1. ;;9002226.02101,"881,00615764405 ",.02)
  1. ;;00615764405
  1. ;;9002226.02101,"881,00615764431 ",.01)
  1. ;;00615764431
  1. ;;9002226.02101,"881,00615764431 ",.02)
  1. ;;00615764431
  1. ;;9002226.02101,"881,00615764439 ",.01)
  1. ;;00615764439
  1. ;;9002226.02101,"881,00615764439 ",.02)
  1. ;;00615764439
  1. ;;9002226.02101,"881,00781117601 ",.01)
  1. ;;00781117601
  1. ;;9002226.02101,"881,00781117601 ",.02)
  1. ;;00781117601
  1. ;;9002226.02101,"881,00781117610 ",.01)
  1. ;;00781117610
  1. ;;9002226.02101,"881,00781117610 ",.02)
  1. ;;00781117610
  1. ;;9002226.02101,"881,00781117631 ",.01)
  1. ;;00781117631
  1. ;;9002226.02101,"881,00781117631 ",.02)
  1. ;;00781117631
  1. ;;9002226.02101,"881,00781117801 ",.01)
  1. ;;00781117801
  1. ;;9002226.02101,"881,00781117801 ",.02)
  1. ;;00781117801
  1. ;;9002226.02101,"881,00781117810 ",.01)
  1. ;;00781117810
  1. ;;9002226.02101,"881,00781117810 ",.02)
  1. ;;00781117810
  1. ;;9002226.02101,"881,00781117831 ",.01)
  1. ;;00781117831
  1. ;;9002226.02101,"881,00781117831 ",.02)
  1. ;;00781117831
  1. ;;9002226.02101,"881,00781166501 ",.01)
  1. ;;00781166501
  1. ;;9002226.02101,"881,00781166501 ",.02)
  1. ;;00781166501
  1. ;;9002226.02101,"881,00781166510 ",.01)
  1. ;;00781166510
  1. ;;9002226.02101,"881,00781166510 ",.02)
  1. ;;00781166510
  1. ;;9002226.02101,"881,00781166531 ",.01)
  1. ;;00781166531
  1. ;;9002226.02101,"881,00781166531 ",.02)
  1. ;;00781166531
  1. ;;9002226.02101,"881,00781166534 ",.01)
  1. ;;00781166534
  1. ;;9002226.02101,"881,00781166534 ",.02)
  1. ;;00781166534
  1. ;;9002226.02101,"881,00781166592 ",.01)
  1. ;;00781166592
  1. ;;9002226.02101,"881,00781166592 ",.02)
  1. ;;00781166592
  1. ;;9002226.02101,"881,00781166601 ",.01)
  1. ;;00781166601
  1. ;;9002226.02101,"881,00781166601 ",.02)
  1. ;;00781166601
  1. ;;9002226.02101,"881,00781166610 ",.01)
  1. ;;00781166610
  1. ;;9002226.02101,"881,00781166610 ",.02)
  1. ;;00781166610
  1. ;;9002226.02101,"881,00781166631 ",.01)
  1. ;;00781166631
  1. ;;9002226.02101,"881,00781166631 ",.02)
  1. ;;00781166631
  1. ;;9002226.02101,"881,00781166634 ",.01)
  1. ;;00781166634
  1. ;;9002226.02101,"881,00781166634 ",.02)
  1. ;;00781166634
  1. ;;9002226.02101,"881,00781166692 ",.01)
  1. ;;00781166692
  1. ;;9002226.02101,"881,00781166692 ",.02)
  1. ;;00781166692
  1. ;;9002226.02101,"881,00781166701 ",.01)
  1. ;;00781166701
  1. ;;9002226.02101,"881,00781166701 ",.02)
  1. ;;00781166701
  1. ;;9002226.02101,"881,00781166710 ",.01)
  1. ;;00781166710
  1. ;;9002226.02101,"881,00781166710 ",.02)
  1. ;;00781166710
  1. ;;9002226.02101,"881,00781166731 ",.01)
  1. ;;00781166731
  1. ;;9002226.02101,"881,00781166731 ",.02)
  1. ;;00781166731
  1. ;;9002226.02101,"881,00781166734 ",.01)
  1. ;;00781166734
  1. ;;9002226.02101,"881,00781166734 ",.02)
  1. ;;00781166734
  1. ;;9002226.02101,"881,00781166792 ",.01)
  1. ;;00781166792
  1. ;;9002226.02101,"881,00781166792 ",.02)
  1. ;;00781166792
  1. ;;9002226.02101,"881,00781166801 ",.01)
  1. ;;00781166801
  1. ;;9002226.02101,"881,00781166801 ",.02)
  1. ;;00781166801
  1. ;;9002226.02101,"881,00781166810 ",.01)
  1. ;;00781166810
  1. ;;9002226.02101,"881,00781166810 ",.02)
  1. ;;00781166810
  1. ;;9002226.02101,"881,00781166831 ",.01)
  1. ;;00781166831
  1. ;;9002226.02101,"881,00781166831 ",.02)
  1. ;;00781166831
  1. ;;9002226.02101,"881,00781166834 ",.01)
  1. ;;00781166834
  1. ;;9002226.02101,"881,00781166834 ",.02)
  1. ;;00781166834
  1. ;;9002226.02101,"881,00781166892 ",.01)
  1. ;;00781166892
  1. ;;9002226.02101,"881,00781166892 ",.02)
  1. ;;00781166892
  1. ;;9002226.02101,"881,00781166901 ",.01)
  1. ;;00781166901
  1. ;;9002226.02101,"881,00781166901 ",.02)
  1. ;;00781166901
  1. ;;9002226.02101,"881,00781166910 ",.01)
  1. ;;00781166910
  1. ;;9002226.02101,"881,00781166910 ",.02)
  1. ;;00781166910