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

BGPM3ADA.m

Go to the documentation of this file.
BGPM3ADA ;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,57480080906 ",.02)
 ;;57480080906
 ;;9002226.02101,"786,57587090100 ",.01)
 ;;57587090100
 ;;9002226.02101,"786,57587090100 ",.02)
 ;;57587090100
 ;;9002226.02101,"786,57587090300 ",.01)
 ;;57587090300
 ;;9002226.02101,"786,57587090300 ",.02)
 ;;57587090300
 ;;9002226.02101,"786,57664011508 ",.01)
 ;;57664011508
 ;;9002226.02101,"786,57664011508 ",.02)
 ;;57664011508
 ;;9002226.02101,"786,57664011513 ",.01)
 ;;57664011513
 ;;9002226.02101,"786,57664011513 ",.02)
 ;;57664011513
 ;;9002226.02101,"786,57664011518 ",.01)
 ;;57664011518
 ;;9002226.02101,"786,57664011518 ",.02)
 ;;57664011518
 ;;9002226.02101,"786,57664011583 ",.01)
 ;;57664011583
 ;;9002226.02101,"786,57664011583 ",.02)
 ;;57664011583
 ;;9002226.02101,"786,57664011586 ",.01)
 ;;57664011586
 ;;9002226.02101,"786,57664011586 ",.02)
 ;;57664011586
 ;;9002226.02101,"786,57664011588 ",.01)
 ;;57664011588
 ;;9002226.02101,"786,57664011588 ",.02)
 ;;57664011588
 ;;9002226.02101,"786,57866393601 ",.01)
 ;;57866393601
 ;;9002226.02101,"786,57866393601 ",.02)
 ;;57866393601
 ;;9002226.02101,"786,57866394901 ",.01)
 ;;57866394901
 ;;9002226.02101,"786,57866394901 ",.02)
 ;;57866394901
 ;;9002226.02101,"786,57866640001 ",.01)
 ;;57866640001
 ;;9002226.02101,"786,57866640001 ",.02)
 ;;57866640001
 ;;9002226.02101,"786,57866650001 ",.01)
 ;;57866650001
 ;;9002226.02101,"786,57866650001 ",.02)
 ;;57866650001
 ;;9002226.02101,"786,57866654001 ",.01)
 ;;57866654001
 ;;9002226.02101,"786,57866654001 ",.02)
 ;;57866654001
 ;;9002226.02101,"786,57866654002 ",.01)
 ;;57866654002
 ;;9002226.02101,"786,57866654002 ",.02)
 ;;57866654002
 ;;9002226.02101,"786,57866654004 ",.01)
 ;;57866654004
 ;;9002226.02101,"786,57866654004 ",.02)
 ;;57866654004
 ;;9002226.02101,"786,57866660101 ",.01)
 ;;57866660101
 ;;9002226.02101,"786,57866660101 ",.02)
 ;;57866660101
 ;;9002226.02101,"786,58016000600 ",.01)
 ;;58016000600
 ;;9002226.02101,"786,58016000600 ",.02)
 ;;58016000600
 ;;9002226.02101,"786,58016000601 ",.01)
 ;;58016000601
 ;;9002226.02101,"786,58016000601 ",.02)
 ;;58016000601
 ;;9002226.02101,"786,58016000602 ",.01)
 ;;58016000602
 ;;9002226.02101,"786,58016000602 ",.02)
 ;;58016000602
 ;;9002226.02101,"786,58016000603 ",.01)
 ;;58016000603
 ;;9002226.02101,"786,58016000603 ",.02)
 ;;58016000603
 ;;9002226.02101,"786,58016000604 ",.01)
 ;;58016000604
 ;;9002226.02101,"786,58016000604 ",.02)
 ;;58016000604
 ;;9002226.02101,"786,58016000605 ",.01)
 ;;58016000605
 ;;9002226.02101,"786,58016000605 ",.02)
 ;;58016000605
 ;;9002226.02101,"786,58016000606 ",.01)
 ;;58016000606
 ;;9002226.02101,"786,58016000606 ",.02)
 ;;58016000606
 ;;9002226.02101,"786,58016000607 ",.01)
 ;;58016000607
 ;;9002226.02101,"786,58016000607 ",.02)
 ;;58016000607
 ;;9002226.02101,"786,58016000608 ",.01)
 ;;58016000608
 ;;9002226.02101,"786,58016000608 ",.02)
 ;;58016000608
 ;;9002226.02101,"786,58016000609 ",.01)
 ;;58016000609
 ;;9002226.02101,"786,58016000609 ",.02)
 ;;58016000609
 ;;9002226.02101,"786,58016000610 ",.01)
 ;;58016000610
 ;;9002226.02101,"786,58016000610 ",.02)
 ;;58016000610
 ;;9002226.02101,"786,58016000630 ",.01)
 ;;58016000630
 ;;9002226.02101,"786,58016000630 ",.02)
 ;;58016000630
 ;;9002226.02101,"786,58016000660 ",.01)
 ;;58016000660
 ;;9002226.02101,"786,58016000660 ",.02)
 ;;58016000660
 ;;9002226.02101,"786,58016000690 ",.01)
 ;;58016000690
 ;;9002226.02101,"786,58016000690 ",.02)
 ;;58016000690
 ;;9002226.02101,"786,58016000700 ",.01)
 ;;58016000700
 ;;9002226.02101,"786,58016000700 ",.02)
 ;;58016000700
 ;;9002226.02101,"786,58016000701 ",.01)
 ;;58016000701
 ;;9002226.02101,"786,58016000701 ",.02)
 ;;58016000701
 ;;9002226.02101,"786,58016000702 ",.01)
 ;;58016000702
 ;;9002226.02101,"786,58016000702 ",.02)
 ;;58016000702
 ;;9002226.02101,"786,58016000703 ",.01)
 ;;58016000703
 ;;9002226.02101,"786,58016000703 ",.02)
 ;;58016000703
 ;;9002226.02101,"786,58016000704 ",.01)
 ;;58016000704
 ;;9002226.02101,"786,58016000704 ",.02)
 ;;58016000704
 ;;9002226.02101,"786,58016000705 ",.01)
 ;;58016000705
 ;;9002226.02101,"786,58016000705 ",.02)
 ;;58016000705
 ;;9002226.02101,"786,58016000706 ",.01)
 ;;58016000706
 ;;9002226.02101,"786,58016000706 ",.02)
 ;;58016000706
 ;;9002226.02101,"786,58016000707 ",.01)
 ;;58016000707
 ;;9002226.02101,"786,58016000707 ",.02)
 ;;58016000707
 ;;9002226.02101,"786,58016000708 ",.01)
 ;;58016000708
 ;;9002226.02101,"786,58016000708 ",.02)
 ;;58016000708
 ;;9002226.02101,"786,58016000709 ",.01)
 ;;58016000709
 ;;9002226.02101,"786,58016000709 ",.02)
 ;;58016000709
 ;;9002226.02101,"786,58016000710 ",.01)
 ;;58016000710
 ;;9002226.02101,"786,58016000710 ",.02)
 ;;58016000710
 ;;9002226.02101,"786,58016000730 ",.01)
 ;;58016000730
 ;;9002226.02101,"786,58016000730 ",.02)
 ;;58016000730
 ;;9002226.02101,"786,58016000760 ",.01)
 ;;58016000760
 ;;9002226.02101,"786,58016000760 ",.02)
 ;;58016000760
 ;;9002226.02101,"786,58016000790 ",.01)
 ;;58016000790
 ;;9002226.02101,"786,58016000790 ",.02)
 ;;58016000790
 ;;9002226.02101,"786,58016000800 ",.01)
 ;;58016000800
 ;;9002226.02101,"786,58016000800 ",.02)
 ;;58016000800
 ;;9002226.02101,"786,58016000830 ",.01)
 ;;58016000830
 ;;9002226.02101,"786,58016000830 ",.02)
 ;;58016000830
 ;;9002226.02101,"786,58016000860 ",.01)
 ;;58016000860
 ;;9002226.02101,"786,58016000860 ",.02)
 ;;58016000860
 ;;9002226.02101,"786,58016000890 ",.01)
 ;;58016000890
 ;;9002226.02101,"786,58016000890 ",.02)
 ;;58016000890
 ;;9002226.02101,"786,58016054000 ",.01)
 ;;58016054000
 ;;9002226.02101,"786,58016054000 ",.02)
 ;;58016054000
 ;;9002226.02101,"786,58016054001 ",.01)
 ;;58016054001
 ;;9002226.02101,"786,58016054001 ",.02)
 ;;58016054001
 ;;9002226.02101,"786,58016054002 ",.01)
 ;;58016054002
 ;;9002226.02101,"786,58016054002 ",.02)
 ;;58016054002
 ;;9002226.02101,"786,58016054003 ",.01)
 ;;58016054003
 ;;9002226.02101,"786,58016054003 ",.02)
 ;;58016054003
 ;;9002226.02101,"786,58016054004 ",.01)
 ;;58016054004
 ;;9002226.02101,"786,58016054004 ",.02)
 ;;58016054004
 ;;9002226.02101,"786,58016054005 ",.01)
 ;;58016054005
 ;;9002226.02101,"786,58016054005 ",.02)
 ;;58016054005
 ;;9002226.02101,"786,58016054006 ",.01)
 ;;58016054006
 ;;9002226.02101,"786,58016054006 ",.02)
 ;;58016054006
 ;;9002226.02101,"786,58016054007 ",.01)
 ;;58016054007
 ;;9002226.02101,"786,58016054007 ",.02)
 ;;58016054007
 ;;9002226.02101,"786,58016054008 ",.01)
 ;;58016054008
 ;;9002226.02101,"786,58016054008 ",.02)
 ;;58016054008
 ;;9002226.02101,"786,58016054009 ",.01)
 ;;58016054009
 ;;9002226.02101,"786,58016054009 ",.02)
 ;;58016054009
 ;;9002226.02101,"786,58016054010 ",.01)
 ;;58016054010
 ;;9002226.02101,"786,58016054010 ",.02)
 ;;58016054010
 ;;9002226.02101,"786,58016054012 ",.01)
 ;;58016054012
 ;;9002226.02101,"786,58016054012 ",.02)
 ;;58016054012
 ;;9002226.02101,"786,58016054014 ",.01)
 ;;58016054014
 ;;9002226.02101,"786,58016054014 ",.02)
 ;;58016054014
 ;;9002226.02101,"786,58016054016 ",.01)
 ;;58016054016
 ;;9002226.02101,"786,58016054016 ",.02)
 ;;58016054016
 ;;9002226.02101,"786,58016054018 ",.01)
 ;;58016054018
 ;;9002226.02101,"786,58016054018 ",.02)
 ;;58016054018
 ;;9002226.02101,"786,58016054020 ",.01)
 ;;58016054020
 ;;9002226.02101,"786,58016054020 ",.02)
 ;;58016054020
 ;;9002226.02101,"786,58016054021 ",.01)
 ;;58016054021
 ;;9002226.02101,"786,58016054021 ",.02)
 ;;58016054021
 ;;9002226.02101,"786,58016054024 ",.01)
 ;;58016054024
 ;;9002226.02101,"786,58016054024 ",.02)
 ;;58016054024
 ;;9002226.02101,"786,58016054025 ",.01)
 ;;58016054025
 ;;9002226.02101,"786,58016054025 ",.02)
 ;;58016054025
 ;;9002226.02101,"786,58016054026 ",.01)
 ;;58016054026
 ;;9002226.02101,"786,58016054026 ",.02)
 ;;58016054026
 ;;9002226.02101,"786,58016054027 ",.01)
 ;;58016054027
 ;;9002226.02101,"786,58016054027 ",.02)
 ;;58016054027
 ;;9002226.02101,"786,58016054028 ",.01)
 ;;58016054028
 ;;9002226.02101,"786,58016054028 ",.02)
 ;;58016054028
 ;;9002226.02101,"786,58016054030 ",.01)
 ;;58016054030
 ;;9002226.02101,"786,58016054030 ",.02)
 ;;58016054030
 ;;9002226.02101,"786,58016054032 ",.01)
 ;;58016054032
 ;;9002226.02101,"786,58016054032 ",.02)
 ;;58016054032
 ;;9002226.02101,"786,58016054035 ",.01)
 ;;58016054035
 ;;9002226.02101,"786,58016054035 ",.02)
 ;;58016054035
 ;;9002226.02101,"786,58016054036 ",.01)
 ;;58016054036
 ;;9002226.02101,"786,58016054036 ",.02)
 ;;58016054036
 ;;9002226.02101,"786,58016054040 ",.01)
 ;;58016054040
 ;;9002226.02101,"786,58016054040 ",.02)
 ;;58016054040
 ;;9002226.02101,"786,58016054042 ",.01)
 ;;58016054042
 ;;9002226.02101,"786,58016054042 ",.02)
 ;;58016054042
 ;;9002226.02101,"786,58016054044 ",.01)
 ;;58016054044
 ;;9002226.02101,"786,58016054044 ",.02)
 ;;58016054044
 ;;9002226.02101,"786,58016054045 ",.01)
 ;;58016054045
 ;;9002226.02101,"786,58016054045 ",.02)
 ;;58016054045
 ;;9002226.02101,"786,58016054048 ",.01)
 ;;58016054048
 ;;9002226.02101,"786,58016054048 ",.02)
 ;;58016054048
 ;;9002226.02101,"786,58016054050 ",.01)
 ;;58016054050
 ;;9002226.02101,"786,58016054050 ",.02)
 ;;58016054050
 ;;9002226.02101,"786,58016054056 ",.01)
 ;;58016054056
 ;;9002226.02101,"786,58016054056 ",.02)
 ;;58016054056
 ;;9002226.02101,"786,58016054060 ",.01)
 ;;58016054060
 ;;9002226.02101,"786,58016054060 ",.02)
 ;;58016054060
 ;;9002226.02101,"786,58016054067 ",.01)
 ;;58016054067
 ;;9002226.02101,"786,58016054067 ",.02)
 ;;58016054067
 ;;9002226.02101,"786,58016054069 ",.01)
 ;;58016054069
 ;;9002226.02101,"786,58016054069 ",.02)
 ;;58016054069
 ;;9002226.02101,"786,58016054070 ",.01)
 ;;58016054070
 ;;9002226.02101,"786,58016054070 ",.02)
 ;;58016054070
 ;;9002226.02101,"786,58016054071 ",.01)
 ;;58016054071
 ;;9002226.02101,"786,58016054071 ",.02)
 ;;58016054071
 ;;9002226.02101,"786,58016054072 ",.01)
 ;;58016054072
 ;;9002226.02101,"786,58016054072 ",.02)
 ;;58016054072
 ;;9002226.02101,"786,58016054073 ",.01)
 ;;58016054073
 ;;9002226.02101,"786,58016054073 ",.02)
 ;;58016054073
 ;;9002226.02101,"786,58016054075 ",.01)
 ;;58016054075
 ;;9002226.02101,"786,58016054075 ",.02)
 ;;58016054075
 ;;9002226.02101,"786,58016054076 ",.01)
 ;;58016054076
 ;;9002226.02101,"786,58016054076 ",.02)
 ;;58016054076
 ;;9002226.02101,"786,58016054077 ",.01)
 ;;58016054077
 ;;9002226.02101,"786,58016054077 ",.02)
 ;;58016054077
 ;;9002226.02101,"786,58016054079 ",.01)
 ;;58016054079
 ;;9002226.02101,"786,58016054079 ",.02)
 ;;58016054079
 ;;9002226.02101,"786,58016054080 ",.01)
 ;;58016054080
 ;;9002226.02101,"786,58016054080 ",.02)
 ;;58016054080
 ;;9002226.02101,"786,58016054081 ",.01)
 ;;58016054081
 ;;9002226.02101,"786,58016054081 ",.02)
 ;;58016054081
 ;;9002226.02101,"786,58016054082 ",.01)
 ;;58016054082
 ;;9002226.02101,"786,58016054082 ",.02)
 ;;58016054082
 ;;9002226.02101,"786,58016054083 ",.01)
 ;;58016054083
 ;;9002226.02101,"786,58016054083 ",.02)
 ;;58016054083
 ;;9002226.02101,"786,58016054084 ",.01)
 ;;58016054084
 ;;9002226.02101,"786,58016054084 ",.02)
 ;;58016054084
 ;;9002226.02101,"786,58016054087 ",.01)
 ;;58016054087
 ;;9002226.02101,"786,58016054087 ",.02)
 ;;58016054087
 ;;9002226.02101,"786,58016054089 ",.01)
 ;;58016054089
 ;;9002226.02101,"786,58016054089 ",.02)
 ;;58016054089
 ;;9002226.02101,"786,58016054090 ",.01)
 ;;58016054090
 ;;9002226.02101,"786,58016054090 ",.02)
 ;;58016054090
 ;;9002226.02101,"786,58016054091 ",.01)
 ;;58016054091
 ;;9002226.02101,"786,58016054091 ",.02)
 ;;58016054091
 ;;9002226.02101,"786,58016054092 ",.01)
 ;;58016054092