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.
  1. BGPM5AWS ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"1033,65862014050 ",.02)
  1. ;;65862014050
  1. ;;9002226.02101,"1033,65862014075 ",.01)
  1. ;;65862014075
  1. ;;9002226.02101,"1033,65862014075 ",.02)
  1. ;;65862014075
  1. ;;9002226.02101,"1033,65862014101 ",.01)
  1. ;;65862014101
  1. ;;9002226.02101,"1033,65862014101 ",.02)
  1. ;;65862014101
  1. ;;9002226.02101,"1033,65862014150 ",.01)
  1. ;;65862014150
  1. ;;9002226.02101,"1033,65862014150 ",.02)
  1. ;;65862014150
  1. ;;9002226.02101,"1033,65862014175 ",.01)
  1. ;;65862014175
  1. ;;9002226.02101,"1033,65862014175 ",.02)
  1. ;;65862014175
  1. ;;9002226.02101,"1033,65862017501 ",.01)
  1. ;;65862017501
  1. ;;9002226.02101,"1033,65862017501 ",.02)
  1. ;;65862017501
  1. ;;9002226.02101,"1033,65862017535 ",.01)
  1. ;;65862017535
  1. ;;9002226.02101,"1033,65862017535 ",.02)
  1. ;;65862017535
  1. ;;9002226.02101,"1033,65862017599 ",.01)
  1. ;;65862017599
  1. ;;9002226.02101,"1033,65862017599 ",.02)
  1. ;;65862017599
  1. ;;9002226.02101,"1033,65862017601 ",.01)
  1. ;;65862017601
  1. ;;9002226.02101,"1033,65862017601 ",.02)
  1. ;;65862017601
  1. ;;9002226.02101,"1033,65862017605 ",.01)
  1. ;;65862017605
  1. ;;9002226.02101,"1033,65862017605 ",.02)
  1. ;;65862017605
  1. ;;9002226.02101,"1033,65862017615 ",.01)
  1. ;;65862017615
  1. ;;9002226.02101,"1033,65862017615 ",.02)
  1. ;;65862017615
  1. ;;9002226.02101,"1033,65862017699 ",.01)
  1. ;;65862017699
  1. ;;9002226.02101,"1033,65862017699 ",.02)
  1. ;;65862017699
  1. ;;9002226.02101,"1033,65862017705 ",.01)
  1. ;;65862017705
  1. ;;9002226.02101,"1033,65862017705 ",.02)
  1. ;;65862017705
  1. ;;9002226.02101,"1033,65862017715 ",.01)
  1. ;;65862017715
  1. ;;9002226.02101,"1033,65862017715 ",.02)
  1. ;;65862017715
  1. ;;9002226.02101,"1033,65862017730 ",.01)
  1. ;;65862017730
  1. ;;9002226.02101,"1033,65862017730 ",.02)
  1. ;;65862017730
  1. ;;9002226.02101,"1033,65862017760 ",.01)
  1. ;;65862017760
  1. ;;9002226.02101,"1033,65862017760 ",.02)
  1. ;;65862017760
  1. ;;9002226.02101,"1033,65862018501 ",.01)
  1. ;;65862018501
  1. ;;9002226.02101,"1033,65862018501 ",.02)
  1. ;;65862018501
  1. ;;9002226.02101,"1033,65862018505 ",.01)
  1. ;;65862018505
  1. ;;9002226.02101,"1033,65862018505 ",.02)
  1. ;;65862018505
  1. ;;9002226.02101,"1033,65862018601 ",.01)
  1. ;;65862018601
  1. ;;9002226.02101,"1033,65862018601 ",.02)
  1. ;;65862018601
  1. ;;9002226.02101,"1033,65862018605 ",.01)
  1. ;;65862018605
  1. ;;9002226.02101,"1033,65862018605 ",.02)
  1. ;;65862018605
  1. ;;9002226.02101,"1033,65862018616 ",.01)
  1. ;;65862018616
  1. ;;9002226.02101,"1033,65862018616 ",.02)
  1. ;;65862018616
  1. ;;9002226.02101,"1033,65862020901 ",.01)
  1. ;;65862020901
  1. ;;9002226.02101,"1033,65862020901 ",.02)
  1. ;;65862020901
  1. ;;9002226.02101,"1033,65862020905 ",.01)
  1. ;;65862020905
  1. ;;9002226.02101,"1033,65862020905 ",.02)
  1. ;;65862020905
  1. ;;9002226.02101,"1033,65862020999 ",.01)
  1. ;;65862020999
  1. ;;9002226.02101,"1033,65862020999 ",.02)
  1. ;;65862020999
  1. ;;9002226.02101,"1033,65862021001 ",.01)
  1. ;;65862021001
  1. ;;9002226.02101,"1033,65862021001 ",.02)
  1. ;;65862021001
  1. ;;9002226.02101,"1033,65862021005 ",.01)
  1. ;;65862021005
  1. ;;9002226.02101,"1033,65862021005 ",.02)
  1. ;;65862021005
  1. ;;9002226.02101,"1033,65862021099 ",.01)
  1. ;;65862021099
  1. ;;9002226.02101,"1033,65862021099 ",.02)
  1. ;;65862021099
  1. ;;9002226.02101,"1033,65862021105 ",.01)
  1. ;;65862021105
  1. ;;9002226.02101,"1033,65862021105 ",.02)
  1. ;;65862021105
  1. ;;9002226.02101,"1033,65862021150 ",.01)
  1. ;;65862021150
  1. ;;9002226.02101,"1033,65862021150 ",.02)
  1. ;;65862021150
  1. ;;9002226.02101,"1033,65862021199 ",.01)
  1. ;;65862021199
  1. ;;9002226.02101,"1033,65862021199 ",.02)
  1. ;;65862021199
  1. ;;9002226.02101,"1033,65862021801 ",.01)
  1. ;;65862021801
  1. ;;9002226.02101,"1033,65862021801 ",.02)
  1. ;;65862021801
  1. ;;9002226.02101,"1033,65862021860 ",.01)
  1. ;;65862021860
  1. ;;9002226.02101,"1033,65862021860 ",.02)
  1. ;;65862021860
  1. ;;9002226.02101,"1033,65862021901 ",.01)
  1. ;;65862021901
  1. ;;9002226.02101,"1033,65862021901 ",.02)
  1. ;;65862021901
  1. ;;9002226.02101,"1033,65862021960 ",.01)
  1. ;;65862021960
  1. ;;9002226.02101,"1033,65862021960 ",.02)
  1. ;;65862021960
  1. ;;9002226.02101,"1033,65862023112 ",.01)
  1. ;;65862023112
  1. ;;9002226.02101,"1033,65862023112 ",.02)
  1. ;;65862023112
  1. ;;9002226.02101,"1033,65862023125 ",.01)
  1. ;;65862023125
  1. ;;9002226.02101,"1033,65862023125 ",.02)
  1. ;;65862023125
  1. ;;9002226.02101,"1033,65862023225 ",.01)
  1. ;;65862023225
  1. ;;9002226.02101,"1033,65862023225 ",.02)
  1. ;;65862023225
  1. ;;9002226.02101,"1033,65862023252 ",.01)
  1. ;;65862023252
  1. ;;9002226.02101,"1033,65862023252 ",.02)
  1. ;;65862023252
  1. ;;9002226.02101,"1033,65862023305 ",.01)
  1. ;;65862023305
  1. ;;9002226.02101,"1033,65862023305 ",.02)
  1. ;;65862023305
  1. ;;9002226.02101,"1033,65862023325 ",.01)
  1. ;;65862023325
  1. ;;9002226.02101,"1033,65862023325 ",.02)
  1. ;;65862023325
  1. ;;9002226.02101,"1033,65862023401 ",.01)
  1. ;;65862023401
  1. ;;9002226.02101,"1033,65862023401 ",.02)
  1. ;;65862023401
  1. ;;9002226.02101,"1033,65862023425 ",.01)
  1. ;;65862023425
  1. ;;9002226.02101,"1033,65862023425 ",.02)
  1. ;;65862023425
  1. ;;9002226.02101,"1033,65862023502 ",.01)
  1. ;;65862023502
  1. ;;9002226.02101,"1033,65862023502 ",.02)
  1. ;;65862023502
  1. ;;9002226.02101,"1033,65862023525 ",.01)
  1. ;;65862023525
  1. ;;9002226.02101,"1033,65862023525 ",.02)
  1. ;;65862023525
  1. ;;9002226.02101,"1033,65862023610 ",.01)
  1. ;;65862023610
  1. ;;9002226.02101,"1033,65862023610 ",.02)
  1. ;;65862023610
  1. ;;9002226.02101,"1033,65862023612 ",.01)
  1. ;;65862023612
  1. ;;9002226.02101,"1033,65862023612 ",.02)
  1. ;;65862023612
  1. ;;9002226.02101,"1033,65862035110 ",.01)
  1. ;;65862035110
  1. ;;9002226.02101,"1033,65862035110 ",.02)
  1. ;;65862035110
  1. ;;9002226.02101,"1033,65862035115 ",.01)
  1. ;;65862035115
  1. ;;9002226.02101,"1033,65862035115 ",.02)
  1. ;;65862035115
  1. ;;9002226.02101,"1033,65862035210 ",.01)
  1. ;;65862035210
  1. ;;9002226.02101,"1033,65862035210 ",.02)
  1. ;;65862035210
  1. ;;9002226.02101,"1033,65862035215 ",.01)
  1. ;;65862035215
  1. ;;9002226.02101,"1033,65862035215 ",.02)
  1. ;;65862035215
  1. ;;9002226.02101,"1033,65862035301 ",.01)
  1. ;;65862035301
  1. ;;9002226.02101,"1033,65862035301 ",.02)
  1. ;;65862035301
  1. ;;9002226.02101,"1033,65862035501 ",.01)
  1. ;;65862035501
  1. ;;9002226.02101,"1033,65862035501 ",.02)
  1. ;;65862035501
  1. ;;9002226.02101,"1033,65862035510 ",.01)
  1. ;;65862035510
  1. ;;9002226.02101,"1033,65862035510 ",.02)
  1. ;;65862035510
  1. ;;9002226.02101,"1033,65862035601 ",.01)
  1. ;;65862035601
  1. ;;9002226.02101,"1033,65862035601 ",.02)
  1. ;;65862035601
  1. ;;9002226.02101,"1033,65862035610 ",.01)
  1. ;;65862035610
  1. ;;9002226.02101,"1033,65862035610 ",.02)
  1. ;;65862035610
  1. ;;9002226.02101,"1033,65862041901 ",.01)
  1. ;;65862041901
  1. ;;9002226.02101,"1033,65862041901 ",.02)
  1. ;;65862041901
  1. ;;9002226.02101,"1033,65862041905 ",.01)
  1. ;;65862041905
  1. ;;9002226.02101,"1033,65862041905 ",.02)
  1. ;;65862041905
  1. ;;9002226.02101,"1033,65862041939 ",.01)
  1. ;;65862041939
  1. ;;9002226.02101,"1033,65862041939 ",.02)
  1. ;;65862041939
  1. ;;9002226.02101,"1033,65862042001 ",.01)
  1. ;;65862042001
  1. ;;9002226.02101,"1033,65862042001 ",.02)
  1. ;;65862042001
  1. ;;9002226.02101,"1033,65862042005 ",.01)
  1. ;;65862042005
  1. ;;9002226.02101,"1033,65862042005 ",.02)
  1. ;;65862042005
  1. ;;9002226.02101,"1033,65862042015 ",.01)
  1. ;;65862042015
  1. ;;9002226.02101,"1033,65862042015 ",.02)
  1. ;;65862042015
  1. ;;9002226.02101,"1033,65862049601 ",.01)
  1. ;;65862049601
  1. ;;9002226.02101,"1033,65862049601 ",.02)
  1. ;;65862049601
  1. ;;9002226.02101,"1033,65862049647 ",.01)
  1. ;;65862049647
  1. ;;9002226.02101,"1033,65862049647 ",.02)
  1. ;;65862049647
  1. ;;9002226.02101,"1033,65862049650 ",.01)
  1. ;;65862049650
  1. ;;9002226.02101,"1033,65862049650 ",.02)
  1. ;;65862049650
  1. ;;9002226.02101,"1033,65862053805 ",.01)
  1. ;;65862053805
  1. ;;9002226.02101,"1033,65862053805 ",.02)
  1. ;;65862053805
  1. ;;9002226.02101,"1033,65862053810 ",.01)
  1. ;;65862053810
  1. ;;9002226.02101,"1033,65862053810 ",.02)
  1. ;;65862053810
  1. ;;9002226.02101,"1033,65862053820 ",.01)
  1. ;;65862053820
  1. ;;9002226.02101,"1033,65862053820 ",.02)
  1. ;;65862053820
  1. ;;9002226.02101,"1033,65862053899 ",.01)
  1. ;;65862053899
  1. ;;9002226.02101,"1033,65862053899 ",.02)
  1. ;;65862053899
  1. ;;9002226.02101,"1033,66105063006 ",.01)
  1. ;;66105063006
  1. ;;9002226.02101,"1033,66105063006 ",.02)
  1. ;;66105063006
  1. ;;9002226.02101,"1033,66105067001 ",.01)
  1. ;;66105067001
  1. ;;9002226.02101,"1033,66105067001 ",.02)
  1. ;;66105067001
  1. ;;9002226.02101,"1033,66105067003 ",.01)
  1. ;;66105067003
  1. ;;9002226.02101,"1033,66105067003 ",.02)
  1. ;;66105067003
  1. ;;9002226.02101,"1033,66105067005 ",.01)
  1. ;;66105067005
  1. ;;9002226.02101,"1033,66105067005 ",.02)
  1. ;;66105067005
  1. ;;9002226.02101,"1033,66105067006 ",.01)
  1. ;;66105067006
  1. ;;9002226.02101,"1033,66105067006 ",.02)
  1. ;;66105067006
  1. ;;9002226.02101,"1033,66105067018 ",.01)
  1. ;;66105067018
  1. ;;9002226.02101,"1033,66105067018 ",.02)
  1. ;;66105067018
  1. ;;9002226.02101,"1033,66105067606 ",.01)
  1. ;;66105067606
  1. ;;9002226.02101,"1033,66105067606 ",.02)
  1. ;;66105067606
  1. ;;9002226.02101,"1033,66116012128 ",.01)
  1. ;;66116012128
  1. ;;9002226.02101,"1033,66116012128 ",.02)
  1. ;;66116012128
  1. ;;9002226.02101,"1033,66116021514 ",.01)
  1. ;;66116021514
  1. ;;9002226.02101,"1033,66116021514 ",.02)
  1. ;;66116021514
  1. ;;9002226.02101,"1033,66116025528 ",.01)
  1. ;;66116025528
  1. ;;9002226.02101,"1033,66116025528 ",.02)
  1. ;;66116025528
  1. ;;9002226.02101,"1033,66116025540 ",.01)
  1. ;;66116025540
  1. ;;9002226.02101,"1033,66116025540 ",.02)
  1. ;;66116025540
  1. ;;9002226.02101,"1033,66116027230 ",.01)
  1. ;;66116027230
  1. ;;9002226.02101,"1033,66116027230 ",.02)
  1. ;;66116027230
  1. ;;9002226.02101,"1033,66116028921 ",.01)
  1. ;;66116028921
  1. ;;9002226.02101,"1033,66116028921 ",.02)
  1. ;;66116028921
  1. ;;9002226.02101,"1033,66116028930 ",.01)
  1. ;;66116028930
  1. ;;9002226.02101,"1033,66116028930 ",.02)
  1. ;;66116028930
  1. ;;9002226.02101,"1033,66116029128 ",.01)
  1. ;;66116029128
  1. ;;9002226.02101,"1033,66116029128 ",.02)
  1. ;;66116029128
  1. ;;9002226.02101,"1033,66116029730 ",.01)
  1. ;;66116029730
  1. ;;9002226.02101,"1033,66116029730 ",.02)
  1. ;;66116029730
  1. ;;9002226.02101,"1033,66116029820 ",.01)
  1. ;;66116029820
  1. ;;9002226.02101,"1033,66116029820 ",.02)
  1. ;;66116029820
  1. ;;9002226.02101,"1033,66116031420 ",.01)
  1. ;;66116031420
  1. ;;9002226.02101,"1033,66116031420 ",.02)
  1. ;;66116031420
  1. ;;9002226.02101,"1033,66116032320 ",.01)
  1. ;;66116032320
  1. ;;9002226.02101,"1033,66116032320 ",.02)
  1. ;;66116032320
  1. ;;9002226.02101,"1033,66116051130 ",.01)
  1. ;;66116051130
  1. ;;9002226.02101,"1033,66116051130 ",.02)
  1. ;;66116051130
  1. ;;9002226.02101,"1033,66116051730 ",.01)
  1. ;;66116051730
  1. ;;9002226.02101,"1033,66116051730 ",.02)
  1. ;;66116051730
  1. ;;9002226.02101,"1033,66116061030 ",.01)
  1. ;;66116061030
  1. ;;9002226.02101,"1033,66116061030 ",.02)
  1. ;;66116061030
  1. ;;9002226.02101,"1033,66116066030 ",.01)
  1. ;;66116066030
  1. ;;9002226.02101,"1033,66116066030 ",.02)
  1. ;;66116066030
  1. ;;9002226.02101,"1033,66116068520 ",.01)
  1. ;;66116068520
  1. ;;9002226.02101,"1033,66116068520 ",.02)
  1. ;;66116068520
  1. ;;9002226.02101,"1033,66116068528 ",.01)
  1. ;;66116068528
  1. ;;9002226.02101,"1033,66116068528 ",.02)
  1. ;;66116068528
  1. ;;9002226.02101,"1033,66116068540 ",.01)
  1. ;;66116068540
  1. ;;9002226.02101,"1033,66116068540 ",.02)
  1. ;;66116068540
  1. ;;9002226.02101,"1033,66116068720 ",.01)
  1. ;;66116068720
  1. ;;9002226.02101,"1033,66116068720 ",.02)
  1. ;;66116068720
  1. ;;9002226.02101,"1033,66116068728 ",.01)
  1. ;;66116068728
  1. ;;9002226.02101,"1033,66116068728 ",.02)
  1. ;;66116068728
  1. ;;9002226.02101,"1033,66116068730 ",.01)
  1. ;;66116068730
  1. ;;9002226.02101,"1033,66116068730 ",.02)
  1. ;;66116068730
  1. ;;9002226.02101,"1033,66116068740 ",.01)
  1. ;;66116068740
  1. ;;9002226.02101,"1033,66116068740 ",.02)
  1. ;;66116068740
  1. ;;9002226.02101,"1033,66116081130 ",.01)
  1. ;;66116081130
  1. ;;9002226.02101,"1033,66116081130 ",.02)
  1. ;;66116081130
  1. ;;9002226.02101,"1033,66116082030 ",.01)
  1. ;;66116082030
  1. ;;9002226.02101,"1033,66116082030 ",.02)
  1. ;;66116082030
  1. ;;9002226.02101,"1033,66116082130 ",.01)
  1. ;;66116082130
  1. ;;9002226.02101,"1033,66116082130 ",.02)
  1. ;;66116082130