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

BGPM3ADY.m

Go to the documentation of this file.
BGPM3ADY ;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,58016090079 ",.01)
 ;;58016090079
 ;;9002226.02101,"785,58016090079 ",.02)
 ;;58016090079
 ;;9002226.02101,"785,58016090080 ",.01)
 ;;58016090080
 ;;9002226.02101,"785,58016090080 ",.02)
 ;;58016090080
 ;;9002226.02101,"785,58016090081 ",.01)
 ;;58016090081
 ;;9002226.02101,"785,58016090081 ",.02)
 ;;58016090081
 ;;9002226.02101,"785,58016090083 ",.01)
 ;;58016090083
 ;;9002226.02101,"785,58016090083 ",.02)
 ;;58016090083
 ;;9002226.02101,"785,58016090084 ",.01)
 ;;58016090084
 ;;9002226.02101,"785,58016090084 ",.02)
 ;;58016090084
 ;;9002226.02101,"785,58016090087 ",.01)
 ;;58016090087
 ;;9002226.02101,"785,58016090087 ",.02)
 ;;58016090087
 ;;9002226.02101,"785,58016090089 ",.01)
 ;;58016090089
 ;;9002226.02101,"785,58016090089 ",.02)
 ;;58016090089
 ;;9002226.02101,"785,58016090090 ",.01)
 ;;58016090090
 ;;9002226.02101,"785,58016090090 ",.02)
 ;;58016090090
 ;;9002226.02101,"785,58016090091 ",.01)
 ;;58016090091
 ;;9002226.02101,"785,58016090091 ",.02)
 ;;58016090091
 ;;9002226.02101,"785,58016090092 ",.01)
 ;;58016090092
 ;;9002226.02101,"785,58016090092 ",.02)
 ;;58016090092
 ;;9002226.02101,"785,58016090093 ",.01)
 ;;58016090093
 ;;9002226.02101,"785,58016090093 ",.02)
 ;;58016090093
 ;;9002226.02101,"785,58016090096 ",.01)
 ;;58016090096
 ;;9002226.02101,"785,58016090096 ",.02)
 ;;58016090096
 ;;9002226.02101,"785,58016090097 ",.01)
 ;;58016090097
 ;;9002226.02101,"785,58016090097 ",.02)
 ;;58016090097
 ;;9002226.02101,"785,58016090098 ",.01)
 ;;58016090098
 ;;9002226.02101,"785,58016090098 ",.02)
 ;;58016090098
 ;;9002226.02101,"785,58016090099 ",.01)
 ;;58016090099
 ;;9002226.02101,"785,58016090099 ",.02)
 ;;58016090099
 ;;9002226.02101,"785,58016092200 ",.01)
 ;;58016092200
 ;;9002226.02101,"785,58016092200 ",.02)
 ;;58016092200
 ;;9002226.02101,"785,58016092201 ",.01)
 ;;58016092201
 ;;9002226.02101,"785,58016092201 ",.02)
 ;;58016092201
 ;;9002226.02101,"785,58016092202 ",.01)
 ;;58016092202
 ;;9002226.02101,"785,58016092202 ",.02)
 ;;58016092202
 ;;9002226.02101,"785,58016092203 ",.01)
 ;;58016092203
 ;;9002226.02101,"785,58016092203 ",.02)
 ;;58016092203
 ;;9002226.02101,"785,58016092204 ",.01)
 ;;58016092204
 ;;9002226.02101,"785,58016092204 ",.02)
 ;;58016092204
 ;;9002226.02101,"785,58016092205 ",.01)
 ;;58016092205
 ;;9002226.02101,"785,58016092205 ",.02)
 ;;58016092205
 ;;9002226.02101,"785,58016092206 ",.01)
 ;;58016092206
 ;;9002226.02101,"785,58016092206 ",.02)
 ;;58016092206
 ;;9002226.02101,"785,58016092207 ",.01)
 ;;58016092207
 ;;9002226.02101,"785,58016092207 ",.02)
 ;;58016092207
 ;;9002226.02101,"785,58016092208 ",.01)
 ;;58016092208
 ;;9002226.02101,"785,58016092208 ",.02)
 ;;58016092208
 ;;9002226.02101,"785,58016092209 ",.01)
 ;;58016092209
 ;;9002226.02101,"785,58016092209 ",.02)
 ;;58016092209
 ;;9002226.02101,"785,58016092210 ",.01)
 ;;58016092210
 ;;9002226.02101,"785,58016092210 ",.02)
 ;;58016092210
 ;;9002226.02101,"785,58016092212 ",.01)
 ;;58016092212
 ;;9002226.02101,"785,58016092212 ",.02)
 ;;58016092212
 ;;9002226.02101,"785,58016092214 ",.01)
 ;;58016092214
 ;;9002226.02101,"785,58016092214 ",.02)
 ;;58016092214
 ;;9002226.02101,"785,58016092215 ",.01)
 ;;58016092215
 ;;9002226.02101,"785,58016092215 ",.02)
 ;;58016092215
 ;;9002226.02101,"785,58016092216 ",.01)
 ;;58016092216
 ;;9002226.02101,"785,58016092216 ",.02)
 ;;58016092216
 ;;9002226.02101,"785,58016092218 ",.01)
 ;;58016092218
 ;;9002226.02101,"785,58016092218 ",.02)
 ;;58016092218
 ;;9002226.02101,"785,58016092220 ",.01)
 ;;58016092220
 ;;9002226.02101,"785,58016092220 ",.02)
 ;;58016092220
 ;;9002226.02101,"785,58016092221 ",.01)
 ;;58016092221
 ;;9002226.02101,"785,58016092221 ",.02)
 ;;58016092221
 ;;9002226.02101,"785,58016092224 ",.01)
 ;;58016092224
 ;;9002226.02101,"785,58016092224 ",.02)
 ;;58016092224
 ;;9002226.02101,"785,58016092225 ",.01)
 ;;58016092225
 ;;9002226.02101,"785,58016092225 ",.02)
 ;;58016092225
 ;;9002226.02101,"785,58016092226 ",.01)
 ;;58016092226
 ;;9002226.02101,"785,58016092226 ",.02)
 ;;58016092226
 ;;9002226.02101,"785,58016092227 ",.01)
 ;;58016092227
 ;;9002226.02101,"785,58016092227 ",.02)
 ;;58016092227
 ;;9002226.02101,"785,58016092228 ",.01)
 ;;58016092228
 ;;9002226.02101,"785,58016092228 ",.02)
 ;;58016092228
 ;;9002226.02101,"785,58016092230 ",.01)
 ;;58016092230
 ;;9002226.02101,"785,58016092230 ",.02)
 ;;58016092230
 ;;9002226.02101,"785,58016092232 ",.01)
 ;;58016092232
 ;;9002226.02101,"785,58016092232 ",.02)
 ;;58016092232
 ;;9002226.02101,"785,58016092235 ",.01)
 ;;58016092235
 ;;9002226.02101,"785,58016092235 ",.02)
 ;;58016092235
 ;;9002226.02101,"785,58016092236 ",.01)
 ;;58016092236
 ;;9002226.02101,"785,58016092236 ",.02)
 ;;58016092236
 ;;9002226.02101,"785,58016092240 ",.01)
 ;;58016092240
 ;;9002226.02101,"785,58016092240 ",.02)
 ;;58016092240
 ;;9002226.02101,"785,58016092242 ",.01)
 ;;58016092242
 ;;9002226.02101,"785,58016092242 ",.02)
 ;;58016092242
 ;;9002226.02101,"785,58016092244 ",.01)
 ;;58016092244
 ;;9002226.02101,"785,58016092244 ",.02)
 ;;58016092244
 ;;9002226.02101,"785,58016092245 ",.01)
 ;;58016092245
 ;;9002226.02101,"785,58016092245 ",.02)
 ;;58016092245
 ;;9002226.02101,"785,58016092248 ",.01)
 ;;58016092248
 ;;9002226.02101,"785,58016092248 ",.02)
 ;;58016092248
 ;;9002226.02101,"785,58016092256 ",.01)
 ;;58016092256
 ;;9002226.02101,"785,58016092256 ",.02)
 ;;58016092256
 ;;9002226.02101,"785,58016092260 ",.01)
 ;;58016092260
 ;;9002226.02101,"785,58016092260 ",.02)
 ;;58016092260
 ;;9002226.02101,"785,58016092267 ",.01)
 ;;58016092267
 ;;9002226.02101,"785,58016092267 ",.02)
 ;;58016092267
 ;;9002226.02101,"785,58016092269 ",.01)
 ;;58016092269
 ;;9002226.02101,"785,58016092269 ",.02)
 ;;58016092269
 ;;9002226.02101,"785,58016092270 ",.01)
 ;;58016092270
 ;;9002226.02101,"785,58016092270 ",.02)
 ;;58016092270
 ;;9002226.02101,"785,58016092271 ",.01)
 ;;58016092271
 ;;9002226.02101,"785,58016092271 ",.02)
 ;;58016092271
 ;;9002226.02101,"785,58016092272 ",.01)
 ;;58016092272
 ;;9002226.02101,"785,58016092272 ",.02)
 ;;58016092272
 ;;9002226.02101,"785,58016092273 ",.01)
 ;;58016092273
 ;;9002226.02101,"785,58016092273 ",.02)
 ;;58016092273
 ;;9002226.02101,"785,58016092275 ",.01)
 ;;58016092275
 ;;9002226.02101,"785,58016092275 ",.02)
 ;;58016092275
 ;;9002226.02101,"785,58016092276 ",.01)
 ;;58016092276
 ;;9002226.02101,"785,58016092276 ",.02)
 ;;58016092276
 ;;9002226.02101,"785,58016092277 ",.01)
 ;;58016092277
 ;;9002226.02101,"785,58016092277 ",.02)
 ;;58016092277
 ;;9002226.02101,"785,58016092279 ",.01)
 ;;58016092279
 ;;9002226.02101,"785,58016092279 ",.02)
 ;;58016092279
 ;;9002226.02101,"785,58016092280 ",.01)
 ;;58016092280
 ;;9002226.02101,"785,58016092280 ",.02)
 ;;58016092280
 ;;9002226.02101,"785,58016092281 ",.01)
 ;;58016092281
 ;;9002226.02101,"785,58016092281 ",.02)
 ;;58016092281
 ;;9002226.02101,"785,58016092282 ",.01)
 ;;58016092282
 ;;9002226.02101,"785,58016092282 ",.02)
 ;;58016092282
 ;;9002226.02101,"785,58016092283 ",.01)
 ;;58016092283
 ;;9002226.02101,"785,58016092283 ",.02)
 ;;58016092283
 ;;9002226.02101,"785,58016092284 ",.01)
 ;;58016092284
 ;;9002226.02101,"785,58016092284 ",.02)
 ;;58016092284
 ;;9002226.02101,"785,58016092287 ",.01)
 ;;58016092287
 ;;9002226.02101,"785,58016092287 ",.02)
 ;;58016092287
 ;;9002226.02101,"785,58016092289 ",.01)
 ;;58016092289
 ;;9002226.02101,"785,58016092289 ",.02)
 ;;58016092289
 ;;9002226.02101,"785,58016092290 ",.01)
 ;;58016092290
 ;;9002226.02101,"785,58016092290 ",.02)
 ;;58016092290
 ;;9002226.02101,"785,58016092291 ",.01)
 ;;58016092291
 ;;9002226.02101,"785,58016092291 ",.02)
 ;;58016092291
 ;;9002226.02101,"785,58016092292 ",.01)
 ;;58016092292
 ;;9002226.02101,"785,58016092292 ",.02)
 ;;58016092292
 ;;9002226.02101,"785,58016092293 ",.01)
 ;;58016092293
 ;;9002226.02101,"785,58016092293 ",.02)
 ;;58016092293
 ;;9002226.02101,"785,58016092296 ",.01)
 ;;58016092296
 ;;9002226.02101,"785,58016092296 ",.02)
 ;;58016092296
 ;;9002226.02101,"785,58016092297 ",.01)
 ;;58016092297
 ;;9002226.02101,"785,58016092297 ",.02)
 ;;58016092297
 ;;9002226.02101,"785,58016092298 ",.01)
 ;;58016092298
 ;;9002226.02101,"785,58016092298 ",.02)
 ;;58016092298
 ;;9002226.02101,"785,58016092299 ",.01)
 ;;58016092299
 ;;9002226.02101,"785,58016092299 ",.02)
 ;;58016092299
 ;;9002226.02101,"785,58016097900 ",.01)
 ;;58016097900
 ;;9002226.02101,"785,58016097900 ",.02)
 ;;58016097900
 ;;9002226.02101,"785,58016097901 ",.01)
 ;;58016097901
 ;;9002226.02101,"785,58016097901 ",.02)
 ;;58016097901
 ;;9002226.02101,"785,58016097902 ",.01)
 ;;58016097902
 ;;9002226.02101,"785,58016097902 ",.02)
 ;;58016097902
 ;;9002226.02101,"785,58016097903 ",.01)
 ;;58016097903
 ;;9002226.02101,"785,58016097903 ",.02)
 ;;58016097903
 ;;9002226.02101,"785,58016097904 ",.01)
 ;;58016097904
 ;;9002226.02101,"785,58016097904 ",.02)
 ;;58016097904
 ;;9002226.02101,"785,58016097905 ",.01)
 ;;58016097905
 ;;9002226.02101,"785,58016097905 ",.02)
 ;;58016097905
 ;;9002226.02101,"785,58016097906 ",.01)
 ;;58016097906
 ;;9002226.02101,"785,58016097906 ",.02)
 ;;58016097906
 ;;9002226.02101,"785,58016097907 ",.01)
 ;;58016097907
 ;;9002226.02101,"785,58016097907 ",.02)
 ;;58016097907
 ;;9002226.02101,"785,58016097908 ",.01)
 ;;58016097908
 ;;9002226.02101,"785,58016097908 ",.02)
 ;;58016097908
 ;;9002226.02101,"785,58016097909 ",.01)
 ;;58016097909
 ;;9002226.02101,"785,58016097909 ",.02)
 ;;58016097909
 ;;9002226.02101,"785,58016097910 ",.01)
 ;;58016097910
 ;;9002226.02101,"785,58016097910 ",.02)
 ;;58016097910
 ;;9002226.02101,"785,58016097912 ",.01)
 ;;58016097912
 ;;9002226.02101,"785,58016097912 ",.02)
 ;;58016097912
 ;;9002226.02101,"785,58016097914 ",.01)
 ;;58016097914
 ;;9002226.02101,"785,58016097914 ",.02)
 ;;58016097914
 ;;9002226.02101,"785,58016097915 ",.01)
 ;;58016097915
 ;;9002226.02101,"785,58016097915 ",.02)
 ;;58016097915
 ;;9002226.02101,"785,58016097916 ",.01)
 ;;58016097916
 ;;9002226.02101,"785,58016097916 ",.02)
 ;;58016097916
 ;;9002226.02101,"785,58016097918 ",.01)
 ;;58016097918
 ;;9002226.02101,"785,58016097918 ",.02)
 ;;58016097918
 ;;9002226.02101,"785,58016097920 ",.01)
 ;;58016097920
 ;;9002226.02101,"785,58016097920 ",.02)
 ;;58016097920
 ;;9002226.02101,"785,58016097921 ",.01)
 ;;58016097921
 ;;9002226.02101,"785,58016097921 ",.02)
 ;;58016097921
 ;;9002226.02101,"785,58016097924 ",.01)
 ;;58016097924
 ;;9002226.02101,"785,58016097924 ",.02)
 ;;58016097924
 ;;9002226.02101,"785,58016097925 ",.01)
 ;;58016097925
 ;;9002226.02101,"785,58016097925 ",.02)
 ;;58016097925
 ;;9002226.02101,"785,58016097926 ",.01)
 ;;58016097926
 ;;9002226.02101,"785,58016097926 ",.02)
 ;;58016097926
 ;;9002226.02101,"785,58016097928 ",.01)
 ;;58016097928
 ;;9002226.02101,"785,58016097928 ",.02)
 ;;58016097928
 ;;9002226.02101,"785,58016097930 ",.01)
 ;;58016097930
 ;;9002226.02101,"785,58016097930 ",.02)
 ;;58016097930
 ;;9002226.02101,"785,58016097932 ",.01)
 ;;58016097932
 ;;9002226.02101,"785,58016097932 ",.02)
 ;;58016097932
 ;;9002226.02101,"785,58016097935 ",.01)
 ;;58016097935
 ;;9002226.02101,"785,58016097935 ",.02)
 ;;58016097935
 ;;9002226.02101,"785,58016097936 ",.01)
 ;;58016097936
 ;;9002226.02101,"785,58016097936 ",.02)
 ;;58016097936
 ;;9002226.02101,"785,58016097940 ",.01)
 ;;58016097940
 ;;9002226.02101,"785,58016097940 ",.02)
 ;;58016097940
 ;;9002226.02101,"785,58016097942 ",.01)
 ;;58016097942
 ;;9002226.02101,"785,58016097942 ",.02)
 ;;58016097942