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

BGPM5BEX.m

Go to the documentation of this file.
BGPM5BEX ;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,13411016302 ",.01)
 ;;13411016302
 ;;9002226.02101,"1084,13411016302 ",.02)
 ;;13411016302
 ;;9002226.02101,"1084,13411016303 ",.01)
 ;;13411016303
 ;;9002226.02101,"1084,13411016303 ",.02)
 ;;13411016303
 ;;9002226.02101,"1084,13411016306 ",.01)
 ;;13411016306
 ;;9002226.02101,"1084,13411016306 ",.02)
 ;;13411016306
 ;;9002226.02101,"1084,13411016309 ",.01)
 ;;13411016309
 ;;9002226.02101,"1084,13411016309 ",.02)
 ;;13411016309
 ;;9002226.02101,"1084,13411016310 ",.01)
 ;;13411016310
 ;;9002226.02101,"1084,13411016310 ",.02)
 ;;13411016310
 ;;9002226.02101,"1084,13411016402 ",.01)
 ;;13411016402
 ;;9002226.02101,"1084,13411016402 ",.02)
 ;;13411016402
 ;;9002226.02101,"1084,13411016403 ",.01)
 ;;13411016403
 ;;9002226.02101,"1084,13411016403 ",.02)
 ;;13411016403
 ;;9002226.02101,"1084,13411016406 ",.01)
 ;;13411016406
 ;;9002226.02101,"1084,13411016406 ",.02)
 ;;13411016406
 ;;9002226.02101,"1084,13411016409 ",.01)
 ;;13411016409
 ;;9002226.02101,"1084,13411016409 ",.02)
 ;;13411016409
 ;;9002226.02101,"1084,13411016410 ",.01)
 ;;13411016410
 ;;9002226.02101,"1084,13411016410 ",.02)
 ;;13411016410
 ;;9002226.02101,"1084,13411022001 ",.01)
 ;;13411022001
 ;;9002226.02101,"1084,13411022001 ",.02)
 ;;13411022001
 ;;9002226.02101,"1084,13411022002 ",.01)
 ;;13411022002
 ;;9002226.02101,"1084,13411022002 ",.02)
 ;;13411022002
 ;;9002226.02101,"1084,13411022003 ",.01)
 ;;13411022003
 ;;9002226.02101,"1084,13411022003 ",.02)
 ;;13411022003
 ;;9002226.02101,"1084,13411022006 ",.01)
 ;;13411022006
 ;;9002226.02101,"1084,13411022006 ",.02)
 ;;13411022006
 ;;9002226.02101,"1084,13411022010 ",.01)
 ;;13411022010
 ;;9002226.02101,"1084,13411022010 ",.02)
 ;;13411022010
 ;;9002226.02101,"1084,13411022101 ",.01)
 ;;13411022101
 ;;9002226.02101,"1084,13411022101 ",.02)
 ;;13411022101
 ;;9002226.02101,"1084,13411022102 ",.01)
 ;;13411022102
 ;;9002226.02101,"1084,13411022102 ",.02)
 ;;13411022102
 ;;9002226.02101,"1084,13411022103 ",.01)
 ;;13411022103
 ;;9002226.02101,"1084,13411022103 ",.02)
 ;;13411022103
 ;;9002226.02101,"1084,13411022106 ",.01)
 ;;13411022106
 ;;9002226.02101,"1084,13411022106 ",.02)
 ;;13411022106
 ;;9002226.02101,"1084,13411022110 ",.01)
 ;;13411022110
 ;;9002226.02101,"1084,13411022110 ",.02)
 ;;13411022110
 ;;9002226.02101,"1084,13411022302 ",.01)
 ;;13411022302
 ;;9002226.02101,"1084,13411022302 ",.02)
 ;;13411022302
 ;;9002226.02101,"1084,13411022303 ",.01)
 ;;13411022303
 ;;9002226.02101,"1084,13411022303 ",.02)
 ;;13411022303
 ;;9002226.02101,"1084,13411022306 ",.01)
 ;;13411022306
 ;;9002226.02101,"1084,13411022306 ",.02)
 ;;13411022306
 ;;9002226.02101,"1084,13411022309 ",.01)
 ;;13411022309
 ;;9002226.02101,"1084,13411022309 ",.02)
 ;;13411022309
 ;;9002226.02101,"1084,13411022310 ",.01)
 ;;13411022310
 ;;9002226.02101,"1084,13411022310 ",.02)
 ;;13411022310
 ;;9002226.02101,"1084,13411034603 ",.01)
 ;;13411034603
 ;;9002226.02101,"1084,13411034603 ",.02)
 ;;13411034603
 ;;9002226.02101,"1084,13411034703 ",.01)
 ;;13411034703
 ;;9002226.02101,"1084,13411034703 ",.02)
 ;;13411034703
 ;;9002226.02101,"1084,13411034803 ",.01)
 ;;13411034803
 ;;9002226.02101,"1084,13411034803 ",.02)
 ;;13411034803
 ;;9002226.02101,"1084,13411034903 ",.01)
 ;;13411034903
 ;;9002226.02101,"1084,13411034903 ",.02)
 ;;13411034903
 ;;9002226.02101,"1084,13411035003 ",.01)
 ;;13411035003
 ;;9002226.02101,"1084,13411035003 ",.02)
 ;;13411035003
 ;;9002226.02101,"1084,13668000101 ",.01)
 ;;13668000101
 ;;9002226.02101,"1084,13668000101 ",.02)
 ;;13668000101
 ;;9002226.02101,"1084,13668000105 ",.01)
 ;;13668000105
 ;;9002226.02101,"1084,13668000105 ",.02)
 ;;13668000105
 ;;9002226.02101,"1084,13668000110 ",.01)
 ;;13668000110
 ;;9002226.02101,"1084,13668000110 ",.02)
 ;;13668000110
 ;;9002226.02101,"1084,13668000112 ",.01)
 ;;13668000112
 ;;9002226.02101,"1084,13668000112 ",.02)
 ;;13668000112
 ;;9002226.02101,"1084,13668000130 ",.01)
 ;;13668000130
 ;;9002226.02101,"1084,13668000130 ",.02)
 ;;13668000130
 ;;9002226.02101,"1084,13668000160 ",.01)
 ;;13668000160
 ;;9002226.02101,"1084,13668000160 ",.02)
 ;;13668000160
 ;;9002226.02101,"1084,13668000190 ",.01)
 ;;13668000190
 ;;9002226.02101,"1084,13668000190 ",.02)
 ;;13668000190
 ;;9002226.02101,"1084,13668000201 ",.01)
 ;;13668000201
 ;;9002226.02101,"1084,13668000201 ",.02)
 ;;13668000201
 ;;9002226.02101,"1084,13668000205 ",.01)
 ;;13668000205
 ;;9002226.02101,"1084,13668000205 ",.02)
 ;;13668000205
 ;;9002226.02101,"1084,13668000212 ",.01)
 ;;13668000212
 ;;9002226.02101,"1084,13668000212 ",.02)
 ;;13668000212
 ;;9002226.02101,"1084,13668000230 ",.01)
 ;;13668000230
 ;;9002226.02101,"1084,13668000230 ",.02)
 ;;13668000230
 ;;9002226.02101,"1084,13668000260 ",.01)
 ;;13668000260
 ;;9002226.02101,"1084,13668000260 ",.02)
 ;;13668000260
 ;;9002226.02101,"1084,13668000290 ",.01)
 ;;13668000290
 ;;9002226.02101,"1084,13668000290 ",.02)
 ;;13668000290
 ;;9002226.02101,"1084,13668000301 ",.01)
 ;;13668000301
 ;;9002226.02101,"1084,13668000301 ",.02)
 ;;13668000301
 ;;9002226.02101,"1084,13668000305 ",.01)
 ;;13668000305
 ;;9002226.02101,"1084,13668000305 ",.02)
 ;;13668000305
 ;;9002226.02101,"1084,13668000312 ",.01)
 ;;13668000312
 ;;9002226.02101,"1084,13668000312 ",.02)
 ;;13668000312
 ;;9002226.02101,"1084,13668000330 ",.01)
 ;;13668000330
 ;;9002226.02101,"1084,13668000330 ",.02)
 ;;13668000330
 ;;9002226.02101,"1084,13668000360 ",.01)
 ;;13668000360
 ;;9002226.02101,"1084,13668000360 ",.02)
 ;;13668000360
 ;;9002226.02101,"1084,13668000390 ",.01)
 ;;13668000390
 ;;9002226.02101,"1084,13668000390 ",.02)
 ;;13668000390
 ;;9002226.02101,"1084,13668001205 ",.01)
 ;;13668001205
 ;;9002226.02101,"1084,13668001205 ",.02)
 ;;13668001205
 ;;9002226.02101,"1084,13668001212 ",.01)
 ;;13668001212
 ;;9002226.02101,"1084,13668001212 ",.02)
 ;;13668001212
 ;;9002226.02101,"1084,13668001230 ",.01)
 ;;13668001230
 ;;9002226.02101,"1084,13668001230 ",.02)
 ;;13668001230
 ;;9002226.02101,"1084,13668001260 ",.01)
 ;;13668001260
 ;;9002226.02101,"1084,13668001260 ",.02)
 ;;13668001260
 ;;9002226.02101,"1084,13668001290 ",.01)
 ;;13668001290
 ;;9002226.02101,"1084,13668001290 ",.02)
 ;;13668001290
 ;;9002226.02101,"1084,13668001305 ",.01)
 ;;13668001305
 ;;9002226.02101,"1084,13668001305 ",.02)
 ;;13668001305
 ;;9002226.02101,"1084,13668001312 ",.01)
 ;;13668001312
 ;;9002226.02101,"1084,13668001312 ",.02)
 ;;13668001312
 ;;9002226.02101,"1084,13668001330 ",.01)
 ;;13668001330
 ;;9002226.02101,"1084,13668001330 ",.02)
 ;;13668001330
 ;;9002226.02101,"1084,13668001360 ",.01)
 ;;13668001360
 ;;9002226.02101,"1084,13668001360 ",.02)
 ;;13668001360
 ;;9002226.02101,"1084,13668001390 ",.01)
 ;;13668001390
 ;;9002226.02101,"1084,13668001390 ",.02)
 ;;13668001390
 ;;9002226.02101,"1084,14550020210 ",.01)
 ;;14550020210
 ;;9002226.02101,"1084,14550020210 ",.02)
 ;;14550020210
 ;;9002226.02101,"1084,14550020250 ",.01)
 ;;14550020250
 ;;9002226.02101,"1084,14550020250 ",.02)
 ;;14550020250
 ;;9002226.02101,"1084,14550051702 ",.01)
 ;;14550051702
 ;;9002226.02101,"1084,14550051702 ",.02)
 ;;14550051702
 ;;9002226.02101,"1084,14550051704 ",.01)
 ;;14550051704
 ;;9002226.02101,"1084,14550051704 ",.02)
 ;;14550051704
 ;;9002226.02101,"1084,14550051802 ",.01)
 ;;14550051802
 ;;9002226.02101,"1084,14550051802 ",.02)
 ;;14550051802
 ;;9002226.02101,"1084,14550051804 ",.01)
 ;;14550051804
 ;;9002226.02101,"1084,14550051804 ",.02)
 ;;14550051804
 ;;9002226.02101,"1084,14550051902 ",.01)
 ;;14550051902
 ;;9002226.02101,"1084,14550051902 ",.02)
 ;;14550051902
 ;;9002226.02101,"1084,14550051904 ",.01)
 ;;14550051904
 ;;9002226.02101,"1084,14550051904 ",.02)
 ;;14550051904
 ;;9002226.02101,"1084,14565020210 ",.01)
 ;;14565020210
 ;;9002226.02101,"1084,14565020210 ",.02)
 ;;14565020210
 ;;9002226.02101,"1084,14565020250 ",.01)
 ;;14565020250
 ;;9002226.02101,"1084,14565020250 ",.02)
 ;;14565020250
 ;;9002226.02101,"1084,14593040901 ",.01)
 ;;14593040901
 ;;9002226.02101,"1084,14593040901 ",.02)
 ;;14593040901
 ;;9002226.02101,"1084,14593040902 ",.01)
 ;;14593040902
 ;;9002226.02101,"1084,14593040902 ",.02)
 ;;14593040902
 ;;9002226.02101,"1084,14593040905 ",.01)
 ;;14593040905
 ;;9002226.02101,"1084,14593040905 ",.02)
 ;;14593040905
 ;;9002226.02101,"1084,14593040910 ",.01)
 ;;14593040910
 ;;9002226.02101,"1084,14593040910 ",.02)
 ;;14593040910
 ;;9002226.02101,"1084,14593041001 ",.01)
 ;;14593041001
 ;;9002226.02101,"1084,14593041001 ",.02)
 ;;14593041001
 ;;9002226.02101,"1084,14593041010 ",.01)
 ;;14593041010
 ;;9002226.02101,"1084,14593041010 ",.02)
 ;;14593041010
 ;;9002226.02101,"1084,14593041101 ",.01)
 ;;14593041101
 ;;9002226.02101,"1084,14593041101 ",.02)
 ;;14593041101
 ;;9002226.02101,"1084,14593041110 ",.01)
 ;;14593041110
 ;;9002226.02101,"1084,14593041110 ",.02)
 ;;14593041110
 ;;9002226.02101,"1084,15548096701 ",.01)
 ;;15548096701
 ;;9002226.02101,"1084,15548096701 ",.02)
 ;;15548096701
 ;;9002226.02101,"1084,15548096705 ",.01)
 ;;15548096705
 ;;9002226.02101,"1084,15548096705 ",.02)
 ;;15548096705
 ;;9002226.02101,"1084,15548096801 ",.01)
 ;;15548096801
 ;;9002226.02101,"1084,15548096801 ",.02)
 ;;15548096801
 ;;9002226.02101,"1084,15548096805 ",.01)
 ;;15548096805
 ;;9002226.02101,"1084,15548096805 ",.02)
 ;;15548096805
 ;;9002226.02101,"1084,16252051801 ",.01)
 ;;16252051801
 ;;9002226.02101,"1084,16252051801 ",.02)
 ;;16252051801
 ;;9002226.02101,"1084,16252051901 ",.01)
 ;;16252051901
 ;;9002226.02101,"1084,16252051901 ",.02)
 ;;16252051901
 ;;9002226.02101,"1084,16252052001 ",.01)
 ;;16252052001
 ;;9002226.02101,"1084,16252052001 ",.02)
 ;;16252052001
 ;;9002226.02101,"1084,16252052300 ",.01)
 ;;16252052300
 ;;9002226.02101,"1084,16252052300 ",.02)
 ;;16252052300
 ;;9002226.02101,"1084,16252052301 ",.01)
 ;;16252052301
 ;;9002226.02101,"1084,16252052301 ",.02)
 ;;16252052301
 ;;9002226.02101,"1084,16252052400 ",.01)
 ;;16252052400
 ;;9002226.02101,"1084,16252052400 ",.02)
 ;;16252052400
 ;;9002226.02101,"1084,16252052401 ",.01)
 ;;16252052401
 ;;9002226.02101,"1084,16252052401 ",.02)
 ;;16252052401
 ;;9002226.02101,"1084,16252052500 ",.01)
 ;;16252052500
 ;;9002226.02101,"1084,16252052500 ",.02)
 ;;16252052500
 ;;9002226.02101,"1084,16252052501 ",.01)
 ;;16252052501
 ;;9002226.02101,"1084,16252052501 ",.02)
 ;;16252052501
 ;;9002226.02101,"1084,16364000101 ",.01)
 ;;16364000101
 ;;9002226.02101,"1084,16364000101 ",.02)
 ;;16364000101
 ;;9002226.02101,"1084,16364000201 ",.01)
 ;;16364000201
 ;;9002226.02101,"1084,16364000201 ",.02)
 ;;16364000201
 ;;9002226.02101,"1084,16364000301 ",.01)
 ;;16364000301
 ;;9002226.02101,"1084,16364000301 ",.02)
 ;;16364000301
 ;;9002226.02101,"1084,16590028730 ",.01)
 ;;16590028730
 ;;9002226.02101,"1084,16590028730 ",.02)
 ;;16590028730
 ;;9002226.02101,"1084,16590028760 ",.01)
 ;;16590028760
 ;;9002226.02101,"1084,16590028760 ",.02)
 ;;16590028760
 ;;9002226.02101,"1084,16590028771 ",.01)
 ;;16590028771
 ;;9002226.02101,"1084,16590028771 ",.02)
 ;;16590028771
 ;;9002226.02101,"1084,16590028790 ",.01)
 ;;16590028790
 ;;9002226.02101,"1084,16590028790 ",.02)
 ;;16590028790
 ;;9002226.02101,"1084,16590031330 ",.01)
 ;;16590031330
 ;;9002226.02101,"1084,16590031330 ",.02)
 ;;16590031330
 ;;9002226.02101,"1084,16590031360 ",.01)
 ;;16590031360
 ;;9002226.02101,"1084,16590031360 ",.02)
 ;;16590031360
 ;;9002226.02101,"1084,16590031390 ",.01)
 ;;16590031390
 ;;9002226.02101,"1084,16590031390 ",.02)
 ;;16590031390
 ;;9002226.02101,"1084,16590041860 ",.01)
 ;;16590041860