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

BGPM3AFC.m

Go to the documentation of this file.
BGPM3AFC ;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,"791,00364064001 ",.02)
 ;;00364064001
 ;;9002226.02101,"791,00364064002 ",.01)
 ;;00364064002
 ;;9002226.02101,"791,00364064002 ",.02)
 ;;00364064002
 ;;9002226.02101,"791,00378880101 ",.01)
 ;;00378880101
 ;;9002226.02101,"791,00378880101 ",.02)
 ;;00378880101
 ;;9002226.02101,"791,00378880110 ",.01)
 ;;00378880110
 ;;9002226.02101,"791,00378880110 ",.02)
 ;;00378880110
 ;;9002226.02101,"791,00378880201 ",.01)
 ;;00378880201
 ;;9002226.02101,"791,00378880201 ",.02)
 ;;00378880201
 ;;9002226.02101,"791,00378880210 ",.01)
 ;;00378880210
 ;;9002226.02101,"791,00378880210 ",.02)
 ;;00378880210
 ;;9002226.02101,"791,00378880301 ",.01)
 ;;00378880301
 ;;9002226.02101,"791,00378880301 ",.02)
 ;;00378880301
 ;;9002226.02101,"791,00378880310 ",.01)
 ;;00378880310
 ;;9002226.02101,"791,00378880310 ",.02)
 ;;00378880310
 ;;9002226.02101,"791,00378880401 ",.01)
 ;;00378880401
 ;;9002226.02101,"791,00378880401 ",.02)
 ;;00378880401
 ;;9002226.02101,"791,00378880410 ",.01)
 ;;00378880410
 ;;9002226.02101,"791,00378880410 ",.02)
 ;;00378880410
 ;;9002226.02101,"791,00378880501 ",.01)
 ;;00378880501
 ;;9002226.02101,"791,00378880501 ",.02)
 ;;00378880501
 ;;9002226.02101,"791,00378880510 ",.01)
 ;;00378880510
 ;;9002226.02101,"791,00378880510 ",.02)
 ;;00378880510
 ;;9002226.02101,"791,00378880601 ",.01)
 ;;00378880601
 ;;9002226.02101,"791,00378880601 ",.02)
 ;;00378880601
 ;;9002226.02101,"791,00378880610 ",.01)
 ;;00378880610
 ;;9002226.02101,"791,00378880610 ",.02)
 ;;00378880610
 ;;9002226.02101,"791,00378881001 ",.01)
 ;;00378881001
 ;;9002226.02101,"791,00378881001 ",.02)
 ;;00378881001
 ;;9002226.02101,"791,00378881010 ",.01)
 ;;00378881010
 ;;9002226.02101,"791,00378881010 ",.02)
 ;;00378881010
 ;;9002226.02101,"791,00378882501 ",.01)
 ;;00378882501
 ;;9002226.02101,"791,00378882501 ",.02)
 ;;00378882501
 ;;9002226.02101,"791,00378882510 ",.01)
 ;;00378882510
 ;;9002226.02101,"791,00378882510 ",.02)
 ;;00378882510
 ;;9002226.02101,"791,00406205201 ",.01)
 ;;00406205201
 ;;9002226.02101,"791,00406205201 ",.02)
 ;;00406205201
 ;;9002226.02101,"791,00406205210 ",.01)
 ;;00406205210
 ;;9002226.02101,"791,00406205210 ",.02)
 ;;00406205210
 ;;9002226.02101,"791,00406205301 ",.01)
 ;;00406205301
 ;;9002226.02101,"791,00406205301 ",.02)
 ;;00406205301
 ;;9002226.02101,"791,00406205310 ",.01)
 ;;00406205310
 ;;9002226.02101,"791,00406205310 ",.02)
 ;;00406205310
 ;;9002226.02101,"791,00406205401 ",.01)
 ;;00406205401
 ;;9002226.02101,"791,00406205401 ",.02)
 ;;00406205401
 ;;9002226.02101,"791,00406205410 ",.01)
 ;;00406205410
 ;;9002226.02101,"791,00406205410 ",.02)
 ;;00406205410
 ;;9002226.02101,"791,00406205501 ",.01)
 ;;00406205501
 ;;9002226.02101,"791,00406205501 ",.02)
 ;;00406205501
 ;;9002226.02101,"791,00406205510 ",.01)
 ;;00406205510
 ;;9002226.02101,"791,00406205510 ",.02)
 ;;00406205510
 ;;9002226.02101,"791,00406205601 ",.01)
 ;;00406205601
 ;;9002226.02101,"791,00406205601 ",.02)
 ;;00406205601
 ;;9002226.02101,"791,00406205610 ",.01)
 ;;00406205610
 ;;9002226.02101,"791,00406205610 ",.02)
 ;;00406205610
 ;;9002226.02101,"791,00406205701 ",.01)
 ;;00406205701
 ;;9002226.02101,"791,00406205701 ",.02)
 ;;00406205701
 ;;9002226.02101,"791,00406205901 ",.01)
 ;;00406205901
 ;;9002226.02101,"791,00406205901 ",.02)
 ;;00406205901
 ;;9002226.02101,"791,00406206401 ",.01)
 ;;00406206401
 ;;9002226.02101,"791,00406206401 ",.02)
 ;;00406206401
 ;;9002226.02101,"791,00406206410 ",.01)
 ;;00406206410
 ;;9002226.02101,"791,00406206410 ",.02)
 ;;00406206410
 ;;9002226.02101,"791,00406506410 ",.01)
 ;;00406506410
 ;;9002226.02101,"791,00406506410 ",.02)
 ;;00406506410
 ;;9002226.02101,"791,00527100301 ",.01)
 ;;00527100301
 ;;9002226.02101,"791,00527100301 ",.02)
 ;;00527100301
 ;;9002226.02101,"791,00527100310 ",.01)
 ;;00527100310
 ;;9002226.02101,"791,00527100310 ",.02)
 ;;00527100310
 ;;9002226.02101,"791,00527106401 ",.01)
 ;;00527106401
 ;;9002226.02101,"791,00527106401 ",.02)
 ;;00527106401
 ;;9002226.02101,"791,00527106410 ",.01)
 ;;00527106410
 ;;9002226.02101,"791,00527106410 ",.02)
 ;;00527106410
 ;;9002226.02101,"791,00527107201 ",.01)
 ;;00527107201
 ;;9002226.02101,"791,00527107201 ",.02)
 ;;00527107201
 ;;9002226.02101,"791,00527107210 ",.01)
 ;;00527107210
 ;;9002226.02101,"791,00527107210 ",.02)
 ;;00527107210
 ;;9002226.02101,"791,00555083102 ",.01)
 ;;00555083102
 ;;9002226.02101,"791,00555083102 ",.02)
 ;;00555083102
 ;;9002226.02101,"791,00555083104 ",.01)
 ;;00555083104
 ;;9002226.02101,"791,00555083104 ",.02)
 ;;00555083104
 ;;9002226.02101,"791,00555083105 ",.01)
 ;;00555083105
 ;;9002226.02101,"791,00555083105 ",.02)
 ;;00555083105
 ;;9002226.02101,"791,00555083156 ",.01)
 ;;00555083156
 ;;9002226.02101,"791,00555083156 ",.02)
 ;;00555083156
 ;;9002226.02101,"791,00555083202 ",.01)
 ;;00555083202
 ;;9002226.02101,"791,00555083202 ",.02)
 ;;00555083202
 ;;9002226.02101,"791,00555083204 ",.01)
 ;;00555083204
 ;;9002226.02101,"791,00555083204 ",.02)
 ;;00555083204
 ;;9002226.02101,"791,00555083205 ",.01)
 ;;00555083205
 ;;9002226.02101,"791,00555083205 ",.02)
 ;;00555083205
 ;;9002226.02101,"791,00555083256 ",.01)
 ;;00555083256
 ;;9002226.02101,"791,00555083256 ",.02)
 ;;00555083256
 ;;9002226.02101,"791,00555083302 ",.01)
 ;;00555083302
 ;;9002226.02101,"791,00555083302 ",.02)
 ;;00555083302
 ;;9002226.02101,"791,00555083304 ",.01)
 ;;00555083304
 ;;9002226.02101,"791,00555083304 ",.02)
 ;;00555083304
 ;;9002226.02101,"791,00555083305 ",.01)
 ;;00555083305
 ;;9002226.02101,"791,00555083305 ",.02)
 ;;00555083305
 ;;9002226.02101,"791,00555083356 ",.01)
 ;;00555083356
 ;;9002226.02101,"791,00555083356 ",.02)
 ;;00555083356
 ;;9002226.02101,"791,00555083502 ",.01)
 ;;00555083502
 ;;9002226.02101,"791,00555083502 ",.02)
 ;;00555083502
 ;;9002226.02101,"791,00555083504 ",.01)
 ;;00555083504
 ;;9002226.02101,"791,00555083504 ",.02)
 ;;00555083504
 ;;9002226.02101,"791,00555083556 ",.01)
 ;;00555083556
 ;;9002226.02101,"791,00555083556 ",.02)
 ;;00555083556
 ;;9002226.02101,"791,00555086902 ",.01)
 ;;00555086902
 ;;9002226.02101,"791,00555086902 ",.02)
 ;;00555086902
 ;;9002226.02101,"791,00555086904 ",.01)
 ;;00555086904
 ;;9002226.02101,"791,00555086904 ",.02)
 ;;00555086904
 ;;9002226.02101,"791,00555086905 ",.01)
 ;;00555086905
 ;;9002226.02101,"791,00555086905 ",.02)
 ;;00555086905
 ;;9002226.02101,"791,00555086956 ",.01)
 ;;00555086956
 ;;9002226.02101,"791,00555086956 ",.02)
 ;;00555086956
 ;;9002226.02101,"791,00555087402 ",.01)
 ;;00555087402
 ;;9002226.02101,"791,00555087402 ",.02)
 ;;00555087402
 ;;9002226.02101,"791,00555087405 ",.01)
 ;;00555087405
 ;;9002226.02101,"791,00555087405 ",.02)
 ;;00555087405
 ;;9002226.02101,"791,00555087456 ",.01)
 ;;00555087456
 ;;9002226.02101,"791,00555087456 ",.02)
 ;;00555087456
 ;;9002226.02101,"791,00555092501 ",.01)
 ;;00555092501
 ;;9002226.02101,"791,00555092501 ",.02)
 ;;00555092501
 ;;9002226.02101,"791,00555092502 ",.01)
 ;;00555092502
 ;;9002226.02101,"791,00555092502 ",.02)
 ;;00555092502
 ;;9002226.02101,"791,00555092504 ",.01)
 ;;00555092504
 ;;9002226.02101,"791,00555092504 ",.02)
 ;;00555092504
 ;;9002226.02101,"791,00555092505 ",.01)
 ;;00555092505
 ;;9002226.02101,"791,00555092505 ",.02)
 ;;00555092505
 ;;9002226.02101,"791,00555092556 ",.01)
 ;;00555092556
 ;;9002226.02101,"791,00555092556 ",.02)
 ;;00555092556
 ;;9002226.02101,"791,00555092601 ",.01)
 ;;00555092601
 ;;9002226.02101,"791,00555092601 ",.02)
 ;;00555092601
 ;;9002226.02101,"791,00555092602 ",.01)
 ;;00555092602
 ;;9002226.02101,"791,00555092602 ",.02)
 ;;00555092602
 ;;9002226.02101,"791,00555092604 ",.01)
 ;;00555092604
 ;;9002226.02101,"791,00555092604 ",.02)
 ;;00555092604
 ;;9002226.02101,"791,00555092605 ",.01)
 ;;00555092605
 ;;9002226.02101,"791,00555092605 ",.02)
 ;;00555092605
 ;;9002226.02101,"791,00555092656 ",.01)
 ;;00555092656
 ;;9002226.02101,"791,00555092656 ",.02)
 ;;00555092656
 ;;9002226.02101,"791,00615150905 ",.01)
 ;;00615150905
 ;;9002226.02101,"791,00615150905 ",.02)
 ;;00615150905
 ;;9002226.02101,"791,00615150929 ",.01)
 ;;00615150929
 ;;9002226.02101,"791,00615150929 ",.02)
 ;;00615150929
 ;;9002226.02101,"791,00615150939 ",.01)
 ;;00615150939
 ;;9002226.02101,"791,00615150939 ",.02)
 ;;00615150939
 ;;9002226.02101,"791,00615151005 ",.01)
 ;;00615151005
 ;;9002226.02101,"791,00615151005 ",.02)
 ;;00615151005
 ;;9002226.02101,"791,00615151029 ",.01)
 ;;00615151029
 ;;9002226.02101,"791,00615151029 ",.02)
 ;;00615151029
 ;;9002226.02101,"791,00615151039 ",.01)
 ;;00615151039
 ;;9002226.02101,"791,00615151039 ",.02)
 ;;00615151039
 ;;9002226.02101,"791,00615151205 ",.01)
 ;;00615151205
 ;;9002226.02101,"791,00615151205 ",.02)
 ;;00615151205
 ;;9002226.02101,"791,00615151229 ",.01)
 ;;00615151229
 ;;9002226.02101,"791,00615151229 ",.02)
 ;;00615151229
 ;;9002226.02101,"791,00615151239 ",.01)
 ;;00615151239
 ;;9002226.02101,"791,00615151239 ",.02)
 ;;00615151239
 ;;9002226.02101,"791,00615454729 ",.01)
 ;;00615454729
 ;;9002226.02101,"791,00615454729 ",.02)
 ;;00615454729
 ;;9002226.02101,"791,00615454739 ",.01)
 ;;00615454739
 ;;9002226.02101,"791,00615454739 ",.02)
 ;;00615454739
 ;;9002226.02101,"791,00615454805 ",.01)
 ;;00615454805
 ;;9002226.02101,"791,00615454805 ",.02)
 ;;00615454805
 ;;9002226.02101,"791,00615454829 ",.01)
 ;;00615454829
 ;;9002226.02101,"791,00615454829 ",.02)
 ;;00615454829
 ;;9002226.02101,"791,00615454831 ",.01)
 ;;00615454831
 ;;9002226.02101,"791,00615454831 ",.02)
 ;;00615454831
 ;;9002226.02101,"791,00615454839 ",.01)
 ;;00615454839
 ;;9002226.02101,"791,00615454839 ",.02)
 ;;00615454839
 ;;9002226.02101,"791,00615454905 ",.01)
 ;;00615454905
 ;;9002226.02101,"791,00615454905 ",.02)
 ;;00615454905
 ;;9002226.02101,"791,00615454929 ",.01)
 ;;00615454929
 ;;9002226.02101,"791,00615454929 ",.02)
 ;;00615454929
 ;;9002226.02101,"791,00615454939 ",.01)
 ;;00615454939
 ;;9002226.02101,"791,00615454939 ",.02)
 ;;00615454939
 ;;9002226.02101,"791,00615455029 ",.01)
 ;;00615455029
 ;;9002226.02101,"791,00615455029 ",.02)
 ;;00615455029
 ;;9002226.02101,"791,00615455031 ",.01)
 ;;00615455031
 ;;9002226.02101,"791,00615455031 ",.02)
 ;;00615455031
 ;;9002226.02101,"791,00615455039 ",.01)
 ;;00615455039
 ;;9002226.02101,"791,00615455039 ",.02)
 ;;00615455039
 ;;9002226.02101,"791,00677079301 ",.01)
 ;;00677079301
 ;;9002226.02101,"791,00677079301 ",.02)
 ;;00677079301
 ;;9002226.02101,"791,00677079401 ",.01)
 ;;00677079401
 ;;9002226.02101,"791,00677079401 ",.02)
 ;;00677079401
 ;;9002226.02101,"791,00719199310 ",.01)
 ;;00719199310
 ;;9002226.02101,"791,00719199310 ",.02)
 ;;00719199310
 ;;9002226.02101,"791,00719199313 ",.01)
 ;;00719199313
 ;;9002226.02101,"791,00719199313 ",.02)
 ;;00719199313
 ;;9002226.02101,"791,00725004401 ",.01)
 ;;00725004401
 ;;9002226.02101,"791,00725004401 ",.02)
 ;;00725004401
 ;;9002226.02101,"791,00725004410 ",.01)
 ;;00725004410
 ;;9002226.02101,"791,00725004410 ",.02)
 ;;00725004410
 ;;9002226.02101,"791,00725004501 ",.01)
 ;;00725004501
 ;;9002226.02101,"791,00725004501 ",.02)
 ;;00725004501
 ;;9002226.02101,"791,00725004510 ",.01)
 ;;00725004510
 ;;9002226.02101,"791,00725004510 ",.02)
 ;;00725004510
 ;;9002226.02101,"791,00725004601 ",.01)
 ;;00725004601
 ;;9002226.02101,"791,00725004601 ",.02)
 ;;00725004601
 ;;9002226.02101,"791,00725004610 ",.01)
 ;;00725004610
 ;;9002226.02101,"791,00725004610 ",.02)
 ;;00725004610
 ;;9002226.02101,"791,00725004701 ",.01)
 ;;00725004701