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