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

BGPM5ADB.m

Go to the documentation of this file.
  1. BGPM5ADB ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  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,"846,58016038630 ",.02)
  1. ;;58016038630
  1. ;;9002226.02101,"846,58016038632 ",.01)
  1. ;;58016038632
  1. ;;9002226.02101,"846,58016038632 ",.02)
  1. ;;58016038632
  1. ;;9002226.02101,"846,58016038635 ",.01)
  1. ;;58016038635
  1. ;;9002226.02101,"846,58016038635 ",.02)
  1. ;;58016038635
  1. ;;9002226.02101,"846,58016038636 ",.01)
  1. ;;58016038636
  1. ;;9002226.02101,"846,58016038636 ",.02)
  1. ;;58016038636
  1. ;;9002226.02101,"846,58016038640 ",.01)
  1. ;;58016038640
  1. ;;9002226.02101,"846,58016038640 ",.02)
  1. ;;58016038640
  1. ;;9002226.02101,"846,58016038642 ",.01)
  1. ;;58016038642
  1. ;;9002226.02101,"846,58016038642 ",.02)
  1. ;;58016038642
  1. ;;9002226.02101,"846,58016038644 ",.01)
  1. ;;58016038644
  1. ;;9002226.02101,"846,58016038644 ",.02)
  1. ;;58016038644
  1. ;;9002226.02101,"846,58016038645 ",.01)
  1. ;;58016038645
  1. ;;9002226.02101,"846,58016038645 ",.02)
  1. ;;58016038645
  1. ;;9002226.02101,"846,58016038648 ",.01)
  1. ;;58016038648
  1. ;;9002226.02101,"846,58016038648 ",.02)
  1. ;;58016038648
  1. ;;9002226.02101,"846,58016038650 ",.01)
  1. ;;58016038650
  1. ;;9002226.02101,"846,58016038650 ",.02)
  1. ;;58016038650
  1. ;;9002226.02101,"846,58016038656 ",.01)
  1. ;;58016038656
  1. ;;9002226.02101,"846,58016038656 ",.02)
  1. ;;58016038656
  1. ;;9002226.02101,"846,58016038660 ",.01)
  1. ;;58016038660
  1. ;;9002226.02101,"846,58016038660 ",.02)
  1. ;;58016038660
  1. ;;9002226.02101,"846,58016038667 ",.01)
  1. ;;58016038667
  1. ;;9002226.02101,"846,58016038667 ",.02)
  1. ;;58016038667
  1. ;;9002226.02101,"846,58016038669 ",.01)
  1. ;;58016038669
  1. ;;9002226.02101,"846,58016038669 ",.02)
  1. ;;58016038669
  1. ;;9002226.02101,"846,58016038670 ",.01)
  1. ;;58016038670
  1. ;;9002226.02101,"846,58016038670 ",.02)
  1. ;;58016038670
  1. ;;9002226.02101,"846,58016038671 ",.01)
  1. ;;58016038671
  1. ;;9002226.02101,"846,58016038671 ",.02)
  1. ;;58016038671
  1. ;;9002226.02101,"846,58016038672 ",.01)
  1. ;;58016038672
  1. ;;9002226.02101,"846,58016038672 ",.02)
  1. ;;58016038672
  1. ;;9002226.02101,"846,58016038673 ",.01)
  1. ;;58016038673
  1. ;;9002226.02101,"846,58016038673 ",.02)
  1. ;;58016038673
  1. ;;9002226.02101,"846,58016038675 ",.01)
  1. ;;58016038675
  1. ;;9002226.02101,"846,58016038675 ",.02)
  1. ;;58016038675
  1. ;;9002226.02101,"846,58016038676 ",.01)
  1. ;;58016038676
  1. ;;9002226.02101,"846,58016038676 ",.02)
  1. ;;58016038676
  1. ;;9002226.02101,"846,58016038677 ",.01)
  1. ;;58016038677
  1. ;;9002226.02101,"846,58016038677 ",.02)
  1. ;;58016038677
  1. ;;9002226.02101,"846,58016038679 ",.01)
  1. ;;58016038679
  1. ;;9002226.02101,"846,58016038679 ",.02)
  1. ;;58016038679
  1. ;;9002226.02101,"846,58016038680 ",.01)
  1. ;;58016038680
  1. ;;9002226.02101,"846,58016038680 ",.02)
  1. ;;58016038680
  1. ;;9002226.02101,"846,58016038681 ",.01)
  1. ;;58016038681
  1. ;;9002226.02101,"846,58016038681 ",.02)
  1. ;;58016038681
  1. ;;9002226.02101,"846,58016038682 ",.01)
  1. ;;58016038682
  1. ;;9002226.02101,"846,58016038682 ",.02)
  1. ;;58016038682
  1. ;;9002226.02101,"846,58016038683 ",.01)
  1. ;;58016038683
  1. ;;9002226.02101,"846,58016038683 ",.02)
  1. ;;58016038683
  1. ;;9002226.02101,"846,58016038684 ",.01)
  1. ;;58016038684
  1. ;;9002226.02101,"846,58016038684 ",.02)
  1. ;;58016038684
  1. ;;9002226.02101,"846,58016038687 ",.01)
  1. ;;58016038687
  1. ;;9002226.02101,"846,58016038687 ",.02)
  1. ;;58016038687
  1. ;;9002226.02101,"846,58016038689 ",.01)
  1. ;;58016038689
  1. ;;9002226.02101,"846,58016038689 ",.02)
  1. ;;58016038689
  1. ;;9002226.02101,"846,58016038690 ",.01)
  1. ;;58016038690
  1. ;;9002226.02101,"846,58016038690 ",.02)
  1. ;;58016038690
  1. ;;9002226.02101,"846,58016038691 ",.01)
  1. ;;58016038691
  1. ;;9002226.02101,"846,58016038691 ",.02)
  1. ;;58016038691
  1. ;;9002226.02101,"846,58016038692 ",.01)
  1. ;;58016038692
  1. ;;9002226.02101,"846,58016038692 ",.02)
  1. ;;58016038692
  1. ;;9002226.02101,"846,58016038693 ",.01)
  1. ;;58016038693
  1. ;;9002226.02101,"846,58016038693 ",.02)
  1. ;;58016038693
  1. ;;9002226.02101,"846,58016038696 ",.01)
  1. ;;58016038696
  1. ;;9002226.02101,"846,58016038696 ",.02)
  1. ;;58016038696
  1. ;;9002226.02101,"846,58016038697 ",.01)
  1. ;;58016038697
  1. ;;9002226.02101,"846,58016038697 ",.02)
  1. ;;58016038697
  1. ;;9002226.02101,"846,58016038698 ",.01)
  1. ;;58016038698
  1. ;;9002226.02101,"846,58016038698 ",.02)
  1. ;;58016038698
  1. ;;9002226.02101,"846,58016038699 ",.01)
  1. ;;58016038699
  1. ;;9002226.02101,"846,58016038699 ",.02)
  1. ;;58016038699
  1. ;;9002226.02101,"846,58016041100 ",.01)
  1. ;;58016041100
  1. ;;9002226.02101,"846,58016041100 ",.02)
  1. ;;58016041100
  1. ;;9002226.02101,"846,58016041102 ",.01)
  1. ;;58016041102
  1. ;;9002226.02101,"846,58016041102 ",.02)
  1. ;;58016041102
  1. ;;9002226.02101,"846,58016041130 ",.01)
  1. ;;58016041130
  1. ;;9002226.02101,"846,58016041130 ",.02)
  1. ;;58016041130
  1. ;;9002226.02101,"846,58016041160 ",.01)
  1. ;;58016041160
  1. ;;9002226.02101,"846,58016041160 ",.02)
  1. ;;58016041160
  1. ;;9002226.02101,"846,58016041190 ",.01)
  1. ;;58016041190
  1. ;;9002226.02101,"846,58016041190 ",.02)
  1. ;;58016041190
  1. ;;9002226.02101,"846,58016046700 ",.01)
  1. ;;58016046700
  1. ;;9002226.02101,"846,58016046700 ",.02)
  1. ;;58016046700
  1. ;;9002226.02101,"846,58016046730 ",.01)
  1. ;;58016046730
  1. ;;9002226.02101,"846,58016046730 ",.02)
  1. ;;58016046730
  1. ;;9002226.02101,"846,58016046760 ",.01)
  1. ;;58016046760
  1. ;;9002226.02101,"846,58016046760 ",.02)
  1. ;;58016046760
  1. ;;9002226.02101,"846,58016046790 ",.01)
  1. ;;58016046790
  1. ;;9002226.02101,"846,58016046790 ",.02)
  1. ;;58016046790
  1. ;;9002226.02101,"846,58016069100 ",.01)
  1. ;;58016069100
  1. ;;9002226.02101,"846,58016069100 ",.02)
  1. ;;58016069100
  1. ;;9002226.02101,"846,58016069101 ",.01)
  1. ;;58016069101
  1. ;;9002226.02101,"846,58016069101 ",.02)
  1. ;;58016069101
  1. ;;9002226.02101,"846,58016069102 ",.01)
  1. ;;58016069102
  1. ;;9002226.02101,"846,58016069102 ",.02)
  1. ;;58016069102
  1. ;;9002226.02101,"846,58016069103 ",.01)
  1. ;;58016069103
  1. ;;9002226.02101,"846,58016069103 ",.02)
  1. ;;58016069103
  1. ;;9002226.02101,"846,58016069104 ",.01)
  1. ;;58016069104
  1. ;;9002226.02101,"846,58016069104 ",.02)
  1. ;;58016069104
  1. ;;9002226.02101,"846,58016069105 ",.01)
  1. ;;58016069105
  1. ;;9002226.02101,"846,58016069105 ",.02)
  1. ;;58016069105
  1. ;;9002226.02101,"846,58016069106 ",.01)
  1. ;;58016069106
  1. ;;9002226.02101,"846,58016069106 ",.02)
  1. ;;58016069106
  1. ;;9002226.02101,"846,58016069107 ",.01)
  1. ;;58016069107
  1. ;;9002226.02101,"846,58016069107 ",.02)
  1. ;;58016069107
  1. ;;9002226.02101,"846,58016069108 ",.01)
  1. ;;58016069108
  1. ;;9002226.02101,"846,58016069108 ",.02)
  1. ;;58016069108
  1. ;;9002226.02101,"846,58016069109 ",.01)
  1. ;;58016069109
  1. ;;9002226.02101,"846,58016069109 ",.02)
  1. ;;58016069109
  1. ;;9002226.02101,"846,58016069110 ",.01)
  1. ;;58016069110
  1. ;;9002226.02101,"846,58016069110 ",.02)
  1. ;;58016069110
  1. ;;9002226.02101,"846,58016069112 ",.01)
  1. ;;58016069112
  1. ;;9002226.02101,"846,58016069112 ",.02)
  1. ;;58016069112
  1. ;;9002226.02101,"846,58016069114 ",.01)
  1. ;;58016069114
  1. ;;9002226.02101,"846,58016069114 ",.02)
  1. ;;58016069114
  1. ;;9002226.02101,"846,58016069115 ",.01)
  1. ;;58016069115
  1. ;;9002226.02101,"846,58016069115 ",.02)
  1. ;;58016069115
  1. ;;9002226.02101,"846,58016069116 ",.01)
  1. ;;58016069116
  1. ;;9002226.02101,"846,58016069116 ",.02)
  1. ;;58016069116
  1. ;;9002226.02101,"846,58016069118 ",.01)
  1. ;;58016069118
  1. ;;9002226.02101,"846,58016069118 ",.02)
  1. ;;58016069118
  1. ;;9002226.02101,"846,58016069120 ",.01)
  1. ;;58016069120
  1. ;;9002226.02101,"846,58016069120 ",.02)
  1. ;;58016069120
  1. ;;9002226.02101,"846,58016069121 ",.01)
  1. ;;58016069121
  1. ;;9002226.02101,"846,58016069121 ",.02)
  1. ;;58016069121
  1. ;;9002226.02101,"846,58016069124 ",.01)
  1. ;;58016069124
  1. ;;9002226.02101,"846,58016069124 ",.02)
  1. ;;58016069124
  1. ;;9002226.02101,"846,58016069125 ",.01)
  1. ;;58016069125
  1. ;;9002226.02101,"846,58016069125 ",.02)
  1. ;;58016069125
  1. ;;9002226.02101,"846,58016069126 ",.01)
  1. ;;58016069126
  1. ;;9002226.02101,"846,58016069126 ",.02)
  1. ;;58016069126
  1. ;;9002226.02101,"846,58016069127 ",.01)
  1. ;;58016069127
  1. ;;9002226.02101,"846,58016069127 ",.02)
  1. ;;58016069127
  1. ;;9002226.02101,"846,58016069128 ",.01)
  1. ;;58016069128
  1. ;;9002226.02101,"846,58016069128 ",.02)
  1. ;;58016069128
  1. ;;9002226.02101,"846,58016069130 ",.01)
  1. ;;58016069130
  1. ;;9002226.02101,"846,58016069130 ",.02)
  1. ;;58016069130
  1. ;;9002226.02101,"846,58016069132 ",.01)
  1. ;;58016069132
  1. ;;9002226.02101,"846,58016069132 ",.02)
  1. ;;58016069132
  1. ;;9002226.02101,"846,58016069135 ",.01)
  1. ;;58016069135
  1. ;;9002226.02101,"846,58016069135 ",.02)
  1. ;;58016069135
  1. ;;9002226.02101,"846,58016069136 ",.01)
  1. ;;58016069136
  1. ;;9002226.02101,"846,58016069136 ",.02)
  1. ;;58016069136
  1. ;;9002226.02101,"846,58016069140 ",.01)
  1. ;;58016069140
  1. ;;9002226.02101,"846,58016069140 ",.02)
  1. ;;58016069140
  1. ;;9002226.02101,"846,58016069142 ",.01)
  1. ;;58016069142
  1. ;;9002226.02101,"846,58016069142 ",.02)
  1. ;;58016069142
  1. ;;9002226.02101,"846,58016069144 ",.01)
  1. ;;58016069144
  1. ;;9002226.02101,"846,58016069144 ",.02)
  1. ;;58016069144
  1. ;;9002226.02101,"846,58016069145 ",.01)
  1. ;;58016069145
  1. ;;9002226.02101,"846,58016069145 ",.02)
  1. ;;58016069145
  1. ;;9002226.02101,"846,58016069148 ",.01)
  1. ;;58016069148
  1. ;;9002226.02101,"846,58016069148 ",.02)
  1. ;;58016069148
  1. ;;9002226.02101,"846,58016069150 ",.01)
  1. ;;58016069150
  1. ;;9002226.02101,"846,58016069150 ",.02)
  1. ;;58016069150
  1. ;;9002226.02101,"846,58016069156 ",.01)
  1. ;;58016069156
  1. ;;9002226.02101,"846,58016069156 ",.02)
  1. ;;58016069156
  1. ;;9002226.02101,"846,58016069160 ",.01)
  1. ;;58016069160
  1. ;;9002226.02101,"846,58016069160 ",.02)
  1. ;;58016069160
  1. ;;9002226.02101,"846,58016069167 ",.01)
  1. ;;58016069167
  1. ;;9002226.02101,"846,58016069167 ",.02)
  1. ;;58016069167
  1. ;;9002226.02101,"846,58016069169 ",.01)
  1. ;;58016069169
  1. ;;9002226.02101,"846,58016069169 ",.02)
  1. ;;58016069169
  1. ;;9002226.02101,"846,58016069170 ",.01)
  1. ;;58016069170
  1. ;;9002226.02101,"846,58016069170 ",.02)
  1. ;;58016069170
  1. ;;9002226.02101,"846,58016069171 ",.01)
  1. ;;58016069171
  1. ;;9002226.02101,"846,58016069171 ",.02)
  1. ;;58016069171
  1. ;;9002226.02101,"846,58016069172 ",.01)
  1. ;;58016069172
  1. ;;9002226.02101,"846,58016069172 ",.02)
  1. ;;58016069172
  1. ;;9002226.02101,"846,58016069173 ",.01)
  1. ;;58016069173
  1. ;;9002226.02101,"846,58016069173 ",.02)
  1. ;;58016069173
  1. ;;9002226.02101,"846,58016069175 ",.01)
  1. ;;58016069175
  1. ;;9002226.02101,"846,58016069175 ",.02)
  1. ;;58016069175
  1. ;;9002226.02101,"846,58016069176 ",.01)
  1. ;;58016069176
  1. ;;9002226.02101,"846,58016069176 ",.02)
  1. ;;58016069176
  1. ;;9002226.02101,"846,58016069177 ",.01)
  1. ;;58016069177
  1. ;;9002226.02101,"846,58016069177 ",.02)
  1. ;;58016069177
  1. ;;9002226.02101,"846,58016069179 ",.01)
  1. ;;58016069179
  1. ;;9002226.02101,"846,58016069179 ",.02)
  1. ;;58016069179
  1. ;;9002226.02101,"846,58016069180 ",.01)
  1. ;;58016069180
  1. ;;9002226.02101,"846,58016069180 ",.02)
  1. ;;58016069180
  1. ;;9002226.02101,"846,58016069181 ",.01)
  1. ;;58016069181
  1. ;;9002226.02101,"846,58016069181 ",.02)
  1. ;;58016069181
  1. ;;9002226.02101,"846,58016069182 ",.01)
  1. ;;58016069182
  1. ;;9002226.02101,"846,58016069182 ",.02)
  1. ;;58016069182
  1. ;;9002226.02101,"846,58016069183 ",.01)
  1. ;;58016069183
  1. ;;9002226.02101,"846,58016069183 ",.02)
  1. ;;58016069183
  1. ;;9002226.02101,"846,58016069184 ",.01)
  1. ;;58016069184
  1. ;;9002226.02101,"846,58016069184 ",.02)
  1. ;;58016069184
  1. ;;9002226.02101,"846,58016069187 ",.01)
  1. ;;58016069187
  1. ;;9002226.02101,"846,58016069187 ",.02)
  1. ;;58016069187
  1. ;;9002226.02101,"846,58016069189 ",.01)
  1. ;;58016069189
  1. ;;9002226.02101,"846,58016069189 ",.02)
  1. ;;58016069189
  1. ;;9002226.02101,"846,58016069190 ",.01)
  1. ;;58016069190
  1. ;;9002226.02101,"846,58016069190 ",.02)
  1. ;;58016069190
  1. ;;9002226.02101,"846,58016069191 ",.01)
  1. ;;58016069191
  1. ;;9002226.02101,"846,58016069191 ",.02)
  1. ;;58016069191
  1. ;;9002226.02101,"846,58016069192 ",.01)
  1. ;;58016069192
  1. ;;9002226.02101,"846,58016069192 ",.02)
  1. ;;58016069192
  1. ;;9002226.02101,"846,58016069193 ",.01)
  1. ;;58016069193
  1. ;;9002226.02101,"846,58016069193 ",.02)
  1. ;;58016069193
  1. ;;9002226.02101,"846,58016069196 ",.01)
  1. ;;58016069196