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

BGPM5AHD.m

Go to the documentation of this file.
  1. BGPM5AHD ;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,"882,58016093579 ",.02)
  1. ;;58016093579
  1. ;;9002226.02101,"882,58016093580 ",.01)
  1. ;;58016093580
  1. ;;9002226.02101,"882,58016093580 ",.02)
  1. ;;58016093580
  1. ;;9002226.02101,"882,58016093581 ",.01)
  1. ;;58016093581
  1. ;;9002226.02101,"882,58016093581 ",.02)
  1. ;;58016093581
  1. ;;9002226.02101,"882,58016093582 ",.01)
  1. ;;58016093582
  1. ;;9002226.02101,"882,58016093582 ",.02)
  1. ;;58016093582
  1. ;;9002226.02101,"882,58016093583 ",.01)
  1. ;;58016093583
  1. ;;9002226.02101,"882,58016093583 ",.02)
  1. ;;58016093583
  1. ;;9002226.02101,"882,58016093584 ",.01)
  1. ;;58016093584
  1. ;;9002226.02101,"882,58016093584 ",.02)
  1. ;;58016093584
  1. ;;9002226.02101,"882,58016093587 ",.01)
  1. ;;58016093587
  1. ;;9002226.02101,"882,58016093587 ",.02)
  1. ;;58016093587
  1. ;;9002226.02101,"882,58016093589 ",.01)
  1. ;;58016093589
  1. ;;9002226.02101,"882,58016093589 ",.02)
  1. ;;58016093589
  1. ;;9002226.02101,"882,58016093590 ",.01)
  1. ;;58016093590
  1. ;;9002226.02101,"882,58016093590 ",.02)
  1. ;;58016093590
  1. ;;9002226.02101,"882,58016093591 ",.01)
  1. ;;58016093591
  1. ;;9002226.02101,"882,58016093591 ",.02)
  1. ;;58016093591
  1. ;;9002226.02101,"882,58016093592 ",.01)
  1. ;;58016093592
  1. ;;9002226.02101,"882,58016093592 ",.02)
  1. ;;58016093592
  1. ;;9002226.02101,"882,58016093593 ",.01)
  1. ;;58016093593
  1. ;;9002226.02101,"882,58016093593 ",.02)
  1. ;;58016093593
  1. ;;9002226.02101,"882,58016093596 ",.01)
  1. ;;58016093596
  1. ;;9002226.02101,"882,58016093596 ",.02)
  1. ;;58016093596
  1. ;;9002226.02101,"882,58016093597 ",.01)
  1. ;;58016093597
  1. ;;9002226.02101,"882,58016093597 ",.02)
  1. ;;58016093597
  1. ;;9002226.02101,"882,58016093598 ",.01)
  1. ;;58016093598
  1. ;;9002226.02101,"882,58016093598 ",.02)
  1. ;;58016093598
  1. ;;9002226.02101,"882,58016093599 ",.01)
  1. ;;58016093599
  1. ;;9002226.02101,"882,58016093599 ",.02)
  1. ;;58016093599
  1. ;;9002226.02101,"882,58016096300 ",.01)
  1. ;;58016096300
  1. ;;9002226.02101,"882,58016096300 ",.02)
  1. ;;58016096300
  1. ;;9002226.02101,"882,58016096301 ",.01)
  1. ;;58016096301
  1. ;;9002226.02101,"882,58016096301 ",.02)
  1. ;;58016096301
  1. ;;9002226.02101,"882,58016096302 ",.01)
  1. ;;58016096302
  1. ;;9002226.02101,"882,58016096302 ",.02)
  1. ;;58016096302
  1. ;;9002226.02101,"882,58016096303 ",.01)
  1. ;;58016096303
  1. ;;9002226.02101,"882,58016096303 ",.02)
  1. ;;58016096303
  1. ;;9002226.02101,"882,58016096304 ",.01)
  1. ;;58016096304
  1. ;;9002226.02101,"882,58016096304 ",.02)
  1. ;;58016096304
  1. ;;9002226.02101,"882,58016096305 ",.01)
  1. ;;58016096305
  1. ;;9002226.02101,"882,58016096305 ",.02)
  1. ;;58016096305
  1. ;;9002226.02101,"882,58016096306 ",.01)
  1. ;;58016096306
  1. ;;9002226.02101,"882,58016096306 ",.02)
  1. ;;58016096306
  1. ;;9002226.02101,"882,58016096307 ",.01)
  1. ;;58016096307
  1. ;;9002226.02101,"882,58016096307 ",.02)
  1. ;;58016096307
  1. ;;9002226.02101,"882,58016096308 ",.01)
  1. ;;58016096308
  1. ;;9002226.02101,"882,58016096308 ",.02)
  1. ;;58016096308
  1. ;;9002226.02101,"882,58016096309 ",.01)
  1. ;;58016096309
  1. ;;9002226.02101,"882,58016096309 ",.02)
  1. ;;58016096309
  1. ;;9002226.02101,"882,58016096310 ",.01)
  1. ;;58016096310
  1. ;;9002226.02101,"882,58016096310 ",.02)
  1. ;;58016096310
  1. ;;9002226.02101,"882,58016096312 ",.01)
  1. ;;58016096312
  1. ;;9002226.02101,"882,58016096312 ",.02)
  1. ;;58016096312
  1. ;;9002226.02101,"882,58016096314 ",.01)
  1. ;;58016096314
  1. ;;9002226.02101,"882,58016096314 ",.02)
  1. ;;58016096314
  1. ;;9002226.02101,"882,58016096315 ",.01)
  1. ;;58016096315
  1. ;;9002226.02101,"882,58016096315 ",.02)
  1. ;;58016096315
  1. ;;9002226.02101,"882,58016096316 ",.01)
  1. ;;58016096316
  1. ;;9002226.02101,"882,58016096316 ",.02)
  1. ;;58016096316
  1. ;;9002226.02101,"882,58016096318 ",.01)
  1. ;;58016096318
  1. ;;9002226.02101,"882,58016096318 ",.02)
  1. ;;58016096318
  1. ;;9002226.02101,"882,58016096320 ",.01)
  1. ;;58016096320
  1. ;;9002226.02101,"882,58016096320 ",.02)
  1. ;;58016096320
  1. ;;9002226.02101,"882,58016096321 ",.01)
  1. ;;58016096321
  1. ;;9002226.02101,"882,58016096321 ",.02)
  1. ;;58016096321
  1. ;;9002226.02101,"882,58016096324 ",.01)
  1. ;;58016096324
  1. ;;9002226.02101,"882,58016096324 ",.02)
  1. ;;58016096324
  1. ;;9002226.02101,"882,58016096325 ",.01)
  1. ;;58016096325
  1. ;;9002226.02101,"882,58016096325 ",.02)
  1. ;;58016096325
  1. ;;9002226.02101,"882,58016096326 ",.01)
  1. ;;58016096326
  1. ;;9002226.02101,"882,58016096326 ",.02)
  1. ;;58016096326
  1. ;;9002226.02101,"882,58016096327 ",.01)
  1. ;;58016096327
  1. ;;9002226.02101,"882,58016096327 ",.02)
  1. ;;58016096327
  1. ;;9002226.02101,"882,58016096328 ",.01)
  1. ;;58016096328
  1. ;;9002226.02101,"882,58016096328 ",.02)
  1. ;;58016096328
  1. ;;9002226.02101,"882,58016096330 ",.01)
  1. ;;58016096330
  1. ;;9002226.02101,"882,58016096330 ",.02)
  1. ;;58016096330
  1. ;;9002226.02101,"882,58016096332 ",.01)
  1. ;;58016096332
  1. ;;9002226.02101,"882,58016096332 ",.02)
  1. ;;58016096332
  1. ;;9002226.02101,"882,58016096335 ",.01)
  1. ;;58016096335
  1. ;;9002226.02101,"882,58016096335 ",.02)
  1. ;;58016096335
  1. ;;9002226.02101,"882,58016096336 ",.01)
  1. ;;58016096336
  1. ;;9002226.02101,"882,58016096336 ",.02)
  1. ;;58016096336
  1. ;;9002226.02101,"882,58016096340 ",.01)
  1. ;;58016096340
  1. ;;9002226.02101,"882,58016096340 ",.02)
  1. ;;58016096340
  1. ;;9002226.02101,"882,58016096342 ",.01)
  1. ;;58016096342
  1. ;;9002226.02101,"882,58016096342 ",.02)
  1. ;;58016096342
  1. ;;9002226.02101,"882,58016096344 ",.01)
  1. ;;58016096344
  1. ;;9002226.02101,"882,58016096344 ",.02)
  1. ;;58016096344
  1. ;;9002226.02101,"882,58016096345 ",.01)
  1. ;;58016096345
  1. ;;9002226.02101,"882,58016096345 ",.02)
  1. ;;58016096345
  1. ;;9002226.02101,"882,58016096348 ",.01)
  1. ;;58016096348
  1. ;;9002226.02101,"882,58016096348 ",.02)
  1. ;;58016096348
  1. ;;9002226.02101,"882,58016096350 ",.01)
  1. ;;58016096350
  1. ;;9002226.02101,"882,58016096350 ",.02)
  1. ;;58016096350
  1. ;;9002226.02101,"882,58016096356 ",.01)
  1. ;;58016096356
  1. ;;9002226.02101,"882,58016096356 ",.02)
  1. ;;58016096356
  1. ;;9002226.02101,"882,58016096360 ",.01)
  1. ;;58016096360
  1. ;;9002226.02101,"882,58016096360 ",.02)
  1. ;;58016096360
  1. ;;9002226.02101,"882,58016096367 ",.01)
  1. ;;58016096367
  1. ;;9002226.02101,"882,58016096367 ",.02)
  1. ;;58016096367
  1. ;;9002226.02101,"882,58016096369 ",.01)
  1. ;;58016096369
  1. ;;9002226.02101,"882,58016096369 ",.02)
  1. ;;58016096369
  1. ;;9002226.02101,"882,58016096370 ",.01)
  1. ;;58016096370
  1. ;;9002226.02101,"882,58016096370 ",.02)
  1. ;;58016096370
  1. ;;9002226.02101,"882,58016096371 ",.01)
  1. ;;58016096371
  1. ;;9002226.02101,"882,58016096371 ",.02)
  1. ;;58016096371
  1. ;;9002226.02101,"882,58016096372 ",.01)
  1. ;;58016096372
  1. ;;9002226.02101,"882,58016096372 ",.02)
  1. ;;58016096372
  1. ;;9002226.02101,"882,58016096373 ",.01)
  1. ;;58016096373
  1. ;;9002226.02101,"882,58016096373 ",.02)
  1. ;;58016096373
  1. ;;9002226.02101,"882,58016096375 ",.01)
  1. ;;58016096375
  1. ;;9002226.02101,"882,58016096375 ",.02)
  1. ;;58016096375
  1. ;;9002226.02101,"882,58016096376 ",.01)
  1. ;;58016096376
  1. ;;9002226.02101,"882,58016096376 ",.02)
  1. ;;58016096376
  1. ;;9002226.02101,"882,58016096377 ",.01)
  1. ;;58016096377
  1. ;;9002226.02101,"882,58016096377 ",.02)
  1. ;;58016096377
  1. ;;9002226.02101,"882,58016096379 ",.01)
  1. ;;58016096379
  1. ;;9002226.02101,"882,58016096379 ",.02)
  1. ;;58016096379
  1. ;;9002226.02101,"882,58016096380 ",.01)
  1. ;;58016096380
  1. ;;9002226.02101,"882,58016096380 ",.02)
  1. ;;58016096380
  1. ;;9002226.02101,"882,58016096381 ",.01)
  1. ;;58016096381
  1. ;;9002226.02101,"882,58016096381 ",.02)
  1. ;;58016096381
  1. ;;9002226.02101,"882,58016096382 ",.01)
  1. ;;58016096382
  1. ;;9002226.02101,"882,58016096382 ",.02)
  1. ;;58016096382
  1. ;;9002226.02101,"882,58016096383 ",.01)
  1. ;;58016096383
  1. ;;9002226.02101,"882,58016096383 ",.02)
  1. ;;58016096383
  1. ;;9002226.02101,"882,58016096384 ",.01)
  1. ;;58016096384
  1. ;;9002226.02101,"882,58016096384 ",.02)
  1. ;;58016096384
  1. ;;9002226.02101,"882,58016096387 ",.01)
  1. ;;58016096387
  1. ;;9002226.02101,"882,58016096387 ",.02)
  1. ;;58016096387
  1. ;;9002226.02101,"882,58016096389 ",.01)
  1. ;;58016096389
  1. ;;9002226.02101,"882,58016096389 ",.02)
  1. ;;58016096389
  1. ;;9002226.02101,"882,58016096390 ",.01)
  1. ;;58016096390
  1. ;;9002226.02101,"882,58016096390 ",.02)
  1. ;;58016096390
  1. ;;9002226.02101,"882,58016096391 ",.01)
  1. ;;58016096391
  1. ;;9002226.02101,"882,58016096391 ",.02)
  1. ;;58016096391
  1. ;;9002226.02101,"882,58016096392 ",.01)
  1. ;;58016096392
  1. ;;9002226.02101,"882,58016096392 ",.02)
  1. ;;58016096392
  1. ;;9002226.02101,"882,58016096393 ",.01)
  1. ;;58016096393
  1. ;;9002226.02101,"882,58016096393 ",.02)
  1. ;;58016096393
  1. ;;9002226.02101,"882,58016096396 ",.01)
  1. ;;58016096396
  1. ;;9002226.02101,"882,58016096396 ",.02)
  1. ;;58016096396
  1. ;;9002226.02101,"882,58016096397 ",.01)
  1. ;;58016096397
  1. ;;9002226.02101,"882,58016096397 ",.02)
  1. ;;58016096397
  1. ;;9002226.02101,"882,58016096398 ",.01)
  1. ;;58016096398
  1. ;;9002226.02101,"882,58016096398 ",.02)
  1. ;;58016096398
  1. ;;9002226.02101,"882,58016096399 ",.01)
  1. ;;58016096399
  1. ;;9002226.02101,"882,58016096399 ",.02)
  1. ;;58016096399
  1. ;;9002226.02101,"882,58016099200 ",.01)
  1. ;;58016099200
  1. ;;9002226.02101,"882,58016099200 ",.02)
  1. ;;58016099200
  1. ;;9002226.02101,"882,58016099201 ",.01)
  1. ;;58016099201
  1. ;;9002226.02101,"882,58016099201 ",.02)
  1. ;;58016099201
  1. ;;9002226.02101,"882,58016099202 ",.01)
  1. ;;58016099202
  1. ;;9002226.02101,"882,58016099202 ",.02)
  1. ;;58016099202
  1. ;;9002226.02101,"882,58016099203 ",.01)
  1. ;;58016099203
  1. ;;9002226.02101,"882,58016099203 ",.02)
  1. ;;58016099203
  1. ;;9002226.02101,"882,58016099204 ",.01)
  1. ;;58016099204
  1. ;;9002226.02101,"882,58016099204 ",.02)
  1. ;;58016099204
  1. ;;9002226.02101,"882,58016099205 ",.01)
  1. ;;58016099205
  1. ;;9002226.02101,"882,58016099205 ",.02)
  1. ;;58016099205
  1. ;;9002226.02101,"882,58016099206 ",.01)
  1. ;;58016099206
  1. ;;9002226.02101,"882,58016099206 ",.02)
  1. ;;58016099206
  1. ;;9002226.02101,"882,58016099207 ",.01)
  1. ;;58016099207
  1. ;;9002226.02101,"882,58016099207 ",.02)
  1. ;;58016099207
  1. ;;9002226.02101,"882,58016099208 ",.01)
  1. ;;58016099208
  1. ;;9002226.02101,"882,58016099208 ",.02)
  1. ;;58016099208
  1. ;;9002226.02101,"882,58016099209 ",.01)
  1. ;;58016099209
  1. ;;9002226.02101,"882,58016099209 ",.02)
  1. ;;58016099209
  1. ;;9002226.02101,"882,58016099210 ",.01)
  1. ;;58016099210
  1. ;;9002226.02101,"882,58016099210 ",.02)
  1. ;;58016099210
  1. ;;9002226.02101,"882,58016099212 ",.01)
  1. ;;58016099212
  1. ;;9002226.02101,"882,58016099212 ",.02)
  1. ;;58016099212
  1. ;;9002226.02101,"882,58016099214 ",.01)
  1. ;;58016099214
  1. ;;9002226.02101,"882,58016099214 ",.02)
  1. ;;58016099214
  1. ;;9002226.02101,"882,58016099215 ",.01)
  1. ;;58016099215
  1. ;;9002226.02101,"882,58016099215 ",.02)
  1. ;;58016099215
  1. ;;9002226.02101,"882,58016099216 ",.01)
  1. ;;58016099216
  1. ;;9002226.02101,"882,58016099216 ",.02)
  1. ;;58016099216
  1. ;;9002226.02101,"882,58016099218 ",.01)
  1. ;;58016099218
  1. ;;9002226.02101,"882,58016099218 ",.02)
  1. ;;58016099218
  1. ;;9002226.02101,"882,58016099220 ",.01)
  1. ;;58016099220
  1. ;;9002226.02101,"882,58016099220 ",.02)
  1. ;;58016099220
  1. ;;9002226.02101,"882,58016099221 ",.01)
  1. ;;58016099221
  1. ;;9002226.02101,"882,58016099221 ",.02)
  1. ;;58016099221
  1. ;;9002226.02101,"882,58016099224 ",.01)
  1. ;;58016099224
  1. ;;9002226.02101,"882,58016099224 ",.02)
  1. ;;58016099224
  1. ;;9002226.02101,"882,58016099225 ",.01)
  1. ;;58016099225
  1. ;;9002226.02101,"882,58016099225 ",.02)
  1. ;;58016099225
  1. ;;9002226.02101,"882,58016099226 ",.01)
  1. ;;58016099226
  1. ;;9002226.02101,"882,58016099226 ",.02)
  1. ;;58016099226
  1. ;;9002226.02101,"882,58016099227 ",.01)
  1. ;;58016099227
  1. ;;9002226.02101,"882,58016099227 ",.02)
  1. ;;58016099227
  1. ;;9002226.02101,"882,58016099228 ",.01)
  1. ;;58016099228
  1. ;;9002226.02101,"882,58016099228 ",.02)
  1. ;;58016099228
  1. ;;9002226.02101,"882,58016099230 ",.01)
  1. ;;58016099230
  1. ;;9002226.02101,"882,58016099230 ",.02)
  1. ;;58016099230
  1. ;;9002226.02101,"882,58016099232 ",.01)
  1. ;;58016099232
  1. ;;9002226.02101,"882,58016099232 ",.02)
  1. ;;58016099232
  1. ;;9002226.02101,"882,58016099235 ",.01)
  1. ;;58016099235
  1. ;;9002226.02101,"882,58016099235 ",.02)
  1. ;;58016099235
  1. ;;9002226.02101,"882,58016099236 ",.01)
  1. ;;58016099236