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

BGPM5AJW.m

Go to the documentation of this file.
  1. BGPM5AJW ;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,"889,58016037350 ",.01)
  1. ;;58016037350
  1. ;;9002226.02101,"889,58016037350 ",.02)
  1. ;;58016037350
  1. ;;9002226.02101,"889,58016037356 ",.01)
  1. ;;58016037356
  1. ;;9002226.02101,"889,58016037356 ",.02)
  1. ;;58016037356
  1. ;;9002226.02101,"889,58016037360 ",.01)
  1. ;;58016037360
  1. ;;9002226.02101,"889,58016037360 ",.02)
  1. ;;58016037360
  1. ;;9002226.02101,"889,58016037367 ",.01)
  1. ;;58016037367
  1. ;;9002226.02101,"889,58016037367 ",.02)
  1. ;;58016037367
  1. ;;9002226.02101,"889,58016037369 ",.01)
  1. ;;58016037369
  1. ;;9002226.02101,"889,58016037369 ",.02)
  1. ;;58016037369
  1. ;;9002226.02101,"889,58016037370 ",.01)
  1. ;;58016037370
  1. ;;9002226.02101,"889,58016037370 ",.02)
  1. ;;58016037370
  1. ;;9002226.02101,"889,58016037371 ",.01)
  1. ;;58016037371
  1. ;;9002226.02101,"889,58016037371 ",.02)
  1. ;;58016037371
  1. ;;9002226.02101,"889,58016037372 ",.01)
  1. ;;58016037372
  1. ;;9002226.02101,"889,58016037372 ",.02)
  1. ;;58016037372
  1. ;;9002226.02101,"889,58016037373 ",.01)
  1. ;;58016037373
  1. ;;9002226.02101,"889,58016037373 ",.02)
  1. ;;58016037373
  1. ;;9002226.02101,"889,58016037375 ",.01)
  1. ;;58016037375
  1. ;;9002226.02101,"889,58016037375 ",.02)
  1. ;;58016037375
  1. ;;9002226.02101,"889,58016037376 ",.01)
  1. ;;58016037376
  1. ;;9002226.02101,"889,58016037376 ",.02)
  1. ;;58016037376
  1. ;;9002226.02101,"889,58016037377 ",.01)
  1. ;;58016037377
  1. ;;9002226.02101,"889,58016037377 ",.02)
  1. ;;58016037377
  1. ;;9002226.02101,"889,58016037379 ",.01)
  1. ;;58016037379
  1. ;;9002226.02101,"889,58016037379 ",.02)
  1. ;;58016037379
  1. ;;9002226.02101,"889,58016037380 ",.01)
  1. ;;58016037380
  1. ;;9002226.02101,"889,58016037380 ",.02)
  1. ;;58016037380
  1. ;;9002226.02101,"889,58016037381 ",.01)
  1. ;;58016037381
  1. ;;9002226.02101,"889,58016037381 ",.02)
  1. ;;58016037381
  1. ;;9002226.02101,"889,58016037382 ",.01)
  1. ;;58016037382
  1. ;;9002226.02101,"889,58016037382 ",.02)
  1. ;;58016037382
  1. ;;9002226.02101,"889,58016037383 ",.01)
  1. ;;58016037383
  1. ;;9002226.02101,"889,58016037383 ",.02)
  1. ;;58016037383
  1. ;;9002226.02101,"889,58016037384 ",.01)
  1. ;;58016037384
  1. ;;9002226.02101,"889,58016037384 ",.02)
  1. ;;58016037384
  1. ;;9002226.02101,"889,58016037387 ",.01)
  1. ;;58016037387
  1. ;;9002226.02101,"889,58016037387 ",.02)
  1. ;;58016037387
  1. ;;9002226.02101,"889,58016037389 ",.01)
  1. ;;58016037389
  1. ;;9002226.02101,"889,58016037389 ",.02)
  1. ;;58016037389
  1. ;;9002226.02101,"889,58016037390 ",.01)
  1. ;;58016037390
  1. ;;9002226.02101,"889,58016037390 ",.02)
  1. ;;58016037390
  1. ;;9002226.02101,"889,58016037391 ",.01)
  1. ;;58016037391
  1. ;;9002226.02101,"889,58016037391 ",.02)
  1. ;;58016037391
  1. ;;9002226.02101,"889,58016037392 ",.01)
  1. ;;58016037392
  1. ;;9002226.02101,"889,58016037392 ",.02)
  1. ;;58016037392
  1. ;;9002226.02101,"889,58016037393 ",.01)
  1. ;;58016037393
  1. ;;9002226.02101,"889,58016037393 ",.02)
  1. ;;58016037393
  1. ;;9002226.02101,"889,58016037396 ",.01)
  1. ;;58016037396
  1. ;;9002226.02101,"889,58016037396 ",.02)
  1. ;;58016037396
  1. ;;9002226.02101,"889,58016037397 ",.01)
  1. ;;58016037397
  1. ;;9002226.02101,"889,58016037397 ",.02)
  1. ;;58016037397
  1. ;;9002226.02101,"889,58016037398 ",.01)
  1. ;;58016037398
  1. ;;9002226.02101,"889,58016037398 ",.02)
  1. ;;58016037398
  1. ;;9002226.02101,"889,58016037399 ",.01)
  1. ;;58016037399
  1. ;;9002226.02101,"889,58016037399 ",.02)
  1. ;;58016037399
  1. ;;9002226.02101,"889,58016044000 ",.01)
  1. ;;58016044000
  1. ;;9002226.02101,"889,58016044000 ",.02)
  1. ;;58016044000
  1. ;;9002226.02101,"889,58016044001 ",.01)
  1. ;;58016044001
  1. ;;9002226.02101,"889,58016044001 ",.02)
  1. ;;58016044001
  1. ;;9002226.02101,"889,58016044002 ",.01)
  1. ;;58016044002
  1. ;;9002226.02101,"889,58016044002 ",.02)
  1. ;;58016044002
  1. ;;9002226.02101,"889,58016044003 ",.01)
  1. ;;58016044003
  1. ;;9002226.02101,"889,58016044003 ",.02)
  1. ;;58016044003
  1. ;;9002226.02101,"889,58016044004 ",.01)
  1. ;;58016044004
  1. ;;9002226.02101,"889,58016044004 ",.02)
  1. ;;58016044004
  1. ;;9002226.02101,"889,58016044007 ",.01)
  1. ;;58016044007
  1. ;;9002226.02101,"889,58016044007 ",.02)
  1. ;;58016044007
  1. ;;9002226.02101,"889,58016044008 ",.01)
  1. ;;58016044008
  1. ;;9002226.02101,"889,58016044008 ",.02)
  1. ;;58016044008
  1. ;;9002226.02101,"889,58016044009 ",.01)
  1. ;;58016044009
  1. ;;9002226.02101,"889,58016044009 ",.02)
  1. ;;58016044009
  1. ;;9002226.02101,"889,58016044010 ",.01)
  1. ;;58016044010
  1. ;;9002226.02101,"889,58016044010 ",.02)
  1. ;;58016044010
  1. ;;9002226.02101,"889,58016044012 ",.01)
  1. ;;58016044012
  1. ;;9002226.02101,"889,58016044012 ",.02)
  1. ;;58016044012
  1. ;;9002226.02101,"889,58016044014 ",.01)
  1. ;;58016044014
  1. ;;9002226.02101,"889,58016044014 ",.02)
  1. ;;58016044014
  1. ;;9002226.02101,"889,58016044015 ",.01)
  1. ;;58016044015
  1. ;;9002226.02101,"889,58016044015 ",.02)
  1. ;;58016044015
  1. ;;9002226.02101,"889,58016044016 ",.01)
  1. ;;58016044016
  1. ;;9002226.02101,"889,58016044016 ",.02)
  1. ;;58016044016
  1. ;;9002226.02101,"889,58016044018 ",.01)
  1. ;;58016044018
  1. ;;9002226.02101,"889,58016044018 ",.02)
  1. ;;58016044018
  1. ;;9002226.02101,"889,58016044020 ",.01)
  1. ;;58016044020
  1. ;;9002226.02101,"889,58016044020 ",.02)
  1. ;;58016044020
  1. ;;9002226.02101,"889,58016044021 ",.01)
  1. ;;58016044021
  1. ;;9002226.02101,"889,58016044021 ",.02)
  1. ;;58016044021
  1. ;;9002226.02101,"889,58016044024 ",.01)
  1. ;;58016044024
  1. ;;9002226.02101,"889,58016044024 ",.02)
  1. ;;58016044024
  1. ;;9002226.02101,"889,58016044025 ",.01)
  1. ;;58016044025
  1. ;;9002226.02101,"889,58016044025 ",.02)
  1. ;;58016044025
  1. ;;9002226.02101,"889,58016044026 ",.01)
  1. ;;58016044026
  1. ;;9002226.02101,"889,58016044026 ",.02)
  1. ;;58016044026
  1. ;;9002226.02101,"889,58016044027 ",.01)
  1. ;;58016044027
  1. ;;9002226.02101,"889,58016044027 ",.02)
  1. ;;58016044027
  1. ;;9002226.02101,"889,58016044028 ",.01)
  1. ;;58016044028
  1. ;;9002226.02101,"889,58016044028 ",.02)
  1. ;;58016044028
  1. ;;9002226.02101,"889,58016044030 ",.01)
  1. ;;58016044030
  1. ;;9002226.02101,"889,58016044030 ",.02)
  1. ;;58016044030
  1. ;;9002226.02101,"889,58016044032 ",.01)
  1. ;;58016044032
  1. ;;9002226.02101,"889,58016044032 ",.02)
  1. ;;58016044032
  1. ;;9002226.02101,"889,58016044035 ",.01)
  1. ;;58016044035
  1. ;;9002226.02101,"889,58016044035 ",.02)
  1. ;;58016044035
  1. ;;9002226.02101,"889,58016044036 ",.01)
  1. ;;58016044036
  1. ;;9002226.02101,"889,58016044036 ",.02)
  1. ;;58016044036
  1. ;;9002226.02101,"889,58016044040 ",.01)
  1. ;;58016044040
  1. ;;9002226.02101,"889,58016044040 ",.02)
  1. ;;58016044040
  1. ;;9002226.02101,"889,58016044042 ",.01)
  1. ;;58016044042
  1. ;;9002226.02101,"889,58016044042 ",.02)
  1. ;;58016044042
  1. ;;9002226.02101,"889,58016044044 ",.01)
  1. ;;58016044044
  1. ;;9002226.02101,"889,58016044044 ",.02)
  1. ;;58016044044
  1. ;;9002226.02101,"889,58016044045 ",.01)
  1. ;;58016044045
  1. ;;9002226.02101,"889,58016044045 ",.02)
  1. ;;58016044045
  1. ;;9002226.02101,"889,58016044048 ",.01)
  1. ;;58016044048
  1. ;;9002226.02101,"889,58016044048 ",.02)
  1. ;;58016044048
  1. ;;9002226.02101,"889,58016044050 ",.01)
  1. ;;58016044050
  1. ;;9002226.02101,"889,58016044050 ",.02)
  1. ;;58016044050
  1. ;;9002226.02101,"889,58016044056 ",.01)
  1. ;;58016044056
  1. ;;9002226.02101,"889,58016044056 ",.02)
  1. ;;58016044056
  1. ;;9002226.02101,"889,58016044060 ",.01)
  1. ;;58016044060
  1. ;;9002226.02101,"889,58016044060 ",.02)
  1. ;;58016044060
  1. ;;9002226.02101,"889,58016044070 ",.01)
  1. ;;58016044070
  1. ;;9002226.02101,"889,58016044070 ",.02)
  1. ;;58016044070
  1. ;;9002226.02101,"889,58016044072 ",.01)
  1. ;;58016044072
  1. ;;9002226.02101,"889,58016044072 ",.02)
  1. ;;58016044072
  1. ;;9002226.02101,"889,58016044075 ",.01)
  1. ;;58016044075
  1. ;;9002226.02101,"889,58016044075 ",.02)
  1. ;;58016044075
  1. ;;9002226.02101,"889,58016044076 ",.01)
  1. ;;58016044076
  1. ;;9002226.02101,"889,58016044076 ",.02)
  1. ;;58016044076
  1. ;;9002226.02101,"889,58016044080 ",.01)
  1. ;;58016044080
  1. ;;9002226.02101,"889,58016044080 ",.02)
  1. ;;58016044080
  1. ;;9002226.02101,"889,58016044084 ",.01)
  1. ;;58016044084
  1. ;;9002226.02101,"889,58016044084 ",.02)
  1. ;;58016044084
  1. ;;9002226.02101,"889,58016044090 ",.01)
  1. ;;58016044090
  1. ;;9002226.02101,"889,58016044090 ",.02)
  1. ;;58016044090
  1. ;;9002226.02101,"889,58016044092 ",.01)
  1. ;;58016044092
  1. ;;9002226.02101,"889,58016044092 ",.02)
  1. ;;58016044092
  1. ;;9002226.02101,"889,58016044096 ",.01)
  1. ;;58016044096
  1. ;;9002226.02101,"889,58016044096 ",.02)
  1. ;;58016044096
  1. ;;9002226.02101,"889,58016044097 ",.01)
  1. ;;58016044097
  1. ;;9002226.02101,"889,58016044097 ",.02)
  1. ;;58016044097
  1. ;;9002226.02101,"889,58016044099 ",.01)
  1. ;;58016044099
  1. ;;9002226.02101,"889,58016044099 ",.02)
  1. ;;58016044099
  1. ;;9002226.02101,"889,58016044200 ",.01)
  1. ;;58016044200
  1. ;;9002226.02101,"889,58016044200 ",.02)
  1. ;;58016044200
  1. ;;9002226.02101,"889,58016044202 ",.01)
  1. ;;58016044202
  1. ;;9002226.02101,"889,58016044202 ",.02)
  1. ;;58016044202
  1. ;;9002226.02101,"889,58016044230 ",.01)
  1. ;;58016044230
  1. ;;9002226.02101,"889,58016044230 ",.02)
  1. ;;58016044230
  1. ;;9002226.02101,"889,58016044260 ",.01)
  1. ;;58016044260
  1. ;;9002226.02101,"889,58016044260 ",.02)
  1. ;;58016044260
  1. ;;9002226.02101,"889,58016044290 ",.01)
  1. ;;58016044290
  1. ;;9002226.02101,"889,58016044290 ",.02)
  1. ;;58016044290
  1. ;;9002226.02101,"889,58016044299 ",.01)
  1. ;;58016044299
  1. ;;9002226.02101,"889,58016044299 ",.02)
  1. ;;58016044299
  1. ;;9002226.02101,"889,58016044300 ",.01)
  1. ;;58016044300
  1. ;;9002226.02101,"889,58016044300 ",.02)
  1. ;;58016044300
  1. ;;9002226.02101,"889,58016047200 ",.01)
  1. ;;58016047200
  1. ;;9002226.02101,"889,58016047200 ",.02)
  1. ;;58016047200
  1. ;;9002226.02101,"889,58016047201 ",.01)
  1. ;;58016047201
  1. ;;9002226.02101,"889,58016047201 ",.02)
  1. ;;58016047201
  1. ;;9002226.02101,"889,58016047202 ",.01)
  1. ;;58016047202
  1. ;;9002226.02101,"889,58016047202 ",.02)
  1. ;;58016047202
  1. ;;9002226.02101,"889,58016047203 ",.01)
  1. ;;58016047203
  1. ;;9002226.02101,"889,58016047203 ",.02)
  1. ;;58016047203
  1. ;;9002226.02101,"889,58016047204 ",.01)
  1. ;;58016047204
  1. ;;9002226.02101,"889,58016047204 ",.02)
  1. ;;58016047204
  1. ;;9002226.02101,"889,58016047205 ",.01)
  1. ;;58016047205
  1. ;;9002226.02101,"889,58016047205 ",.02)
  1. ;;58016047205
  1. ;;9002226.02101,"889,58016047206 ",.01)
  1. ;;58016047206
  1. ;;9002226.02101,"889,58016047206 ",.02)
  1. ;;58016047206
  1. ;;9002226.02101,"889,58016047207 ",.01)
  1. ;;58016047207
  1. ;;9002226.02101,"889,58016047207 ",.02)
  1. ;;58016047207
  1. ;;9002226.02101,"889,58016047208 ",.01)
  1. ;;58016047208
  1. ;;9002226.02101,"889,58016047208 ",.02)
  1. ;;58016047208
  1. ;;9002226.02101,"889,58016047209 ",.01)
  1. ;;58016047209
  1. ;;9002226.02101,"889,58016047209 ",.02)
  1. ;;58016047209
  1. ;;9002226.02101,"889,58016047210 ",.01)
  1. ;;58016047210
  1. ;;9002226.02101,"889,58016047210 ",.02)
  1. ;;58016047210
  1. ;;9002226.02101,"889,58016047212 ",.01)
  1. ;;58016047212
  1. ;;9002226.02101,"889,58016047212 ",.02)
  1. ;;58016047212
  1. ;;9002226.02101,"889,58016047214 ",.01)
  1. ;;58016047214
  1. ;;9002226.02101,"889,58016047214 ",.02)
  1. ;;58016047214
  1. ;;9002226.02101,"889,58016047215 ",.01)
  1. ;;58016047215
  1. ;;9002226.02101,"889,58016047215 ",.02)
  1. ;;58016047215
  1. ;;9002226.02101,"889,58016047216 ",.01)
  1. ;;58016047216
  1. ;;9002226.02101,"889,58016047216 ",.02)
  1. ;;58016047216
  1. ;;9002226.02101,"889,58016047218 ",.01)
  1. ;;58016047218
  1. ;;9002226.02101,"889,58016047218 ",.02)
  1. ;;58016047218
  1. ;;9002226.02101,"889,58016047220 ",.01)
  1. ;;58016047220
  1. ;;9002226.02101,"889,58016047220 ",.02)
  1. ;;58016047220
  1. ;;9002226.02101,"889,58016047221 ",.01)
  1. ;;58016047221
  1. ;;9002226.02101,"889,58016047221 ",.02)
  1. ;;58016047221
  1. ;;9002226.02101,"889,58016047225 ",.01)
  1. ;;58016047225
  1. ;;9002226.02101,"889,58016047225 ",.02)
  1. ;;58016047225
  1. ;;9002226.02101,"889,58016047226 ",.01)
  1. ;;58016047226
  1. ;;9002226.02101,"889,58016047226 ",.02)
  1. ;;58016047226
  1. ;;9002226.02101,"889,58016047227 ",.01)
  1. ;;58016047227
  1. ;;9002226.02101,"889,58016047227 ",.02)
  1. ;;58016047227
  1. ;;9002226.02101,"889,58016047228 ",.01)
  1. ;;58016047228
  1. ;;9002226.02101,"889,58016047228 ",.02)
  1. ;;58016047228
  1. ;;9002226.02101,"889,58016047230 ",.01)
  1. ;;58016047230
  1. ;;9002226.02101,"889,58016047230 ",.02)
  1. ;;58016047230