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

BGPM3AD.m

Go to the documentation of this file.
BGPM3AD ;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,55154506300 ",.02)
 ;;55154506300
 ;;9002226.02101,"786,55154506400 ",.01)
 ;;55154506400
 ;;9002226.02101,"786,55154506400 ",.02)
 ;;55154506400
 ;;9002226.02101,"786,55154523100 ",.01)
 ;;55154523100
 ;;9002226.02101,"786,55154523100 ",.02)
 ;;55154523100
 ;;9002226.02101,"786,55154523107 ",.01)
 ;;55154523107
 ;;9002226.02101,"786,55154523107 ",.02)
 ;;55154523107
 ;;9002226.02101,"786,55154566600 ",.01)
 ;;55154566600
 ;;9002226.02101,"786,55154566600 ",.02)
 ;;55154566600
 ;;9002226.02101,"786,55154827209 ",.01)
 ;;55154827209
 ;;9002226.02101,"786,55154827209 ",.02)
 ;;55154827209
 ;;9002226.02101,"786,55175532503 ",.01)
 ;;55175532503
 ;;9002226.02101,"786,55175532503 ",.02)
 ;;55175532503
 ;;9002226.02101,"786,55289029314 ",.01)
 ;;55289029314
 ;;9002226.02101,"786,55289029314 ",.02)
 ;;55289029314
 ;;9002226.02101,"786,55289029330 ",.01)
 ;;55289029330
 ;;9002226.02101,"786,55289029330 ",.02)
 ;;55289029330
 ;;9002226.02101,"786,55289029390 ",.01)
 ;;55289029390
 ;;9002226.02101,"786,55289029390 ",.02)
 ;;55289029390
 ;;9002226.02101,"786,55289032601 ",.01)
 ;;55289032601
 ;;9002226.02101,"786,55289032601 ",.02)
 ;;55289032601
 ;;9002226.02101,"786,55289033814 ",.01)
 ;;55289033814
 ;;9002226.02101,"786,55289033814 ",.02)
 ;;55289033814
 ;;9002226.02101,"786,55289033830 ",.01)
 ;;55289033830
 ;;9002226.02101,"786,55289033830 ",.02)
 ;;55289033830
 ;;9002226.02101,"786,55289033890 ",.01)
 ;;55289033890
 ;;9002226.02101,"786,55289033890 ",.02)
 ;;55289033890
 ;;9002226.02101,"786,55289039530 ",.01)
 ;;55289039530
 ;;9002226.02101,"786,55289039530 ",.02)
 ;;55289039530
 ;;9002226.02101,"786,55289039590 ",.01)
 ;;55289039590
 ;;9002226.02101,"786,55289039590 ",.02)
 ;;55289039590
 ;;9002226.02101,"786,55289041160 ",.01)
 ;;55289041160
 ;;9002226.02101,"786,55289041160 ",.02)
 ;;55289041160
 ;;9002226.02101,"786,55289041193 ",.01)
 ;;55289041193
 ;;9002226.02101,"786,55289041193 ",.02)
 ;;55289041193
 ;;9002226.02101,"786,55289069214 ",.01)
 ;;55289069214
 ;;9002226.02101,"786,55289069214 ",.02)
 ;;55289069214
 ;;9002226.02101,"786,55289069230 ",.01)
 ;;55289069230
 ;;9002226.02101,"786,55289069230 ",.02)
 ;;55289069230
 ;;9002226.02101,"786,55289088130 ",.01)
 ;;55289088130
 ;;9002226.02101,"786,55289088130 ",.02)
 ;;55289088130
 ;;9002226.02101,"786,55567012700 ",.01)
 ;;55567012700
 ;;9002226.02101,"786,55567012700 ",.02)
 ;;55567012700
 ;;9002226.02101,"786,55567012706 ",.01)
 ;;55567012706
 ;;9002226.02101,"786,55567012706 ",.02)
 ;;55567012706
 ;;9002226.02101,"786,55567012718 ",.01)
 ;;55567012718
 ;;9002226.02101,"786,55567012718 ",.02)
 ;;55567012718
 ;;9002226.02101,"786,55567012735 ",.01)
 ;;55567012735
 ;;9002226.02101,"786,55567012735 ",.02)
 ;;55567012735
 ;;9002226.02101,"786,55567012769 ",.01)
 ;;55567012769
 ;;9002226.02101,"786,55567012769 ",.02)
 ;;55567012769
 ;;9002226.02101,"786,55567012800 ",.01)
 ;;55567012800
 ;;9002226.02101,"786,55567012800 ",.02)
 ;;55567012800
 ;;9002226.02101,"786,55567012806 ",.01)
 ;;55567012806
 ;;9002226.02101,"786,55567012806 ",.02)
 ;;55567012806
 ;;9002226.02101,"786,55567012818 ",.01)
 ;;55567012818
 ;;9002226.02101,"786,55567012818 ",.02)
 ;;55567012818
 ;;9002226.02101,"786,55567012835 ",.01)
 ;;55567012835
 ;;9002226.02101,"786,55567012835 ",.02)
 ;;55567012835
 ;;9002226.02101,"786,55567012869 ",.01)
 ;;55567012869
 ;;9002226.02101,"786,55567012869 ",.02)
 ;;55567012869
 ;;9002226.02101,"786,55567012900 ",.01)
 ;;55567012900
 ;;9002226.02101,"786,55567012900 ",.02)
 ;;55567012900
 ;;9002226.02101,"786,55567012906 ",.01)
 ;;55567012906
 ;;9002226.02101,"786,55567012906 ",.02)
 ;;55567012906
 ;;9002226.02101,"786,55567012918 ",.01)
 ;;55567012918
 ;;9002226.02101,"786,55567012918 ",.02)
 ;;55567012918
 ;;9002226.02101,"786,55567012935 ",.01)
 ;;55567012935
 ;;9002226.02101,"786,55567012935 ",.02)
 ;;55567012935
 ;;9002226.02101,"786,55567012969 ",.01)
 ;;55567012969
 ;;9002226.02101,"786,55567012969 ",.02)
 ;;55567012969
 ;;9002226.02101,"786,55648090101 ",.01)
 ;;55648090101
 ;;9002226.02101,"786,55648090101 ",.02)
 ;;55648090101
 ;;9002226.02101,"786,55887031830 ",.01)
 ;;55887031830
 ;;9002226.02101,"786,55887031830 ",.02)
 ;;55887031830
 ;;9002226.02101,"786,55887031860 ",.01)
 ;;55887031860
 ;;9002226.02101,"786,55887031860 ",.02)
 ;;55887031860
 ;;9002226.02101,"786,55887031890 ",.01)
 ;;55887031890
 ;;9002226.02101,"786,55887031890 ",.02)
 ;;55887031890
 ;;9002226.02101,"786,55887032730 ",.01)
 ;;55887032730
 ;;9002226.02101,"786,55887032730 ",.02)
 ;;55887032730
 ;;9002226.02101,"786,55887032760 ",.01)
 ;;55887032760
 ;;9002226.02101,"786,55887032760 ",.02)
 ;;55887032760
 ;;9002226.02101,"786,55887032790 ",.01)
 ;;55887032790
 ;;9002226.02101,"786,55887032790 ",.02)
 ;;55887032790
 ;;9002226.02101,"786,55887033530 ",.01)
 ;;55887033530
 ;;9002226.02101,"786,55887033530 ",.02)
 ;;55887033530
 ;;9002226.02101,"786,55887033560 ",.01)
 ;;55887033560
 ;;9002226.02101,"786,55887033560 ",.02)
 ;;55887033560
 ;;9002226.02101,"786,55887033582 ",.01)
 ;;55887033582
 ;;9002226.02101,"786,55887033582 ",.02)
 ;;55887033582
 ;;9002226.02101,"786,55887033590 ",.01)
 ;;55887033590
 ;;9002226.02101,"786,55887033590 ",.02)
 ;;55887033590
 ;;9002226.02101,"786,55887033592 ",.01)
 ;;55887033592
 ;;9002226.02101,"786,55887033592 ",.02)
 ;;55887033592
 ;;9002226.02101,"786,55887035001 ",.01)
 ;;55887035001
 ;;9002226.02101,"786,55887035001 ",.02)
 ;;55887035001
 ;;9002226.02101,"786,55887035030 ",.01)
 ;;55887035030
 ;;9002226.02101,"786,55887035030 ",.02)
 ;;55887035030
 ;;9002226.02101,"786,55887035060 ",.01)
 ;;55887035060
 ;;9002226.02101,"786,55887035060 ",.02)
 ;;55887035060
 ;;9002226.02101,"786,55887035090 ",.01)
 ;;55887035090
 ;;9002226.02101,"786,55887035090 ",.02)
 ;;55887035090
 ;;9002226.02101,"786,55887036930 ",.01)
 ;;55887036930
 ;;9002226.02101,"786,55887036930 ",.02)
 ;;55887036930
 ;;9002226.02101,"786,55887036940 ",.01)
 ;;55887036940
 ;;9002226.02101,"786,55887036940 ",.02)
 ;;55887036940
 ;;9002226.02101,"786,55887036960 ",.01)
 ;;55887036960
 ;;9002226.02101,"786,55887036960 ",.02)
 ;;55887036960
 ;;9002226.02101,"786,55887036990 ",.01)
 ;;55887036990
 ;;9002226.02101,"786,55887036990 ",.02)
 ;;55887036990
 ;;9002226.02101,"786,55887085810 ",.01)
 ;;55887085810
 ;;9002226.02101,"786,55887085810 ",.02)
 ;;55887085810
 ;;9002226.02101,"786,55887085830 ",.01)
 ;;55887085830
 ;;9002226.02101,"786,55887085830 ",.02)
 ;;55887085830
 ;;9002226.02101,"786,55887085860 ",.01)
 ;;55887085860
 ;;9002226.02101,"786,55887085860 ",.02)
 ;;55887085860
 ;;9002226.02101,"786,55887085890 ",.01)
 ;;55887085890
 ;;9002226.02101,"786,55887085890 ",.02)
 ;;55887085890
 ;;9002226.02101,"786,55887086130 ",.01)
 ;;55887086130
 ;;9002226.02101,"786,55887086130 ",.02)
 ;;55887086130
 ;;9002226.02101,"786,55887086160 ",.01)
 ;;55887086160
 ;;9002226.02101,"786,55887086160 ",.02)
 ;;55887086160
 ;;9002226.02101,"786,55887086190 ",.01)
 ;;55887086190
 ;;9002226.02101,"786,55887086190 ",.02)
 ;;55887086190
 ;;9002226.02101,"786,55887097430 ",.01)
 ;;55887097430
 ;;9002226.02101,"786,55887097430 ",.02)
 ;;55887097430
 ;;9002226.02101,"786,55887097490 ",.01)
 ;;55887097490
 ;;9002226.02101,"786,55887097490 ",.02)
 ;;55887097490
 ;;9002226.02101,"786,55953000935 ",.01)
 ;;55953000935
 ;;9002226.02101,"786,55953000935 ",.02)
 ;;55953000935
 ;;9002226.02101,"786,55953000965 ",.01)
 ;;55953000965
 ;;9002226.02101,"786,55953000965 ",.02)
 ;;55953000965
 ;;9002226.02101,"786,55953001135 ",.01)
 ;;55953001135
 ;;9002226.02101,"786,55953001135 ",.02)
 ;;55953001135
 ;;9002226.02101,"786,55953001156 ",.01)
 ;;55953001156
 ;;9002226.02101,"786,55953001156 ",.02)
 ;;55953001156
 ;;9002226.02101,"786,55953009635 ",.01)
 ;;55953009635
 ;;9002226.02101,"786,55953009635 ",.02)
 ;;55953009635
 ;;9002226.02101,"786,55953009665 ",.01)
 ;;55953009665
 ;;9002226.02101,"786,55953009665 ",.02)
 ;;55953009665
 ;;9002226.02101,"786,55953011135 ",.01)
 ;;55953011135
 ;;9002226.02101,"786,55953011135 ",.02)
 ;;55953011135
 ;;9002226.02101,"786,55953011156 ",.01)
 ;;55953011156
 ;;9002226.02101,"786,55953011156 ",.02)
 ;;55953011156
 ;;9002226.02101,"786,55953038240 ",.01)
 ;;55953038240
 ;;9002226.02101,"786,55953038240 ",.02)
 ;;55953038240
 ;;9002226.02101,"786,57297046701 ",.01)
 ;;57297046701
 ;;9002226.02101,"786,57297046701 ",.02)
 ;;57297046701
 ;;9002226.02101,"786,57297046703 ",.01)
 ;;57297046703
 ;;9002226.02101,"786,57297046703 ",.02)
 ;;57297046703
 ;;9002226.02101,"786,57297046707 ",.01)
 ;;57297046707
 ;;9002226.02101,"786,57297046707 ",.02)
 ;;57297046707
 ;;9002226.02101,"786,57297046801 ",.01)
 ;;57297046801
 ;;9002226.02101,"786,57297046801 ",.02)
 ;;57297046801
 ;;9002226.02101,"786,57297046803 ",.01)
 ;;57297046803
 ;;9002226.02101,"786,57297046803 ",.02)
 ;;57297046803
 ;;9002226.02101,"786,57297046807 ",.01)
 ;;57297046807
 ;;9002226.02101,"786,57297046807 ",.02)
 ;;57297046807
 ;;9002226.02101,"786,57297046809 ",.01)
 ;;57297046809
 ;;9002226.02101,"786,57297046809 ",.02)
 ;;57297046809
 ;;9002226.02101,"786,57297046901 ",.01)
 ;;57297046901
 ;;9002226.02101,"786,57297046901 ",.02)
 ;;57297046901
 ;;9002226.02101,"786,57297046903 ",.01)
 ;;57297046903
 ;;9002226.02101,"786,57297046903 ",.02)
 ;;57297046903
 ;;9002226.02101,"786,57297046907 ",.01)
 ;;57297046907
 ;;9002226.02101,"786,57297046907 ",.02)
 ;;57297046907
 ;;9002226.02101,"786,57297046909 ",.01)
 ;;57297046909
 ;;9002226.02101,"786,57297046909 ",.02)
 ;;57297046909
 ;;9002226.02101,"786,57297047801 ",.01)
 ;;57297047801
 ;;9002226.02101,"786,57297047801 ",.02)
 ;;57297047801
 ;;9002226.02101,"786,57297047802 ",.01)
 ;;57297047802
 ;;9002226.02101,"786,57297047802 ",.02)
 ;;57297047802
 ;;9002226.02101,"786,57297047803 ",.01)
 ;;57297047803
 ;;9002226.02101,"786,57297047803 ",.02)
 ;;57297047803
 ;;9002226.02101,"786,57297047901 ",.01)
 ;;57297047901
 ;;9002226.02101,"786,57297047901 ",.02)
 ;;57297047901
 ;;9002226.02101,"786,57297047902 ",.01)
 ;;57297047902
 ;;9002226.02101,"786,57297047902 ",.02)
 ;;57297047902
 ;;9002226.02101,"786,57297047903 ",.01)
 ;;57297047903
 ;;9002226.02101,"786,57297047903 ",.02)
 ;;57297047903
 ;;9002226.02101,"786,57297048001 ",.01)
 ;;57297048001
 ;;9002226.02101,"786,57297048001 ",.02)
 ;;57297048001
 ;;9002226.02101,"786,57297048002 ",.01)
 ;;57297048002
 ;;9002226.02101,"786,57297048002 ",.02)
 ;;57297048002
 ;;9002226.02101,"786,57297048003 ",.01)
 ;;57297048003
 ;;9002226.02101,"786,57297048003 ",.02)
 ;;57297048003
 ;;9002226.02101,"786,57297048101 ",.01)
 ;;57297048101
 ;;9002226.02101,"786,57297048101 ",.02)
 ;;57297048101
 ;;9002226.02101,"786,57297048102 ",.01)
 ;;57297048102
 ;;9002226.02101,"786,57297048102 ",.02)
 ;;57297048102
 ;;9002226.02101,"786,57297048103 ",.01)
 ;;57297048103
 ;;9002226.02101,"786,57297048103 ",.02)
 ;;57297048103
 ;;9002226.02101,"786,57297048203 ",.01)
 ;;57297048203
 ;;9002226.02101,"786,57297048203 ",.02)
 ;;57297048203
 ;;9002226.02101,"786,57297048206 ",.01)
 ;;57297048206
 ;;9002226.02101,"786,57297048206 ",.02)
 ;;57297048206
 ;;9002226.02101,"786,57297048209 ",.01)
 ;;57297048209
 ;;9002226.02101,"786,57297048209 ",.02)
 ;;57297048209
 ;;9002226.02101,"786,57297048213 ",.01)
 ;;57297048213
 ;;9002226.02101,"786,57297048213 ",.02)
 ;;57297048213
 ;;9002226.02101,"786,57480080901 ",.01)
 ;;57480080901
 ;;9002226.02101,"786,57480080901 ",.02)
 ;;57480080901
 ;;9002226.02101,"786,57480080906 ",.01)
 ;;57480080906