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.
  1. BGPM5BCU ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"1044,55111054690 ",.01)
  1. ;;55111054690
  1. ;;9002226.02101,"1044,55111054690 ",.02)
  1. ;;55111054690
  1. ;;9002226.02101,"1044,55111054701 ",.01)
  1. ;;55111054701
  1. ;;9002226.02101,"1044,55111054701 ",.02)
  1. ;;55111054701
  1. ;;9002226.02101,"1044,55111054705 ",.01)
  1. ;;55111054705
  1. ;;9002226.02101,"1044,55111054705 ",.02)
  1. ;;55111054705
  1. ;;9002226.02101,"1044,55111054730 ",.01)
  1. ;;55111054730
  1. ;;9002226.02101,"1044,55111054730 ",.02)
  1. ;;55111054730
  1. ;;9002226.02101,"1044,55111054760 ",.01)
  1. ;;55111054760
  1. ;;9002226.02101,"1044,55111054760 ",.02)
  1. ;;55111054760
  1. ;;9002226.02101,"1044,55111054779 ",.01)
  1. ;;55111054779
  1. ;;9002226.02101,"1044,55111054779 ",.02)
  1. ;;55111054779
  1. ;;9002226.02101,"1044,55111054790 ",.01)
  1. ;;55111054790
  1. ;;9002226.02101,"1044,55111054790 ",.02)
  1. ;;55111054790
  1. ;;9002226.02101,"1044,55111054801 ",.01)
  1. ;;55111054801
  1. ;;9002226.02101,"1044,55111054801 ",.02)
  1. ;;55111054801
  1. ;;9002226.02101,"1044,55111054805 ",.01)
  1. ;;55111054805
  1. ;;9002226.02101,"1044,55111054805 ",.02)
  1. ;;55111054805
  1. ;;9002226.02101,"1044,55111054830 ",.01)
  1. ;;55111054830
  1. ;;9002226.02101,"1044,55111054830 ",.02)
  1. ;;55111054830
  1. ;;9002226.02101,"1044,55111054860 ",.01)
  1. ;;55111054860
  1. ;;9002226.02101,"1044,55111054860 ",.02)
  1. ;;55111054860
  1. ;;9002226.02101,"1044,55111054879 ",.01)
  1. ;;55111054879
  1. ;;9002226.02101,"1044,55111054879 ",.02)
  1. ;;55111054879
  1. ;;9002226.02101,"1044,55111054890 ",.01)
  1. ;;55111054890
  1. ;;9002226.02101,"1044,55111054890 ",.02)
  1. ;;55111054890
  1. ;;9002226.02101,"1044,55111054901 ",.01)
  1. ;;55111054901
  1. ;;9002226.02101,"1044,55111054901 ",.02)
  1. ;;55111054901
  1. ;;9002226.02101,"1044,55111054905 ",.01)
  1. ;;55111054905
  1. ;;9002226.02101,"1044,55111054905 ",.02)
  1. ;;55111054905
  1. ;;9002226.02101,"1044,55111054930 ",.01)
  1. ;;55111054930
  1. ;;9002226.02101,"1044,55111054930 ",.02)
  1. ;;55111054930
  1. ;;9002226.02101,"1044,55111054960 ",.01)
  1. ;;55111054960
  1. ;;9002226.02101,"1044,55111054960 ",.02)
  1. ;;55111054960
  1. ;;9002226.02101,"1044,55111054979 ",.01)
  1. ;;55111054979
  1. ;;9002226.02101,"1044,55111054979 ",.02)
  1. ;;55111054979
  1. ;;9002226.02101,"1044,55111054990 ",.01)
  1. ;;55111054990
  1. ;;9002226.02101,"1044,55111054990 ",.02)
  1. ;;55111054990
  1. ;;9002226.02101,"1044,55154052700 ",.01)
  1. ;;55154052700
  1. ;;9002226.02101,"1044,55154052700 ",.02)
  1. ;;55154052700
  1. ;;9002226.02101,"1044,55154053003 ",.01)
  1. ;;55154053003
  1. ;;9002226.02101,"1044,55154053003 ",.02)
  1. ;;55154053003
  1. ;;9002226.02101,"1044,55154053103 ",.01)
  1. ;;55154053103
  1. ;;9002226.02101,"1044,55154053103 ",.02)
  1. ;;55154053103
  1. ;;9002226.02101,"1044,55154053200 ",.01)
  1. ;;55154053200
  1. ;;9002226.02101,"1044,55154053200 ",.02)
  1. ;;55154053200
  1. ;;9002226.02101,"1044,55154065900 ",.01)
  1. ;;55154065900
  1. ;;9002226.02101,"1044,55154065900 ",.02)
  1. ;;55154065900
  1. ;;9002226.02101,"1044,55154065907 ",.01)
  1. ;;55154065907
  1. ;;9002226.02101,"1044,55154065907 ",.02)
  1. ;;55154065907
  1. ;;9002226.02101,"1044,55154067300 ",.01)
  1. ;;55154067300
  1. ;;9002226.02101,"1044,55154067300 ",.02)
  1. ;;55154067300
  1. ;;9002226.02101,"1044,55154068800 ",.01)
  1. ;;55154068800
  1. ;;9002226.02101,"1044,55154068800 ",.02)
  1. ;;55154068800
  1. ;;9002226.02101,"1044,55154073600 ",.01)
  1. ;;55154073600
  1. ;;9002226.02101,"1044,55154073600 ",.02)
  1. ;;55154073600
  1. ;;9002226.02101,"1044,55154102509 ",.01)
  1. ;;55154102509
  1. ;;9002226.02101,"1044,55154102509 ",.02)
  1. ;;55154102509
  1. ;;9002226.02101,"1044,55154102609 ",.01)
  1. ;;55154102609
  1. ;;9002226.02101,"1044,55154102609 ",.02)
  1. ;;55154102609
  1. ;;9002226.02101,"1044,55154102709 ",.01)
  1. ;;55154102709
  1. ;;9002226.02101,"1044,55154102709 ",.02)
  1. ;;55154102709
  1. ;;9002226.02101,"1044,55154139000 ",.01)
  1. ;;55154139000
  1. ;;9002226.02101,"1044,55154139000 ",.02)
  1. ;;55154139000
  1. ;;9002226.02101,"1044,55154139100 ",.01)
  1. ;;55154139100
  1. ;;9002226.02101,"1044,55154139100 ",.02)
  1. ;;55154139100
  1. ;;9002226.02101,"1044,55154140607 ",.01)
  1. ;;55154140607
  1. ;;9002226.02101,"1044,55154140607 ",.02)
  1. ;;55154140607
  1. ;;9002226.02101,"1044,55154455209 ",.01)
  1. ;;55154455209
  1. ;;9002226.02101,"1044,55154455209 ",.02)
  1. ;;55154455209
  1. ;;9002226.02101,"1044,55154455909 ",.01)
  1. ;;55154455909
  1. ;;9002226.02101,"1044,55154455909 ",.02)
  1. ;;55154455909
  1. ;;9002226.02101,"1044,55154506600 ",.01)
  1. ;;55154506600
  1. ;;9002226.02101,"1044,55154506600 ",.02)
  1. ;;55154506600
  1. ;;9002226.02101,"1044,55154508700 ",.01)
  1. ;;55154508700
  1. ;;9002226.02101,"1044,55154508700 ",.02)
  1. ;;55154508700
  1. ;;9002226.02101,"1044,55154535300 ",.01)
  1. ;;55154535300
  1. ;;9002226.02101,"1044,55154535300 ",.02)
  1. ;;55154535300
  1. ;;9002226.02101,"1044,55154535500 ",.01)
  1. ;;55154535500
  1. ;;9002226.02101,"1044,55154535500 ",.02)
  1. ;;55154535500
  1. ;;9002226.02101,"1044,55154545900 ",.01)
  1. ;;55154545900
  1. ;;9002226.02101,"1044,55154545900 ",.02)
  1. ;;55154545900
  1. ;;9002226.02101,"1044,55154546700 ",.01)
  1. ;;55154546700
  1. ;;9002226.02101,"1044,55154546700 ",.02)
  1. ;;55154546700
  1. ;;9002226.02101,"1044,55154549500 ",.01)
  1. ;;55154549500
  1. ;;9002226.02101,"1044,55154549500 ",.02)
  1. ;;55154549500
  1. ;;9002226.02101,"1044,55154566500 ",.01)
  1. ;;55154566500
  1. ;;9002226.02101,"1044,55154566500 ",.02)
  1. ;;55154566500
  1. ;;9002226.02101,"1044,55154568000 ",.01)
  1. ;;55154568000
  1. ;;9002226.02101,"1044,55154568000 ",.02)
  1. ;;55154568000
  1. ;;9002226.02101,"1044,55154575409 ",.01)
  1. ;;55154575409
  1. ;;9002226.02101,"1044,55154575409 ",.02)
  1. ;;55154575409
  1. ;;9002226.02101,"1044,55154576109 ",.01)
  1. ;;55154576109
  1. ;;9002226.02101,"1044,55154576109 ",.02)
  1. ;;55154576109
  1. ;;9002226.02101,"1044,55154576204 ",.01)
  1. ;;55154576204
  1. ;;9002226.02101,"1044,55154576204 ",.02)
  1. ;;55154576204
  1. ;;9002226.02101,"1044,55154576206 ",.01)
  1. ;;55154576206
  1. ;;9002226.02101,"1044,55154576206 ",.02)
  1. ;;55154576206
  1. ;;9002226.02101,"1044,55154576309 ",.01)
  1. ;;55154576309
  1. ;;9002226.02101,"1044,55154576309 ",.02)
  1. ;;55154576309
  1. ;;9002226.02101,"1044,55154580907 ",.01)
  1. ;;55154580907
  1. ;;9002226.02101,"1044,55154580907 ",.02)
  1. ;;55154580907
  1. ;;9002226.02101,"1044,55154581407 ",.01)
  1. ;;55154581407
  1. ;;9002226.02101,"1044,55154581407 ",.02)
  1. ;;55154581407
  1. ;;9002226.02101,"1044,55154583900 ",.01)
  1. ;;55154583900
  1. ;;9002226.02101,"1044,55154583900 ",.02)
  1. ;;55154583900
  1. ;;9002226.02101,"1044,55154602709 ",.01)
  1. ;;55154602709
  1. ;;9002226.02101,"1044,55154602709 ",.02)
  1. ;;55154602709
  1. ;;9002226.02101,"1044,55154616500 ",.01)
  1. ;;55154616500
  1. ;;9002226.02101,"1044,55154616500 ",.02)
  1. ;;55154616500
  1. ;;9002226.02101,"1044,55154616700 ",.01)
  1. ;;55154616700
  1. ;;9002226.02101,"1044,55154616700 ",.02)
  1. ;;55154616700
  1. ;;9002226.02101,"1044,55154617500 ",.01)
  1. ;;55154617500
  1. ;;9002226.02101,"1044,55154617500 ",.02)
  1. ;;55154617500
  1. ;;9002226.02101,"1044,55154619900 ",.01)
  1. ;;55154619900
  1. ;;9002226.02101,"1044,55154619900 ",.02)
  1. ;;55154619900
  1. ;;9002226.02101,"1044,55154622003 ",.01)
  1. ;;55154622003
  1. ;;9002226.02101,"1044,55154622003 ",.02)
  1. ;;55154622003
  1. ;;9002226.02101,"1044,55154622103 ",.01)
  1. ;;55154622103
  1. ;;9002226.02101,"1044,55154622103 ",.02)
  1. ;;55154622103
  1. ;;9002226.02101,"1044,55154624009 ",.01)
  1. ;;55154624009
  1. ;;9002226.02101,"1044,55154624009 ",.02)
  1. ;;55154624009
  1. ;;9002226.02101,"1044,55154624109 ",.01)
  1. ;;55154624109
  1. ;;9002226.02101,"1044,55154624109 ",.02)
  1. ;;55154624109
  1. ;;9002226.02101,"1044,55154632500 ",.01)
  1. ;;55154632500
  1. ;;9002226.02101,"1044,55154632500 ",.02)
  1. ;;55154632500
  1. ;;9002226.02101,"1044,55154634609 ",.01)
  1. ;;55154634609
  1. ;;9002226.02101,"1044,55154634609 ",.02)
  1. ;;55154634609
  1. ;;9002226.02101,"1044,55154666000 ",.01)
  1. ;;55154666000
  1. ;;9002226.02101,"1044,55154666000 ",.02)
  1. ;;55154666000
  1. ;;9002226.02101,"1044,55154666100 ",.01)
  1. ;;55154666100
  1. ;;9002226.02101,"1044,55154666100 ",.02)
  1. ;;55154666100
  1. ;;9002226.02101,"1044,55154725100 ",.01)
  1. ;;55154725100
  1. ;;9002226.02101,"1044,55154725100 ",.02)
  1. ;;55154725100
  1. ;;9002226.02101,"1044,55154725107 ",.01)
  1. ;;55154725107
  1. ;;9002226.02101,"1044,55154725107 ",.02)
  1. ;;55154725107
  1. ;;9002226.02101,"1044,55154825600 ",.01)
  1. ;;55154825600
  1. ;;9002226.02101,"1044,55154825600 ",.02)
  1. ;;55154825600
  1. ;;9002226.02101,"1044,55154825604 ",.01)
  1. ;;55154825604
  1. ;;9002226.02101,"1044,55154825604 ",.02)
  1. ;;55154825604
  1. ;;9002226.02101,"1044,55154825606 ",.01)
  1. ;;55154825606
  1. ;;9002226.02101,"1044,55154825606 ",.02)
  1. ;;55154825606
  1. ;;9002226.02101,"1044,55154826209 ",.01)
  1. ;;55154826209
  1. ;;9002226.02101,"1044,55154826209 ",.02)
  1. ;;55154826209
  1. ;;9002226.02101,"1044,55154826309 ",.01)
  1. ;;55154826309
  1. ;;9002226.02101,"1044,55154826309 ",.02)
  1. ;;55154826309
  1. ;;9002226.02101,"1044,55154826509 ",.01)
  1. ;;55154826509
  1. ;;9002226.02101,"1044,55154826509 ",.02)
  1. ;;55154826509
  1. ;;9002226.02101,"1044,55154826600 ",.01)
  1. ;;55154826600
  1. ;;9002226.02101,"1044,55154826600 ",.02)
  1. ;;55154826600
  1. ;;9002226.02101,"1044,55154826609 ",.01)
  1. ;;55154826609
  1. ;;9002226.02101,"1044,55154826609 ",.02)
  1. ;;55154826609
  1. ;;9002226.02101,"1044,55154826700 ",.01)
  1. ;;55154826700
  1. ;;9002226.02101,"1044,55154826700 ",.02)
  1. ;;55154826700
  1. ;;9002226.02101,"1044,55154826709 ",.01)
  1. ;;55154826709
  1. ;;9002226.02101,"1044,55154826709 ",.02)
  1. ;;55154826709
  1. ;;9002226.02101,"1044,55154826809 ",.01)
  1. ;;55154826809
  1. ;;9002226.02101,"1044,55154826809 ",.02)
  1. ;;55154826809
  1. ;;9002226.02101,"1044,55154826900 ",.01)
  1. ;;55154826900
  1. ;;9002226.02101,"1044,55154826900 ",.02)
  1. ;;55154826900
  1. ;;9002226.02101,"1044,55154826909 ",.01)
  1. ;;55154826909
  1. ;;9002226.02101,"1044,55154826909 ",.02)
  1. ;;55154826909
  1. ;;9002226.02101,"1044,55154827109 ",.01)
  1. ;;55154827109
  1. ;;9002226.02101,"1044,55154827109 ",.02)
  1. ;;55154827109
  1. ;;9002226.02101,"1044,55160011401 ",.01)
  1. ;;55160011401
  1. ;;9002226.02101,"1044,55160011401 ",.02)
  1. ;;55160011401
  1. ;;9002226.02101,"1044,55160011501 ",.01)
  1. ;;55160011501
  1. ;;9002226.02101,"1044,55160011501 ",.02)
  1. ;;55160011501
  1. ;;9002226.02101,"1044,55160011601 ",.01)
  1. ;;55160011601
  1. ;;9002226.02101,"1044,55160011601 ",.02)
  1. ;;55160011601
  1. ;;9002226.02101,"1044,55160011701 ",.01)
  1. ;;55160011701
  1. ;;9002226.02101,"1044,55160011701 ",.02)
  1. ;;55160011701
  1. ;;9002226.02101,"1044,55289001630 ",.01)
  1. ;;55289001630
  1. ;;9002226.02101,"1044,55289001630 ",.02)
  1. ;;55289001630
  1. ;;9002226.02101,"1044,55289001660 ",.01)
  1. ;;55289001660
  1. ;;9002226.02101,"1044,55289001660 ",.02)
  1. ;;55289001660
  1. ;;9002226.02101,"1044,55289003745 ",.01)
  1. ;;55289003745
  1. ;;9002226.02101,"1044,55289003745 ",.02)
  1. ;;55289003745
  1. ;;9002226.02101,"1044,55289003790 ",.01)
  1. ;;55289003790
  1. ;;9002226.02101,"1044,55289003790 ",.02)
  1. ;;55289003790
  1. ;;9002226.02101,"1044,55289005345 ",.01)
  1. ;;55289005345
  1. ;;9002226.02101,"1044,55289005345 ",.02)
  1. ;;55289005345
  1. ;;9002226.02101,"1044,55289005390 ",.01)
  1. ;;55289005390
  1. ;;9002226.02101,"1044,55289005390 ",.02)
  1. ;;55289005390
  1. ;;9002226.02101,"1044,55289006014 ",.01)
  1. ;;55289006014
  1. ;;9002226.02101,"1044,55289006014 ",.02)
  1. ;;55289006014
  1. ;;9002226.02101,"1044,55289006407 ",.01)
  1. ;;55289006407
  1. ;;9002226.02101,"1044,55289006407 ",.02)
  1. ;;55289006407
  1. ;;9002226.02101,"1044,55289006414 ",.01)
  1. ;;55289006414
  1. ;;9002226.02101,"1044,55289006414 ",.02)
  1. ;;55289006414
  1. ;;9002226.02101,"1044,55289006430 ",.01)
  1. ;;55289006430
  1. ;;9002226.02101,"1044,55289006430 ",.02)
  1. ;;55289006430
  1. ;;9002226.02101,"1044,55289006460 ",.01)
  1. ;;55289006460
  1. ;;9002226.02101,"1044,55289006460 ",.02)
  1. ;;55289006460
  1. ;;9002226.02101,"1044,55289006490 ",.01)
  1. ;;55289006490
  1. ;;9002226.02101,"1044,55289006490 ",.02)
  1. ;;55289006490
  1. ;;9002226.02101,"1044,55289009930 ",.01)
  1. ;;55289009930
  1. ;;9002226.02101,"1044,55289009930 ",.02)
  1. ;;55289009930
  1. ;;9002226.02101,"1044,55289009950 ",.01)
  1. ;;55289009950
  1. ;;9002226.02101,"1044,55289009950 ",.02)
  1. ;;55289009950
  1. ;;9002226.02101,"1044,55289012412 ",.01)
  1. ;;55289012412