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