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

BGPM5BET.m

Go to the documentation of this file.
BGPM5BET ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON SEP 12, 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,"1084,00378019701 ",.01)
 ;;00378019701
 ;;9002226.02101,"1084,00378019701 ",.02)
 ;;00378019701
 ;;9002226.02101,"1084,00378019705 ",.01)
 ;;00378019705
 ;;9002226.02101,"1084,00378019705 ",.02)
 ;;00378019705
 ;;9002226.02101,"1084,00378021001 ",.01)
 ;;00378021001
 ;;9002226.02101,"1084,00378021001 ",.02)
 ;;00378021001
 ;;9002226.02101,"1084,00378021010 ",.01)
 ;;00378021010
 ;;9002226.02101,"1084,00378021010 ",.02)
 ;;00378021010
 ;;9002226.02101,"1084,00378021501 ",.01)
 ;;00378021501
 ;;9002226.02101,"1084,00378021501 ",.02)
 ;;00378021501
 ;;9002226.02101,"1084,00378021505 ",.01)
 ;;00378021505
 ;;9002226.02101,"1084,00378021505 ",.02)
 ;;00378021505
 ;;9002226.02101,"1084,00378021701 ",.01)
 ;;00378021701
 ;;9002226.02101,"1084,00378021701 ",.02)
 ;;00378021701
 ;;9002226.02101,"1084,00378023401 ",.01)
 ;;00378023401
 ;;9002226.02101,"1084,00378023401 ",.02)
 ;;00378023401
 ;;9002226.02101,"1084,00378023405 ",.01)
 ;;00378023405
 ;;9002226.02101,"1084,00378023405 ",.02)
 ;;00378023405
 ;;9002226.02101,"1084,00378023410 ",.01)
 ;;00378023410
 ;;9002226.02101,"1084,00378023410 ",.02)
 ;;00378023410
 ;;9002226.02101,"1084,00378024001 ",.01)
 ;;00378024001
 ;;9002226.02101,"1084,00378024001 ",.02)
 ;;00378024001
 ;;9002226.02101,"1084,00378024005 ",.01)
 ;;00378024005
 ;;9002226.02101,"1084,00378024005 ",.02)
 ;;00378024005
 ;;9002226.02101,"1084,00378024401 ",.01)
 ;;00378024401
 ;;9002226.02101,"1084,00378024401 ",.02)
 ;;00378024401
 ;;9002226.02101,"1084,00378024405 ",.01)
 ;;00378024405
 ;;9002226.02101,"1084,00378024405 ",.02)
 ;;00378024405
 ;;9002226.02101,"1084,00378035001 ",.01)
 ;;00378035001
 ;;9002226.02101,"1084,00378035001 ",.02)
 ;;00378035001
 ;;9002226.02101,"1084,00378035005 ",.01)
 ;;00378035005
 ;;9002226.02101,"1084,00378035005 ",.02)
 ;;00378035005
 ;;9002226.02101,"1084,00378035201 ",.01)
 ;;00378035201
 ;;9002226.02101,"1084,00378035201 ",.02)
 ;;00378035201
 ;;9002226.02101,"1084,00378035205 ",.01)
 ;;00378035205
 ;;9002226.02101,"1084,00378035205 ",.02)
 ;;00378035205
 ;;9002226.02101,"1084,00378055101 ",.01)
 ;;00378055101
 ;;9002226.02101,"1084,00378055101 ",.02)
 ;;00378055101
 ;;9002226.02101,"1084,00378110501 ",.01)
 ;;00378110501
 ;;9002226.02101,"1084,00378110501 ",.02)
 ;;00378110501
 ;;9002226.02101,"1084,00378110505 ",.01)
 ;;00378110505
 ;;9002226.02101,"1084,00378110505 ",.02)
 ;;00378110505
 ;;9002226.02101,"1084,00378111001 ",.01)
 ;;00378111001
 ;;9002226.02101,"1084,00378111001 ",.02)
 ;;00378111001
 ;;9002226.02101,"1084,00378111005 ",.01)
 ;;00378111005
 ;;9002226.02101,"1084,00378111005 ",.02)
 ;;00378111005
 ;;9002226.02101,"1084,00378111301 ",.01)
 ;;00378111301
 ;;9002226.02101,"1084,00378111301 ",.02)
 ;;00378111301
 ;;9002226.02101,"1084,00378112501 ",.01)
 ;;00378112501
 ;;9002226.02101,"1084,00378112501 ",.02)
 ;;00378112501
 ;;9002226.02101,"1084,00378112510 ",.01)
 ;;00378112510
 ;;9002226.02101,"1084,00378112510 ",.02)
 ;;00378112510
 ;;9002226.02101,"1084,00378114201 ",.01)
 ;;00378114201
 ;;9002226.02101,"1084,00378114201 ",.02)
 ;;00378114201
 ;;9002226.02101,"1084,00378114210 ",.01)
 ;;00378114210
 ;;9002226.02101,"1084,00378114210 ",.02)
 ;;00378114210
 ;;9002226.02101,"1084,00378282010 ",.01)
 ;;00378282010
 ;;9002226.02101,"1084,00378282010 ",.02)
 ;;00378282010
 ;;9002226.02101,"1084,00378282027 ",.01)
 ;;00378282027
 ;;9002226.02101,"1084,00378282027 ",.02)
 ;;00378282027
 ;;9002226.02101,"1084,00378282077 ",.01)
 ;;00378282077
 ;;9002226.02101,"1084,00378282077 ",.02)
 ;;00378282077
 ;;9002226.02101,"1084,00378282110 ",.01)
 ;;00378282110
 ;;9002226.02101,"1084,00378282110 ",.02)
 ;;00378282110
 ;;9002226.02101,"1084,00378282127 ",.01)
 ;;00378282127
 ;;9002226.02101,"1084,00378282127 ",.02)
 ;;00378282127
 ;;9002226.02101,"1084,00378282177 ",.01)
 ;;00378282177
 ;;9002226.02101,"1084,00378282177 ",.02)
 ;;00378282177
 ;;9002226.02101,"1084,00378282210 ",.01)
 ;;00378282210
 ;;9002226.02101,"1084,00378282210 ",.02)
 ;;00378282210
 ;;9002226.02101,"1084,00378282227 ",.01)
 ;;00378282227
 ;;9002226.02101,"1084,00378282227 ",.02)
 ;;00378282227
 ;;9002226.02101,"1084,00378282277 ",.01)
 ;;00378282277
 ;;9002226.02101,"1084,00378282277 ",.02)
 ;;00378282277
 ;;9002226.02101,"1084,00378313101 ",.01)
 ;;00378313101
 ;;9002226.02101,"1084,00378313101 ",.02)
 ;;00378313101
 ;;9002226.02101,"1084,00378313105 ",.01)
 ;;00378313105
 ;;9002226.02101,"1084,00378313105 ",.02)
 ;;00378313105
 ;;9002226.02101,"1084,00378313201 ",.01)
 ;;00378313201
 ;;9002226.02101,"1084,00378313201 ",.02)
 ;;00378313201
 ;;9002226.02101,"1084,00378313205 ",.01)
 ;;00378313205
 ;;9002226.02101,"1084,00378313205 ",.02)
 ;;00378313205
 ;;9002226.02101,"1084,00378313301 ",.01)
 ;;00378313301
 ;;9002226.02101,"1084,00378313301 ",.02)
 ;;00378313301
 ;;9002226.02101,"1084,00378313305 ",.01)
 ;;00378313305
 ;;9002226.02101,"1084,00378313305 ",.02)
 ;;00378313305
 ;;9002226.02101,"1084,00378401101 ",.01)
 ;;00378401101
 ;;9002226.02101,"1084,00378401101 ",.02)
 ;;00378401101
 ;;9002226.02101,"1084,00378401105 ",.01)
 ;;00378401105
 ;;9002226.02101,"1084,00378401105 ",.02)
 ;;00378401105
 ;;9002226.02101,"1084,00378401201 ",.01)
 ;;00378401201
 ;;9002226.02101,"1084,00378401201 ",.02)
 ;;00378401201
 ;;9002226.02101,"1084,00378401205 ",.01)
 ;;00378401205
 ;;9002226.02101,"1084,00378401205 ",.02)
 ;;00378401205
 ;;9002226.02101,"1084,00378401301 ",.01)
 ;;00378401301
 ;;9002226.02101,"1084,00378401301 ",.02)
 ;;00378401301
 ;;9002226.02101,"1084,00378401305 ",.01)
 ;;00378401305
 ;;9002226.02101,"1084,00378401305 ",.02)
 ;;00378401305
 ;;9002226.02101,"1084,00378718501 ",.01)
 ;;00378718501
 ;;9002226.02101,"1084,00378718501 ",.02)
 ;;00378718501
 ;;9002226.02101,"1084,00378718505 ",.01)
 ;;00378718505
 ;;9002226.02101,"1084,00378718505 ",.02)
 ;;00378718505
 ;;9002226.02101,"1084,00378718591 ",.01)
 ;;00378718591
 ;;9002226.02101,"1084,00378718591 ",.02)
 ;;00378718591
 ;;9002226.02101,"1084,00378718601 ",.01)
 ;;00378718601
 ;;9002226.02101,"1084,00378718601 ",.02)
 ;;00378718601
 ;;9002226.02101,"1084,00378718605 ",.01)
 ;;00378718605
 ;;9002226.02101,"1084,00378718605 ",.02)
 ;;00378718605
 ;;9002226.02101,"1084,00378718691 ",.01)
 ;;00378718691
 ;;9002226.02101,"1084,00378718691 ",.02)
 ;;00378718691
 ;;9002226.02101,"1084,00378718701 ",.01)
 ;;00378718701
 ;;9002226.02101,"1084,00378718701 ",.02)
 ;;00378718701
 ;;9002226.02101,"1084,00378718705 ",.01)
 ;;00378718705
 ;;9002226.02101,"1084,00378718705 ",.02)
 ;;00378718705
 ;;9002226.02101,"1084,00378718791 ",.01)
 ;;00378718791
 ;;9002226.02101,"1084,00378718791 ",.02)
 ;;00378718791
 ;;9002226.02101,"1084,00406202800 ",.01)
 ;;00406202800
 ;;9002226.02101,"1084,00406202800 ",.02)
 ;;00406202800
 ;;9002226.02101,"1084,00406202801 ",.01)
 ;;00406202801
 ;;9002226.02101,"1084,00406202801 ",.02)
 ;;00406202801
 ;;9002226.02101,"1084,00406202805 ",.01)
 ;;00406202805
 ;;9002226.02101,"1084,00406202805 ",.02)
 ;;00406202805
 ;;9002226.02101,"1084,00406202810 ",.01)
 ;;00406202810
 ;;9002226.02101,"1084,00406202810 ",.02)
 ;;00406202810
 ;;9002226.02101,"1084,00406202900 ",.01)
 ;;00406202900
 ;;9002226.02101,"1084,00406202900 ",.02)
 ;;00406202900
 ;;9002226.02101,"1084,00406202901 ",.01)
 ;;00406202901
 ;;9002226.02101,"1084,00406202901 ",.02)
 ;;00406202901
 ;;9002226.02101,"1084,00406202905 ",.01)
 ;;00406202905
 ;;9002226.02101,"1084,00406202905 ",.02)
 ;;00406202905
 ;;9002226.02101,"1084,00406202910 ",.01)
 ;;00406202910
 ;;9002226.02101,"1084,00406202910 ",.02)
 ;;00406202910
 ;;9002226.02101,"1084,00406203000 ",.01)
 ;;00406203000
 ;;9002226.02101,"1084,00406203000 ",.02)
 ;;00406203000
 ;;9002226.02101,"1084,00406203001 ",.01)
 ;;00406203001
 ;;9002226.02101,"1084,00406203001 ",.02)
 ;;00406203001
 ;;9002226.02101,"1084,00406203005 ",.01)
 ;;00406203005
 ;;9002226.02101,"1084,00406203005 ",.02)
 ;;00406203005
 ;;9002226.02101,"1084,00406203010 ",.01)
 ;;00406203010
 ;;9002226.02101,"1084,00406203010 ",.02)
 ;;00406203010
 ;;9002226.02101,"1084,00440756630 ",.01)
 ;;00440756630
 ;;9002226.02101,"1084,00440756630 ",.02)
 ;;00440756630
 ;;9002226.02101,"1084,00440756660 ",.01)
 ;;00440756660
 ;;9002226.02101,"1084,00440756660 ",.02)
 ;;00440756660
 ;;9002226.02101,"1084,00440756690 ",.01)
 ;;00440756690
 ;;9002226.02101,"1084,00440756690 ",.02)
 ;;00440756690
 ;;9002226.02101,"1084,00440756691 ",.01)
 ;;00440756691
 ;;9002226.02101,"1084,00440756691 ",.02)
 ;;00440756691
 ;;9002226.02101,"1084,00440756692 ",.01)
 ;;00440756692
 ;;9002226.02101,"1084,00440756692 ",.02)
 ;;00440756692
 ;;9002226.02101,"1084,00440756990 ",.01)
 ;;00440756990
 ;;9002226.02101,"1084,00440756990 ",.02)
 ;;00440756990
 ;;9002226.02101,"1084,00440757020 ",.01)
 ;;00440757020
 ;;9002226.02101,"1084,00440757020 ",.02)
 ;;00440757020
 ;;9002226.02101,"1084,00440757130 ",.01)
 ;;00440757130
 ;;9002226.02101,"1084,00440757130 ",.02)
 ;;00440757130
 ;;9002226.02101,"1084,00440757160 ",.01)
 ;;00440757160
 ;;9002226.02101,"1084,00440757160 ",.02)
 ;;00440757160
 ;;9002226.02101,"1084,00440757190 ",.01)
 ;;00440757190
 ;;9002226.02101,"1084,00440757190 ",.02)
 ;;00440757190
 ;;9002226.02101,"1084,00440757191 ",.01)
 ;;00440757191
 ;;9002226.02101,"1084,00440757191 ",.02)
 ;;00440757191
 ;;9002226.02101,"1084,00440757192 ",.01)
 ;;00440757192
 ;;9002226.02101,"1084,00440757192 ",.02)
 ;;00440757192
 ;;9002226.02101,"1084,00440757194 ",.01)
 ;;00440757194
 ;;9002226.02101,"1084,00440757194 ",.02)
 ;;00440757194
 ;;9002226.02101,"1084,00440757195 ",.01)
 ;;00440757195
 ;;9002226.02101,"1084,00440757195 ",.02)
 ;;00440757195
 ;;9002226.02101,"1084,00440773900 ",.01)
 ;;00440773900
 ;;9002226.02101,"1084,00440773900 ",.02)
 ;;00440773900
 ;;9002226.02101,"1084,00440773902 ",.01)
 ;;00440773902
 ;;9002226.02101,"1084,00440773902 ",.02)
 ;;00440773902
 ;;9002226.02101,"1084,00440773910 ",.01)
 ;;00440773910
 ;;9002226.02101,"1084,00440773910 ",.02)
 ;;00440773910
 ;;9002226.02101,"1084,00440773920 ",.01)
 ;;00440773920
 ;;9002226.02101,"1084,00440773920 ",.02)
 ;;00440773920
 ;;9002226.02101,"1084,00440773928 ",.01)
 ;;00440773928
 ;;9002226.02101,"1084,00440773928 ",.02)
 ;;00440773928
 ;;9002226.02101,"1084,00440773960 ",.01)
 ;;00440773960
 ;;9002226.02101,"1084,00440773960 ",.02)
 ;;00440773960
 ;;9002226.02101,"1084,00440773992 ",.01)
 ;;00440773992
 ;;9002226.02101,"1084,00440773992 ",.02)
 ;;00440773992
 ;;9002226.02101,"1084,00440773994 ",.01)
 ;;00440773994
 ;;9002226.02101,"1084,00440773994 ",.02)
 ;;00440773994
 ;;9002226.02101,"1084,00440774892 ",.01)
 ;;00440774892
 ;;9002226.02101,"1084,00440774892 ",.02)
 ;;00440774892
 ;;9002226.02101,"1084,00480104801 ",.01)
 ;;00480104801
 ;;9002226.02101,"1084,00480104801 ",.02)
 ;;00480104801
 ;;9002226.02101,"1084,00480104805 ",.01)
 ;;00480104805
 ;;9002226.02101,"1084,00480104805 ",.02)
 ;;00480104805
 ;;9002226.02101,"1084,00480104810 ",.01)
 ;;00480104810
 ;;9002226.02101,"1084,00480104810 ",.02)
 ;;00480104810
 ;;9002226.02101,"1084,00480104901 ",.01)
 ;;00480104901
 ;;9002226.02101,"1084,00480104901 ",.02)
 ;;00480104901
 ;;9002226.02101,"1084,00480104905 ",.01)
 ;;00480104905
 ;;9002226.02101,"1084,00480104905 ",.02)
 ;;00480104905
 ;;9002226.02101,"1084,00480104910 ",.01)
 ;;00480104910
 ;;9002226.02101,"1084,00480104910 ",.02)
 ;;00480104910
 ;;9002226.02101,"1084,00480571001 ",.01)
 ;;00480571001
 ;;9002226.02101,"1084,00480571001 ",.02)
 ;;00480571001
 ;;9002226.02101,"1084,00480571005 ",.01)
 ;;00480571005