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

BGPM5AVX.m

Go to the documentation of this file.
BGPM5AVX ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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,"1033,58016033944 ",.02)
 ;;58016033944
 ;;9002226.02101,"1033,58016033945 ",.01)
 ;;58016033945
 ;;9002226.02101,"1033,58016033945 ",.02)
 ;;58016033945
 ;;9002226.02101,"1033,58016033948 ",.01)
 ;;58016033948
 ;;9002226.02101,"1033,58016033948 ",.02)
 ;;58016033948
 ;;9002226.02101,"1033,58016033950 ",.01)
 ;;58016033950
 ;;9002226.02101,"1033,58016033950 ",.02)
 ;;58016033950
 ;;9002226.02101,"1033,58016033956 ",.01)
 ;;58016033956
 ;;9002226.02101,"1033,58016033956 ",.02)
 ;;58016033956
 ;;9002226.02101,"1033,58016033960 ",.01)
 ;;58016033960
 ;;9002226.02101,"1033,58016033960 ",.02)
 ;;58016033960
 ;;9002226.02101,"1033,58016033967 ",.01)
 ;;58016033967
 ;;9002226.02101,"1033,58016033967 ",.02)
 ;;58016033967
 ;;9002226.02101,"1033,58016033969 ",.01)
 ;;58016033969
 ;;9002226.02101,"1033,58016033969 ",.02)
 ;;58016033969
 ;;9002226.02101,"1033,58016033970 ",.01)
 ;;58016033970
 ;;9002226.02101,"1033,58016033970 ",.02)
 ;;58016033970
 ;;9002226.02101,"1033,58016033971 ",.01)
 ;;58016033971
 ;;9002226.02101,"1033,58016033971 ",.02)
 ;;58016033971
 ;;9002226.02101,"1033,58016033972 ",.01)
 ;;58016033972
 ;;9002226.02101,"1033,58016033972 ",.02)
 ;;58016033972
 ;;9002226.02101,"1033,58016033973 ",.01)
 ;;58016033973
 ;;9002226.02101,"1033,58016033973 ",.02)
 ;;58016033973
 ;;9002226.02101,"1033,58016033975 ",.01)
 ;;58016033975
 ;;9002226.02101,"1033,58016033975 ",.02)
 ;;58016033975
 ;;9002226.02101,"1033,58016033976 ",.01)
 ;;58016033976
 ;;9002226.02101,"1033,58016033976 ",.02)
 ;;58016033976
 ;;9002226.02101,"1033,58016033977 ",.01)
 ;;58016033977
 ;;9002226.02101,"1033,58016033977 ",.02)
 ;;58016033977
 ;;9002226.02101,"1033,58016033979 ",.01)
 ;;58016033979
 ;;9002226.02101,"1033,58016033979 ",.02)
 ;;58016033979
 ;;9002226.02101,"1033,58016033980 ",.01)
 ;;58016033980
 ;;9002226.02101,"1033,58016033980 ",.02)
 ;;58016033980
 ;;9002226.02101,"1033,58016033981 ",.01)
 ;;58016033981
 ;;9002226.02101,"1033,58016033981 ",.02)
 ;;58016033981
 ;;9002226.02101,"1033,58016033982 ",.01)
 ;;58016033982
 ;;9002226.02101,"1033,58016033982 ",.02)
 ;;58016033982
 ;;9002226.02101,"1033,58016033983 ",.01)
 ;;58016033983
 ;;9002226.02101,"1033,58016033983 ",.02)
 ;;58016033983
 ;;9002226.02101,"1033,58016033984 ",.01)
 ;;58016033984
 ;;9002226.02101,"1033,58016033984 ",.02)
 ;;58016033984
 ;;9002226.02101,"1033,58016033987 ",.01)
 ;;58016033987
 ;;9002226.02101,"1033,58016033987 ",.02)
 ;;58016033987
 ;;9002226.02101,"1033,58016033989 ",.01)
 ;;58016033989
 ;;9002226.02101,"1033,58016033989 ",.02)
 ;;58016033989
 ;;9002226.02101,"1033,58016033990 ",.01)
 ;;58016033990
 ;;9002226.02101,"1033,58016033990 ",.02)
 ;;58016033990
 ;;9002226.02101,"1033,58016033991 ",.01)
 ;;58016033991
 ;;9002226.02101,"1033,58016033991 ",.02)
 ;;58016033991
 ;;9002226.02101,"1033,58016033992 ",.01)
 ;;58016033992
 ;;9002226.02101,"1033,58016033992 ",.02)
 ;;58016033992
 ;;9002226.02101,"1033,58016033993 ",.01)
 ;;58016033993
 ;;9002226.02101,"1033,58016033993 ",.02)
 ;;58016033993
 ;;9002226.02101,"1033,58016033996 ",.01)
 ;;58016033996
 ;;9002226.02101,"1033,58016033996 ",.02)
 ;;58016033996
 ;;9002226.02101,"1033,58016033997 ",.01)
 ;;58016033997
 ;;9002226.02101,"1033,58016033997 ",.02)
 ;;58016033997
 ;;9002226.02101,"1033,58016033998 ",.01)
 ;;58016033998
 ;;9002226.02101,"1033,58016033998 ",.02)
 ;;58016033998
 ;;9002226.02101,"1033,58016033999 ",.01)
 ;;58016033999
 ;;9002226.02101,"1033,58016033999 ",.02)
 ;;58016033999
 ;;9002226.02101,"1033,58016045300 ",.01)
 ;;58016045300
 ;;9002226.02101,"1033,58016045300 ",.02)
 ;;58016045300
 ;;9002226.02101,"1033,58016045301 ",.01)
 ;;58016045301
 ;;9002226.02101,"1033,58016045301 ",.02)
 ;;58016045301
 ;;9002226.02101,"1033,58016045302 ",.01)
 ;;58016045302
 ;;9002226.02101,"1033,58016045302 ",.02)
 ;;58016045302
 ;;9002226.02101,"1033,58016045303 ",.01)
 ;;58016045303
 ;;9002226.02101,"1033,58016045303 ",.02)
 ;;58016045303
 ;;9002226.02101,"1033,58016045304 ",.01)
 ;;58016045304
 ;;9002226.02101,"1033,58016045304 ",.02)
 ;;58016045304
 ;;9002226.02101,"1033,58016045305 ",.01)
 ;;58016045305
 ;;9002226.02101,"1033,58016045305 ",.02)
 ;;58016045305
 ;;9002226.02101,"1033,58016045306 ",.01)
 ;;58016045306
 ;;9002226.02101,"1033,58016045306 ",.02)
 ;;58016045306
 ;;9002226.02101,"1033,58016045307 ",.01)
 ;;58016045307
 ;;9002226.02101,"1033,58016045307 ",.02)
 ;;58016045307
 ;;9002226.02101,"1033,58016045308 ",.01)
 ;;58016045308
 ;;9002226.02101,"1033,58016045308 ",.02)
 ;;58016045308
 ;;9002226.02101,"1033,58016045309 ",.01)
 ;;58016045309
 ;;9002226.02101,"1033,58016045309 ",.02)
 ;;58016045309
 ;;9002226.02101,"1033,58016045310 ",.01)
 ;;58016045310
 ;;9002226.02101,"1033,58016045310 ",.02)
 ;;58016045310
 ;;9002226.02101,"1033,58016045312 ",.01)
 ;;58016045312
 ;;9002226.02101,"1033,58016045312 ",.02)
 ;;58016045312
 ;;9002226.02101,"1033,58016045314 ",.01)
 ;;58016045314
 ;;9002226.02101,"1033,58016045314 ",.02)
 ;;58016045314
 ;;9002226.02101,"1033,58016045315 ",.01)
 ;;58016045315
 ;;9002226.02101,"1033,58016045315 ",.02)
 ;;58016045315
 ;;9002226.02101,"1033,58016045316 ",.01)
 ;;58016045316
 ;;9002226.02101,"1033,58016045316 ",.02)
 ;;58016045316
 ;;9002226.02101,"1033,58016045318 ",.01)
 ;;58016045318
 ;;9002226.02101,"1033,58016045318 ",.02)
 ;;58016045318
 ;;9002226.02101,"1033,58016045320 ",.01)
 ;;58016045320
 ;;9002226.02101,"1033,58016045320 ",.02)
 ;;58016045320
 ;;9002226.02101,"1033,58016045321 ",.01)
 ;;58016045321
 ;;9002226.02101,"1033,58016045321 ",.02)
 ;;58016045321
 ;;9002226.02101,"1033,58016045324 ",.01)
 ;;58016045324
 ;;9002226.02101,"1033,58016045324 ",.02)
 ;;58016045324
 ;;9002226.02101,"1033,58016045325 ",.01)
 ;;58016045325
 ;;9002226.02101,"1033,58016045325 ",.02)
 ;;58016045325
 ;;9002226.02101,"1033,58016045326 ",.01)
 ;;58016045326
 ;;9002226.02101,"1033,58016045326 ",.02)
 ;;58016045326
 ;;9002226.02101,"1033,58016045327 ",.01)
 ;;58016045327
 ;;9002226.02101,"1033,58016045327 ",.02)
 ;;58016045327
 ;;9002226.02101,"1033,58016045328 ",.01)
 ;;58016045328
 ;;9002226.02101,"1033,58016045328 ",.02)
 ;;58016045328
 ;;9002226.02101,"1033,58016045330 ",.01)
 ;;58016045330
 ;;9002226.02101,"1033,58016045330 ",.02)
 ;;58016045330
 ;;9002226.02101,"1033,58016045332 ",.01)
 ;;58016045332
 ;;9002226.02101,"1033,58016045332 ",.02)
 ;;58016045332
 ;;9002226.02101,"1033,58016045335 ",.01)
 ;;58016045335
 ;;9002226.02101,"1033,58016045335 ",.02)
 ;;58016045335
 ;;9002226.02101,"1033,58016045336 ",.01)
 ;;58016045336
 ;;9002226.02101,"1033,58016045336 ",.02)
 ;;58016045336
 ;;9002226.02101,"1033,58016045340 ",.01)
 ;;58016045340
 ;;9002226.02101,"1033,58016045340 ",.02)
 ;;58016045340
 ;;9002226.02101,"1033,58016045342 ",.01)
 ;;58016045342
 ;;9002226.02101,"1033,58016045342 ",.02)
 ;;58016045342
 ;;9002226.02101,"1033,58016045344 ",.01)
 ;;58016045344
 ;;9002226.02101,"1033,58016045344 ",.02)
 ;;58016045344
 ;;9002226.02101,"1033,58016045345 ",.01)
 ;;58016045345
 ;;9002226.02101,"1033,58016045345 ",.02)
 ;;58016045345
 ;;9002226.02101,"1033,58016045348 ",.01)
 ;;58016045348
 ;;9002226.02101,"1033,58016045348 ",.02)
 ;;58016045348
 ;;9002226.02101,"1033,58016045350 ",.01)
 ;;58016045350
 ;;9002226.02101,"1033,58016045350 ",.02)
 ;;58016045350
 ;;9002226.02101,"1033,58016045356 ",.01)
 ;;58016045356
 ;;9002226.02101,"1033,58016045356 ",.02)
 ;;58016045356
 ;;9002226.02101,"1033,58016045360 ",.01)
 ;;58016045360
 ;;9002226.02101,"1033,58016045360 ",.02)
 ;;58016045360
 ;;9002226.02101,"1033,58016045367 ",.01)
 ;;58016045367
 ;;9002226.02101,"1033,58016045367 ",.02)
 ;;58016045367
 ;;9002226.02101,"1033,58016045369 ",.01)
 ;;58016045369
 ;;9002226.02101,"1033,58016045369 ",.02)
 ;;58016045369
 ;;9002226.02101,"1033,58016045370 ",.01)
 ;;58016045370
 ;;9002226.02101,"1033,58016045370 ",.02)
 ;;58016045370
 ;;9002226.02101,"1033,58016045371 ",.01)
 ;;58016045371
 ;;9002226.02101,"1033,58016045371 ",.02)
 ;;58016045371
 ;;9002226.02101,"1033,58016045372 ",.01)
 ;;58016045372
 ;;9002226.02101,"1033,58016045372 ",.02)
 ;;58016045372
 ;;9002226.02101,"1033,58016045373 ",.01)
 ;;58016045373
 ;;9002226.02101,"1033,58016045373 ",.02)
 ;;58016045373
 ;;9002226.02101,"1033,58016045375 ",.01)
 ;;58016045375
 ;;9002226.02101,"1033,58016045375 ",.02)
 ;;58016045375
 ;;9002226.02101,"1033,58016045376 ",.01)
 ;;58016045376
 ;;9002226.02101,"1033,58016045376 ",.02)
 ;;58016045376
 ;;9002226.02101,"1033,58016045377 ",.01)
 ;;58016045377
 ;;9002226.02101,"1033,58016045377 ",.02)
 ;;58016045377
 ;;9002226.02101,"1033,58016045379 ",.01)
 ;;58016045379
 ;;9002226.02101,"1033,58016045379 ",.02)
 ;;58016045379
 ;;9002226.02101,"1033,58016045380 ",.01)
 ;;58016045380
 ;;9002226.02101,"1033,58016045380 ",.02)
 ;;58016045380
 ;;9002226.02101,"1033,58016045381 ",.01)
 ;;58016045381
 ;;9002226.02101,"1033,58016045381 ",.02)
 ;;58016045381
 ;;9002226.02101,"1033,58016045382 ",.01)
 ;;58016045382
 ;;9002226.02101,"1033,58016045382 ",.02)
 ;;58016045382
 ;;9002226.02101,"1033,58016045383 ",.01)
 ;;58016045383
 ;;9002226.02101,"1033,58016045383 ",.02)
 ;;58016045383
 ;;9002226.02101,"1033,58016045384 ",.01)
 ;;58016045384
 ;;9002226.02101,"1033,58016045384 ",.02)
 ;;58016045384
 ;;9002226.02101,"1033,58016045387 ",.01)
 ;;58016045387
 ;;9002226.02101,"1033,58016045387 ",.02)
 ;;58016045387
 ;;9002226.02101,"1033,58016045389 ",.01)
 ;;58016045389
 ;;9002226.02101,"1033,58016045389 ",.02)
 ;;58016045389
 ;;9002226.02101,"1033,58016045390 ",.01)
 ;;58016045390
 ;;9002226.02101,"1033,58016045390 ",.02)
 ;;58016045390
 ;;9002226.02101,"1033,58016045391 ",.01)
 ;;58016045391
 ;;9002226.02101,"1033,58016045391 ",.02)
 ;;58016045391
 ;;9002226.02101,"1033,58016045392 ",.01)
 ;;58016045392
 ;;9002226.02101,"1033,58016045392 ",.02)
 ;;58016045392
 ;;9002226.02101,"1033,58016045393 ",.01)
 ;;58016045393
 ;;9002226.02101,"1033,58016045393 ",.02)
 ;;58016045393
 ;;9002226.02101,"1033,58016045396 ",.01)
 ;;58016045396
 ;;9002226.02101,"1033,58016045396 ",.02)
 ;;58016045396
 ;;9002226.02101,"1033,58016045397 ",.01)
 ;;58016045397
 ;;9002226.02101,"1033,58016045397 ",.02)
 ;;58016045397
 ;;9002226.02101,"1033,58016045398 ",.01)
 ;;58016045398
 ;;9002226.02101,"1033,58016045398 ",.02)
 ;;58016045398
 ;;9002226.02101,"1033,58016045399 ",.01)
 ;;58016045399
 ;;9002226.02101,"1033,58016045399 ",.02)
 ;;58016045399
 ;;9002226.02101,"1033,58016055430 ",.01)
 ;;58016055430
 ;;9002226.02101,"1033,58016055430 ",.02)
 ;;58016055430
 ;;9002226.02101,"1033,58016063400 ",.01)
 ;;58016063400
 ;;9002226.02101,"1033,58016063400 ",.02)
 ;;58016063400
 ;;9002226.02101,"1033,58016063401 ",.01)
 ;;58016063401
 ;;9002226.02101,"1033,58016063401 ",.02)
 ;;58016063401
 ;;9002226.02101,"1033,58016063402 ",.01)
 ;;58016063402
 ;;9002226.02101,"1033,58016063402 ",.02)
 ;;58016063402
 ;;9002226.02101,"1033,58016063403 ",.01)
 ;;58016063403
 ;;9002226.02101,"1033,58016063403 ",.02)
 ;;58016063403
 ;;9002226.02101,"1033,58016063404 ",.01)
 ;;58016063404
 ;;9002226.02101,"1033,58016063404 ",.02)
 ;;58016063404
 ;;9002226.02101,"1033,58016063405 ",.01)
 ;;58016063405
 ;;9002226.02101,"1033,58016063405 ",.02)
 ;;58016063405
 ;;9002226.02101,"1033,58016063406 ",.01)
 ;;58016063406
 ;;9002226.02101,"1033,58016063406 ",.02)
 ;;58016063406
 ;;9002226.02101,"1033,58016063407 ",.01)
 ;;58016063407
 ;;9002226.02101,"1033,58016063407 ",.02)
 ;;58016063407
 ;;9002226.02101,"1033,58016063408 ",.01)
 ;;58016063408
 ;;9002226.02101,"1033,58016063408 ",.02)
 ;;58016063408