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

BGPM3ADW.m

Go to the documentation of this file.
BGPM3ADW ;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,55111019801 ",.01)
 ;;55111019801
 ;;9002226.02101,"785,55111019801 ",.02)
 ;;55111019801
 ;;9002226.02101,"785,55111019805 ",.01)
 ;;55111019805
 ;;9002226.02101,"785,55111019805 ",.02)
 ;;55111019805
 ;;9002226.02101,"785,55111019830 ",.01)
 ;;55111019830
 ;;9002226.02101,"785,55111019830 ",.02)
 ;;55111019830
 ;;9002226.02101,"785,55111019860 ",.01)
 ;;55111019860
 ;;9002226.02101,"785,55111019860 ",.02)
 ;;55111019860
 ;;9002226.02101,"785,55111019878 ",.01)
 ;;55111019878
 ;;9002226.02101,"785,55111019878 ",.02)
 ;;55111019878
 ;;9002226.02101,"785,55111019890 ",.01)
 ;;55111019890
 ;;9002226.02101,"785,55111019890 ",.02)
 ;;55111019890
 ;;9002226.02101,"785,55111019901 ",.01)
 ;;55111019901
 ;;9002226.02101,"785,55111019901 ",.02)
 ;;55111019901
 ;;9002226.02101,"785,55111019905 ",.01)
 ;;55111019905
 ;;9002226.02101,"785,55111019905 ",.02)
 ;;55111019905
 ;;9002226.02101,"785,55111019910 ",.01)
 ;;55111019910
 ;;9002226.02101,"785,55111019910 ",.02)
 ;;55111019910
 ;;9002226.02101,"785,55111019930 ",.01)
 ;;55111019930
 ;;9002226.02101,"785,55111019930 ",.02)
 ;;55111019930
 ;;9002226.02101,"785,55111019960 ",.01)
 ;;55111019960
 ;;9002226.02101,"785,55111019960 ",.02)
 ;;55111019960
 ;;9002226.02101,"785,55111019978 ",.01)
 ;;55111019978
 ;;9002226.02101,"785,55111019978 ",.02)
 ;;55111019978
 ;;9002226.02101,"785,55111019990 ",.01)
 ;;55111019990
 ;;9002226.02101,"785,55111019990 ",.02)
 ;;55111019990
 ;;9002226.02101,"785,55111020001 ",.01)
 ;;55111020001
 ;;9002226.02101,"785,55111020001 ",.02)
 ;;55111020001
 ;;9002226.02101,"785,55111020005 ",.01)
 ;;55111020005
 ;;9002226.02101,"785,55111020005 ",.02)
 ;;55111020005
 ;;9002226.02101,"785,55111020010 ",.01)
 ;;55111020010
 ;;9002226.02101,"785,55111020010 ",.02)
 ;;55111020010
 ;;9002226.02101,"785,55111020030 ",.01)
 ;;55111020030
 ;;9002226.02101,"785,55111020030 ",.02)
 ;;55111020030
 ;;9002226.02101,"785,55111020060 ",.01)
 ;;55111020060
 ;;9002226.02101,"785,55111020060 ",.02)
 ;;55111020060
 ;;9002226.02101,"785,55111020078 ",.01)
 ;;55111020078
 ;;9002226.02101,"785,55111020078 ",.02)
 ;;55111020078
 ;;9002226.02101,"785,55111020090 ",.01)
 ;;55111020090
 ;;9002226.02101,"785,55111020090 ",.02)
 ;;55111020090
 ;;9002226.02101,"785,55111026801 ",.01)
 ;;55111026801
 ;;9002226.02101,"785,55111026801 ",.02)
 ;;55111026801
 ;;9002226.02101,"785,55111026805 ",.01)
 ;;55111026805
 ;;9002226.02101,"785,55111026805 ",.02)
 ;;55111026805
 ;;9002226.02101,"785,55111026830 ",.01)
 ;;55111026830
 ;;9002226.02101,"785,55111026830 ",.02)
 ;;55111026830
 ;;9002226.02101,"785,55111026860 ",.01)
 ;;55111026860
 ;;9002226.02101,"785,55111026860 ",.02)
 ;;55111026860
 ;;9002226.02101,"785,55111026878 ",.01)
 ;;55111026878
 ;;9002226.02101,"785,55111026878 ",.02)
 ;;55111026878
 ;;9002226.02101,"785,55111026890 ",.01)
 ;;55111026890
 ;;9002226.02101,"785,55111026890 ",.02)
 ;;55111026890
 ;;9002226.02101,"785,55111072610 ",.01)
 ;;55111072610
 ;;9002226.02101,"785,55111072610 ",.02)
 ;;55111072610
 ;;9002226.02101,"785,55111072630 ",.01)
 ;;55111072630
 ;;9002226.02101,"785,55111072630 ",.02)
 ;;55111072630
 ;;9002226.02101,"785,55111072690 ",.01)
 ;;55111072690
 ;;9002226.02101,"785,55111072690 ",.02)
 ;;55111072690
 ;;9002226.02101,"785,55111073510 ",.01)
 ;;55111073510
 ;;9002226.02101,"785,55111073510 ",.02)
 ;;55111073510
 ;;9002226.02101,"785,55111073530 ",.01)
 ;;55111073530
 ;;9002226.02101,"785,55111073530 ",.02)
 ;;55111073530
 ;;9002226.02101,"785,55111073590 ",.01)
 ;;55111073590
 ;;9002226.02101,"785,55111073590 ",.02)
 ;;55111073590
 ;;9002226.02101,"785,55111074010 ",.01)
 ;;55111074010
 ;;9002226.02101,"785,55111074010 ",.02)
 ;;55111074010
 ;;9002226.02101,"785,55111074030 ",.01)
 ;;55111074030
 ;;9002226.02101,"785,55111074030 ",.02)
 ;;55111074030
 ;;9002226.02101,"785,55111074090 ",.01)
 ;;55111074090
 ;;9002226.02101,"785,55111074090 ",.02)
 ;;55111074090
 ;;9002226.02101,"785,55111074910 ",.01)
 ;;55111074910
 ;;9002226.02101,"785,55111074910 ",.02)
 ;;55111074910
 ;;9002226.02101,"785,55111074930 ",.01)
 ;;55111074930
 ;;9002226.02101,"785,55111074930 ",.02)
 ;;55111074930
 ;;9002226.02101,"785,55111074990 ",.01)
 ;;55111074990
 ;;9002226.02101,"785,55111074990 ",.02)
 ;;55111074990
 ;;9002226.02101,"785,55111075010 ",.01)
 ;;55111075010
 ;;9002226.02101,"785,55111075010 ",.02)
 ;;55111075010
 ;;9002226.02101,"785,55111075030 ",.01)
 ;;55111075030
 ;;9002226.02101,"785,55111075030 ",.02)
 ;;55111075030
 ;;9002226.02101,"785,55111075090 ",.01)
 ;;55111075090
 ;;9002226.02101,"785,55111075090 ",.02)
 ;;55111075090
 ;;9002226.02101,"785,55154347609 ",.01)
 ;;55154347609
 ;;9002226.02101,"785,55154347609 ",.02)
 ;;55154347609
 ;;9002226.02101,"785,55154347709 ",.01)
 ;;55154347709
 ;;9002226.02101,"785,55154347709 ",.02)
 ;;55154347709
 ;;9002226.02101,"785,55154347809 ",.01)
 ;;55154347809
 ;;9002226.02101,"785,55154347809 ",.02)
 ;;55154347809
 ;;9002226.02101,"785,55154506200 ",.01)
 ;;55154506200
 ;;9002226.02101,"785,55154506200 ",.02)
 ;;55154506200
 ;;9002226.02101,"785,55154506300 ",.01)
 ;;55154506300
 ;;9002226.02101,"785,55154506300 ",.02)
 ;;55154506300
 ;;9002226.02101,"785,55154506400 ",.01)
 ;;55154506400
 ;;9002226.02101,"785,55154506400 ",.02)
 ;;55154506400
 ;;9002226.02101,"785,55154566600 ",.01)
 ;;55154566600
 ;;9002226.02101,"785,55154566600 ",.02)
 ;;55154566600
 ;;9002226.02101,"785,55175532503 ",.01)
 ;;55175532503
 ;;9002226.02101,"785,55175532503 ",.02)
 ;;55175532503
 ;;9002226.02101,"785,55289029314 ",.01)
 ;;55289029314
 ;;9002226.02101,"785,55289029314 ",.02)
 ;;55289029314
 ;;9002226.02101,"785,55289029330 ",.01)
 ;;55289029330
 ;;9002226.02101,"785,55289029330 ",.02)
 ;;55289029330
 ;;9002226.02101,"785,55289029390 ",.01)
 ;;55289029390
 ;;9002226.02101,"785,55289029390 ",.02)
 ;;55289029390
 ;;9002226.02101,"785,55289033814 ",.01)
 ;;55289033814
 ;;9002226.02101,"785,55289033814 ",.02)
 ;;55289033814
 ;;9002226.02101,"785,55289033830 ",.01)
 ;;55289033830
 ;;9002226.02101,"785,55289033830 ",.02)
 ;;55289033830
 ;;9002226.02101,"785,55289033890 ",.01)
 ;;55289033890
 ;;9002226.02101,"785,55289033890 ",.02)
 ;;55289033890
 ;;9002226.02101,"785,55289039530 ",.01)
 ;;55289039530
 ;;9002226.02101,"785,55289039530 ",.02)
 ;;55289039530
 ;;9002226.02101,"785,55289039590 ",.01)
 ;;55289039590
 ;;9002226.02101,"785,55289039590 ",.02)
 ;;55289039590
 ;;9002226.02101,"785,55289069214 ",.01)
 ;;55289069214
 ;;9002226.02101,"785,55289069214 ",.02)
 ;;55289069214
 ;;9002226.02101,"785,55289069230 ",.01)
 ;;55289069230
 ;;9002226.02101,"785,55289069230 ",.02)
 ;;55289069230
 ;;9002226.02101,"785,55289088130 ",.01)
 ;;55289088130
 ;;9002226.02101,"785,55289088130 ",.02)
 ;;55289088130
 ;;9002226.02101,"785,55567012700 ",.01)
 ;;55567012700
 ;;9002226.02101,"785,55567012700 ",.02)
 ;;55567012700
 ;;9002226.02101,"785,55567012706 ",.01)
 ;;55567012706
 ;;9002226.02101,"785,55567012706 ",.02)
 ;;55567012706
 ;;9002226.02101,"785,55567012718 ",.01)
 ;;55567012718
 ;;9002226.02101,"785,55567012718 ",.02)
 ;;55567012718
 ;;9002226.02101,"785,55567012735 ",.01)
 ;;55567012735
 ;;9002226.02101,"785,55567012735 ",.02)
 ;;55567012735
 ;;9002226.02101,"785,55567012769 ",.01)
 ;;55567012769
 ;;9002226.02101,"785,55567012769 ",.02)
 ;;55567012769
 ;;9002226.02101,"785,55567012800 ",.01)
 ;;55567012800
 ;;9002226.02101,"785,55567012800 ",.02)
 ;;55567012800
 ;;9002226.02101,"785,55567012806 ",.01)
 ;;55567012806
 ;;9002226.02101,"785,55567012806 ",.02)
 ;;55567012806
 ;;9002226.02101,"785,55567012818 ",.01)
 ;;55567012818
 ;;9002226.02101,"785,55567012818 ",.02)
 ;;55567012818
 ;;9002226.02101,"785,55567012835 ",.01)
 ;;55567012835
 ;;9002226.02101,"785,55567012835 ",.02)
 ;;55567012835
 ;;9002226.02101,"785,55567012869 ",.01)
 ;;55567012869
 ;;9002226.02101,"785,55567012869 ",.02)
 ;;55567012869
 ;;9002226.02101,"785,55567012900 ",.01)
 ;;55567012900
 ;;9002226.02101,"785,55567012900 ",.02)
 ;;55567012900
 ;;9002226.02101,"785,55567012906 ",.01)
 ;;55567012906
 ;;9002226.02101,"785,55567012906 ",.02)
 ;;55567012906
 ;;9002226.02101,"785,55567012918 ",.01)
 ;;55567012918
 ;;9002226.02101,"785,55567012918 ",.02)
 ;;55567012918
 ;;9002226.02101,"785,55567012935 ",.01)
 ;;55567012935
 ;;9002226.02101,"785,55567012935 ",.02)
 ;;55567012935
 ;;9002226.02101,"785,55567012969 ",.01)
 ;;55567012969
 ;;9002226.02101,"785,55567012969 ",.02)
 ;;55567012969
 ;;9002226.02101,"785,55887031830 ",.01)
 ;;55887031830
 ;;9002226.02101,"785,55887031830 ",.02)
 ;;55887031830
 ;;9002226.02101,"785,55887031860 ",.01)
 ;;55887031860
 ;;9002226.02101,"785,55887031860 ",.02)
 ;;55887031860
 ;;9002226.02101,"785,55887031890 ",.01)
 ;;55887031890
 ;;9002226.02101,"785,55887031890 ",.02)
 ;;55887031890
 ;;9002226.02101,"785,55887032730 ",.01)
 ;;55887032730
 ;;9002226.02101,"785,55887032730 ",.02)
 ;;55887032730
 ;;9002226.02101,"785,55887032760 ",.01)
 ;;55887032760
 ;;9002226.02101,"785,55887032760 ",.02)
 ;;55887032760
 ;;9002226.02101,"785,55887032790 ",.01)
 ;;55887032790
 ;;9002226.02101,"785,55887032790 ",.02)
 ;;55887032790
 ;;9002226.02101,"785,55887035001 ",.01)
 ;;55887035001
 ;;9002226.02101,"785,55887035001 ",.02)
 ;;55887035001
 ;;9002226.02101,"785,55887035030 ",.01)
 ;;55887035030
 ;;9002226.02101,"785,55887035030 ",.02)
 ;;55887035030
 ;;9002226.02101,"785,55887035060 ",.01)
 ;;55887035060
 ;;9002226.02101,"785,55887035060 ",.02)
 ;;55887035060
 ;;9002226.02101,"785,55887035090 ",.01)
 ;;55887035090
 ;;9002226.02101,"785,55887035090 ",.02)
 ;;55887035090
 ;;9002226.02101,"785,55887036930 ",.01)
 ;;55887036930
 ;;9002226.02101,"785,55887036930 ",.02)
 ;;55887036930
 ;;9002226.02101,"785,55887036940 ",.01)
 ;;55887036940
 ;;9002226.02101,"785,55887036940 ",.02)
 ;;55887036940
 ;;9002226.02101,"785,55887036960 ",.01)
 ;;55887036960
 ;;9002226.02101,"785,55887036960 ",.02)
 ;;55887036960
 ;;9002226.02101,"785,55887036990 ",.01)
 ;;55887036990
 ;;9002226.02101,"785,55887036990 ",.02)
 ;;55887036990
 ;;9002226.02101,"785,55887085810 ",.01)
 ;;55887085810
 ;;9002226.02101,"785,55887085810 ",.02)
 ;;55887085810
 ;;9002226.02101,"785,55887085830 ",.01)
 ;;55887085830
 ;;9002226.02101,"785,55887085830 ",.02)
 ;;55887085830
 ;;9002226.02101,"785,55887085860 ",.01)
 ;;55887085860
 ;;9002226.02101,"785,55887085860 ",.02)
 ;;55887085860
 ;;9002226.02101,"785,55887085890 ",.01)
 ;;55887085890
 ;;9002226.02101,"785,55887085890 ",.02)
 ;;55887085890
 ;;9002226.02101,"785,55887086130 ",.01)
 ;;55887086130
 ;;9002226.02101,"785,55887086130 ",.02)
 ;;55887086130
 ;;9002226.02101,"785,55887086160 ",.01)
 ;;55887086160
 ;;9002226.02101,"785,55887086160 ",.02)
 ;;55887086160
 ;;9002226.02101,"785,55887086190 ",.01)
 ;;55887086190
 ;;9002226.02101,"785,55887086190 ",.02)
 ;;55887086190
 ;;9002226.02101,"785,55887097430 ",.01)
 ;;55887097430
 ;;9002226.02101,"785,55887097430 ",.02)
 ;;55887097430
 ;;9002226.02101,"785,55887097490 ",.01)
 ;;55887097490
 ;;9002226.02101,"785,55887097490 ",.02)
 ;;55887097490
 ;;9002226.02101,"785,57297046701 ",.01)
 ;;57297046701
 ;;9002226.02101,"785,57297046701 ",.02)
 ;;57297046701
 ;;9002226.02101,"785,57297046703 ",.01)
 ;;57297046703
 ;;9002226.02101,"785,57297046703 ",.02)
 ;;57297046703
 ;;9002226.02101,"785,57297046707 ",.01)
 ;;57297046707
 ;;9002226.02101,"785,57297046707 ",.02)
 ;;57297046707
 ;;9002226.02101,"785,57297046801 ",.01)
 ;;57297046801
 ;;9002226.02101,"785,57297046801 ",.02)
 ;;57297046801