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

BGPM5BCU.m

Go to the documentation of this file.
BGPM5BCU ;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,55111054690 ",.01)
 ;;55111054690
 ;;9002226.02101,"1044,55111054690 ",.02)
 ;;55111054690
 ;;9002226.02101,"1044,55111054701 ",.01)
 ;;55111054701
 ;;9002226.02101,"1044,55111054701 ",.02)
 ;;55111054701
 ;;9002226.02101,"1044,55111054705 ",.01)
 ;;55111054705
 ;;9002226.02101,"1044,55111054705 ",.02)
 ;;55111054705
 ;;9002226.02101,"1044,55111054730 ",.01)
 ;;55111054730
 ;;9002226.02101,"1044,55111054730 ",.02)
 ;;55111054730
 ;;9002226.02101,"1044,55111054760 ",.01)
 ;;55111054760
 ;;9002226.02101,"1044,55111054760 ",.02)
 ;;55111054760
 ;;9002226.02101,"1044,55111054779 ",.01)
 ;;55111054779
 ;;9002226.02101,"1044,55111054779 ",.02)
 ;;55111054779
 ;;9002226.02101,"1044,55111054790 ",.01)
 ;;55111054790
 ;;9002226.02101,"1044,55111054790 ",.02)
 ;;55111054790
 ;;9002226.02101,"1044,55111054801 ",.01)
 ;;55111054801
 ;;9002226.02101,"1044,55111054801 ",.02)
 ;;55111054801
 ;;9002226.02101,"1044,55111054805 ",.01)
 ;;55111054805
 ;;9002226.02101,"1044,55111054805 ",.02)
 ;;55111054805
 ;;9002226.02101,"1044,55111054830 ",.01)
 ;;55111054830
 ;;9002226.02101,"1044,55111054830 ",.02)
 ;;55111054830
 ;;9002226.02101,"1044,55111054860 ",.01)
 ;;55111054860
 ;;9002226.02101,"1044,55111054860 ",.02)
 ;;55111054860
 ;;9002226.02101,"1044,55111054879 ",.01)
 ;;55111054879
 ;;9002226.02101,"1044,55111054879 ",.02)
 ;;55111054879
 ;;9002226.02101,"1044,55111054890 ",.01)
 ;;55111054890
 ;;9002226.02101,"1044,55111054890 ",.02)
 ;;55111054890
 ;;9002226.02101,"1044,55111054901 ",.01)
 ;;55111054901
 ;;9002226.02101,"1044,55111054901 ",.02)
 ;;55111054901
 ;;9002226.02101,"1044,55111054905 ",.01)
 ;;55111054905
 ;;9002226.02101,"1044,55111054905 ",.02)
 ;;55111054905
 ;;9002226.02101,"1044,55111054930 ",.01)
 ;;55111054930
 ;;9002226.02101,"1044,55111054930 ",.02)
 ;;55111054930
 ;;9002226.02101,"1044,55111054960 ",.01)
 ;;55111054960
 ;;9002226.02101,"1044,55111054960 ",.02)
 ;;55111054960
 ;;9002226.02101,"1044,55111054979 ",.01)
 ;;55111054979
 ;;9002226.02101,"1044,55111054979 ",.02)
 ;;55111054979
 ;;9002226.02101,"1044,55111054990 ",.01)
 ;;55111054990
 ;;9002226.02101,"1044,55111054990 ",.02)
 ;;55111054990
 ;;9002226.02101,"1044,55154052700 ",.01)
 ;;55154052700
 ;;9002226.02101,"1044,55154052700 ",.02)
 ;;55154052700
 ;;9002226.02101,"1044,55154053003 ",.01)
 ;;55154053003
 ;;9002226.02101,"1044,55154053003 ",.02)
 ;;55154053003
 ;;9002226.02101,"1044,55154053103 ",.01)
 ;;55154053103
 ;;9002226.02101,"1044,55154053103 ",.02)
 ;;55154053103
 ;;9002226.02101,"1044,55154053200 ",.01)
 ;;55154053200
 ;;9002226.02101,"1044,55154053200 ",.02)
 ;;55154053200
 ;;9002226.02101,"1044,55154065900 ",.01)
 ;;55154065900
 ;;9002226.02101,"1044,55154065900 ",.02)
 ;;55154065900
 ;;9002226.02101,"1044,55154065907 ",.01)
 ;;55154065907
 ;;9002226.02101,"1044,55154065907 ",.02)
 ;;55154065907
 ;;9002226.02101,"1044,55154067300 ",.01)
 ;;55154067300
 ;;9002226.02101,"1044,55154067300 ",.02)
 ;;55154067300
 ;;9002226.02101,"1044,55154068800 ",.01)
 ;;55154068800
 ;;9002226.02101,"1044,55154068800 ",.02)
 ;;55154068800
 ;;9002226.02101,"1044,55154073600 ",.01)
 ;;55154073600
 ;;9002226.02101,"1044,55154073600 ",.02)
 ;;55154073600
 ;;9002226.02101,"1044,55154102509 ",.01)
 ;;55154102509
 ;;9002226.02101,"1044,55154102509 ",.02)
 ;;55154102509
 ;;9002226.02101,"1044,55154102609 ",.01)
 ;;55154102609
 ;;9002226.02101,"1044,55154102609 ",.02)
 ;;55154102609
 ;;9002226.02101,"1044,55154102709 ",.01)
 ;;55154102709
 ;;9002226.02101,"1044,55154102709 ",.02)
 ;;55154102709
 ;;9002226.02101,"1044,55154139000 ",.01)
 ;;55154139000
 ;;9002226.02101,"1044,55154139000 ",.02)
 ;;55154139000
 ;;9002226.02101,"1044,55154139100 ",.01)
 ;;55154139100
 ;;9002226.02101,"1044,55154139100 ",.02)
 ;;55154139100
 ;;9002226.02101,"1044,55154140607 ",.01)
 ;;55154140607
 ;;9002226.02101,"1044,55154140607 ",.02)
 ;;55154140607
 ;;9002226.02101,"1044,55154455209 ",.01)
 ;;55154455209
 ;;9002226.02101,"1044,55154455209 ",.02)
 ;;55154455209
 ;;9002226.02101,"1044,55154455909 ",.01)
 ;;55154455909
 ;;9002226.02101,"1044,55154455909 ",.02)
 ;;55154455909
 ;;9002226.02101,"1044,55154506600 ",.01)
 ;;55154506600
 ;;9002226.02101,"1044,55154506600 ",.02)
 ;;55154506600
 ;;9002226.02101,"1044,55154508700 ",.01)
 ;;55154508700
 ;;9002226.02101,"1044,55154508700 ",.02)
 ;;55154508700
 ;;9002226.02101,"1044,55154535300 ",.01)
 ;;55154535300
 ;;9002226.02101,"1044,55154535300 ",.02)
 ;;55154535300
 ;;9002226.02101,"1044,55154535500 ",.01)
 ;;55154535500
 ;;9002226.02101,"1044,55154535500 ",.02)
 ;;55154535500
 ;;9002226.02101,"1044,55154545900 ",.01)
 ;;55154545900
 ;;9002226.02101,"1044,55154545900 ",.02)
 ;;55154545900
 ;;9002226.02101,"1044,55154546700 ",.01)
 ;;55154546700
 ;;9002226.02101,"1044,55154546700 ",.02)
 ;;55154546700
 ;;9002226.02101,"1044,55154549500 ",.01)
 ;;55154549500
 ;;9002226.02101,"1044,55154549500 ",.02)
 ;;55154549500
 ;;9002226.02101,"1044,55154566500 ",.01)
 ;;55154566500
 ;;9002226.02101,"1044,55154566500 ",.02)
 ;;55154566500
 ;;9002226.02101,"1044,55154568000 ",.01)
 ;;55154568000
 ;;9002226.02101,"1044,55154568000 ",.02)
 ;;55154568000
 ;;9002226.02101,"1044,55154575409 ",.01)
 ;;55154575409
 ;;9002226.02101,"1044,55154575409 ",.02)
 ;;55154575409
 ;;9002226.02101,"1044,55154576109 ",.01)
 ;;55154576109
 ;;9002226.02101,"1044,55154576109 ",.02)
 ;;55154576109
 ;;9002226.02101,"1044,55154576204 ",.01)
 ;;55154576204
 ;;9002226.02101,"1044,55154576204 ",.02)
 ;;55154576204
 ;;9002226.02101,"1044,55154576206 ",.01)
 ;;55154576206
 ;;9002226.02101,"1044,55154576206 ",.02)
 ;;55154576206
 ;;9002226.02101,"1044,55154576309 ",.01)
 ;;55154576309
 ;;9002226.02101,"1044,55154576309 ",.02)
 ;;55154576309
 ;;9002226.02101,"1044,55154580907 ",.01)
 ;;55154580907
 ;;9002226.02101,"1044,55154580907 ",.02)
 ;;55154580907
 ;;9002226.02101,"1044,55154581407 ",.01)
 ;;55154581407
 ;;9002226.02101,"1044,55154581407 ",.02)
 ;;55154581407
 ;;9002226.02101,"1044,55154583900 ",.01)
 ;;55154583900
 ;;9002226.02101,"1044,55154583900 ",.02)
 ;;55154583900
 ;;9002226.02101,"1044,55154602709 ",.01)
 ;;55154602709
 ;;9002226.02101,"1044,55154602709 ",.02)
 ;;55154602709
 ;;9002226.02101,"1044,55154616500 ",.01)
 ;;55154616500
 ;;9002226.02101,"1044,55154616500 ",.02)
 ;;55154616500
 ;;9002226.02101,"1044,55154616700 ",.01)
 ;;55154616700
 ;;9002226.02101,"1044,55154616700 ",.02)
 ;;55154616700
 ;;9002226.02101,"1044,55154617500 ",.01)
 ;;55154617500
 ;;9002226.02101,"1044,55154617500 ",.02)
 ;;55154617500
 ;;9002226.02101,"1044,55154619900 ",.01)
 ;;55154619900
 ;;9002226.02101,"1044,55154619900 ",.02)
 ;;55154619900
 ;;9002226.02101,"1044,55154622003 ",.01)
 ;;55154622003
 ;;9002226.02101,"1044,55154622003 ",.02)
 ;;55154622003
 ;;9002226.02101,"1044,55154622103 ",.01)
 ;;55154622103
 ;;9002226.02101,"1044,55154622103 ",.02)
 ;;55154622103
 ;;9002226.02101,"1044,55154624009 ",.01)
 ;;55154624009
 ;;9002226.02101,"1044,55154624009 ",.02)
 ;;55154624009
 ;;9002226.02101,"1044,55154624109 ",.01)
 ;;55154624109
 ;;9002226.02101,"1044,55154624109 ",.02)
 ;;55154624109
 ;;9002226.02101,"1044,55154632500 ",.01)
 ;;55154632500
 ;;9002226.02101,"1044,55154632500 ",.02)
 ;;55154632500
 ;;9002226.02101,"1044,55154634609 ",.01)
 ;;55154634609
 ;;9002226.02101,"1044,55154634609 ",.02)
 ;;55154634609
 ;;9002226.02101,"1044,55154666000 ",.01)
 ;;55154666000
 ;;9002226.02101,"1044,55154666000 ",.02)
 ;;55154666000
 ;;9002226.02101,"1044,55154666100 ",.01)
 ;;55154666100
 ;;9002226.02101,"1044,55154666100 ",.02)
 ;;55154666100
 ;;9002226.02101,"1044,55154725100 ",.01)
 ;;55154725100
 ;;9002226.02101,"1044,55154725100 ",.02)
 ;;55154725100
 ;;9002226.02101,"1044,55154725107 ",.01)
 ;;55154725107
 ;;9002226.02101,"1044,55154725107 ",.02)
 ;;55154725107
 ;;9002226.02101,"1044,55154825600 ",.01)
 ;;55154825600
 ;;9002226.02101,"1044,55154825600 ",.02)
 ;;55154825600
 ;;9002226.02101,"1044,55154825604 ",.01)
 ;;55154825604
 ;;9002226.02101,"1044,55154825604 ",.02)
 ;;55154825604
 ;;9002226.02101,"1044,55154825606 ",.01)
 ;;55154825606
 ;;9002226.02101,"1044,55154825606 ",.02)
 ;;55154825606
 ;;9002226.02101,"1044,55154826209 ",.01)
 ;;55154826209
 ;;9002226.02101,"1044,55154826209 ",.02)
 ;;55154826209
 ;;9002226.02101,"1044,55154826309 ",.01)
 ;;55154826309
 ;;9002226.02101,"1044,55154826309 ",.02)
 ;;55154826309
 ;;9002226.02101,"1044,55154826509 ",.01)
 ;;55154826509
 ;;9002226.02101,"1044,55154826509 ",.02)
 ;;55154826509
 ;;9002226.02101,"1044,55154826600 ",.01)
 ;;55154826600
 ;;9002226.02101,"1044,55154826600 ",.02)
 ;;55154826600
 ;;9002226.02101,"1044,55154826609 ",.01)
 ;;55154826609
 ;;9002226.02101,"1044,55154826609 ",.02)
 ;;55154826609
 ;;9002226.02101,"1044,55154826700 ",.01)
 ;;55154826700
 ;;9002226.02101,"1044,55154826700 ",.02)
 ;;55154826700
 ;;9002226.02101,"1044,55154826709 ",.01)
 ;;55154826709
 ;;9002226.02101,"1044,55154826709 ",.02)
 ;;55154826709
 ;;9002226.02101,"1044,55154826809 ",.01)
 ;;55154826809
 ;;9002226.02101,"1044,55154826809 ",.02)
 ;;55154826809
 ;;9002226.02101,"1044,55154826900 ",.01)
 ;;55154826900
 ;;9002226.02101,"1044,55154826900 ",.02)
 ;;55154826900
 ;;9002226.02101,"1044,55154826909 ",.01)
 ;;55154826909
 ;;9002226.02101,"1044,55154826909 ",.02)
 ;;55154826909
 ;;9002226.02101,"1044,55154827109 ",.01)
 ;;55154827109
 ;;9002226.02101,"1044,55154827109 ",.02)
 ;;55154827109
 ;;9002226.02101,"1044,55160011401 ",.01)
 ;;55160011401
 ;;9002226.02101,"1044,55160011401 ",.02)
 ;;55160011401
 ;;9002226.02101,"1044,55160011501 ",.01)
 ;;55160011501
 ;;9002226.02101,"1044,55160011501 ",.02)
 ;;55160011501
 ;;9002226.02101,"1044,55160011601 ",.01)
 ;;55160011601
 ;;9002226.02101,"1044,55160011601 ",.02)
 ;;55160011601
 ;;9002226.02101,"1044,55160011701 ",.01)
 ;;55160011701
 ;;9002226.02101,"1044,55160011701 ",.02)
 ;;55160011701
 ;;9002226.02101,"1044,55289001630 ",.01)
 ;;55289001630
 ;;9002226.02101,"1044,55289001630 ",.02)
 ;;55289001630
 ;;9002226.02101,"1044,55289001660 ",.01)
 ;;55289001660
 ;;9002226.02101,"1044,55289001660 ",.02)
 ;;55289001660
 ;;9002226.02101,"1044,55289003745 ",.01)
 ;;55289003745
 ;;9002226.02101,"1044,55289003745 ",.02)
 ;;55289003745
 ;;9002226.02101,"1044,55289003790 ",.01)
 ;;55289003790
 ;;9002226.02101,"1044,55289003790 ",.02)
 ;;55289003790
 ;;9002226.02101,"1044,55289005345 ",.01)
 ;;55289005345
 ;;9002226.02101,"1044,55289005345 ",.02)
 ;;55289005345
 ;;9002226.02101,"1044,55289005390 ",.01)
 ;;55289005390
 ;;9002226.02101,"1044,55289005390 ",.02)
 ;;55289005390
 ;;9002226.02101,"1044,55289006014 ",.01)
 ;;55289006014
 ;;9002226.02101,"1044,55289006014 ",.02)
 ;;55289006014
 ;;9002226.02101,"1044,55289006407 ",.01)
 ;;55289006407
 ;;9002226.02101,"1044,55289006407 ",.02)
 ;;55289006407
 ;;9002226.02101,"1044,55289006414 ",.01)
 ;;55289006414
 ;;9002226.02101,"1044,55289006414 ",.02)
 ;;55289006414
 ;;9002226.02101,"1044,55289006430 ",.01)
 ;;55289006430
 ;;9002226.02101,"1044,55289006430 ",.02)
 ;;55289006430
 ;;9002226.02101,"1044,55289006460 ",.01)
 ;;55289006460
 ;;9002226.02101,"1044,55289006460 ",.02)
 ;;55289006460
 ;;9002226.02101,"1044,55289006490 ",.01)
 ;;55289006490
 ;;9002226.02101,"1044,55289006490 ",.02)
 ;;55289006490
 ;;9002226.02101,"1044,55289009930 ",.01)
 ;;55289009930
 ;;9002226.02101,"1044,55289009930 ",.02)
 ;;55289009930
 ;;9002226.02101,"1044,55289009950 ",.01)
 ;;55289009950
 ;;9002226.02101,"1044,55289009950 ",.02)
 ;;55289009950
 ;;9002226.02101,"1044,55289012412 ",.01)
 ;;55289012412