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

BGPM5ARE.m

Go to the documentation of this file.
BGPM5ARE ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 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,"1005,54569371300 ",.02)
 ;;54569371300
 ;;9002226.02101,"1005,54569371400 ",.01)
 ;;54569371400
 ;;9002226.02101,"1005,54569371400 ",.02)
 ;;54569371400
 ;;9002226.02101,"1005,54569377100 ",.01)
 ;;54569377100
 ;;9002226.02101,"1005,54569377100 ",.02)
 ;;54569377100
 ;;9002226.02101,"1005,54569398400 ",.01)
 ;;54569398400
 ;;9002226.02101,"1005,54569398400 ",.02)
 ;;54569398400
 ;;9002226.02101,"1005,54569398500 ",.01)
 ;;54569398500
 ;;9002226.02101,"1005,54569398500 ",.02)
 ;;54569398500
 ;;9002226.02101,"1005,54569424600 ",.01)
 ;;54569424600
 ;;9002226.02101,"1005,54569424600 ",.02)
 ;;54569424600
 ;;9002226.02101,"1005,54569424601 ",.01)
 ;;54569424601
 ;;9002226.02101,"1005,54569424601 ",.02)
 ;;54569424601
 ;;9002226.02101,"1005,54569424603 ",.01)
 ;;54569424603
 ;;9002226.02101,"1005,54569424603 ",.02)
 ;;54569424603
 ;;9002226.02101,"1005,54569424604 ",.01)
 ;;54569424604
 ;;9002226.02101,"1005,54569424604 ",.02)
 ;;54569424604
 ;;9002226.02101,"1005,54569424605 ",.01)
 ;;54569424605
 ;;9002226.02101,"1005,54569424605 ",.02)
 ;;54569424605
 ;;9002226.02101,"1005,54569424607 ",.01)
 ;;54569424607
 ;;9002226.02101,"1005,54569424607 ",.02)
 ;;54569424607
 ;;9002226.02101,"1005,54569424700 ",.01)
 ;;54569424700
 ;;9002226.02101,"1005,54569424700 ",.02)
 ;;54569424700
 ;;9002226.02101,"1005,54569424702 ",.01)
 ;;54569424702
 ;;9002226.02101,"1005,54569424702 ",.02)
 ;;54569424702
 ;;9002226.02101,"1005,54569424703 ",.01)
 ;;54569424703
 ;;9002226.02101,"1005,54569424703 ",.02)
 ;;54569424703
 ;;9002226.02101,"1005,54569424704 ",.01)
 ;;54569424704
 ;;9002226.02101,"1005,54569424704 ",.02)
 ;;54569424704
 ;;9002226.02101,"1005,54569427600 ",.01)
 ;;54569427600
 ;;9002226.02101,"1005,54569427600 ",.02)
 ;;54569427600
 ;;9002226.02101,"1005,54569457200 ",.01)
 ;;54569457200
 ;;9002226.02101,"1005,54569457200 ",.02)
 ;;54569457200
 ;;9002226.02101,"1005,54569459300 ",.01)
 ;;54569459300
 ;;9002226.02101,"1005,54569459300 ",.02)
 ;;54569459300
 ;;9002226.02101,"1005,54569459301 ",.01)
 ;;54569459301
 ;;9002226.02101,"1005,54569459301 ",.02)
 ;;54569459301
 ;;9002226.02101,"1005,54569459303 ",.01)
 ;;54569459303
 ;;9002226.02101,"1005,54569459303 ",.02)
 ;;54569459303
 ;;9002226.02101,"1005,54569469800 ",.01)
 ;;54569469800
 ;;9002226.02101,"1005,54569469800 ",.02)
 ;;54569469800
 ;;9002226.02101,"1005,54569471400 ",.01)
 ;;54569471400
 ;;9002226.02101,"1005,54569471400 ",.02)
 ;;54569471400
 ;;9002226.02101,"1005,54569471900 ",.01)
 ;;54569471900
 ;;9002226.02101,"1005,54569471900 ",.02)
 ;;54569471900
 ;;9002226.02101,"1005,54569471901 ",.01)
 ;;54569471901
 ;;9002226.02101,"1005,54569471901 ",.02)
 ;;54569471901
 ;;9002226.02101,"1005,54569476600 ",.01)
 ;;54569476600
 ;;9002226.02101,"1005,54569476600 ",.02)
 ;;54569476600
 ;;9002226.02101,"1005,54569476601 ",.01)
 ;;54569476601
 ;;9002226.02101,"1005,54569476601 ",.02)
 ;;54569476601
 ;;9002226.02101,"1005,54569476700 ",.01)
 ;;54569476700
 ;;9002226.02101,"1005,54569476700 ",.02)
 ;;54569476700
 ;;9002226.02101,"1005,54569482900 ",.01)
 ;;54569482900
 ;;9002226.02101,"1005,54569482900 ",.02)
 ;;54569482900
 ;;9002226.02101,"1005,54569489500 ",.01)
 ;;54569489500
 ;;9002226.02101,"1005,54569489500 ",.02)
 ;;54569489500
 ;;9002226.02101,"1005,54569494800 ",.01)
 ;;54569494800
 ;;9002226.02101,"1005,54569494800 ",.02)
 ;;54569494800
 ;;9002226.02101,"1005,54569499000 ",.01)
 ;;54569499000
 ;;9002226.02101,"1005,54569499000 ",.02)
 ;;54569499000
 ;;9002226.02101,"1005,54569513300 ",.01)
 ;;54569513300
 ;;9002226.02101,"1005,54569513300 ",.02)
 ;;54569513300
 ;;9002226.02101,"1005,54569513301 ",.01)
 ;;54569513301
 ;;9002226.02101,"1005,54569513301 ",.02)
 ;;54569513301
 ;;9002226.02101,"1005,54569513400 ",.01)
 ;;54569513400
 ;;9002226.02101,"1005,54569513400 ",.02)
 ;;54569513400
 ;;9002226.02101,"1005,54569513401 ",.01)
 ;;54569513401
 ;;9002226.02101,"1005,54569513401 ",.02)
 ;;54569513401
 ;;9002226.02101,"1005,54569513402 ",.01)
 ;;54569513402
 ;;9002226.02101,"1005,54569513402 ",.02)
 ;;54569513402
 ;;9002226.02101,"1005,54569513500 ",.01)
 ;;54569513500
 ;;9002226.02101,"1005,54569513500 ",.02)
 ;;54569513500
 ;;9002226.02101,"1005,54569513501 ",.01)
 ;;54569513501
 ;;9002226.02101,"1005,54569513501 ",.02)
 ;;54569513501
 ;;9002226.02101,"1005,54569536100 ",.01)
 ;;54569536100
 ;;9002226.02101,"1005,54569536100 ",.02)
 ;;54569536100
 ;;9002226.02101,"1005,54569536200 ",.01)
 ;;54569536200
 ;;9002226.02101,"1005,54569536200 ",.02)
 ;;54569536200
 ;;9002226.02101,"1005,54569543400 ",.01)
 ;;54569543400
 ;;9002226.02101,"1005,54569543400 ",.02)
 ;;54569543400
 ;;9002226.02101,"1005,54569543403 ",.01)
 ;;54569543403
 ;;9002226.02101,"1005,54569543403 ",.02)
 ;;54569543403
 ;;9002226.02101,"1005,54569543404 ",.01)
 ;;54569543404
 ;;9002226.02101,"1005,54569543404 ",.02)
 ;;54569543404
 ;;9002226.02101,"1005,54569543405 ",.01)
 ;;54569543405
 ;;9002226.02101,"1005,54569543405 ",.02)
 ;;54569543405
 ;;9002226.02101,"1005,54569543500 ",.01)
 ;;54569543500
 ;;9002226.02101,"1005,54569543500 ",.02)
 ;;54569543500
 ;;9002226.02101,"1005,54569543503 ",.01)
 ;;54569543503
 ;;9002226.02101,"1005,54569543503 ",.02)
 ;;54569543503
 ;;9002226.02101,"1005,54569543504 ",.01)
 ;;54569543504
 ;;9002226.02101,"1005,54569543504 ",.02)
 ;;54569543504
 ;;9002226.02101,"1005,54569543505 ",.01)
 ;;54569543505
 ;;9002226.02101,"1005,54569543505 ",.02)
 ;;54569543505
 ;;9002226.02101,"1005,54569543700 ",.01)
 ;;54569543700
 ;;9002226.02101,"1005,54569543700 ",.02)
 ;;54569543700
 ;;9002226.02101,"1005,54569543702 ",.01)
 ;;54569543702
 ;;9002226.02101,"1005,54569543702 ",.02)
 ;;54569543702
 ;;9002226.02101,"1005,54569543800 ",.01)
 ;;54569543800
 ;;9002226.02101,"1005,54569543800 ",.02)
 ;;54569543800
 ;;9002226.02101,"1005,54569543803 ",.01)
 ;;54569543803
 ;;9002226.02101,"1005,54569543803 ",.02)
 ;;54569543803
 ;;9002226.02101,"1005,54569547200 ",.01)
 ;;54569547200
 ;;9002226.02101,"1005,54569547200 ",.02)
 ;;54569547200
 ;;9002226.02101,"1005,54569547202 ",.01)
 ;;54569547202
 ;;9002226.02101,"1005,54569547202 ",.02)
 ;;54569547202
 ;;9002226.02101,"1005,54569560600 ",.01)
 ;;54569560600
 ;;9002226.02101,"1005,54569560600 ",.02)
 ;;54569560600
 ;;9002226.02101,"1005,54569562100 ",.01)
 ;;54569562100
 ;;9002226.02101,"1005,54569562100 ",.02)
 ;;54569562100
 ;;9002226.02101,"1005,54569566500 ",.01)
 ;;54569566500
 ;;9002226.02101,"1005,54569566500 ",.02)
 ;;54569566500
 ;;9002226.02101,"1005,54569566600 ",.01)
 ;;54569566600
 ;;9002226.02101,"1005,54569566600 ",.02)
 ;;54569566600
 ;;9002226.02101,"1005,54569566700 ",.01)
 ;;54569566700
 ;;9002226.02101,"1005,54569566700 ",.02)
 ;;54569566700
 ;;9002226.02101,"1005,54569570900 ",.01)
 ;;54569570900
 ;;9002226.02101,"1005,54569570900 ",.02)
 ;;54569570900
 ;;9002226.02101,"1005,54569571000 ",.01)
 ;;54569571000
 ;;9002226.02101,"1005,54569571000 ",.02)
 ;;54569571000
 ;;9002226.02101,"1005,54569571100 ",.01)
 ;;54569571100
 ;;9002226.02101,"1005,54569571100 ",.02)
 ;;54569571100
 ;;9002226.02101,"1005,54569572800 ",.01)
 ;;54569572800
 ;;9002226.02101,"1005,54569572800 ",.02)
 ;;54569572800
 ;;9002226.02101,"1005,54569580100 ",.01)
 ;;54569580100
 ;;9002226.02101,"1005,54569580100 ",.02)
 ;;54569580100
 ;;9002226.02101,"1005,54569586700 ",.01)
 ;;54569586700
 ;;9002226.02101,"1005,54569586700 ",.02)
 ;;54569586700
 ;;9002226.02101,"1005,54569590300 ",.01)
 ;;54569590300
 ;;9002226.02101,"1005,54569590300 ",.02)
 ;;54569590300
 ;;9002226.02101,"1005,54569591600 ",.01)
 ;;54569591600
 ;;9002226.02101,"1005,54569591600 ",.02)
 ;;54569591600
 ;;9002226.02101,"1005,54569593600 ",.01)
 ;;54569593600
 ;;9002226.02101,"1005,54569593600 ",.02)
 ;;54569593600
 ;;9002226.02101,"1005,54569599800 ",.01)
 ;;54569599800
 ;;9002226.02101,"1005,54569599800 ",.02)
 ;;54569599800
 ;;9002226.02101,"1005,54569609100 ",.01)
 ;;54569609100
 ;;9002226.02101,"1005,54569609100 ",.02)
 ;;54569609100
 ;;9002226.02101,"1005,54569609101 ",.01)
 ;;54569609101
 ;;9002226.02101,"1005,54569609101 ",.02)
 ;;54569609101
 ;;9002226.02101,"1005,54569609200 ",.01)
 ;;54569609200
 ;;9002226.02101,"1005,54569609200 ",.02)
 ;;54569609200
 ;;9002226.02101,"1005,54569609201 ",.01)
 ;;54569609201
 ;;9002226.02101,"1005,54569609201 ",.02)
 ;;54569609201
 ;;9002226.02101,"1005,54569609800 ",.01)
 ;;54569609800
 ;;9002226.02101,"1005,54569609800 ",.02)
 ;;54569609800
 ;;9002226.02101,"1005,54569622800 ",.01)
 ;;54569622800
 ;;9002226.02101,"1005,54569622800 ",.02)
 ;;54569622800
 ;;9002226.02101,"1005,54569851500 ",.01)
 ;;54569851500
 ;;9002226.02101,"1005,54569851500 ",.02)
 ;;54569851500
 ;;9002226.02101,"1005,54569852700 ",.01)
 ;;54569852700
 ;;9002226.02101,"1005,54569852700 ",.02)
 ;;54569852700
 ;;9002226.02101,"1005,54569858300 ",.01)
 ;;54569858300
 ;;9002226.02101,"1005,54569858300 ",.02)
 ;;54569858300
 ;;9002226.02101,"1005,54569858400 ",.01)
 ;;54569858400
 ;;9002226.02101,"1005,54569858400 ",.02)
 ;;54569858400
 ;;9002226.02101,"1005,54569859200 ",.01)
 ;;54569859200
 ;;9002226.02101,"1005,54569859200 ",.02)
 ;;54569859200
 ;;9002226.02101,"1005,54569859500 ",.01)
 ;;54569859500
 ;;9002226.02101,"1005,54569859500 ",.02)
 ;;54569859500
 ;;9002226.02101,"1005,54868054100 ",.01)
 ;;54868054100
 ;;9002226.02101,"1005,54868054100 ",.02)
 ;;54868054100
 ;;9002226.02101,"1005,54868054101 ",.01)
 ;;54868054101
 ;;9002226.02101,"1005,54868054101 ",.02)
 ;;54868054101
 ;;9002226.02101,"1005,54868054103 ",.01)
 ;;54868054103
 ;;9002226.02101,"1005,54868054103 ",.02)
 ;;54868054103
 ;;9002226.02101,"1005,54868054104 ",.01)
 ;;54868054104
 ;;9002226.02101,"1005,54868054104 ",.02)
 ;;54868054104
 ;;9002226.02101,"1005,54868062000 ",.01)
 ;;54868062000
 ;;9002226.02101,"1005,54868062000 ",.02)
 ;;54868062000
 ;;9002226.02101,"1005,54868062001 ",.01)
 ;;54868062001
 ;;9002226.02101,"1005,54868062001 ",.02)
 ;;54868062001
 ;;9002226.02101,"1005,54868062002 ",.01)
 ;;54868062002
 ;;9002226.02101,"1005,54868062002 ",.02)
 ;;54868062002
 ;;9002226.02101,"1005,54868062003 ",.01)
 ;;54868062003
 ;;9002226.02101,"1005,54868062003 ",.02)
 ;;54868062003
 ;;9002226.02101,"1005,54868062004 ",.01)
 ;;54868062004
 ;;9002226.02101,"1005,54868062004 ",.02)
 ;;54868062004
 ;;9002226.02101,"1005,54868062005 ",.01)
 ;;54868062005
 ;;9002226.02101,"1005,54868062005 ",.02)
 ;;54868062005
 ;;9002226.02101,"1005,54868100100 ",.01)
 ;;54868100100
 ;;9002226.02101,"1005,54868100100 ",.02)
 ;;54868100100
 ;;9002226.02101,"1005,54868100101 ",.01)
 ;;54868100101
 ;;9002226.02101,"1005,54868100101 ",.02)
 ;;54868100101
 ;;9002226.02101,"1005,54868109000 ",.01)
 ;;54868109000
 ;;9002226.02101,"1005,54868109000 ",.02)
 ;;54868109000
 ;;9002226.02101,"1005,54868109001 ",.01)
 ;;54868109001
 ;;9002226.02101,"1005,54868109001 ",.02)
 ;;54868109001
 ;;9002226.02101,"1005,54868109004 ",.01)
 ;;54868109004
 ;;9002226.02101,"1005,54868109004 ",.02)
 ;;54868109004
 ;;9002226.02101,"1005,54868109005 ",.01)
 ;;54868109005
 ;;9002226.02101,"1005,54868109005 ",.02)
 ;;54868109005
 ;;9002226.02101,"1005,54868109006 ",.01)
 ;;54868109006
 ;;9002226.02101,"1005,54868109006 ",.02)
 ;;54868109006
 ;;9002226.02101,"1005,54868129600 ",.01)
 ;;54868129600
 ;;9002226.02101,"1005,54868129600 ",.02)
 ;;54868129600
 ;;9002226.02101,"1005,54868129601 ",.01)
 ;;54868129601
 ;;9002226.02101,"1005,54868129601 ",.02)
 ;;54868129601
 ;;9002226.02101,"1005,54868129602 ",.01)
 ;;54868129602
 ;;9002226.02101,"1005,54868129602 ",.02)
 ;;54868129602