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

BGPM5AUW.m

Go to the documentation of this file.
BGPM5AUW ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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,"1033,52959042820 ",.01)
 ;;52959042820
 ;;9002226.02101,"1033,52959042820 ",.02)
 ;;52959042820
 ;;9002226.02101,"1033,52959042828 ",.01)
 ;;52959042828
 ;;9002226.02101,"1033,52959042828 ",.02)
 ;;52959042828
 ;;9002226.02101,"1033,52959042830 ",.01)
 ;;52959042830
 ;;9002226.02101,"1033,52959042830 ",.02)
 ;;52959042830
 ;;9002226.02101,"1033,52959047414 ",.01)
 ;;52959047414
 ;;9002226.02101,"1033,52959047414 ",.02)
 ;;52959047414
 ;;9002226.02101,"1033,52959047420 ",.01)
 ;;52959047420
 ;;9002226.02101,"1033,52959047420 ",.02)
 ;;52959047420
 ;;9002226.02101,"1033,52959047430 ",.01)
 ;;52959047430
 ;;9002226.02101,"1033,52959047430 ",.02)
 ;;52959047430
 ;;9002226.02101,"1033,52959056000 ",.01)
 ;;52959056000
 ;;9002226.02101,"1033,52959056000 ",.02)
 ;;52959056000
 ;;9002226.02101,"1033,52959060910 ",.01)
 ;;52959060910
 ;;9002226.02101,"1033,52959060910 ",.02)
 ;;52959060910
 ;;9002226.02101,"1033,52959061302 ",.01)
 ;;52959061302
 ;;9002226.02101,"1033,52959061302 ",.02)
 ;;52959061302
 ;;9002226.02101,"1033,52959061303 ",.01)
 ;;52959061303
 ;;9002226.02101,"1033,52959061303 ",.02)
 ;;52959061303
 ;;9002226.02101,"1033,52959061903 ",.01)
 ;;52959061903
 ;;9002226.02101,"1033,52959061903 ",.02)
 ;;52959061903
 ;;9002226.02101,"1033,52959062000 ",.01)
 ;;52959062000
 ;;9002226.02101,"1033,52959062000 ",.02)
 ;;52959062000
 ;;9002226.02101,"1033,52959062001 ",.01)
 ;;52959062001
 ;;9002226.02101,"1033,52959062001 ",.02)
 ;;52959062001
 ;;9002226.02101,"1033,52959066120 ",.01)
 ;;52959066120
 ;;9002226.02101,"1033,52959066120 ",.02)
 ;;52959066120
 ;;9002226.02101,"1033,52959066130 ",.01)
 ;;52959066130
 ;;9002226.02101,"1033,52959066130 ",.02)
 ;;52959066130
 ;;9002226.02101,"1033,52959070204 ",.01)
 ;;52959070204
 ;;9002226.02101,"1033,52959070204 ",.02)
 ;;52959070204
 ;;9002226.02101,"1033,52959070209 ",.01)
 ;;52959070209
 ;;9002226.02101,"1033,52959070209 ",.02)
 ;;52959070209
 ;;9002226.02101,"1033,52959070212 ",.01)
 ;;52959070212
 ;;9002226.02101,"1033,52959070212 ",.02)
 ;;52959070212
 ;;9002226.02101,"1033,52959070214 ",.01)
 ;;52959070214
 ;;9002226.02101,"1033,52959070214 ",.02)
 ;;52959070214
 ;;9002226.02101,"1033,52959070215 ",.01)
 ;;52959070215
 ;;9002226.02101,"1033,52959070215 ",.02)
 ;;52959070215
 ;;9002226.02101,"1033,52959070220 ",.01)
 ;;52959070220
 ;;9002226.02101,"1033,52959070220 ",.02)
 ;;52959070220
 ;;9002226.02101,"1033,52959070221 ",.01)
 ;;52959070221
 ;;9002226.02101,"1033,52959070221 ",.02)
 ;;52959070221
 ;;9002226.02101,"1033,52959070230 ",.01)
 ;;52959070230
 ;;9002226.02101,"1033,52959070230 ",.02)
 ;;52959070230
 ;;9002226.02101,"1033,52959070240 ",.01)
 ;;52959070240
 ;;9002226.02101,"1033,52959070240 ",.02)
 ;;52959070240
 ;;9002226.02101,"1033,52959070710 ",.01)
 ;;52959070710
 ;;9002226.02101,"1033,52959070710 ",.02)
 ;;52959070710
 ;;9002226.02101,"1033,52959070714 ",.01)
 ;;52959070714
 ;;9002226.02101,"1033,52959070714 ",.02)
 ;;52959070714
 ;;9002226.02101,"1033,52959070715 ",.01)
 ;;52959070715
 ;;9002226.02101,"1033,52959070715 ",.02)
 ;;52959070715
 ;;9002226.02101,"1033,52959070720 ",.01)
 ;;52959070720
 ;;9002226.02101,"1033,52959070720 ",.02)
 ;;52959070720
 ;;9002226.02101,"1033,52959070730 ",.01)
 ;;52959070730
 ;;9002226.02101,"1033,52959070730 ",.02)
 ;;52959070730
 ;;9002226.02101,"1033,52959070760 ",.01)
 ;;52959070760
 ;;9002226.02101,"1033,52959070760 ",.02)
 ;;52959070760
 ;;9002226.02101,"1033,52959073000 ",.01)
 ;;52959073000
 ;;9002226.02101,"1033,52959073000 ",.02)
 ;;52959073000
 ;;9002226.02101,"1033,52959073004 ",.01)
 ;;52959073004
 ;;9002226.02101,"1033,52959073004 ",.02)
 ;;52959073004
 ;;9002226.02101,"1033,52959073006 ",.01)
 ;;52959073006
 ;;9002226.02101,"1033,52959073006 ",.02)
 ;;52959073006
 ;;9002226.02101,"1033,52959073010 ",.01)
 ;;52959073010
 ;;9002226.02101,"1033,52959073010 ",.02)
 ;;52959073010
 ;;9002226.02101,"1033,52959073014 ",.01)
 ;;52959073014
 ;;9002226.02101,"1033,52959073014 ",.02)
 ;;52959073014
 ;;9002226.02101,"1033,52959073015 ",.01)
 ;;52959073015
 ;;9002226.02101,"1033,52959073015 ",.02)
 ;;52959073015
 ;;9002226.02101,"1033,52959073020 ",.01)
 ;;52959073020
 ;;9002226.02101,"1033,52959073020 ",.02)
 ;;52959073020
 ;;9002226.02101,"1033,52959073021 ",.01)
 ;;52959073021
 ;;9002226.02101,"1033,52959073021 ",.02)
 ;;52959073021
 ;;9002226.02101,"1033,52959073028 ",.01)
 ;;52959073028
 ;;9002226.02101,"1033,52959073028 ",.02)
 ;;52959073028
 ;;9002226.02101,"1033,52959073030 ",.01)
 ;;52959073030
 ;;9002226.02101,"1033,52959073030 ",.02)
 ;;52959073030
 ;;9002226.02101,"1033,52959073060 ",.01)
 ;;52959073060
 ;;9002226.02101,"1033,52959073060 ",.02)
 ;;52959073060
 ;;9002226.02101,"1033,52959073414 ",.01)
 ;;52959073414
 ;;9002226.02101,"1033,52959073414 ",.02)
 ;;52959073414
 ;;9002226.02101,"1033,52959073420 ",.01)
 ;;52959073420
 ;;9002226.02101,"1033,52959073420 ",.02)
 ;;52959073420
 ;;9002226.02101,"1033,52959073430 ",.01)
 ;;52959073430
 ;;9002226.02101,"1033,52959073430 ",.02)
 ;;52959073430
 ;;9002226.02101,"1033,52959073460 ",.01)
 ;;52959073460
 ;;9002226.02101,"1033,52959073460 ",.02)
 ;;52959073460
 ;;9002226.02101,"1033,52959073906 ",.01)
 ;;52959073906
 ;;9002226.02101,"1033,52959073906 ",.02)
 ;;52959073906
 ;;9002226.02101,"1033,52959073910 ",.01)
 ;;52959073910
 ;;9002226.02101,"1033,52959073910 ",.02)
 ;;52959073910
 ;;9002226.02101,"1033,52959073914 ",.01)
 ;;52959073914
 ;;9002226.02101,"1033,52959073914 ",.02)
 ;;52959073914
 ;;9002226.02101,"1033,52959073920 ",.01)
 ;;52959073920
 ;;9002226.02101,"1033,52959073920 ",.02)
 ;;52959073920
 ;;9002226.02101,"1033,52959074420 ",.01)
 ;;52959074420
 ;;9002226.02101,"1033,52959074420 ",.02)
 ;;52959074420
 ;;9002226.02101,"1033,52959074430 ",.01)
 ;;52959074430
 ;;9002226.02101,"1033,52959074430 ",.02)
 ;;52959074430
 ;;9002226.02101,"1033,52959074440 ",.01)
 ;;52959074440
 ;;9002226.02101,"1033,52959074440 ",.02)
 ;;52959074440
 ;;9002226.02101,"1033,52959074442 ",.01)
 ;;52959074442
 ;;9002226.02101,"1033,52959074442 ",.02)
 ;;52959074442
 ;;9002226.02101,"1033,52959076501 ",.01)
 ;;52959076501
 ;;9002226.02101,"1033,52959076501 ",.02)
 ;;52959076501
 ;;9002226.02101,"1033,52959076502 ",.01)
 ;;52959076502
 ;;9002226.02101,"1033,52959076502 ",.02)
 ;;52959076502
 ;;9002226.02101,"1033,52959076603 ",.01)
 ;;52959076603
 ;;9002226.02101,"1033,52959076603 ",.02)
 ;;52959076603
 ;;9002226.02101,"1033,52959076605 ",.01)
 ;;52959076605
 ;;9002226.02101,"1033,52959076605 ",.02)
 ;;52959076605
 ;;9002226.02101,"1033,52959076607 ",.01)
 ;;52959076607
 ;;9002226.02101,"1033,52959076607 ",.02)
 ;;52959076607
 ;;9002226.02101,"1033,52959078404 ",.01)
 ;;52959078404
 ;;9002226.02101,"1033,52959078404 ",.02)
 ;;52959078404
 ;;9002226.02101,"1033,52959078416 ",.01)
 ;;52959078416
 ;;9002226.02101,"1033,52959078416 ",.02)
 ;;52959078416
 ;;9002226.02101,"1033,52959078421 ",.01)
 ;;52959078421
 ;;9002226.02101,"1033,52959078421 ",.02)
 ;;52959078421
 ;;9002226.02101,"1033,52959078428 ",.01)
 ;;52959078428
 ;;9002226.02101,"1033,52959078428 ",.02)
 ;;52959078428
 ;;9002226.02101,"1033,52959078430 ",.01)
 ;;52959078430
 ;;9002226.02101,"1033,52959078430 ",.02)
 ;;52959078430
 ;;9002226.02101,"1033,52959078440 ",.01)
 ;;52959078440
 ;;9002226.02101,"1033,52959078440 ",.02)
 ;;52959078440
 ;;9002226.02101,"1033,52959079610 ",.01)
 ;;52959079610
 ;;9002226.02101,"1033,52959079610 ",.02)
 ;;52959079610
 ;;9002226.02101,"1033,52959081620 ",.01)
 ;;52959081620
 ;;9002226.02101,"1033,52959081620 ",.02)
 ;;52959081620
 ;;9002226.02101,"1033,52959081628 ",.01)
 ;;52959081628
 ;;9002226.02101,"1033,52959081628 ",.02)
 ;;52959081628
 ;;9002226.02101,"1033,52959081630 ",.01)
 ;;52959081630
 ;;9002226.02101,"1033,52959081630 ",.02)
 ;;52959081630
 ;;9002226.02101,"1033,52959083610 ",.01)
 ;;52959083610
 ;;9002226.02101,"1033,52959083610 ",.02)
 ;;52959083610
 ;;9002226.02101,"1033,52959083614 ",.01)
 ;;52959083614
 ;;9002226.02101,"1033,52959083614 ",.02)
 ;;52959083614
 ;;9002226.02101,"1033,52959083620 ",.01)
 ;;52959083620
 ;;9002226.02101,"1033,52959083620 ",.02)
 ;;52959083620
 ;;9002226.02101,"1033,52959083660 ",.01)
 ;;52959083660
 ;;9002226.02101,"1033,52959083660 ",.02)
 ;;52959083660
 ;;9002226.02101,"1033,52959084301 ",.01)
 ;;52959084301
 ;;9002226.02101,"1033,52959084301 ",.02)
 ;;52959084301
 ;;9002226.02101,"1033,52959093230 ",.01)
 ;;52959093230
 ;;9002226.02101,"1033,52959093230 ",.02)
 ;;52959093230
 ;;9002226.02101,"1033,52959093920 ",.01)
 ;;52959093920
 ;;9002226.02101,"1033,52959093920 ",.02)
 ;;52959093920
 ;;9002226.02101,"1033,52959093930 ",.01)
 ;;52959093930
 ;;9002226.02101,"1033,52959093930 ",.02)
 ;;52959093930
 ;;9002226.02101,"1033,52959102301 ",.01)
 ;;52959102301
 ;;9002226.02101,"1033,52959102301 ",.02)
 ;;52959102301
 ;;9002226.02101,"1033,52959102303 ",.01)
 ;;52959102303
 ;;9002226.02101,"1033,52959102303 ",.02)
 ;;52959102303
 ;;9002226.02101,"1033,52959102305 ",.01)
 ;;52959102305
 ;;9002226.02101,"1033,52959102305 ",.02)
 ;;52959102305
 ;;9002226.02101,"1033,52959102307 ",.01)
 ;;52959102307
 ;;9002226.02101,"1033,52959102307 ",.02)
 ;;52959102307
 ;;9002226.02101,"1033,52959102309 ",.01)
 ;;52959102309
 ;;9002226.02101,"1033,52959102309 ",.02)
 ;;52959102309
 ;;9002226.02101,"1033,52959102900 ",.01)
 ;;52959102900
 ;;9002226.02101,"1033,52959102900 ",.02)
 ;;52959102900
 ;;9002226.02101,"1033,52959102901 ",.01)
 ;;52959102901
 ;;9002226.02101,"1033,52959102901 ",.02)
 ;;52959102901
 ;;9002226.02101,"1033,52959117201 ",.01)
 ;;52959117201
 ;;9002226.02101,"1033,52959117201 ",.02)
 ;;52959117201
 ;;9002226.02101,"1033,52959117202 ",.01)
 ;;52959117202
 ;;9002226.02101,"1033,52959117202 ",.02)
 ;;52959117202
 ;;9002226.02101,"1033,52959139903 ",.01)
 ;;52959139903
 ;;9002226.02101,"1033,52959139903 ",.02)
 ;;52959139903
 ;;9002226.02101,"1033,52959145302 ",.01)
 ;;52959145302
 ;;9002226.02101,"1033,52959145302 ",.02)
 ;;52959145302
 ;;9002226.02101,"1033,52959146303 ",.01)
 ;;52959146303
 ;;9002226.02101,"1033,52959146303 ",.02)
 ;;52959146303
 ;;9002226.02101,"1033,53002001320 ",.01)
 ;;53002001320
 ;;9002226.02101,"1033,53002001320 ",.02)
 ;;53002001320
 ;;9002226.02101,"1033,53002020206 ",.01)
 ;;53002020206
 ;;9002226.02101,"1033,53002020206 ",.02)
 ;;53002020206
 ;;9002226.02101,"1033,53002020209 ",.01)
 ;;53002020209
 ;;9002226.02101,"1033,53002020209 ",.02)
 ;;53002020209
 ;;9002226.02101,"1033,53002020210 ",.01)
 ;;53002020210
 ;;9002226.02101,"1033,53002020210 ",.02)
 ;;53002020210
 ;;9002226.02101,"1033,53002020212 ",.01)
 ;;53002020212
 ;;9002226.02101,"1033,53002020212 ",.02)
 ;;53002020212
 ;;9002226.02101,"1033,53002020214 ",.01)
 ;;53002020214
 ;;9002226.02101,"1033,53002020214 ",.02)
 ;;53002020214
 ;;9002226.02101,"1033,53002020216 ",.01)
 ;;53002020216
 ;;9002226.02101,"1033,53002020216 ",.02)
 ;;53002020216
 ;;9002226.02101,"1033,53002020220 ",.01)
 ;;53002020220
 ;;9002226.02101,"1033,53002020220 ",.02)
 ;;53002020220
 ;;9002226.02101,"1033,53002020224 ",.01)
 ;;53002020224
 ;;9002226.02101,"1033,53002020224 ",.02)
 ;;53002020224
 ;;9002226.02101,"1033,53002020225 ",.01)
 ;;53002020225
 ;;9002226.02101,"1033,53002020225 ",.02)
 ;;53002020225
 ;;9002226.02101,"1033,53002020228 ",.01)
 ;;53002020228
 ;;9002226.02101,"1033,53002020228 ",.02)
 ;;53002020228
 ;;9002226.02101,"1033,53002020230 ",.01)
 ;;53002020230
 ;;9002226.02101,"1033,53002020230 ",.02)
 ;;53002020230
 ;;9002226.02101,"1033,53002020240 ",.01)
 ;;53002020240