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

BGPM3ADS.m

Go to the documentation of this file.
BGPM3ADS ;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,"785,16252050700 ",.01)
 ;;16252050700
 ;;9002226.02101,"785,16252050700 ",.02)
 ;;16252050700
 ;;9002226.02101,"785,16252050730 ",.01)
 ;;16252050730
 ;;9002226.02101,"785,16252050730 ",.02)
 ;;16252050730
 ;;9002226.02101,"785,16252050750 ",.01)
 ;;16252050750
 ;;9002226.02101,"785,16252050750 ",.02)
 ;;16252050750
 ;;9002226.02101,"785,16252050790 ",.01)
 ;;16252050790
 ;;9002226.02101,"785,16252050790 ",.02)
 ;;16252050790
 ;;9002226.02101,"785,16252050800 ",.01)
 ;;16252050800
 ;;9002226.02101,"785,16252050800 ",.02)
 ;;16252050800
 ;;9002226.02101,"785,16252050830 ",.01)
 ;;16252050830
 ;;9002226.02101,"785,16252050830 ",.02)
 ;;16252050830
 ;;9002226.02101,"785,16252050850 ",.01)
 ;;16252050850
 ;;9002226.02101,"785,16252050850 ",.02)
 ;;16252050850
 ;;9002226.02101,"785,16252050890 ",.01)
 ;;16252050890
 ;;9002226.02101,"785,16252050890 ",.02)
 ;;16252050890
 ;;9002226.02101,"785,16252050900 ",.01)
 ;;16252050900
 ;;9002226.02101,"785,16252050900 ",.02)
 ;;16252050900
 ;;9002226.02101,"785,16252050930 ",.01)
 ;;16252050930
 ;;9002226.02101,"785,16252050930 ",.02)
 ;;16252050930
 ;;9002226.02101,"785,16252050950 ",.01)
 ;;16252050950
 ;;9002226.02101,"785,16252050950 ",.02)
 ;;16252050950
 ;;9002226.02101,"785,16252050990 ",.01)
 ;;16252050990
 ;;9002226.02101,"785,16252050990 ",.02)
 ;;16252050990
 ;;9002226.02101,"785,16364000410 ",.01)
 ;;16364000410
 ;;9002226.02101,"785,16364000410 ",.02)
 ;;16364000410
 ;;9002226.02101,"785,16364000412 ",.01)
 ;;16364000412
 ;;9002226.02101,"785,16364000412 ",.02)
 ;;16364000412
 ;;9002226.02101,"785,16364000415 ",.01)
 ;;16364000415
 ;;9002226.02101,"785,16364000415 ",.02)
 ;;16364000415
 ;;9002226.02101,"785,16364000417 ",.01)
 ;;16364000417
 ;;9002226.02101,"785,16364000417 ",.02)
 ;;16364000417
 ;;9002226.02101,"785,16364000510 ",.01)
 ;;16364000510
 ;;9002226.02101,"785,16364000510 ",.02)
 ;;16364000510
 ;;9002226.02101,"785,16364000512 ",.01)
 ;;16364000512
 ;;9002226.02101,"785,16364000512 ",.02)
 ;;16364000512
 ;;9002226.02101,"785,16364000515 ",.01)
 ;;16364000515
 ;;9002226.02101,"785,16364000515 ",.02)
 ;;16364000515
 ;;9002226.02101,"785,16364000517 ",.01)
 ;;16364000517
 ;;9002226.02101,"785,16364000517 ",.02)
 ;;16364000517
 ;;9002226.02101,"785,16364000610 ",.01)
 ;;16364000610
 ;;9002226.02101,"785,16364000610 ",.02)
 ;;16364000610
 ;;9002226.02101,"785,16364000612 ",.01)
 ;;16364000612
 ;;9002226.02101,"785,16364000612 ",.02)
 ;;16364000612
 ;;9002226.02101,"785,16364000615 ",.01)
 ;;16364000615
 ;;9002226.02101,"785,16364000615 ",.02)
 ;;16364000615
 ;;9002226.02101,"785,16364000617 ",.01)
 ;;16364000617
 ;;9002226.02101,"785,16364000617 ",.02)
 ;;16364000617
 ;;9002226.02101,"785,16364000710 ",.01)
 ;;16364000710
 ;;9002226.02101,"785,16364000710 ",.02)
 ;;16364000710
 ;;9002226.02101,"785,16364000712 ",.01)
 ;;16364000712
 ;;9002226.02101,"785,16364000712 ",.02)
 ;;16364000712
 ;;9002226.02101,"785,16364000715 ",.01)
 ;;16364000715
 ;;9002226.02101,"785,16364000715 ",.02)
 ;;16364000715
 ;;9002226.02101,"785,16364000717 ",.01)
 ;;16364000717
 ;;9002226.02101,"785,16364000717 ",.02)
 ;;16364000717
 ;;9002226.02101,"785,16590043130 ",.01)
 ;;16590043130
 ;;9002226.02101,"785,16590043130 ",.02)
 ;;16590043130
 ;;9002226.02101,"785,16590072690 ",.01)
 ;;16590072690
 ;;9002226.02101,"785,16590072690 ",.02)
 ;;16590072690
 ;;9002226.02101,"785,16714068101 ",.01)
 ;;16714068101
 ;;9002226.02101,"785,16714068101 ",.02)
 ;;16714068101
 ;;9002226.02101,"785,16714068102 ",.01)
 ;;16714068102
 ;;9002226.02101,"785,16714068102 ",.02)
 ;;16714068102
 ;;9002226.02101,"785,16714068201 ",.01)
 ;;16714068201
 ;;9002226.02101,"785,16714068201 ",.02)
 ;;16714068201
 ;;9002226.02101,"785,16714068202 ",.01)
 ;;16714068202
 ;;9002226.02101,"785,16714068202 ",.02)
 ;;16714068202
 ;;9002226.02101,"785,16714068203 ",.01)
 ;;16714068203
 ;;9002226.02101,"785,16714068203 ",.02)
 ;;16714068203
 ;;9002226.02101,"785,16714068301 ",.01)
 ;;16714068301
 ;;9002226.02101,"785,16714068301 ",.02)
 ;;16714068301
 ;;9002226.02101,"785,16714068302 ",.01)
 ;;16714068302
 ;;9002226.02101,"785,16714068302 ",.02)
 ;;16714068302
 ;;9002226.02101,"785,16714068303 ",.01)
 ;;16714068303
 ;;9002226.02101,"785,16714068303 ",.02)
 ;;16714068303
 ;;9002226.02101,"785,16714068401 ",.01)
 ;;16714068401
 ;;9002226.02101,"785,16714068401 ",.02)
 ;;16714068401
 ;;9002226.02101,"785,16714068402 ",.01)
 ;;16714068402
 ;;9002226.02101,"785,16714068402 ",.02)
 ;;16714068402
 ;;9002226.02101,"785,16714068403 ",.01)
 ;;16714068403
 ;;9002226.02101,"785,16714068403 ",.02)
 ;;16714068403
 ;;9002226.02101,"785,16714068501 ",.01)
 ;;16714068501
 ;;9002226.02101,"785,16714068501 ",.02)
 ;;16714068501
 ;;9002226.02101,"785,16714068502 ",.01)
 ;;16714068502
 ;;9002226.02101,"785,16714068502 ",.02)
 ;;16714068502
 ;;9002226.02101,"785,16714068503 ",.01)
 ;;16714068503
 ;;9002226.02101,"785,16714068503 ",.02)
 ;;16714068503
 ;;9002226.02101,"785,16729000410 ",.01)
 ;;16729000410
 ;;9002226.02101,"785,16729000410 ",.02)
 ;;16729000410
 ;;9002226.02101,"785,16729000412 ",.01)
 ;;16729000412
 ;;9002226.02101,"785,16729000412 ",.02)
 ;;16729000412
 ;;9002226.02101,"785,16729000415 ",.01)
 ;;16729000415
 ;;9002226.02101,"785,16729000415 ",.02)
 ;;16729000415
 ;;9002226.02101,"785,16729000417 ",.01)
 ;;16729000417
 ;;9002226.02101,"785,16729000417 ",.02)
 ;;16729000417
 ;;9002226.02101,"785,16729000510 ",.01)
 ;;16729000510
 ;;9002226.02101,"785,16729000510 ",.02)
 ;;16729000510
 ;;9002226.02101,"785,16729000512 ",.01)
 ;;16729000512
 ;;9002226.02101,"785,16729000512 ",.02)
 ;;16729000512
 ;;9002226.02101,"785,16729000515 ",.01)
 ;;16729000515
 ;;9002226.02101,"785,16729000515 ",.02)
 ;;16729000515
 ;;9002226.02101,"785,16729000517 ",.01)
 ;;16729000517
 ;;9002226.02101,"785,16729000517 ",.02)
 ;;16729000517
 ;;9002226.02101,"785,16729000610 ",.01)
 ;;16729000610
 ;;9002226.02101,"785,16729000610 ",.02)
 ;;16729000610
 ;;9002226.02101,"785,16729000612 ",.01)
 ;;16729000612
 ;;9002226.02101,"785,16729000612 ",.02)
 ;;16729000612
 ;;9002226.02101,"785,16729000615 ",.01)
 ;;16729000615
 ;;9002226.02101,"785,16729000615 ",.02)
 ;;16729000615
 ;;9002226.02101,"785,16729000617 ",.01)
 ;;16729000617
 ;;9002226.02101,"785,16729000617 ",.02)
 ;;16729000617
 ;;9002226.02101,"785,16729000710 ",.01)
 ;;16729000710
 ;;9002226.02101,"785,16729000710 ",.02)
 ;;16729000710
 ;;9002226.02101,"785,16729000712 ",.01)
 ;;16729000712
 ;;9002226.02101,"785,16729000712 ",.02)
 ;;16729000712
 ;;9002226.02101,"785,16729000715 ",.01)
 ;;16729000715
 ;;9002226.02101,"785,16729000715 ",.02)
 ;;16729000715
 ;;9002226.02101,"785,16729000717 ",.01)
 ;;16729000717
 ;;9002226.02101,"785,16729000717 ",.02)
 ;;16729000717
 ;;9002226.02101,"785,17856005302 ",.01)
 ;;17856005302
 ;;9002226.02101,"785,17856005302 ",.02)
 ;;17856005302
 ;;9002226.02101,"785,17856019902 ",.01)
 ;;17856019902
 ;;9002226.02101,"785,17856019902 ",.02)
 ;;17856019902
 ;;9002226.02101,"785,17856078902 ",.01)
 ;;17856078902
 ;;9002226.02101,"785,17856078902 ",.02)
 ;;17856078902
 ;;9002226.02101,"785,17856079302 ",.01)
 ;;17856079302
 ;;9002226.02101,"785,17856079302 ",.02)
 ;;17856079302
 ;;9002226.02101,"785,21695053430 ",.01)
 ;;21695053430
 ;;9002226.02101,"785,21695053430 ",.02)
 ;;21695053430
 ;;9002226.02101,"785,21695053530 ",.01)
 ;;21695053530
 ;;9002226.02101,"785,21695053530 ",.02)
 ;;21695053530
 ;;9002226.02101,"785,21695073930 ",.01)
 ;;21695073930
 ;;9002226.02101,"785,21695073930 ",.02)
 ;;21695073930
 ;;9002226.02101,"785,21695074130 ",.01)
 ;;21695074130
 ;;9002226.02101,"785,21695074130 ",.02)
 ;;21695074130
 ;;9002226.02101,"785,21695074190 ",.01)
 ;;21695074190
 ;;9002226.02101,"785,21695074190 ",.02)
 ;;21695074190
 ;;9002226.02101,"785,21695074230 ",.01)
 ;;21695074230
 ;;9002226.02101,"785,21695074230 ",.02)
 ;;21695074230
 ;;9002226.02101,"785,23490583802 ",.01)
 ;;23490583802
 ;;9002226.02101,"785,23490583802 ",.02)
 ;;23490583802
 ;;9002226.02101,"785,23490583806 ",.01)
 ;;23490583806
 ;;9002226.02101,"785,23490583806 ",.02)
 ;;23490583806
 ;;9002226.02101,"785,23490583809 ",.01)
 ;;23490583809
 ;;9002226.02101,"785,23490583809 ",.02)
 ;;23490583809
 ;;9002226.02101,"785,23490583900 ",.01)
 ;;23490583900
 ;;9002226.02101,"785,23490583900 ",.02)
 ;;23490583900
 ;;9002226.02101,"785,23490583901 ",.01)
 ;;23490583901
 ;;9002226.02101,"785,23490583901 ",.02)
 ;;23490583901
 ;;9002226.02101,"785,23490584001 ",.01)
 ;;23490584001
 ;;9002226.02101,"785,23490584001 ",.02)
 ;;23490584001
 ;;9002226.02101,"785,23490584002 ",.01)
 ;;23490584002
 ;;9002226.02101,"785,23490584002 ",.02)
 ;;23490584002
 ;;9002226.02101,"785,23490935303 ",.01)
 ;;23490935303
 ;;9002226.02101,"785,23490935303 ",.02)
 ;;23490935303
 ;;9002226.02101,"785,23490935306 ",.01)
 ;;23490935306
 ;;9002226.02101,"785,23490935306 ",.02)
 ;;23490935306
 ;;9002226.02101,"785,23490935309 ",.01)
 ;;23490935309
 ;;9002226.02101,"785,23490935309 ",.02)
 ;;23490935309
 ;;9002226.02101,"785,23490935403 ",.01)
 ;;23490935403
 ;;9002226.02101,"785,23490935403 ",.02)
 ;;23490935403
 ;;9002226.02101,"785,23490935406 ",.01)
 ;;23490935406
 ;;9002226.02101,"785,23490935406 ",.02)
 ;;23490935406
 ;;9002226.02101,"785,23490935409 ",.01)
 ;;23490935409
 ;;9002226.02101,"785,23490935409 ",.02)
 ;;23490935409
 ;;9002226.02101,"785,23490935503 ",.01)
 ;;23490935503
 ;;9002226.02101,"785,23490935503 ",.02)
 ;;23490935503
 ;;9002226.02101,"785,23490935506 ",.01)
 ;;23490935506
 ;;9002226.02101,"785,23490935506 ",.02)
 ;;23490935506
 ;;9002226.02101,"785,23490935509 ",.01)
 ;;23490935509
 ;;9002226.02101,"785,23490935509 ",.02)
 ;;23490935509
 ;;9002226.02101,"785,23490935603 ",.01)
 ;;23490935603
 ;;9002226.02101,"785,23490935603 ",.02)
 ;;23490935603
 ;;9002226.02101,"785,23490935606 ",.01)
 ;;23490935606
 ;;9002226.02101,"785,23490935606 ",.02)
 ;;23490935606
 ;;9002226.02101,"785,23490935609 ",.01)
 ;;23490935609
 ;;9002226.02101,"785,23490935609 ",.02)
 ;;23490935609
 ;;9002226.02101,"785,23490935703 ",.01)
 ;;23490935703
 ;;9002226.02101,"785,23490935703 ",.02)
 ;;23490935703
 ;;9002226.02101,"785,23490935706 ",.01)
 ;;23490935706
 ;;9002226.02101,"785,23490935706 ",.02)
 ;;23490935706
 ;;9002226.02101,"785,23490935709 ",.01)
 ;;23490935709
 ;;9002226.02101,"785,23490935709 ",.02)
 ;;23490935709
 ;;9002226.02101,"785,24236008602 ",.01)
 ;;24236008602
 ;;9002226.02101,"785,24236008602 ",.02)
 ;;24236008602
 ;;9002226.02101,"785,24236015602 ",.01)
 ;;24236015602
 ;;9002226.02101,"785,24236015602 ",.02)
 ;;24236015602
 ;;9002226.02101,"785,24236021002 ",.01)
 ;;24236021002
 ;;9002226.02101,"785,24236021002 ",.02)
 ;;24236021002
 ;;9002226.02101,"785,24236037202 ",.01)
 ;;24236037202
 ;;9002226.02101,"785,24236037202 ",.02)
 ;;24236037202
 ;;9002226.02101,"785,24236038402 ",.01)
 ;;24236038402
 ;;9002226.02101,"785,24236038402 ",.02)
 ;;24236038402
 ;;9002226.02101,"785,24236050002 ",.01)
 ;;24236050002
 ;;9002226.02101,"785,24236050002 ",.02)
 ;;24236050002
 ;;9002226.02101,"785,24236059102 ",.01)
 ;;24236059102
 ;;9002226.02101,"785,24236059102 ",.02)
 ;;24236059102
 ;;9002226.02101,"785,24236064002 ",.01)
 ;;24236064002
 ;;9002226.02101,"785,24236064002 ",.02)
 ;;24236064002
 ;;9002226.02101,"785,24236064402 ",.01)
 ;;24236064402
 ;;9002226.02101,"785,24236064402 ",.02)
 ;;24236064402
 ;;9002226.02101,"785,24236067702 ",.01)
 ;;24236067702
 ;;9002226.02101,"785,24236067702 ",.02)
 ;;24236067702