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

BGPM5ACE.m

Go to the documentation of this file.
BGPM5ACE ;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,"830,67544059675 ",.02)
 ;;67544059675
 ;;9002226.02101,"830,67544059680 ",.01)
 ;;67544059680
 ;;9002226.02101,"830,67544059680 ",.02)
 ;;67544059680
 ;;9002226.02101,"830,67544059690 ",.01)
 ;;67544059690
 ;;9002226.02101,"830,67544059690 ",.02)
 ;;67544059690
 ;;9002226.02101,"830,67544059692 ",.01)
 ;;67544059692
 ;;9002226.02101,"830,67544059692 ",.02)
 ;;67544059692
 ;;9002226.02101,"830,67544059694 ",.01)
 ;;67544059694
 ;;9002226.02101,"830,67544059694 ",.02)
 ;;67544059694
 ;;9002226.02101,"830,67544059696 ",.01)
 ;;67544059696
 ;;9002226.02101,"830,67544059696 ",.02)
 ;;67544059696
 ;;9002226.02101,"830,67767011501 ",.01)
 ;;67767011501
 ;;9002226.02101,"830,67767011501 ",.02)
 ;;67767011501
 ;;9002226.02101,"830,67877021701 ",.01)
 ;;67877021701
 ;;9002226.02101,"830,67877021701 ",.02)
 ;;67877021701
 ;;9002226.02101,"830,67877021705 ",.01)
 ;;67877021705
 ;;9002226.02101,"830,67877021705 ",.02)
 ;;67877021705
 ;;9002226.02101,"830,67877021801 ",.01)
 ;;67877021801
 ;;9002226.02101,"830,67877021801 ",.02)
 ;;67877021801
 ;;9002226.02101,"830,67877022101 ",.01)
 ;;67877022101
 ;;9002226.02101,"830,67877022101 ",.02)
 ;;67877022101
 ;;9002226.02101,"830,68071002805 ",.01)
 ;;68071002805
 ;;9002226.02101,"830,68071002805 ",.02)
 ;;68071002805
 ;;9002226.02101,"830,68071002830 ",.01)
 ;;68071002830
 ;;9002226.02101,"830,68071002830 ",.02)
 ;;68071002830
 ;;9002226.02101,"830,68071002860 ",.01)
 ;;68071002860
 ;;9002226.02101,"830,68071002860 ",.02)
 ;;68071002860
 ;;9002226.02101,"830,68071010730 ",.01)
 ;;68071010730
 ;;9002226.02101,"830,68071010730 ",.02)
 ;;68071010730
 ;;9002226.02101,"830,68071016530 ",.01)
 ;;68071016530
 ;;9002226.02101,"830,68071016530 ",.02)
 ;;68071016530
 ;;9002226.02101,"830,68071043412 ",.01)
 ;;68071043412
 ;;9002226.02101,"830,68071043412 ",.02)
 ;;68071043412
 ;;9002226.02101,"830,68071048830 ",.01)
 ;;68071048830
 ;;9002226.02101,"830,68071048830 ",.02)
 ;;68071048830
 ;;9002226.02101,"830,68071050190 ",.01)
 ;;68071050190
 ;;9002226.02101,"830,68071050190 ",.02)
 ;;68071050190
 ;;9002226.02101,"830,68084007201 ",.01)
 ;;68084007201
 ;;9002226.02101,"830,68084007201 ",.02)
 ;;68084007201
 ;;9002226.02101,"830,68084007211 ",.01)
 ;;68084007211
 ;;9002226.02101,"830,68084007211 ",.02)
 ;;68084007211
 ;;9002226.02101,"830,68084013601 ",.01)
 ;;68084013601
 ;;9002226.02101,"830,68084013601 ",.02)
 ;;68084013601
 ;;9002226.02101,"830,68084013701 ",.01)
 ;;68084013701
 ;;9002226.02101,"830,68084013701 ",.02)
 ;;68084013701
 ;;9002226.02101,"830,68084013801 ",.01)
 ;;68084013801
 ;;9002226.02101,"830,68084013801 ",.02)
 ;;68084013801
 ;;9002226.02101,"830,68115023100 ",.01)
 ;;68115023100
 ;;9002226.02101,"830,68115023100 ",.02)
 ;;68115023100
 ;;9002226.02101,"830,68382002701 ",.01)
 ;;68382002701
 ;;9002226.02101,"830,68382002701 ",.02)
 ;;68382002701
 ;;9002226.02101,"830,68382002705 ",.01)
 ;;68382002705
 ;;9002226.02101,"830,68382002705 ",.02)
 ;;68382002705
 ;;9002226.02101,"830,68382002801 ",.01)
 ;;68382002801
 ;;9002226.02101,"830,68382002801 ",.02)
 ;;68382002801
 ;;9002226.02101,"830,68382002805 ",.01)
 ;;68382002805
 ;;9002226.02101,"830,68382002805 ",.02)
 ;;68382002805
 ;;9002226.02101,"830,68382002810 ",.01)
 ;;68382002810
 ;;9002226.02101,"830,68382002810 ",.02)
 ;;68382002810
 ;;9002226.02101,"830,68382002816 ",.01)
 ;;68382002816
 ;;9002226.02101,"830,68382002816 ",.02)
 ;;68382002816
 ;;9002226.02101,"830,68382002830 ",.01)
 ;;68382002830
 ;;9002226.02101,"830,68382002830 ",.02)
 ;;68382002830
 ;;9002226.02101,"830,68382002861 ",.01)
 ;;68382002861
 ;;9002226.02101,"830,68382002861 ",.02)
 ;;68382002861
 ;;9002226.02101,"830,68382002901 ",.01)
 ;;68382002901
 ;;9002226.02101,"830,68382002901 ",.02)
 ;;68382002901
 ;;9002226.02101,"830,68382002905 ",.01)
 ;;68382002905
 ;;9002226.02101,"830,68382002905 ",.02)
 ;;68382002905
 ;;9002226.02101,"830,68382002910 ",.01)
 ;;68382002910
 ;;9002226.02101,"830,68382002910 ",.02)
 ;;68382002910
 ;;9002226.02101,"830,68382002916 ",.01)
 ;;68382002916
 ;;9002226.02101,"830,68382002916 ",.02)
 ;;68382002916
 ;;9002226.02101,"830,68382002930 ",.01)
 ;;68382002930
 ;;9002226.02101,"830,68382002930 ",.02)
 ;;68382002930
 ;;9002226.02101,"830,68382002961 ",.01)
 ;;68382002961
 ;;9002226.02101,"830,68382002961 ",.02)
 ;;68382002961
 ;;9002226.02101,"830,68382003001 ",.01)
 ;;68382003001
 ;;9002226.02101,"830,68382003001 ",.02)
 ;;68382003001
 ;;9002226.02101,"830,68382003005 ",.01)
 ;;68382003005
 ;;9002226.02101,"830,68382003005 ",.02)
 ;;68382003005
 ;;9002226.02101,"830,68382003010 ",.01)
 ;;68382003010
 ;;9002226.02101,"830,68382003010 ",.02)
 ;;68382003010
 ;;9002226.02101,"830,68382003016 ",.01)
 ;;68382003016
 ;;9002226.02101,"830,68382003016 ",.02)
 ;;68382003016
 ;;9002226.02101,"830,68382003030 ",.01)
 ;;68382003030
 ;;9002226.02101,"830,68382003030 ",.02)
 ;;68382003030
 ;;9002226.02101,"830,68382003061 ",.01)
 ;;68382003061
 ;;9002226.02101,"830,68382003061 ",.02)
 ;;68382003061
 ;;9002226.02101,"830,68382003901 ",.01)
 ;;68382003901
 ;;9002226.02101,"830,68382003901 ",.02)
 ;;68382003901
 ;;9002226.02101,"830,68382003905 ",.01)
 ;;68382003905
 ;;9002226.02101,"830,68382003905 ",.02)
 ;;68382003905
 ;;9002226.02101,"830,68462015901 ",.01)
 ;;68462015901
 ;;9002226.02101,"830,68462015901 ",.02)
 ;;68462015901
 ;;9002226.02101,"830,68462015905 ",.01)
 ;;68462015905
 ;;9002226.02101,"830,68462015905 ",.02)
 ;;68462015905
 ;;9002226.02101,"830,68462015910 ",.01)
 ;;68462015910
 ;;9002226.02101,"830,68462015910 ",.02)
 ;;68462015910
 ;;9002226.02101,"830,68462015918 ",.01)
 ;;68462015918
 ;;9002226.02101,"830,68462015918 ",.02)
 ;;68462015918
 ;;9002226.02101,"830,68462015990 ",.01)
 ;;68462015990
 ;;9002226.02101,"830,68462015990 ",.02)
 ;;68462015990
 ;;9002226.02101,"830,68462016001 ",.01)
 ;;68462016001
 ;;9002226.02101,"830,68462016001 ",.02)
 ;;68462016001
 ;;9002226.02101,"830,68462016005 ",.01)
 ;;68462016005
 ;;9002226.02101,"830,68462016005 ",.02)
 ;;68462016005
 ;;9002226.02101,"830,68462016010 ",.01)
 ;;68462016010
 ;;9002226.02101,"830,68462016010 ",.02)
 ;;68462016010
 ;;9002226.02101,"830,68462016018 ",.01)
 ;;68462016018
 ;;9002226.02101,"830,68462016018 ",.02)
 ;;68462016018
 ;;9002226.02101,"830,68462016090 ",.01)
 ;;68462016090
 ;;9002226.02101,"830,68462016090 ",.02)
 ;;68462016090
 ;;9002226.02101,"830,68462016101 ",.01)
 ;;68462016101
 ;;9002226.02101,"830,68462016101 ",.02)
 ;;68462016101
 ;;9002226.02101,"830,68462016105 ",.01)
 ;;68462016105
 ;;9002226.02101,"830,68462016105 ",.02)
 ;;68462016105
 ;;9002226.02101,"830,68462016110 ",.01)
 ;;68462016110
 ;;9002226.02101,"830,68462016110 ",.02)
 ;;68462016110
 ;;9002226.02101,"830,68462016118 ",.01)
 ;;68462016118
 ;;9002226.02101,"830,68462016118 ",.02)
 ;;68462016118
 ;;9002226.02101,"830,68462016190 ",.01)
 ;;68462016190
 ;;9002226.02101,"830,68462016190 ",.02)
 ;;68462016190
 ;;9002226.02101,"830,68533001712 ",.01)
 ;;68533001712
 ;;9002226.02101,"830,68533001712 ",.02)
 ;;68533001712
 ;;9002226.02101,"830,68533001722 ",.01)
 ;;68533001722
 ;;9002226.02101,"830,68533001722 ",.02)
 ;;68533001722
 ;;9002226.02101,"830,68533001739 ",.01)
 ;;68533001739
 ;;9002226.02101,"830,68533001739 ",.02)
 ;;68533001739
 ;;9002226.02101,"830,68645011259 ",.01)
 ;;68645011259
 ;;9002226.02101,"830,68645011259 ",.02)
 ;;68645011259
 ;;9002226.02101,"830,68645012059 ",.01)
 ;;68645012059
 ;;9002226.02101,"830,68645012059 ",.02)
 ;;68645012059
 ;;9002226.02101,"830,68788039701 ",.01)
 ;;68788039701
 ;;9002226.02101,"830,68788039701 ",.02)
 ;;68788039701
 ;;9002226.02101,"830,68788039703 ",.01)
 ;;68788039703
 ;;9002226.02101,"830,68788039703 ",.02)
 ;;68788039703
 ;;9002226.02101,"830,68788039706 ",.01)
 ;;68788039706
 ;;9002226.02101,"830,68788039706 ",.02)
 ;;68788039706
 ;;9002226.02101,"830,68788039708 ",.01)
 ;;68788039708
 ;;9002226.02101,"830,68788039708 ",.02)
 ;;68788039708
 ;;9002226.02101,"830,68788039709 ",.01)
 ;;68788039709
 ;;9002226.02101,"830,68788039709 ",.02)
 ;;68788039709
 ;;9002226.02101,"830,68788043501 ",.01)
 ;;68788043501
 ;;9002226.02101,"830,68788043501 ",.02)
 ;;68788043501
 ;;9002226.02101,"830,68788043503 ",.01)
 ;;68788043503
 ;;9002226.02101,"830,68788043503 ",.02)
 ;;68788043503
 ;;9002226.02101,"830,68788043506 ",.01)
 ;;68788043506
 ;;9002226.02101,"830,68788043506 ",.02)
 ;;68788043506
 ;;9002226.02101,"830,68788043508 ",.01)
 ;;68788043508
 ;;9002226.02101,"830,68788043508 ",.02)
 ;;68788043508
 ;;9002226.02101,"830,68788043509 ",.01)
 ;;68788043509
 ;;9002226.02101,"830,68788043509 ",.02)
 ;;68788043509
 ;;9002226.02101,"830,68788046703 ",.01)
 ;;68788046703
 ;;9002226.02101,"830,68788046703 ",.02)
 ;;68788046703
 ;;9002226.02101,"830,68788046706 ",.01)
 ;;68788046706
 ;;9002226.02101,"830,68788046706 ",.02)
 ;;68788046706
 ;;9002226.02101,"830,68788047401 ",.01)
 ;;68788047401
 ;;9002226.02101,"830,68788047401 ",.02)
 ;;68788047401
 ;;9002226.02101,"830,68788047403 ",.01)
 ;;68788047403
 ;;9002226.02101,"830,68788047403 ",.02)
 ;;68788047403
 ;;9002226.02101,"830,68788047406 ",.01)
 ;;68788047406
 ;;9002226.02101,"830,68788047406 ",.02)
 ;;68788047406
 ;;9002226.02101,"830,68788047408 ",.01)
 ;;68788047408
 ;;9002226.02101,"830,68788047408 ",.02)
 ;;68788047408
 ;;9002226.02101,"830,68788047409 ",.01)
 ;;68788047409
 ;;9002226.02101,"830,68788047409 ",.02)
 ;;68788047409
 ;;9002226.02101,"830,68788096903 ",.01)
 ;;68788096903
 ;;9002226.02101,"830,68788096903 ",.02)
 ;;68788096903
 ;;9002226.02101,"830,68788096906 ",.01)
 ;;68788096906
 ;;9002226.02101,"830,68788096906 ",.02)
 ;;68788096906