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

BGPM5AGI.m

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