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

BGPM5AVG.m

Go to the documentation of this file.
BGPM5AVG ;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,55045118800 ",.02)
 ;;55045118800
 ;;9002226.02101,"1033,55045118801 ",.01)
 ;;55045118801
 ;;9002226.02101,"1033,55045118801 ",.02)
 ;;55045118801
 ;;9002226.02101,"1033,55045118901 ",.01)
 ;;55045118901
 ;;9002226.02101,"1033,55045118901 ",.02)
 ;;55045118901
 ;;9002226.02101,"1033,55045119501 ",.01)
 ;;55045119501
 ;;9002226.02101,"1033,55045119501 ",.02)
 ;;55045119501
 ;;9002226.02101,"1033,55045119502 ",.01)
 ;;55045119502
 ;;9002226.02101,"1033,55045119502 ",.02)
 ;;55045119502
 ;;9002226.02101,"1033,55045119903 ",.01)
 ;;55045119903
 ;;9002226.02101,"1033,55045119903 ",.02)
 ;;55045119903
 ;;9002226.02101,"1033,55045120000 ",.01)
 ;;55045120000
 ;;9002226.02101,"1033,55045120000 ",.02)
 ;;55045120000
 ;;9002226.02101,"1033,55045120003 ",.01)
 ;;55045120003
 ;;9002226.02101,"1033,55045120003 ",.02)
 ;;55045120003
 ;;9002226.02101,"1033,55045120101 ",.01)
 ;;55045120101
 ;;9002226.02101,"1033,55045120101 ",.02)
 ;;55045120101
 ;;9002226.02101,"1033,55045120102 ",.01)
 ;;55045120102
 ;;9002226.02101,"1033,55045120102 ",.02)
 ;;55045120102
 ;;9002226.02101,"1033,55045120103 ",.01)
 ;;55045120103
 ;;9002226.02101,"1033,55045120103 ",.02)
 ;;55045120103
 ;;9002226.02101,"1033,55045120107 ",.01)
 ;;55045120107
 ;;9002226.02101,"1033,55045120107 ",.02)
 ;;55045120107
 ;;9002226.02101,"1033,55045120108 ",.01)
 ;;55045120108
 ;;9002226.02101,"1033,55045120108 ",.02)
 ;;55045120108
 ;;9002226.02101,"1033,55045120200 ",.01)
 ;;55045120200
 ;;9002226.02101,"1033,55045120200 ",.02)
 ;;55045120200
 ;;9002226.02101,"1033,55045120201 ",.01)
 ;;55045120201
 ;;9002226.02101,"1033,55045120201 ",.02)
 ;;55045120201
 ;;9002226.02101,"1033,55045120202 ",.01)
 ;;55045120202
 ;;9002226.02101,"1033,55045120202 ",.02)
 ;;55045120202
 ;;9002226.02101,"1033,55045120203 ",.01)
 ;;55045120203
 ;;9002226.02101,"1033,55045120203 ",.02)
 ;;55045120203
 ;;9002226.02101,"1033,55045120204 ",.01)
 ;;55045120204
 ;;9002226.02101,"1033,55045120204 ",.02)
 ;;55045120204
 ;;9002226.02101,"1033,55045120205 ",.01)
 ;;55045120205
 ;;9002226.02101,"1033,55045120205 ",.02)
 ;;55045120205
 ;;9002226.02101,"1033,55045120206 ",.01)
 ;;55045120206
 ;;9002226.02101,"1033,55045120206 ",.02)
 ;;55045120206
 ;;9002226.02101,"1033,55045120207 ",.01)
 ;;55045120207
 ;;9002226.02101,"1033,55045120207 ",.02)
 ;;55045120207
 ;;9002226.02101,"1033,55045120208 ",.01)
 ;;55045120208
 ;;9002226.02101,"1033,55045120208 ",.02)
 ;;55045120208
 ;;9002226.02101,"1033,55045120209 ",.01)
 ;;55045120209
 ;;9002226.02101,"1033,55045120209 ",.02)
 ;;55045120209
 ;;9002226.02101,"1033,55045120403 ",.01)
 ;;55045120403
 ;;9002226.02101,"1033,55045120403 ",.02)
 ;;55045120403
 ;;9002226.02101,"1033,55045120405 ",.01)
 ;;55045120405
 ;;9002226.02101,"1033,55045120405 ",.02)
 ;;55045120405
 ;;9002226.02101,"1033,55045120407 ",.01)
 ;;55045120407
 ;;9002226.02101,"1033,55045120407 ",.02)
 ;;55045120407
 ;;9002226.02101,"1033,55045120409 ",.01)
 ;;55045120409
 ;;9002226.02101,"1033,55045120409 ",.02)
 ;;55045120409
 ;;9002226.02101,"1033,55045120601 ",.01)
 ;;55045120601
 ;;9002226.02101,"1033,55045120601 ",.02)
 ;;55045120601
 ;;9002226.02101,"1033,55045120603 ",.01)
 ;;55045120603
 ;;9002226.02101,"1033,55045120603 ",.02)
 ;;55045120603
 ;;9002226.02101,"1033,55045120604 ",.01)
 ;;55045120604
 ;;9002226.02101,"1033,55045120604 ",.02)
 ;;55045120604
 ;;9002226.02101,"1033,55045120607 ",.01)
 ;;55045120607
 ;;9002226.02101,"1033,55045120607 ",.02)
 ;;55045120607
 ;;9002226.02101,"1033,55045120608 ",.01)
 ;;55045120608
 ;;9002226.02101,"1033,55045120608 ",.02)
 ;;55045120608
 ;;9002226.02101,"1033,55045120609 ",.01)
 ;;55045120609
 ;;9002226.02101,"1033,55045120609 ",.02)
 ;;55045120609
 ;;9002226.02101,"1033,55045120700 ",.01)
 ;;55045120700
 ;;9002226.02101,"1033,55045120700 ",.02)
 ;;55045120700
 ;;9002226.02101,"1033,55045120701 ",.01)
 ;;55045120701
 ;;9002226.02101,"1033,55045120701 ",.02)
 ;;55045120701
 ;;9002226.02101,"1033,55045120702 ",.01)
 ;;55045120702
 ;;9002226.02101,"1033,55045120702 ",.02)
 ;;55045120702
 ;;9002226.02101,"1033,55045120703 ",.01)
 ;;55045120703
 ;;9002226.02101,"1033,55045120703 ",.02)
 ;;55045120703
 ;;9002226.02101,"1033,55045120704 ",.01)
 ;;55045120704
 ;;9002226.02101,"1033,55045120704 ",.02)
 ;;55045120704
 ;;9002226.02101,"1033,55045120705 ",.01)
 ;;55045120705
 ;;9002226.02101,"1033,55045120705 ",.02)
 ;;55045120705
 ;;9002226.02101,"1033,55045120706 ",.01)
 ;;55045120706
 ;;9002226.02101,"1033,55045120706 ",.02)
 ;;55045120706
 ;;9002226.02101,"1033,55045120707 ",.01)
 ;;55045120707
 ;;9002226.02101,"1033,55045120707 ",.02)
 ;;55045120707
 ;;9002226.02101,"1033,55045120708 ",.01)
 ;;55045120708
 ;;9002226.02101,"1033,55045120708 ",.02)
 ;;55045120708
 ;;9002226.02101,"1033,55045120709 ",.01)
 ;;55045120709
 ;;9002226.02101,"1033,55045120709 ",.02)
 ;;55045120709
 ;;9002226.02101,"1033,55045121000 ",.01)
 ;;55045121000
 ;;9002226.02101,"1033,55045121000 ",.02)
 ;;55045121000
 ;;9002226.02101,"1033,55045121001 ",.01)
 ;;55045121001
 ;;9002226.02101,"1033,55045121001 ",.02)
 ;;55045121001
 ;;9002226.02101,"1033,55045121002 ",.01)
 ;;55045121002
 ;;9002226.02101,"1033,55045121002 ",.02)
 ;;55045121002
 ;;9002226.02101,"1033,55045121003 ",.01)
 ;;55045121003
 ;;9002226.02101,"1033,55045121003 ",.02)
 ;;55045121003
 ;;9002226.02101,"1033,55045121005 ",.01)
 ;;55045121005
 ;;9002226.02101,"1033,55045121005 ",.02)
 ;;55045121005
 ;;9002226.02101,"1033,55045121006 ",.01)
 ;;55045121006
 ;;9002226.02101,"1033,55045121006 ",.02)
 ;;55045121006
 ;;9002226.02101,"1033,55045121007 ",.01)
 ;;55045121007
 ;;9002226.02101,"1033,55045121007 ",.02)
 ;;55045121007
 ;;9002226.02101,"1033,55045121008 ",.01)
 ;;55045121008
 ;;9002226.02101,"1033,55045121008 ",.02)
 ;;55045121008
 ;;9002226.02101,"1033,55045121009 ",.01)
 ;;55045121009
 ;;9002226.02101,"1033,55045121009 ",.02)
 ;;55045121009
 ;;9002226.02101,"1033,55045122600 ",.01)
 ;;55045122600
 ;;9002226.02101,"1033,55045122600 ",.02)
 ;;55045122600
 ;;9002226.02101,"1033,55045122601 ",.01)
 ;;55045122601
 ;;9002226.02101,"1033,55045122601 ",.02)
 ;;55045122601
 ;;9002226.02101,"1033,55045122602 ",.01)
 ;;55045122602
 ;;9002226.02101,"1033,55045122602 ",.02)
 ;;55045122602
 ;;9002226.02101,"1033,55045122603 ",.01)
 ;;55045122603
 ;;9002226.02101,"1033,55045122603 ",.02)
 ;;55045122603
 ;;9002226.02101,"1033,55045122604 ",.01)
 ;;55045122604
 ;;9002226.02101,"1033,55045122604 ",.02)
 ;;55045122604
 ;;9002226.02101,"1033,55045122605 ",.01)
 ;;55045122605
 ;;9002226.02101,"1033,55045122605 ",.02)
 ;;55045122605
 ;;9002226.02101,"1033,55045122606 ",.01)
 ;;55045122606
 ;;9002226.02101,"1033,55045122606 ",.02)
 ;;55045122606
 ;;9002226.02101,"1033,55045122607 ",.01)
 ;;55045122607
 ;;9002226.02101,"1033,55045122607 ",.02)
 ;;55045122607
 ;;9002226.02101,"1033,55045122608 ",.01)
 ;;55045122608
 ;;9002226.02101,"1033,55045122608 ",.02)
 ;;55045122608
 ;;9002226.02101,"1033,55045122609 ",.01)
 ;;55045122609
 ;;9002226.02101,"1033,55045122609 ",.02)
 ;;55045122609
 ;;9002226.02101,"1033,55045122700 ",.01)
 ;;55045122700
 ;;9002226.02101,"1033,55045122700 ",.02)
 ;;55045122700
 ;;9002226.02101,"1033,55045122701 ",.01)
 ;;55045122701
 ;;9002226.02101,"1033,55045122701 ",.02)
 ;;55045122701
 ;;9002226.02101,"1033,55045122702 ",.01)
 ;;55045122702
 ;;9002226.02101,"1033,55045122702 ",.02)
 ;;55045122702
 ;;9002226.02101,"1033,55045122703 ",.01)
 ;;55045122703
 ;;9002226.02101,"1033,55045122703 ",.02)
 ;;55045122703
 ;;9002226.02101,"1033,55045122704 ",.01)
 ;;55045122704
 ;;9002226.02101,"1033,55045122704 ",.02)
 ;;55045122704
 ;;9002226.02101,"1033,55045122706 ",.01)
 ;;55045122706
 ;;9002226.02101,"1033,55045122706 ",.02)
 ;;55045122706
 ;;9002226.02101,"1033,55045122707 ",.01)
 ;;55045122707
 ;;9002226.02101,"1033,55045122707 ",.02)
 ;;55045122707
 ;;9002226.02101,"1033,55045122708 ",.01)
 ;;55045122708
 ;;9002226.02101,"1033,55045122708 ",.02)
 ;;55045122708
 ;;9002226.02101,"1033,55045122709 ",.01)
 ;;55045122709
 ;;9002226.02101,"1033,55045122709 ",.02)
 ;;55045122709
 ;;9002226.02101,"1033,55045124701 ",.01)
 ;;55045124701
 ;;9002226.02101,"1033,55045124701 ",.02)
 ;;55045124701
 ;;9002226.02101,"1033,55045126209 ",.01)
 ;;55045126209
 ;;9002226.02101,"1033,55045126209 ",.02)
 ;;55045126209
 ;;9002226.02101,"1033,55045131301 ",.01)
 ;;55045131301
 ;;9002226.02101,"1033,55045131301 ",.02)
 ;;55045131301
 ;;9002226.02101,"1033,55045131302 ",.01)
 ;;55045131302
 ;;9002226.02101,"1033,55045131302 ",.02)
 ;;55045131302
 ;;9002226.02101,"1033,55045132200 ",.01)
 ;;55045132200
 ;;9002226.02101,"1033,55045132200 ",.02)
 ;;55045132200
 ;;9002226.02101,"1033,55045132201 ",.01)
 ;;55045132201
 ;;9002226.02101,"1033,55045132201 ",.02)
 ;;55045132201
 ;;9002226.02101,"1033,55045132202 ",.01)
 ;;55045132202
 ;;9002226.02101,"1033,55045132202 ",.02)
 ;;55045132202
 ;;9002226.02101,"1033,55045132203 ",.01)
 ;;55045132203
 ;;9002226.02101,"1033,55045132203 ",.02)
 ;;55045132203
 ;;9002226.02101,"1033,55045132204 ",.01)
 ;;55045132204
 ;;9002226.02101,"1033,55045132204 ",.02)
 ;;55045132204
 ;;9002226.02101,"1033,55045132205 ",.01)
 ;;55045132205
 ;;9002226.02101,"1033,55045132205 ",.02)
 ;;55045132205
 ;;9002226.02101,"1033,55045132206 ",.01)
 ;;55045132206
 ;;9002226.02101,"1033,55045132206 ",.02)
 ;;55045132206
 ;;9002226.02101,"1033,55045132207 ",.01)
 ;;55045132207
 ;;9002226.02101,"1033,55045132207 ",.02)
 ;;55045132207
 ;;9002226.02101,"1033,55045132208 ",.01)
 ;;55045132208
 ;;9002226.02101,"1033,55045132208 ",.02)
 ;;55045132208
 ;;9002226.02101,"1033,55045132209 ",.01)
 ;;55045132209
 ;;9002226.02101,"1033,55045132209 ",.02)
 ;;55045132209
 ;;9002226.02101,"1033,55045141501 ",.01)
 ;;55045141501
 ;;9002226.02101,"1033,55045141501 ",.02)
 ;;55045141501
 ;;9002226.02101,"1033,55045145003 ",.01)
 ;;55045145003
 ;;9002226.02101,"1033,55045145003 ",.02)
 ;;55045145003
 ;;9002226.02101,"1033,55045145006 ",.01)
 ;;55045145006
 ;;9002226.02101,"1033,55045145006 ",.02)
 ;;55045145006
 ;;9002226.02101,"1033,55045150009 ",.01)
 ;;55045150009
 ;;9002226.02101,"1033,55045150009 ",.02)
 ;;55045150009
 ;;9002226.02101,"1033,55045151406 ",.01)
 ;;55045151406
 ;;9002226.02101,"1033,55045151406 ",.02)
 ;;55045151406
 ;;9002226.02101,"1033,55045151407 ",.01)
 ;;55045151407
 ;;9002226.02101,"1033,55045151407 ",.02)
 ;;55045151407
 ;;9002226.02101,"1033,55045151408 ",.01)
 ;;55045151408
 ;;9002226.02101,"1033,55045151408 ",.02)
 ;;55045151408
 ;;9002226.02101,"1033,55045180407 ",.01)
 ;;55045180407
 ;;9002226.02101,"1033,55045180407 ",.02)
 ;;55045180407
 ;;9002226.02101,"1033,55045191800 ",.01)
 ;;55045191800
 ;;9002226.02101,"1033,55045191800 ",.02)
 ;;55045191800
 ;;9002226.02101,"1033,55045191801 ",.01)
 ;;55045191801
 ;;9002226.02101,"1033,55045191801 ",.02)
 ;;55045191801
 ;;9002226.02101,"1033,55045191802 ",.01)
 ;;55045191802
 ;;9002226.02101,"1033,55045191802 ",.02)
 ;;55045191802
 ;;9002226.02101,"1033,55045191803 ",.01)
 ;;55045191803
 ;;9002226.02101,"1033,55045191803 ",.02)
 ;;55045191803
 ;;9002226.02101,"1033,55045191806 ",.01)
 ;;55045191806
 ;;9002226.02101,"1033,55045191806 ",.02)
 ;;55045191806
 ;;9002226.02101,"1033,55045191807 ",.01)
 ;;55045191807
 ;;9002226.02101,"1033,55045191807 ",.02)
 ;;55045191807
 ;;9002226.02101,"1033,55045191808 ",.01)
 ;;55045191808
 ;;9002226.02101,"1033,55045191808 ",.02)
 ;;55045191808
 ;;9002226.02101,"1033,55045191809 ",.01)
 ;;55045191809
 ;;9002226.02101,"1033,55045191809 ",.02)
 ;;55045191809