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

BGPM5AKX.m

Go to the documentation of this file.
BGPM5AKX ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"885,36800037478 ",.02)
 ;;36800037478
 ;;9002226.02101,"885,36800042902 ",.01)
 ;;36800042902
 ;;9002226.02101,"885,36800042902 ",.02)
 ;;36800042902
 ;;9002226.02101,"885,36800043078 ",.01)
 ;;36800043078
 ;;9002226.02101,"885,36800043078 ",.02)
 ;;36800043078
 ;;9002226.02101,"885,36800046768 ",.01)
 ;;36800046768
 ;;9002226.02101,"885,36800046768 ",.02)
 ;;36800046768
 ;;9002226.02101,"885,37205014519 ",.01)
 ;;37205014519
 ;;9002226.02101,"885,37205014519 ",.02)
 ;;37205014519
 ;;9002226.02101,"885,37205014578 ",.01)
 ;;37205014578
 ;;9002226.02101,"885,37205014578 ",.02)
 ;;37205014578
 ;;9002226.02101,"885,37205014587 ",.01)
 ;;37205014587
 ;;9002226.02101,"885,37205014587 ",.02)
 ;;37205014587
 ;;9002226.02101,"885,37205015078 ",.01)
 ;;37205015078
 ;;9002226.02101,"885,37205015078 ",.02)
 ;;37205015078
 ;;9002226.02101,"885,37205021807 ",.01)
 ;;37205021807
 ;;9002226.02101,"885,37205021807 ",.02)
 ;;37205021807
 ;;9002226.02101,"885,37205021823 ",.01)
 ;;37205021823
 ;;9002226.02101,"885,37205021823 ",.02)
 ;;37205021823
 ;;9002226.02101,"885,37205028062 ",.01)
 ;;37205028062
 ;;9002226.02101,"885,37205028062 ",.02)
 ;;37205028062
 ;;9002226.02101,"885,37205028078 ",.01)
 ;;37205028078
 ;;9002226.02101,"885,37205028078 ",.02)
 ;;37205028078
 ;;9002226.02101,"885,37205036968 ",.01)
 ;;37205036968
 ;;9002226.02101,"885,37205036968 ",.02)
 ;;37205036968
 ;;9002226.02101,"885,37205042978 ",.01)
 ;;37205042978
 ;;9002226.02101,"885,37205042978 ",.02)
 ;;37205042978
 ;;9002226.02101,"885,37205042990 ",.01)
 ;;37205042990
 ;;9002226.02101,"885,37205042990 ",.02)
 ;;37205042990
 ;;9002226.02101,"885,37205042996 ",.01)
 ;;37205042996
 ;;9002226.02101,"885,37205042996 ",.02)
 ;;37205042996
 ;;9002226.02101,"885,37205046768 ",.01)
 ;;37205046768
 ;;9002226.02101,"885,37205046768 ",.02)
 ;;37205046768
 ;;9002226.02101,"885,37205049378 ",.01)
 ;;37205049378
 ;;9002226.02101,"885,37205049378 ",.02)
 ;;37205049378
 ;;9002226.02101,"885,37205051076 ",.01)
 ;;37205051076
 ;;9002226.02101,"885,37205051076 ",.02)
 ;;37205051076
 ;;9002226.02101,"885,37205051087 ",.01)
 ;;37205051087
 ;;9002226.02101,"885,37205051087 ",.02)
 ;;37205051087
 ;;9002226.02101,"885,37205051172 ",.01)
 ;;37205051172
 ;;9002226.02101,"885,37205051172 ",.02)
 ;;37205051172
 ;;9002226.02101,"885,37205070378 ",.01)
 ;;37205070378
 ;;9002226.02101,"885,37205070378 ",.02)
 ;;37205070378
 ;;9002226.02101,"885,37205070868 ",.01)
 ;;37205070868
 ;;9002226.02101,"885,37205070868 ",.02)
 ;;37205070868
 ;;9002226.02101,"885,37808027748 ",.01)
 ;;37808027748
 ;;9002226.02101,"885,37808027748 ",.02)
 ;;37808027748
 ;;9002226.02101,"885,37808046768 ",.01)
 ;;37808046768
 ;;9002226.02101,"885,37808046768 ",.02)
 ;;37808046768
 ;;9002226.02101,"885,37808053576 ",.01)
 ;;37808053576
 ;;9002226.02101,"885,37808053576 ",.02)
 ;;37808053576
 ;;9002226.02101,"885,41100000240 ",.01)
 ;;41100000240
 ;;9002226.02101,"885,41100000240 ",.02)
 ;;41100000240
 ;;9002226.02101,"885,41100000375 ",.01)
 ;;41100000375
 ;;9002226.02101,"885,41100000375 ",.02)
 ;;41100000375
 ;;9002226.02101,"885,41163027468 ",.01)
 ;;41163027468
 ;;9002226.02101,"885,41163027468 ",.02)
 ;;41163027468
 ;;9002226.02101,"885,41163037478 ",.01)
 ;;41163037478
 ;;9002226.02101,"885,41163037478 ",.02)
 ;;41163037478
 ;;9002226.02101,"885,41163041412 ",.01)
 ;;41163041412
 ;;9002226.02101,"885,41163041412 ",.02)
 ;;41163041412
 ;;9002226.02101,"885,41163041460 ",.01)
 ;;41163041460
 ;;9002226.02101,"885,41163041460 ",.02)
 ;;41163041460
 ;;9002226.02101,"885,41163041678 ",.01)
 ;;41163041678
 ;;9002226.02101,"885,41163041678 ",.02)
 ;;41163041678
 ;;9002226.02101,"885,41163041687 ",.01)
 ;;41163041687
 ;;9002226.02101,"885,41163041687 ",.02)
 ;;41163041687
 ;;9002226.02101,"885,41163041690 ",.01)
 ;;41163041690
 ;;9002226.02101,"885,41163041690 ",.02)
 ;;41163041690
 ;;9002226.02101,"885,41163041693 ",.01)
 ;;41163041693
 ;;9002226.02101,"885,41163041693 ",.02)
 ;;41163041693
 ;;9002226.02101,"885,41163042978 ",.01)
 ;;41163042978
 ;;9002226.02101,"885,41163042978 ",.02)
 ;;41163042978
 ;;9002226.02101,"885,41163042990 ",.01)
 ;;41163042990
 ;;9002226.02101,"885,41163042990 ",.02)
 ;;41163042990
 ;;9002226.02101,"885,41163043071 ",.01)
 ;;41163043071
 ;;9002226.02101,"885,41163043071 ",.02)
 ;;41163043071
 ;;9002226.02101,"885,41163043078 ",.01)
 ;;41163043078
 ;;9002226.02101,"885,41163043078 ",.02)
 ;;41163043078
 ;;9002226.02101,"885,41163046768 ",.01)
 ;;41163046768
 ;;9002226.02101,"885,41163046768 ",.02)
 ;;41163046768
 ;;9002226.02101,"885,41163053576 ",.01)
 ;;41163053576
 ;;9002226.02101,"885,41163053576 ",.02)
 ;;41163053576
 ;;9002226.02101,"885,41163053587 ",.01)
 ;;41163053587
 ;;9002226.02101,"885,41163053587 ",.02)
 ;;41163053587
 ;;9002226.02101,"885,41163056306 ",.01)
 ;;41163056306
 ;;9002226.02101,"885,41163056306 ",.02)
 ;;41163056306
 ;;9002226.02101,"885,41163056317 ",.01)
 ;;41163056317
 ;;9002226.02101,"885,41163056317 ",.02)
 ;;41163056317
 ;;9002226.02101,"885,41163056332 ",.01)
 ;;41163056332
 ;;9002226.02101,"885,41163056332 ",.02)
 ;;41163056332
 ;;9002226.02101,"885,41163064281 ",.01)
 ;;41163064281
 ;;9002226.02101,"885,41163064281 ",.02)
 ;;41163064281
 ;;9002226.02101,"885,41167009301 ",.01)
 ;;41167009301
 ;;9002226.02101,"885,41167009301 ",.02)
 ;;41167009301
 ;;9002226.02101,"885,41167009311 ",.01)
 ;;41167009311
 ;;9002226.02101,"885,41167009311 ",.02)
 ;;41167009311
 ;;9002226.02101,"885,41167009325 ",.01)
 ;;41167009325
 ;;9002226.02101,"885,41167009325 ",.02)
 ;;41167009325
 ;;9002226.02101,"885,41167010815 ",.01)
 ;;41167010815
 ;;9002226.02101,"885,41167010815 ",.02)
 ;;41167010815
 ;;9002226.02101,"885,41226041182 ",.01)
 ;;41226041182
 ;;9002226.02101,"885,41226041182 ",.02)
 ;;41226041182
 ;;9002226.02101,"885,41250027408 ",.01)
 ;;41250027408
 ;;9002226.02101,"885,41250027408 ",.02)
 ;;41250027408
 ;;9002226.02101,"885,41250027468 ",.01)
 ;;41250027468
 ;;9002226.02101,"885,41250027468 ",.02)
 ;;41250027468
 ;;9002226.02101,"885,41250027715 ",.01)
 ;;41250027715
 ;;9002226.02101,"885,41250027715 ",.02)
 ;;41250027715
 ;;9002226.02101,"885,41250027748 ",.01)
 ;;41250027748
 ;;9002226.02101,"885,41250027748 ",.02)
 ;;41250027748
 ;;9002226.02101,"885,41250053576 ",.01)
 ;;41250053576
 ;;9002226.02101,"885,41250053576 ",.02)
 ;;41250053576
 ;;9002226.02101,"885,41250096634 ",.01)
 ;;41250096634
 ;;9002226.02101,"885,41250096634 ",.02)
 ;;41250096634
 ;;9002226.02101,"885,41268053576 ",.01)
 ;;41268053576
 ;;9002226.02101,"885,41268053576 ",.02)
 ;;41268053576
 ;;9002226.02101,"885,41520046768 ",.01)
 ;;41520046768
 ;;9002226.02101,"885,41520046768 ",.02)
 ;;41520046768
 ;;9002226.02101,"885,42507027468 ",.01)
 ;;42507027468
 ;;9002226.02101,"885,42507027468 ",.02)
 ;;42507027468
 ;;9002226.02101,"885,42507043078 ",.01)
 ;;42507043078
 ;;9002226.02101,"885,42507043078 ",.02)
 ;;42507043078
 ;;9002226.02101,"885,42507046768 ",.01)
 ;;42507046768
 ;;9002226.02101,"885,42507046768 ",.02)
 ;;42507046768
 ;;9002226.02101,"885,42507053576 ",.01)
 ;;42507053576
 ;;9002226.02101,"885,42507053576 ",.02)
 ;;42507053576
 ;;9002226.02101,"885,43063027890 ",.01)
 ;;43063027890
 ;;9002226.02101,"885,43063027890 ",.02)
 ;;43063027890
 ;;9002226.02101,"885,43353071630 ",.01)
 ;;43353071630
 ;;9002226.02101,"885,43353071630 ",.02)
 ;;43353071630
 ;;9002226.02101,"885,43353071660 ",.01)
 ;;43353071660
 ;;9002226.02101,"885,43353071660 ",.02)
 ;;43353071660
 ;;9002226.02101,"885,44514008818 ",.01)
 ;;44514008818
 ;;9002226.02101,"885,44514008818 ",.02)
 ;;44514008818
 ;;9002226.02101,"885,45802064287 ",.01)
 ;;45802064287
 ;;9002226.02101,"885,45802064287 ",.02)
 ;;45802064287
 ;;9002226.02101,"885,45802070614 ",.01)
 ;;45802070614
 ;;9002226.02101,"885,45802070614 ",.02)
 ;;45802070614
 ;;9002226.02101,"885,45802070630 ",.01)
 ;;45802070630
 ;;9002226.02101,"885,45802070630 ",.02)
 ;;45802070630
 ;;9002226.02101,"885,45802070633 ",.01)
 ;;45802070633
 ;;9002226.02101,"885,45802070633 ",.02)
 ;;45802070633
 ;;9002226.02101,"885,47682001133 ",.01)
 ;;47682001133
 ;;9002226.02101,"885,47682001133 ",.02)
 ;;47682001133
 ;;9002226.02101,"885,47682001148 ",.01)
 ;;47682001148
 ;;9002226.02101,"885,47682001148 ",.02)
 ;;47682001148
 ;;9002226.02101,"885,47682001199 ",.01)
 ;;47682001199
 ;;9002226.02101,"885,47682001199 ",.02)
 ;;47682001199
 ;;9002226.02101,"885,47682008513 ",.01)
 ;;47682008513
 ;;9002226.02101,"885,47682008513 ",.02)
 ;;47682008513
 ;;9002226.02101,"885,47682008533 ",.01)
 ;;47682008533
 ;;9002226.02101,"885,47682008533 ",.02)
 ;;47682008533
 ;;9002226.02101,"885,47682009533 ",.01)
 ;;47682009533
 ;;9002226.02101,"885,47682009533 ",.02)
 ;;47682009533
 ;;9002226.02101,"885,47682009613 ",.01)
 ;;47682009613
 ;;9002226.02101,"885,47682009613 ",.02)
 ;;47682009613
 ;;9002226.02101,"885,47682009633 ",.01)
 ;;47682009633
 ;;9002226.02101,"885,47682009633 ",.02)
 ;;47682009633
 ;;9002226.02101,"885,47682009713 ",.01)
 ;;47682009713
 ;;9002226.02101,"885,47682009713 ",.02)
 ;;47682009713
 ;;9002226.02101,"885,47682009747 ",.01)
 ;;47682009747
 ;;9002226.02101,"885,47682009747 ",.02)
 ;;47682009747
 ;;9002226.02101,"885,47682009764 ",.01)
 ;;47682009764
 ;;9002226.02101,"885,47682009764 ",.02)
 ;;47682009764
 ;;9002226.02101,"885,47682009799 ",.01)
 ;;47682009799
 ;;9002226.02101,"885,47682009799 ",.02)
 ;;47682009799
 ;;9002226.02101,"885,47682009813 ",.01)
 ;;47682009813
 ;;9002226.02101,"885,47682009813 ",.02)
 ;;47682009813
 ;;9002226.02101,"885,47682009833 ",.01)
 ;;47682009833
 ;;9002226.02101,"885,47682009833 ",.02)
 ;;47682009833
 ;;9002226.02101,"885,47682009848 ",.01)
 ;;47682009848
 ;;9002226.02101,"885,47682009848 ",.02)
 ;;47682009848
 ;;9002226.02101,"885,47682009899 ",.01)
 ;;47682009899
 ;;9002226.02101,"885,47682009899 ",.02)
 ;;47682009899
 ;;9002226.02101,"885,47682009933 ",.01)
 ;;47682009933
 ;;9002226.02101,"885,47682009933 ",.02)
 ;;47682009933
 ;;9002226.02101,"885,47682009948 ",.01)
 ;;47682009948
 ;;9002226.02101,"885,47682009948 ",.02)
 ;;47682009948
 ;;9002226.02101,"885,47682010433 ",.01)
 ;;47682010433
 ;;9002226.02101,"885,47682010433 ",.02)
 ;;47682010433
 ;;9002226.02101,"885,47682010613 ",.01)
 ;;47682010613
 ;;9002226.02101,"885,47682010613 ",.02)
 ;;47682010613
 ;;9002226.02101,"885,47682010633 ",.01)
 ;;47682010633
 ;;9002226.02101,"885,47682010633 ",.02)
 ;;47682010633
 ;;9002226.02101,"885,47682011613 ",.01)
 ;;47682011613
 ;;9002226.02101,"885,47682011613 ",.02)
 ;;47682011613
 ;;9002226.02101,"885,47682011647 ",.01)
 ;;47682011647
 ;;9002226.02101,"885,47682011647 ",.02)
 ;;47682011647
 ;;9002226.02101,"885,47682011664 ",.01)
 ;;47682011664
 ;;9002226.02101,"885,47682011664 ",.02)
 ;;47682011664
 ;;9002226.02101,"885,47682011699 ",.01)
 ;;47682011699
 ;;9002226.02101,"885,47682011699 ",.02)
 ;;47682011699
 ;;9002226.02101,"885,47682011913 ",.01)
 ;;47682011913
 ;;9002226.02101,"885,47682011913 ",.02)
 ;;47682011913
 ;;9002226.02101,"885,47682011936 ",.01)
 ;;47682011936
 ;;9002226.02101,"885,47682011936 ",.02)
 ;;47682011936
 ;;9002226.02101,"885,47682011948 ",.01)
 ;;47682011948
 ;;9002226.02101,"885,47682011948 ",.02)
 ;;47682011948
 ;;9002226.02101,"885,47682011999 ",.01)
 ;;47682011999
 ;;9002226.02101,"885,47682011999 ",.02)
 ;;47682011999
 ;;9002226.02101,"885,47682015113 ",.01)
 ;;47682015113
 ;;9002226.02101,"885,47682015113 ",.02)
 ;;47682015113
 ;;9002226.02101,"885,47682015213 ",.01)
 ;;47682015213