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

BGPM3ABU.m

Go to the documentation of this file.
  1. BGPM3ABU ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
  1. ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
  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,"775,60760003410 ",.01)
  1. ;;60760003410
  1. ;;9002226.02101,"775,60760003410 ",.02)
  1. ;;60760003410
  1. ;;9002226.02101,"775,60760003425 ",.01)
  1. ;;60760003425
  1. ;;9002226.02101,"775,60760003425 ",.02)
  1. ;;60760003425
  1. ;;9002226.02101,"775,60760003430 ",.01)
  1. ;;60760003430
  1. ;;9002226.02101,"775,60760003430 ",.02)
  1. ;;60760003430
  1. ;;9002226.02101,"775,60809010855 ",.01)
  1. ;;60809010855
  1. ;;9002226.02101,"775,60809010855 ",.02)
  1. ;;60809010855
  1. ;;9002226.02101,"775,60809010872 ",.01)
  1. ;;60809010872
  1. ;;9002226.02101,"775,60809010872 ",.02)
  1. ;;60809010872
  1. ;;9002226.02101,"775,60814010901 ",.01)
  1. ;;60814010901
  1. ;;9002226.02101,"775,60814010901 ",.02)
  1. ;;60814010901
  1. ;;9002226.02101,"775,60814010910 ",.01)
  1. ;;60814010910
  1. ;;9002226.02101,"775,60814010910 ",.02)
  1. ;;60814010910
  1. ;;9002226.02101,"775,60814011010 ",.01)
  1. ;;60814011010
  1. ;;9002226.02101,"775,60814011010 ",.02)
  1. ;;60814011010
  1. ;;9002226.02101,"775,60814011025 ",.01)
  1. ;;60814011025
  1. ;;9002226.02101,"775,60814011025 ",.02)
  1. ;;60814011025
  1. ;;9002226.02101,"775,60814011101 ",.01)
  1. ;;60814011101
  1. ;;9002226.02101,"775,60814011101 ",.02)
  1. ;;60814011101
  1. ;;9002226.02101,"775,60814011110 ",.01)
  1. ;;60814011110
  1. ;;9002226.02101,"775,60814011110 ",.02)
  1. ;;60814011110
  1. ;;9002226.02101,"775,60814011199 ",.01)
  1. ;;60814011199
  1. ;;9002226.02101,"775,60814011199 ",.02)
  1. ;;60814011199
  1. ;;9002226.02101,"775,60814017212 ",.01)
  1. ;;60814017212
  1. ;;9002226.02101,"775,60814017212 ",.02)
  1. ;;60814017212
  1. ;;9002226.02101,"775,60814017536 ",.01)
  1. ;;60814017536
  1. ;;9002226.02101,"775,60814017536 ",.02)
  1. ;;60814017536
  1. ;;9002226.02101,"775,61073001301 ",.01)
  1. ;;61073001301
  1. ;;9002226.02101,"775,61073001301 ",.02)
  1. ;;61073001301
  1. ;;9002226.02101,"775,61073001401 ",.01)
  1. ;;61073001401
  1. ;;9002226.02101,"775,61073001401 ",.02)
  1. ;;61073001401
  1. ;;9002226.02101,"775,61073001410 ",.01)
  1. ;;61073001410
  1. ;;9002226.02101,"775,61073001410 ",.02)
  1. ;;61073001410
  1. ;;9002226.02101,"775,61392003230 ",.01)
  1. ;;61392003230
  1. ;;9002226.02101,"775,61392003230 ",.02)
  1. ;;61392003230
  1. ;;9002226.02101,"775,61392003231 ",.01)
  1. ;;61392003231
  1. ;;9002226.02101,"775,61392003231 ",.02)
  1. ;;61392003231
  1. ;;9002226.02101,"775,61392003232 ",.01)
  1. ;;61392003232
  1. ;;9002226.02101,"775,61392003232 ",.02)
  1. ;;61392003232
  1. ;;9002226.02101,"775,61392003239 ",.01)
  1. ;;61392003239
  1. ;;9002226.02101,"775,61392003239 ",.02)
  1. ;;61392003239
  1. ;;9002226.02101,"775,61392003260 ",.01)
  1. ;;61392003260
  1. ;;9002226.02101,"775,61392003260 ",.02)
  1. ;;61392003260
  1. ;;9002226.02101,"775,61392003265 ",.01)
  1. ;;61392003265
  1. ;;9002226.02101,"775,61392003265 ",.02)
  1. ;;61392003265
  1. ;;9002226.02101,"775,61392003330 ",.01)
  1. ;;61392003330
  1. ;;9002226.02101,"775,61392003330 ",.02)
  1. ;;61392003330
  1. ;;9002226.02101,"775,61392003331 ",.01)
  1. ;;61392003331
  1. ;;9002226.02101,"775,61392003331 ",.02)
  1. ;;61392003331
  1. ;;9002226.02101,"775,61392003332 ",.01)
  1. ;;61392003332
  1. ;;9002226.02101,"775,61392003332 ",.02)
  1. ;;61392003332
  1. ;;9002226.02101,"775,61392003339 ",.01)
  1. ;;61392003339
  1. ;;9002226.02101,"775,61392003339 ",.02)
  1. ;;61392003339
  1. ;;9002226.02101,"775,61392003360 ",.01)
  1. ;;61392003360
  1. ;;9002226.02101,"775,61392003360 ",.02)
  1. ;;61392003360
  1. ;;9002226.02101,"775,61392003365 ",.01)
  1. ;;61392003365
  1. ;;9002226.02101,"775,61392003365 ",.02)
  1. ;;61392003365
  1. ;;9002226.02101,"775,61392003395 ",.01)
  1. ;;61392003395
  1. ;;9002226.02101,"775,61392003395 ",.02)
  1. ;;61392003395
  1. ;;9002226.02101,"775,61392009630 ",.01)
  1. ;;61392009630
  1. ;;9002226.02101,"775,61392009630 ",.02)
  1. ;;61392009630
  1. ;;9002226.02101,"775,61392009631 ",.01)
  1. ;;61392009631
  1. ;;9002226.02101,"775,61392009631 ",.02)
  1. ;;61392009631
  1. ;;9002226.02101,"775,61392009632 ",.01)
  1. ;;61392009632
  1. ;;9002226.02101,"775,61392009632 ",.02)
  1. ;;61392009632
  1. ;;9002226.02101,"775,61392009639 ",.01)
  1. ;;61392009639
  1. ;;9002226.02101,"775,61392009639 ",.02)
  1. ;;61392009639
  1. ;;9002226.02101,"775,61392009660 ",.01)
  1. ;;61392009660
  1. ;;9002226.02101,"775,61392009660 ",.02)
  1. ;;61392009660
  1. ;;9002226.02101,"775,61392090325 ",.01)
  1. ;;61392090325
  1. ;;9002226.02101,"775,61392090325 ",.02)
  1. ;;61392090325
  1. ;;9002226.02101,"775,61392090330 ",.01)
  1. ;;61392090330
  1. ;;9002226.02101,"775,61392090330 ",.02)
  1. ;;61392090330
  1. ;;9002226.02101,"775,61392090331 ",.01)
  1. ;;61392090331
  1. ;;9002226.02101,"775,61392090331 ",.02)
  1. ;;61392090331
  1. ;;9002226.02101,"775,61392090339 ",.01)
  1. ;;61392090339
  1. ;;9002226.02101,"775,61392090339 ",.02)
  1. ;;61392090339
  1. ;;9002226.02101,"775,61392090360 ",.01)
  1. ;;61392090360
  1. ;;9002226.02101,"775,61392090360 ",.02)
  1. ;;61392090360
  1. ;;9002226.02101,"775,61392090365 ",.01)
  1. ;;61392090365
  1. ;;9002226.02101,"775,61392090365 ",.02)
  1. ;;61392090365
  1. ;;9002226.02101,"775,61392090390 ",.01)
  1. ;;61392090390
  1. ;;9002226.02101,"775,61392090390 ",.02)
  1. ;;61392090390
  1. ;;9002226.02101,"775,61392090395 ",.01)
  1. ;;61392090395
  1. ;;9002226.02101,"775,61392090395 ",.02)
  1. ;;61392090395
  1. ;;9002226.02101,"775,61392090423 ",.01)
  1. ;;61392090423
  1. ;;9002226.02101,"775,61392090423 ",.02)
  1. ;;61392090423
  1. ;;9002226.02101,"775,61392090425 ",.01)
  1. ;;61392090425
  1. ;;9002226.02101,"775,61392090425 ",.02)
  1. ;;61392090425
  1. ;;9002226.02101,"775,61392090430 ",.01)
  1. ;;61392090430
  1. ;;9002226.02101,"775,61392090430 ",.02)
  1. ;;61392090430
  1. ;;9002226.02101,"775,61392090431 ",.01)
  1. ;;61392090431
  1. ;;9002226.02101,"775,61392090431 ",.02)
  1. ;;61392090431
  1. ;;9002226.02101,"775,61392090439 ",.01)
  1. ;;61392090439
  1. ;;9002226.02101,"775,61392090439 ",.02)
  1. ;;61392090439
  1. ;;9002226.02101,"775,61392090460 ",.01)
  1. ;;61392090460
  1. ;;9002226.02101,"775,61392090460 ",.02)
  1. ;;61392090460
  1. ;;9002226.02101,"775,61392090465 ",.01)
  1. ;;61392090465
  1. ;;9002226.02101,"775,61392090465 ",.02)
  1. ;;61392090465
  1. ;;9002226.02101,"775,61392090490 ",.01)
  1. ;;61392090490
  1. ;;9002226.02101,"775,61392090490 ",.02)
  1. ;;61392090490
  1. ;;9002226.02101,"775,61392090495 ",.01)
  1. ;;61392090495
  1. ;;9002226.02101,"775,61392090495 ",.02)
  1. ;;61392090495
  1. ;;9002226.02101,"775,61392090523 ",.01)
  1. ;;61392090523
  1. ;;9002226.02101,"775,61392090523 ",.02)
  1. ;;61392090523
  1. ;;9002226.02101,"775,61392090525 ",.01)
  1. ;;61392090525
  1. ;;9002226.02101,"775,61392090525 ",.02)
  1. ;;61392090525
  1. ;;9002226.02101,"775,61392090530 ",.01)
  1. ;;61392090530
  1. ;;9002226.02101,"775,61392090530 ",.02)
  1. ;;61392090530
  1. ;;9002226.02101,"775,61392090531 ",.01)
  1. ;;61392090531
  1. ;;9002226.02101,"775,61392090531 ",.02)
  1. ;;61392090531
  1. ;;9002226.02101,"775,61392090539 ",.01)
  1. ;;61392090539
  1. ;;9002226.02101,"775,61392090539 ",.02)
  1. ;;61392090539
  1. ;;9002226.02101,"775,61392090560 ",.01)
  1. ;;61392090560
  1. ;;9002226.02101,"775,61392090560 ",.02)
  1. ;;61392090560
  1. ;;9002226.02101,"775,61392090565 ",.01)
  1. ;;61392090565
  1. ;;9002226.02101,"775,61392090565 ",.02)
  1. ;;61392090565
  1. ;;9002226.02101,"775,61392090590 ",.01)
  1. ;;61392090590
  1. ;;9002226.02101,"775,61392090590 ",.02)
  1. ;;61392090590
  1. ;;9002226.02101,"775,61392090595 ",.01)
  1. ;;61392090595
  1. ;;9002226.02101,"775,61392090595 ",.02)
  1. ;;61392090595
  1. ;;9002226.02101,"775,61392090625 ",.01)
  1. ;;61392090625
  1. ;;9002226.02101,"775,61392090625 ",.02)
  1. ;;61392090625
  1. ;;9002226.02101,"775,61392090630 ",.01)
  1. ;;61392090630
  1. ;;9002226.02101,"775,61392090630 ",.02)
  1. ;;61392090630
  1. ;;9002226.02101,"775,61392090631 ",.01)
  1. ;;61392090631
  1. ;;9002226.02101,"775,61392090631 ",.02)
  1. ;;61392090631
  1. ;;9002226.02101,"775,61392090639 ",.01)
  1. ;;61392090639
  1. ;;9002226.02101,"775,61392090639 ",.02)
  1. ;;61392090639
  1. ;;9002226.02101,"775,61392090660 ",.01)
  1. ;;61392090660
  1. ;;9002226.02101,"775,61392090660 ",.02)
  1. ;;61392090660
  1. ;;9002226.02101,"775,61392090665 ",.01)
  1. ;;61392090665
  1. ;;9002226.02101,"775,61392090665 ",.02)
  1. ;;61392090665
  1. ;;9002226.02101,"775,61392090690 ",.01)
  1. ;;61392090690
  1. ;;9002226.02101,"775,61392090690 ",.02)
  1. ;;61392090690
  1. ;;9002226.02101,"775,61392090695 ",.01)
  1. ;;61392090695
  1. ;;9002226.02101,"775,61392090695 ",.02)
  1. ;;61392090695
  1. ;;9002226.02101,"775,61392090723 ",.01)
  1. ;;61392090723
  1. ;;9002226.02101,"775,61392090723 ",.02)
  1. ;;61392090723
  1. ;;9002226.02101,"775,61392090725 ",.01)
  1. ;;61392090725
  1. ;;9002226.02101,"775,61392090725 ",.02)
  1. ;;61392090725
  1. ;;9002226.02101,"775,61392090730 ",.01)
  1. ;;61392090730
  1. ;;9002226.02101,"775,61392090730 ",.02)
  1. ;;61392090730
  1. ;;9002226.02101,"775,61392090731 ",.01)
  1. ;;61392090731
  1. ;;9002226.02101,"775,61392090731 ",.02)
  1. ;;61392090731
  1. ;;9002226.02101,"775,61392090739 ",.01)
  1. ;;61392090739
  1. ;;9002226.02101,"775,61392090739 ",.02)
  1. ;;61392090739
  1. ;;9002226.02101,"775,61392090760 ",.01)
  1. ;;61392090760
  1. ;;9002226.02101,"775,61392090760 ",.02)
  1. ;;61392090760
  1. ;;9002226.02101,"775,61392090765 ",.01)
  1. ;;61392090765
  1. ;;9002226.02101,"775,61392090765 ",.02)
  1. ;;61392090765
  1. ;;9002226.02101,"775,61392090790 ",.01)
  1. ;;61392090790
  1. ;;9002226.02101,"775,61392090790 ",.02)
  1. ;;61392090790
  1. ;;9002226.02101,"775,61392090795 ",.01)
  1. ;;61392090795
  1. ;;9002226.02101,"775,61392090795 ",.02)
  1. ;;61392090795
  1. ;;9002226.02101,"775,61392090825 ",.01)
  1. ;;61392090825
  1. ;;9002226.02101,"775,61392090825 ",.02)
  1. ;;61392090825
  1. ;;9002226.02101,"775,61392090830 ",.01)
  1. ;;61392090830
  1. ;;9002226.02101,"775,61392090830 ",.02)
  1. ;;61392090830
  1. ;;9002226.02101,"775,61392090831 ",.01)
  1. ;;61392090831
  1. ;;9002226.02101,"775,61392090831 ",.02)
  1. ;;61392090831
  1. ;;9002226.02101,"775,61392090839 ",.01)
  1. ;;61392090839
  1. ;;9002226.02101,"775,61392090839 ",.02)
  1. ;;61392090839
  1. ;;9002226.02101,"775,61392090860 ",.01)
  1. ;;61392090860
  1. ;;9002226.02101,"775,61392090860 ",.02)
  1. ;;61392090860
  1. ;;9002226.02101,"775,61392090865 ",.01)
  1. ;;61392090865
  1. ;;9002226.02101,"775,61392090865 ",.02)
  1. ;;61392090865
  1. ;;9002226.02101,"775,61392090890 ",.01)
  1. ;;61392090890
  1. ;;9002226.02101,"775,61392090890 ",.02)
  1. ;;61392090890
  1. ;;9002226.02101,"775,61392090895 ",.01)
  1. ;;61392090895
  1. ;;9002226.02101,"775,61392090895 ",.02)
  1. ;;61392090895
  1. ;;9002226.02101,"775,61392090925 ",.01)
  1. ;;61392090925
  1. ;;9002226.02101,"775,61392090925 ",.02)
  1. ;;61392090925
  1. ;;9002226.02101,"775,61392090930 ",.01)
  1. ;;61392090930
  1. ;;9002226.02101,"775,61392090930 ",.02)
  1. ;;61392090930
  1. ;;9002226.02101,"775,61392090931 ",.01)
  1. ;;61392090931
  1. ;;9002226.02101,"775,61392090931 ",.02)
  1. ;;61392090931
  1. ;;9002226.02101,"775,61392090939 ",.01)
  1. ;;61392090939
  1. ;;9002226.02101,"775,61392090939 ",.02)
  1. ;;61392090939
  1. ;;9002226.02101,"775,61392090960 ",.01)
  1. ;;61392090960
  1. ;;9002226.02101,"775,61392090960 ",.02)
  1. ;;61392090960
  1. ;;9002226.02101,"775,61392090965 ",.01)
  1. ;;61392090965
  1. ;;9002226.02101,"775,61392090965 ",.02)
  1. ;;61392090965
  1. ;;9002226.02101,"775,61392090990 ",.01)
  1. ;;61392090990
  1. ;;9002226.02101,"775,61392090990 ",.02)
  1. ;;61392090990
  1. ;;9002226.02101,"775,61392090995 ",.01)
  1. ;;61392090995
  1. ;;9002226.02101,"775,61392090995 ",.02)
  1. ;;61392090995
  1. ;;9002226.02101,"775,61392091125 ",.01)
  1. ;;61392091125
  1. ;;9002226.02101,"775,61392091125 ",.02)
  1. ;;61392091125
  1. ;;9002226.02101,"775,61392091130 ",.01)
  1. ;;61392091130
  1. ;;9002226.02101,"775,61392091130 ",.02)
  1. ;;61392091130
  1. ;;9002226.02101,"775,61392091131 ",.01)
  1. ;;61392091131
  1. ;;9002226.02101,"775,61392091131 ",.02)
  1. ;;61392091131
  1. ;;9002226.02101,"775,61392091139 ",.01)
  1. ;;61392091139
  1. ;;9002226.02101,"775,61392091139 ",.02)
  1. ;;61392091139
  1. ;;9002226.02101,"775,61392091160 ",.01)
  1. ;;61392091160
  1. ;;9002226.02101,"775,61392091160 ",.02)
  1. ;;61392091160
  1. ;;9002226.02101,"775,61392091165 ",.01)
  1. ;;61392091165
  1. ;;9002226.02101,"775,61392091165 ",.02)
  1. ;;61392091165
  1. ;;9002226.02101,"775,61392091190 ",.01)
  1. ;;61392091190
  1. ;;9002226.02101,"775,61392091190 ",.02)
  1. ;;61392091190
  1. ;;9002226.02101,"775,61392091195 ",.01)
  1. ;;61392091195
  1. ;;9002226.02101,"775,61392091195 ",.02)
  1. ;;61392091195