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