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

BGPM3AAG.m

Go to the documentation of this file.
  1. BGPM3AAG ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
  1. ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
  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,"774,00467126225 ",.02)
  1. ;;00467126225
  1. ;;9002226.02101,"774,00467203325 ",.01)
  1. ;;00467203325
  1. ;;9002226.02101,"774,00467203325 ",.02)
  1. ;;00467203325
  1. ;;9002226.02101,"774,00467215225 ",.01)
  1. ;;00467215225
  1. ;;9002226.02101,"774,00467215225 ",.02)
  1. ;;00467215225
  1. ;;9002226.02101,"774,00467750710 ",.01)
  1. ;;00467750710
  1. ;;9002226.02101,"774,00467750710 ",.02)
  1. ;;00467750710
  1. ;;9002226.02101,"774,00469003115 ",.01)
  1. ;;00469003115
  1. ;;9002226.02101,"774,00469003115 ",.02)
  1. ;;00469003115
  1. ;;9002226.02101,"774,00469003325 ",.01)
  1. ;;00469003325
  1. ;;9002226.02101,"774,00469003325 ",.02)
  1. ;;00469003325
  1. ;;9002226.02101,"774,00469015225 ",.01)
  1. ;;00469015225
  1. ;;9002226.02101,"774,00469015225 ",.02)
  1. ;;00469015225
  1. ;;9002226.02101,"774,00469081330 ",.01)
  1. ;;00469081330
  1. ;;9002226.02101,"774,00469081330 ",.02)
  1. ;;00469081330
  1. ;;9002226.02101,"774,00469081350 ",.01)
  1. ;;00469081350
  1. ;;9002226.02101,"774,00469081350 ",.02)
  1. ;;00469081350
  1. ;;9002226.02101,"774,00469083300 ",.01)
  1. ;;00469083300
  1. ;;9002226.02101,"774,00469083300 ",.02)
  1. ;;00469083300
  1. ;;9002226.02101,"774,00469083303 ",.01)
  1. ;;00469083303
  1. ;;9002226.02101,"774,00469083303 ",.02)
  1. ;;00469083303
  1. ;;9002226.02101,"774,00469083370 ",.01)
  1. ;;00469083370
  1. ;;9002226.02101,"774,00469083370 ",.02)
  1. ;;00469083370
  1. ;;9002226.02101,"774,00469091300 ",.01)
  1. ;;00469091300
  1. ;;9002226.02101,"774,00469091300 ",.02)
  1. ;;00469091300
  1. ;;9002226.02101,"774,00469091330 ",.01)
  1. ;;00469091330
  1. ;;9002226.02101,"774,00469091330 ",.02)
  1. ;;00469091330
  1. ;;9002226.02101,"774,00469091350 ",.01)
  1. ;;00469091350
  1. ;;9002226.02101,"774,00469091350 ",.02)
  1. ;;00469091350
  1. ;;9002226.02101,"774,00469092300 ",.01)
  1. ;;00469092300
  1. ;;9002226.02101,"774,00469092300 ",.02)
  1. ;;00469092300
  1. ;;9002226.02101,"774,00469092303 ",.01)
  1. ;;00469092303
  1. ;;9002226.02101,"774,00469092303 ",.02)
  1. ;;00469092303
  1. ;;9002226.02101,"774,00469092330 ",.01)
  1. ;;00469092330
  1. ;;9002226.02101,"774,00469092330 ",.02)
  1. ;;00469092330
  1. ;;9002226.02101,"774,00469093300 ",.01)
  1. ;;00469093300
  1. ;;9002226.02101,"774,00469093300 ",.02)
  1. ;;00469093300
  1. ;;9002226.02101,"774,00469093320 ",.01)
  1. ;;00469093320
  1. ;;9002226.02101,"774,00469093320 ",.02)
  1. ;;00469093320
  1. ;;9002226.02101,"774,00469103315 ",.01)
  1. ;;00469103315
  1. ;;9002226.02101,"774,00469103315 ",.02)
  1. ;;00469103315
  1. ;;9002226.02101,"774,00469115515 ",.01)
  1. ;;00469115515
  1. ;;9002226.02101,"774,00469115515 ",.02)
  1. ;;00469115515
  1. ;;9002226.02101,"774,00469126215 ",.01)
  1. ;;00469126215
  1. ;;9002226.02101,"774,00469126215 ",.02)
  1. ;;00469126215
  1. ;;9002226.02101,"774,00469190300 ",.01)
  1. ;;00469190300
  1. ;;9002226.02101,"774,00469190300 ",.02)
  1. ;;00469190300
  1. ;;9002226.02101,"774,00469190303 ",.01)
  1. ;;00469190303
  1. ;;9002226.02101,"774,00469190303 ",.02)
  1. ;;00469190303
  1. ;;9002226.02101,"774,00469203325 ",.01)
  1. ;;00469203325
  1. ;;9002226.02101,"774,00469203325 ",.02)
  1. ;;00469203325
  1. ;;9002226.02101,"774,00469215215 ",.01)
  1. ;;00469215215
  1. ;;9002226.02101,"774,00469215215 ",.02)
  1. ;;00469215215
  1. ;;9002226.02101,"774,00469276010 ",.01)
  1. ;;00469276010
  1. ;;9002226.02101,"774,00469276010 ",.02)
  1. ;;00469276010
  1. ;;9002226.02101,"774,00469276025 ",.01)
  1. ;;00469276025
  1. ;;9002226.02101,"774,00469276025 ",.02)
  1. ;;00469276025
  1. ;;9002226.02101,"774,00469310115 ",.01)
  1. ;;00469310115
  1. ;;9002226.02101,"774,00469310115 ",.02)
  1. ;;00469310115
  1. ;;9002226.02101,"774,00469310525 ",.01)
  1. ;;00469310525
  1. ;;9002226.02101,"774,00469310525 ",.02)
  1. ;;00469310525
  1. ;;9002226.02101,"774,00469504001 ",.01)
  1. ;;00469504001
  1. ;;9002226.02101,"774,00469504001 ",.02)
  1. ;;00469504001
  1. ;;9002226.02101,"774,00469504501 ",.01)
  1. ;;00469504501
  1. ;;9002226.02101,"774,00469504501 ",.02)
  1. ;;00469504501
  1. ;;9002226.02101,"774,00469504505 ",.01)
  1. ;;00469504505
  1. ;;9002226.02101,"774,00469504505 ",.02)
  1. ;;00469504505
  1. ;;9002226.02101,"774,00517430101 ",.01)
  1. ;;00517430101
  1. ;;9002226.02101,"774,00517430101 ",.02)
  1. ;;00517430101
  1. ;;9002226.02101,"774,00527013955 ",.01)
  1. ;;00527013955
  1. ;;9002226.02101,"774,00527013955 ",.02)
  1. ;;00527013955
  1. ;;9002226.02101,"774,00527014855 ",.01)
  1. ;;00527014855
  1. ;;9002226.02101,"774,00527014855 ",.02)
  1. ;;00527014855
  1. ;;9002226.02101,"774,00527017455 ",.01)
  1. ;;00527017455
  1. ;;9002226.02101,"774,00527017455 ",.02)
  1. ;;00527017455
  1. ;;9002226.02101,"774,00527100301 ",.01)
  1. ;;00527100301
  1. ;;9002226.02101,"774,00527100301 ",.02)
  1. ;;00527100301
  1. ;;9002226.02101,"774,00527100310 ",.01)
  1. ;;00527100310
  1. ;;9002226.02101,"774,00527100310 ",.02)
  1. ;;00527100310
  1. ;;9002226.02101,"774,00527106401 ",.01)
  1. ;;00527106401
  1. ;;9002226.02101,"774,00527106401 ",.02)
  1. ;;00527106401
  1. ;;9002226.02101,"774,00527106410 ",.01)
  1. ;;00527106410
  1. ;;9002226.02101,"774,00527106410 ",.02)
  1. ;;00527106410
  1. ;;9002226.02101,"774,00527107201 ",.01)
  1. ;;00527107201
  1. ;;9002226.02101,"774,00527107201 ",.02)
  1. ;;00527107201
  1. ;;9002226.02101,"774,00527107210 ",.01)
  1. ;;00527107210
  1. ;;9002226.02101,"774,00527107210 ",.02)
  1. ;;00527107210
  1. ;;9002226.02101,"774,00536486070 ",.01)
  1. ;;00536486070
  1. ;;9002226.02101,"774,00536486070 ",.02)
  1. ;;00536486070
  1. ;;9002226.02101,"774,00536486075 ",.01)
  1. ;;00536486075
  1. ;;9002226.02101,"774,00536486075 ",.02)
  1. ;;00536486075
  1. ;;9002226.02101,"774,00536490070 ",.01)
  1. ;;00536490070
  1. ;;9002226.02101,"774,00536490070 ",.02)
  1. ;;00536490070
  1. ;;9002226.02101,"774,00536492570 ",.01)
  1. ;;00536492570
  1. ;;9002226.02101,"774,00536492570 ",.02)
  1. ;;00536492570
  1. ;;9002226.02101,"774,00536495065 ",.01)
  1. ;;00536495065
  1. ;;9002226.02101,"774,00536495065 ",.02)
  1. ;;00536495065
  1. ;;9002226.02101,"774,00555083102 ",.01)
  1. ;;00555083102
  1. ;;9002226.02101,"774,00555083102 ",.02)
  1. ;;00555083102
  1. ;;9002226.02101,"774,00555083104 ",.01)
  1. ;;00555083104
  1. ;;9002226.02101,"774,00555083104 ",.02)
  1. ;;00555083104
  1. ;;9002226.02101,"774,00555083105 ",.01)
  1. ;;00555083105
  1. ;;9002226.02101,"774,00555083105 ",.02)
  1. ;;00555083105
  1. ;;9002226.02101,"774,00555083156 ",.01)
  1. ;;00555083156
  1. ;;9002226.02101,"774,00555083156 ",.02)
  1. ;;00555083156
  1. ;;9002226.02101,"774,00555083202 ",.01)
  1. ;;00555083202
  1. ;;9002226.02101,"774,00555083202 ",.02)
  1. ;;00555083202
  1. ;;9002226.02101,"774,00555083204 ",.01)
  1. ;;00555083204
  1. ;;9002226.02101,"774,00555083204 ",.02)
  1. ;;00555083204
  1. ;;9002226.02101,"774,00555083205 ",.01)
  1. ;;00555083205
  1. ;;9002226.02101,"774,00555083205 ",.02)
  1. ;;00555083205
  1. ;;9002226.02101,"774,00555083256 ",.01)
  1. ;;00555083256
  1. ;;9002226.02101,"774,00555083256 ",.02)
  1. ;;00555083256
  1. ;;9002226.02101,"774,00555083302 ",.01)
  1. ;;00555083302
  1. ;;9002226.02101,"774,00555083302 ",.02)
  1. ;;00555083302
  1. ;;9002226.02101,"774,00555083304 ",.01)
  1. ;;00555083304
  1. ;;9002226.02101,"774,00555083304 ",.02)
  1. ;;00555083304
  1. ;;9002226.02101,"774,00555083305 ",.01)
  1. ;;00555083305
  1. ;;9002226.02101,"774,00555083305 ",.02)
  1. ;;00555083305
  1. ;;9002226.02101,"774,00555083356 ",.01)
  1. ;;00555083356
  1. ;;9002226.02101,"774,00555083356 ",.02)
  1. ;;00555083356
  1. ;;9002226.02101,"774,00555083402 ",.01)
  1. ;;00555083402
  1. ;;9002226.02101,"774,00555083402 ",.02)
  1. ;;00555083402
  1. ;;9002226.02101,"774,00555083405 ",.01)
  1. ;;00555083405
  1. ;;9002226.02101,"774,00555083405 ",.02)
  1. ;;00555083405
  1. ;;9002226.02101,"774,00555083456 ",.01)
  1. ;;00555083456
  1. ;;9002226.02101,"774,00555083456 ",.02)
  1. ;;00555083456
  1. ;;9002226.02101,"774,00555083502 ",.01)
  1. ;;00555083502
  1. ;;9002226.02101,"774,00555083502 ",.02)
  1. ;;00555083502
  1. ;;9002226.02101,"774,00555083504 ",.01)
  1. ;;00555083504
  1. ;;9002226.02101,"774,00555083504 ",.02)
  1. ;;00555083504
  1. ;;9002226.02101,"774,00555083556 ",.01)
  1. ;;00555083556
  1. ;;9002226.02101,"774,00555083556 ",.02)
  1. ;;00555083556
  1. ;;9002226.02101,"774,00555086902 ",.01)
  1. ;;00555086902
  1. ;;9002226.02101,"774,00555086902 ",.02)
  1. ;;00555086902
  1. ;;9002226.02101,"774,00555086904 ",.01)
  1. ;;00555086904
  1. ;;9002226.02101,"774,00555086904 ",.02)
  1. ;;00555086904
  1. ;;9002226.02101,"774,00555086905 ",.01)
  1. ;;00555086905
  1. ;;9002226.02101,"774,00555086905 ",.02)
  1. ;;00555086905
  1. ;;9002226.02101,"774,00555086956 ",.01)
  1. ;;00555086956
  1. ;;9002226.02101,"774,00555086956 ",.02)
  1. ;;00555086956
  1. ;;9002226.02101,"774,00555087402 ",.01)
  1. ;;00555087402
  1. ;;9002226.02101,"774,00555087402 ",.02)
  1. ;;00555087402
  1. ;;9002226.02101,"774,00555087405 ",.01)
  1. ;;00555087405
  1. ;;9002226.02101,"774,00555087405 ",.02)
  1. ;;00555087405
  1. ;;9002226.02101,"774,00555087456 ",.01)
  1. ;;00555087456
  1. ;;9002226.02101,"774,00555087456 ",.02)
  1. ;;00555087456
  1. ;;9002226.02101,"774,00555092501 ",.01)
  1. ;;00555092501
  1. ;;9002226.02101,"774,00555092501 ",.02)
  1. ;;00555092501
  1. ;;9002226.02101,"774,00555092502 ",.01)
  1. ;;00555092502
  1. ;;9002226.02101,"774,00555092502 ",.02)
  1. ;;00555092502
  1. ;;9002226.02101,"774,00555092504 ",.01)
  1. ;;00555092504
  1. ;;9002226.02101,"774,00555092504 ",.02)
  1. ;;00555092504
  1. ;;9002226.02101,"774,00555092505 ",.01)
  1. ;;00555092505
  1. ;;9002226.02101,"774,00555092505 ",.02)
  1. ;;00555092505
  1. ;;9002226.02101,"774,00555092556 ",.01)
  1. ;;00555092556
  1. ;;9002226.02101,"774,00555092556 ",.02)
  1. ;;00555092556
  1. ;;9002226.02101,"774,00555092601 ",.01)
  1. ;;00555092601
  1. ;;9002226.02101,"774,00555092601 ",.02)
  1. ;;00555092601
  1. ;;9002226.02101,"774,00555092602 ",.01)
  1. ;;00555092602
  1. ;;9002226.02101,"774,00555092602 ",.02)
  1. ;;00555092602
  1. ;;9002226.02101,"774,00555092604 ",.01)
  1. ;;00555092604
  1. ;;9002226.02101,"774,00555092604 ",.02)
  1. ;;00555092604
  1. ;;9002226.02101,"774,00555092605 ",.01)
  1. ;;00555092605
  1. ;;9002226.02101,"774,00555092605 ",.02)
  1. ;;00555092605
  1. ;;9002226.02101,"774,00555092656 ",.01)
  1. ;;00555092656
  1. ;;9002226.02101,"774,00555092656 ",.02)
  1. ;;00555092656
  1. ;;9002226.02101,"774,00615150905 ",.01)
  1. ;;00615150905
  1. ;;9002226.02101,"774,00615150905 ",.02)
  1. ;;00615150905
  1. ;;9002226.02101,"774,00615150929 ",.01)
  1. ;;00615150929
  1. ;;9002226.02101,"774,00615150929 ",.02)
  1. ;;00615150929
  1. ;;9002226.02101,"774,00615150939 ",.01)
  1. ;;00615150939
  1. ;;9002226.02101,"774,00615150939 ",.02)
  1. ;;00615150939
  1. ;;9002226.02101,"774,00615151005 ",.01)
  1. ;;00615151005
  1. ;;9002226.02101,"774,00615151005 ",.02)
  1. ;;00615151005
  1. ;;9002226.02101,"774,00615151029 ",.01)
  1. ;;00615151029
  1. ;;9002226.02101,"774,00615151029 ",.02)
  1. ;;00615151029
  1. ;;9002226.02101,"774,00615151039 ",.01)
  1. ;;00615151039
  1. ;;9002226.02101,"774,00615151039 ",.02)
  1. ;;00615151039
  1. ;;9002226.02101,"774,00615151205 ",.01)
  1. ;;00615151205
  1. ;;9002226.02101,"774,00615151205 ",.02)
  1. ;;00615151205
  1. ;;9002226.02101,"774,00615151229 ",.01)
  1. ;;00615151229
  1. ;;9002226.02101,"774,00615151229 ",.02)
  1. ;;00615151229
  1. ;;9002226.02101,"774,00615151239 ",.01)
  1. ;;00615151239
  1. ;;9002226.02101,"774,00615151239 ",.02)
  1. ;;00615151239
  1. ;;9002226.02101,"774,00615454729 ",.01)
  1. ;;00615454729
  1. ;;9002226.02101,"774,00615454729 ",.02)
  1. ;;00615454729
  1. ;;9002226.02101,"774,00615454739 ",.01)
  1. ;;00615454739
  1. ;;9002226.02101,"774,00615454739 ",.02)
  1. ;;00615454739
  1. ;;9002226.02101,"774,00615454805 ",.01)
  1. ;;00615454805
  1. ;;9002226.02101,"774,00615454805 ",.02)
  1. ;;00615454805
  1. ;;9002226.02101,"774,00615454829 ",.01)
  1. ;;00615454829
  1. ;;9002226.02101,"774,00615454829 ",.02)
  1. ;;00615454829
  1. ;;9002226.02101,"774,00615454831 ",.01)
  1. ;;00615454831
  1. ;;9002226.02101,"774,00615454831 ",.02)
  1. ;;00615454831
  1. ;;9002226.02101,"774,00615454839 ",.01)
  1. ;;00615454839
  1. ;;9002226.02101,"774,00615454839 ",.02)
  1. ;;00615454839
  1. ;;9002226.02101,"774,00615454905 ",.01)
  1. ;;00615454905
  1. ;;9002226.02101,"774,00615454905 ",.02)
  1. ;;00615454905
  1. ;;9002226.02101,"774,00615454929 ",.01)
  1. ;;00615454929
  1. ;;9002226.02101,"774,00615454929 ",.02)
  1. ;;00615454929
  1. ;;9002226.02101,"774,00615454939 ",.01)
  1. ;;00615454939
  1. ;;9002226.02101,"774,00615454939 ",.02)
  1. ;;00615454939
  1. ;;9002226.02101,"774,00615455029 ",.01)
  1. ;;00615455029