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

BGPM5BDQ.m

Go to the documentation of this file.
BGPM5BDQ ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 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,"1044,63629151307 ",.02)
 ;;63629151307
 ;;9002226.02101,"1044,63629160901 ",.01)
 ;;63629160901
 ;;9002226.02101,"1044,63629160901 ",.02)
 ;;63629160901
 ;;9002226.02101,"1044,63629160902 ",.01)
 ;;63629160902
 ;;9002226.02101,"1044,63629160902 ",.02)
 ;;63629160902
 ;;9002226.02101,"1044,63629160903 ",.01)
 ;;63629160903
 ;;9002226.02101,"1044,63629160903 ",.02)
 ;;63629160903
 ;;9002226.02101,"1044,63629160904 ",.01)
 ;;63629160904
 ;;9002226.02101,"1044,63629160904 ",.02)
 ;;63629160904
 ;;9002226.02101,"1044,63629161001 ",.01)
 ;;63629161001
 ;;9002226.02101,"1044,63629161001 ",.02)
 ;;63629161001
 ;;9002226.02101,"1044,63629161002 ",.01)
 ;;63629161002
 ;;9002226.02101,"1044,63629161002 ",.02)
 ;;63629161002
 ;;9002226.02101,"1044,63629161003 ",.01)
 ;;63629161003
 ;;9002226.02101,"1044,63629161003 ",.02)
 ;;63629161003
 ;;9002226.02101,"1044,63629161004 ",.01)
 ;;63629161004
 ;;9002226.02101,"1044,63629161004 ",.02)
 ;;63629161004
 ;;9002226.02101,"1044,63629161005 ",.01)
 ;;63629161005
 ;;9002226.02101,"1044,63629161005 ",.02)
 ;;63629161005
 ;;9002226.02101,"1044,63629161006 ",.01)
 ;;63629161006
 ;;9002226.02101,"1044,63629161006 ",.02)
 ;;63629161006
 ;;9002226.02101,"1044,63629161007 ",.01)
 ;;63629161007
 ;;9002226.02101,"1044,63629161007 ",.02)
 ;;63629161007
 ;;9002226.02101,"1044,63629184001 ",.01)
 ;;63629184001
 ;;9002226.02101,"1044,63629184001 ",.02)
 ;;63629184001
 ;;9002226.02101,"1044,63629184002 ",.01)
 ;;63629184002
 ;;9002226.02101,"1044,63629184002 ",.02)
 ;;63629184002
 ;;9002226.02101,"1044,63629184003 ",.01)
 ;;63629184003
 ;;9002226.02101,"1044,63629184003 ",.02)
 ;;63629184003
 ;;9002226.02101,"1044,63629184004 ",.01)
 ;;63629184004
 ;;9002226.02101,"1044,63629184004 ",.02)
 ;;63629184004
 ;;9002226.02101,"1044,63629275601 ",.01)
 ;;63629275601
 ;;9002226.02101,"1044,63629275601 ",.02)
 ;;63629275601
 ;;9002226.02101,"1044,63629283302 ",.01)
 ;;63629283302
 ;;9002226.02101,"1044,63629283302 ",.02)
 ;;63629283302
 ;;9002226.02101,"1044,63629283304 ",.01)
 ;;63629283304
 ;;9002226.02101,"1044,63629283304 ",.02)
 ;;63629283304
 ;;9002226.02101,"1044,63629283305 ",.01)
 ;;63629283305
 ;;9002226.02101,"1044,63629283305 ",.02)
 ;;63629283305
 ;;9002226.02101,"1044,63629283306 ",.01)
 ;;63629283306
 ;;9002226.02101,"1044,63629283306 ",.02)
 ;;63629283306
 ;;9002226.02101,"1044,63629283307 ",.01)
 ;;63629283307
 ;;9002226.02101,"1044,63629283307 ",.02)
 ;;63629283307
 ;;9002226.02101,"1044,63629286701 ",.01)
 ;;63629286701
 ;;9002226.02101,"1044,63629286701 ",.02)
 ;;63629286701
 ;;9002226.02101,"1044,63629286702 ",.01)
 ;;63629286702
 ;;9002226.02101,"1044,63629286702 ",.02)
 ;;63629286702
 ;;9002226.02101,"1044,63629286703 ",.01)
 ;;63629286703
 ;;9002226.02101,"1044,63629286703 ",.02)
 ;;63629286703
 ;;9002226.02101,"1044,63629320401 ",.01)
 ;;63629320401
 ;;9002226.02101,"1044,63629320401 ",.02)
 ;;63629320401
 ;;9002226.02101,"1044,63629320402 ",.01)
 ;;63629320402
 ;;9002226.02101,"1044,63629320402 ",.02)
 ;;63629320402
 ;;9002226.02101,"1044,63629320403 ",.01)
 ;;63629320403
 ;;9002226.02101,"1044,63629320403 ",.02)
 ;;63629320403
 ;;9002226.02101,"1044,63629320404 ",.01)
 ;;63629320404
 ;;9002226.02101,"1044,63629320404 ",.02)
 ;;63629320404
 ;;9002226.02101,"1044,63629320501 ",.01)
 ;;63629320501
 ;;9002226.02101,"1044,63629320501 ",.02)
 ;;63629320501
 ;;9002226.02101,"1044,63629320502 ",.01)
 ;;63629320502
 ;;9002226.02101,"1044,63629320502 ",.02)
 ;;63629320502
 ;;9002226.02101,"1044,63629320503 ",.01)
 ;;63629320503
 ;;9002226.02101,"1044,63629320503 ",.02)
 ;;63629320503
 ;;9002226.02101,"1044,63629321001 ",.01)
 ;;63629321001
 ;;9002226.02101,"1044,63629321001 ",.02)
 ;;63629321001
 ;;9002226.02101,"1044,63629321002 ",.01)
 ;;63629321002
 ;;9002226.02101,"1044,63629321002 ",.02)
 ;;63629321002
 ;;9002226.02101,"1044,63629321003 ",.01)
 ;;63629321003
 ;;9002226.02101,"1044,63629321003 ",.02)
 ;;63629321003
 ;;9002226.02101,"1044,63629321004 ",.01)
 ;;63629321004
 ;;9002226.02101,"1044,63629321004 ",.02)
 ;;63629321004
 ;;9002226.02101,"1044,63629321005 ",.01)
 ;;63629321005
 ;;9002226.02101,"1044,63629321005 ",.02)
 ;;63629321005
 ;;9002226.02101,"1044,63629328901 ",.01)
 ;;63629328901
 ;;9002226.02101,"1044,63629328901 ",.02)
 ;;63629328901
 ;;9002226.02101,"1044,63629328902 ",.01)
 ;;63629328902
 ;;9002226.02101,"1044,63629328902 ",.02)
 ;;63629328902
 ;;9002226.02101,"1044,63629328903 ",.01)
 ;;63629328903
 ;;9002226.02101,"1044,63629328903 ",.02)
 ;;63629328903
 ;;9002226.02101,"1044,63629328904 ",.01)
 ;;63629328904
 ;;9002226.02101,"1044,63629328904 ",.02)
 ;;63629328904
 ;;9002226.02101,"1044,63629328905 ",.01)
 ;;63629328905
 ;;9002226.02101,"1044,63629328905 ",.02)
 ;;63629328905
 ;;9002226.02101,"1044,63629330901 ",.01)
 ;;63629330901
 ;;9002226.02101,"1044,63629330901 ",.02)
 ;;63629330901
 ;;9002226.02101,"1044,63629330902 ",.01)
 ;;63629330902
 ;;9002226.02101,"1044,63629330902 ",.02)
 ;;63629330902
 ;;9002226.02101,"1044,63629330903 ",.01)
 ;;63629330903
 ;;9002226.02101,"1044,63629330903 ",.02)
 ;;63629330903
 ;;9002226.02101,"1044,63629330904 ",.01)
 ;;63629330904
 ;;9002226.02101,"1044,63629330904 ",.02)
 ;;63629330904
 ;;9002226.02101,"1044,63629330905 ",.01)
 ;;63629330905
 ;;9002226.02101,"1044,63629330905 ",.02)
 ;;63629330905
 ;;9002226.02101,"1044,63629330906 ",.01)
 ;;63629330906
 ;;9002226.02101,"1044,63629330906 ",.02)
 ;;63629330906
 ;;9002226.02101,"1044,63629330907 ",.01)
 ;;63629330907
 ;;9002226.02101,"1044,63629330907 ",.02)
 ;;63629330907
 ;;9002226.02101,"1044,63629331201 ",.01)
 ;;63629331201
 ;;9002226.02101,"1044,63629331201 ",.02)
 ;;63629331201
 ;;9002226.02101,"1044,63629331202 ",.01)
 ;;63629331202
 ;;9002226.02101,"1044,63629331202 ",.02)
 ;;63629331202
 ;;9002226.02101,"1044,63629331203 ",.01)
 ;;63629331203
 ;;9002226.02101,"1044,63629331203 ",.02)
 ;;63629331203
 ;;9002226.02101,"1044,63629331301 ",.01)
 ;;63629331301
 ;;9002226.02101,"1044,63629331301 ",.02)
 ;;63629331301
 ;;9002226.02101,"1044,63629331302 ",.01)
 ;;63629331302
 ;;9002226.02101,"1044,63629331302 ",.02)
 ;;63629331302
 ;;9002226.02101,"1044,63629331303 ",.01)
 ;;63629331303
 ;;9002226.02101,"1044,63629331303 ",.02)
 ;;63629331303
 ;;9002226.02101,"1044,63629331304 ",.01)
 ;;63629331304
 ;;9002226.02101,"1044,63629331304 ",.02)
 ;;63629331304
 ;;9002226.02101,"1044,63629331701 ",.01)
 ;;63629331701
 ;;9002226.02101,"1044,63629331701 ",.02)
 ;;63629331701
 ;;9002226.02101,"1044,63629331702 ",.01)
 ;;63629331702
 ;;9002226.02101,"1044,63629331702 ",.02)
 ;;63629331702
 ;;9002226.02101,"1044,63629331703 ",.01)
 ;;63629331703
 ;;9002226.02101,"1044,63629331703 ",.02)
 ;;63629331703
 ;;9002226.02101,"1044,63629331704 ",.01)
 ;;63629331704
 ;;9002226.02101,"1044,63629331704 ",.02)
 ;;63629331704
 ;;9002226.02101,"1044,63629332401 ",.01)
 ;;63629332401
 ;;9002226.02101,"1044,63629332401 ",.02)
 ;;63629332401
 ;;9002226.02101,"1044,63629332402 ",.01)
 ;;63629332402
 ;;9002226.02101,"1044,63629332402 ",.02)
 ;;63629332402
 ;;9002226.02101,"1044,63629332403 ",.01)
 ;;63629332403
 ;;9002226.02101,"1044,63629332403 ",.02)
 ;;63629332403
 ;;9002226.02101,"1044,63629332501 ",.01)
 ;;63629332501
 ;;9002226.02101,"1044,63629332501 ",.02)
 ;;63629332501
 ;;9002226.02101,"1044,63629332502 ",.01)
 ;;63629332502
 ;;9002226.02101,"1044,63629332502 ",.02)
 ;;63629332502
 ;;9002226.02101,"1044,63629332601 ",.01)
 ;;63629332601
 ;;9002226.02101,"1044,63629332601 ",.02)
 ;;63629332601
 ;;9002226.02101,"1044,63629332602 ",.01)
 ;;63629332602
 ;;9002226.02101,"1044,63629332602 ",.02)
 ;;63629332602
 ;;9002226.02101,"1044,63629332603 ",.01)
 ;;63629332603
 ;;9002226.02101,"1044,63629332603 ",.02)
 ;;63629332603
 ;;9002226.02101,"1044,63629333801 ",.01)
 ;;63629333801
 ;;9002226.02101,"1044,63629333801 ",.02)
 ;;63629333801
 ;;9002226.02101,"1044,63629333802 ",.01)
 ;;63629333802
 ;;9002226.02101,"1044,63629333802 ",.02)
 ;;63629333802
 ;;9002226.02101,"1044,63629333803 ",.01)
 ;;63629333803
 ;;9002226.02101,"1044,63629333803 ",.02)
 ;;63629333803
 ;;9002226.02101,"1044,63629334501 ",.01)
 ;;63629334501
 ;;9002226.02101,"1044,63629334501 ",.02)
 ;;63629334501
 ;;9002226.02101,"1044,63629334502 ",.01)
 ;;63629334502
 ;;9002226.02101,"1044,63629334502 ",.02)
 ;;63629334502
 ;;9002226.02101,"1044,63629334503 ",.01)
 ;;63629334503
 ;;9002226.02101,"1044,63629334503 ",.02)
 ;;63629334503
 ;;9002226.02101,"1044,63629334504 ",.01)
 ;;63629334504
 ;;9002226.02101,"1044,63629334504 ",.02)
 ;;63629334504
 ;;9002226.02101,"1044,63629334601 ",.01)
 ;;63629334601
 ;;9002226.02101,"1044,63629334601 ",.02)
 ;;63629334601
 ;;9002226.02101,"1044,63629334801 ",.01)
 ;;63629334801
 ;;9002226.02101,"1044,63629334801 ",.02)
 ;;63629334801
 ;;9002226.02101,"1044,63629334802 ",.01)
 ;;63629334802
 ;;9002226.02101,"1044,63629334802 ",.02)
 ;;63629334802
 ;;9002226.02101,"1044,63629334803 ",.01)
 ;;63629334803
 ;;9002226.02101,"1044,63629334803 ",.02)
 ;;63629334803
 ;;9002226.02101,"1044,63629334804 ",.01)
 ;;63629334804
 ;;9002226.02101,"1044,63629334804 ",.02)
 ;;63629334804
 ;;9002226.02101,"1044,63629334901 ",.01)
 ;;63629334901
 ;;9002226.02101,"1044,63629334901 ",.02)
 ;;63629334901
 ;;9002226.02101,"1044,63629334902 ",.01)
 ;;63629334902
 ;;9002226.02101,"1044,63629334902 ",.02)
 ;;63629334902
 ;;9002226.02101,"1044,63629334903 ",.01)
 ;;63629334903
 ;;9002226.02101,"1044,63629334903 ",.02)
 ;;63629334903
 ;;9002226.02101,"1044,63629336201 ",.01)
 ;;63629336201
 ;;9002226.02101,"1044,63629336201 ",.02)
 ;;63629336201
 ;;9002226.02101,"1044,63629336202 ",.01)
 ;;63629336202
 ;;9002226.02101,"1044,63629336202 ",.02)
 ;;63629336202
 ;;9002226.02101,"1044,63629336203 ",.01)
 ;;63629336203
 ;;9002226.02101,"1044,63629336203 ",.02)
 ;;63629336203
 ;;9002226.02101,"1044,63629336204 ",.01)
 ;;63629336204
 ;;9002226.02101,"1044,63629336204 ",.02)
 ;;63629336204
 ;;9002226.02101,"1044,63629336205 ",.01)
 ;;63629336205
 ;;9002226.02101,"1044,63629336205 ",.02)
 ;;63629336205
 ;;9002226.02101,"1044,63629359701 ",.01)
 ;;63629359701
 ;;9002226.02101,"1044,63629359701 ",.02)
 ;;63629359701
 ;;9002226.02101,"1044,63629359702 ",.01)
 ;;63629359702
 ;;9002226.02101,"1044,63629359702 ",.02)
 ;;63629359702
 ;;9002226.02101,"1044,63629359703 ",.01)
 ;;63629359703
 ;;9002226.02101,"1044,63629359703 ",.02)
 ;;63629359703
 ;;9002226.02101,"1044,63629412301 ",.01)
 ;;63629412301
 ;;9002226.02101,"1044,63629412301 ",.02)
 ;;63629412301
 ;;9002226.02101,"1044,63629412302 ",.01)
 ;;63629412302
 ;;9002226.02101,"1044,63629412302 ",.02)
 ;;63629412302
 ;;9002226.02101,"1044,63629412501 ",.01)
 ;;63629412501
 ;;9002226.02101,"1044,63629412501 ",.02)
 ;;63629412501
 ;;9002226.02101,"1044,63629412502 ",.01)
 ;;63629412502
 ;;9002226.02101,"1044,63629412502 ",.02)
 ;;63629412502
 ;;9002226.02101,"1044,63629427601 ",.01)
 ;;63629427601
 ;;9002226.02101,"1044,63629427601 ",.02)
 ;;63629427601
 ;;9002226.02101,"1044,63629427602 ",.01)
 ;;63629427602
 ;;9002226.02101,"1044,63629427602 ",.02)
 ;;63629427602
 ;;9002226.02101,"1044,63629430401 ",.01)
 ;;63629430401
 ;;9002226.02101,"1044,63629430401 ",.02)
 ;;63629430401
 ;;9002226.02101,"1044,63629430402 ",.01)
 ;;63629430402
 ;;9002226.02101,"1044,63629430402 ",.02)
 ;;63629430402
 ;;9002226.02101,"1044,63629430403 ",.01)
 ;;63629430403
 ;;9002226.02101,"1044,63629430403 ",.02)
 ;;63629430403
 ;;9002226.02101,"1044,63629453401 ",.01)
 ;;63629453401
 ;;9002226.02101,"1044,63629453401 ",.02)
 ;;63629453401