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