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

BGPM3AAR.m

Go to the documentation of this file.
  1. BGPM3AAR ;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,"774,65243027506 ",.02)
  1. ;;65243027506
  1. ;;9002226.02101,"774,65243027509 ",.01)
  1. ;;65243027509
  1. ;;9002226.02101,"774,65243027509 ",.02)
  1. ;;65243027509
  1. ;;9002226.02101,"774,65243027545 ",.01)
  1. ;;65243027545
  1. ;;9002226.02101,"774,65243027545 ",.02)
  1. ;;65243027545
  1. ;;9002226.02101,"774,65243027603 ",.01)
  1. ;;65243027603
  1. ;;9002226.02101,"774,65243027603 ",.02)
  1. ;;65243027603
  1. ;;9002226.02101,"774,65243027606 ",.01)
  1. ;;65243027606
  1. ;;9002226.02101,"774,65243027606 ",.02)
  1. ;;65243027606
  1. ;;9002226.02101,"774,65243027609 ",.01)
  1. ;;65243027609
  1. ;;9002226.02101,"774,65243027609 ",.02)
  1. ;;65243027609
  1. ;;9002226.02101,"774,65243027645 ",.01)
  1. ;;65243027645
  1. ;;9002226.02101,"774,65243027645 ",.02)
  1. ;;65243027645
  1. ;;9002226.02101,"774,65243027803 ",.01)
  1. ;;65243027803
  1. ;;9002226.02101,"774,65243027803 ",.02)
  1. ;;65243027803
  1. ;;9002226.02101,"774,65243027806 ",.01)
  1. ;;65243027806
  1. ;;9002226.02101,"774,65243027806 ",.02)
  1. ;;65243027806
  1. ;;9002226.02101,"774,65243027809 ",.01)
  1. ;;65243027809
  1. ;;9002226.02101,"774,65243027809 ",.02)
  1. ;;65243027809
  1. ;;9002226.02101,"774,65243027845 ",.01)
  1. ;;65243027845
  1. ;;9002226.02101,"774,65243027845 ",.02)
  1. ;;65243027845
  1. ;;9002226.02101,"774,65841005201 ",.01)
  1. ;;65841005201
  1. ;;9002226.02101,"774,65841005201 ",.02)
  1. ;;65841005201
  1. ;;9002226.02101,"774,65841005210 ",.01)
  1. ;;65841005210
  1. ;;9002226.02101,"774,65841005210 ",.02)
  1. ;;65841005210
  1. ;;9002226.02101,"774,65841005301 ",.01)
  1. ;;65841005301
  1. ;;9002226.02101,"774,65841005301 ",.02)
  1. ;;65841005301
  1. ;;9002226.02101,"774,65841005310 ",.01)
  1. ;;65841005310
  1. ;;9002226.02101,"774,65841005310 ",.02)
  1. ;;65841005310
  1. ;;9002226.02101,"774,65841005401 ",.01)
  1. ;;65841005401
  1. ;;9002226.02101,"774,65841005401 ",.02)
  1. ;;65841005401
  1. ;;9002226.02101,"774,65841005410 ",.01)
  1. ;;65841005410
  1. ;;9002226.02101,"774,65841005410 ",.02)
  1. ;;65841005410
  1. ;;9002226.02101,"774,65841005501 ",.01)
  1. ;;65841005501
  1. ;;9002226.02101,"774,65841005501 ",.02)
  1. ;;65841005501
  1. ;;9002226.02101,"774,65841005510 ",.01)
  1. ;;65841005510
  1. ;;9002226.02101,"774,65841005510 ",.02)
  1. ;;65841005510
  1. ;;9002226.02101,"774,65841005601 ",.01)
  1. ;;65841005601
  1. ;;9002226.02101,"774,65841005601 ",.02)
  1. ;;65841005601
  1. ;;9002226.02101,"774,65841005610 ",.01)
  1. ;;65841005610
  1. ;;9002226.02101,"774,65841005610 ",.02)
  1. ;;65841005610
  1. ;;9002226.02101,"774,65841005701 ",.01)
  1. ;;65841005701
  1. ;;9002226.02101,"774,65841005701 ",.02)
  1. ;;65841005701
  1. ;;9002226.02101,"774,65841005801 ",.01)
  1. ;;65841005801
  1. ;;9002226.02101,"774,65841005801 ",.02)
  1. ;;65841005801
  1. ;;9002226.02101,"774,65841005901 ",.01)
  1. ;;65841005901
  1. ;;9002226.02101,"774,65841005901 ",.02)
  1. ;;65841005901
  1. ;;9002226.02101,"774,65841006401 ",.01)
  1. ;;65841006401
  1. ;;9002226.02101,"774,65841006401 ",.02)
  1. ;;65841006401
  1. ;;9002226.02101,"774,65841006410 ",.01)
  1. ;;65841006410
  1. ;;9002226.02101,"774,65841006410 ",.02)
  1. ;;65841006410
  1. ;;9002226.02101,"774,66267026820 ",.01)
  1. ;;66267026820
  1. ;;9002226.02101,"774,66267026820 ",.02)
  1. ;;66267026820
  1. ;;9002226.02101,"774,66267026830 ",.01)
  1. ;;66267026830
  1. ;;9002226.02101,"774,66267026830 ",.02)
  1. ;;66267026830
  1. ;;9002226.02101,"774,66267027730 ",.01)
  1. ;;66267027730
  1. ;;9002226.02101,"774,66267027730 ",.02)
  1. ;;66267027730
  1. ;;9002226.02101,"774,66267067230 ",.01)
  1. ;;66267067230
  1. ;;9002226.02101,"774,66267067230 ",.02)
  1. ;;66267067230
  1. ;;9002226.02101,"774,66336024930 ",.01)
  1. ;;66336024930
  1. ;;9002226.02101,"774,66336024930 ",.02)
  1. ;;66336024930
  1. ;;9002226.02101,"774,66336025030 ",.01)
  1. ;;66336025030
  1. ;;9002226.02101,"774,66336025030 ",.02)
  1. ;;66336025030
  1. ;;9002226.02101,"774,66336025130 ",.01)
  1. ;;66336025130
  1. ;;9002226.02101,"774,66336025130 ",.02)
  1. ;;66336025130
  1. ;;9002226.02101,"774,66336025230 ",.01)
  1. ;;66336025230
  1. ;;9002226.02101,"774,66336025230 ",.02)
  1. ;;66336025230
  1. ;;9002226.02101,"774,66336082530 ",.01)
  1. ;;66336082530
  1. ;;9002226.02101,"774,66336082530 ",.02)
  1. ;;66336082530
  1. ;;9002226.02101,"774,67544031815 ",.01)
  1. ;;67544031815
  1. ;;9002226.02101,"774,67544031815 ",.02)
  1. ;;67544031815
  1. ;;9002226.02101,"774,67544031830 ",.01)
  1. ;;67544031830
  1. ;;9002226.02101,"774,67544031830 ",.02)
  1. ;;67544031830
  1. ;;9002226.02101,"774,67544031831 ",.01)
  1. ;;67544031831
  1. ;;9002226.02101,"774,67544031831 ",.02)
  1. ;;67544031831
  1. ;;9002226.02101,"774,67544031845 ",.01)
  1. ;;67544031845
  1. ;;9002226.02101,"774,67544031845 ",.02)
  1. ;;67544031845
  1. ;;9002226.02101,"774,67544031853 ",.01)
  1. ;;67544031853
  1. ;;9002226.02101,"774,67544031853 ",.02)
  1. ;;67544031853
  1. ;;9002226.02101,"774,67544085932 ",.01)
  1. ;;67544085932
  1. ;;9002226.02101,"774,67544085932 ",.02)
  1. ;;67544085932
  1. ;;9002226.02101,"774,67544086032 ",.01)
  1. ;;67544086032
  1. ;;9002226.02101,"774,67544086032 ",.02)
  1. ;;67544086032
  1. ;;9002226.02101,"774,67544091719 ",.01)
  1. ;;67544091719
  1. ;;9002226.02101,"774,67544091719 ",.02)
  1. ;;67544091719
  1. ;;9002226.02101,"774,67544097132 ",.01)
  1. ;;67544097132
  1. ;;9002226.02101,"774,67544097132 ",.02)
  1. ;;67544097132
  1. ;;9002226.02101,"774,67544099030 ",.01)
  1. ;;67544099030
  1. ;;9002226.02101,"774,67544099030 ",.02)
  1. ;;67544099030
  1. ;;9002226.02101,"774,68071020230 ",.01)
  1. ;;68071020230
  1. ;;9002226.02101,"774,68071020230 ",.02)
  1. ;;68071020230
  1. ;;9002226.02101,"774,68080402777 ",.01)
  1. ;;68080402777
  1. ;;9002226.02101,"774,68080402777 ",.02)
  1. ;;68080402777
  1. ;;9002226.02101,"774,68080414677 ",.01)
  1. ;;68080414677
  1. ;;9002226.02101,"774,68080414677 ",.02)
  1. ;;68080414677
  1. ;;9002226.02101,"774,68080414877 ",.01)
  1. ;;68080414877
  1. ;;9002226.02101,"774,68080414877 ",.02)
  1. ;;68080414877
  1. ;;9002226.02101,"774,68084002701 ",.01)
  1. ;;68084002701
  1. ;;9002226.02101,"774,68084002701 ",.02)
  1. ;;68084002701
  1. ;;9002226.02101,"774,68084002711 ",.01)
  1. ;;68084002711
  1. ;;9002226.02101,"774,68084002711 ",.02)
  1. ;;68084002711
  1. ;;9002226.02101,"774,68084014677 ",.01)
  1. ;;68084014677
  1. ;;9002226.02101,"774,68084014677 ",.02)
  1. ;;68084014677
  1. ;;9002226.02101,"774,68084402777 ",.01)
  1. ;;68084402777
  1. ;;9002226.02101,"774,68084402777 ",.02)
  1. ;;68084402777
  1. ;;9002226.02101,"774,68084414777 ",.01)
  1. ;;68084414777
  1. ;;9002226.02101,"774,68084414777 ",.02)
  1. ;;68084414777
  1. ;;9002226.02101,"774,68115035930 ",.01)
  1. ;;68115035930
  1. ;;9002226.02101,"774,68115035930 ",.02)
  1. ;;68115035930
  1. ;;9002226.02101,"774,68115039930 ",.01)
  1. ;;68115039930
  1. ;;9002226.02101,"774,68115039930 ",.02)
  1. ;;68115039930
  1. ;;9002226.02101,"774,68115065900 ",.01)
  1. ;;68115065900
  1. ;;9002226.02101,"774,68115065900 ",.02)
  1. ;;68115065900
  1. ;;9002226.02101,"774,68382005201 ",.01)
  1. ;;68382005201
  1. ;;9002226.02101,"774,68382005201 ",.02)
  1. ;;68382005201
  1. ;;9002226.02101,"774,68382005210 ",.01)
  1. ;;68382005210
  1. ;;9002226.02101,"774,68382005210 ",.02)
  1. ;;68382005210
  1. ;;9002226.02101,"774,68382005301 ",.01)
  1. ;;68382005301
  1. ;;9002226.02101,"774,68382005301 ",.02)
  1. ;;68382005301
  1. ;;9002226.02101,"774,68382005310 ",.01)
  1. ;;68382005310
  1. ;;9002226.02101,"774,68382005310 ",.02)
  1. ;;68382005310
  1. ;;9002226.02101,"774,68382005401 ",.01)
  1. ;;68382005401
  1. ;;9002226.02101,"774,68382005401 ",.02)
  1. ;;68382005401
  1. ;;9002226.02101,"774,68382005410 ",.01)
  1. ;;68382005410
  1. ;;9002226.02101,"774,68382005410 ",.02)
  1. ;;68382005410
  1. ;;9002226.02101,"774,68382005501 ",.01)
  1. ;;68382005501
  1. ;;9002226.02101,"774,68382005501 ",.02)
  1. ;;68382005501
  1. ;;9002226.02101,"774,68382005510 ",.01)
  1. ;;68382005510
  1. ;;9002226.02101,"774,68382005510 ",.02)
  1. ;;68382005510
  1. ;;9002226.02101,"774,68382005601 ",.01)
  1. ;;68382005601
  1. ;;9002226.02101,"774,68382005601 ",.02)
  1. ;;68382005601
  1. ;;9002226.02101,"774,68382005610 ",.01)
  1. ;;68382005610
  1. ;;9002226.02101,"774,68382005610 ",.02)
  1. ;;68382005610
  1. ;;9002226.02101,"774,68382005701 ",.01)
  1. ;;68382005701
  1. ;;9002226.02101,"774,68382005701 ",.02)
  1. ;;68382005701
  1. ;;9002226.02101,"774,68382005710 ",.01)
  1. ;;68382005710
  1. ;;9002226.02101,"774,68382005710 ",.02)
  1. ;;68382005710
  1. ;;9002226.02101,"774,68382005801 ",.01)
  1. ;;68382005801
  1. ;;9002226.02101,"774,68382005801 ",.02)
  1. ;;68382005801
  1. ;;9002226.02101,"774,68382005901 ",.01)
  1. ;;68382005901
  1. ;;9002226.02101,"774,68382005901 ",.02)
  1. ;;68382005901
  1. ;;9002226.02101,"774,68382006401 ",.01)
  1. ;;68382006401
  1. ;;9002226.02101,"774,68382006401 ",.02)
  1. ;;68382006401
  1. ;;9002226.02101,"774,68382006410 ",.01)
  1. ;;68382006410
  1. ;;9002226.02101,"774,68382006410 ",.02)
  1. ;;68382006410