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

BGPM5BBK.m

Go to the documentation of this file.
  1. BGPM5BBK ;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,00179179770 ",.02)
  1. ;;00179179770
  1. ;;9002226.02101,"1044,00179179771 ",.01)
  1. ;;00179179771
  1. ;;9002226.02101,"1044,00179179771 ",.02)
  1. ;;00179179771
  1. ;;9002226.02101,"1044,00179179772 ",.01)
  1. ;;00179179772
  1. ;;9002226.02101,"1044,00179179772 ",.02)
  1. ;;00179179772
  1. ;;9002226.02101,"1044,00179188070 ",.01)
  1. ;;00179188070
  1. ;;9002226.02101,"1044,00179188070 ",.02)
  1. ;;00179188070
  1. ;;9002226.02101,"1044,00179188071 ",.01)
  1. ;;00179188071
  1. ;;9002226.02101,"1044,00179188071 ",.02)
  1. ;;00179188071
  1. ;;9002226.02101,"1044,00179188072 ",.01)
  1. ;;00179188072
  1. ;;9002226.02101,"1044,00179188072 ",.02)
  1. ;;00179188072
  1. ;;9002226.02101,"1044,00179191070 ",.01)
  1. ;;00179191070
  1. ;;9002226.02101,"1044,00179191070 ",.02)
  1. ;;00179191070
  1. ;;9002226.02101,"1044,00179191071 ",.01)
  1. ;;00179191071
  1. ;;9002226.02101,"1044,00179191071 ",.02)
  1. ;;00179191071
  1. ;;9002226.02101,"1044,00179191072 ",.01)
  1. ;;00179191072
  1. ;;9002226.02101,"1044,00179191072 ",.02)
  1. ;;00179191072
  1. ;;9002226.02101,"1044,00179191670 ",.01)
  1. ;;00179191670
  1. ;;9002226.02101,"1044,00179191670 ",.02)
  1. ;;00179191670
  1. ;;9002226.02101,"1044,00179191671 ",.01)
  1. ;;00179191671
  1. ;;9002226.02101,"1044,00179191671 ",.02)
  1. ;;00179191671
  1. ;;9002226.02101,"1044,00179191672 ",.01)
  1. ;;00179191672
  1. ;;9002226.02101,"1044,00179191672 ",.02)
  1. ;;00179191672
  1. ;;9002226.02101,"1044,00179191770 ",.01)
  1. ;;00179191770
  1. ;;9002226.02101,"1044,00179191770 ",.02)
  1. ;;00179191770
  1. ;;9002226.02101,"1044,00179191771 ",.01)
  1. ;;00179191771
  1. ;;9002226.02101,"1044,00179191771 ",.02)
  1. ;;00179191771
  1. ;;9002226.02101,"1044,00179191772 ",.01)
  1. ;;00179191772
  1. ;;9002226.02101,"1044,00179191772 ",.02)
  1. ;;00179191772
  1. ;;9002226.02101,"1044,00179192770 ",.01)
  1. ;;00179192770
  1. ;;9002226.02101,"1044,00179192770 ",.02)
  1. ;;00179192770
  1. ;;9002226.02101,"1044,00179192771 ",.01)
  1. ;;00179192771
  1. ;;9002226.02101,"1044,00179192771 ",.02)
  1. ;;00179192771
  1. ;;9002226.02101,"1044,00179192772 ",.01)
  1. ;;00179192772
  1. ;;9002226.02101,"1044,00179192772 ",.02)
  1. ;;00179192772
  1. ;;9002226.02101,"1044,00182125900 ",.01)
  1. ;;00182125900
  1. ;;9002226.02101,"1044,00182125900 ",.02)
  1. ;;00182125900
  1. ;;9002226.02101,"1044,00182125989 ",.01)
  1. ;;00182125989
  1. ;;9002226.02101,"1044,00182125989 ",.02)
  1. ;;00182125989
  1. ;;9002226.02101,"1044,00182126000 ",.01)
  1. ;;00182126000
  1. ;;9002226.02101,"1044,00182126000 ",.02)
  1. ;;00182126000
  1. ;;9002226.02101,"1044,00182126089 ",.01)
  1. ;;00182126089
  1. ;;9002226.02101,"1044,00182126089 ",.02)
  1. ;;00182126089
  1. ;;9002226.02101,"1044,00185001701 ",.01)
  1. ;;00185001701
  1. ;;9002226.02101,"1044,00185001701 ",.02)
  1. ;;00185001701
  1. ;;9002226.02101,"1044,00185001730 ",.01)
  1. ;;00185001730
  1. ;;9002226.02101,"1044,00185001730 ",.02)
  1. ;;00185001730
  1. ;;9002226.02101,"1044,00185002001 ",.01)
  1. ;;00185002001
  1. ;;9002226.02101,"1044,00185002001 ",.02)
  1. ;;00185002001
  1. ;;9002226.02101,"1044,00185002005 ",.01)
  1. ;;00185002005
  1. ;;9002226.02101,"1044,00185002005 ",.02)
  1. ;;00185002005
  1. ;;9002226.02101,"1044,00185002010 ",.01)
  1. ;;00185002010
  1. ;;9002226.02101,"1044,00185002010 ",.02)
  1. ;;00185002010
  1. ;;9002226.02101,"1044,00185002030 ",.01)
  1. ;;00185002030
  1. ;;9002226.02101,"1044,00185002030 ",.02)
  1. ;;00185002030
  1. ;;9002226.02101,"1044,00185002701 ",.01)
  1. ;;00185002701
  1. ;;9002226.02101,"1044,00185002701 ",.02)
  1. ;;00185002701
  1. ;;9002226.02101,"1044,00185002705 ",.01)
  1. ;;00185002705
  1. ;;9002226.02101,"1044,00185002705 ",.02)
  1. ;;00185002705
  1. ;;9002226.02101,"1044,00185002730 ",.01)
  1. ;;00185002730
  1. ;;9002226.02101,"1044,00185002730 ",.02)
  1. ;;00185002730
  1. ;;9002226.02101,"1044,00185005701 ",.01)
  1. ;;00185005701
  1. ;;9002226.02101,"1044,00185005701 ",.02)
  1. ;;00185005701
  1. ;;9002226.02101,"1044,00185005710 ",.01)
  1. ;;00185005710
  1. ;;9002226.02101,"1044,00185005710 ",.02)
  1. ;;00185005710
  1. ;;9002226.02101,"1044,00185005730 ",.01)
  1. ;;00185005730
  1. ;;9002226.02101,"1044,00185005730 ",.02)
  1. ;;00185005730
  1. ;;9002226.02101,"1044,00185005750 ",.01)
  1. ;;00185005750
  1. ;;9002226.02101,"1044,00185005750 ",.02)
  1. ;;00185005750
  1. ;;9002226.02101,"1044,00185005753 ",.01)
  1. ;;00185005753
  1. ;;9002226.02101,"1044,00185005753 ",.02)
  1. ;;00185005753
  1. ;;9002226.02101,"1044,00185008001 ",.01)
  1. ;;00185008001
  1. ;;9002226.02101,"1044,00185008001 ",.02)
  1. ;;00185008001
  1. ;;9002226.02101,"1044,00185008010 ",.01)
  1. ;;00185008010
  1. ;;9002226.02101,"1044,00185008010 ",.02)
  1. ;;00185008010
  1. ;;9002226.02101,"1044,00185008022 ",.01)
  1. ;;00185008022
  1. ;;9002226.02101,"1044,00185008022 ",.02)
  1. ;;00185008022
  1. ;;9002226.02101,"1044,00185008030 ",.01)
  1. ;;00185008030
  1. ;;9002226.02101,"1044,00185008030 ",.02)
  1. ;;00185008030
  1. ;;9002226.02101,"1044,00185008088 ",.01)
  1. ;;00185008088
  1. ;;9002226.02101,"1044,00185008088 ",.02)
  1. ;;00185008088
  1. ;;9002226.02101,"1044,00185008501 ",.01)
  1. ;;00185008501
  1. ;;9002226.02101,"1044,00185008501 ",.02)
  1. ;;00185008501
  1. ;;9002226.02101,"1044,00185008510 ",.01)
  1. ;;00185008510
  1. ;;9002226.02101,"1044,00185008510 ",.02)
  1. ;;00185008510
  1. ;;9002226.02101,"1044,00185008522 ",.01)
  1. ;;00185008522
  1. ;;9002226.02101,"1044,00185008522 ",.02)
  1. ;;00185008522
  1. ;;9002226.02101,"1044,00185008530 ",.01)
  1. ;;00185008530
  1. ;;9002226.02101,"1044,00185008530 ",.02)
  1. ;;00185008530
  1. ;;9002226.02101,"1044,00185008588 ",.01)
  1. ;;00185008588
  1. ;;9002226.02101,"1044,00185008588 ",.02)
  1. ;;00185008588
  1. ;;9002226.02101,"1044,00185015301 ",.01)
  1. ;;00185015301
  1. ;;9002226.02101,"1044,00185015301 ",.02)
  1. ;;00185015301
  1. ;;9002226.02101,"1044,00185015310 ",.01)
  1. ;;00185015310
  1. ;;9002226.02101,"1044,00185015310 ",.02)
  1. ;;00185015310
  1. ;;9002226.02101,"1044,00185015330 ",.01)
  1. ;;00185015330
  1. ;;9002226.02101,"1044,00185015330 ",.02)
  1. ;;00185015330
  1. ;;9002226.02101,"1044,00185015350 ",.01)
  1. ;;00185015350
  1. ;;9002226.02101,"1044,00185015350 ",.02)
  1. ;;00185015350
  1. ;;9002226.02101,"1044,00185015701 ",.01)
  1. ;;00185015701
  1. ;;9002226.02101,"1044,00185015701 ",.02)
  1. ;;00185015701
  1. ;;9002226.02101,"1044,00185015705 ",.01)
  1. ;;00185015705
  1. ;;9002226.02101,"1044,00185015705 ",.02)
  1. ;;00185015705
  1. ;;9002226.02101,"1044,00185015730 ",.01)
  1. ;;00185015730
  1. ;;9002226.02101,"1044,00185015730 ",.02)
  1. ;;00185015730
  1. ;;9002226.02101,"1044,00185021201 ",.01)
  1. ;;00185021201
  1. ;;9002226.02101,"1044,00185021201 ",.02)
  1. ;;00185021201
  1. ;;9002226.02101,"1044,00185021205 ",.01)
  1. ;;00185021205
  1. ;;9002226.02101,"1044,00185021205 ",.02)
  1. ;;00185021205
  1. ;;9002226.02101,"1044,00185021210 ",.01)
  1. ;;00185021210
  1. ;;9002226.02101,"1044,00185021210 ",.02)
  1. ;;00185021210
  1. ;;9002226.02101,"1044,00185021230 ",.01)
  1. ;;00185021230
  1. ;;9002226.02101,"1044,00185021230 ",.02)
  1. ;;00185021230
  1. ;;9002226.02101,"1044,00185022201 ",.01)
  1. ;;00185022201
  1. ;;9002226.02101,"1044,00185022201 ",.02)
  1. ;;00185022201
  1. ;;9002226.02101,"1044,00185022205 ",.01)
  1. ;;00185022205
  1. ;;9002226.02101,"1044,00185022205 ",.02)
  1. ;;00185022205
  1. ;;9002226.02101,"1044,00185022210 ",.01)
  1. ;;00185022210
  1. ;;9002226.02101,"1044,00185022210 ",.02)
  1. ;;00185022210
  1. ;;9002226.02101,"1044,00185022230 ",.01)
  1. ;;00185022230
  1. ;;9002226.02101,"1044,00185022230 ",.02)
  1. ;;00185022230
  1. ;;9002226.02101,"1044,00185026501 ",.01)
  1. ;;00185026501
  1. ;;9002226.02101,"1044,00185026501 ",.02)
  1. ;;00185026501
  1. ;;9002226.02101,"1044,00185026510 ",.01)
  1. ;;00185026510
  1. ;;9002226.02101,"1044,00185026510 ",.02)
  1. ;;00185026510
  1. ;;9002226.02101,"1044,00185026530 ",.01)
  1. ;;00185026530
  1. ;;9002226.02101,"1044,00185026530 ",.02)
  1. ;;00185026530
  1. ;;9002226.02101,"1044,00185026550 ",.01)
  1. ;;00185026550
  1. ;;9002226.02101,"1044,00185026550 ",.02)
  1. ;;00185026550
  1. ;;9002226.02101,"1044,00185037101 ",.01)
  1. ;;00185037101
  1. ;;9002226.02101,"1044,00185037101 ",.02)
  1. ;;00185037101
  1. ;;9002226.02101,"1044,00185037110 ",.01)
  1. ;;00185037110
  1. ;;9002226.02101,"1044,00185037110 ",.02)
  1. ;;00185037110
  1. ;;9002226.02101,"1044,00185037201 ",.01)
  1. ;;00185037201
  1. ;;9002226.02101,"1044,00185037201 ",.02)
  1. ;;00185037201
  1. ;;9002226.02101,"1044,00185037205 ",.01)
  1. ;;00185037205
  1. ;;9002226.02101,"1044,00185037205 ",.02)
  1. ;;00185037205
  1. ;;9002226.02101,"1044,00185037210 ",.01)
  1. ;;00185037210
  1. ;;9002226.02101,"1044,00185037210 ",.02)
  1. ;;00185037210
  1. ;;9002226.02101,"1044,00185037301 ",.01)
  1. ;;00185037301
  1. ;;9002226.02101,"1044,00185037301 ",.02)
  1. ;;00185037301
  1. ;;9002226.02101,"1044,00185037305 ",.01)
  1. ;;00185037305
  1. ;;9002226.02101,"1044,00185037305 ",.02)
  1. ;;00185037305
  1. ;;9002226.02101,"1044,00185037310 ",.01)
  1. ;;00185037310
  1. ;;9002226.02101,"1044,00185037310 ",.02)
  1. ;;00185037310
  1. ;;9002226.02101,"1044,00228272103 ",.01)
  1. ;;00228272103
  1. ;;9002226.02101,"1044,00228272103 ",.02)
  1. ;;00228272103
  1. ;;9002226.02101,"1044,00228272109 ",.01)
  1. ;;00228272109
  1. ;;9002226.02101,"1044,00228272109 ",.02)
  1. ;;00228272109
  1. ;;9002226.02101,"1044,00228272150 ",.01)
  1. ;;00228272150
  1. ;;9002226.02101,"1044,00228272150 ",.02)
  1. ;;00228272150
  1. ;;9002226.02101,"1044,00228272203 ",.01)
  1. ;;00228272203
  1. ;;9002226.02101,"1044,00228272203 ",.02)
  1. ;;00228272203
  1. ;;9002226.02101,"1044,00228272209 ",.01)
  1. ;;00228272209
  1. ;;9002226.02101,"1044,00228272209 ",.02)
  1. ;;00228272209
  1. ;;9002226.02101,"1044,00228272290 ",.01)
  1. ;;00228272290
  1. ;;9002226.02101,"1044,00228272290 ",.02)
  1. ;;00228272290
  1. ;;9002226.02101,"1044,00228272303 ",.01)
  1. ;;00228272303
  1. ;;9002226.02101,"1044,00228272303 ",.02)
  1. ;;00228272303
  1. ;;9002226.02101,"1044,00228272309 ",.01)
  1. ;;00228272309
  1. ;;9002226.02101,"1044,00228272309 ",.02)
  1. ;;00228272309
  1. ;;9002226.02101,"1044,00228272396 ",.01)
  1. ;;00228272396
  1. ;;9002226.02101,"1044,00228272396 ",.02)
  1. ;;00228272396
  1. ;;9002226.02101,"1044,00228275511 ",.01)
  1. ;;00228275511
  1. ;;9002226.02101,"1044,00228275511 ",.02)
  1. ;;00228275511
  1. ;;9002226.02101,"1044,00228275550 ",.01)
  1. ;;00228275550
  1. ;;9002226.02101,"1044,00228275550 ",.02)
  1. ;;00228275550
  1. ;;9002226.02101,"1044,00228275596 ",.01)
  1. ;;00228275596
  1. ;;9002226.02101,"1044,00228275596 ",.02)
  1. ;;00228275596
  1. ;;9002226.02101,"1044,00228275611 ",.01)
  1. ;;00228275611
  1. ;;9002226.02101,"1044,00228275611 ",.02)
  1. ;;00228275611
  1. ;;9002226.02101,"1044,00228275650 ",.01)
  1. ;;00228275650
  1. ;;9002226.02101,"1044,00228275650 ",.02)
  1. ;;00228275650
  1. ;;9002226.02101,"1044,00228275696 ",.01)
  1. ;;00228275696
  1. ;;9002226.02101,"1044,00228275696 ",.02)
  1. ;;00228275696
  1. ;;9002226.02101,"1044,00228275711 ",.01)
  1. ;;00228275711
  1. ;;9002226.02101,"1044,00228275711 ",.02)
  1. ;;00228275711
  1. ;;9002226.02101,"1044,00228275750 ",.01)
  1. ;;00228275750
  1. ;;9002226.02101,"1044,00228275750 ",.02)
  1. ;;00228275750
  1. ;;9002226.02101,"1044,00228275796 ",.01)
  1. ;;00228275796
  1. ;;9002226.02101,"1044,00228275796 ",.02)
  1. ;;00228275796
  1. ;;9002226.02101,"1044,00247037030 ",.01)
  1. ;;00247037030
  1. ;;9002226.02101,"1044,00247037030 ",.02)
  1. ;;00247037030
  1. ;;9002226.02101,"1044,00247061510 ",.01)
  1. ;;00247061510
  1. ;;9002226.02101,"1044,00247061510 ",.02)
  1. ;;00247061510
  1. ;;9002226.02101,"1044,00247061550 ",.01)
  1. ;;00247061550
  1. ;;9002226.02101,"1044,00247061550 ",.02)
  1. ;;00247061550
  1. ;;9002226.02101,"1044,00247061552 ",.01)
  1. ;;00247061552
  1. ;;9002226.02101,"1044,00247061552 ",.02)
  1. ;;00247061552
  1. ;;9002226.02101,"1044,00247061610 ",.01)
  1. ;;00247061610
  1. ;;9002226.02101,"1044,00247061610 ",.02)
  1. ;;00247061610
  1. ;;9002226.02101,"1044,00247061615 ",.01)
  1. ;;00247061615
  1. ;;9002226.02101,"1044,00247061615 ",.02)
  1. ;;00247061615
  1. ;;9002226.02101,"1044,00247061630 ",.01)
  1. ;;00247061630
  1. ;;9002226.02101,"1044,00247061630 ",.02)
  1. ;;00247061630
  1. ;;9002226.02101,"1044,00247067300 ",.01)
  1. ;;00247067300
  1. ;;9002226.02101,"1044,00247067300 ",.02)
  1. ;;00247067300
  1. ;;9002226.02101,"1044,00247067307 ",.01)
  1. ;;00247067307
  1. ;;9002226.02101,"1044,00247067307 ",.02)
  1. ;;00247067307
  1. ;;9002226.02101,"1044,00247067310 ",.01)
  1. ;;00247067310
  1. ;;9002226.02101,"1044,00247067310 ",.02)
  1. ;;00247067310