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

BGPM5BFO.m

Go to the documentation of this file.
  1. BGPM5BFO ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON SEP 12, 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,"1084,58016046760 ",.01)
  1. ;;58016046760
  1. ;;9002226.02101,"1084,58016046760 ",.02)
  1. ;;58016046760
  1. ;;9002226.02101,"1084,58016046790 ",.01)
  1. ;;58016046790
  1. ;;9002226.02101,"1084,58016046790 ",.02)
  1. ;;58016046790
  1. ;;9002226.02101,"1084,58016053600 ",.01)
  1. ;;58016053600
  1. ;;9002226.02101,"1084,58016053600 ",.02)
  1. ;;58016053600
  1. ;;9002226.02101,"1084,58016053630 ",.01)
  1. ;;58016053630
  1. ;;9002226.02101,"1084,58016053630 ",.02)
  1. ;;58016053630
  1. ;;9002226.02101,"1084,58016053660 ",.01)
  1. ;;58016053660
  1. ;;9002226.02101,"1084,58016053660 ",.02)
  1. ;;58016053660
  1. ;;9002226.02101,"1084,58016053690 ",.01)
  1. ;;58016053690
  1. ;;9002226.02101,"1084,58016053690 ",.02)
  1. ;;58016053690
  1. ;;9002226.02101,"1084,58016069100 ",.01)
  1. ;;58016069100
  1. ;;9002226.02101,"1084,58016069100 ",.02)
  1. ;;58016069100
  1. ;;9002226.02101,"1084,58016069101 ",.01)
  1. ;;58016069101
  1. ;;9002226.02101,"1084,58016069101 ",.02)
  1. ;;58016069101
  1. ;;9002226.02101,"1084,58016069102 ",.01)
  1. ;;58016069102
  1. ;;9002226.02101,"1084,58016069102 ",.02)
  1. ;;58016069102
  1. ;;9002226.02101,"1084,58016069103 ",.01)
  1. ;;58016069103
  1. ;;9002226.02101,"1084,58016069103 ",.02)
  1. ;;58016069103
  1. ;;9002226.02101,"1084,58016069104 ",.01)
  1. ;;58016069104
  1. ;;9002226.02101,"1084,58016069104 ",.02)
  1. ;;58016069104
  1. ;;9002226.02101,"1084,58016069105 ",.01)
  1. ;;58016069105
  1. ;;9002226.02101,"1084,58016069105 ",.02)
  1. ;;58016069105
  1. ;;9002226.02101,"1084,58016069106 ",.01)
  1. ;;58016069106
  1. ;;9002226.02101,"1084,58016069106 ",.02)
  1. ;;58016069106
  1. ;;9002226.02101,"1084,58016069107 ",.01)
  1. ;;58016069107
  1. ;;9002226.02101,"1084,58016069107 ",.02)
  1. ;;58016069107
  1. ;;9002226.02101,"1084,58016069108 ",.01)
  1. ;;58016069108
  1. ;;9002226.02101,"1084,58016069108 ",.02)
  1. ;;58016069108
  1. ;;9002226.02101,"1084,58016069109 ",.01)
  1. ;;58016069109
  1. ;;9002226.02101,"1084,58016069109 ",.02)
  1. ;;58016069109
  1. ;;9002226.02101,"1084,58016069110 ",.01)
  1. ;;58016069110
  1. ;;9002226.02101,"1084,58016069110 ",.02)
  1. ;;58016069110
  1. ;;9002226.02101,"1084,58016069112 ",.01)
  1. ;;58016069112
  1. ;;9002226.02101,"1084,58016069112 ",.02)
  1. ;;58016069112
  1. ;;9002226.02101,"1084,58016069114 ",.01)
  1. ;;58016069114
  1. ;;9002226.02101,"1084,58016069114 ",.02)
  1. ;;58016069114
  1. ;;9002226.02101,"1084,58016069115 ",.01)
  1. ;;58016069115
  1. ;;9002226.02101,"1084,58016069115 ",.02)
  1. ;;58016069115
  1. ;;9002226.02101,"1084,58016069116 ",.01)
  1. ;;58016069116
  1. ;;9002226.02101,"1084,58016069116 ",.02)
  1. ;;58016069116
  1. ;;9002226.02101,"1084,58016069118 ",.01)
  1. ;;58016069118
  1. ;;9002226.02101,"1084,58016069118 ",.02)
  1. ;;58016069118
  1. ;;9002226.02101,"1084,58016069120 ",.01)
  1. ;;58016069120
  1. ;;9002226.02101,"1084,58016069120 ",.02)
  1. ;;58016069120
  1. ;;9002226.02101,"1084,58016069121 ",.01)
  1. ;;58016069121
  1. ;;9002226.02101,"1084,58016069121 ",.02)
  1. ;;58016069121
  1. ;;9002226.02101,"1084,58016069124 ",.01)
  1. ;;58016069124
  1. ;;9002226.02101,"1084,58016069124 ",.02)
  1. ;;58016069124
  1. ;;9002226.02101,"1084,58016069125 ",.01)
  1. ;;58016069125
  1. ;;9002226.02101,"1084,58016069125 ",.02)
  1. ;;58016069125
  1. ;;9002226.02101,"1084,58016069126 ",.01)
  1. ;;58016069126
  1. ;;9002226.02101,"1084,58016069126 ",.02)
  1. ;;58016069126
  1. ;;9002226.02101,"1084,58016069127 ",.01)
  1. ;;58016069127
  1. ;;9002226.02101,"1084,58016069127 ",.02)
  1. ;;58016069127
  1. ;;9002226.02101,"1084,58016069128 ",.01)
  1. ;;58016069128
  1. ;;9002226.02101,"1084,58016069128 ",.02)
  1. ;;58016069128
  1. ;;9002226.02101,"1084,58016069130 ",.01)
  1. ;;58016069130
  1. ;;9002226.02101,"1084,58016069130 ",.02)
  1. ;;58016069130
  1. ;;9002226.02101,"1084,58016069132 ",.01)
  1. ;;58016069132
  1. ;;9002226.02101,"1084,58016069132 ",.02)
  1. ;;58016069132
  1. ;;9002226.02101,"1084,58016069135 ",.01)
  1. ;;58016069135
  1. ;;9002226.02101,"1084,58016069135 ",.02)
  1. ;;58016069135
  1. ;;9002226.02101,"1084,58016069136 ",.01)
  1. ;;58016069136
  1. ;;9002226.02101,"1084,58016069136 ",.02)
  1. ;;58016069136
  1. ;;9002226.02101,"1084,58016069140 ",.01)
  1. ;;58016069140
  1. ;;9002226.02101,"1084,58016069140 ",.02)
  1. ;;58016069140
  1. ;;9002226.02101,"1084,58016069142 ",.01)
  1. ;;58016069142
  1. ;;9002226.02101,"1084,58016069142 ",.02)
  1. ;;58016069142
  1. ;;9002226.02101,"1084,58016069144 ",.01)
  1. ;;58016069144
  1. ;;9002226.02101,"1084,58016069144 ",.02)
  1. ;;58016069144
  1. ;;9002226.02101,"1084,58016069145 ",.01)
  1. ;;58016069145
  1. ;;9002226.02101,"1084,58016069145 ",.02)
  1. ;;58016069145
  1. ;;9002226.02101,"1084,58016069148 ",.01)
  1. ;;58016069148
  1. ;;9002226.02101,"1084,58016069148 ",.02)
  1. ;;58016069148
  1. ;;9002226.02101,"1084,58016069150 ",.01)
  1. ;;58016069150
  1. ;;9002226.02101,"1084,58016069150 ",.02)
  1. ;;58016069150
  1. ;;9002226.02101,"1084,58016069156 ",.01)
  1. ;;58016069156
  1. ;;9002226.02101,"1084,58016069156 ",.02)
  1. ;;58016069156
  1. ;;9002226.02101,"1084,58016069160 ",.01)
  1. ;;58016069160
  1. ;;9002226.02101,"1084,58016069160 ",.02)
  1. ;;58016069160
  1. ;;9002226.02101,"1084,58016069167 ",.01)
  1. ;;58016069167
  1. ;;9002226.02101,"1084,58016069167 ",.02)
  1. ;;58016069167
  1. ;;9002226.02101,"1084,58016069169 ",.01)
  1. ;;58016069169
  1. ;;9002226.02101,"1084,58016069169 ",.02)
  1. ;;58016069169
  1. ;;9002226.02101,"1084,58016069170 ",.01)
  1. ;;58016069170
  1. ;;9002226.02101,"1084,58016069170 ",.02)
  1. ;;58016069170
  1. ;;9002226.02101,"1084,58016069171 ",.01)
  1. ;;58016069171
  1. ;;9002226.02101,"1084,58016069171 ",.02)
  1. ;;58016069171
  1. ;;9002226.02101,"1084,58016069172 ",.01)
  1. ;;58016069172
  1. ;;9002226.02101,"1084,58016069172 ",.02)
  1. ;;58016069172
  1. ;;9002226.02101,"1084,58016069173 ",.01)
  1. ;;58016069173
  1. ;;9002226.02101,"1084,58016069173 ",.02)
  1. ;;58016069173
  1. ;;9002226.02101,"1084,58016069175 ",.01)
  1. ;;58016069175
  1. ;;9002226.02101,"1084,58016069175 ",.02)
  1. ;;58016069175
  1. ;;9002226.02101,"1084,58016069176 ",.01)
  1. ;;58016069176
  1. ;;9002226.02101,"1084,58016069176 ",.02)
  1. ;;58016069176
  1. ;;9002226.02101,"1084,58016069177 ",.01)
  1. ;;58016069177
  1. ;;9002226.02101,"1084,58016069177 ",.02)
  1. ;;58016069177
  1. ;;9002226.02101,"1084,58016069179 ",.01)
  1. ;;58016069179
  1. ;;9002226.02101,"1084,58016069179 ",.02)
  1. ;;58016069179
  1. ;;9002226.02101,"1084,58016069180 ",.01)
  1. ;;58016069180
  1. ;;9002226.02101,"1084,58016069180 ",.02)
  1. ;;58016069180
  1. ;;9002226.02101,"1084,58016069181 ",.01)
  1. ;;58016069181
  1. ;;9002226.02101,"1084,58016069181 ",.02)
  1. ;;58016069181
  1. ;;9002226.02101,"1084,58016069182 ",.01)
  1. ;;58016069182
  1. ;;9002226.02101,"1084,58016069182 ",.02)
  1. ;;58016069182
  1. ;;9002226.02101,"1084,58016069183 ",.01)
  1. ;;58016069183
  1. ;;9002226.02101,"1084,58016069183 ",.02)
  1. ;;58016069183
  1. ;;9002226.02101,"1084,58016069184 ",.01)
  1. ;;58016069184
  1. ;;9002226.02101,"1084,58016069184 ",.02)
  1. ;;58016069184
  1. ;;9002226.02101,"1084,58016069187 ",.01)
  1. ;;58016069187
  1. ;;9002226.02101,"1084,58016069187 ",.02)
  1. ;;58016069187
  1. ;;9002226.02101,"1084,58016069189 ",.01)
  1. ;;58016069189
  1. ;;9002226.02101,"1084,58016069189 ",.02)
  1. ;;58016069189
  1. ;;9002226.02101,"1084,58016069190 ",.01)
  1. ;;58016069190
  1. ;;9002226.02101,"1084,58016069190 ",.02)
  1. ;;58016069190
  1. ;;9002226.02101,"1084,58016069191 ",.01)
  1. ;;58016069191
  1. ;;9002226.02101,"1084,58016069191 ",.02)
  1. ;;58016069191
  1. ;;9002226.02101,"1084,58016069192 ",.01)
  1. ;;58016069192
  1. ;;9002226.02101,"1084,58016069192 ",.02)
  1. ;;58016069192
  1. ;;9002226.02101,"1084,58016069193 ",.01)
  1. ;;58016069193
  1. ;;9002226.02101,"1084,58016069193 ",.02)
  1. ;;58016069193
  1. ;;9002226.02101,"1084,58016069196 ",.01)
  1. ;;58016069196
  1. ;;9002226.02101,"1084,58016069196 ",.02)
  1. ;;58016069196
  1. ;;9002226.02101,"1084,58016069197 ",.01)
  1. ;;58016069197
  1. ;;9002226.02101,"1084,58016069197 ",.02)
  1. ;;58016069197
  1. ;;9002226.02101,"1084,58016069198 ",.01)
  1. ;;58016069198
  1. ;;9002226.02101,"1084,58016069198 ",.02)
  1. ;;58016069198
  1. ;;9002226.02101,"1084,58016069199 ",.01)
  1. ;;58016069199
  1. ;;9002226.02101,"1084,58016069199 ",.02)
  1. ;;58016069199
  1. ;;9002226.02101,"1084,58016077200 ",.01)
  1. ;;58016077200
  1. ;;9002226.02101,"1084,58016077200 ",.02)
  1. ;;58016077200
  1. ;;9002226.02101,"1084,58016077201 ",.01)
  1. ;;58016077201
  1. ;;9002226.02101,"1084,58016077201 ",.02)
  1. ;;58016077201
  1. ;;9002226.02101,"1084,58016077202 ",.01)
  1. ;;58016077202
  1. ;;9002226.02101,"1084,58016077202 ",.02)
  1. ;;58016077202
  1. ;;9002226.02101,"1084,58016077203 ",.01)
  1. ;;58016077203
  1. ;;9002226.02101,"1084,58016077203 ",.02)
  1. ;;58016077203
  1. ;;9002226.02101,"1084,58016077204 ",.01)
  1. ;;58016077204
  1. ;;9002226.02101,"1084,58016077204 ",.02)
  1. ;;58016077204
  1. ;;9002226.02101,"1084,58016077205 ",.01)
  1. ;;58016077205
  1. ;;9002226.02101,"1084,58016077205 ",.02)
  1. ;;58016077205
  1. ;;9002226.02101,"1084,58016077206 ",.01)
  1. ;;58016077206
  1. ;;9002226.02101,"1084,58016077206 ",.02)
  1. ;;58016077206
  1. ;;9002226.02101,"1084,58016077207 ",.01)
  1. ;;58016077207
  1. ;;9002226.02101,"1084,58016077207 ",.02)
  1. ;;58016077207
  1. ;;9002226.02101,"1084,58016077208 ",.01)
  1. ;;58016077208
  1. ;;9002226.02101,"1084,58016077208 ",.02)
  1. ;;58016077208
  1. ;;9002226.02101,"1084,58016077209 ",.01)
  1. ;;58016077209
  1. ;;9002226.02101,"1084,58016077209 ",.02)
  1. ;;58016077209
  1. ;;9002226.02101,"1084,58016077210 ",.01)
  1. ;;58016077210
  1. ;;9002226.02101,"1084,58016077210 ",.02)
  1. ;;58016077210
  1. ;;9002226.02101,"1084,58016077212 ",.01)
  1. ;;58016077212
  1. ;;9002226.02101,"1084,58016077212 ",.02)
  1. ;;58016077212
  1. ;;9002226.02101,"1084,58016077214 ",.01)
  1. ;;58016077214
  1. ;;9002226.02101,"1084,58016077214 ",.02)
  1. ;;58016077214
  1. ;;9002226.02101,"1084,58016077215 ",.01)
  1. ;;58016077215
  1. ;;9002226.02101,"1084,58016077215 ",.02)
  1. ;;58016077215
  1. ;;9002226.02101,"1084,58016077216 ",.01)
  1. ;;58016077216
  1. ;;9002226.02101,"1084,58016077216 ",.02)
  1. ;;58016077216
  1. ;;9002226.02101,"1084,58016077218 ",.01)
  1. ;;58016077218
  1. ;;9002226.02101,"1084,58016077218 ",.02)
  1. ;;58016077218
  1. ;;9002226.02101,"1084,58016077220 ",.01)
  1. ;;58016077220
  1. ;;9002226.02101,"1084,58016077220 ",.02)
  1. ;;58016077220
  1. ;;9002226.02101,"1084,58016077221 ",.01)
  1. ;;58016077221
  1. ;;9002226.02101,"1084,58016077221 ",.02)
  1. ;;58016077221
  1. ;;9002226.02101,"1084,58016077224 ",.01)
  1. ;;58016077224
  1. ;;9002226.02101,"1084,58016077224 ",.02)
  1. ;;58016077224
  1. ;;9002226.02101,"1084,58016077225 ",.01)
  1. ;;58016077225
  1. ;;9002226.02101,"1084,58016077225 ",.02)
  1. ;;58016077225
  1. ;;9002226.02101,"1084,58016077226 ",.01)
  1. ;;58016077226
  1. ;;9002226.02101,"1084,58016077226 ",.02)
  1. ;;58016077226
  1. ;;9002226.02101,"1084,58016077227 ",.01)
  1. ;;58016077227
  1. ;;9002226.02101,"1084,58016077227 ",.02)
  1. ;;58016077227
  1. ;;9002226.02101,"1084,58016077228 ",.01)
  1. ;;58016077228
  1. ;;9002226.02101,"1084,58016077228 ",.02)
  1. ;;58016077228
  1. ;;9002226.02101,"1084,58016077230 ",.01)
  1. ;;58016077230
  1. ;;9002226.02101,"1084,58016077230 ",.02)
  1. ;;58016077230
  1. ;;9002226.02101,"1084,58016077232 ",.01)
  1. ;;58016077232
  1. ;;9002226.02101,"1084,58016077232 ",.02)
  1. ;;58016077232
  1. ;;9002226.02101,"1084,58016077235 ",.01)
  1. ;;58016077235
  1. ;;9002226.02101,"1084,58016077235 ",.02)
  1. ;;58016077235
  1. ;;9002226.02101,"1084,58016077236 ",.01)
  1. ;;58016077236
  1. ;;9002226.02101,"1084,58016077236 ",.02)
  1. ;;58016077236
  1. ;;9002226.02101,"1084,58016077240 ",.01)
  1. ;;58016077240
  1. ;;9002226.02101,"1084,58016077240 ",.02)
  1. ;;58016077240
  1. ;;9002226.02101,"1084,58016077242 ",.01)
  1. ;;58016077242
  1. ;;9002226.02101,"1084,58016077242 ",.02)
  1. ;;58016077242
  1. ;;9002226.02101,"1084,58016077244 ",.01)
  1. ;;58016077244
  1. ;;9002226.02101,"1084,58016077244 ",.02)
  1. ;;58016077244
  1. ;;9002226.02101,"1084,58016077245 ",.01)
  1. ;;58016077245
  1. ;;9002226.02101,"1084,58016077245 ",.02)
  1. ;;58016077245
  1. ;;9002226.02101,"1084,58016077248 ",.01)
  1. ;;58016077248
  1. ;;9002226.02101,"1084,58016077248 ",.02)
  1. ;;58016077248
  1. ;;9002226.02101,"1084,58016077250 ",.01)
  1. ;;58016077250
  1. ;;9002226.02101,"1084,58016077250 ",.02)
  1. ;;58016077250
  1. ;;9002226.02101,"1084,58016077256 ",.01)
  1. ;;58016077256
  1. ;;9002226.02101,"1084,58016077256 ",.02)
  1. ;;58016077256
  1. ;;9002226.02101,"1084,58016077260 ",.01)
  1. ;;58016077260