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.
  1. BGPM3ADA ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
  1. ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"786,57480080906 ",.02)
  1. ;;57480080906
  1. ;;9002226.02101,"786,57587090100 ",.01)
  1. ;;57587090100
  1. ;;9002226.02101,"786,57587090100 ",.02)
  1. ;;57587090100
  1. ;;9002226.02101,"786,57587090300 ",.01)
  1. ;;57587090300
  1. ;;9002226.02101,"786,57587090300 ",.02)
  1. ;;57587090300
  1. ;;9002226.02101,"786,57664011508 ",.01)
  1. ;;57664011508
  1. ;;9002226.02101,"786,57664011508 ",.02)
  1. ;;57664011508
  1. ;;9002226.02101,"786,57664011513 ",.01)
  1. ;;57664011513
  1. ;;9002226.02101,"786,57664011513 ",.02)
  1. ;;57664011513
  1. ;;9002226.02101,"786,57664011518 ",.01)
  1. ;;57664011518
  1. ;;9002226.02101,"786,57664011518 ",.02)
  1. ;;57664011518
  1. ;;9002226.02101,"786,57664011583 ",.01)
  1. ;;57664011583
  1. ;;9002226.02101,"786,57664011583 ",.02)
  1. ;;57664011583
  1. ;;9002226.02101,"786,57664011586 ",.01)
  1. ;;57664011586
  1. ;;9002226.02101,"786,57664011586 ",.02)
  1. ;;57664011586
  1. ;;9002226.02101,"786,57664011588 ",.01)
  1. ;;57664011588
  1. ;;9002226.02101,"786,57664011588 ",.02)
  1. ;;57664011588
  1. ;;9002226.02101,"786,57866393601 ",.01)
  1. ;;57866393601
  1. ;;9002226.02101,"786,57866393601 ",.02)
  1. ;;57866393601
  1. ;;9002226.02101,"786,57866394901 ",.01)
  1. ;;57866394901
  1. ;;9002226.02101,"786,57866394901 ",.02)
  1. ;;57866394901
  1. ;;9002226.02101,"786,57866640001 ",.01)
  1. ;;57866640001
  1. ;;9002226.02101,"786,57866640001 ",.02)
  1. ;;57866640001
  1. ;;9002226.02101,"786,57866650001 ",.01)
  1. ;;57866650001
  1. ;;9002226.02101,"786,57866650001 ",.02)
  1. ;;57866650001
  1. ;;9002226.02101,"786,57866654001 ",.01)
  1. ;;57866654001
  1. ;;9002226.02101,"786,57866654001 ",.02)
  1. ;;57866654001
  1. ;;9002226.02101,"786,57866654002 ",.01)
  1. ;;57866654002
  1. ;;9002226.02101,"786,57866654002 ",.02)
  1. ;;57866654002
  1. ;;9002226.02101,"786,57866654004 ",.01)
  1. ;;57866654004
  1. ;;9002226.02101,"786,57866654004 ",.02)
  1. ;;57866654004
  1. ;;9002226.02101,"786,57866660101 ",.01)
  1. ;;57866660101
  1. ;;9002226.02101,"786,57866660101 ",.02)
  1. ;;57866660101
  1. ;;9002226.02101,"786,58016000600 ",.01)
  1. ;;58016000600
  1. ;;9002226.02101,"786,58016000600 ",.02)
  1. ;;58016000600
  1. ;;9002226.02101,"786,58016000601 ",.01)
  1. ;;58016000601
  1. ;;9002226.02101,"786,58016000601 ",.02)
  1. ;;58016000601
  1. ;;9002226.02101,"786,58016000602 ",.01)
  1. ;;58016000602
  1. ;;9002226.02101,"786,58016000602 ",.02)
  1. ;;58016000602
  1. ;;9002226.02101,"786,58016000603 ",.01)
  1. ;;58016000603
  1. ;;9002226.02101,"786,58016000603 ",.02)
  1. ;;58016000603
  1. ;;9002226.02101,"786,58016000604 ",.01)
  1. ;;58016000604
  1. ;;9002226.02101,"786,58016000604 ",.02)
  1. ;;58016000604
  1. ;;9002226.02101,"786,58016000605 ",.01)
  1. ;;58016000605
  1. ;;9002226.02101,"786,58016000605 ",.02)
  1. ;;58016000605
  1. ;;9002226.02101,"786,58016000606 ",.01)
  1. ;;58016000606
  1. ;;9002226.02101,"786,58016000606 ",.02)
  1. ;;58016000606
  1. ;;9002226.02101,"786,58016000607 ",.01)
  1. ;;58016000607
  1. ;;9002226.02101,"786,58016000607 ",.02)
  1. ;;58016000607
  1. ;;9002226.02101,"786,58016000608 ",.01)
  1. ;;58016000608
  1. ;;9002226.02101,"786,58016000608 ",.02)
  1. ;;58016000608
  1. ;;9002226.02101,"786,58016000609 ",.01)
  1. ;;58016000609
  1. ;;9002226.02101,"786,58016000609 ",.02)
  1. ;;58016000609
  1. ;;9002226.02101,"786,58016000610 ",.01)
  1. ;;58016000610
  1. ;;9002226.02101,"786,58016000610 ",.02)
  1. ;;58016000610
  1. ;;9002226.02101,"786,58016000630 ",.01)
  1. ;;58016000630
  1. ;;9002226.02101,"786,58016000630 ",.02)
  1. ;;58016000630
  1. ;;9002226.02101,"786,58016000660 ",.01)
  1. ;;58016000660
  1. ;;9002226.02101,"786,58016000660 ",.02)
  1. ;;58016000660
  1. ;;9002226.02101,"786,58016000690 ",.01)
  1. ;;58016000690
  1. ;;9002226.02101,"786,58016000690 ",.02)
  1. ;;58016000690
  1. ;;9002226.02101,"786,58016000700 ",.01)
  1. ;;58016000700
  1. ;;9002226.02101,"786,58016000700 ",.02)
  1. ;;58016000700
  1. ;;9002226.02101,"786,58016000701 ",.01)
  1. ;;58016000701
  1. ;;9002226.02101,"786,58016000701 ",.02)
  1. ;;58016000701
  1. ;;9002226.02101,"786,58016000702 ",.01)
  1. ;;58016000702
  1. ;;9002226.02101,"786,58016000702 ",.02)
  1. ;;58016000702
  1. ;;9002226.02101,"786,58016000703 ",.01)
  1. ;;58016000703
  1. ;;9002226.02101,"786,58016000703 ",.02)
  1. ;;58016000703
  1. ;;9002226.02101,"786,58016000704 ",.01)
  1. ;;58016000704
  1. ;;9002226.02101,"786,58016000704 ",.02)
  1. ;;58016000704
  1. ;;9002226.02101,"786,58016000705 ",.01)
  1. ;;58016000705
  1. ;;9002226.02101,"786,58016000705 ",.02)
  1. ;;58016000705
  1. ;;9002226.02101,"786,58016000706 ",.01)
  1. ;;58016000706
  1. ;;9002226.02101,"786,58016000706 ",.02)
  1. ;;58016000706
  1. ;;9002226.02101,"786,58016000707 ",.01)
  1. ;;58016000707
  1. ;;9002226.02101,"786,58016000707 ",.02)
  1. ;;58016000707
  1. ;;9002226.02101,"786,58016000708 ",.01)
  1. ;;58016000708
  1. ;;9002226.02101,"786,58016000708 ",.02)
  1. ;;58016000708
  1. ;;9002226.02101,"786,58016000709 ",.01)
  1. ;;58016000709
  1. ;;9002226.02101,"786,58016000709 ",.02)
  1. ;;58016000709
  1. ;;9002226.02101,"786,58016000710 ",.01)
  1. ;;58016000710
  1. ;;9002226.02101,"786,58016000710 ",.02)
  1. ;;58016000710
  1. ;;9002226.02101,"786,58016000730 ",.01)
  1. ;;58016000730
  1. ;;9002226.02101,"786,58016000730 ",.02)
  1. ;;58016000730
  1. ;;9002226.02101,"786,58016000760 ",.01)
  1. ;;58016000760
  1. ;;9002226.02101,"786,58016000760 ",.02)
  1. ;;58016000760
  1. ;;9002226.02101,"786,58016000790 ",.01)
  1. ;;58016000790
  1. ;;9002226.02101,"786,58016000790 ",.02)
  1. ;;58016000790
  1. ;;9002226.02101,"786,58016000800 ",.01)
  1. ;;58016000800
  1. ;;9002226.02101,"786,58016000800 ",.02)
  1. ;;58016000800
  1. ;;9002226.02101,"786,58016000830 ",.01)
  1. ;;58016000830
  1. ;;9002226.02101,"786,58016000830 ",.02)
  1. ;;58016000830
  1. ;;9002226.02101,"786,58016000860 ",.01)
  1. ;;58016000860
  1. ;;9002226.02101,"786,58016000860 ",.02)
  1. ;;58016000860
  1. ;;9002226.02101,"786,58016000890 ",.01)
  1. ;;58016000890
  1. ;;9002226.02101,"786,58016000890 ",.02)
  1. ;;58016000890
  1. ;;9002226.02101,"786,58016054000 ",.01)
  1. ;;58016054000
  1. ;;9002226.02101,"786,58016054000 ",.02)
  1. ;;58016054000
  1. ;;9002226.02101,"786,58016054001 ",.01)
  1. ;;58016054001
  1. ;;9002226.02101,"786,58016054001 ",.02)
  1. ;;58016054001
  1. ;;9002226.02101,"786,58016054002 ",.01)
  1. ;;58016054002
  1. ;;9002226.02101,"786,58016054002 ",.02)
  1. ;;58016054002
  1. ;;9002226.02101,"786,58016054003 ",.01)
  1. ;;58016054003
  1. ;;9002226.02101,"786,58016054003 ",.02)
  1. ;;58016054003
  1. ;;9002226.02101,"786,58016054004 ",.01)
  1. ;;58016054004
  1. ;;9002226.02101,"786,58016054004 ",.02)
  1. ;;58016054004
  1. ;;9002226.02101,"786,58016054005 ",.01)
  1. ;;58016054005
  1. ;;9002226.02101,"786,58016054005 ",.02)
  1. ;;58016054005
  1. ;;9002226.02101,"786,58016054006 ",.01)
  1. ;;58016054006
  1. ;;9002226.02101,"786,58016054006 ",.02)
  1. ;;58016054006
  1. ;;9002226.02101,"786,58016054007 ",.01)
  1. ;;58016054007
  1. ;;9002226.02101,"786,58016054007 ",.02)
  1. ;;58016054007
  1. ;;9002226.02101,"786,58016054008 ",.01)
  1. ;;58016054008
  1. ;;9002226.02101,"786,58016054008 ",.02)
  1. ;;58016054008
  1. ;;9002226.02101,"786,58016054009 ",.01)
  1. ;;58016054009
  1. ;;9002226.02101,"786,58016054009 ",.02)
  1. ;;58016054009
  1. ;;9002226.02101,"786,58016054010 ",.01)
  1. ;;58016054010
  1. ;;9002226.02101,"786,58016054010 ",.02)
  1. ;;58016054010
  1. ;;9002226.02101,"786,58016054012 ",.01)
  1. ;;58016054012
  1. ;;9002226.02101,"786,58016054012 ",.02)
  1. ;;58016054012
  1. ;;9002226.02101,"786,58016054014 ",.01)
  1. ;;58016054014
  1. ;;9002226.02101,"786,58016054014 ",.02)
  1. ;;58016054014
  1. ;;9002226.02101,"786,58016054016 ",.01)
  1. ;;58016054016
  1. ;;9002226.02101,"786,58016054016 ",.02)
  1. ;;58016054016
  1. ;;9002226.02101,"786,58016054018 ",.01)
  1. ;;58016054018
  1. ;;9002226.02101,"786,58016054018 ",.02)
  1. ;;58016054018
  1. ;;9002226.02101,"786,58016054020 ",.01)
  1. ;;58016054020
  1. ;;9002226.02101,"786,58016054020 ",.02)
  1. ;;58016054020
  1. ;;9002226.02101,"786,58016054021 ",.01)
  1. ;;58016054021
  1. ;;9002226.02101,"786,58016054021 ",.02)
  1. ;;58016054021
  1. ;;9002226.02101,"786,58016054024 ",.01)
  1. ;;58016054024
  1. ;;9002226.02101,"786,58016054024 ",.02)
  1. ;;58016054024
  1. ;;9002226.02101,"786,58016054025 ",.01)
  1. ;;58016054025
  1. ;;9002226.02101,"786,58016054025 ",.02)
  1. ;;58016054025
  1. ;;9002226.02101,"786,58016054026 ",.01)
  1. ;;58016054026
  1. ;;9002226.02101,"786,58016054026 ",.02)
  1. ;;58016054026
  1. ;;9002226.02101,"786,58016054027 ",.01)
  1. ;;58016054027
  1. ;;9002226.02101,"786,58016054027 ",.02)
  1. ;;58016054027
  1. ;;9002226.02101,"786,58016054028 ",.01)
  1. ;;58016054028
  1. ;;9002226.02101,"786,58016054028 ",.02)
  1. ;;58016054028
  1. ;;9002226.02101,"786,58016054030 ",.01)
  1. ;;58016054030
  1. ;;9002226.02101,"786,58016054030 ",.02)
  1. ;;58016054030
  1. ;;9002226.02101,"786,58016054032 ",.01)
  1. ;;58016054032
  1. ;;9002226.02101,"786,58016054032 ",.02)
  1. ;;58016054032
  1. ;;9002226.02101,"786,58016054035 ",.01)
  1. ;;58016054035
  1. ;;9002226.02101,"786,58016054035 ",.02)
  1. ;;58016054035
  1. ;;9002226.02101,"786,58016054036 ",.01)
  1. ;;58016054036
  1. ;;9002226.02101,"786,58016054036 ",.02)
  1. ;;58016054036
  1. ;;9002226.02101,"786,58016054040 ",.01)
  1. ;;58016054040
  1. ;;9002226.02101,"786,58016054040 ",.02)
  1. ;;58016054040
  1. ;;9002226.02101,"786,58016054042 ",.01)
  1. ;;58016054042
  1. ;;9002226.02101,"786,58016054042 ",.02)
  1. ;;58016054042
  1. ;;9002226.02101,"786,58016054044 ",.01)
  1. ;;58016054044
  1. ;;9002226.02101,"786,58016054044 ",.02)
  1. ;;58016054044
  1. ;;9002226.02101,"786,58016054045 ",.01)
  1. ;;58016054045
  1. ;;9002226.02101,"786,58016054045 ",.02)
  1. ;;58016054045
  1. ;;9002226.02101,"786,58016054048 ",.01)
  1. ;;58016054048
  1. ;;9002226.02101,"786,58016054048 ",.02)
  1. ;;58016054048
  1. ;;9002226.02101,"786,58016054050 ",.01)
  1. ;;58016054050
  1. ;;9002226.02101,"786,58016054050 ",.02)
  1. ;;58016054050
  1. ;;9002226.02101,"786,58016054056 ",.01)
  1. ;;58016054056
  1. ;;9002226.02101,"786,58016054056 ",.02)
  1. ;;58016054056
  1. ;;9002226.02101,"786,58016054060 ",.01)
  1. ;;58016054060
  1. ;;9002226.02101,"786,58016054060 ",.02)
  1. ;;58016054060
  1. ;;9002226.02101,"786,58016054067 ",.01)
  1. ;;58016054067
  1. ;;9002226.02101,"786,58016054067 ",.02)
  1. ;;58016054067
  1. ;;9002226.02101,"786,58016054069 ",.01)
  1. ;;58016054069
  1. ;;9002226.02101,"786,58016054069 ",.02)
  1. ;;58016054069
  1. ;;9002226.02101,"786,58016054070 ",.01)
  1. ;;58016054070
  1. ;;9002226.02101,"786,58016054070 ",.02)
  1. ;;58016054070
  1. ;;9002226.02101,"786,58016054071 ",.01)
  1. ;;58016054071
  1. ;;9002226.02101,"786,58016054071 ",.02)
  1. ;;58016054071
  1. ;;9002226.02101,"786,58016054072 ",.01)
  1. ;;58016054072
  1. ;;9002226.02101,"786,58016054072 ",.02)
  1. ;;58016054072
  1. ;;9002226.02101,"786,58016054073 ",.01)
  1. ;;58016054073
  1. ;;9002226.02101,"786,58016054073 ",.02)
  1. ;;58016054073
  1. ;;9002226.02101,"786,58016054075 ",.01)
  1. ;;58016054075
  1. ;;9002226.02101,"786,58016054075 ",.02)
  1. ;;58016054075
  1. ;;9002226.02101,"786,58016054076 ",.01)
  1. ;;58016054076
  1. ;;9002226.02101,"786,58016054076 ",.02)
  1. ;;58016054076
  1. ;;9002226.02101,"786,58016054077 ",.01)
  1. ;;58016054077
  1. ;;9002226.02101,"786,58016054077 ",.02)
  1. ;;58016054077
  1. ;;9002226.02101,"786,58016054079 ",.01)
  1. ;;58016054079
  1. ;;9002226.02101,"786,58016054079 ",.02)
  1. ;;58016054079
  1. ;;9002226.02101,"786,58016054080 ",.01)
  1. ;;58016054080
  1. ;;9002226.02101,"786,58016054080 ",.02)
  1. ;;58016054080
  1. ;;9002226.02101,"786,58016054081 ",.01)
  1. ;;58016054081
  1. ;;9002226.02101,"786,58016054081 ",.02)
  1. ;;58016054081
  1. ;;9002226.02101,"786,58016054082 ",.01)
  1. ;;58016054082
  1. ;;9002226.02101,"786,58016054082 ",.02)
  1. ;;58016054082
  1. ;;9002226.02101,"786,58016054083 ",.01)
  1. ;;58016054083
  1. ;;9002226.02101,"786,58016054083 ",.02)
  1. ;;58016054083
  1. ;;9002226.02101,"786,58016054084 ",.01)
  1. ;;58016054084
  1. ;;9002226.02101,"786,58016054084 ",.02)
  1. ;;58016054084
  1. ;;9002226.02101,"786,58016054087 ",.01)
  1. ;;58016054087
  1. ;;9002226.02101,"786,58016054087 ",.02)
  1. ;;58016054087
  1. ;;9002226.02101,"786,58016054089 ",.01)
  1. ;;58016054089
  1. ;;9002226.02101,"786,58016054089 ",.02)
  1. ;;58016054089
  1. ;;9002226.02101,"786,58016054090 ",.01)
  1. ;;58016054090
  1. ;;9002226.02101,"786,58016054090 ",.02)
  1. ;;58016054090
  1. ;;9002226.02101,"786,58016054091 ",.01)
  1. ;;58016054091
  1. ;;9002226.02101,"786,58016054091 ",.02)
  1. ;;58016054091
  1. ;;9002226.02101,"786,58016054092 ",.01)
  1. ;;58016054092