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

BGPM5AFL.m

Go to the documentation of this file.
BGPM5AFL ;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,"881,66685030302 ",.01)
 ;;66685030302
 ;;9002226.02101,"881,66685030302 ",.02)
 ;;66685030302
 ;;9002226.02101,"881,66685030400 ",.01)
 ;;66685030400
 ;;9002226.02101,"881,66685030400 ",.02)
 ;;66685030400
 ;;9002226.02101,"881,66685030401 ",.01)
 ;;66685030401
 ;;9002226.02101,"881,66685030401 ",.02)
 ;;66685030401
 ;;9002226.02101,"881,66685030402 ",.01)
 ;;66685030402
 ;;9002226.02101,"881,66685030402 ",.02)
 ;;66685030402
 ;;9002226.02101,"881,66685070100 ",.01)
 ;;66685070100
 ;;9002226.02101,"881,66685070100 ",.02)
 ;;66685070100
 ;;9002226.02101,"881,66685070101 ",.01)
 ;;66685070101
 ;;9002226.02101,"881,66685070101 ",.02)
 ;;66685070101
 ;;9002226.02101,"881,66685070102 ",.01)
 ;;66685070102
 ;;9002226.02101,"881,66685070102 ",.02)
 ;;66685070102
 ;;9002226.02101,"881,66685070103 ",.01)
 ;;66685070103
 ;;9002226.02101,"881,66685070103 ",.02)
 ;;66685070103
 ;;9002226.02101,"881,66685070200 ",.01)
 ;;66685070200
 ;;9002226.02101,"881,66685070200 ",.02)
 ;;66685070200
 ;;9002226.02101,"881,66685070201 ",.01)
 ;;66685070201
 ;;9002226.02101,"881,66685070201 ",.02)
 ;;66685070201
 ;;9002226.02101,"881,66685070202 ",.01)
 ;;66685070202
 ;;9002226.02101,"881,66685070202 ",.02)
 ;;66685070202
 ;;9002226.02101,"881,66685070203 ",.01)
 ;;66685070203
 ;;9002226.02101,"881,66685070203 ",.02)
 ;;66685070203
 ;;9002226.02101,"881,66685070204 ",.01)
 ;;66685070204
 ;;9002226.02101,"881,66685070204 ",.02)
 ;;66685070204
 ;;9002226.02101,"881,66685070300 ",.01)
 ;;66685070300
 ;;9002226.02101,"881,66685070300 ",.02)
 ;;66685070300
 ;;9002226.02101,"881,66685070301 ",.01)
 ;;66685070301
 ;;9002226.02101,"881,66685070301 ",.02)
 ;;66685070301
 ;;9002226.02101,"881,66685070302 ",.01)
 ;;66685070302
 ;;9002226.02101,"881,66685070302 ",.02)
 ;;66685070302
 ;;9002226.02101,"881,66685070303 ",.01)
 ;;66685070303
 ;;9002226.02101,"881,66685070303 ",.02)
 ;;66685070303
 ;;9002226.02101,"881,66685070304 ",.01)
 ;;66685070304
 ;;9002226.02101,"881,66685070304 ",.02)
 ;;66685070304
 ;;9002226.02101,"881,66685070400 ",.01)
 ;;66685070400
 ;;9002226.02101,"881,66685070400 ",.02)
 ;;66685070400
 ;;9002226.02101,"881,66685070401 ",.01)
 ;;66685070401
 ;;9002226.02101,"881,66685070401 ",.02)
 ;;66685070401
 ;;9002226.02101,"881,66685070402 ",.01)
 ;;66685070402
 ;;9002226.02101,"881,66685070402 ",.02)
 ;;66685070402
 ;;9002226.02101,"881,66685070403 ",.01)
 ;;66685070403
 ;;9002226.02101,"881,66685070403 ",.02)
 ;;66685070403
 ;;9002226.02101,"881,66685070404 ",.01)
 ;;66685070404
 ;;9002226.02101,"881,66685070404 ",.02)
 ;;66685070404
 ;;9002226.02101,"881,66685070500 ",.01)
 ;;66685070500
 ;;9002226.02101,"881,66685070500 ",.02)
 ;;66685070500
 ;;9002226.02101,"881,66685070501 ",.01)
 ;;66685070501
 ;;9002226.02101,"881,66685070501 ",.02)
 ;;66685070501
 ;;9002226.02101,"881,66685070502 ",.01)
 ;;66685070502
 ;;9002226.02101,"881,66685070502 ",.02)
 ;;66685070502
 ;;9002226.02101,"881,66685070503 ",.01)
 ;;66685070503
 ;;9002226.02101,"881,66685070503 ",.02)
 ;;66685070503
 ;;9002226.02101,"881,66685070600 ",.01)
 ;;66685070600
 ;;9002226.02101,"881,66685070600 ",.02)
 ;;66685070600
 ;;9002226.02101,"881,66685070601 ",.01)
 ;;66685070601
 ;;9002226.02101,"881,66685070601 ",.02)
 ;;66685070601
 ;;9002226.02101,"881,66685070602 ",.01)
 ;;66685070602
 ;;9002226.02101,"881,66685070602 ",.02)
 ;;66685070602
 ;;9002226.02101,"881,66685070603 ",.01)
 ;;66685070603
 ;;9002226.02101,"881,66685070603 ",.02)
 ;;66685070603
 ;;9002226.02101,"881,66685070604 ",.01)
 ;;66685070604
 ;;9002226.02101,"881,66685070604 ",.02)
 ;;66685070604
 ;;9002226.02101,"881,67046015630 ",.01)
 ;;67046015630
 ;;9002226.02101,"881,67046015630 ",.02)
 ;;67046015630
 ;;9002226.02101,"881,67046015730 ",.01)
 ;;67046015730
 ;;9002226.02101,"881,67046015730 ",.02)
 ;;67046015730
 ;;9002226.02101,"881,67046015830 ",.01)
 ;;67046015830
 ;;9002226.02101,"881,67046015830 ",.02)
 ;;67046015830
 ;;9002226.02101,"881,67046015930 ",.01)
 ;;67046015930
 ;;9002226.02101,"881,67046015930 ",.02)
 ;;67046015930
 ;;9002226.02101,"881,67046015960 ",.01)
 ;;67046015960
 ;;9002226.02101,"881,67046015960 ",.02)
 ;;67046015960
 ;;9002226.02101,"881,67046016030 ",.01)
 ;;67046016030
 ;;9002226.02101,"881,67046016030 ",.02)
 ;;67046016030
 ;;9002226.02101,"881,67046016130 ",.01)
 ;;67046016130
 ;;9002226.02101,"881,67046016130 ",.02)
 ;;67046016130
 ;;9002226.02101,"881,67046016160 ",.01)
 ;;67046016160
 ;;9002226.02101,"881,67046016160 ",.02)
 ;;67046016160
 ;;9002226.02101,"881,67046042530 ",.01)
 ;;67046042530
 ;;9002226.02101,"881,67046042530 ",.02)
 ;;67046042530
 ;;9002226.02101,"881,67046042630 ",.01)
 ;;67046042630
 ;;9002226.02101,"881,67046042630 ",.02)
 ;;67046042630
 ;;9002226.02101,"881,67046042730 ",.01)
 ;;67046042730
 ;;9002226.02101,"881,67046042730 ",.02)
 ;;67046042730
 ;;9002226.02101,"881,67046042830 ",.01)
 ;;67046042830
 ;;9002226.02101,"881,67046042830 ",.02)
 ;;67046042830
 ;;9002226.02101,"881,67228002503 ",.01)
 ;;67228002503
 ;;9002226.02101,"881,67228002503 ",.02)
 ;;67228002503
 ;;9002226.02101,"881,67228002506 ",.01)
 ;;67228002506
 ;;9002226.02101,"881,67228002506 ",.02)
 ;;67228002506
 ;;9002226.02101,"881,67228002603 ",.01)
 ;;67228002603
 ;;9002226.02101,"881,67228002603 ",.02)
 ;;67228002603
 ;;9002226.02101,"881,67228002606 ",.01)
 ;;67228002606
 ;;9002226.02101,"881,67228002606 ",.02)
 ;;67228002606
 ;;9002226.02101,"881,67228008503 ",.01)
 ;;67228008503
 ;;9002226.02101,"881,67228008503 ",.02)
 ;;67228008503
 ;;9002226.02101,"881,67228008506 ",.01)
 ;;67228008506
 ;;9002226.02101,"881,67228008506 ",.02)
 ;;67228008506
 ;;9002226.02101,"881,67228016403 ",.01)
 ;;67228016403
 ;;9002226.02101,"881,67228016403 ",.02)
 ;;67228016403
 ;;9002226.02101,"881,67228016406 ",.01)
 ;;67228016406
 ;;9002226.02101,"881,67228016406 ",.02)
 ;;67228016406
 ;;9002226.02101,"881,67228016903 ",.01)
 ;;67228016903
 ;;9002226.02101,"881,67228016903 ",.02)
 ;;67228016903
 ;;9002226.02101,"881,67228016906 ",.01)
 ;;67228016906
 ;;9002226.02101,"881,67228016906 ",.02)
 ;;67228016906
 ;;9002226.02101,"881,67228026403 ",.01)
 ;;67228026403
 ;;9002226.02101,"881,67228026403 ",.02)
 ;;67228026403
 ;;9002226.02101,"881,67228026406 ",.01)
 ;;67228026406
 ;;9002226.02101,"881,67228026406 ",.02)
 ;;67228026406
 ;;9002226.02101,"881,67228026703 ",.01)
 ;;67228026703
 ;;9002226.02101,"881,67228026703 ",.02)
 ;;67228026703
 ;;9002226.02101,"881,67228026706 ",.01)
 ;;67228026706
 ;;9002226.02101,"881,67228026706 ",.02)
 ;;67228026706
 ;;9002226.02101,"881,67228029303 ",.01)
 ;;67228029303
 ;;9002226.02101,"881,67228029303 ",.02)
 ;;67228029303
 ;;9002226.02101,"881,67228029306 ",.01)
 ;;67228029306
 ;;9002226.02101,"881,67228029306 ",.02)
 ;;67228029306
 ;;9002226.02101,"881,67228031703 ",.01)
 ;;67228031703
 ;;9002226.02101,"881,67228031703 ",.02)
 ;;67228031703
 ;;9002226.02101,"881,67228031706 ",.01)
 ;;67228031706
 ;;9002226.02101,"881,67228031706 ",.02)
 ;;67228031706
 ;;9002226.02101,"881,67228031803 ",.01)
 ;;67228031803
 ;;9002226.02101,"881,67228031803 ",.02)
 ;;67228031803
 ;;9002226.02101,"881,67228031806 ",.01)
 ;;67228031806
 ;;9002226.02101,"881,67228031806 ",.02)
 ;;67228031806
 ;;9002226.02101,"881,67228034503 ",.01)
 ;;67228034503
 ;;9002226.02101,"881,67228034503 ",.02)
 ;;67228034503
 ;;9002226.02101,"881,67228034506 ",.01)
 ;;67228034506
 ;;9002226.02101,"881,67228034506 ",.02)
 ;;67228034506
 ;;9002226.02101,"881,67228044103 ",.01)
 ;;67228044103
 ;;9002226.02101,"881,67228044103 ",.02)
 ;;67228044103
 ;;9002226.02101,"881,67228044106 ",.01)
 ;;67228044106
 ;;9002226.02101,"881,67228044106 ",.02)
 ;;67228044106
 ;;9002226.02101,"881,67228046003 ",.01)
 ;;67228046003
 ;;9002226.02101,"881,67228046003 ",.02)
 ;;67228046003
 ;;9002226.02101,"881,67228046006 ",.01)
 ;;67228046006
 ;;9002226.02101,"881,67228046006 ",.02)
 ;;67228046006
 ;;9002226.02101,"881,67253010610 ",.01)
 ;;67253010610
 ;;9002226.02101,"881,67253010610 ",.02)
 ;;67253010610
 ;;9002226.02101,"881,67253010710 ",.01)
 ;;67253010710
 ;;9002226.02101,"881,67253010710 ",.02)
 ;;67253010710
 ;;9002226.02101,"881,67253067110 ",.01)
 ;;67253067110
 ;;9002226.02101,"881,67253067110 ",.02)
 ;;67253067110
 ;;9002226.02101,"881,67253067210 ",.01)
 ;;67253067210
 ;;9002226.02101,"881,67253067210 ",.02)
 ;;67253067210
 ;;9002226.02101,"881,67253067211 ",.01)
 ;;67253067211
 ;;9002226.02101,"881,67253067211 ",.02)
 ;;67253067211
 ;;9002226.02101,"881,67253067310 ",.01)
 ;;67253067310
 ;;9002226.02101,"881,67253067310 ",.02)
 ;;67253067310
 ;;9002226.02101,"881,67253067311 ",.01)
 ;;67253067311
 ;;9002226.02101,"881,67253067311 ",.02)
 ;;67253067311
 ;;9002226.02101,"881,67253067410 ",.01)
 ;;67253067410
 ;;9002226.02101,"881,67253067410 ",.02)
 ;;67253067410
 ;;9002226.02101,"881,67253067411 ",.01)
 ;;67253067411
 ;;9002226.02101,"881,67253067411 ",.02)
 ;;67253067411
 ;;9002226.02101,"881,67544006230 ",.01)
 ;;67544006230
 ;;9002226.02101,"881,67544006230 ",.02)
 ;;67544006230
 ;;9002226.02101,"881,67544006260 ",.01)
 ;;67544006260
 ;;9002226.02101,"881,67544006260 ",.02)
 ;;67544006260
 ;;9002226.02101,"881,67544006282 ",.01)
 ;;67544006282
 ;;9002226.02101,"881,67544006282 ",.02)
 ;;67544006282
 ;;9002226.02101,"881,67544012815 ",.01)
 ;;67544012815
 ;;9002226.02101,"881,67544012815 ",.02)
 ;;67544012815
 ;;9002226.02101,"881,67544012830 ",.01)
 ;;67544012830
 ;;9002226.02101,"881,67544012830 ",.02)
 ;;67544012830
 ;;9002226.02101,"881,67544012845 ",.01)
 ;;67544012845
 ;;9002226.02101,"881,67544012845 ",.02)
 ;;67544012845
 ;;9002226.02101,"881,67544012853 ",.01)
 ;;67544012853
 ;;9002226.02101,"881,67544012853 ",.02)
 ;;67544012853
 ;;9002226.02101,"881,67544012860 ",.01)
 ;;67544012860
 ;;9002226.02101,"881,67544012860 ",.02)
 ;;67544012860
 ;;9002226.02101,"881,67544013415 ",.01)
 ;;67544013415
 ;;9002226.02101,"881,67544013415 ",.02)
 ;;67544013415
 ;;9002226.02101,"881,67544013430 ",.01)
 ;;67544013430
 ;;9002226.02101,"881,67544013430 ",.02)
 ;;67544013430
 ;;9002226.02101,"881,67544013445 ",.01)
 ;;67544013445
 ;;9002226.02101,"881,67544013445 ",.02)
 ;;67544013445
 ;;9002226.02101,"881,67544013460 ",.01)
 ;;67544013460
 ;;9002226.02101,"881,67544013460 ",.02)
 ;;67544013460
 ;;9002226.02101,"881,67544013480 ",.01)
 ;;67544013480
 ;;9002226.02101,"881,67544013480 ",.02)
 ;;67544013480
 ;;9002226.02101,"881,67544014815 ",.01)
 ;;67544014815
 ;;9002226.02101,"881,67544014815 ",.02)
 ;;67544014815
 ;;9002226.02101,"881,67544014830 ",.01)
 ;;67544014830
 ;;9002226.02101,"881,67544014830 ",.02)
 ;;67544014830
 ;;9002226.02101,"881,67544014831 ",.01)
 ;;67544014831
 ;;9002226.02101,"881,67544014831 ",.02)
 ;;67544014831
 ;;9002226.02101,"881,67544014845 ",.01)
 ;;67544014845
 ;;9002226.02101,"881,67544014845 ",.02)
 ;;67544014845
 ;;9002226.02101,"881,67544014853 ",.01)
 ;;67544014853
 ;;9002226.02101,"881,67544014853 ",.02)
 ;;67544014853
 ;;9002226.02101,"881,67544014860 ",.01)
 ;;67544014860
 ;;9002226.02101,"881,67544014860 ",.02)
 ;;67544014860
 ;;9002226.02101,"881,67544014880 ",.01)
 ;;67544014880
 ;;9002226.02101,"881,67544014880 ",.02)
 ;;67544014880
 ;;9002226.02101,"881,67544015060 ",.01)
 ;;67544015060
 ;;9002226.02101,"881,67544015060 ",.02)
 ;;67544015060
 ;;9002226.02101,"881,67544015073 ",.01)
 ;;67544015073
 ;;9002226.02101,"881,67544015073 ",.02)
 ;;67544015073
 ;;9002226.02101,"881,67544015092 ",.01)
 ;;67544015092
 ;;9002226.02101,"881,67544015092 ",.02)
 ;;67544015092