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

BGPM5API.m

Go to the documentation of this file.
  1. BGPM5API ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 09, 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,"998,55316053576 ",.02)
  1. ;;55316053576
  1. ;;9002226.02101,"998,55567005400 ",.01)
  1. ;;55567005400
  1. ;;9002226.02101,"998,55567005400 ",.02)
  1. ;;55567005400
  1. ;;9002226.02101,"998,55567005407 ",.01)
  1. ;;55567005407
  1. ;;9002226.02101,"998,55567005407 ",.02)
  1. ;;55567005407
  1. ;;9002226.02101,"998,55567005413 ",.01)
  1. ;;55567005413
  1. ;;9002226.02101,"998,55567005413 ",.02)
  1. ;;55567005413
  1. ;;9002226.02101,"998,55567005418 ",.01)
  1. ;;55567005418
  1. ;;9002226.02101,"998,55567005418 ",.02)
  1. ;;55567005418
  1. ;;9002226.02101,"998,55567005425 ",.01)
  1. ;;55567005425
  1. ;;9002226.02101,"998,55567005425 ",.02)
  1. ;;55567005425
  1. ;;9002226.02101,"998,55670013113 ",.01)
  1. ;;55670013113
  1. ;;9002226.02101,"998,55670013113 ",.02)
  1. ;;55670013113
  1. ;;9002226.02101,"998,55670013199 ",.01)
  1. ;;55670013199
  1. ;;9002226.02101,"998,55670013199 ",.02)
  1. ;;55670013199
  1. ;;9002226.02101,"998,55670067613 ",.01)
  1. ;;55670067613
  1. ;;9002226.02101,"998,55670067613 ",.02)
  1. ;;55670067613
  1. ;;9002226.02101,"998,55670067699 ",.01)
  1. ;;55670067699
  1. ;;9002226.02101,"998,55670067699 ",.02)
  1. ;;55670067699
  1. ;;9002226.02101,"998,55887038630 ",.01)
  1. ;;55887038630
  1. ;;9002226.02101,"998,55887038630 ",.02)
  1. ;;55887038630
  1. ;;9002226.02101,"998,55887046630 ",.01)
  1. ;;55887046630
  1. ;;9002226.02101,"998,55887046630 ",.02)
  1. ;;55887046630
  1. ;;9002226.02101,"998,55887069001 ",.01)
  1. ;;55887069001
  1. ;;9002226.02101,"998,55887069001 ",.02)
  1. ;;55887069001
  1. ;;9002226.02101,"998,55910046768 ",.01)
  1. ;;55910046768
  1. ;;9002226.02101,"998,55910046768 ",.02)
  1. ;;55910046768
  1. ;;9002226.02101,"998,55966002809 ",.01)
  1. ;;55966002809
  1. ;;9002226.02101,"998,55966002809 ",.02)
  1. ;;55966002809
  1. ;;9002226.02101,"998,55966002820 ",.01)
  1. ;;55966002820
  1. ;;9002226.02101,"998,55966002820 ",.02)
  1. ;;55966002820
  1. ;;9002226.02101,"998,55966004501 ",.01)
  1. ;;55966004501
  1. ;;9002226.02101,"998,55966004501 ",.02)
  1. ;;55966004501
  1. ;;9002226.02101,"998,55966004509 ",.01)
  1. ;;55966004509
  1. ;;9002226.02101,"998,55966004509 ",.02)
  1. ;;55966004509
  1. ;;9002226.02101,"998,55966004801 ",.01)
  1. ;;55966004801
  1. ;;9002226.02101,"998,55966004801 ",.02)
  1. ;;55966004801
  1. ;;9002226.02101,"998,55966004805 ",.01)
  1. ;;55966004805
  1. ;;9002226.02101,"998,55966004805 ",.02)
  1. ;;55966004805
  1. ;;9002226.02101,"998,55966004809 ",.01)
  1. ;;55966004809
  1. ;;9002226.02101,"998,55966004809 ",.02)
  1. ;;55966004809
  1. ;;9002226.02101,"998,55966004810 ",.01)
  1. ;;55966004810
  1. ;;9002226.02101,"998,55966004810 ",.02)
  1. ;;55966004810
  1. ;;9002226.02101,"998,55966004815 ",.01)
  1. ;;55966004815
  1. ;;9002226.02101,"998,55966004815 ",.02)
  1. ;;55966004815
  1. ;;9002226.02101,"998,55966004837 ",.01)
  1. ;;55966004837
  1. ;;9002226.02101,"998,55966004837 ",.02)
  1. ;;55966004837
  1. ;;9002226.02101,"998,55966008903 ",.01)
  1. ;;55966008903
  1. ;;9002226.02101,"998,55966008903 ",.02)
  1. ;;55966008903
  1. ;;9002226.02101,"998,55966008909 ",.01)
  1. ;;55966008909
  1. ;;9002226.02101,"998,55966008909 ",.02)
  1. ;;55966008909
  1. ;;9002226.02101,"998,55966010706 ",.01)
  1. ;;55966010706
  1. ;;9002226.02101,"998,55966010706 ",.02)
  1. ;;55966010706
  1. ;;9002226.02101,"998,55966010709 ",.01)
  1. ;;55966010709
  1. ;;9002226.02101,"998,55966010709 ",.02)
  1. ;;55966010709
  1. ;;9002226.02101,"998,56062041678 ",.01)
  1. ;;56062041678
  1. ;;9002226.02101,"998,56062041678 ",.02)
  1. ;;56062041678
  1. ;;9002226.02101,"998,56062042902 ",.01)
  1. ;;56062042902
  1. ;;9002226.02101,"998,56062042902 ",.02)
  1. ;;56062042902
  1. ;;9002226.02101,"998,57394028652 ",.01)
  1. ;;57394028652
  1. ;;9002226.02101,"998,57394028652 ",.02)
  1. ;;57394028652
  1. ;;9002226.02101,"998,57394028662 ",.01)
  1. ;;57394028662
  1. ;;9002226.02101,"998,57394028662 ",.02)
  1. ;;57394028662
  1. ;;9002226.02101,"998,57480010601 ",.01)
  1. ;;57480010601
  1. ;;9002226.02101,"998,57480010601 ",.02)
  1. ;;57480010601
  1. ;;9002226.02101,"998,57480010606 ",.01)
  1. ;;57480010606
  1. ;;9002226.02101,"998,57480010606 ",.02)
  1. ;;57480010606
  1. ;;9002226.02101,"998,57561048002 ",.01)
  1. ;;57561048002
  1. ;;9002226.02101,"998,57561048002 ",.02)
  1. ;;57561048002
  1. ;;9002226.02101,"998,57664032706 ",.01)
  1. ;;57664032706
  1. ;;9002226.02101,"998,57664032706 ",.02)
  1. ;;57664032706
  1. ;;9002226.02101,"998,57664032713 ",.01)
  1. ;;57664032713
  1. ;;9002226.02101,"998,57664032713 ",.02)
  1. ;;57664032713
  1. ;;9002226.02101,"998,57664032783 ",.01)
  1. ;;57664032783
  1. ;;9002226.02101,"998,57664032783 ",.02)
  1. ;;57664032783
  1. ;;9002226.02101,"998,57866109003 ",.01)
  1. ;;57866109003
  1. ;;9002226.02101,"998,57866109003 ",.02)
  1. ;;57866109003
  1. ;;9002226.02101,"998,57866109103 ",.01)
  1. ;;57866109103
  1. ;;9002226.02101,"998,57866109103 ",.02)
  1. ;;57866109103
  1. ;;9002226.02101,"998,57896050001 ",.01)
  1. ;;57896050001
  1. ;;9002226.02101,"998,57896050001 ",.02)
  1. ;;57896050001
  1. ;;9002226.02101,"998,57896050010 ",.01)
  1. ;;57896050010
  1. ;;9002226.02101,"998,57896050010 ",.02)
  1. ;;57896050010
  1. ;;9002226.02101,"998,57896050101 ",.01)
  1. ;;57896050101
  1. ;;9002226.02101,"998,57896050101 ",.02)
  1. ;;57896050101
  1. ;;9002226.02101,"998,57896050110 ",.01)
  1. ;;57896050110
  1. ;;9002226.02101,"998,57896050110 ",.02)
  1. ;;57896050110
  1. ;;9002226.02101,"998,57896090101 ",.01)
  1. ;;57896090101
  1. ;;9002226.02101,"998,57896090101 ",.02)
  1. ;;57896090101
  1. ;;9002226.02101,"998,57896090110 ",.01)
  1. ;;57896090110
  1. ;;9002226.02101,"998,57896090110 ",.02)
  1. ;;57896090110
  1. ;;9002226.02101,"998,57896090125 ",.01)
  1. ;;57896090125
  1. ;;9002226.02101,"998,57896090125 ",.02)
  1. ;;57896090125
  1. ;;9002226.02101,"998,57896092101 ",.01)
  1. ;;57896092101
  1. ;;9002226.02101,"998,57896092101 ",.02)
  1. ;;57896092101
  1. ;;9002226.02101,"998,57896092110 ",.01)
  1. ;;57896092110
  1. ;;9002226.02101,"998,57896092110 ",.02)
  1. ;;57896092110
  1. ;;9002226.02101,"998,57896093101 ",.01)
  1. ;;57896093101
  1. ;;9002226.02101,"998,57896093101 ",.02)
  1. ;;57896093101
  1. ;;9002226.02101,"998,57896098101 ",.01)
  1. ;;57896098101
  1. ;;9002226.02101,"998,57896098101 ",.02)
  1. ;;57896098101
  1. ;;9002226.02101,"998,58005008051 ",.01)
  1. ;;58005008051
  1. ;;9002226.02101,"998,58005008051 ",.02)
  1. ;;58005008051
  1. ;;9002226.02101,"998,58005008075 ",.01)
  1. ;;58005008075
  1. ;;9002226.02101,"998,58005008075 ",.02)
  1. ;;58005008075
  1. ;;9002226.02101,"998,58005013103 ",.01)
  1. ;;58005013103
  1. ;;9002226.02101,"998,58005013103 ",.02)
  1. ;;58005013103
  1. ;;9002226.02101,"998,58005048002 ",.01)
  1. ;;58005048002
  1. ;;9002226.02101,"998,58005048002 ",.02)
  1. ;;58005048002
  1. ;;9002226.02101,"998,58016001401 ",.01)
  1. ;;58016001401
  1. ;;9002226.02101,"998,58016001401 ",.02)
  1. ;;58016001401
  1. ;;9002226.02101,"998,58016001402 ",.01)
  1. ;;58016001402
  1. ;;9002226.02101,"998,58016001402 ",.02)
  1. ;;58016001402
  1. ;;9002226.02101,"998,58016001403 ",.01)
  1. ;;58016001403
  1. ;;9002226.02101,"998,58016001403 ",.02)
  1. ;;58016001403
  1. ;;9002226.02101,"998,58016001404 ",.01)
  1. ;;58016001404
  1. ;;9002226.02101,"998,58016001404 ",.02)
  1. ;;58016001404
  1. ;;9002226.02101,"998,58016001405 ",.01)
  1. ;;58016001405
  1. ;;9002226.02101,"998,58016001405 ",.02)
  1. ;;58016001405
  1. ;;9002226.02101,"998,58016001406 ",.01)
  1. ;;58016001406
  1. ;;9002226.02101,"998,58016001406 ",.02)
  1. ;;58016001406
  1. ;;9002226.02101,"998,58016001407 ",.01)
  1. ;;58016001407
  1. ;;9002226.02101,"998,58016001407 ",.02)
  1. ;;58016001407
  1. ;;9002226.02101,"998,58016001408 ",.01)
  1. ;;58016001408
  1. ;;9002226.02101,"998,58016001408 ",.02)
  1. ;;58016001408
  1. ;;9002226.02101,"998,58016001409 ",.01)
  1. ;;58016001409
  1. ;;9002226.02101,"998,58016001409 ",.02)
  1. ;;58016001409
  1. ;;9002226.02101,"998,58016001410 ",.01)
  1. ;;58016001410
  1. ;;9002226.02101,"998,58016001410 ",.02)
  1. ;;58016001410
  1. ;;9002226.02101,"998,58016020700 ",.01)
  1. ;;58016020700
  1. ;;9002226.02101,"998,58016020700 ",.02)
  1. ;;58016020700
  1. ;;9002226.02101,"998,58016022500 ",.01)
  1. ;;58016022500
  1. ;;9002226.02101,"998,58016022500 ",.02)
  1. ;;58016022500
  1. ;;9002226.02101,"998,58016022520 ",.01)
  1. ;;58016022520
  1. ;;9002226.02101,"998,58016022520 ",.02)
  1. ;;58016022520
  1. ;;9002226.02101,"998,58016022530 ",.01)
  1. ;;58016022530
  1. ;;9002226.02101,"998,58016022530 ",.02)
  1. ;;58016022530
  1. ;;9002226.02101,"998,58016022560 ",.01)
  1. ;;58016022560
  1. ;;9002226.02101,"998,58016022560 ",.02)
  1. ;;58016022560
  1. ;;9002226.02101,"998,59088012059 ",.01)
  1. ;;59088012059
  1. ;;9002226.02101,"998,59088012059 ",.02)
  1. ;;59088012059
  1. ;;9002226.02101,"998,59618009915 ",.01)
  1. ;;59618009915
  1. ;;9002226.02101,"998,59618009915 ",.02)
  1. ;;59618009915
  1. ;;9002226.02101,"998,59779021807 ",.01)
  1. ;;59779021807
  1. ;;9002226.02101,"998,59779021807 ",.02)
  1. ;;59779021807
  1. ;;9002226.02101,"998,59779022712 ",.01)
  1. ;;59779022712
  1. ;;9002226.02101,"998,59779022712 ",.02)
  1. ;;59779022712
  1. ;;9002226.02101,"998,59779022713 ",.01)
  1. ;;59779022713
  1. ;;9002226.02101,"998,59779022713 ",.02)
  1. ;;59779022713
  1. ;;9002226.02101,"998,59779024916 ",.01)
  1. ;;59779024916
  1. ;;9002226.02101,"998,59779024916 ",.02)
  1. ;;59779024916
  1. ;;9002226.02101,"998,59779027408 ",.01)
  1. ;;59779027408
  1. ;;9002226.02101,"998,59779027408 ",.02)
  1. ;;59779027408
  1. ;;9002226.02101,"998,59779027468 ",.01)
  1. ;;59779027468
  1. ;;9002226.02101,"998,59779027468 ",.02)
  1. ;;59779027468
  1. ;;9002226.02101,"998,59779038912 ",.01)
  1. ;;59779038912
  1. ;;9002226.02101,"998,59779038912 ",.02)
  1. ;;59779038912
  1. ;;9002226.02101,"998,59779041405 ",.01)
  1. ;;59779041405
  1. ;;9002226.02101,"998,59779041405 ",.02)
  1. ;;59779041405
  1. ;;9002226.02101,"998,59779041407 ",.01)
  1. ;;59779041407
  1. ;;9002226.02101,"998,59779041407 ",.02)
  1. ;;59779041407
  1. ;;9002226.02101,"998,59779041412 ",.01)
  1. ;;59779041412
  1. ;;9002226.02101,"998,59779041412 ",.02)
  1. ;;59779041412
  1. ;;9002226.02101,"998,59779041417 ",.01)
  1. ;;59779041417
  1. ;;9002226.02101,"998,59779041417 ",.02)
  1. ;;59779041417
  1. ;;9002226.02101,"998,59779041432 ",.01)
  1. ;;59779041432
  1. ;;9002226.02101,"998,59779041432 ",.02)
  1. ;;59779041432
  1. ;;9002226.02101,"998,59779041678 ",.01)
  1. ;;59779041678
  1. ;;9002226.02101,"998,59779041678 ",.02)
  1. ;;59779041678
  1. ;;9002226.02101,"998,59779041687 ",.01)
  1. ;;59779041687
  1. ;;9002226.02101,"998,59779041687 ",.02)
  1. ;;59779041687
  1. ;;9002226.02101,"998,59779041690 ",.01)
  1. ;;59779041690
  1. ;;9002226.02101,"998,59779041690 ",.02)
  1. ;;59779041690
  1. ;;9002226.02101,"998,59779046708 ",.01)
  1. ;;59779046708
  1. ;;9002226.02101,"998,59779046708 ",.02)
  1. ;;59779046708
  1. ;;9002226.02101,"998,59779046768 ",.01)
  1. ;;59779046768
  1. ;;9002226.02101,"998,59779046768 ",.02)
  1. ;;59779046768
  1. ;;9002226.02101,"998,60429076405 ",.01)
  1. ;;60429076405
  1. ;;9002226.02101,"998,60429076405 ",.02)
  1. ;;60429076405
  1. ;;9002226.02101,"998,60429076430 ",.01)
  1. ;;60429076430
  1. ;;9002226.02101,"998,60429076430 ",.02)
  1. ;;60429076430
  1. ;;9002226.02101,"998,60429076460 ",.01)
  1. ;;60429076460
  1. ;;9002226.02101,"998,60429076460 ",.02)
  1. ;;60429076460
  1. ;;9002226.02101,"998,60505002702 ",.01)
  1. ;;60505002702
  1. ;;9002226.02101,"998,60505002702 ",.02)
  1. ;;60505002702
  1. ;;9002226.02101,"998,60505002704 ",.01)
  1. ;;60505002704
  1. ;;9002226.02101,"998,60505002704 ",.02)
  1. ;;60505002704
  1. ;;9002226.02101,"998,60505002707 ",.01)
  1. ;;60505002707
  1. ;;9002226.02101,"998,60505002707 ",.02)
  1. ;;60505002707
  1. ;;9002226.02101,"998,60505002709 ",.01)
  1. ;;60505002709
  1. ;;9002226.02101,"998,60505002709 ",.02)
  1. ;;60505002709
  1. ;;9002226.02101,"998,60505025301 ",.01)
  1. ;;60505025301
  1. ;;9002226.02101,"998,60505025301 ",.02)
  1. ;;60505025301
  1. ;;9002226.02101,"998,60505025302 ",.01)
  1. ;;60505025302
  1. ;;9002226.02101,"998,60505025302 ",.02)
  1. ;;60505025302
  1. ;;9002226.02101,"998,60505025303 ",.01)
  1. ;;60505025303
  1. ;;9002226.02101,"998,60505025303 ",.02)
  1. ;;60505025303
  1. ;;9002226.02101,"998,60505025304 ",.01)
  1. ;;60505025304
  1. ;;9002226.02101,"998,60505025304 ",.02)
  1. ;;60505025304
  1. ;;9002226.02101,"998,60809010855 ",.01)
  1. ;;60809010855
  1. ;;9002226.02101,"998,60809010855 ",.02)
  1. ;;60809010855
  1. ;;9002226.02101,"998,60809010872 ",.01)
  1. ;;60809010872
  1. ;;9002226.02101,"998,60809010872 ",.02)
  1. ;;60809010872
  1. ;;9002226.02101,"998,60814010901 ",.01)
  1. ;;60814010901