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

BGPM3ACR.m

Go to the documentation of this file.
BGPM3ACR ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
 ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
 ;
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,"786,00406206910 ",.02)
 ;;00406206910
 ;;9002226.02101,"786,00406206960 ",.01)
 ;;00406206960
 ;;9002226.02101,"786,00406206960 ",.02)
 ;;00406206960
 ;;9002226.02101,"786,00406206990 ",.01)
 ;;00406206990
 ;;9002226.02101,"786,00406206990 ",.02)
 ;;00406206990
 ;;9002226.02101,"786,00440756000 ",.01)
 ;;00440756000
 ;;9002226.02101,"786,00440756000 ",.02)
 ;;00440756000
 ;;9002226.02101,"786,00440756002 ",.01)
 ;;00440756002
 ;;9002226.02101,"786,00440756002 ",.02)
 ;;00440756002
 ;;9002226.02101,"786,00440756010 ",.01)
 ;;00440756010
 ;;9002226.02101,"786,00440756010 ",.02)
 ;;00440756010
 ;;9002226.02101,"786,00440756020 ",.01)
 ;;00440756020
 ;;9002226.02101,"786,00440756020 ",.02)
 ;;00440756020
 ;;9002226.02101,"786,00440756028 ",.01)
 ;;00440756028
 ;;9002226.02101,"786,00440756028 ",.02)
 ;;00440756028
 ;;9002226.02101,"786,00440756060 ",.01)
 ;;00440756060
 ;;9002226.02101,"786,00440756060 ",.02)
 ;;00440756060
 ;;9002226.02101,"786,00440756092 ",.01)
 ;;00440756092
 ;;9002226.02101,"786,00440756092 ",.02)
 ;;00440756092
 ;;9002226.02101,"786,00456058501 ",.01)
 ;;00456058501
 ;;9002226.02101,"786,00456058501 ",.02)
 ;;00456058501
 ;;9002226.02101,"786,00463612710 ",.01)
 ;;00463612710
 ;;9002226.02101,"786,00463612710 ",.02)
 ;;00463612710
 ;;9002226.02101,"786,00463612810 ",.01)
 ;;00463612810
 ;;9002226.02101,"786,00463612810 ",.02)
 ;;00463612810
 ;;9002226.02101,"786,00480067005 ",.01)
 ;;00480067005
 ;;9002226.02101,"786,00480067005 ",.02)
 ;;00480067005
 ;;9002226.02101,"786,00480067006 ",.01)
 ;;00480067006
 ;;9002226.02101,"786,00480067006 ",.02)
 ;;00480067006
 ;;9002226.02101,"786,00480715256 ",.01)
 ;;00480715256
 ;;9002226.02101,"786,00480715256 ",.02)
 ;;00480715256
 ;;9002226.02101,"786,00480715298 ",.01)
 ;;00480715298
 ;;9002226.02101,"786,00480715298 ",.02)
 ;;00480715298
 ;;9002226.02101,"786,00480715310 ",.01)
 ;;00480715310
 ;;9002226.02101,"786,00480715310 ",.02)
 ;;00480715310
 ;;9002226.02101,"786,00480715356 ",.01)
 ;;00480715356
 ;;9002226.02101,"786,00480715356 ",.02)
 ;;00480715356
 ;;9002226.02101,"786,00480715398 ",.01)
 ;;00480715398
 ;;9002226.02101,"786,00480715398 ",.02)
 ;;00480715398
 ;;9002226.02101,"786,00480715410 ",.01)
 ;;00480715410
 ;;9002226.02101,"786,00480715410 ",.02)
 ;;00480715410
 ;;9002226.02101,"786,00480715456 ",.01)
 ;;00480715456
 ;;9002226.02101,"786,00480715456 ",.02)
 ;;00480715456
 ;;9002226.02101,"786,00480715498 ",.01)
 ;;00480715498
 ;;9002226.02101,"786,00480715498 ",.02)
 ;;00480715498
 ;;9002226.02101,"786,00480715510 ",.01)
 ;;00480715510
 ;;9002226.02101,"786,00480715510 ",.02)
 ;;00480715510
 ;;9002226.02101,"786,00480715556 ",.01)
 ;;00480715556
 ;;9002226.02101,"786,00480715556 ",.02)
 ;;00480715556
 ;;9002226.02101,"786,00480715598 ",.01)
 ;;00480715598
 ;;9002226.02101,"786,00480715598 ",.02)
 ;;00480715598
 ;;9002226.02101,"786,00480715610 ",.01)
 ;;00480715610
 ;;9002226.02101,"786,00480715610 ",.02)
 ;;00480715610
 ;;9002226.02101,"786,00480715656 ",.01)
 ;;00480715656
 ;;9002226.02101,"786,00480715656 ",.02)
 ;;00480715656
 ;;9002226.02101,"786,00480715698 ",.01)
 ;;00480715698
 ;;9002226.02101,"786,00480715698 ",.02)
 ;;00480715698
 ;;9002226.02101,"786,00480733098 ",.01)
 ;;00480733098
 ;;9002226.02101,"786,00480733098 ",.02)
 ;;00480733098
 ;;9002226.02101,"786,00480733198 ",.01)
 ;;00480733198
 ;;9002226.02101,"786,00480733198 ",.02)
 ;;00480733198
 ;;9002226.02101,"786,00527115601 ",.01)
 ;;00527115601
 ;;9002226.02101,"786,00527115601 ",.02)
 ;;00527115601
 ;;9002226.02101,"786,00527115610 ",.01)
 ;;00527115610
 ;;9002226.02101,"786,00527115610 ",.02)
 ;;00527115610
 ;;9002226.02101,"786,00527118205 ",.01)
 ;;00527118205
 ;;9002226.02101,"786,00527118205 ",.02)
 ;;00527118205
 ;;9002226.02101,"786,00527118210 ",.01)
 ;;00527118210
 ;;9002226.02101,"786,00527118210 ",.02)
 ;;00527118210
 ;;9002226.02101,"786,00527118305 ",.01)
 ;;00527118305
 ;;9002226.02101,"786,00527118305 ",.02)
 ;;00527118305
 ;;9002226.02101,"786,00527118310 ",.01)
 ;;00527118310
 ;;9002226.02101,"786,00527118310 ",.02)
 ;;00527118310
 ;;9002226.02101,"786,00527126301 ",.01)
 ;;00527126301
 ;;9002226.02101,"786,00527126301 ",.02)
 ;;00527126301
 ;;9002226.02101,"786,00527126305 ",.01)
 ;;00527126305
 ;;9002226.02101,"786,00527126305 ",.02)
 ;;00527126305
 ;;9002226.02101,"786,00527126310 ",.01)
 ;;00527126310
 ;;9002226.02101,"786,00527126310 ",.02)
 ;;00527126310
 ;;9002226.02101,"786,00536346601 ",.01)
 ;;00536346601
 ;;9002226.02101,"786,00536346601 ",.02)
 ;;00536346601
 ;;9002226.02101,"786,00536385405 ",.01)
 ;;00536385405
 ;;9002226.02101,"786,00536385405 ",.02)
 ;;00536385405
 ;;9002226.02101,"786,00536385408 ",.01)
 ;;00536385408
 ;;9002226.02101,"786,00536385408 ",.02)
 ;;00536385408
 ;;9002226.02101,"786,00536407001 ",.01)
 ;;00536407001
 ;;9002226.02101,"786,00536407001 ",.02)
 ;;00536407001
 ;;9002226.02101,"786,00536407010 ",.01)
 ;;00536407010
 ;;9002226.02101,"786,00536407010 ",.02)
 ;;00536407010
 ;;9002226.02101,"786,00536407301 ",.01)
 ;;00536407301
 ;;9002226.02101,"786,00536407301 ",.02)
 ;;00536407301
 ;;9002226.02101,"786,00536407310 ",.01)
 ;;00536407310
 ;;9002226.02101,"786,00536407310 ",.02)
 ;;00536407310
 ;;9002226.02101,"786,00536407401 ",.01)
 ;;00536407401
 ;;9002226.02101,"786,00536407401 ",.02)
 ;;00536407401
 ;;9002226.02101,"786,00536407410 ",.01)
 ;;00536407410
 ;;9002226.02101,"786,00536407410 ",.02)
 ;;00536407410
 ;;9002226.02101,"786,00536407501 ",.01)
 ;;00536407501
 ;;9002226.02101,"786,00536407501 ",.02)
 ;;00536407501
 ;;9002226.02101,"786,00536407601 ",.01)
 ;;00536407601
 ;;9002226.02101,"786,00536407601 ",.02)
 ;;00536407601
 ;;9002226.02101,"786,00536407603 ",.01)
 ;;00536407603
 ;;9002226.02101,"786,00536407603 ",.02)
 ;;00536407603
 ;;9002226.02101,"786,00536407610 ",.01)
 ;;00536407610
 ;;9002226.02101,"786,00536407610 ",.02)
 ;;00536407610
 ;;9002226.02101,"786,00536407701 ",.01)
 ;;00536407701
 ;;9002226.02101,"786,00536407701 ",.02)
 ;;00536407701
 ;;9002226.02101,"786,00536555405 ",.01)
 ;;00536555405
 ;;9002226.02101,"786,00536555405 ",.02)
 ;;00536555405
 ;;9002226.02101,"786,00536555408 ",.01)
 ;;00536555408
 ;;9002226.02101,"786,00536555408 ",.02)
 ;;00536555408
 ;;9002226.02101,"786,00536566805 ",.01)
 ;;00536566805
 ;;9002226.02101,"786,00536566805 ",.02)
 ;;00536566805
 ;;9002226.02101,"786,00536566808 ",.01)
 ;;00536566808
 ;;9002226.02101,"786,00536566808 ",.02)
 ;;00536566808
 ;;9002226.02101,"786,00536573308 ",.01)
 ;;00536573308
 ;;9002226.02101,"786,00536573308 ",.02)
 ;;00536573308
 ;;9002226.02101,"786,00536573324 ",.01)
 ;;00536573324
 ;;9002226.02101,"786,00536573324 ",.02)
 ;;00536573324
 ;;9002226.02101,"786,00536703001 ",.01)
 ;;00536703001
 ;;9002226.02101,"786,00536703001 ",.02)
 ;;00536703001
 ;;9002226.02101,"786,00536703301 ",.01)
 ;;00536703301
 ;;9002226.02101,"786,00536703301 ",.02)
 ;;00536703301
 ;;9002226.02101,"786,00536703801 ",.01)
 ;;00536703801
 ;;9002226.02101,"786,00536703801 ",.02)
 ;;00536703801
 ;;9002226.02101,"786,00591045405 ",.01)
 ;;00591045405
 ;;9002226.02101,"786,00591045405 ",.02)
 ;;00591045405
 ;;9002226.02101,"786,00591045460 ",.01)
 ;;00591045460
 ;;9002226.02101,"786,00591045460 ",.02)
 ;;00591045460
 ;;9002226.02101,"786,00591510301 ",.01)
 ;;00591510301
 ;;9002226.02101,"786,00591510301 ",.02)
 ;;00591510301
 ;;9002226.02101,"786,00591510303 ",.01)
 ;;00591510303
 ;;9002226.02101,"786,00591510303 ",.02)
 ;;00591510303
 ;;9002226.02101,"786,00591510304 ",.01)
 ;;00591510304
 ;;9002226.02101,"786,00591510304 ",.02)
 ;;00591510304
 ;;9002226.02101,"786,00591541001 ",.01)
 ;;00591541001
 ;;9002226.02101,"786,00591541001 ",.02)
 ;;00591541001
 ;;9002226.02101,"786,00591541004 ",.01)
 ;;00591541004
 ;;9002226.02101,"786,00591541004 ",.02)
 ;;00591541004
 ;;9002226.02101,"786,00603293221 ",.01)
 ;;00603293221
 ;;9002226.02101,"786,00603293221 ",.02)
 ;;00603293221
 ;;9002226.02101,"786,00603375020 ",.01)
 ;;00603375020
 ;;9002226.02101,"786,00603375020 ",.02)
 ;;00603375020
 ;;9002226.02101,"786,00603375028 ",.01)
 ;;00603375028
 ;;9002226.02101,"786,00603375028 ",.02)
 ;;00603375028
 ;;9002226.02101,"786,00603473521 ",.01)
 ;;00603473521
 ;;9002226.02101,"786,00603473521 ",.02)
 ;;00603473521
 ;;9002226.02101,"786,00603473632 ",.01)
 ;;00603473632
 ;;9002226.02101,"786,00603473632 ",.02)
 ;;00603473632
 ;;9002226.02101,"786,00615051101 ",.01)
 ;;00615051101
 ;;9002226.02101,"786,00615051101 ",.02)
 ;;00615051101
 ;;9002226.02101,"786,00615051110 ",.01)
 ;;00615051110
 ;;9002226.02101,"786,00615051110 ",.02)
 ;;00615051110
 ;;9002226.02101,"786,00615051113 ",.01)
 ;;00615051113
 ;;9002226.02101,"786,00615051113 ",.02)
 ;;00615051113
 ;;9002226.02101,"786,00615051401 ",.01)
 ;;00615051401
 ;;9002226.02101,"786,00615051401 ",.02)
 ;;00615051401
 ;;9002226.02101,"786,00615051410 ",.01)
 ;;00615051410
 ;;9002226.02101,"786,00615051410 ",.02)
 ;;00615051410
 ;;9002226.02101,"786,00615051413 ",.01)
 ;;00615051413
 ;;9002226.02101,"786,00615051413 ",.02)
 ;;00615051413
 ;;9002226.02101,"786,00615355913 ",.01)
 ;;00615355913
 ;;9002226.02101,"786,00615355913 ",.02)
 ;;00615355913
 ;;9002226.02101,"786,00615355931 ",.01)
 ;;00615355931
 ;;9002226.02101,"786,00615355931 ",.02)
 ;;00615355931
 ;;9002226.02101,"786,00615355939 ",.01)
 ;;00615355939
 ;;9002226.02101,"786,00615355939 ",.02)
 ;;00615355939
 ;;9002226.02101,"786,00615355943 ",.01)
 ;;00615355943
 ;;9002226.02101,"786,00615355943 ",.02)
 ;;00615355943
 ;;9002226.02101,"786,00615355953 ",.01)
 ;;00615355953
 ;;9002226.02101,"786,00615355953 ",.02)
 ;;00615355953
 ;;9002226.02101,"786,00615355963 ",.01)
 ;;00615355963
 ;;9002226.02101,"786,00615355963 ",.02)
 ;;00615355963
 ;;9002226.02101,"786,00615355965 ",.01)
 ;;00615355965
 ;;9002226.02101,"786,00615355965 ",.02)
 ;;00615355965
 ;;9002226.02101,"786,00615558931 ",.01)
 ;;00615558931
 ;;9002226.02101,"786,00615558931 ",.02)
 ;;00615558931
 ;;9002226.02101,"786,00615558939 ",.01)
 ;;00615558939
 ;;9002226.02101,"786,00615558939 ",.02)
 ;;00615558939
 ;;9002226.02101,"786,00615568839 ",.01)
 ;;00615568839
 ;;9002226.02101,"786,00615568839 ",.02)
 ;;00615568839
 ;;9002226.02101,"786,00615655139 ",.01)
 ;;00615655139
 ;;9002226.02101,"786,00615655139 ",.02)
 ;;00615655139
 ;;9002226.02101,"786,00615657939 ",.01)
 ;;00615657939
 ;;9002226.02101,"786,00615657939 ",.02)
 ;;00615657939
 ;;9002226.02101,"786,00615658039 ",.01)
 ;;00615658039
 ;;9002226.02101,"786,00615658039 ",.02)
 ;;00615658039
 ;;9002226.02101,"786,00615658139 ",.01)
 ;;00615658139
 ;;9002226.02101,"786,00615658139 ",.02)
 ;;00615658139
 ;;9002226.02101,"786,00615658739 ",.01)
 ;;00615658739
 ;;9002226.02101,"786,00615658739 ",.02)
 ;;00615658739
 ;;9002226.02101,"786,00615658839 ",.01)
 ;;00615658839
 ;;9002226.02101,"786,00615658839 ",.02)
 ;;00615658839
 ;;9002226.02101,"786,00615659039 ",.01)
 ;;00615659039
 ;;9002226.02101,"786,00615659039 ",.02)
 ;;00615659039
 ;;9002226.02101,"786,00677008810 ",.01)
 ;;00677008810
 ;;9002226.02101,"786,00677008810 ",.02)
 ;;00677008810
 ;;9002226.02101,"786,00677008910 ",.01)
 ;;00677008910
 ;;9002226.02101,"786,00677008910 ",.02)
 ;;00677008910
 ;;9002226.02101,"786,00677042401 ",.01)
 ;;00677042401
 ;;9002226.02101,"786,00677042401 ",.02)
 ;;00677042401
 ;;9002226.02101,"786,00677042501 ",.01)
 ;;00677042501
 ;;9002226.02101,"786,00677042501 ",.02)
 ;;00677042501
 ;;9002226.02101,"786,00677042505 ",.01)
 ;;00677042505