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

BGPM5AWY.m

Go to the documentation of this file.
BGPM5AWY ;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,67046057628 ",.02)
 ;;67046057628
 ;;9002226.02101,"1033,67046057630 ",.01)
 ;;67046057630
 ;;9002226.02101,"1033,67046057630 ",.02)
 ;;67046057630
 ;;9002226.02101,"1033,67046071520 ",.01)
 ;;67046071520
 ;;9002226.02101,"1033,67046071520 ",.02)
 ;;67046071520
 ;;9002226.02101,"1033,67046071530 ",.01)
 ;;67046071530
 ;;9002226.02101,"1033,67046071530 ",.02)
 ;;67046071530
 ;;9002226.02101,"1033,67046072830 ",.01)
 ;;67046072830
 ;;9002226.02101,"1033,67046072830 ",.02)
 ;;67046072830
 ;;9002226.02101,"1033,6715 ",.01)
 ;;6715
 ;;9002226.02101,"1033,6715 ",.02)
 ;;6715
 ;;9002226.02101,"1033,67209092010 ",.01)
 ;;67209092010
 ;;9002226.02101,"1033,67209092010 ",.02)
 ;;67209092010
 ;;9002226.02101,"1033,67209092030 ",.01)
 ;;67209092030
 ;;9002226.02101,"1033,67209092030 ",.02)
 ;;67209092030
 ;;9002226.02101,"1033,67209092110 ",.01)
 ;;67209092110
 ;;9002226.02101,"1033,67209092110 ",.02)
 ;;67209092110
 ;;9002226.02101,"1033,67209092130 ",.01)
 ;;67209092130
 ;;9002226.02101,"1033,67209092130 ",.02)
 ;;67209092130
 ;;9002226.02101,"1033,67209092210 ",.01)
 ;;67209092210
 ;;9002226.02101,"1033,67209092210 ",.02)
 ;;67209092210
 ;;9002226.02101,"1033,67209092230 ",.01)
 ;;67209092230
 ;;9002226.02101,"1033,67209092230 ",.02)
 ;;67209092230
 ;;9002226.02101,"1033,67228001202 ",.01)
 ;;67228001202
 ;;9002226.02101,"1033,67228001202 ",.02)
 ;;67228001202
 ;;9002226.02101,"1033,67228001203 ",.01)
 ;;67228001203
 ;;9002226.02101,"1033,67228001203 ",.02)
 ;;67228001203
 ;;9002226.02101,"1033,67228001206 ",.01)
 ;;67228001206
 ;;9002226.02101,"1033,67228001206 ",.02)
 ;;67228001206
 ;;9002226.02101,"1033,67228002803 ",.01)
 ;;67228002803
 ;;9002226.02101,"1033,67228002803 ",.02)
 ;;67228002803
 ;;9002226.02101,"1033,67228002806 ",.01)
 ;;67228002806
 ;;9002226.02101,"1033,67228002806 ",.02)
 ;;67228002806
 ;;9002226.02101,"1033,67228003203 ",.01)
 ;;67228003203
 ;;9002226.02101,"1033,67228003203 ",.02)
 ;;67228003203
 ;;9002226.02101,"1033,67228003206 ",.01)
 ;;67228003206
 ;;9002226.02101,"1033,67228003206 ",.02)
 ;;67228003206
 ;;9002226.02101,"1033,67228003303 ",.01)
 ;;67228003303
 ;;9002226.02101,"1033,67228003303 ",.02)
 ;;67228003303
 ;;9002226.02101,"1033,67228003306 ",.01)
 ;;67228003306
 ;;9002226.02101,"1033,67228003306 ",.02)
 ;;67228003306
 ;;9002226.02101,"1033,67228003803 ",.01)
 ;;67228003803
 ;;9002226.02101,"1033,67228003803 ",.02)
 ;;67228003803
 ;;9002226.02101,"1033,67228003806 ",.01)
 ;;67228003806
 ;;9002226.02101,"1033,67228003806 ",.02)
 ;;67228003806
 ;;9002226.02101,"1033,67228003903 ",.01)
 ;;67228003903
 ;;9002226.02101,"1033,67228003903 ",.02)
 ;;67228003903
 ;;9002226.02101,"1033,67228003906 ",.01)
 ;;67228003906
 ;;9002226.02101,"1033,67228003906 ",.02)
 ;;67228003906
 ;;9002226.02101,"1033,67228004703 ",.01)
 ;;67228004703
 ;;9002226.02101,"1033,67228004703 ",.02)
 ;;67228004703
 ;;9002226.02101,"1033,67228004706 ",.01)
 ;;67228004706
 ;;9002226.02101,"1033,67228004706 ",.02)
 ;;67228004706
 ;;9002226.02101,"1033,67228005103 ",.01)
 ;;67228005103
 ;;9002226.02101,"1033,67228005103 ",.02)
 ;;67228005103
 ;;9002226.02101,"1033,67228005106 ",.01)
 ;;67228005106
 ;;9002226.02101,"1033,67228005106 ",.02)
 ;;67228005106
 ;;9002226.02101,"1033,67228013003 ",.01)
 ;;67228013003
 ;;9002226.02101,"1033,67228013003 ",.02)
 ;;67228013003
 ;;9002226.02101,"1033,67228013006 ",.01)
 ;;67228013006
 ;;9002226.02101,"1033,67228013006 ",.02)
 ;;67228013006
 ;;9002226.02101,"1033,67228013703 ",.01)
 ;;67228013703
 ;;9002226.02101,"1033,67228013703 ",.02)
 ;;67228013703
 ;;9002226.02101,"1033,67228013706 ",.01)
 ;;67228013706
 ;;9002226.02101,"1033,67228013706 ",.02)
 ;;67228013706
 ;;9002226.02101,"1033,67228013803 ",.01)
 ;;67228013803
 ;;9002226.02101,"1033,67228013803 ",.02)
 ;;67228013803
 ;;9002226.02101,"1033,67228013806 ",.01)
 ;;67228013806
 ;;9002226.02101,"1033,67228013806 ",.02)
 ;;67228013806
 ;;9002226.02101,"1033,67228023503 ",.01)
 ;;67228023503
 ;;9002226.02101,"1033,67228023503 ",.02)
 ;;67228023503
 ;;9002226.02101,"1033,67228023506 ",.01)
 ;;67228023506
 ;;9002226.02101,"1033,67228023506 ",.02)
 ;;67228023506
 ;;9002226.02101,"1033,67228028603 ",.01)
 ;;67228028603
 ;;9002226.02101,"1033,67228028603 ",.02)
 ;;67228028603
 ;;9002226.02101,"1033,67228028606 ",.01)
 ;;67228028606
 ;;9002226.02101,"1033,67228028606 ",.02)
 ;;67228028606
 ;;9002226.02101,"1033,67228029503 ",.01)
 ;;67228029503
 ;;9002226.02101,"1033,67228029503 ",.02)
 ;;67228029503
 ;;9002226.02101,"1033,67228029506 ",.01)
 ;;67228029506
 ;;9002226.02101,"1033,67228029506 ",.02)
 ;;67228029506
 ;;9002226.02101,"1033,67228032103 ",.01)
 ;;67228032103
 ;;9002226.02101,"1033,67228032103 ",.02)
 ;;67228032103
 ;;9002226.02101,"1033,67228032106 ",.01)
 ;;67228032106
 ;;9002226.02101,"1033,67228032106 ",.02)
 ;;67228032106
 ;;9002226.02101,"1033,67228036703 ",.01)
 ;;67228036703
 ;;9002226.02101,"1033,67228036703 ",.02)
 ;;67228036703
 ;;9002226.02101,"1033,67228036706 ",.01)
 ;;67228036706
 ;;9002226.02101,"1033,67228036706 ",.02)
 ;;67228036706
 ;;9002226.02101,"1033,67228037003 ",.01)
 ;;67228037003
 ;;9002226.02101,"1033,67228037003 ",.02)
 ;;67228037003
 ;;9002226.02101,"1033,67228037006 ",.01)
 ;;67228037006
 ;;9002226.02101,"1033,67228037006 ",.02)
 ;;67228037006
 ;;9002226.02101,"1033,67228037103 ",.01)
 ;;67228037103
 ;;9002226.02101,"1033,67228037103 ",.02)
 ;;67228037103
 ;;9002226.02101,"1033,67228037106 ",.01)
 ;;67228037106
 ;;9002226.02101,"1033,67228037106 ",.02)
 ;;67228037106
 ;;9002226.02101,"1033,67228037303 ",.01)
 ;;67228037303
 ;;9002226.02101,"1033,67228037303 ",.02)
 ;;67228037303
 ;;9002226.02101,"1033,67228037306 ",.01)
 ;;67228037306
 ;;9002226.02101,"1033,67228037306 ",.02)
 ;;67228037306
 ;;9002226.02101,"1033,67228037603 ",.01)
 ;;67228037603
 ;;9002226.02101,"1033,67228037603 ",.02)
 ;;67228037603
 ;;9002226.02101,"1033,67228037606 ",.01)
 ;;67228037606
 ;;9002226.02101,"1033,67228037606 ",.02)
 ;;67228037606
 ;;9002226.02101,"1033,67228043103 ",.01)
 ;;67228043103
 ;;9002226.02101,"1033,67228043103 ",.02)
 ;;67228043103
 ;;9002226.02101,"1033,67228043106 ",.01)
 ;;67228043106
 ;;9002226.02101,"1033,67228043106 ",.02)
 ;;67228043106
 ;;9002226.02101,"1033,67228044403 ",.01)
 ;;67228044403
 ;;9002226.02101,"1033,67228044403 ",.02)
 ;;67228044403
 ;;9002226.02101,"1033,67228044406 ",.01)
 ;;67228044406
 ;;9002226.02101,"1033,67228044406 ",.02)
 ;;67228044406
 ;;9002226.02101,"1033,67228045203 ",.01)
 ;;67228045203
 ;;9002226.02101,"1033,67228045203 ",.02)
 ;;67228045203
 ;;9002226.02101,"1033,67228045206 ",.01)
 ;;67228045206
 ;;9002226.02101,"1033,67228045206 ",.02)
 ;;67228045206
 ;;9002226.02101,"1033,67228046303 ",.01)
 ;;67228046303
 ;;9002226.02101,"1033,67228046303 ",.02)
 ;;67228046303
 ;;9002226.02101,"1033,67228046306 ",.01)
 ;;67228046306
 ;;9002226.02101,"1033,67228046306 ",.02)
 ;;67228046306
 ;;9002226.02101,"1033,67228046503 ",.01)
 ;;67228046503
 ;;9002226.02101,"1033,67228046503 ",.02)
 ;;67228046503
 ;;9002226.02101,"1033,67228046506 ",.01)
 ;;67228046506
 ;;9002226.02101,"1033,67228046506 ",.02)
 ;;67228046506
 ;;9002226.02101,"1033,67228047303 ",.01)
 ;;67228047303
 ;;9002226.02101,"1033,67228047303 ",.02)
 ;;67228047303
 ;;9002226.02101,"1033,67228047306 ",.01)
 ;;67228047306
 ;;9002226.02101,"1033,67228047306 ",.02)
 ;;67228047306
 ;;9002226.02101,"1033,67253000760 ",.01)
 ;;67253000760
 ;;9002226.02101,"1033,67253000760 ",.02)
 ;;67253000760
 ;;9002226.02101,"1033,67253000841 ",.01)
 ;;67253000841
 ;;9002226.02101,"1033,67253000841 ",.02)
 ;;67253000841
 ;;9002226.02101,"1033,67253000846 ",.01)
 ;;67253000846
 ;;9002226.02101,"1033,67253000846 ",.02)
 ;;67253000846
 ;;9002226.02101,"1033,67253000941 ",.01)
 ;;67253000941
 ;;9002226.02101,"1033,67253000941 ",.02)
 ;;67253000941
 ;;9002226.02101,"1033,67253000946 ",.01)
 ;;67253000946
 ;;9002226.02101,"1033,67253000946 ",.02)
 ;;67253000946
 ;;9002226.02101,"1033,67253010404 ",.01)
 ;;67253010404
 ;;9002226.02101,"1033,67253010404 ",.02)
 ;;67253010404
 ;;9002226.02101,"1033,67253010504 ",.01)
 ;;67253010504
 ;;9002226.02101,"1033,67253010504 ",.02)
 ;;67253010504
 ;;9002226.02101,"1033,67253014010 ",.01)
 ;;67253014010
 ;;9002226.02101,"1033,67253014010 ",.02)
 ;;67253014010
 ;;9002226.02101,"1033,67253014050 ",.01)
 ;;67253014050
 ;;9002226.02101,"1033,67253014050 ",.02)
 ;;67253014050
 ;;9002226.02101,"1033,67253014110 ",.01)
 ;;67253014110
 ;;9002226.02101,"1033,67253014110 ",.02)
 ;;67253014110
 ;;9002226.02101,"1033,67253014150 ",.01)
 ;;67253014150
 ;;9002226.02101,"1033,67253014150 ",.02)
 ;;67253014150
 ;;9002226.02101,"1033,67253014208 ",.01)
 ;;67253014208
 ;;9002226.02101,"1033,67253014208 ",.02)
 ;;67253014208
 ;;9002226.02101,"1033,67253014210 ",.01)
 ;;67253014210
 ;;9002226.02101,"1033,67253014210 ",.02)
 ;;67253014210
 ;;9002226.02101,"1033,67253014215 ",.01)
 ;;67253014215
 ;;9002226.02101,"1033,67253014215 ",.02)
 ;;67253014215
 ;;9002226.02101,"1033,67253014308 ",.01)
 ;;67253014308
 ;;9002226.02101,"1033,67253014308 ",.02)
 ;;67253014308
 ;;9002226.02101,"1033,67253014310 ",.01)
 ;;67253014310
 ;;9002226.02101,"1033,67253014310 ",.02)
 ;;67253014310
 ;;9002226.02101,"1033,67253014315 ",.01)
 ;;67253014315
 ;;9002226.02101,"1033,67253014315 ",.02)
 ;;67253014315
 ;;9002226.02101,"1033,67253014502 ",.01)
 ;;67253014502
 ;;9002226.02101,"1033,67253014502 ",.02)
 ;;67253014502
 ;;9002226.02101,"1033,67253014510 ",.01)
 ;;67253014510
 ;;9002226.02101,"1033,67253014510 ",.02)
 ;;67253014510
 ;;9002226.02101,"1033,67253014550 ",.01)
 ;;67253014550
 ;;9002226.02101,"1033,67253014550 ",.02)
 ;;67253014550
 ;;9002226.02101,"1033,67253018010 ",.01)
 ;;67253018010
 ;;9002226.02101,"1033,67253018010 ",.02)
 ;;67253018010
 ;;9002226.02101,"1033,67253018050 ",.01)
 ;;67253018050
 ;;9002226.02101,"1033,67253018050 ",.02)
 ;;67253018050
 ;;9002226.02101,"1033,67253018110 ",.01)
 ;;67253018110
 ;;9002226.02101,"1033,67253018110 ",.02)
 ;;67253018110
 ;;9002226.02101,"1033,67253018150 ",.01)
 ;;67253018150
 ;;9002226.02101,"1033,67253018150 ",.02)
 ;;67253018150
 ;;9002226.02101,"1033,67253018210 ",.01)
 ;;67253018210
 ;;9002226.02101,"1033,67253018210 ",.02)
 ;;67253018210
 ;;9002226.02101,"1033,67253018220 ",.01)
 ;;67253018220
 ;;9002226.02101,"1033,67253018220 ",.02)
 ;;67253018220
 ;;9002226.02101,"1033,67253018310 ",.01)
 ;;67253018310
 ;;9002226.02101,"1033,67253018310 ",.02)
 ;;67253018310
 ;;9002226.02101,"1033,67253018320 ",.01)
 ;;67253018320
 ;;9002226.02101,"1033,67253018320 ",.02)
 ;;67253018320
 ;;9002226.02101,"1033,67253020010 ",.01)
 ;;67253020010
 ;;9002226.02101,"1033,67253020010 ",.02)
 ;;67253020010
 ;;9002226.02101,"1033,67253020011 ",.01)
 ;;67253020011
 ;;9002226.02101,"1033,67253020011 ",.02)
 ;;67253020011
 ;;9002226.02101,"1033,67253020110 ",.01)
 ;;67253020110
 ;;9002226.02101,"1033,67253020110 ",.02)
 ;;67253020110
 ;;9002226.02101,"1033,67253020150 ",.01)
 ;;67253020150
 ;;9002226.02101,"1033,67253020150 ",.02)
 ;;67253020150
 ;;9002226.02101,"1033,67253020210 ",.01)
 ;;67253020210
 ;;9002226.02101,"1033,67253020210 ",.02)
 ;;67253020210
 ;;9002226.02101,"1033,67253020220 ",.01)
 ;;67253020220
 ;;9002226.02101,"1033,67253020220 ",.02)
 ;;67253020220
 ;;9002226.02101,"1033,67253020310 ",.01)
 ;;67253020310
 ;;9002226.02101,"1033,67253020310 ",.02)
 ;;67253020310
 ;;9002226.02101,"1033,67253020320 ",.01)
 ;;67253020320
 ;;9002226.02101,"1033,67253020320 ",.02)
 ;;67253020320
 ;;9002226.02101,"1033,67253022010 ",.01)
 ;;67253022010