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

BGPM3ACU.m

Go to the documentation of this file.
BGPM3ACU ;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,"786,16364000612 ",.02)
 ;;16364000612
 ;;9002226.02101,"786,16364000615 ",.01)
 ;;16364000615
 ;;9002226.02101,"786,16364000615 ",.02)
 ;;16364000615
 ;;9002226.02101,"786,16364000617 ",.01)
 ;;16364000617
 ;;9002226.02101,"786,16364000617 ",.02)
 ;;16364000617
 ;;9002226.02101,"786,16364000710 ",.01)
 ;;16364000710
 ;;9002226.02101,"786,16364000710 ",.02)
 ;;16364000710
 ;;9002226.02101,"786,16364000712 ",.01)
 ;;16364000712
 ;;9002226.02101,"786,16364000712 ",.02)
 ;;16364000712
 ;;9002226.02101,"786,16364000715 ",.01)
 ;;16364000715
 ;;9002226.02101,"786,16364000715 ",.02)
 ;;16364000715
 ;;9002226.02101,"786,16364000717 ",.01)
 ;;16364000717
 ;;9002226.02101,"786,16364000717 ",.02)
 ;;16364000717
 ;;9002226.02101,"786,16563002901 ",.01)
 ;;16563002901
 ;;9002226.02101,"786,16563002901 ",.02)
 ;;16563002901
 ;;9002226.02101,"786,16590043130 ",.01)
 ;;16590043130
 ;;9002226.02101,"786,16590043130 ",.02)
 ;;16590043130
 ;;9002226.02101,"786,16590072690 ",.01)
 ;;16590072690
 ;;9002226.02101,"786,16590072690 ",.02)
 ;;16590072690
 ;;9002226.02101,"786,16714010101 ",.01)
 ;;16714010101
 ;;9002226.02101,"786,16714010101 ",.02)
 ;;16714010101
 ;;9002226.02101,"786,16714010102 ",.01)
 ;;16714010102
 ;;9002226.02101,"786,16714010102 ",.02)
 ;;16714010102
 ;;9002226.02101,"786,16714010103 ",.01)
 ;;16714010103
 ;;9002226.02101,"786,16714010103 ",.02)
 ;;16714010103
 ;;9002226.02101,"786,16714010104 ",.01)
 ;;16714010104
 ;;9002226.02101,"786,16714010104 ",.02)
 ;;16714010104
 ;;9002226.02101,"786,16714010105 ",.01)
 ;;16714010105
 ;;9002226.02101,"786,16714010105 ",.02)
 ;;16714010105
 ;;9002226.02101,"786,16714068101 ",.01)
 ;;16714068101
 ;;9002226.02101,"786,16714068101 ",.02)
 ;;16714068101
 ;;9002226.02101,"786,16714068102 ",.01)
 ;;16714068102
 ;;9002226.02101,"786,16714068102 ",.02)
 ;;16714068102
 ;;9002226.02101,"786,16714068201 ",.01)
 ;;16714068201
 ;;9002226.02101,"786,16714068201 ",.02)
 ;;16714068201
 ;;9002226.02101,"786,16714068202 ",.01)
 ;;16714068202
 ;;9002226.02101,"786,16714068202 ",.02)
 ;;16714068202
 ;;9002226.02101,"786,16714068203 ",.01)
 ;;16714068203
 ;;9002226.02101,"786,16714068203 ",.02)
 ;;16714068203
 ;;9002226.02101,"786,16714068301 ",.01)
 ;;16714068301
 ;;9002226.02101,"786,16714068301 ",.02)
 ;;16714068301
 ;;9002226.02101,"786,16714068302 ",.01)
 ;;16714068302
 ;;9002226.02101,"786,16714068302 ",.02)
 ;;16714068302
 ;;9002226.02101,"786,16714068303 ",.01)
 ;;16714068303
 ;;9002226.02101,"786,16714068303 ",.02)
 ;;16714068303
 ;;9002226.02101,"786,16714068401 ",.01)
 ;;16714068401
 ;;9002226.02101,"786,16714068401 ",.02)
 ;;16714068401
 ;;9002226.02101,"786,16714068402 ",.01)
 ;;16714068402
 ;;9002226.02101,"786,16714068402 ",.02)
 ;;16714068402
 ;;9002226.02101,"786,16714068403 ",.01)
 ;;16714068403
 ;;9002226.02101,"786,16714068403 ",.02)
 ;;16714068403
 ;;9002226.02101,"786,16714068501 ",.01)
 ;;16714068501
 ;;9002226.02101,"786,16714068501 ",.02)
 ;;16714068501
 ;;9002226.02101,"786,16714068502 ",.01)
 ;;16714068502
 ;;9002226.02101,"786,16714068502 ",.02)
 ;;16714068502
 ;;9002226.02101,"786,16714068503 ",.01)
 ;;16714068503
 ;;9002226.02101,"786,16714068503 ",.02)
 ;;16714068503
 ;;9002226.02101,"786,16729000410 ",.01)
 ;;16729000410
 ;;9002226.02101,"786,16729000410 ",.02)
 ;;16729000410
 ;;9002226.02101,"786,16729000412 ",.01)
 ;;16729000412
 ;;9002226.02101,"786,16729000412 ",.02)
 ;;16729000412
 ;;9002226.02101,"786,16729000415 ",.01)
 ;;16729000415
 ;;9002226.02101,"786,16729000415 ",.02)
 ;;16729000415
 ;;9002226.02101,"786,16729000417 ",.01)
 ;;16729000417
 ;;9002226.02101,"786,16729000417 ",.02)
 ;;16729000417
 ;;9002226.02101,"786,16729000510 ",.01)
 ;;16729000510
 ;;9002226.02101,"786,16729000510 ",.02)
 ;;16729000510
 ;;9002226.02101,"786,16729000512 ",.01)
 ;;16729000512
 ;;9002226.02101,"786,16729000512 ",.02)
 ;;16729000512
 ;;9002226.02101,"786,16729000515 ",.01)
 ;;16729000515
 ;;9002226.02101,"786,16729000515 ",.02)
 ;;16729000515
 ;;9002226.02101,"786,16729000517 ",.01)
 ;;16729000517
 ;;9002226.02101,"786,16729000517 ",.02)
 ;;16729000517
 ;;9002226.02101,"786,16729000610 ",.01)
 ;;16729000610
 ;;9002226.02101,"786,16729000610 ",.02)
 ;;16729000610
 ;;9002226.02101,"786,16729000612 ",.01)
 ;;16729000612
 ;;9002226.02101,"786,16729000612 ",.02)
 ;;16729000612
 ;;9002226.02101,"786,16729000615 ",.01)
 ;;16729000615
 ;;9002226.02101,"786,16729000615 ",.02)
 ;;16729000615
 ;;9002226.02101,"786,16729000617 ",.01)
 ;;16729000617
 ;;9002226.02101,"786,16729000617 ",.02)
 ;;16729000617
 ;;9002226.02101,"786,16729000710 ",.01)
 ;;16729000710
 ;;9002226.02101,"786,16729000710 ",.02)
 ;;16729000710
 ;;9002226.02101,"786,16729000712 ",.01)
 ;;16729000712
 ;;9002226.02101,"786,16729000712 ",.02)
 ;;16729000712
 ;;9002226.02101,"786,16729000715 ",.01)
 ;;16729000715
 ;;9002226.02101,"786,16729000715 ",.02)
 ;;16729000715
 ;;9002226.02101,"786,16729000717 ",.01)
 ;;16729000717
 ;;9002226.02101,"786,16729000717 ",.02)
 ;;16729000717
 ;;9002226.02101,"786,17236041801 ",.01)
 ;;17236041801
 ;;9002226.02101,"786,17236041801 ",.02)
 ;;17236041801
 ;;9002226.02101,"786,17236041810 ",.01)
 ;;17236041810
 ;;9002226.02101,"786,17236041810 ",.02)
 ;;17236041810
 ;;9002226.02101,"786,17236042001 ",.01)
 ;;17236042001
 ;;9002226.02101,"786,17236042001 ",.02)
 ;;17236042001
 ;;9002226.02101,"786,17236042010 ",.01)
 ;;17236042010
 ;;9002226.02101,"786,17236042010 ",.02)
 ;;17236042010
 ;;9002226.02101,"786,17236042101 ",.01)
 ;;17236042101
 ;;9002226.02101,"786,17236042101 ",.02)
 ;;17236042101
 ;;9002226.02101,"786,17236042110 ",.01)
 ;;17236042110
 ;;9002226.02101,"786,17236042110 ",.02)
 ;;17236042110
 ;;9002226.02101,"786,17856005302 ",.01)
 ;;17856005302
 ;;9002226.02101,"786,17856005302 ",.02)
 ;;17856005302
 ;;9002226.02101,"786,17856019902 ",.01)
 ;;17856019902
 ;;9002226.02101,"786,17856019902 ",.02)
 ;;17856019902
 ;;9002226.02101,"786,17856078902 ",.01)
 ;;17856078902
 ;;9002226.02101,"786,17856078902 ",.02)
 ;;17856078902
 ;;9002226.02101,"786,17856079302 ",.01)
 ;;17856079302
 ;;9002226.02101,"786,17856079302 ",.02)
 ;;17856079302
 ;;9002226.02101,"786,21695053430 ",.01)
 ;;21695053430
 ;;9002226.02101,"786,21695053430 ",.02)
 ;;21695053430
 ;;9002226.02101,"786,21695053530 ",.01)
 ;;21695053530
 ;;9002226.02101,"786,21695053530 ",.02)
 ;;21695053530
 ;;9002226.02101,"786,21695073230 ",.01)
 ;;21695073230
 ;;9002226.02101,"786,21695073230 ",.02)
 ;;21695073230
 ;;9002226.02101,"786,21695073260 ",.01)
 ;;21695073260
 ;;9002226.02101,"786,21695073260 ",.02)
 ;;21695073260
 ;;9002226.02101,"786,21695073930 ",.01)
 ;;21695073930
 ;;9002226.02101,"786,21695073930 ",.02)
 ;;21695073930
 ;;9002226.02101,"786,21695074130 ",.01)
 ;;21695074130
 ;;9002226.02101,"786,21695074130 ",.02)
 ;;21695074130
 ;;9002226.02101,"786,21695074190 ",.01)
 ;;21695074190
 ;;9002226.02101,"786,21695074190 ",.02)
 ;;21695074190
 ;;9002226.02101,"786,21695074230 ",.01)
 ;;21695074230
 ;;9002226.02101,"786,21695074230 ",.02)
 ;;21695074230
 ;;9002226.02101,"786,23490063200 ",.01)
 ;;23490063200
 ;;9002226.02101,"786,23490063200 ",.02)
 ;;23490063200
 ;;9002226.02101,"786,23490063203 ",.01)
 ;;23490063203
 ;;9002226.02101,"786,23490063203 ",.02)
 ;;23490063203
 ;;9002226.02101,"786,23490063205 ",.01)
 ;;23490063205
 ;;9002226.02101,"786,23490063205 ",.02)
 ;;23490063205
 ;;9002226.02101,"786,23490063206 ",.01)
 ;;23490063206
 ;;9002226.02101,"786,23490063206 ",.02)
 ;;23490063206
 ;;9002226.02101,"786,23490063209 ",.01)
 ;;23490063209
 ;;9002226.02101,"786,23490063209 ",.02)
 ;;23490063209
 ;;9002226.02101,"786,23490562601 ",.01)
 ;;23490562601
 ;;9002226.02101,"786,23490562601 ",.02)
 ;;23490562601
 ;;9002226.02101,"786,23490562602 ",.01)
 ;;23490562602
 ;;9002226.02101,"786,23490562602 ",.02)
 ;;23490562602
 ;;9002226.02101,"786,23490583802 ",.01)
 ;;23490583802
 ;;9002226.02101,"786,23490583802 ",.02)
 ;;23490583802
 ;;9002226.02101,"786,23490583806 ",.01)
 ;;23490583806
 ;;9002226.02101,"786,23490583806 ",.02)
 ;;23490583806
 ;;9002226.02101,"786,23490583809 ",.01)
 ;;23490583809
 ;;9002226.02101,"786,23490583809 ",.02)
 ;;23490583809
 ;;9002226.02101,"786,23490583900 ",.01)
 ;;23490583900
 ;;9002226.02101,"786,23490583900 ",.02)
 ;;23490583900
 ;;9002226.02101,"786,23490583901 ",.01)
 ;;23490583901
 ;;9002226.02101,"786,23490583901 ",.02)
 ;;23490583901
 ;;9002226.02101,"786,23490584001 ",.01)
 ;;23490584001
 ;;9002226.02101,"786,23490584001 ",.02)
 ;;23490584001
 ;;9002226.02101,"786,23490584002 ",.01)
 ;;23490584002
 ;;9002226.02101,"786,23490584002 ",.02)
 ;;23490584002
 ;;9002226.02101,"786,23490935303 ",.01)
 ;;23490935303
 ;;9002226.02101,"786,23490935303 ",.02)
 ;;23490935303
 ;;9002226.02101,"786,23490935306 ",.01)
 ;;23490935306
 ;;9002226.02101,"786,23490935306 ",.02)
 ;;23490935306
 ;;9002226.02101,"786,23490935309 ",.01)
 ;;23490935309
 ;;9002226.02101,"786,23490935309 ",.02)
 ;;23490935309
 ;;9002226.02101,"786,23490935403 ",.01)
 ;;23490935403
 ;;9002226.02101,"786,23490935403 ",.02)
 ;;23490935403
 ;;9002226.02101,"786,23490935406 ",.01)
 ;;23490935406
 ;;9002226.02101,"786,23490935406 ",.02)
 ;;23490935406
 ;;9002226.02101,"786,23490935409 ",.01)
 ;;23490935409
 ;;9002226.02101,"786,23490935409 ",.02)
 ;;23490935409
 ;;9002226.02101,"786,23490935503 ",.01)
 ;;23490935503
 ;;9002226.02101,"786,23490935503 ",.02)
 ;;23490935503
 ;;9002226.02101,"786,23490935506 ",.01)
 ;;23490935506
 ;;9002226.02101,"786,23490935506 ",.02)
 ;;23490935506
 ;;9002226.02101,"786,23490935509 ",.01)
 ;;23490935509
 ;;9002226.02101,"786,23490935509 ",.02)
 ;;23490935509
 ;;9002226.02101,"786,23490935603 ",.01)
 ;;23490935603
 ;;9002226.02101,"786,23490935603 ",.02)
 ;;23490935603
 ;;9002226.02101,"786,23490935606 ",.01)
 ;;23490935606
 ;;9002226.02101,"786,23490935606 ",.02)
 ;;23490935606
 ;;9002226.02101,"786,23490935609 ",.01)
 ;;23490935609
 ;;9002226.02101,"786,23490935609 ",.02)
 ;;23490935609
 ;;9002226.02101,"786,23490935703 ",.01)
 ;;23490935703
 ;;9002226.02101,"786,23490935703 ",.02)
 ;;23490935703
 ;;9002226.02101,"786,23490935706 ",.01)
 ;;23490935706
 ;;9002226.02101,"786,23490935706 ",.02)
 ;;23490935706
 ;;9002226.02101,"786,23490935709 ",.01)
 ;;23490935709
 ;;9002226.02101,"786,23490935709 ",.02)
 ;;23490935709
 ;;9002226.02101,"786,23629005901 ",.01)
 ;;23629005901
 ;;9002226.02101,"786,23629005901 ",.02)
 ;;23629005901
 ;;9002226.02101,"786,24236008602 ",.01)
 ;;24236008602
 ;;9002226.02101,"786,24236008602 ",.02)
 ;;24236008602
 ;;9002226.02101,"786,24236015602 ",.01)
 ;;24236015602
 ;;9002226.02101,"786,24236015602 ",.02)
 ;;24236015602
 ;;9002226.02101,"786,24236021002 ",.01)
 ;;24236021002
 ;;9002226.02101,"786,24236021002 ",.02)
 ;;24236021002
 ;;9002226.02101,"786,24236022902 ",.01)
 ;;24236022902
 ;;9002226.02101,"786,24236022902 ",.02)
 ;;24236022902
 ;;9002226.02101,"786,24236030502 ",.01)
 ;;24236030502
 ;;9002226.02101,"786,24236030502 ",.02)
 ;;24236030502
 ;;9002226.02101,"786,24236037202 ",.01)
 ;;24236037202
 ;;9002226.02101,"786,24236037202 ",.02)
 ;;24236037202
 ;;9002226.02101,"786,24236038402 ",.01)
 ;;24236038402
 ;;9002226.02101,"786,24236038402 ",.02)
 ;;24236038402
 ;;9002226.02101,"786,24236050002 ",.01)
 ;;24236050002
 ;;9002226.02101,"786,24236050002 ",.02)
 ;;24236050002
 ;;9002226.02101,"786,24236059102 ",.01)
 ;;24236059102
 ;;9002226.02101,"786,24236059102 ",.02)
 ;;24236059102
 ;;9002226.02101,"786,24236064002 ",.01)
 ;;24236064002