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