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

BGPM5ACR.m

Go to the documentation of this file.
BGPM5ACR ;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,"846,00904022380 ",.02)
 ;;00904022380
 ;;9002226.02101,"846,00904022540 ",.01)
 ;;00904022540
 ;;9002226.02101,"846,00904022540 ",.02)
 ;;00904022540
 ;;9002226.02101,"846,00904022560 ",.01)
 ;;00904022560
 ;;9002226.02101,"846,00904022560 ",.02)
 ;;00904022560
 ;;9002226.02101,"846,00904022660 ",.01)
 ;;00904022660
 ;;9002226.02101,"846,00904022660 ",.02)
 ;;00904022660
 ;;9002226.02101,"846,00904022680 ",.01)
 ;;00904022680
 ;;9002226.02101,"846,00904022680 ",.02)
 ;;00904022680
 ;;9002226.02101,"846,00904023460 ",.01)
 ;;00904023460
 ;;9002226.02101,"846,00904023460 ",.02)
 ;;00904023460
 ;;9002226.02101,"846,00904023660 ",.01)
 ;;00904023660
 ;;9002226.02101,"846,00904023660 ",.02)
 ;;00904023660
 ;;9002226.02101,"846,00904507560 ",.01)
 ;;00904507560
 ;;9002226.02101,"846,00904507560 ",.02)
 ;;00904507560
 ;;9002226.02101,"846,00904507660 ",.01)
 ;;00904507660
 ;;9002226.02101,"846,00904507660 ",.02)
 ;;00904507660
 ;;9002226.02101,"846,00904507740 ",.01)
 ;;00904507740
 ;;9002226.02101,"846,00904507740 ",.02)
 ;;00904507740
 ;;9002226.02101,"846,00904507760 ",.01)
 ;;00904507760
 ;;9002226.02101,"846,00904507760 ",.02)
 ;;00904507760
 ;;9002226.02101,"846,00904507780 ",.01)
 ;;00904507780
 ;;9002226.02101,"846,00904507780 ",.02)
 ;;00904507780
 ;;9002226.02101,"846,00904612361 ",.01)
 ;;00904612361
 ;;9002226.02101,"846,00904612361 ",.02)
 ;;00904612361
 ;;9002226.02101,"846,00904612461 ",.01)
 ;;00904612461
 ;;9002226.02101,"846,00904612461 ",.02)
 ;;00904612461
 ;;9002226.02101,"846,00904613760 ",.01)
 ;;00904613760
 ;;9002226.02101,"846,00904613760 ",.02)
 ;;00904613760
 ;;9002226.02101,"846,00904613840 ",.01)
 ;;00904613840
 ;;9002226.02101,"846,00904613840 ",.02)
 ;;00904613840
 ;;9002226.02101,"846,00904613860 ",.01)
 ;;00904613860
 ;;9002226.02101,"846,00904613860 ",.02)
 ;;00904613860
 ;;9002226.02101,"846,00904613960 ",.01)
 ;;00904613960
 ;;9002226.02101,"846,00904613960 ",.02)
 ;;00904613960
 ;;9002226.02101,"846,00904613980 ",.01)
 ;;00904613980
 ;;9002226.02101,"846,00904613980 ",.02)
 ;;00904613980
 ;;9002226.02101,"846,00904792440 ",.01)
 ;;00904792440
 ;;9002226.02101,"846,00904792440 ",.02)
 ;;00904792440
 ;;9002226.02101,"846,00904792460 ",.01)
 ;;00904792460
 ;;9002226.02101,"846,00904792460 ",.02)
 ;;00904792460
 ;;9002226.02101,"846,00904792461 ",.01)
 ;;00904792461
 ;;9002226.02101,"846,00904792461 ",.02)
 ;;00904792461
 ;;9002226.02101,"846,00904792480 ",.01)
 ;;00904792480
 ;;9002226.02101,"846,00904792480 ",.02)
 ;;00904792480
 ;;9002226.02101,"846,00904792540 ",.01)
 ;;00904792540
 ;;9002226.02101,"846,00904792540 ",.02)
 ;;00904792540
 ;;9002226.02101,"846,00904792560 ",.01)
 ;;00904792560
 ;;9002226.02101,"846,00904792560 ",.02)
 ;;00904792560
 ;;9002226.02101,"846,00904792561 ",.01)
 ;;00904792561
 ;;9002226.02101,"846,00904792561 ",.02)
 ;;00904792561
 ;;9002226.02101,"846,00904792580 ",.01)
 ;;00904792580
 ;;9002226.02101,"846,00904792580 ",.02)
 ;;00904792580
 ;;9002226.02101,"846,10544019230 ",.01)
 ;;10544019230
 ;;9002226.02101,"846,10544019230 ",.02)
 ;;10544019230
 ;;9002226.02101,"846,10768715001 ",.01)
 ;;10768715001
 ;;9002226.02101,"846,10768715001 ",.02)
 ;;10768715001
 ;;9002226.02101,"846,10768715002 ",.01)
 ;;10768715002
 ;;9002226.02101,"846,10768715002 ",.02)
 ;;10768715002
 ;;9002226.02101,"846,10768747501 ",.01)
 ;;10768747501
 ;;9002226.02101,"846,10768747501 ",.02)
 ;;10768747501
 ;;9002226.02101,"846,10768747502 ",.01)
 ;;10768747502
 ;;9002226.02101,"846,10768747502 ",.02)
 ;;10768747502
 ;;9002226.02101,"846,10768770001 ",.01)
 ;;10768770001
 ;;9002226.02101,"846,10768770001 ",.02)
 ;;10768770001
 ;;9002226.02101,"846,10768770002 ",.01)
 ;;10768770002
 ;;9002226.02101,"846,10768770002 ",.02)
 ;;10768770002
 ;;9002226.02101,"846,11819006560 ",.01)
 ;;11819006560
 ;;9002226.02101,"846,11819006560 ",.02)
 ;;11819006560
 ;;9002226.02101,"846,11819006590 ",.01)
 ;;11819006590
 ;;9002226.02101,"846,11819006590 ",.02)
 ;;11819006590
 ;;9002226.02101,"846,11819006591 ",.01)
 ;;11819006591
 ;;9002226.02101,"846,11819006591 ",.02)
 ;;11819006591
 ;;9002226.02101,"846,11819006595 ",.01)
 ;;11819006595
 ;;9002226.02101,"846,11819006595 ",.02)
 ;;11819006595
 ;;9002226.02101,"846,11819006597 ",.01)
 ;;11819006597
 ;;9002226.02101,"846,11819006597 ",.02)
 ;;11819006597
 ;;9002226.02101,"846,11819006598 ",.01)
 ;;11819006598
 ;;9002226.02101,"846,11819006598 ",.02)
 ;;11819006598
 ;;9002226.02101,"846,11819008760 ",.01)
 ;;11819008760
 ;;9002226.02101,"846,11819008760 ",.02)
 ;;11819008760
 ;;9002226.02101,"846,11819008790 ",.01)
 ;;11819008790
 ;;9002226.02101,"846,11819008790 ",.02)
 ;;11819008790
 ;;9002226.02101,"846,11819008791 ",.01)
 ;;11819008791
 ;;9002226.02101,"846,11819008791 ",.02)
 ;;11819008791
 ;;9002226.02101,"846,11819008795 ",.01)
 ;;11819008795
 ;;9002226.02101,"846,11819008795 ",.02)
 ;;11819008795
 ;;9002226.02101,"846,11819008797 ",.01)
 ;;11819008797
 ;;9002226.02101,"846,11819008797 ",.02)
 ;;11819008797
 ;;9002226.02101,"846,11819008798 ",.01)
 ;;11819008798
 ;;9002226.02101,"846,11819008798 ",.02)
 ;;11819008798
 ;;9002226.02101,"846,12634049060 ",.01)
 ;;12634049060
 ;;9002226.02101,"846,12634049060 ",.02)
 ;;12634049060
 ;;9002226.02101,"846,12634072960 ",.01)
 ;;12634072960
 ;;9002226.02101,"846,12634072960 ",.02)
 ;;12634072960
 ;;9002226.02101,"846,12634078480 ",.01)
 ;;12634078480
 ;;9002226.02101,"846,12634078480 ",.02)
 ;;12634078480
 ;;9002226.02101,"846,12634079012 ",.01)
 ;;12634079012
 ;;9002226.02101,"846,12634079012 ",.02)
 ;;12634079012
 ;;9002226.02101,"846,13411022001 ",.01)
 ;;13411022001
 ;;9002226.02101,"846,13411022001 ",.02)
 ;;13411022001
 ;;9002226.02101,"846,13411022002 ",.01)
 ;;13411022002
 ;;9002226.02101,"846,13411022002 ",.02)
 ;;13411022002
 ;;9002226.02101,"846,13411022003 ",.01)
 ;;13411022003
 ;;9002226.02101,"846,13411022003 ",.02)
 ;;13411022003
 ;;9002226.02101,"846,13411022006 ",.01)
 ;;13411022006
 ;;9002226.02101,"846,13411022006 ",.02)
 ;;13411022006
 ;;9002226.02101,"846,13411022010 ",.01)
 ;;13411022010
 ;;9002226.02101,"846,13411022010 ",.02)
 ;;13411022010
 ;;9002226.02101,"846,13411022101 ",.01)
 ;;13411022101
 ;;9002226.02101,"846,13411022101 ",.02)
 ;;13411022101
 ;;9002226.02101,"846,13411022102 ",.01)
 ;;13411022102
 ;;9002226.02101,"846,13411022102 ",.02)
 ;;13411022102
 ;;9002226.02101,"846,13411022103 ",.01)
 ;;13411022103
 ;;9002226.02101,"846,13411022103 ",.02)
 ;;13411022103
 ;;9002226.02101,"846,13411022106 ",.01)
 ;;13411022106
 ;;9002226.02101,"846,13411022106 ",.02)
 ;;13411022106
 ;;9002226.02101,"846,13411022110 ",.01)
 ;;13411022110
 ;;9002226.02101,"846,13411022110 ",.02)
 ;;13411022110
 ;;9002226.02101,"846,13411034603 ",.01)
 ;;13411034603
 ;;9002226.02101,"846,13411034603 ",.02)
 ;;13411034603
 ;;9002226.02101,"846,13411034703 ",.01)
 ;;13411034703
 ;;9002226.02101,"846,13411034703 ",.02)
 ;;13411034703
 ;;9002226.02101,"846,13411034803 ",.01)
 ;;13411034803
 ;;9002226.02101,"846,13411034803 ",.02)
 ;;13411034803
 ;;9002226.02101,"846,13411034903 ",.01)
 ;;13411034903
 ;;9002226.02101,"846,13411034903 ",.02)
 ;;13411034903
 ;;9002226.02101,"846,13411035003 ",.01)
 ;;13411035003
 ;;9002226.02101,"846,13411035003 ",.02)
 ;;13411035003
 ;;9002226.02101,"846,14550051702 ",.01)
 ;;14550051702
 ;;9002226.02101,"846,14550051702 ",.02)
 ;;14550051702
 ;;9002226.02101,"846,14550051704 ",.01)
 ;;14550051704
 ;;9002226.02101,"846,14550051704 ",.02)
 ;;14550051704
 ;;9002226.02101,"846,14550051802 ",.01)
 ;;14550051802
 ;;9002226.02101,"846,14550051802 ",.02)
 ;;14550051802
 ;;9002226.02101,"846,14550051804 ",.01)
 ;;14550051804
 ;;9002226.02101,"846,14550051804 ",.02)
 ;;14550051804
 ;;9002226.02101,"846,14550051902 ",.01)
 ;;14550051902
 ;;9002226.02101,"846,14550051902 ",.02)
 ;;14550051902
 ;;9002226.02101,"846,14550051904 ",.01)
 ;;14550051904
 ;;9002226.02101,"846,14550051904 ",.02)
 ;;14550051904
 ;;9002226.02101,"846,15548096701 ",.01)
 ;;15548096701
 ;;9002226.02101,"846,15548096701 ",.02)
 ;;15548096701
 ;;9002226.02101,"846,15548096705 ",.01)
 ;;15548096705
 ;;9002226.02101,"846,15548096705 ",.02)
 ;;15548096705
 ;;9002226.02101,"846,15548096801 ",.01)
 ;;15548096801
 ;;9002226.02101,"846,15548096801 ",.02)
 ;;15548096801
 ;;9002226.02101,"846,15548096805 ",.01)
 ;;15548096805
 ;;9002226.02101,"846,15548096805 ",.02)
 ;;15548096805
 ;;9002226.02101,"846,16252051801 ",.01)
 ;;16252051801
 ;;9002226.02101,"846,16252051801 ",.02)
 ;;16252051801
 ;;9002226.02101,"846,16252051901 ",.01)
 ;;16252051901
 ;;9002226.02101,"846,16252051901 ",.02)
 ;;16252051901
 ;;9002226.02101,"846,16252052001 ",.01)
 ;;16252052001
 ;;9002226.02101,"846,16252052001 ",.02)
 ;;16252052001
 ;;9002226.02101,"846,16364000101 ",.01)
 ;;16364000101
 ;;9002226.02101,"846,16364000101 ",.02)
 ;;16364000101
 ;;9002226.02101,"846,16364000201 ",.01)
 ;;16364000201
 ;;9002226.02101,"846,16364000201 ",.02)
 ;;16364000201
 ;;9002226.02101,"846,16364000301 ",.01)
 ;;16364000301
 ;;9002226.02101,"846,16364000301 ",.02)
 ;;16364000301
 ;;9002226.02101,"846,16590028730 ",.01)
 ;;16590028730
 ;;9002226.02101,"846,16590028730 ",.02)
 ;;16590028730
 ;;9002226.02101,"846,16590028760 ",.01)
 ;;16590028760
 ;;9002226.02101,"846,16590028760 ",.02)
 ;;16590028760
 ;;9002226.02101,"846,16590028771 ",.01)
 ;;16590028771
 ;;9002226.02101,"846,16590028771 ",.02)
 ;;16590028771
 ;;9002226.02101,"846,16590028790 ",.01)
 ;;16590028790
 ;;9002226.02101,"846,16590028790 ",.02)
 ;;16590028790
 ;;9002226.02101,"846,16590041860 ",.01)
 ;;16590041860
 ;;9002226.02101,"846,16590041860 ",.02)
 ;;16590041860
 ;;9002226.02101,"846,16729000101 ",.01)
 ;;16729000101
 ;;9002226.02101,"846,16729000101 ",.02)
 ;;16729000101
 ;;9002226.02101,"846,16729000201 ",.01)
 ;;16729000201
 ;;9002226.02101,"846,16729000201 ",.02)
 ;;16729000201
 ;;9002226.02101,"846,16729000301 ",.01)
 ;;16729000301
 ;;9002226.02101,"846,16729000301 ",.02)
 ;;16729000301
 ;;9002226.02101,"846,16729013900 ",.01)
 ;;16729013900
 ;;9002226.02101,"846,16729013900 ",.02)
 ;;16729013900
 ;;9002226.02101,"846,16729013916 ",.01)
 ;;16729013916
 ;;9002226.02101,"846,16729013916 ",.02)
 ;;16729013916
 ;;9002226.02101,"846,16729013917 ",.01)
 ;;16729013917
 ;;9002226.02101,"846,16729013917 ",.02)
 ;;16729013917
 ;;9002226.02101,"846,16729014000 ",.01)
 ;;16729014000
 ;;9002226.02101,"846,16729014000 ",.02)
 ;;16729014000
 ;;9002226.02101,"846,16729014016 ",.01)
 ;;16729014016
 ;;9002226.02101,"846,16729014016 ",.02)
 ;;16729014016
 ;;9002226.02101,"846,16729014017 ",.01)
 ;;16729014017
 ;;9002226.02101,"846,16729014017 ",.02)
 ;;16729014017
 ;;9002226.02101,"846,17856084402 ",.01)
 ;;17856084402
 ;;9002226.02101,"846,17856084402 ",.02)
 ;;17856084402
 ;;9002226.02101,"846,17856087302 ",.01)
 ;;17856087302
 ;;9002226.02101,"846,17856087302 ",.02)
 ;;17856087302
 ;;9002226.02101,"846,17856289802 ",.01)
 ;;17856289802
 ;;9002226.02101,"846,17856289802 ",.02)
 ;;17856289802
 ;;9002226.02101,"846,17856315802 ",.01)
 ;;17856315802
 ;;9002226.02101,"846,17856315802 ",.02)
 ;;17856315802
 ;;9002226.02101,"846,21695046730 ",.01)
 ;;21695046730
 ;;9002226.02101,"846,21695046730 ",.02)
 ;;21695046730
 ;;9002226.02101,"846,21695046760 ",.01)
 ;;21695046760
 ;;9002226.02101,"846,21695046760 ",.02)
 ;;21695046760
 ;;9002226.02101,"846,21695046830 ",.01)
 ;;21695046830
 ;;9002226.02101,"846,21695046830 ",.02)
 ;;21695046830
 ;;9002226.02101,"846,21695046860 ",.01)
 ;;21695046860