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

BGPM5AKL.m

Go to the documentation of this file.
BGPM5AKL ;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,"889,68382002310 ",.01)
 ;;68382002310
 ;;9002226.02101,"889,68382002310 ",.02)
 ;;68382002310
 ;;9002226.02101,"889,68382002316 ",.01)
 ;;68382002316
 ;;9002226.02101,"889,68382002316 ",.02)
 ;;68382002316
 ;;9002226.02101,"889,68382002324 ",.01)
 ;;68382002324
 ;;9002226.02101,"889,68382002324 ",.02)
 ;;68382002324
 ;;9002226.02101,"889,68382002340 ",.01)
 ;;68382002340
 ;;9002226.02101,"889,68382002340 ",.02)
 ;;68382002340
 ;;9002226.02101,"889,68382002401 ",.01)
 ;;68382002401
 ;;9002226.02101,"889,68382002401 ",.02)
 ;;68382002401
 ;;9002226.02101,"889,68382002410 ",.01)
 ;;68382002410
 ;;9002226.02101,"889,68382002410 ",.02)
 ;;68382002410
 ;;9002226.02101,"889,68382002416 ",.01)
 ;;68382002416
 ;;9002226.02101,"889,68382002416 ",.02)
 ;;68382002416
 ;;9002226.02101,"889,68382002440 ",.01)
 ;;68382002440
 ;;9002226.02101,"889,68382002440 ",.02)
 ;;68382002440
 ;;9002226.02101,"889,68387053830 ",.01)
 ;;68387053830
 ;;9002226.02101,"889,68387053830 ",.02)
 ;;68387053830
 ;;9002226.02101,"889,68387053930 ",.01)
 ;;68387053930
 ;;9002226.02101,"889,68387053930 ",.02)
 ;;68387053930
 ;;9002226.02101,"889,68645019059 ",.01)
 ;;68645019059
 ;;9002226.02101,"889,68645019059 ",.02)
 ;;68645019059
 ;;9002226.02101,"889,68645019159 ",.01)
 ;;68645019159
 ;;9002226.02101,"889,68645019159 ",.02)
 ;;68645019159
 ;;9002226.02101,"889,68788016603 ",.01)
 ;;68788016603
 ;;9002226.02101,"889,68788016603 ",.02)
 ;;68788016603
 ;;9002226.02101,"889,68788016606 ",.01)
 ;;68788016606
 ;;9002226.02101,"889,68788016606 ",.02)
 ;;68788016606
 ;;9002226.02101,"889,68788016609 ",.01)
 ;;68788016609
 ;;9002226.02101,"889,68788016609 ",.02)
 ;;68788016609
 ;;9002226.02101,"889,68788035603 ",.01)
 ;;68788035603
 ;;9002226.02101,"889,68788035603 ",.02)
 ;;68788035603
 ;;9002226.02101,"889,68788035606 ",.01)
 ;;68788035606
 ;;9002226.02101,"889,68788035606 ",.02)
 ;;68788035606
 ;;9002226.02101,"889,68788035609 ",.01)
 ;;68788035609
 ;;9002226.02101,"889,68788035609 ",.02)
 ;;68788035609
 ;;9002226.02101,"889,68788042103 ",.01)
 ;;68788042103
 ;;9002226.02101,"889,68788042103 ",.02)
 ;;68788042103
 ;;9002226.02101,"889,68788042106 ",.01)
 ;;68788042106
 ;;9002226.02101,"889,68788042106 ",.02)
 ;;68788042106
 ;;9002226.02101,"889,68788042109 ",.01)
 ;;68788042109
 ;;9002226.02101,"889,68788042109 ",.02)
 ;;68788042109
 ;;9002226.02101,"889,68788045603 ",.01)
 ;;68788045603
 ;;9002226.02101,"889,68788045603 ",.02)
 ;;68788045603
 ;;9002226.02101,"889,68788045606 ",.01)
 ;;68788045606
 ;;9002226.02101,"889,68788045606 ",.02)
 ;;68788045606
 ;;9002226.02101,"889,68788045609 ",.01)
 ;;68788045609
 ;;9002226.02101,"889,68788045609 ",.02)
 ;;68788045609
 ;;9002226.02101,"889,68788047703 ",.01)
 ;;68788047703
 ;;9002226.02101,"889,68788047703 ",.02)
 ;;68788047703
 ;;9002226.02101,"889,68788047706 ",.01)
 ;;68788047706
 ;;9002226.02101,"889,68788047706 ",.02)
 ;;68788047706
 ;;9002226.02101,"889,68788047709 ",.01)
 ;;68788047709
 ;;9002226.02101,"889,68788047709 ",.02)
 ;;68788047709
 ;;9002226.02101,"889,68788052903 ",.01)
 ;;68788052903
 ;;9002226.02101,"889,68788052903 ",.02)
 ;;68788052903
 ;;9002226.02101,"889,68788053003 ",.01)
 ;;68788053003
 ;;9002226.02101,"889,68788053003 ",.02)
 ;;68788053003
 ;;9002226.02101,"889,68788053603 ",.01)
 ;;68788053603
 ;;9002226.02101,"889,68788053603 ",.02)
 ;;68788053603
 ;;9002226.02101,"889,68788053606 ",.01)
 ;;68788053606
 ;;9002226.02101,"889,68788053606 ",.02)
 ;;68788053606
 ;;9002226.02101,"889,68788053609 ",.01)
 ;;68788053609
 ;;9002226.02101,"889,68788053609 ",.02)
 ;;68788053609
 ;;9002226.02101,"889,68788057403 ",.01)
 ;;68788057403
 ;;9002226.02101,"889,68788057403 ",.02)
 ;;68788057403
 ;;9002226.02101,"889,68788057406 ",.01)
 ;;68788057406
 ;;9002226.02101,"889,68788057406 ",.02)
 ;;68788057406
 ;;9002226.02101,"889,68788057409 ",.01)
 ;;68788057409
 ;;9002226.02101,"889,68788057409 ",.02)
 ;;68788057409
 ;;9002226.02101,"889,68788076603 ",.01)
 ;;68788076603
 ;;9002226.02101,"889,68788076603 ",.02)
 ;;68788076603
 ;;9002226.02101,"889,68788076606 ",.01)
 ;;68788076606
 ;;9002226.02101,"889,68788076606 ",.02)
 ;;68788076606
 ;;9002226.02101,"889,68788076609 ",.01)
 ;;68788076609
 ;;9002226.02101,"889,68788076609 ",.02)
 ;;68788076609
 ;;9002226.02101,"889,68788080103 ",.01)
 ;;68788080103
 ;;9002226.02101,"889,68788080103 ",.02)
 ;;68788080103
 ;;9002226.02101,"889,68788080106 ",.01)
 ;;68788080106
 ;;9002226.02101,"889,68788080106 ",.02)
 ;;68788080106
 ;;9002226.02101,"889,68788080109 ",.01)
 ;;68788080109
 ;;9002226.02101,"889,68788080109 ",.02)
 ;;68788080109
 ;;9002226.02101,"889,68788094403 ",.01)
 ;;68788094403
 ;;9002226.02101,"889,68788094403 ",.02)
 ;;68788094403
 ;;9002226.02101,"889,68788094406 ",.01)
 ;;68788094406
 ;;9002226.02101,"889,68788094406 ",.02)
 ;;68788094406
 ;;9002226.02101,"889,68788094409 ",.01)
 ;;68788094409
 ;;9002226.02101,"889,68788094409 ",.02)
 ;;68788094409
 ;;9002226.02101,"889,68788107803 ",.01)
 ;;68788107803
 ;;9002226.02101,"889,68788107803 ",.02)
 ;;68788107803
 ;;9002226.02101,"889,68788150603 ",.01)
 ;;68788150603
 ;;9002226.02101,"889,68788150603 ",.02)
 ;;68788150603
 ;;9002226.02101,"889,68788150606 ",.01)
 ;;68788150606
 ;;9002226.02101,"889,68788150606 ",.02)
 ;;68788150606
 ;;9002226.02101,"889,68788150609 ",.01)
 ;;68788150609
 ;;9002226.02101,"889,68788150609 ",.02)
 ;;68788150609
 ;;9002226.02101,"889,68788150703 ",.01)
 ;;68788150703
 ;;9002226.02101,"889,68788150703 ",.02)
 ;;68788150703
 ;;9002226.02101,"889,68788150706 ",.01)
 ;;68788150706
 ;;9002226.02101,"889,68788150706 ",.02)
 ;;68788150706
 ;;9002226.02101,"889,68788150709 ",.01)
 ;;68788150709
 ;;9002226.02101,"889,68788150709 ",.02)
 ;;68788150709
 ;;9002226.02101,"889,68788904101 ",.01)
 ;;68788904101
 ;;9002226.02101,"889,68788904101 ",.02)
 ;;68788904101
 ;;9002226.02101,"889,68788904103 ",.01)
 ;;68788904103
 ;;9002226.02101,"889,68788904103 ",.02)
 ;;68788904103
 ;;9002226.02101,"889,68788904106 ",.01)
 ;;68788904106
 ;;9002226.02101,"889,68788904106 ",.02)
 ;;68788904106
 ;;9002226.02101,"889,68788904108 ",.01)
 ;;68788904108
 ;;9002226.02101,"889,68788904108 ",.02)
 ;;68788904108
 ;;9002226.02101,"889,68788904109 ",.01)
 ;;68788904109
 ;;9002226.02101,"889,68788904109 ",.02)
 ;;68788904109
 ;;9002226.02101,"889,68788904201 ",.01)
 ;;68788904201
 ;;9002226.02101,"889,68788904201 ",.02)
 ;;68788904201
 ;;9002226.02101,"889,68788904203 ",.01)
 ;;68788904203
 ;;9002226.02101,"889,68788904203 ",.02)
 ;;68788904203
 ;;9002226.02101,"889,68788904206 ",.01)
 ;;68788904206
 ;;9002226.02101,"889,68788904206 ",.02)
 ;;68788904206
 ;;9002226.02101,"889,68788904208 ",.01)
 ;;68788904208
 ;;9002226.02101,"889,68788904208 ",.02)
 ;;68788904208
 ;;9002226.02101,"889,68788904209 ",.01)
 ;;68788904209
 ;;9002226.02101,"889,68788904209 ",.02)
 ;;68788904209
 ;;9002226.02101,"889,68788904703 ",.01)
 ;;68788904703
 ;;9002226.02101,"889,68788904703 ",.02)
 ;;68788904703
 ;;9002226.02101,"889,68788904706 ",.01)
 ;;68788904706
 ;;9002226.02101,"889,68788904706 ",.02)
 ;;68788904706
 ;;9002226.02101,"889,68788904708 ",.01)
 ;;68788904708
 ;;9002226.02101,"889,68788904708 ",.02)
 ;;68788904708
 ;;9002226.02101,"889,68788904709 ",.01)
 ;;68788904709
 ;;9002226.02101,"889,68788904709 ",.02)
 ;;68788904709
 ;;9002226.02101,"889,68788904803 ",.01)
 ;;68788904803
 ;;9002226.02101,"889,68788904803 ",.02)
 ;;68788904803
 ;;9002226.02101,"889,68788904806 ",.01)
 ;;68788904806
 ;;9002226.02101,"889,68788904806 ",.02)
 ;;68788904806
 ;;9002226.02101,"889,68788904808 ",.01)
 ;;68788904808
 ;;9002226.02101,"889,68788904808 ",.02)
 ;;68788904808
 ;;9002226.02101,"889,68788904809 ",.01)
 ;;68788904809
 ;;9002226.02101,"889,68788904809 ",.02)
 ;;68788904809
 ;;9002226.02101,"889,68788904903 ",.01)
 ;;68788904903
 ;;9002226.02101,"889,68788904903 ",.02)
 ;;68788904903
 ;;9002226.02101,"889,68788904906 ",.01)
 ;;68788904906
 ;;9002226.02101,"889,68788904906 ",.02)
 ;;68788904906
 ;;9002226.02101,"889,68788904908 ",.01)
 ;;68788904908
 ;;9002226.02101,"889,68788904908 ",.02)
 ;;68788904908
 ;;9002226.02101,"889,68788904909 ",.01)
 ;;68788904909
 ;;9002226.02101,"889,68788904909 ",.02)
 ;;68788904909
 ;;9002226.02101,"889,68884046797 ",.01)
 ;;68884046797
 ;;9002226.02101,"889,68884046797 ",.02)
 ;;68884046797
 ;;9002226.02101,"889,68884046897 ",.01)
 ;;68884046897
 ;;9002226.02101,"889,68884046897 ",.02)
 ;;68884046897
 ;;9002226.02101,"889,68884046997 ",.01)
 ;;68884046997
 ;;9002226.02101,"889,68884046997 ",.02)
 ;;68884046997
 ;;9002226.02101,"889,68884047097 ",.01)
 ;;68884047097
 ;;9002226.02101,"889,68884047097 ",.02)
 ;;68884047097
 ;;9002226.02101,"889,68884047197 ",.01)
 ;;68884047197
 ;;9002226.02101,"889,68884047197 ",.02)
 ;;68884047197
 ;;9002226.02101,"889,68966003201 ",.01)
 ;;68966003201
 ;;9002226.02101,"889,68966003201 ",.02)
 ;;68966003201
 ;;9002226.02101,"889,68966577701 ",.01)
 ;;68966577701
 ;;9002226.02101,"889,68966577701 ",.02)
 ;;68966577701