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