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

BGPM5AJO.m

Go to the documentation of this file.
BGPM5AJO ;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,53489065306 ",.01)
 ;;53489065306
 ;;9002226.02101,"889,53489065306 ",.02)
 ;;53489065306
 ;;9002226.02101,"889,53489065307 ",.01)
 ;;53489065307
 ;;9002226.02101,"889,53489065307 ",.02)
 ;;53489065307
 ;;9002226.02101,"889,53489065310 ",.01)
 ;;53489065310
 ;;9002226.02101,"889,53489065310 ",.02)
 ;;53489065310
 ;;9002226.02101,"889,53746022005 ",.01)
 ;;53746022005
 ;;9002226.02101,"889,53746022005 ",.02)
 ;;53746022005
 ;;9002226.02101,"889,53746022079 ",.01)
 ;;53746022079
 ;;9002226.02101,"889,53746022079 ",.02)
 ;;53746022079
 ;;9002226.02101,"889,53808018601 ",.01)
 ;;53808018601
 ;;9002226.02101,"889,53808018601 ",.02)
 ;;53808018601
 ;;9002226.02101,"889,53808018701 ",.01)
 ;;53808018701
 ;;9002226.02101,"889,53808018701 ",.02)
 ;;53808018701
 ;;9002226.02101,"889,53808020701 ",.01)
 ;;53808020701
 ;;9002226.02101,"889,53808020701 ",.02)
 ;;53808020701
 ;;9002226.02101,"889,53808034401 ",.01)
 ;;53808034401
 ;;9002226.02101,"889,53808034401 ",.02)
 ;;53808034401
 ;;9002226.02101,"889,53808034501 ",.01)
 ;;53808034501
 ;;9002226.02101,"889,53808034501 ",.02)
 ;;53808034501
 ;;9002226.02101,"889,53808034601 ",.01)
 ;;53808034601
 ;;9002226.02101,"889,53808034601 ",.02)
 ;;53808034601
 ;;9002226.02101,"889,53808038201 ",.01)
 ;;53808038201
 ;;9002226.02101,"889,53808038201 ",.02)
 ;;53808038201
 ;;9002226.02101,"889,53808047801 ",.01)
 ;;53808047801
 ;;9002226.02101,"889,53808047801 ",.02)
 ;;53808047801
 ;;9002226.02101,"889,53808054701 ",.01)
 ;;53808054701
 ;;9002226.02101,"889,53808054701 ",.02)
 ;;53808054701
 ;;9002226.02101,"889,53808055101 ",.01)
 ;;53808055101
 ;;9002226.02101,"889,53808055101 ",.02)
 ;;53808055101
 ;;9002226.02101,"889,53808065801 ",.01)
 ;;53808065801
 ;;9002226.02101,"889,53808065801 ",.02)
 ;;53808065801
 ;;9002226.02101,"889,53808065901 ",.01)
 ;;53808065901
 ;;9002226.02101,"889,53808065901 ",.02)
 ;;53808065901
 ;;9002226.02101,"889,53808066001 ",.01)
 ;;53808066001
 ;;9002226.02101,"889,53808066001 ",.02)
 ;;53808066001
 ;;9002226.02101,"889,53808072501 ",.01)
 ;;53808072501
 ;;9002226.02101,"889,53808072501 ",.02)
 ;;53808072501
 ;;9002226.02101,"889,53808072801 ",.01)
 ;;53808072801
 ;;9002226.02101,"889,53808072801 ",.02)
 ;;53808072801
 ;;9002226.02101,"889,53808073001 ",.01)
 ;;53808073001
 ;;9002226.02101,"889,53808073001 ",.02)
 ;;53808073001
 ;;9002226.02101,"889,53808077101 ",.01)
 ;;53808077101
 ;;9002226.02101,"889,53808077101 ",.02)
 ;;53808077101
 ;;9002226.02101,"889,53808077201 ",.01)
 ;;53808077201
 ;;9002226.02101,"889,53808077201 ",.02)
 ;;53808077201
 ;;9002226.02101,"889,53808090001 ",.01)
 ;;53808090001
 ;;9002226.02101,"889,53808090001 ",.02)
 ;;53808090001
 ;;9002226.02101,"889,53978003403 ",.01)
 ;;53978003403
 ;;9002226.02101,"889,53978003403 ",.02)
 ;;53978003403
 ;;9002226.02101,"889,53978003404 ",.01)
 ;;53978003404
 ;;9002226.02101,"889,53978003404 ",.02)
 ;;53978003404
 ;;9002226.02101,"889,53978119901 ",.01)
 ;;53978119901
 ;;9002226.02101,"889,53978119901 ",.02)
 ;;53978119901
 ;;9002226.02101,"889,53978119902 ",.01)
 ;;53978119902
 ;;9002226.02101,"889,53978119902 ",.02)
 ;;53978119902
 ;;9002226.02101,"889,53978119903 ",.01)
 ;;53978119903
 ;;9002226.02101,"889,53978119903 ",.02)
 ;;53978119903
 ;;9002226.02101,"889,53978201709 ",.01)
 ;;53978201709
 ;;9002226.02101,"889,53978201709 ",.02)
 ;;53978201709
 ;;9002226.02101,"889,53978201809 ",.01)
 ;;53978201809
 ;;9002226.02101,"889,53978201809 ",.02)
 ;;53978201809
 ;;9002226.02101,"889,53978201909 ",.01)
 ;;53978201909
 ;;9002226.02101,"889,53978201909 ",.02)
 ;;53978201909
 ;;9002226.02101,"889,53978202109 ",.01)
 ;;53978202109
 ;;9002226.02101,"889,53978202109 ",.02)
 ;;53978202109
 ;;9002226.02101,"889,53978202209 ",.01)
 ;;53978202209
 ;;9002226.02101,"889,53978202209 ",.02)
 ;;53978202209
 ;;9002226.02101,"889,53978202509 ",.01)
 ;;53978202509
 ;;9002226.02101,"889,53978202509 ",.02)
 ;;53978202509
 ;;9002226.02101,"889,53978202705 ",.01)
 ;;53978202705
 ;;9002226.02101,"889,53978202705 ",.02)
 ;;53978202705
 ;;9002226.02101,"889,53978204609 ",.01)
 ;;53978204609
 ;;9002226.02101,"889,53978204609 ",.02)
 ;;53978204609
 ;;9002226.02101,"889,53978205803 ",.01)
 ;;53978205803
 ;;9002226.02101,"889,53978205803 ",.02)
 ;;53978205803
 ;;9002226.02101,"889,53978205805 ",.01)
 ;;53978205805
 ;;9002226.02101,"889,53978205805 ",.02)
 ;;53978205805
 ;;9002226.02101,"889,53978205808 ",.01)
 ;;53978205808
 ;;9002226.02101,"889,53978205808 ",.02)
 ;;53978205808
 ;;9002226.02101,"889,53978208103 ",.01)
 ;;53978208103
 ;;9002226.02101,"889,53978208103 ",.02)
 ;;53978208103
 ;;9002226.02101,"889,53978208105 ",.01)
 ;;53978208105
 ;;9002226.02101,"889,53978208105 ",.02)
 ;;53978208105
 ;;9002226.02101,"889,53978208108 ",.01)
 ;;53978208108
 ;;9002226.02101,"889,53978208108 ",.02)
 ;;53978208108
 ;;9002226.02101,"889,53978305503 ",.01)
 ;;53978305503
 ;;9002226.02101,"889,53978305503 ",.02)
 ;;53978305503
 ;;9002226.02101,"889,53978334403 ",.01)
 ;;53978334403
 ;;9002226.02101,"889,53978334403 ",.02)
 ;;53978334403
 ;;9002226.02101,"889,53978334503 ",.01)
 ;;53978334503
 ;;9002226.02101,"889,53978334503 ",.02)
 ;;53978334503
 ;;9002226.02101,"889,53978335509 ",.01)
 ;;53978335509
 ;;9002226.02101,"889,53978335509 ",.02)
 ;;53978335509
 ;;9002226.02101,"889,53978337409 ",.01)
 ;;53978337409
 ;;9002226.02101,"889,53978337409 ",.02)
 ;;53978337409
 ;;9002226.02101,"889,53978338809 ",.01)
 ;;53978338809
 ;;9002226.02101,"889,53978338809 ",.02)
 ;;53978338809
 ;;9002226.02101,"889,53978501403 ",.01)
 ;;53978501403
 ;;9002226.02101,"889,53978501403 ",.02)
 ;;53978501403
 ;;9002226.02101,"889,54348014230 ",.01)
 ;;54348014230
 ;;9002226.02101,"889,54348014230 ",.02)
 ;;54348014230
 ;;9002226.02101,"889,54348016830 ",.01)
 ;;54348016830
 ;;9002226.02101,"889,54348016830 ",.02)
 ;;54348016830
 ;;9002226.02101,"889,54458093105 ",.01)
 ;;54458093105
 ;;9002226.02101,"889,54458093105 ",.02)
 ;;54458093105
 ;;9002226.02101,"889,54569044200 ",.01)
 ;;54569044200
 ;;9002226.02101,"889,54569044200 ",.02)
 ;;54569044200
 ;;9002226.02101,"889,54569055700 ",.01)
 ;;54569055700
 ;;9002226.02101,"889,54569055700 ",.02)
 ;;54569055700
 ;;9002226.02101,"889,54569055701 ",.01)
 ;;54569055701
 ;;9002226.02101,"889,54569055701 ",.02)
 ;;54569055701
 ;;9002226.02101,"889,54569055703 ",.01)
 ;;54569055703
 ;;9002226.02101,"889,54569055703 ",.02)
 ;;54569055703
 ;;9002226.02101,"889,54569055900 ",.01)
 ;;54569055900
 ;;9002226.02101,"889,54569055900 ",.02)
 ;;54569055900
 ;;9002226.02101,"889,54569055901 ",.01)
 ;;54569055901
 ;;9002226.02101,"889,54569055901 ",.02)
 ;;54569055901
 ;;9002226.02101,"889,54569055903 ",.01)
 ;;54569055903
 ;;9002226.02101,"889,54569055903 ",.02)
 ;;54569055903
 ;;9002226.02101,"889,54569056101 ",.01)
 ;;54569056101
 ;;9002226.02101,"889,54569056101 ",.02)
 ;;54569056101
 ;;9002226.02101,"889,54569056102 ",.01)
 ;;54569056102
 ;;9002226.02101,"889,54569056102 ",.02)
 ;;54569056102
 ;;9002226.02101,"889,54569056103 ",.01)
 ;;54569056103
 ;;9002226.02101,"889,54569056103 ",.02)
 ;;54569056103
 ;;9002226.02101,"889,54569056400 ",.01)
 ;;54569056400
 ;;9002226.02101,"889,54569056400 ",.02)
 ;;54569056400
 ;;9002226.02101,"889,54569059000 ",.01)
 ;;54569059000
 ;;9002226.02101,"889,54569059000 ",.02)
 ;;54569059000
 ;;9002226.02101,"889,54569059600 ",.01)
 ;;54569059600
 ;;9002226.02101,"889,54569059600 ",.02)
 ;;54569059600
 ;;9002226.02101,"889,54569163400 ",.01)
 ;;54569163400
 ;;9002226.02101,"889,54569163400 ",.02)
 ;;54569163400
 ;;9002226.02101,"889,54569249900 ",.01)
 ;;54569249900
 ;;9002226.02101,"889,54569249900 ",.02)
 ;;54569249900
 ;;9002226.02101,"889,54569309700 ",.01)
 ;;54569309700
 ;;9002226.02101,"889,54569309700 ",.02)
 ;;54569309700
 ;;9002226.02101,"889,54569343200 ",.01)
 ;;54569343200
 ;;9002226.02101,"889,54569343200 ",.02)
 ;;54569343200
 ;;9002226.02101,"889,54569343201 ",.01)
 ;;54569343201
 ;;9002226.02101,"889,54569343201 ",.02)
 ;;54569343201
 ;;9002226.02101,"889,54569343203 ",.01)
 ;;54569343203
 ;;9002226.02101,"889,54569343203 ",.02)
 ;;54569343203
 ;;9002226.02101,"889,54569343204 ",.01)
 ;;54569343204
 ;;9002226.02101,"889,54569343204 ",.02)
 ;;54569343204
 ;;9002226.02101,"889,54569343205 ",.01)
 ;;54569343205
 ;;9002226.02101,"889,54569343205 ",.02)
 ;;54569343205
 ;;9002226.02101,"889,54569343207 ",.01)
 ;;54569343207
 ;;9002226.02101,"889,54569343207 ",.02)
 ;;54569343207
 ;;9002226.02101,"889,54569365400 ",.01)
 ;;54569365400
 ;;9002226.02101,"889,54569365400 ",.02)
 ;;54569365400
 ;;9002226.02101,"889,54569365403 ",.01)
 ;;54569365403
 ;;9002226.02101,"889,54569365403 ",.02)
 ;;54569365403
 ;;9002226.02101,"889,54569365404 ",.01)
 ;;54569365404
 ;;9002226.02101,"889,54569365404 ",.02)
 ;;54569365404
 ;;9002226.02101,"889,54569378700 ",.01)
 ;;54569378700
 ;;9002226.02101,"889,54569378700 ",.02)
 ;;54569378700
 ;;9002226.02101,"889,54569378701 ",.01)
 ;;54569378701
 ;;9002226.02101,"889,54569378701 ",.02)
 ;;54569378701
 ;;9002226.02101,"889,54569378702 ",.01)
 ;;54569378702
 ;;9002226.02101,"889,54569378702 ",.02)
 ;;54569378702
 ;;9002226.02101,"889,54569378704 ",.01)
 ;;54569378704
 ;;9002226.02101,"889,54569378704 ",.02)
 ;;54569378704
 ;;9002226.02101,"889,54569378800 ",.01)
 ;;54569378800
 ;;9002226.02101,"889,54569378800 ",.02)
 ;;54569378800
 ;;9002226.02101,"889,54569378801 ",.01)
 ;;54569378801
 ;;9002226.02101,"889,54569378801 ",.02)
 ;;54569378801
 ;;9002226.02101,"889,54569378803 ",.01)
 ;;54569378803
 ;;9002226.02101,"889,54569378803 ",.02)
 ;;54569378803
 ;;9002226.02101,"889,54569379000 ",.01)
 ;;54569379000
 ;;9002226.02101,"889,54569379000 ",.02)
 ;;54569379000
 ;;9002226.02101,"889,54569379100 ",.01)
 ;;54569379100
 ;;9002226.02101,"889,54569379100 ",.02)
 ;;54569379100
 ;;9002226.02101,"889,54569388500 ",.01)
 ;;54569388500
 ;;9002226.02101,"889,54569388500 ",.02)
 ;;54569388500
 ;;9002226.02101,"889,54569388502 ",.01)
 ;;54569388502
 ;;9002226.02101,"889,54569388502 ",.02)
 ;;54569388502
 ;;9002226.02101,"889,54569388504 ",.01)
 ;;54569388504
 ;;9002226.02101,"889,54569388504 ",.02)
 ;;54569388504
 ;;9002226.02101,"889,54569444100 ",.01)
 ;;54569444100
 ;;9002226.02101,"889,54569444100 ",.02)
 ;;54569444100
 ;;9002226.02101,"889,54569444200 ",.01)
 ;;54569444200
 ;;9002226.02101,"889,54569444200 ",.02)
 ;;54569444200
 ;;9002226.02101,"889,54569470700 ",.01)
 ;;54569470700
 ;;9002226.02101,"889,54569470700 ",.02)
 ;;54569470700
 ;;9002226.02101,"889,54569470800 ",.01)
 ;;54569470800
 ;;9002226.02101,"889,54569470800 ",.02)
 ;;54569470800
 ;;9002226.02101,"889,54569471800 ",.01)
 ;;54569471800
 ;;9002226.02101,"889,54569471800 ",.02)
 ;;54569471800
 ;;9002226.02101,"889,54569471801 ",.01)
 ;;54569471801
 ;;9002226.02101,"889,54569471801 ",.02)
 ;;54569471801
 ;;9002226.02101,"889,54569536800 ",.01)
 ;;54569536800
 ;;9002226.02101,"889,54569536800 ",.02)
 ;;54569536800
 ;;9002226.02101,"889,54569538500 ",.01)
 ;;54569538500
 ;;9002226.02101,"889,54569538500 ",.02)
 ;;54569538500
 ;;9002226.02101,"889,54569540400 ",.01)
 ;;54569540400
 ;;9002226.02101,"889,54569540400 ",.02)
 ;;54569540400
 ;;9002226.02101,"889,54569540401 ",.01)
 ;;54569540401
 ;;9002226.02101,"889,54569540401 ",.02)
 ;;54569540401
 ;;9002226.02101,"889,54569541700 ",.01)
 ;;54569541700
 ;;9002226.02101,"889,54569541700 ",.02)
 ;;54569541700
 ;;9002226.02101,"889,54569541701 ",.01)
 ;;54569541701
 ;;9002226.02101,"889,54569541701 ",.02)
 ;;54569541701