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

BGPM5ACO.m

Go to the documentation of this file.
BGPM5ACO ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 2011;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
 ;
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,"846,00093834498 ",.02)
 ;;00093834498
 ;;9002226.02101,"846,00093936401 ",.01)
 ;;00093936401
 ;;9002226.02101,"846,00093936401 ",.02)
 ;;00093936401
 ;;9002226.02101,"846,00093936405 ",.01)
 ;;00093936405
 ;;9002226.02101,"846,00093936405 ",.02)
 ;;00093936405
 ;;9002226.02101,"846,00093936410 ",.01)
 ;;00093936410
 ;;9002226.02101,"846,00093936410 ",.02)
 ;;00093936410
 ;;9002226.02101,"846,00093943301 ",.01)
 ;;00093943301
 ;;9002226.02101,"846,00093943301 ",.02)
 ;;00093943301
 ;;9002226.02101,"846,00093943305 ",.01)
 ;;00093943305
 ;;9002226.02101,"846,00093943305 ",.02)
 ;;00093943305
 ;;9002226.02101,"846,00093947753 ",.01)
 ;;00093947753
 ;;9002226.02101,"846,00093947753 ",.02)
 ;;00093947753
 ;;9002226.02101,"846,00143991801 ",.01)
 ;;00143991801
 ;;9002226.02101,"846,00143991801 ",.02)
 ;;00143991801
 ;;9002226.02101,"846,00143991805 ",.01)
 ;;00143991805
 ;;9002226.02101,"846,00143991805 ",.02)
 ;;00143991805
 ;;9002226.02101,"846,00143991901 ",.01)
 ;;00143991901
 ;;9002226.02101,"846,00143991901 ",.02)
 ;;00143991901
 ;;9002226.02101,"846,00143991905 ",.01)
 ;;00143991905
 ;;9002226.02101,"846,00143991905 ",.02)
 ;;00143991905
 ;;9002226.02101,"846,00143991910 ",.01)
 ;;00143991910
 ;;9002226.02101,"846,00143991910 ",.02)
 ;;00143991910
 ;;9002226.02101,"846,00143992001 ",.01)
 ;;00143992001
 ;;9002226.02101,"846,00143992001 ",.02)
 ;;00143992001
 ;;9002226.02101,"846,00143992005 ",.01)
 ;;00143992005
 ;;9002226.02101,"846,00143992005 ",.02)
 ;;00143992005
 ;;9002226.02101,"846,00143992010 ",.01)
 ;;00143992010
 ;;9002226.02101,"846,00143992010 ",.02)
 ;;00143992010
 ;;9002226.02101,"846,00143997301 ",.01)
 ;;00143997301
 ;;9002226.02101,"846,00143997301 ",.02)
 ;;00143997301
 ;;9002226.02101,"846,00143997305 ",.01)
 ;;00143997305
 ;;9002226.02101,"846,00143997305 ",.02)
 ;;00143997305
 ;;9002226.02101,"846,00143997330 ",.01)
 ;;00143997330
 ;;9002226.02101,"846,00143997330 ",.02)
 ;;00143997330
 ;;9002226.02101,"846,00143997401 ",.01)
 ;;00143997401
 ;;9002226.02101,"846,00143997401 ",.02)
 ;;00143997401
 ;;9002226.02101,"846,00143997405 ",.01)
 ;;00143997405
 ;;9002226.02101,"846,00143997405 ",.02)
 ;;00143997405
 ;;9002226.02101,"846,00143997430 ",.01)
 ;;00143997430
 ;;9002226.02101,"846,00143997430 ",.02)
 ;;00143997430
 ;;9002226.02101,"846,00143997501 ",.01)
 ;;00143997501
 ;;9002226.02101,"846,00143997501 ",.02)
 ;;00143997501
 ;;9002226.02101,"846,00143997505 ",.01)
 ;;00143997505
 ;;9002226.02101,"846,00143997505 ",.02)
 ;;00143997505
 ;;9002226.02101,"846,00143997530 ",.01)
 ;;00143997530
 ;;9002226.02101,"846,00143997530 ",.02)
 ;;00143997530
 ;;9002226.02101,"846,00172224560 ",.01)
 ;;00172224560
 ;;9002226.02101,"846,00172224560 ",.02)
 ;;00172224560
 ;;9002226.02101,"846,00172224570 ",.01)
 ;;00172224570
 ;;9002226.02101,"846,00172224570 ",.02)
 ;;00172224570
 ;;9002226.02101,"846,00172224580 ",.01)
 ;;00172224580
 ;;9002226.02101,"846,00172224580 ",.02)
 ;;00172224580
 ;;9002226.02101,"846,00172298060 ",.01)
 ;;00172298060
 ;;9002226.02101,"846,00172298060 ",.02)
 ;;00172298060
 ;;9002226.02101,"846,00172298065 ",.01)
 ;;00172298065
 ;;9002226.02101,"846,00172298065 ",.02)
 ;;00172298065
 ;;9002226.02101,"846,00172298070 ",.01)
 ;;00172298070
 ;;9002226.02101,"846,00172298070 ",.02)
 ;;00172298070
 ;;9002226.02101,"846,00172364900 ",.01)
 ;;00172364900
 ;;9002226.02101,"846,00172364900 ",.02)
 ;;00172364900
 ;;9002226.02101,"846,00172364910 ",.01)
 ;;00172364910
 ;;9002226.02101,"846,00172364910 ",.02)
 ;;00172364910
 ;;9002226.02101,"846,00172364960 ",.01)
 ;;00172364960
 ;;9002226.02101,"846,00172364960 ",.02)
 ;;00172364960
 ;;9002226.02101,"846,00172364970 ",.01)
 ;;00172364970
 ;;9002226.02101,"846,00172364970 ",.02)
 ;;00172364970
 ;;9002226.02101,"846,00172365000 ",.01)
 ;;00172365000
 ;;9002226.02101,"846,00172365000 ",.02)
 ;;00172365000
 ;;9002226.02101,"846,00172365010 ",.01)
 ;;00172365010
 ;;9002226.02101,"846,00172365010 ",.02)
 ;;00172365010
 ;;9002226.02101,"846,00172365060 ",.01)
 ;;00172365060
 ;;9002226.02101,"846,00172365060 ",.02)
 ;;00172365060
 ;;9002226.02101,"846,00172365070 ",.01)
 ;;00172365070
 ;;9002226.02101,"846,00172365070 ",.02)
 ;;00172365070
 ;;9002226.02101,"846,00172571060 ",.01)
 ;;00172571060
 ;;9002226.02101,"846,00172571060 ",.02)
 ;;00172571060
 ;;9002226.02101,"846,00179019801 ",.01)
 ;;00179019801
 ;;9002226.02101,"846,00179019801 ",.02)
 ;;00179019801
 ;;9002226.02101,"846,00179019802 ",.01)
 ;;00179019802
 ;;9002226.02101,"846,00179019802 ",.02)
 ;;00179019802
 ;;9002226.02101,"846,00179120502 ",.01)
 ;;00179120502
 ;;9002226.02101,"846,00179120502 ",.02)
 ;;00179120502
 ;;9002226.02101,"846,00179120512 ",.01)
 ;;00179120512
 ;;9002226.02101,"846,00179120512 ",.02)
 ;;00179120512
 ;;9002226.02101,"846,00179120524 ",.01)
 ;;00179120524
 ;;9002226.02101,"846,00179120524 ",.02)
 ;;00179120524
 ;;9002226.02101,"846,00179120530 ",.01)
 ;;00179120530
 ;;9002226.02101,"846,00179120530 ",.02)
 ;;00179120530
 ;;9002226.02101,"846,00179120536 ",.01)
 ;;00179120536
 ;;9002226.02101,"846,00179120536 ",.02)
 ;;00179120536
 ;;9002226.02101,"846,00179120560 ",.01)
 ;;00179120560
 ;;9002226.02101,"846,00179120560 ",.02)
 ;;00179120560
 ;;9002226.02101,"846,00179120590 ",.01)
 ;;00179120590
 ;;9002226.02101,"846,00179120590 ",.02)
 ;;00179120590
 ;;9002226.02101,"846,00179120701 ",.01)
 ;;00179120701
 ;;9002226.02101,"846,00179120701 ",.02)
 ;;00179120701
 ;;9002226.02101,"846,00179120801 ",.01)
 ;;00179120801
 ;;9002226.02101,"846,00179120801 ",.02)
 ;;00179120801
 ;;9002226.02101,"846,00179136830 ",.01)
 ;;00179136830
 ;;9002226.02101,"846,00179136830 ",.02)
 ;;00179136830
 ;;9002226.02101,"846,00179136850 ",.01)
 ;;00179136850
 ;;9002226.02101,"846,00179136850 ",.02)
 ;;00179136850
 ;;9002226.02101,"846,00179136860 ",.01)
 ;;00179136860
 ;;9002226.02101,"846,00179136860 ",.02)
 ;;00179136860
 ;;9002226.02101,"846,00179136870 ",.01)
 ;;00179136870
 ;;9002226.02101,"846,00179136870 ",.02)
 ;;00179136870
 ;;9002226.02101,"846,00179136890 ",.01)
 ;;00179136890
 ;;9002226.02101,"846,00179136890 ",.02)
 ;;00179136890
 ;;9002226.02101,"846,00179139870 ",.01)
 ;;00179139870
 ;;9002226.02101,"846,00179139870 ",.02)
 ;;00179139870
 ;;9002226.02101,"846,00179141601 ",.01)
 ;;00179141601
 ;;9002226.02101,"846,00179141601 ",.02)
 ;;00179141601
 ;;9002226.02101,"846,00179141602 ",.01)
 ;;00179141602
 ;;9002226.02101,"846,00179141602 ",.02)
 ;;00179141602
 ;;9002226.02101,"846,00179141612 ",.01)
 ;;00179141612
 ;;9002226.02101,"846,00179141612 ",.02)
 ;;00179141612
 ;;9002226.02101,"846,00179141630 ",.01)
 ;;00179141630
 ;;9002226.02101,"846,00179141630 ",.02)
 ;;00179141630
 ;;9002226.02101,"846,00179141660 ",.01)
 ;;00179141660
 ;;9002226.02101,"846,00179141660 ",.02)
 ;;00179141660
 ;;9002226.02101,"846,00179151330 ",.01)
 ;;00179151330
 ;;9002226.02101,"846,00179151330 ",.02)
 ;;00179151330
 ;;9002226.02101,"846,00179151350 ",.01)
 ;;00179151350
 ;;9002226.02101,"846,00179151350 ",.02)
 ;;00179151350
 ;;9002226.02101,"846,00179151360 ",.01)
 ;;00179151360
 ;;9002226.02101,"846,00179151360 ",.02)
 ;;00179151360
 ;;9002226.02101,"846,00179151370 ",.01)
 ;;00179151370
 ;;9002226.02101,"846,00179151370 ",.02)
 ;;00179151370
 ;;9002226.02101,"846,00179151390 ",.01)
 ;;00179151390
 ;;9002226.02101,"846,00179151390 ",.02)
 ;;00179151390
 ;;9002226.02101,"846,00179178970 ",.01)
 ;;00179178970
 ;;9002226.02101,"846,00179178970 ",.02)
 ;;00179178970
 ;;9002226.02101,"846,00179178971 ",.01)
 ;;00179178971
 ;;9002226.02101,"846,00179178971 ",.02)
 ;;00179178971
 ;;9002226.02101,"846,00179178972 ",.01)
 ;;00179178972
 ;;9002226.02101,"846,00179178972 ",.02)
 ;;00179178972
 ;;9002226.02101,"846,00179184170 ",.01)
 ;;00179184170
 ;;9002226.02101,"846,00179184170 ",.02)
 ;;00179184170
 ;;9002226.02101,"846,00179184171 ",.01)
 ;;00179184171
 ;;9002226.02101,"846,00179184171 ",.02)
 ;;00179184171
 ;;9002226.02101,"846,00179184172 ",.01)
 ;;00179184172
 ;;9002226.02101,"846,00179184172 ",.02)
 ;;00179184172
 ;;9002226.02101,"846,00182199489 ",.01)
 ;;00182199489
 ;;9002226.02101,"846,00182199489 ",.02)
 ;;00182199489
 ;;9002226.02101,"846,00182199589 ",.01)
 ;;00182199589
 ;;9002226.02101,"846,00182199589 ",.02)
 ;;00182199589
 ;;9002226.02101,"846,00182264689 ",.01)
 ;;00182264689
 ;;9002226.02101,"846,00182264689 ",.02)
 ;;00182264689
 ;;9002226.02101,"846,00182264789 ",.01)
 ;;00182264789
 ;;9002226.02101,"846,00182264789 ",.02)
 ;;00182264789
 ;;9002226.02101,"846,00228275111 ",.01)
 ;;00228275111
 ;;9002226.02101,"846,00228275111 ",.02)
 ;;00228275111
 ;;9002226.02101,"846,00228275150 ",.01)
 ;;00228275150
 ;;9002226.02101,"846,00228275150 ",.02)
 ;;00228275150
 ;;9002226.02101,"846,00228275211 ",.01)
 ;;00228275211
 ;;9002226.02101,"846,00228275211 ",.02)
 ;;00228275211
 ;;9002226.02101,"846,00228275250 ",.01)
 ;;00228275250
 ;;9002226.02101,"846,00228275250 ",.02)
 ;;00228275250
 ;;9002226.02101,"846,00228275311 ",.01)
 ;;00228275311
 ;;9002226.02101,"846,00228275311 ",.02)
 ;;00228275311
 ;;9002226.02101,"846,00228275350 ",.01)
 ;;00228275350
 ;;9002226.02101,"846,00228275350 ",.02)
 ;;00228275350
 ;;9002226.02101,"846,00228289803 ",.01)
 ;;00228289803
 ;;9002226.02101,"846,00228289803 ",.02)
 ;;00228289803
 ;;9002226.02101,"846,00228289910 ",.01)
 ;;00228289910
 ;;9002226.02101,"846,00228289910 ",.02)
 ;;00228289910
 ;;9002226.02101,"846,00228289950 ",.01)
 ;;00228289950
 ;;9002226.02101,"846,00228289950 ",.02)
 ;;00228289950
 ;;9002226.02101,"846,00228289996 ",.01)
 ;;00228289996
 ;;9002226.02101,"846,00228289996 ",.02)
 ;;00228289996
 ;;9002226.02101,"846,00228290010 ",.01)
 ;;00228290010
 ;;9002226.02101,"846,00228290010 ",.02)
 ;;00228290010
 ;;9002226.02101,"846,00228290011 ",.01)
 ;;00228290011
 ;;9002226.02101,"846,00228290011 ",.02)
 ;;00228290011
 ;;9002226.02101,"846,00228290050 ",.01)
 ;;00228290050
 ;;9002226.02101,"846,00228290050 ",.02)
 ;;00228290050
 ;;9002226.02101,"846,00228290096 ",.01)
 ;;00228290096
 ;;9002226.02101,"846,00228290096 ",.02)
 ;;00228290096
 ;;9002226.02101,"846,00247044402 ",.01)
 ;;00247044402
 ;;9002226.02101,"846,00247044402 ",.02)
 ;;00247044402
 ;;9002226.02101,"846,00247044403 ",.01)
 ;;00247044403
 ;;9002226.02101,"846,00247044403 ",.02)
 ;;00247044403
 ;;9002226.02101,"846,00247044460 ",.01)
 ;;00247044460
 ;;9002226.02101,"846,00247044460 ",.02)
 ;;00247044460
 ;;9002226.02101,"846,00247127003 ",.01)
 ;;00247127003
 ;;9002226.02101,"846,00247127003 ",.02)
 ;;00247127003
 ;;9002226.02101,"846,00247127030 ",.01)
 ;;00247127030
 ;;9002226.02101,"846,00247127030 ",.02)
 ;;00247127030
 ;;9002226.02101,"846,00247127060 ",.01)
 ;;00247127060
 ;;9002226.02101,"846,00247127060 ",.02)
 ;;00247127060
 ;;9002226.02101,"846,00247127090 ",.01)
 ;;00247127090
 ;;9002226.02101,"846,00247127090 ",.02)
 ;;00247127090
 ;;9002226.02101,"846,00247170430 ",.01)
 ;;00247170430
 ;;9002226.02101,"846,00247170430 ",.02)
 ;;00247170430
 ;;9002226.02101,"846,00247176000 ",.01)
 ;;00247176000
 ;;9002226.02101,"846,00247176000 ",.02)
 ;;00247176000
 ;;9002226.02101,"846,00247176002 ",.01)
 ;;00247176002
 ;;9002226.02101,"846,00247176002 ",.02)
 ;;00247176002
 ;;9002226.02101,"846,00247176030 ",.01)
 ;;00247176030
 ;;9002226.02101,"846,00247176030 ",.02)
 ;;00247176030
 ;;9002226.02101,"846,00247176060 ",.01)
 ;;00247176060
 ;;9002226.02101,"846,00247176060 ",.02)
 ;;00247176060
 ;;9002226.02101,"846,00247176077 ",.01)
 ;;00247176077