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

BGPM5AWS.m

Go to the documentation of this file.
BGPM5AWS ;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,65862014050 ",.02)
 ;;65862014050
 ;;9002226.02101,"1033,65862014075 ",.01)
 ;;65862014075
 ;;9002226.02101,"1033,65862014075 ",.02)
 ;;65862014075
 ;;9002226.02101,"1033,65862014101 ",.01)
 ;;65862014101
 ;;9002226.02101,"1033,65862014101 ",.02)
 ;;65862014101
 ;;9002226.02101,"1033,65862014150 ",.01)
 ;;65862014150
 ;;9002226.02101,"1033,65862014150 ",.02)
 ;;65862014150
 ;;9002226.02101,"1033,65862014175 ",.01)
 ;;65862014175
 ;;9002226.02101,"1033,65862014175 ",.02)
 ;;65862014175
 ;;9002226.02101,"1033,65862017501 ",.01)
 ;;65862017501
 ;;9002226.02101,"1033,65862017501 ",.02)
 ;;65862017501
 ;;9002226.02101,"1033,65862017535 ",.01)
 ;;65862017535
 ;;9002226.02101,"1033,65862017535 ",.02)
 ;;65862017535
 ;;9002226.02101,"1033,65862017599 ",.01)
 ;;65862017599
 ;;9002226.02101,"1033,65862017599 ",.02)
 ;;65862017599
 ;;9002226.02101,"1033,65862017601 ",.01)
 ;;65862017601
 ;;9002226.02101,"1033,65862017601 ",.02)
 ;;65862017601
 ;;9002226.02101,"1033,65862017605 ",.01)
 ;;65862017605
 ;;9002226.02101,"1033,65862017605 ",.02)
 ;;65862017605
 ;;9002226.02101,"1033,65862017615 ",.01)
 ;;65862017615
 ;;9002226.02101,"1033,65862017615 ",.02)
 ;;65862017615
 ;;9002226.02101,"1033,65862017699 ",.01)
 ;;65862017699
 ;;9002226.02101,"1033,65862017699 ",.02)
 ;;65862017699
 ;;9002226.02101,"1033,65862017705 ",.01)
 ;;65862017705
 ;;9002226.02101,"1033,65862017705 ",.02)
 ;;65862017705
 ;;9002226.02101,"1033,65862017715 ",.01)
 ;;65862017715
 ;;9002226.02101,"1033,65862017715 ",.02)
 ;;65862017715
 ;;9002226.02101,"1033,65862017730 ",.01)
 ;;65862017730
 ;;9002226.02101,"1033,65862017730 ",.02)
 ;;65862017730
 ;;9002226.02101,"1033,65862017760 ",.01)
 ;;65862017760
 ;;9002226.02101,"1033,65862017760 ",.02)
 ;;65862017760
 ;;9002226.02101,"1033,65862018501 ",.01)
 ;;65862018501
 ;;9002226.02101,"1033,65862018501 ",.02)
 ;;65862018501
 ;;9002226.02101,"1033,65862018505 ",.01)
 ;;65862018505
 ;;9002226.02101,"1033,65862018505 ",.02)
 ;;65862018505
 ;;9002226.02101,"1033,65862018601 ",.01)
 ;;65862018601
 ;;9002226.02101,"1033,65862018601 ",.02)
 ;;65862018601
 ;;9002226.02101,"1033,65862018605 ",.01)
 ;;65862018605
 ;;9002226.02101,"1033,65862018605 ",.02)
 ;;65862018605
 ;;9002226.02101,"1033,65862018616 ",.01)
 ;;65862018616
 ;;9002226.02101,"1033,65862018616 ",.02)
 ;;65862018616
 ;;9002226.02101,"1033,65862020901 ",.01)
 ;;65862020901
 ;;9002226.02101,"1033,65862020901 ",.02)
 ;;65862020901
 ;;9002226.02101,"1033,65862020905 ",.01)
 ;;65862020905
 ;;9002226.02101,"1033,65862020905 ",.02)
 ;;65862020905
 ;;9002226.02101,"1033,65862020999 ",.01)
 ;;65862020999
 ;;9002226.02101,"1033,65862020999 ",.02)
 ;;65862020999
 ;;9002226.02101,"1033,65862021001 ",.01)
 ;;65862021001
 ;;9002226.02101,"1033,65862021001 ",.02)
 ;;65862021001
 ;;9002226.02101,"1033,65862021005 ",.01)
 ;;65862021005
 ;;9002226.02101,"1033,65862021005 ",.02)
 ;;65862021005
 ;;9002226.02101,"1033,65862021099 ",.01)
 ;;65862021099
 ;;9002226.02101,"1033,65862021099 ",.02)
 ;;65862021099
 ;;9002226.02101,"1033,65862021105 ",.01)
 ;;65862021105
 ;;9002226.02101,"1033,65862021105 ",.02)
 ;;65862021105
 ;;9002226.02101,"1033,65862021150 ",.01)
 ;;65862021150
 ;;9002226.02101,"1033,65862021150 ",.02)
 ;;65862021150
 ;;9002226.02101,"1033,65862021199 ",.01)
 ;;65862021199
 ;;9002226.02101,"1033,65862021199 ",.02)
 ;;65862021199
 ;;9002226.02101,"1033,65862021801 ",.01)
 ;;65862021801
 ;;9002226.02101,"1033,65862021801 ",.02)
 ;;65862021801
 ;;9002226.02101,"1033,65862021860 ",.01)
 ;;65862021860
 ;;9002226.02101,"1033,65862021860 ",.02)
 ;;65862021860
 ;;9002226.02101,"1033,65862021901 ",.01)
 ;;65862021901
 ;;9002226.02101,"1033,65862021901 ",.02)
 ;;65862021901
 ;;9002226.02101,"1033,65862021960 ",.01)
 ;;65862021960
 ;;9002226.02101,"1033,65862021960 ",.02)
 ;;65862021960
 ;;9002226.02101,"1033,65862023112 ",.01)
 ;;65862023112
 ;;9002226.02101,"1033,65862023112 ",.02)
 ;;65862023112
 ;;9002226.02101,"1033,65862023125 ",.01)
 ;;65862023125
 ;;9002226.02101,"1033,65862023125 ",.02)
 ;;65862023125
 ;;9002226.02101,"1033,65862023225 ",.01)
 ;;65862023225
 ;;9002226.02101,"1033,65862023225 ",.02)
 ;;65862023225
 ;;9002226.02101,"1033,65862023252 ",.01)
 ;;65862023252
 ;;9002226.02101,"1033,65862023252 ",.02)
 ;;65862023252
 ;;9002226.02101,"1033,65862023305 ",.01)
 ;;65862023305
 ;;9002226.02101,"1033,65862023305 ",.02)
 ;;65862023305
 ;;9002226.02101,"1033,65862023325 ",.01)
 ;;65862023325
 ;;9002226.02101,"1033,65862023325 ",.02)
 ;;65862023325
 ;;9002226.02101,"1033,65862023401 ",.01)
 ;;65862023401
 ;;9002226.02101,"1033,65862023401 ",.02)
 ;;65862023401
 ;;9002226.02101,"1033,65862023425 ",.01)
 ;;65862023425
 ;;9002226.02101,"1033,65862023425 ",.02)
 ;;65862023425
 ;;9002226.02101,"1033,65862023502 ",.01)
 ;;65862023502
 ;;9002226.02101,"1033,65862023502 ",.02)
 ;;65862023502
 ;;9002226.02101,"1033,65862023525 ",.01)
 ;;65862023525
 ;;9002226.02101,"1033,65862023525 ",.02)
 ;;65862023525
 ;;9002226.02101,"1033,65862023610 ",.01)
 ;;65862023610
 ;;9002226.02101,"1033,65862023610 ",.02)
 ;;65862023610
 ;;9002226.02101,"1033,65862023612 ",.01)
 ;;65862023612
 ;;9002226.02101,"1033,65862023612 ",.02)
 ;;65862023612
 ;;9002226.02101,"1033,65862035110 ",.01)
 ;;65862035110
 ;;9002226.02101,"1033,65862035110 ",.02)
 ;;65862035110
 ;;9002226.02101,"1033,65862035115 ",.01)
 ;;65862035115
 ;;9002226.02101,"1033,65862035115 ",.02)
 ;;65862035115
 ;;9002226.02101,"1033,65862035210 ",.01)
 ;;65862035210
 ;;9002226.02101,"1033,65862035210 ",.02)
 ;;65862035210
 ;;9002226.02101,"1033,65862035215 ",.01)
 ;;65862035215
 ;;9002226.02101,"1033,65862035215 ",.02)
 ;;65862035215
 ;;9002226.02101,"1033,65862035301 ",.01)
 ;;65862035301
 ;;9002226.02101,"1033,65862035301 ",.02)
 ;;65862035301
 ;;9002226.02101,"1033,65862035501 ",.01)
 ;;65862035501
 ;;9002226.02101,"1033,65862035501 ",.02)
 ;;65862035501
 ;;9002226.02101,"1033,65862035510 ",.01)
 ;;65862035510
 ;;9002226.02101,"1033,65862035510 ",.02)
 ;;65862035510
 ;;9002226.02101,"1033,65862035601 ",.01)
 ;;65862035601
 ;;9002226.02101,"1033,65862035601 ",.02)
 ;;65862035601
 ;;9002226.02101,"1033,65862035610 ",.01)
 ;;65862035610
 ;;9002226.02101,"1033,65862035610 ",.02)
 ;;65862035610
 ;;9002226.02101,"1033,65862041901 ",.01)
 ;;65862041901
 ;;9002226.02101,"1033,65862041901 ",.02)
 ;;65862041901
 ;;9002226.02101,"1033,65862041905 ",.01)
 ;;65862041905
 ;;9002226.02101,"1033,65862041905 ",.02)
 ;;65862041905
 ;;9002226.02101,"1033,65862041939 ",.01)
 ;;65862041939
 ;;9002226.02101,"1033,65862041939 ",.02)
 ;;65862041939
 ;;9002226.02101,"1033,65862042001 ",.01)
 ;;65862042001
 ;;9002226.02101,"1033,65862042001 ",.02)
 ;;65862042001
 ;;9002226.02101,"1033,65862042005 ",.01)
 ;;65862042005
 ;;9002226.02101,"1033,65862042005 ",.02)
 ;;65862042005
 ;;9002226.02101,"1033,65862042015 ",.01)
 ;;65862042015
 ;;9002226.02101,"1033,65862042015 ",.02)
 ;;65862042015
 ;;9002226.02101,"1033,65862049601 ",.01)
 ;;65862049601
 ;;9002226.02101,"1033,65862049601 ",.02)
 ;;65862049601
 ;;9002226.02101,"1033,65862049647 ",.01)
 ;;65862049647
 ;;9002226.02101,"1033,65862049647 ",.02)
 ;;65862049647
 ;;9002226.02101,"1033,65862049650 ",.01)
 ;;65862049650
 ;;9002226.02101,"1033,65862049650 ",.02)
 ;;65862049650
 ;;9002226.02101,"1033,65862053805 ",.01)
 ;;65862053805
 ;;9002226.02101,"1033,65862053805 ",.02)
 ;;65862053805
 ;;9002226.02101,"1033,65862053810 ",.01)
 ;;65862053810
 ;;9002226.02101,"1033,65862053810 ",.02)
 ;;65862053810
 ;;9002226.02101,"1033,65862053820 ",.01)
 ;;65862053820
 ;;9002226.02101,"1033,65862053820 ",.02)
 ;;65862053820
 ;;9002226.02101,"1033,65862053899 ",.01)
 ;;65862053899
 ;;9002226.02101,"1033,65862053899 ",.02)
 ;;65862053899
 ;;9002226.02101,"1033,66105063006 ",.01)
 ;;66105063006
 ;;9002226.02101,"1033,66105063006 ",.02)
 ;;66105063006
 ;;9002226.02101,"1033,66105067001 ",.01)
 ;;66105067001
 ;;9002226.02101,"1033,66105067001 ",.02)
 ;;66105067001
 ;;9002226.02101,"1033,66105067003 ",.01)
 ;;66105067003
 ;;9002226.02101,"1033,66105067003 ",.02)
 ;;66105067003
 ;;9002226.02101,"1033,66105067005 ",.01)
 ;;66105067005
 ;;9002226.02101,"1033,66105067005 ",.02)
 ;;66105067005
 ;;9002226.02101,"1033,66105067006 ",.01)
 ;;66105067006
 ;;9002226.02101,"1033,66105067006 ",.02)
 ;;66105067006
 ;;9002226.02101,"1033,66105067018 ",.01)
 ;;66105067018
 ;;9002226.02101,"1033,66105067018 ",.02)
 ;;66105067018
 ;;9002226.02101,"1033,66105067606 ",.01)
 ;;66105067606
 ;;9002226.02101,"1033,66105067606 ",.02)
 ;;66105067606
 ;;9002226.02101,"1033,66116012128 ",.01)
 ;;66116012128
 ;;9002226.02101,"1033,66116012128 ",.02)
 ;;66116012128
 ;;9002226.02101,"1033,66116021514 ",.01)
 ;;66116021514
 ;;9002226.02101,"1033,66116021514 ",.02)
 ;;66116021514
 ;;9002226.02101,"1033,66116025528 ",.01)
 ;;66116025528
 ;;9002226.02101,"1033,66116025528 ",.02)
 ;;66116025528
 ;;9002226.02101,"1033,66116025540 ",.01)
 ;;66116025540
 ;;9002226.02101,"1033,66116025540 ",.02)
 ;;66116025540
 ;;9002226.02101,"1033,66116027230 ",.01)
 ;;66116027230
 ;;9002226.02101,"1033,66116027230 ",.02)
 ;;66116027230
 ;;9002226.02101,"1033,66116028921 ",.01)
 ;;66116028921
 ;;9002226.02101,"1033,66116028921 ",.02)
 ;;66116028921
 ;;9002226.02101,"1033,66116028930 ",.01)
 ;;66116028930
 ;;9002226.02101,"1033,66116028930 ",.02)
 ;;66116028930
 ;;9002226.02101,"1033,66116029128 ",.01)
 ;;66116029128
 ;;9002226.02101,"1033,66116029128 ",.02)
 ;;66116029128
 ;;9002226.02101,"1033,66116029730 ",.01)
 ;;66116029730
 ;;9002226.02101,"1033,66116029730 ",.02)
 ;;66116029730
 ;;9002226.02101,"1033,66116029820 ",.01)
 ;;66116029820
 ;;9002226.02101,"1033,66116029820 ",.02)
 ;;66116029820
 ;;9002226.02101,"1033,66116031420 ",.01)
 ;;66116031420
 ;;9002226.02101,"1033,66116031420 ",.02)
 ;;66116031420
 ;;9002226.02101,"1033,66116032320 ",.01)
 ;;66116032320
 ;;9002226.02101,"1033,66116032320 ",.02)
 ;;66116032320
 ;;9002226.02101,"1033,66116051130 ",.01)
 ;;66116051130
 ;;9002226.02101,"1033,66116051130 ",.02)
 ;;66116051130
 ;;9002226.02101,"1033,66116051730 ",.01)
 ;;66116051730
 ;;9002226.02101,"1033,66116051730 ",.02)
 ;;66116051730
 ;;9002226.02101,"1033,66116061030 ",.01)
 ;;66116061030
 ;;9002226.02101,"1033,66116061030 ",.02)
 ;;66116061030
 ;;9002226.02101,"1033,66116066030 ",.01)
 ;;66116066030
 ;;9002226.02101,"1033,66116066030 ",.02)
 ;;66116066030
 ;;9002226.02101,"1033,66116068520 ",.01)
 ;;66116068520
 ;;9002226.02101,"1033,66116068520 ",.02)
 ;;66116068520
 ;;9002226.02101,"1033,66116068528 ",.01)
 ;;66116068528
 ;;9002226.02101,"1033,66116068528 ",.02)
 ;;66116068528
 ;;9002226.02101,"1033,66116068540 ",.01)
 ;;66116068540
 ;;9002226.02101,"1033,66116068540 ",.02)
 ;;66116068540
 ;;9002226.02101,"1033,66116068720 ",.01)
 ;;66116068720
 ;;9002226.02101,"1033,66116068720 ",.02)
 ;;66116068720
 ;;9002226.02101,"1033,66116068728 ",.01)
 ;;66116068728
 ;;9002226.02101,"1033,66116068728 ",.02)
 ;;66116068728
 ;;9002226.02101,"1033,66116068730 ",.01)
 ;;66116068730
 ;;9002226.02101,"1033,66116068730 ",.02)
 ;;66116068730
 ;;9002226.02101,"1033,66116068740 ",.01)
 ;;66116068740
 ;;9002226.02101,"1033,66116068740 ",.02)
 ;;66116068740
 ;;9002226.02101,"1033,66116081130 ",.01)
 ;;66116081130
 ;;9002226.02101,"1033,66116081130 ",.02)
 ;;66116081130
 ;;9002226.02101,"1033,66116082030 ",.01)
 ;;66116082030
 ;;9002226.02101,"1033,66116082030 ",.02)
 ;;66116082030
 ;;9002226.02101,"1033,66116082130 ",.01)
 ;;66116082130
 ;;9002226.02101,"1033,66116082130 ",.02)
 ;;66116082130