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

BGPM3ACX.m

Go to the documentation of this file.
BGPM3ACX ;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,51129323602 ",.02)
 ;;51129323602
 ;;9002226.02101,"786,51129325001 ",.01)
 ;;51129325001
 ;;9002226.02101,"786,51129325001 ",.02)
 ;;51129325001
 ;;9002226.02101,"786,51129325002 ",.01)
 ;;51129325002
 ;;9002226.02101,"786,51129325002 ",.02)
 ;;51129325002
 ;;9002226.02101,"786,51129341001 ",.01)
 ;;51129341001
 ;;9002226.02101,"786,51129341001 ",.02)
 ;;51129341001
 ;;9002226.02101,"786,51129341002 ",.01)
 ;;51129341002
 ;;9002226.02101,"786,51129341002 ",.02)
 ;;51129341002
 ;;9002226.02101,"786,51129351401 ",.01)
 ;;51129351401
 ;;9002226.02101,"786,51129351401 ",.02)
 ;;51129351401
 ;;9002226.02101,"786,51129351402 ",.01)
 ;;51129351402
 ;;9002226.02101,"786,51129351402 ",.02)
 ;;51129351402
 ;;9002226.02101,"786,51129351601 ",.01)
 ;;51129351601
 ;;9002226.02101,"786,51129351601 ",.02)
 ;;51129351601
 ;;9002226.02101,"786,51129351602 ",.01)
 ;;51129351602
 ;;9002226.02101,"786,51129351602 ",.02)
 ;;51129351602
 ;;9002226.02101,"786,51129354101 ",.01)
 ;;51129354101
 ;;9002226.02101,"786,51129354101 ",.02)
 ;;51129354101
 ;;9002226.02101,"786,51129354102 ",.01)
 ;;51129354102
 ;;9002226.02101,"786,51129354102 ",.02)
 ;;51129354102
 ;;9002226.02101,"786,51129359201 ",.01)
 ;;51129359201
 ;;9002226.02101,"786,51129359201 ",.02)
 ;;51129359201
 ;;9002226.02101,"786,51129359202 ",.01)
 ;;51129359202
 ;;9002226.02101,"786,51129359202 ",.02)
 ;;51129359202
 ;;9002226.02101,"786,51129360601 ",.01)
 ;;51129360601
 ;;9002226.02101,"786,51129360601 ",.02)
 ;;51129360601
 ;;9002226.02101,"786,51129360602 ",.01)
 ;;51129360602
 ;;9002226.02101,"786,51129360602 ",.02)
 ;;51129360602
 ;;9002226.02101,"786,51129366701 ",.01)
 ;;51129366701
 ;;9002226.02101,"786,51129366701 ",.02)
 ;;51129366701
 ;;9002226.02101,"786,51129366702 ",.01)
 ;;51129366702
 ;;9002226.02101,"786,51129366702 ",.02)
 ;;51129366702
 ;;9002226.02101,"786,51129368101 ",.01)
 ;;51129368101
 ;;9002226.02101,"786,51129368101 ",.02)
 ;;51129368101
 ;;9002226.02101,"786,51129368102 ",.01)
 ;;51129368102
 ;;9002226.02101,"786,51129368102 ",.02)
 ;;51129368102
 ;;9002226.02101,"786,51129373701 ",.01)
 ;;51129373701
 ;;9002226.02101,"786,51129373701 ",.02)
 ;;51129373701
 ;;9002226.02101,"786,51129373702 ",.01)
 ;;51129373702
 ;;9002226.02101,"786,51129373702 ",.02)
 ;;51129373702
 ;;9002226.02101,"786,51129375101 ",.01)
 ;;51129375101
 ;;9002226.02101,"786,51129375101 ",.02)
 ;;51129375101
 ;;9002226.02101,"786,51129375102 ",.01)
 ;;51129375102
 ;;9002226.02101,"786,51129375102 ",.02)
 ;;51129375102
 ;;9002226.02101,"786,51129375701 ",.01)
 ;;51129375701
 ;;9002226.02101,"786,51129375701 ",.02)
 ;;51129375701
 ;;9002226.02101,"786,51129375702 ",.01)
 ;;51129375702
 ;;9002226.02101,"786,51129375702 ",.02)
 ;;51129375702
 ;;9002226.02101,"786,51129378301 ",.01)
 ;;51129378301
 ;;9002226.02101,"786,51129378301 ",.02)
 ;;51129378301
 ;;9002226.02101,"786,51129378302 ",.01)
 ;;51129378302
 ;;9002226.02101,"786,51129378302 ",.02)
 ;;51129378302
 ;;9002226.02101,"786,51129378901 ",.01)
 ;;51129378901
 ;;9002226.02101,"786,51129378901 ",.02)
 ;;51129378901
 ;;9002226.02101,"786,51129378902 ",.01)
 ;;51129378902
 ;;9002226.02101,"786,51129378902 ",.02)
 ;;51129378902
 ;;9002226.02101,"786,51129379501 ",.01)
 ;;51129379501
 ;;9002226.02101,"786,51129379501 ",.02)
 ;;51129379501
 ;;9002226.02101,"786,51129379502 ",.01)
 ;;51129379502
 ;;9002226.02101,"786,51129379502 ",.02)
 ;;51129379502
 ;;9002226.02101,"786,51129389101 ",.01)
 ;;51129389101
 ;;9002226.02101,"786,51129389101 ",.02)
 ;;51129389101
 ;;9002226.02101,"786,51129389102 ",.01)
 ;;51129389102
 ;;9002226.02101,"786,51129389102 ",.02)
 ;;51129389102
 ;;9002226.02101,"786,51129396601 ",.01)
 ;;51129396601
 ;;9002226.02101,"786,51129396601 ",.02)
 ;;51129396601
 ;;9002226.02101,"786,51129396602 ",.01)
 ;;51129396602
 ;;9002226.02101,"786,51129396602 ",.02)
 ;;51129396602
 ;;9002226.02101,"786,51129405501 ",.01)
 ;;51129405501
 ;;9002226.02101,"786,51129405501 ",.02)
 ;;51129405501
 ;;9002226.02101,"786,51129405502 ",.01)
 ;;51129405502
 ;;9002226.02101,"786,51129405502 ",.02)
 ;;51129405502
 ;;9002226.02101,"786,51129410601 ",.01)
 ;;51129410601
 ;;9002226.02101,"786,51129410601 ",.02)
 ;;51129410601
 ;;9002226.02101,"786,51129410602 ",.01)
 ;;51129410602
 ;;9002226.02101,"786,51129410602 ",.02)
 ;;51129410602
 ;;9002226.02101,"786,51129410901 ",.01)
 ;;51129410901
 ;;9002226.02101,"786,51129410901 ",.02)
 ;;51129410901
 ;;9002226.02101,"786,51129410902 ",.01)
 ;;51129410902
 ;;9002226.02101,"786,51129410902 ",.02)
 ;;51129410902
 ;;9002226.02101,"786,51129413901 ",.01)
 ;;51129413901
 ;;9002226.02101,"786,51129413901 ",.02)
 ;;51129413901
 ;;9002226.02101,"786,51129413902 ",.01)
 ;;51129413902
 ;;9002226.02101,"786,51129413902 ",.02)
 ;;51129413902
 ;;9002226.02101,"786,51129415601 ",.01)
 ;;51129415601
 ;;9002226.02101,"786,51129415601 ",.02)
 ;;51129415601
 ;;9002226.02101,"786,51129415602 ",.01)
 ;;51129415602
 ;;9002226.02101,"786,51129415602 ",.02)
 ;;51129415602
 ;;9002226.02101,"786,51129417001 ",.01)
 ;;51129417001
 ;;9002226.02101,"786,51129417001 ",.02)
 ;;51129417001
 ;;9002226.02101,"786,51129417002 ",.01)
 ;;51129417002
 ;;9002226.02101,"786,51129417002 ",.02)
 ;;51129417002
 ;;9002226.02101,"786,51129420701 ",.01)
 ;;51129420701
 ;;9002226.02101,"786,51129420701 ",.02)
 ;;51129420701
 ;;9002226.02101,"786,51129420702 ",.01)
 ;;51129420702
 ;;9002226.02101,"786,51129420702 ",.02)
 ;;51129420702
 ;;9002226.02101,"786,51129420801 ",.01)
 ;;51129420801
 ;;9002226.02101,"786,51129420801 ",.02)
 ;;51129420801
 ;;9002226.02101,"786,51129420802 ",.01)
 ;;51129420802
 ;;9002226.02101,"786,51129420802 ",.02)
 ;;51129420802
 ;;9002226.02101,"786,51129420901 ",.01)
 ;;51129420901
 ;;9002226.02101,"786,51129420901 ",.02)
 ;;51129420901
 ;;9002226.02101,"786,51129420902 ",.01)
 ;;51129420902
 ;;9002226.02101,"786,51129420902 ",.02)
 ;;51129420902
 ;;9002226.02101,"786,51129424101 ",.01)
 ;;51129424101
 ;;9002226.02101,"786,51129424101 ",.02)
 ;;51129424101
 ;;9002226.02101,"786,51129432501 ",.01)
 ;;51129432501
 ;;9002226.02101,"786,51129432501 ",.02)
 ;;51129432501
 ;;9002226.02101,"786,51129432502 ",.01)
 ;;51129432502
 ;;9002226.02101,"786,51129432502 ",.02)
 ;;51129432502
 ;;9002226.02101,"786,51129432801 ",.01)
 ;;51129432801
 ;;9002226.02101,"786,51129432801 ",.02)
 ;;51129432801
 ;;9002226.02101,"786,51129432802 ",.01)
 ;;51129432802
 ;;9002226.02101,"786,51129432802 ",.02)
 ;;51129432802
 ;;9002226.02101,"786,51129436501 ",.01)
 ;;51129436501
 ;;9002226.02101,"786,51129436501 ",.02)
 ;;51129436501
 ;;9002226.02101,"786,51129436502 ",.01)
 ;;51129436502
 ;;9002226.02101,"786,51129436502 ",.02)
 ;;51129436502
 ;;9002226.02101,"786,51129436601 ",.01)
 ;;51129436601
 ;;9002226.02101,"786,51129436601 ",.02)
 ;;51129436601
 ;;9002226.02101,"786,51129436602 ",.01)
 ;;51129436602
 ;;9002226.02101,"786,51129436602 ",.02)
 ;;51129436602
 ;;9002226.02101,"786,51129437101 ",.01)
 ;;51129437101
 ;;9002226.02101,"786,51129437101 ",.02)
 ;;51129437101
 ;;9002226.02101,"786,51129437102 ",.01)
 ;;51129437102
 ;;9002226.02101,"786,51129437102 ",.02)
 ;;51129437102
 ;;9002226.02101,"786,51129438501 ",.01)
 ;;51129438501
 ;;9002226.02101,"786,51129438501 ",.02)
 ;;51129438501
 ;;9002226.02101,"786,51129438502 ",.01)
 ;;51129438502
 ;;9002226.02101,"786,51129438502 ",.02)
 ;;51129438502
 ;;9002226.02101,"786,51129444201 ",.01)
 ;;51129444201
 ;;9002226.02101,"786,51129444201 ",.02)
 ;;51129444201
 ;;9002226.02101,"786,51129444202 ",.01)
 ;;51129444202
 ;;9002226.02101,"786,51129444202 ",.02)
 ;;51129444202
 ;;9002226.02101,"786,51129461701 ",.01)
 ;;51129461701
 ;;9002226.02101,"786,51129461701 ",.02)
 ;;51129461701
 ;;9002226.02101,"786,51129461702 ",.01)
 ;;51129461702
 ;;9002226.02101,"786,51129461702 ",.02)
 ;;51129461702
 ;;9002226.02101,"786,51129468201 ",.01)
 ;;51129468201
 ;;9002226.02101,"786,51129468201 ",.02)
 ;;51129468201
 ;;9002226.02101,"786,51129468202 ",.01)
 ;;51129468202
 ;;9002226.02101,"786,51129468202 ",.02)
 ;;51129468202
 ;;9002226.02101,"786,51129469501 ",.01)
 ;;51129469501
 ;;9002226.02101,"786,51129469501 ",.02)
 ;;51129469501
 ;;9002226.02101,"786,51129469502 ",.01)
 ;;51129469502
 ;;9002226.02101,"786,51129469502 ",.02)
 ;;51129469502
 ;;9002226.02101,"786,51432029403 ",.01)
 ;;51432029403
 ;;9002226.02101,"786,51432029403 ",.02)
 ;;51432029403
 ;;9002226.02101,"786,51432029406 ",.01)
 ;;51432029406
 ;;9002226.02101,"786,51432029406 ",.02)
 ;;51432029406
 ;;9002226.02101,"786,51432031303 ",.01)
 ;;51432031303
 ;;9002226.02101,"786,51432031303 ",.02)
 ;;51432031303
 ;;9002226.02101,"786,51432033703 ",.01)
 ;;51432033703
 ;;9002226.02101,"786,51432033703 ",.02)
 ;;51432033703
 ;;9002226.02101,"786,51432033706 ",.01)
 ;;51432033706
 ;;9002226.02101,"786,51432033706 ",.02)
 ;;51432033706
 ;;9002226.02101,"786,51432034303 ",.01)
 ;;51432034303
 ;;9002226.02101,"786,51432034303 ",.02)
 ;;51432034303
 ;;9002226.02101,"786,51655028124 ",.01)
 ;;51655028124
 ;;9002226.02101,"786,51655028124 ",.02)
 ;;51655028124
 ;;9002226.02101,"786,51655028150 ",.01)
 ;;51655028150
 ;;9002226.02101,"786,51655028150 ",.02)
 ;;51655028150
 ;;9002226.02101,"786,51655028152 ",.01)
 ;;51655028152
 ;;9002226.02101,"786,51655028152 ",.02)
 ;;51655028152
 ;;9002226.02101,"786,51655031450 ",.01)
 ;;51655031450
 ;;9002226.02101,"786,51655031450 ",.02)
 ;;51655031450
 ;;9002226.02101,"786,51655031452 ",.01)
 ;;51655031452
 ;;9002226.02101,"786,51655031452 ",.02)
 ;;51655031452
 ;;9002226.02101,"786,51655031453 ",.01)
 ;;51655031453
 ;;9002226.02101,"786,51655031453 ",.02)
 ;;51655031453
 ;;9002226.02101,"786,51660078910 ",.01)
 ;;51660078910
 ;;9002226.02101,"786,51660078910 ",.02)
 ;;51660078910
 ;;9002226.02101,"786,51660078930 ",.01)
 ;;51660078930
 ;;9002226.02101,"786,51660078930 ",.02)
 ;;51660078930
 ;;9002226.02101,"786,51660078990 ",.01)
 ;;51660078990
 ;;9002226.02101,"786,51660078990 ",.02)
 ;;51660078990
 ;;9002226.02101,"786,51660079010 ",.01)
 ;;51660079010
 ;;9002226.02101,"786,51660079010 ",.02)
 ;;51660079010
 ;;9002226.02101,"786,51660079030 ",.01)
 ;;51660079030
 ;;9002226.02101,"786,51660079030 ",.02)
 ;;51660079030
 ;;9002226.02101,"786,51660079090 ",.01)
 ;;51660079090
 ;;9002226.02101,"786,51660079090 ",.02)
 ;;51660079090
 ;;9002226.02101,"786,51660079110 ",.01)
 ;;51660079110
 ;;9002226.02101,"786,51660079110 ",.02)
 ;;51660079110
 ;;9002226.02101,"786,51660079130 ",.01)
 ;;51660079130
 ;;9002226.02101,"786,51660079130 ",.02)
 ;;51660079130
 ;;9002226.02101,"786,51660079190 ",.01)
 ;;51660079190
 ;;9002226.02101,"786,51660079190 ",.02)
 ;;51660079190
 ;;9002226.02101,"786,51660079210 ",.01)
 ;;51660079210
 ;;9002226.02101,"786,51660079210 ",.02)
 ;;51660079210
 ;;9002226.02101,"786,51660079230 ",.01)
 ;;51660079230
 ;;9002226.02101,"786,51660079230 ",.02)
 ;;51660079230
 ;;9002226.02101,"786,51660079250 ",.01)
 ;;51660079250
 ;;9002226.02101,"786,51660079250 ",.02)
 ;;51660079250
 ;;9002226.02101,"786,51660079290 ",.01)
 ;;51660079290
 ;;9002226.02101,"786,51660079290 ",.02)
 ;;51660079290
 ;;9002226.02101,"786,51660079310 ",.01)
 ;;51660079310
 ;;9002226.02101,"786,51660079310 ",.02)
 ;;51660079310
 ;;9002226.02101,"786,51660079330 ",.01)
 ;;51660079330
 ;;9002226.02101,"786,51660079330 ",.02)
 ;;51660079330
 ;;9002226.02101,"786,51660079350 ",.01)
 ;;51660079350
 ;;9002226.02101,"786,51660079350 ",.02)
 ;;51660079350
 ;;9002226.02101,"786,51660079390 ",.01)
 ;;51660079390