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

BGPM5AVR.m

Go to the documentation of this file.
BGPM5AVR ;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,58016008644 ",.02)
 ;;58016008644
 ;;9002226.02101,"1033,58016008645 ",.01)
 ;;58016008645
 ;;9002226.02101,"1033,58016008645 ",.02)
 ;;58016008645
 ;;9002226.02101,"1033,58016008648 ",.01)
 ;;58016008648
 ;;9002226.02101,"1033,58016008648 ",.02)
 ;;58016008648
 ;;9002226.02101,"1033,58016008650 ",.01)
 ;;58016008650
 ;;9002226.02101,"1033,58016008650 ",.02)
 ;;58016008650
 ;;9002226.02101,"1033,58016008656 ",.01)
 ;;58016008656
 ;;9002226.02101,"1033,58016008656 ",.02)
 ;;58016008656
 ;;9002226.02101,"1033,58016008660 ",.01)
 ;;58016008660
 ;;9002226.02101,"1033,58016008660 ",.02)
 ;;58016008660
 ;;9002226.02101,"1033,58016008667 ",.01)
 ;;58016008667
 ;;9002226.02101,"1033,58016008667 ",.02)
 ;;58016008667
 ;;9002226.02101,"1033,58016008669 ",.01)
 ;;58016008669
 ;;9002226.02101,"1033,58016008669 ",.02)
 ;;58016008669
 ;;9002226.02101,"1033,58016008670 ",.01)
 ;;58016008670
 ;;9002226.02101,"1033,58016008670 ",.02)
 ;;58016008670
 ;;9002226.02101,"1033,58016008671 ",.01)
 ;;58016008671
 ;;9002226.02101,"1033,58016008671 ",.02)
 ;;58016008671
 ;;9002226.02101,"1033,58016008672 ",.01)
 ;;58016008672
 ;;9002226.02101,"1033,58016008672 ",.02)
 ;;58016008672
 ;;9002226.02101,"1033,58016008673 ",.01)
 ;;58016008673
 ;;9002226.02101,"1033,58016008673 ",.02)
 ;;58016008673
 ;;9002226.02101,"1033,58016008675 ",.01)
 ;;58016008675
 ;;9002226.02101,"1033,58016008675 ",.02)
 ;;58016008675
 ;;9002226.02101,"1033,58016008676 ",.01)
 ;;58016008676
 ;;9002226.02101,"1033,58016008676 ",.02)
 ;;58016008676
 ;;9002226.02101,"1033,58016008677 ",.01)
 ;;58016008677
 ;;9002226.02101,"1033,58016008677 ",.02)
 ;;58016008677
 ;;9002226.02101,"1033,58016008679 ",.01)
 ;;58016008679
 ;;9002226.02101,"1033,58016008679 ",.02)
 ;;58016008679
 ;;9002226.02101,"1033,58016008680 ",.01)
 ;;58016008680
 ;;9002226.02101,"1033,58016008680 ",.02)
 ;;58016008680
 ;;9002226.02101,"1033,58016008681 ",.01)
 ;;58016008681
 ;;9002226.02101,"1033,58016008681 ",.02)
 ;;58016008681
 ;;9002226.02101,"1033,58016008682 ",.01)
 ;;58016008682
 ;;9002226.02101,"1033,58016008682 ",.02)
 ;;58016008682
 ;;9002226.02101,"1033,58016008683 ",.01)
 ;;58016008683
 ;;9002226.02101,"1033,58016008683 ",.02)
 ;;58016008683
 ;;9002226.02101,"1033,58016008684 ",.01)
 ;;58016008684
 ;;9002226.02101,"1033,58016008684 ",.02)
 ;;58016008684
 ;;9002226.02101,"1033,58016008687 ",.01)
 ;;58016008687
 ;;9002226.02101,"1033,58016008687 ",.02)
 ;;58016008687
 ;;9002226.02101,"1033,58016008689 ",.01)
 ;;58016008689
 ;;9002226.02101,"1033,58016008689 ",.02)
 ;;58016008689
 ;;9002226.02101,"1033,58016008690 ",.01)
 ;;58016008690
 ;;9002226.02101,"1033,58016008690 ",.02)
 ;;58016008690
 ;;9002226.02101,"1033,58016008691 ",.01)
 ;;58016008691
 ;;9002226.02101,"1033,58016008691 ",.02)
 ;;58016008691
 ;;9002226.02101,"1033,58016008692 ",.01)
 ;;58016008692
 ;;9002226.02101,"1033,58016008692 ",.02)
 ;;58016008692
 ;;9002226.02101,"1033,58016008693 ",.01)
 ;;58016008693
 ;;9002226.02101,"1033,58016008693 ",.02)
 ;;58016008693
 ;;9002226.02101,"1033,58016008696 ",.01)
 ;;58016008696
 ;;9002226.02101,"1033,58016008696 ",.02)
 ;;58016008696
 ;;9002226.02101,"1033,58016008697 ",.01)
 ;;58016008697
 ;;9002226.02101,"1033,58016008697 ",.02)
 ;;58016008697
 ;;9002226.02101,"1033,58016008698 ",.01)
 ;;58016008698
 ;;9002226.02101,"1033,58016008698 ",.02)
 ;;58016008698
 ;;9002226.02101,"1033,58016008699 ",.01)
 ;;58016008699
 ;;9002226.02101,"1033,58016008699 ",.02)
 ;;58016008699
 ;;9002226.02101,"1033,58016010100 ",.01)
 ;;58016010100
 ;;9002226.02101,"1033,58016010100 ",.02)
 ;;58016010100
 ;;9002226.02101,"1033,58016010108 ",.01)
 ;;58016010108
 ;;9002226.02101,"1033,58016010108 ",.02)
 ;;58016010108
 ;;9002226.02101,"1033,58016010110 ",.01)
 ;;58016010110
 ;;9002226.02101,"1033,58016010110 ",.02)
 ;;58016010110
 ;;9002226.02101,"1033,58016010112 ",.01)
 ;;58016010112
 ;;9002226.02101,"1033,58016010112 ",.02)
 ;;58016010112
 ;;9002226.02101,"1033,58016010114 ",.01)
 ;;58016010114
 ;;9002226.02101,"1033,58016010114 ",.02)
 ;;58016010114
 ;;9002226.02101,"1033,58016010120 ",.01)
 ;;58016010120
 ;;9002226.02101,"1033,58016010120 ",.02)
 ;;58016010120
 ;;9002226.02101,"1033,58016010124 ",.01)
 ;;58016010124
 ;;9002226.02101,"1033,58016010124 ",.02)
 ;;58016010124
 ;;9002226.02101,"1033,58016010128 ",.01)
 ;;58016010128
 ;;9002226.02101,"1033,58016010128 ",.02)
 ;;58016010128
 ;;9002226.02101,"1033,58016010130 ",.01)
 ;;58016010130
 ;;9002226.02101,"1033,58016010130 ",.02)
 ;;58016010130
 ;;9002226.02101,"1033,58016010140 ",.01)
 ;;58016010140
 ;;9002226.02101,"1033,58016010140 ",.02)
 ;;58016010140
 ;;9002226.02101,"1033,58016010150 ",.01)
 ;;58016010150
 ;;9002226.02101,"1033,58016010150 ",.02)
 ;;58016010150
 ;;9002226.02101,"1033,58016010160 ",.01)
 ;;58016010160
 ;;9002226.02101,"1033,58016010160 ",.02)
 ;;58016010160
 ;;9002226.02101,"1033,58016010190 ",.01)
 ;;58016010190
 ;;9002226.02101,"1033,58016010190 ",.02)
 ;;58016010190
 ;;9002226.02101,"1033,58016010200 ",.01)
 ;;58016010200
 ;;9002226.02101,"1033,58016010200 ",.02)
 ;;58016010200
 ;;9002226.02101,"1033,58016010210 ",.01)
 ;;58016010210
 ;;9002226.02101,"1033,58016010210 ",.02)
 ;;58016010210
 ;;9002226.02101,"1033,58016010212 ",.01)
 ;;58016010212
 ;;9002226.02101,"1033,58016010212 ",.02)
 ;;58016010212
 ;;9002226.02101,"1033,58016010214 ",.01)
 ;;58016010214
 ;;9002226.02101,"1033,58016010214 ",.02)
 ;;58016010214
 ;;9002226.02101,"1033,58016010215 ",.01)
 ;;58016010215
 ;;9002226.02101,"1033,58016010215 ",.02)
 ;;58016010215
 ;;9002226.02101,"1033,58016010220 ",.01)
 ;;58016010220
 ;;9002226.02101,"1033,58016010220 ",.02)
 ;;58016010220
 ;;9002226.02101,"1033,58016010224 ",.01)
 ;;58016010224
 ;;9002226.02101,"1033,58016010224 ",.02)
 ;;58016010224
 ;;9002226.02101,"1033,58016010228 ",.01)
 ;;58016010228
 ;;9002226.02101,"1033,58016010228 ",.02)
 ;;58016010228
 ;;9002226.02101,"1033,58016010230 ",.01)
 ;;58016010230
 ;;9002226.02101,"1033,58016010230 ",.02)
 ;;58016010230
 ;;9002226.02101,"1033,58016010240 ",.01)
 ;;58016010240
 ;;9002226.02101,"1033,58016010240 ",.02)
 ;;58016010240
 ;;9002226.02101,"1033,58016010250 ",.01)
 ;;58016010250
 ;;9002226.02101,"1033,58016010250 ",.02)
 ;;58016010250
 ;;9002226.02101,"1033,58016010260 ",.01)
 ;;58016010260
 ;;9002226.02101,"1033,58016010260 ",.02)
 ;;58016010260
 ;;9002226.02101,"1033,58016010290 ",.01)
 ;;58016010290
 ;;9002226.02101,"1033,58016010290 ",.02)
 ;;58016010290
 ;;9002226.02101,"1033,58016010300 ",.01)
 ;;58016010300
 ;;9002226.02101,"1033,58016010300 ",.02)
 ;;58016010300
 ;;9002226.02101,"1033,58016010309 ",.01)
 ;;58016010309
 ;;9002226.02101,"1033,58016010309 ",.02)
 ;;58016010309
 ;;9002226.02101,"1033,58016010312 ",.01)
 ;;58016010312
 ;;9002226.02101,"1033,58016010312 ",.02)
 ;;58016010312
 ;;9002226.02101,"1033,58016010315 ",.01)
 ;;58016010315
 ;;9002226.02101,"1033,58016010315 ",.02)
 ;;58016010315
 ;;9002226.02101,"1033,58016010318 ",.01)
 ;;58016010318
 ;;9002226.02101,"1033,58016010318 ",.02)
 ;;58016010318
 ;;9002226.02101,"1033,58016010320 ",.01)
 ;;58016010320
 ;;9002226.02101,"1033,58016010320 ",.02)
 ;;58016010320
 ;;9002226.02101,"1033,58016010321 ",.01)
 ;;58016010321
 ;;9002226.02101,"1033,58016010321 ",.02)
 ;;58016010321
 ;;9002226.02101,"1033,58016010324 ",.01)
 ;;58016010324
 ;;9002226.02101,"1033,58016010324 ",.02)
 ;;58016010324
 ;;9002226.02101,"1033,58016010330 ",.01)
 ;;58016010330
 ;;9002226.02101,"1033,58016010330 ",.02)
 ;;58016010330
 ;;9002226.02101,"1033,58016010340 ",.01)
 ;;58016010340
 ;;9002226.02101,"1033,58016010340 ",.02)
 ;;58016010340
 ;;9002226.02101,"1033,58016010400 ",.01)
 ;;58016010400
 ;;9002226.02101,"1033,58016010400 ",.02)
 ;;58016010400
 ;;9002226.02101,"1033,58016010401 ",.01)
 ;;58016010401
 ;;9002226.02101,"1033,58016010401 ",.02)
 ;;58016010401
 ;;9002226.02101,"1033,58016010402 ",.01)
 ;;58016010402
 ;;9002226.02101,"1033,58016010402 ",.02)
 ;;58016010402
 ;;9002226.02101,"1033,58016010403 ",.01)
 ;;58016010403
 ;;9002226.02101,"1033,58016010403 ",.02)
 ;;58016010403
 ;;9002226.02101,"1033,58016010404 ",.01)
 ;;58016010404
 ;;9002226.02101,"1033,58016010404 ",.02)
 ;;58016010404
 ;;9002226.02101,"1033,58016010407 ",.01)
 ;;58016010407
 ;;9002226.02101,"1033,58016010407 ",.02)
 ;;58016010407
 ;;9002226.02101,"1033,58016010408 ",.01)
 ;;58016010408
 ;;9002226.02101,"1033,58016010408 ",.02)
 ;;58016010408
 ;;9002226.02101,"1033,58016010409 ",.01)
 ;;58016010409
 ;;9002226.02101,"1033,58016010409 ",.02)
 ;;58016010409
 ;;9002226.02101,"1033,58016010410 ",.01)
 ;;58016010410
 ;;9002226.02101,"1033,58016010410 ",.02)
 ;;58016010410
 ;;9002226.02101,"1033,58016010412 ",.01)
 ;;58016010412
 ;;9002226.02101,"1033,58016010412 ",.02)
 ;;58016010412
 ;;9002226.02101,"1033,58016010414 ",.01)
 ;;58016010414
 ;;9002226.02101,"1033,58016010414 ",.02)
 ;;58016010414
 ;;9002226.02101,"1033,58016010415 ",.01)
 ;;58016010415
 ;;9002226.02101,"1033,58016010415 ",.02)
 ;;58016010415
 ;;9002226.02101,"1033,58016010416 ",.01)
 ;;58016010416
 ;;9002226.02101,"1033,58016010416 ",.02)
 ;;58016010416
 ;;9002226.02101,"1033,58016010418 ",.01)
 ;;58016010418
 ;;9002226.02101,"1033,58016010418 ",.02)
 ;;58016010418
 ;;9002226.02101,"1033,58016010420 ",.01)
 ;;58016010420
 ;;9002226.02101,"1033,58016010420 ",.02)
 ;;58016010420
 ;;9002226.02101,"1033,58016010421 ",.01)
 ;;58016010421
 ;;9002226.02101,"1033,58016010421 ",.02)
 ;;58016010421
 ;;9002226.02101,"1033,58016010424 ",.01)
 ;;58016010424
 ;;9002226.02101,"1033,58016010424 ",.02)
 ;;58016010424
 ;;9002226.02101,"1033,58016010425 ",.01)
 ;;58016010425
 ;;9002226.02101,"1033,58016010425 ",.02)
 ;;58016010425
 ;;9002226.02101,"1033,58016010426 ",.01)
 ;;58016010426
 ;;9002226.02101,"1033,58016010426 ",.02)
 ;;58016010426
 ;;9002226.02101,"1033,58016010427 ",.01)
 ;;58016010427
 ;;9002226.02101,"1033,58016010427 ",.02)
 ;;58016010427
 ;;9002226.02101,"1033,58016010428 ",.01)
 ;;58016010428
 ;;9002226.02101,"1033,58016010428 ",.02)
 ;;58016010428
 ;;9002226.02101,"1033,58016010430 ",.01)
 ;;58016010430
 ;;9002226.02101,"1033,58016010430 ",.02)
 ;;58016010430
 ;;9002226.02101,"1033,58016010432 ",.01)
 ;;58016010432
 ;;9002226.02101,"1033,58016010432 ",.02)
 ;;58016010432
 ;;9002226.02101,"1033,58016010435 ",.01)
 ;;58016010435
 ;;9002226.02101,"1033,58016010435 ",.02)
 ;;58016010435
 ;;9002226.02101,"1033,58016010436 ",.01)
 ;;58016010436
 ;;9002226.02101,"1033,58016010436 ",.02)
 ;;58016010436
 ;;9002226.02101,"1033,58016010440 ",.01)
 ;;58016010440
 ;;9002226.02101,"1033,58016010440 ",.02)
 ;;58016010440
 ;;9002226.02101,"1033,58016010442 ",.01)
 ;;58016010442
 ;;9002226.02101,"1033,58016010442 ",.02)
 ;;58016010442
 ;;9002226.02101,"1033,58016010444 ",.01)
 ;;58016010444
 ;;9002226.02101,"1033,58016010444 ",.02)
 ;;58016010444
 ;;9002226.02101,"1033,58016010445 ",.01)
 ;;58016010445
 ;;9002226.02101,"1033,58016010445 ",.02)
 ;;58016010445
 ;;9002226.02101,"1033,58016010448 ",.01)
 ;;58016010448
 ;;9002226.02101,"1033,58016010448 ",.02)
 ;;58016010448
 ;;9002226.02101,"1033,58016010450 ",.01)
 ;;58016010450
 ;;9002226.02101,"1033,58016010450 ",.02)
 ;;58016010450
 ;;9002226.02101,"1033,58016010456 ",.01)
 ;;58016010456
 ;;9002226.02101,"1033,58016010456 ",.02)
 ;;58016010456
 ;;9002226.02101,"1033,58016010460 ",.01)
 ;;58016010460
 ;;9002226.02101,"1033,58016010460 ",.02)
 ;;58016010460
 ;;9002226.02101,"1033,58016010470 ",.01)
 ;;58016010470
 ;;9002226.02101,"1033,58016010470 ",.02)
 ;;58016010470