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

BGPM5AJV.m

Go to the documentation of this file.
BGPM5AJV ;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,"889,58016004530 ",.01)
 ;;58016004530
 ;;9002226.02101,"889,58016004530 ",.02)
 ;;58016004530
 ;;9002226.02101,"889,58016004560 ",.01)
 ;;58016004560
 ;;9002226.02101,"889,58016004560 ",.02)
 ;;58016004560
 ;;9002226.02101,"889,58016004590 ",.01)
 ;;58016004590
 ;;9002226.02101,"889,58016004590 ",.02)
 ;;58016004590
 ;;9002226.02101,"889,58016028600 ",.01)
 ;;58016028600
 ;;9002226.02101,"889,58016028600 ",.02)
 ;;58016028600
 ;;9002226.02101,"889,58016028601 ",.01)
 ;;58016028601
 ;;9002226.02101,"889,58016028601 ",.02)
 ;;58016028601
 ;;9002226.02101,"889,58016028602 ",.01)
 ;;58016028602
 ;;9002226.02101,"889,58016028602 ",.02)
 ;;58016028602
 ;;9002226.02101,"889,58016028603 ",.01)
 ;;58016028603
 ;;9002226.02101,"889,58016028603 ",.02)
 ;;58016028603
 ;;9002226.02101,"889,58016028604 ",.01)
 ;;58016028604
 ;;9002226.02101,"889,58016028604 ",.02)
 ;;58016028604
 ;;9002226.02101,"889,58016028605 ",.01)
 ;;58016028605
 ;;9002226.02101,"889,58016028605 ",.02)
 ;;58016028605
 ;;9002226.02101,"889,58016028606 ",.01)
 ;;58016028606
 ;;9002226.02101,"889,58016028606 ",.02)
 ;;58016028606
 ;;9002226.02101,"889,58016028607 ",.01)
 ;;58016028607
 ;;9002226.02101,"889,58016028607 ",.02)
 ;;58016028607
 ;;9002226.02101,"889,58016028608 ",.01)
 ;;58016028608
 ;;9002226.02101,"889,58016028608 ",.02)
 ;;58016028608
 ;;9002226.02101,"889,58016028609 ",.01)
 ;;58016028609
 ;;9002226.02101,"889,58016028609 ",.02)
 ;;58016028609
 ;;9002226.02101,"889,58016028610 ",.01)
 ;;58016028610
 ;;9002226.02101,"889,58016028610 ",.02)
 ;;58016028610
 ;;9002226.02101,"889,58016028612 ",.01)
 ;;58016028612
 ;;9002226.02101,"889,58016028612 ",.02)
 ;;58016028612
 ;;9002226.02101,"889,58016028614 ",.01)
 ;;58016028614
 ;;9002226.02101,"889,58016028614 ",.02)
 ;;58016028614
 ;;9002226.02101,"889,58016028615 ",.01)
 ;;58016028615
 ;;9002226.02101,"889,58016028615 ",.02)
 ;;58016028615
 ;;9002226.02101,"889,58016028616 ",.01)
 ;;58016028616
 ;;9002226.02101,"889,58016028616 ",.02)
 ;;58016028616
 ;;9002226.02101,"889,58016028618 ",.01)
 ;;58016028618
 ;;9002226.02101,"889,58016028618 ",.02)
 ;;58016028618
 ;;9002226.02101,"889,58016028620 ",.01)
 ;;58016028620
 ;;9002226.02101,"889,58016028620 ",.02)
 ;;58016028620
 ;;9002226.02101,"889,58016028621 ",.01)
 ;;58016028621
 ;;9002226.02101,"889,58016028621 ",.02)
 ;;58016028621
 ;;9002226.02101,"889,58016028624 ",.01)
 ;;58016028624
 ;;9002226.02101,"889,58016028624 ",.02)
 ;;58016028624
 ;;9002226.02101,"889,58016028625 ",.01)
 ;;58016028625
 ;;9002226.02101,"889,58016028625 ",.02)
 ;;58016028625
 ;;9002226.02101,"889,58016028626 ",.01)
 ;;58016028626
 ;;9002226.02101,"889,58016028626 ",.02)
 ;;58016028626
 ;;9002226.02101,"889,58016028627 ",.01)
 ;;58016028627
 ;;9002226.02101,"889,58016028627 ",.02)
 ;;58016028627
 ;;9002226.02101,"889,58016028628 ",.01)
 ;;58016028628
 ;;9002226.02101,"889,58016028628 ",.02)
 ;;58016028628
 ;;9002226.02101,"889,58016028630 ",.01)
 ;;58016028630
 ;;9002226.02101,"889,58016028630 ",.02)
 ;;58016028630
 ;;9002226.02101,"889,58016028632 ",.01)
 ;;58016028632
 ;;9002226.02101,"889,58016028632 ",.02)
 ;;58016028632
 ;;9002226.02101,"889,58016028635 ",.01)
 ;;58016028635
 ;;9002226.02101,"889,58016028635 ",.02)
 ;;58016028635
 ;;9002226.02101,"889,58016028636 ",.01)
 ;;58016028636
 ;;9002226.02101,"889,58016028636 ",.02)
 ;;58016028636
 ;;9002226.02101,"889,58016028640 ",.01)
 ;;58016028640
 ;;9002226.02101,"889,58016028640 ",.02)
 ;;58016028640
 ;;9002226.02101,"889,58016028642 ",.01)
 ;;58016028642
 ;;9002226.02101,"889,58016028642 ",.02)
 ;;58016028642
 ;;9002226.02101,"889,58016028644 ",.01)
 ;;58016028644
 ;;9002226.02101,"889,58016028644 ",.02)
 ;;58016028644
 ;;9002226.02101,"889,58016028645 ",.01)
 ;;58016028645
 ;;9002226.02101,"889,58016028645 ",.02)
 ;;58016028645
 ;;9002226.02101,"889,58016028648 ",.01)
 ;;58016028648
 ;;9002226.02101,"889,58016028648 ",.02)
 ;;58016028648
 ;;9002226.02101,"889,58016028650 ",.01)
 ;;58016028650
 ;;9002226.02101,"889,58016028650 ",.02)
 ;;58016028650
 ;;9002226.02101,"889,58016028656 ",.01)
 ;;58016028656
 ;;9002226.02101,"889,58016028656 ",.02)
 ;;58016028656
 ;;9002226.02101,"889,58016028660 ",.01)
 ;;58016028660
 ;;9002226.02101,"889,58016028660 ",.02)
 ;;58016028660
 ;;9002226.02101,"889,58016028667 ",.01)
 ;;58016028667
 ;;9002226.02101,"889,58016028667 ",.02)
 ;;58016028667
 ;;9002226.02101,"889,58016028669 ",.01)
 ;;58016028669
 ;;9002226.02101,"889,58016028669 ",.02)
 ;;58016028669
 ;;9002226.02101,"889,58016028670 ",.01)
 ;;58016028670
 ;;9002226.02101,"889,58016028670 ",.02)
 ;;58016028670
 ;;9002226.02101,"889,58016028671 ",.01)
 ;;58016028671
 ;;9002226.02101,"889,58016028671 ",.02)
 ;;58016028671
 ;;9002226.02101,"889,58016028672 ",.01)
 ;;58016028672
 ;;9002226.02101,"889,58016028672 ",.02)
 ;;58016028672
 ;;9002226.02101,"889,58016028673 ",.01)
 ;;58016028673
 ;;9002226.02101,"889,58016028673 ",.02)
 ;;58016028673
 ;;9002226.02101,"889,58016028675 ",.01)
 ;;58016028675
 ;;9002226.02101,"889,58016028675 ",.02)
 ;;58016028675
 ;;9002226.02101,"889,58016028676 ",.01)
 ;;58016028676
 ;;9002226.02101,"889,58016028676 ",.02)
 ;;58016028676
 ;;9002226.02101,"889,58016028677 ",.01)
 ;;58016028677
 ;;9002226.02101,"889,58016028677 ",.02)
 ;;58016028677
 ;;9002226.02101,"889,58016028679 ",.01)
 ;;58016028679
 ;;9002226.02101,"889,58016028679 ",.02)
 ;;58016028679
 ;;9002226.02101,"889,58016028680 ",.01)
 ;;58016028680
 ;;9002226.02101,"889,58016028680 ",.02)
 ;;58016028680
 ;;9002226.02101,"889,58016028681 ",.01)
 ;;58016028681
 ;;9002226.02101,"889,58016028681 ",.02)
 ;;58016028681
 ;;9002226.02101,"889,58016028682 ",.01)
 ;;58016028682
 ;;9002226.02101,"889,58016028682 ",.02)
 ;;58016028682
 ;;9002226.02101,"889,58016028683 ",.01)
 ;;58016028683
 ;;9002226.02101,"889,58016028683 ",.02)
 ;;58016028683
 ;;9002226.02101,"889,58016028684 ",.01)
 ;;58016028684
 ;;9002226.02101,"889,58016028684 ",.02)
 ;;58016028684
 ;;9002226.02101,"889,58016028687 ",.01)
 ;;58016028687
 ;;9002226.02101,"889,58016028687 ",.02)
 ;;58016028687
 ;;9002226.02101,"889,58016028689 ",.01)
 ;;58016028689
 ;;9002226.02101,"889,58016028689 ",.02)
 ;;58016028689
 ;;9002226.02101,"889,58016028690 ",.01)
 ;;58016028690
 ;;9002226.02101,"889,58016028690 ",.02)
 ;;58016028690
 ;;9002226.02101,"889,58016028691 ",.01)
 ;;58016028691
 ;;9002226.02101,"889,58016028691 ",.02)
 ;;58016028691
 ;;9002226.02101,"889,58016028692 ",.01)
 ;;58016028692
 ;;9002226.02101,"889,58016028692 ",.02)
 ;;58016028692
 ;;9002226.02101,"889,58016028693 ",.01)
 ;;58016028693
 ;;9002226.02101,"889,58016028693 ",.02)
 ;;58016028693
 ;;9002226.02101,"889,58016028696 ",.01)
 ;;58016028696
 ;;9002226.02101,"889,58016028696 ",.02)
 ;;58016028696
 ;;9002226.02101,"889,58016028697 ",.01)
 ;;58016028697
 ;;9002226.02101,"889,58016028697 ",.02)
 ;;58016028697
 ;;9002226.02101,"889,58016028698 ",.01)
 ;;58016028698
 ;;9002226.02101,"889,58016028698 ",.02)
 ;;58016028698
 ;;9002226.02101,"889,58016028699 ",.01)
 ;;58016028699
 ;;9002226.02101,"889,58016028699 ",.02)
 ;;58016028699
 ;;9002226.02101,"889,58016033101 ",.01)
 ;;58016033101
 ;;9002226.02101,"889,58016033101 ",.02)
 ;;58016033101
 ;;9002226.02101,"889,58016033102 ",.01)
 ;;58016033102
 ;;9002226.02101,"889,58016033102 ",.02)
 ;;58016033102
 ;;9002226.02101,"889,58016033103 ",.01)
 ;;58016033103
 ;;9002226.02101,"889,58016033103 ",.02)
 ;;58016033103
 ;;9002226.02101,"889,58016033104 ",.01)
 ;;58016033104
 ;;9002226.02101,"889,58016033104 ",.02)
 ;;58016033104
 ;;9002226.02101,"889,58016033105 ",.01)
 ;;58016033105
 ;;9002226.02101,"889,58016033105 ",.02)
 ;;58016033105
 ;;9002226.02101,"889,58016033300 ",.01)
 ;;58016033300
 ;;9002226.02101,"889,58016033300 ",.02)
 ;;58016033300
 ;;9002226.02101,"889,58016033315 ",.01)
 ;;58016033315
 ;;9002226.02101,"889,58016033315 ",.02)
 ;;58016033315
 ;;9002226.02101,"889,58016033330 ",.01)
 ;;58016033330
 ;;9002226.02101,"889,58016033330 ",.02)
 ;;58016033330
 ;;9002226.02101,"889,58016033360 ",.01)
 ;;58016033360
 ;;9002226.02101,"889,58016033360 ",.02)
 ;;58016033360
 ;;9002226.02101,"889,58016037300 ",.01)
 ;;58016037300
 ;;9002226.02101,"889,58016037300 ",.02)
 ;;58016037300
 ;;9002226.02101,"889,58016037301 ",.01)
 ;;58016037301
 ;;9002226.02101,"889,58016037301 ",.02)
 ;;58016037301
 ;;9002226.02101,"889,58016037302 ",.01)
 ;;58016037302
 ;;9002226.02101,"889,58016037302 ",.02)
 ;;58016037302
 ;;9002226.02101,"889,58016037303 ",.01)
 ;;58016037303
 ;;9002226.02101,"889,58016037303 ",.02)
 ;;58016037303
 ;;9002226.02101,"889,58016037304 ",.01)
 ;;58016037304
 ;;9002226.02101,"889,58016037304 ",.02)
 ;;58016037304
 ;;9002226.02101,"889,58016037305 ",.01)
 ;;58016037305
 ;;9002226.02101,"889,58016037305 ",.02)
 ;;58016037305
 ;;9002226.02101,"889,58016037306 ",.01)
 ;;58016037306
 ;;9002226.02101,"889,58016037306 ",.02)
 ;;58016037306
 ;;9002226.02101,"889,58016037307 ",.01)
 ;;58016037307
 ;;9002226.02101,"889,58016037307 ",.02)
 ;;58016037307
 ;;9002226.02101,"889,58016037308 ",.01)
 ;;58016037308
 ;;9002226.02101,"889,58016037308 ",.02)
 ;;58016037308
 ;;9002226.02101,"889,58016037309 ",.01)
 ;;58016037309
 ;;9002226.02101,"889,58016037309 ",.02)
 ;;58016037309
 ;;9002226.02101,"889,58016037310 ",.01)
 ;;58016037310
 ;;9002226.02101,"889,58016037310 ",.02)
 ;;58016037310
 ;;9002226.02101,"889,58016037312 ",.01)
 ;;58016037312
 ;;9002226.02101,"889,58016037312 ",.02)
 ;;58016037312
 ;;9002226.02101,"889,58016037314 ",.01)
 ;;58016037314
 ;;9002226.02101,"889,58016037314 ",.02)
 ;;58016037314
 ;;9002226.02101,"889,58016037315 ",.01)
 ;;58016037315
 ;;9002226.02101,"889,58016037315 ",.02)
 ;;58016037315
 ;;9002226.02101,"889,58016037316 ",.01)
 ;;58016037316
 ;;9002226.02101,"889,58016037316 ",.02)
 ;;58016037316
 ;;9002226.02101,"889,58016037318 ",.01)
 ;;58016037318
 ;;9002226.02101,"889,58016037318 ",.02)
 ;;58016037318
 ;;9002226.02101,"889,58016037321 ",.01)
 ;;58016037321
 ;;9002226.02101,"889,58016037321 ",.02)
 ;;58016037321
 ;;9002226.02101,"889,58016037324 ",.01)
 ;;58016037324
 ;;9002226.02101,"889,58016037324 ",.02)
 ;;58016037324
 ;;9002226.02101,"889,58016037325 ",.01)
 ;;58016037325
 ;;9002226.02101,"889,58016037325 ",.02)
 ;;58016037325
 ;;9002226.02101,"889,58016037326 ",.01)
 ;;58016037326
 ;;9002226.02101,"889,58016037326 ",.02)
 ;;58016037326
 ;;9002226.02101,"889,58016037327 ",.01)
 ;;58016037327
 ;;9002226.02101,"889,58016037327 ",.02)
 ;;58016037327
 ;;9002226.02101,"889,58016037328 ",.01)
 ;;58016037328
 ;;9002226.02101,"889,58016037328 ",.02)
 ;;58016037328
 ;;9002226.02101,"889,58016037330 ",.01)
 ;;58016037330
 ;;9002226.02101,"889,58016037330 ",.02)
 ;;58016037330
 ;;9002226.02101,"889,58016037332 ",.01)
 ;;58016037332
 ;;9002226.02101,"889,58016037332 ",.02)
 ;;58016037332
 ;;9002226.02101,"889,58016037335 ",.01)
 ;;58016037335
 ;;9002226.02101,"889,58016037335 ",.02)
 ;;58016037335
 ;;9002226.02101,"889,58016037336 ",.01)
 ;;58016037336
 ;;9002226.02101,"889,58016037336 ",.02)
 ;;58016037336
 ;;9002226.02101,"889,58016037342 ",.01)
 ;;58016037342
 ;;9002226.02101,"889,58016037342 ",.02)
 ;;58016037342
 ;;9002226.02101,"889,58016037344 ",.01)
 ;;58016037344
 ;;9002226.02101,"889,58016037344 ",.02)
 ;;58016037344
 ;;9002226.02101,"889,58016037345 ",.01)
 ;;58016037345
 ;;9002226.02101,"889,58016037345 ",.02)
 ;;58016037345
 ;;9002226.02101,"889,58016037348 ",.01)
 ;;58016037348
 ;;9002226.02101,"889,58016037348 ",.02)
 ;;58016037348