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

BGPM3AEC.m

Go to the documentation of this file.
BGPM3AEC ;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,68180047802 ",.01)
 ;;68180047802
 ;;9002226.02101,"785,68180047802 ",.02)
 ;;68180047802
 ;;9002226.02101,"785,68180047803 ",.01)
 ;;68180047803
 ;;9002226.02101,"785,68180047803 ",.02)
 ;;68180047803
 ;;9002226.02101,"785,68180047901 ",.01)
 ;;68180047901
 ;;9002226.02101,"785,68180047901 ",.02)
 ;;68180047901
 ;;9002226.02101,"785,68180047902 ",.01)
 ;;68180047902
 ;;9002226.02101,"785,68180047902 ",.02)
 ;;68180047902
 ;;9002226.02101,"785,68180047903 ",.01)
 ;;68180047903
 ;;9002226.02101,"785,68180047903 ",.02)
 ;;68180047903
 ;;9002226.02101,"785,68180048001 ",.01)
 ;;68180048001
 ;;9002226.02101,"785,68180048001 ",.02)
 ;;68180048001
 ;;9002226.02101,"785,68180048002 ",.01)
 ;;68180048002
 ;;9002226.02101,"785,68180048002 ",.02)
 ;;68180048002
 ;;9002226.02101,"785,68180048003 ",.01)
 ;;68180048003
 ;;9002226.02101,"785,68180048003 ",.02)
 ;;68180048003
 ;;9002226.02101,"785,68180048101 ",.01)
 ;;68180048101
 ;;9002226.02101,"785,68180048101 ",.02)
 ;;68180048101
 ;;9002226.02101,"785,68180048102 ",.01)
 ;;68180048102
 ;;9002226.02101,"785,68180048102 ",.02)
 ;;68180048102
 ;;9002226.02101,"785,68180048103 ",.01)
 ;;68180048103
 ;;9002226.02101,"785,68180048103 ",.02)
 ;;68180048103
 ;;9002226.02101,"785,68180048203 ",.01)
 ;;68180048203
 ;;9002226.02101,"785,68180048203 ",.02)
 ;;68180048203
 ;;9002226.02101,"785,68180048206 ",.01)
 ;;68180048206
 ;;9002226.02101,"785,68180048206 ",.02)
 ;;68180048206
 ;;9002226.02101,"785,68180048209 ",.01)
 ;;68180048209
 ;;9002226.02101,"785,68180048209 ",.02)
 ;;68180048209
 ;;9002226.02101,"785,68180048213 ",.01)
 ;;68180048213
 ;;9002226.02101,"785,68180048213 ",.02)
 ;;68180048213
 ;;9002226.02101,"785,68382006505 ",.01)
 ;;68382006505
 ;;9002226.02101,"785,68382006505 ",.02)
 ;;68382006505
 ;;9002226.02101,"785,68382006506 ",.01)
 ;;68382006506
 ;;9002226.02101,"785,68382006506 ",.02)
 ;;68382006506
 ;;9002226.02101,"785,68382006510 ",.01)
 ;;68382006510
 ;;9002226.02101,"785,68382006510 ",.02)
 ;;68382006510
 ;;9002226.02101,"785,68382006514 ",.01)
 ;;68382006514
 ;;9002226.02101,"785,68382006514 ",.02)
 ;;68382006514
 ;;9002226.02101,"785,68382006516 ",.01)
 ;;68382006516
 ;;9002226.02101,"785,68382006516 ",.02)
 ;;68382006516
 ;;9002226.02101,"785,68382006605 ",.01)
 ;;68382006605
 ;;9002226.02101,"785,68382006605 ",.02)
 ;;68382006605
 ;;9002226.02101,"785,68382006606 ",.01)
 ;;68382006606
 ;;9002226.02101,"785,68382006606 ",.02)
 ;;68382006606
 ;;9002226.02101,"785,68382006610 ",.01)
 ;;68382006610
 ;;9002226.02101,"785,68382006610 ",.02)
 ;;68382006610
 ;;9002226.02101,"785,68382006614 ",.01)
 ;;68382006614
 ;;9002226.02101,"785,68382006614 ",.02)
 ;;68382006614
 ;;9002226.02101,"785,68382006616 ",.01)
 ;;68382006616
 ;;9002226.02101,"785,68382006616 ",.02)
 ;;68382006616
 ;;9002226.02101,"785,68382006624 ",.01)
 ;;68382006624
 ;;9002226.02101,"785,68382006624 ",.02)
 ;;68382006624
 ;;9002226.02101,"785,68382006705 ",.01)
 ;;68382006705
 ;;9002226.02101,"785,68382006705 ",.02)
 ;;68382006705
 ;;9002226.02101,"785,68382006706 ",.01)
 ;;68382006706
 ;;9002226.02101,"785,68382006706 ",.02)
 ;;68382006706
 ;;9002226.02101,"785,68382006710 ",.01)
 ;;68382006710
 ;;9002226.02101,"785,68382006710 ",.02)
 ;;68382006710
 ;;9002226.02101,"785,68382006714 ",.01)
 ;;68382006714
 ;;9002226.02101,"785,68382006714 ",.02)
 ;;68382006714
 ;;9002226.02101,"785,68382006716 ",.01)
 ;;68382006716
 ;;9002226.02101,"785,68382006716 ",.02)
 ;;68382006716
 ;;9002226.02101,"785,68382006724 ",.01)
 ;;68382006724
 ;;9002226.02101,"785,68382006724 ",.02)
 ;;68382006724
 ;;9002226.02101,"785,68382006805 ",.01)
 ;;68382006805
 ;;9002226.02101,"785,68382006805 ",.02)
 ;;68382006805
 ;;9002226.02101,"785,68382006806 ",.01)
 ;;68382006806
 ;;9002226.02101,"785,68382006806 ",.02)
 ;;68382006806
 ;;9002226.02101,"785,68382006810 ",.01)
 ;;68382006810
 ;;9002226.02101,"785,68382006810 ",.02)
 ;;68382006810
 ;;9002226.02101,"785,68382006814 ",.01)
 ;;68382006814
 ;;9002226.02101,"785,68382006814 ",.02)
 ;;68382006814
 ;;9002226.02101,"785,68382006816 ",.01)
 ;;68382006816
 ;;9002226.02101,"785,68382006816 ",.02)
 ;;68382006816
 ;;9002226.02101,"785,68382006819 ",.01)
 ;;68382006819
 ;;9002226.02101,"785,68382006819 ",.02)
 ;;68382006819
 ;;9002226.02101,"785,68382006840 ",.01)
 ;;68382006840
 ;;9002226.02101,"785,68382006840 ",.02)
 ;;68382006840
 ;;9002226.02101,"785,68382006905 ",.01)
 ;;68382006905
 ;;9002226.02101,"785,68382006905 ",.02)
 ;;68382006905
 ;;9002226.02101,"785,68382006906 ",.01)
 ;;68382006906
 ;;9002226.02101,"785,68382006906 ",.02)
 ;;68382006906
 ;;9002226.02101,"785,68382006910 ",.01)
 ;;68382006910
 ;;9002226.02101,"785,68382006910 ",.02)
 ;;68382006910
 ;;9002226.02101,"785,68382006914 ",.01)
 ;;68382006914
 ;;9002226.02101,"785,68382006914 ",.02)
 ;;68382006914
 ;;9002226.02101,"785,68382006916 ",.01)
 ;;68382006916
 ;;9002226.02101,"785,68382006916 ",.02)
 ;;68382006916
 ;;9002226.02101,"785,68533000500 ",.01)
 ;;68533000500
 ;;9002226.02101,"785,68533000500 ",.02)
 ;;68533000500
 ;;9002226.02101,"785,68533000512 ",.01)
 ;;68533000512
 ;;9002226.02101,"785,68533000512 ",.02)
 ;;68533000512
 ;;9002226.02101,"785,68533000525 ",.01)
 ;;68533000525
 ;;9002226.02101,"785,68533000525 ",.02)
 ;;68533000525
 ;;9002226.02101,"785,68533000540 ",.01)
 ;;68533000540
 ;;9002226.02101,"785,68533000540 ",.02)
 ;;68533000540
 ;;9002226.02101,"785,68533000600 ",.01)
 ;;68533000600
 ;;9002226.02101,"785,68533000600 ",.02)
 ;;68533000600
 ;;9002226.02101,"785,68533000612 ",.01)
 ;;68533000612
 ;;9002226.02101,"785,68533000612 ",.02)
 ;;68533000612
 ;;9002226.02101,"785,68533000625 ",.01)
 ;;68533000625
 ;;9002226.02101,"785,68533000625 ",.02)
 ;;68533000625
 ;;9002226.02101,"785,68533000640 ",.01)
 ;;68533000640
 ;;9002226.02101,"785,68533000640 ",.02)
 ;;68533000640
 ;;9002226.02101,"785,68533000700 ",.01)
 ;;68533000700
 ;;9002226.02101,"785,68533000700 ",.02)
 ;;68533000700
 ;;9002226.02101,"785,68533000712 ",.01)
 ;;68533000712
 ;;9002226.02101,"785,68533000712 ",.02)
 ;;68533000712
 ;;9002226.02101,"785,68533000740 ",.01)
 ;;68533000740
 ;;9002226.02101,"785,68533000740 ",.02)
 ;;68533000740
 ;;9002226.02101,"785,68533000745 ",.01)
 ;;68533000745
 ;;9002226.02101,"785,68533000745 ",.02)
 ;;68533000745
 ;;9002226.02101,"785,68533000800 ",.01)
 ;;68533000800
 ;;9002226.02101,"785,68533000800 ",.02)
 ;;68533000800
 ;;9002226.02101,"785,68533000812 ",.01)
 ;;68533000812
 ;;9002226.02101,"785,68533000812 ",.02)
 ;;68533000812
 ;;9002226.02101,"785,68533000822 ",.01)
 ;;68533000822
 ;;9002226.02101,"785,68533000822 ",.02)
 ;;68533000822
 ;;9002226.02101,"785,68533000840 ",.01)
 ;;68533000840
 ;;9002226.02101,"785,68533000840 ",.02)
 ;;68533000840
 ;;9002226.02101,"785,68533000900 ",.01)
 ;;68533000900
 ;;9002226.02101,"785,68533000900 ",.02)
 ;;68533000900
 ;;9002226.02101,"785,68533000912 ",.01)
 ;;68533000912
 ;;9002226.02101,"785,68533000912 ",.02)
 ;;68533000912
 ;;9002226.02101,"785,68533000922 ",.01)
 ;;68533000922
 ;;9002226.02101,"785,68533000922 ",.02)
 ;;68533000922
 ;;9002226.02101,"785,68533000940 ",.01)
 ;;68533000940
 ;;9002226.02101,"785,68533000940 ",.02)
 ;;68533000940
 ;;9002226.02101,"785,68533050550 ",.01)
 ;;68533050550
 ;;9002226.02101,"785,68533050550 ",.02)
 ;;68533050550
 ;;9002226.02101,"785,68533050590 ",.01)
 ;;68533050590
 ;;9002226.02101,"785,68533050590 ",.02)
 ;;68533050590
 ;;9002226.02101,"785,68533050650 ",.01)
 ;;68533050650
 ;;9002226.02101,"785,68533050650 ",.02)
 ;;68533050650
 ;;9002226.02101,"785,68533050690 ",.01)
 ;;68533050690
 ;;9002226.02101,"785,68533050690 ",.02)
 ;;68533050690
 ;;9002226.02101,"785,68533050750 ",.01)
 ;;68533050750
 ;;9002226.02101,"785,68533050750 ",.02)
 ;;68533050750
 ;;9002226.02101,"785,68533050890 ",.01)
 ;;68533050890
 ;;9002226.02101,"785,68533050890 ",.02)
 ;;68533050890
 ;;9002226.02101,"785,68533050990 ",.01)
 ;;68533050990
 ;;9002226.02101,"785,68533050990 ",.02)
 ;;68533050990
 ;;9002226.02101,"785,68688009300 ",.01)
 ;;68688009300
 ;;9002226.02101,"785,68688009300 ",.02)
 ;;68688009300
 ;;9002226.02101,"785,68688029200 ",.01)
 ;;68688029200
 ;;9002226.02101,"785,68688029200 ",.02)
 ;;68688029200
 ;;9002226.02101,"785,68688038400 ",.01)
 ;;68688038400
 ;;9002226.02101,"785,68688038400 ",.02)
 ;;68688038400
 ;;9002226.02101,"785,68688087900 ",.01)
 ;;68688087900
 ;;9002226.02101,"785,68688087900 ",.02)
 ;;68688087900
 ;;9002226.02101,"785,68688092400 ",.01)
 ;;68688092400
 ;;9002226.02101,"785,68688092400 ",.02)
 ;;68688092400
 ;;9002226.02101,"785,68788005203 ",.01)
 ;;68788005203
 ;;9002226.02101,"785,68788005203 ",.02)
 ;;68788005203
 ;;9002226.02101,"785,68788005206 ",.01)
 ;;68788005206
 ;;9002226.02101,"785,68788005206 ",.02)
 ;;68788005206
 ;;9002226.02101,"785,68788005209 ",.01)
 ;;68788005209
 ;;9002226.02101,"785,68788005209 ",.02)
 ;;68788005209
 ;;9002226.02101,"785,68788007403 ",.01)
 ;;68788007403
 ;;9002226.02101,"785,68788007403 ",.02)
 ;;68788007403
 ;;9002226.02101,"785,68788007406 ",.01)
 ;;68788007406
 ;;9002226.02101,"785,68788007406 ",.02)
 ;;68788007406
 ;;9002226.02101,"785,68788007409 ",.01)
 ;;68788007409
 ;;9002226.02101,"785,68788007409 ",.02)
 ;;68788007409
 ;;9002226.02101,"785,68788057603 ",.01)
 ;;68788057603
 ;;9002226.02101,"785,68788057603 ",.02)
 ;;68788057603
 ;;9002226.02101,"785,68788057606 ",.01)
 ;;68788057606
 ;;9002226.02101,"785,68788057606 ",.02)
 ;;68788057606
 ;;9002226.02101,"785,68788057609 ",.01)
 ;;68788057609
 ;;9002226.02101,"785,68788057609 ",.02)
 ;;68788057609
 ;;9002226.02101,"785,68788070603 ",.01)
 ;;68788070603
 ;;9002226.02101,"785,68788070603 ",.02)
 ;;68788070603
 ;;9002226.02101,"785,68788070606 ",.01)
 ;;68788070606
 ;;9002226.02101,"785,68788070606 ",.02)
 ;;68788070606
 ;;9002226.02101,"785,68788070609 ",.01)
 ;;68788070609
 ;;9002226.02101,"785,68788070609 ",.02)
 ;;68788070609
 ;;9002226.02101,"785,68788075503 ",.01)
 ;;68788075503
 ;;9002226.02101,"785,68788075503 ",.02)
 ;;68788075503
 ;;9002226.02101,"785,68788075506 ",.01)
 ;;68788075506
 ;;9002226.02101,"785,68788075506 ",.02)
 ;;68788075506
 ;;9002226.02101,"785,68788075509 ",.01)
 ;;68788075509
 ;;9002226.02101,"785,68788075509 ",.02)
 ;;68788075509
 ;;9002226.02101,"785,68788079603 ",.01)
 ;;68788079603
 ;;9002226.02101,"785,68788079603 ",.02)
 ;;68788079603
 ;;9002226.02101,"785,68788079606 ",.01)
 ;;68788079606
 ;;9002226.02101,"785,68788079606 ",.02)
 ;;68788079606
 ;;9002226.02101,"785,68788079609 ",.01)
 ;;68788079609
 ;;9002226.02101,"785,68788079609 ",.02)
 ;;68788079609
 ;;9002226.02101,"785,68788092603 ",.01)
 ;;68788092603
 ;;9002226.02101,"785,68788092603 ",.02)
 ;;68788092603
 ;;9002226.02101,"785,68788092606 ",.01)
 ;;68788092606
 ;;9002226.02101,"785,68788092606 ",.02)
 ;;68788092606
 ;;9002226.02101,"785,68788092609 ",.01)
 ;;68788092609
 ;;9002226.02101,"785,68788092609 ",.02)
 ;;68788092609
 ;;9002226.02101,"785,68788092803 ",.01)
 ;;68788092803
 ;;9002226.02101,"785,68788092803 ",.02)
 ;;68788092803
 ;;9002226.02101,"785,68788092806 ",.01)
 ;;68788092806
 ;;9002226.02101,"785,68788092806 ",.02)
 ;;68788092806
 ;;9002226.02101,"785,68788092809 ",.01)
 ;;68788092809
 ;;9002226.02101,"785,68788092809 ",.02)
 ;;68788092809
 ;;9002226.02101,"785,68788236403 ",.01)
 ;;68788236403
 ;;9002226.02101,"785,68788236403 ",.02)
 ;;68788236403
 ;;9002226.02101,"785,68788236406 ",.01)
 ;;68788236406
 ;;9002226.02101,"785,68788236406 ",.02)
 ;;68788236406