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

BGPM3ACO.m

Go to the documentation of this file.
BGPM3ACO ;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,00093067019 ",.02)
 ;;00093067019
 ;;9002226.02101,"786,00093067093 ",.01)
 ;;00093067093
 ;;9002226.02101,"786,00093067093 ",.02)
 ;;00093067093
 ;;9002226.02101,"786,00093092606 ",.01)
 ;;00093092606
 ;;9002226.02101,"786,00093092606 ",.02)
 ;;00093092606
 ;;9002226.02101,"786,00093092610 ",.01)
 ;;00093092610
 ;;9002226.02101,"786,00093092610 ",.02)
 ;;00093092610
 ;;9002226.02101,"786,00093092619 ",.01)
 ;;00093092619
 ;;9002226.02101,"786,00093092619 ",.02)
 ;;00093092619
 ;;9002226.02101,"786,00093092693 ",.01)
 ;;00093092693
 ;;9002226.02101,"786,00093092693 ",.02)
 ;;00093092693
 ;;9002226.02101,"786,00093092806 ",.01)
 ;;00093092806
 ;;9002226.02101,"786,00093092806 ",.02)
 ;;00093092806
 ;;9002226.02101,"786,00093092810 ",.01)
 ;;00093092810
 ;;9002226.02101,"786,00093092810 ",.02)
 ;;00093092810
 ;;9002226.02101,"786,00093092819 ",.01)
 ;;00093092819
 ;;9002226.02101,"786,00093092819 ",.02)
 ;;00093092819
 ;;9002226.02101,"786,00093092893 ",.01)
 ;;00093092893
 ;;9002226.02101,"786,00093092893 ",.02)
 ;;00093092893
 ;;9002226.02101,"786,00093715217 ",.01)
 ;;00093715217
 ;;9002226.02101,"786,00093715217 ",.02)
 ;;00093715217
 ;;9002226.02101,"786,00093715219 ",.01)
 ;;00093715219
 ;;9002226.02101,"786,00093715219 ",.02)
 ;;00093715219
 ;;9002226.02101,"786,00093715256 ",.01)
 ;;00093715256
 ;;9002226.02101,"786,00093715256 ",.02)
 ;;00093715256
 ;;9002226.02101,"786,00093715293 ",.01)
 ;;00093715293
 ;;9002226.02101,"786,00093715293 ",.02)
 ;;00093715293
 ;;9002226.02101,"786,00093715298 ",.01)
 ;;00093715298
 ;;9002226.02101,"786,00093715298 ",.02)
 ;;00093715298
 ;;9002226.02101,"786,00093715310 ",.01)
 ;;00093715310
 ;;9002226.02101,"786,00093715310 ",.02)
 ;;00093715310
 ;;9002226.02101,"786,00093715319 ",.01)
 ;;00093715319
 ;;9002226.02101,"786,00093715319 ",.02)
 ;;00093715319
 ;;9002226.02101,"786,00093715356 ",.01)
 ;;00093715356
 ;;9002226.02101,"786,00093715356 ",.02)
 ;;00093715356
 ;;9002226.02101,"786,00093715393 ",.01)
 ;;00093715393
 ;;9002226.02101,"786,00093715393 ",.02)
 ;;00093715393
 ;;9002226.02101,"786,00093715398 ",.01)
 ;;00093715398
 ;;9002226.02101,"786,00093715398 ",.02)
 ;;00093715398
 ;;9002226.02101,"786,00093715410 ",.01)
 ;;00093715410
 ;;9002226.02101,"786,00093715410 ",.02)
 ;;00093715410
 ;;9002226.02101,"786,00093715419 ",.01)
 ;;00093715419
 ;;9002226.02101,"786,00093715419 ",.02)
 ;;00093715419
 ;;9002226.02101,"786,00093715450 ",.01)
 ;;00093715450
 ;;9002226.02101,"786,00093715450 ",.02)
 ;;00093715450
 ;;9002226.02101,"786,00093715456 ",.01)
 ;;00093715456
 ;;9002226.02101,"786,00093715456 ",.02)
 ;;00093715456
 ;;9002226.02101,"786,00093715493 ",.01)
 ;;00093715493
 ;;9002226.02101,"786,00093715493 ",.02)
 ;;00093715493
 ;;9002226.02101,"786,00093715498 ",.01)
 ;;00093715498
 ;;9002226.02101,"786,00093715498 ",.02)
 ;;00093715498
 ;;9002226.02101,"786,00093715510 ",.01)
 ;;00093715510
 ;;9002226.02101,"786,00093715510 ",.02)
 ;;00093715510
 ;;9002226.02101,"786,00093715519 ",.01)
 ;;00093715519
 ;;9002226.02101,"786,00093715519 ",.02)
 ;;00093715519
 ;;9002226.02101,"786,00093715556 ",.01)
 ;;00093715556
 ;;9002226.02101,"786,00093715556 ",.02)
 ;;00093715556
 ;;9002226.02101,"786,00093715593 ",.01)
 ;;00093715593
 ;;9002226.02101,"786,00093715593 ",.02)
 ;;00093715593
 ;;9002226.02101,"786,00093715596 ",.01)
 ;;00093715596
 ;;9002226.02101,"786,00093715596 ",.02)
 ;;00093715596
 ;;9002226.02101,"786,00093715598 ",.01)
 ;;00093715598
 ;;9002226.02101,"786,00093715598 ",.02)
 ;;00093715598
 ;;9002226.02101,"786,00093715610 ",.01)
 ;;00093715610
 ;;9002226.02101,"786,00093715610 ",.02)
 ;;00093715610
 ;;9002226.02101,"786,00093715619 ",.01)
 ;;00093715619
 ;;9002226.02101,"786,00093715619 ",.02)
 ;;00093715619
 ;;9002226.02101,"786,00093715656 ",.01)
 ;;00093715656
 ;;9002226.02101,"786,00093715656 ",.02)
 ;;00093715656
 ;;9002226.02101,"786,00093715693 ",.01)
 ;;00093715693
 ;;9002226.02101,"786,00093715693 ",.02)
 ;;00093715693
 ;;9002226.02101,"786,00093715698 ",.01)
 ;;00093715698
 ;;9002226.02101,"786,00093715698 ",.02)
 ;;00093715698
 ;;9002226.02101,"786,00093733098 ",.01)
 ;;00093733098
 ;;9002226.02101,"786,00093733098 ",.02)
 ;;00093733098
 ;;9002226.02101,"786,00093733198 ",.01)
 ;;00093733198
 ;;9002226.02101,"786,00093733198 ",.02)
 ;;00093733198
 ;;9002226.02101,"786,00093800901 ",.01)
 ;;00093800901
 ;;9002226.02101,"786,00093800901 ",.02)
 ;;00093800901
 ;;9002226.02101,"786,00093801101 ",.01)
 ;;00093801101
 ;;9002226.02101,"786,00093801101 ",.02)
 ;;00093801101
 ;;9002226.02101,"786,00093801201 ",.01)
 ;;00093801201
 ;;9002226.02101,"786,00093801201 ",.02)
 ;;00093801201
 ;;9002226.02101,"786,00093809667 ",.01)
 ;;00093809667
 ;;9002226.02101,"786,00093809667 ",.02)
 ;;00093809667
 ;;9002226.02101,"786,00093809682 ",.01)
 ;;00093809682
 ;;9002226.02101,"786,00093809682 ",.02)
 ;;00093809682
 ;;9002226.02101,"786,00093811167 ",.01)
 ;;00093811167
 ;;9002226.02101,"786,00093811167 ",.02)
 ;;00093811167
 ;;9002226.02101,"786,00093811183 ",.01)
 ;;00093811183
 ;;9002226.02101,"786,00093811183 ",.02)
 ;;00093811183
 ;;9002226.02101,"786,00115051101 ",.01)
 ;;00115051101
 ;;9002226.02101,"786,00115051101 ",.02)
 ;;00115051101
 ;;9002226.02101,"786,00115052201 ",.01)
 ;;00115052201
 ;;9002226.02101,"786,00115052201 ",.02)
 ;;00115052201
 ;;9002226.02101,"786,00115053301 ",.01)
 ;;00115053301
 ;;9002226.02101,"786,00115053301 ",.02)
 ;;00115053301
 ;;9002226.02101,"786,00115408201 ",.01)
 ;;00115408201
 ;;9002226.02101,"786,00115408201 ",.02)
 ;;00115408201
 ;;9002226.02101,"786,00115408203 ",.01)
 ;;00115408203
 ;;9002226.02101,"786,00115408203 ",.02)
 ;;00115408203
 ;;9002226.02101,"786,00115408401 ",.01)
 ;;00115408401
 ;;9002226.02101,"786,00115408401 ",.02)
 ;;00115408401
 ;;9002226.02101,"786,00115408403 ",.01)
 ;;00115408403
 ;;9002226.02101,"786,00115408403 ",.02)
 ;;00115408403
 ;;9002226.02101,"786,00115408600 ",.01)
 ;;00115408600
 ;;9002226.02101,"786,00115408600 ",.02)
 ;;00115408600
 ;;9002226.02101,"786,00115408601 ",.01)
 ;;00115408601
 ;;9002226.02101,"786,00115408601 ",.02)
 ;;00115408601
 ;;9002226.02101,"786,00115408602 ",.01)
 ;;00115408602
 ;;9002226.02101,"786,00115408602 ",.02)
 ;;00115408602
 ;;9002226.02101,"786,00115408603 ",.01)
 ;;00115408603
 ;;9002226.02101,"786,00115408603 ",.02)
 ;;00115408603
 ;;9002226.02101,"786,00115408604 ",.01)
 ;;00115408604
 ;;9002226.02101,"786,00115408604 ",.02)
 ;;00115408604
 ;;9002226.02101,"786,00115521112 ",.01)
 ;;00115521112
 ;;9002226.02101,"786,00115521112 ",.02)
 ;;00115521112
 ;;9002226.02101,"786,00115521116 ",.01)
 ;;00115521116
 ;;9002226.02101,"786,00115521116 ",.02)
 ;;00115521116
 ;;9002226.02101,"786,00115521218 ",.01)
 ;;00115521218
 ;;9002226.02101,"786,00115521218 ",.02)
 ;;00115521218
 ;;9002226.02101,"786,00115521229 ",.01)
 ;;00115521229
 ;;9002226.02101,"786,00115521229 ",.02)
 ;;00115521229
 ;;9002226.02101,"786,00115521302 ",.01)
 ;;00115521302
 ;;9002226.02101,"786,00115521302 ",.02)
 ;;00115521302
 ;;9002226.02101,"786,00115551101 ",.01)
 ;;00115551101
 ;;9002226.02101,"786,00115551101 ",.02)
 ;;00115551101
 ;;9002226.02101,"786,00115551102 ",.01)
 ;;00115551102
 ;;9002226.02101,"786,00115551102 ",.02)
 ;;00115551102
 ;;9002226.02101,"786,00115551103 ",.01)
 ;;00115551103
 ;;9002226.02101,"786,00115551103 ",.02)
 ;;00115551103
 ;;9002226.02101,"786,00115551110 ",.01)
 ;;00115551110
 ;;9002226.02101,"786,00115551110 ",.02)
 ;;00115551110
 ;;9002226.02101,"786,00115552201 ",.01)
 ;;00115552201
 ;;9002226.02101,"786,00115552201 ",.02)
 ;;00115552201
 ;;9002226.02101,"786,00115552202 ",.01)
 ;;00115552202
 ;;9002226.02101,"786,00115552202 ",.02)
 ;;00115552202
 ;;9002226.02101,"786,00115552203 ",.01)
 ;;00115552203
 ;;9002226.02101,"786,00115552203 ",.02)
 ;;00115552203
 ;;9002226.02101,"786,00115552210 ",.01)
 ;;00115552210
 ;;9002226.02101,"786,00115552210 ",.02)
 ;;00115552210
 ;;9002226.02101,"786,00115991102 ",.01)
 ;;00115991102
 ;;9002226.02101,"786,00115991102 ",.02)
 ;;00115991102
 ;;9002226.02101,"786,00115991113 ",.01)
 ;;00115991113
 ;;9002226.02101,"786,00115991113 ",.02)
 ;;00115991113
 ;;9002226.02101,"786,00122303435 ",.01)
 ;;00122303435
 ;;9002226.02101,"786,00122303435 ",.02)
 ;;00122303435
 ;;9002226.02101,"786,00122303535 ",.01)
 ;;00122303535
 ;;9002226.02101,"786,00122303535 ",.02)
 ;;00122303535
 ;;9002226.02101,"786,00122603036 ",.01)
 ;;00122603036
 ;;9002226.02101,"786,00122603036 ",.02)
 ;;00122603036
 ;;9002226.02101,"786,00143134501 ",.01)
 ;;00143134501
 ;;9002226.02101,"786,00143134501 ",.02)
 ;;00143134501
 ;;9002226.02101,"786,00143134510 ",.01)
 ;;00143134510
 ;;9002226.02101,"786,00143134510 ",.02)
 ;;00143134510
 ;;9002226.02101,"786,00143134525 ",.01)
 ;;00143134525
 ;;9002226.02101,"786,00143134525 ",.02)
 ;;00143134525
 ;;9002226.02101,"786,00143135001 ",.01)
 ;;00143135001
 ;;9002226.02101,"786,00143135001 ",.02)
 ;;00143135001
 ;;9002226.02101,"786,00143135010 ",.01)
 ;;00143135010
 ;;9002226.02101,"786,00143135010 ",.02)
 ;;00143135010
 ;;9002226.02101,"786,00143135025 ",.01)
 ;;00143135025
 ;;9002226.02101,"786,00143135025 ",.02)
 ;;00143135025
 ;;9002226.02101,"786,00143135201 ",.01)
 ;;00143135201
 ;;9002226.02101,"786,00143135201 ",.02)
 ;;00143135201
 ;;9002226.02101,"786,00143135210 ",.01)
 ;;00143135210
 ;;9002226.02101,"786,00143135210 ",.02)
 ;;00143135210
 ;;9002226.02101,"786,00143913005 ",.01)
 ;;00143913005
 ;;9002226.02101,"786,00143913005 ",.02)
 ;;00143913005
 ;;9002226.02101,"786,00143913060 ",.01)
 ;;00143913060
 ;;9002226.02101,"786,00143913060 ",.02)
 ;;00143913060
 ;;9002226.02101,"786,00150062960 ",.01)
 ;;00150062960
 ;;9002226.02101,"786,00150062960 ",.02)
 ;;00150062960
 ;;9002226.02101,"786,00150062980 ",.01)
 ;;00150062980
 ;;9002226.02101,"786,00150062980 ",.02)
 ;;00150062980
 ;;9002226.02101,"786,00150063060 ",.01)
 ;;00150063060
 ;;9002226.02101,"786,00150063060 ",.02)
 ;;00150063060
 ;;9002226.02101,"786,00150063080 ",.01)
 ;;00150063080
 ;;9002226.02101,"786,00150063080 ",.02)
 ;;00150063080
 ;;9002226.02101,"786,00150063090 ",.01)
 ;;00150063090
 ;;9002226.02101,"786,00150063090 ",.02)
 ;;00150063090
 ;;9002226.02101,"786,00172057610 ",.01)
 ;;00172057610
 ;;9002226.02101,"786,00172057610 ",.02)
 ;;00172057610
 ;;9002226.02101,"786,00172057649 ",.01)
 ;;00172057649
 ;;9002226.02101,"786,00172057649 ",.02)
 ;;00172057649
 ;;9002226.02101,"786,00172057680 ",.01)
 ;;00172057680
 ;;9002226.02101,"786,00172057680 ",.02)
 ;;00172057680
 ;;9002226.02101,"786,00172092610 ",.01)
 ;;00172092610
 ;;9002226.02101,"786,00172092610 ",.02)
 ;;00172092610
 ;;9002226.02101,"786,00172092649 ",.01)
 ;;00172092649
 ;;9002226.02101,"786,00172092649 ",.02)
 ;;00172092649
 ;;9002226.02101,"786,00172092680 ",.01)
 ;;00172092680
 ;;9002226.02101,"786,00172092680 ",.02)
 ;;00172092680
 ;;9002226.02101,"786,00172092810 ",.01)
 ;;00172092810
 ;;9002226.02101,"786,00172092810 ",.02)
 ;;00172092810
 ;;9002226.02101,"786,00172092849 ",.01)
 ;;00172092849
 ;;9002226.02101,"786,00172092849 ",.02)
 ;;00172092849
 ;;9002226.02101,"786,00172092880 ",.01)
 ;;00172092880
 ;;9002226.02101,"786,00172092880 ",.02)
 ;;00172092880
 ;;9002226.02101,"786,00178276160 ",.01)
 ;;00178276160
 ;;9002226.02101,"786,00178276160 ",.02)
 ;;00178276160
 ;;9002226.02101,"786,00179003701 ",.01)
 ;;00179003701
 ;;9002226.02101,"786,00179003701 ",.02)
 ;;00179003701
 ;;9002226.02101,"786,00179004801 ",.01)
 ;;00179004801