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

BGPM3ADU.m

Go to the documentation of this file.
BGPM3ADU ;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,"785,49999090390 ",.01)
 ;;49999090390
 ;;9002226.02101,"785,49999090390 ",.02)
 ;;49999090390
 ;;9002226.02101,"785,51079045401 ",.01)
 ;;51079045401
 ;;9002226.02101,"785,51079045401 ",.02)
 ;;51079045401
 ;;9002226.02101,"785,51079045420 ",.01)
 ;;51079045420
 ;;9002226.02101,"785,51079045420 ",.02)
 ;;51079045420
 ;;9002226.02101,"785,51079045501 ",.01)
 ;;51079045501
 ;;9002226.02101,"785,51079045501 ",.02)
 ;;51079045501
 ;;9002226.02101,"785,51079045520 ",.01)
 ;;51079045520
 ;;9002226.02101,"785,51079045520 ",.02)
 ;;51079045520
 ;;9002226.02101,"785,51079045601 ",.01)
 ;;51079045601
 ;;9002226.02101,"785,51079045601 ",.02)
 ;;51079045601
 ;;9002226.02101,"785,51079045620 ",.01)
 ;;51079045620
 ;;9002226.02101,"785,51079045620 ",.02)
 ;;51079045620
 ;;9002226.02101,"785,51079097401 ",.01)
 ;;51079097401
 ;;9002226.02101,"785,51079097401 ",.02)
 ;;51079097401
 ;;9002226.02101,"785,51079097420 ",.01)
 ;;51079097420
 ;;9002226.02101,"785,51079097420 ",.02)
 ;;51079097420
 ;;9002226.02101,"785,51079097501 ",.01)
 ;;51079097501
 ;;9002226.02101,"785,51079097501 ",.02)
 ;;51079097501
 ;;9002226.02101,"785,51079097520 ",.01)
 ;;51079097520
 ;;9002226.02101,"785,51079097520 ",.02)
 ;;51079097520
 ;;9002226.02101,"785,51079097530 ",.01)
 ;;51079097530
 ;;9002226.02101,"785,51079097530 ",.02)
 ;;51079097530
 ;;9002226.02101,"785,51079097556 ",.01)
 ;;51079097556
 ;;9002226.02101,"785,51079097556 ",.02)
 ;;51079097556
 ;;9002226.02101,"785,51079097601 ",.01)
 ;;51079097601
 ;;9002226.02101,"785,51079097601 ",.02)
 ;;51079097601
 ;;9002226.02101,"785,51079097620 ",.01)
 ;;51079097620
 ;;9002226.02101,"785,51079097620 ",.02)
 ;;51079097620
 ;;9002226.02101,"785,51079097630 ",.01)
 ;;51079097630
 ;;9002226.02101,"785,51079097630 ",.02)
 ;;51079097630
 ;;9002226.02101,"785,51079097656 ",.01)
 ;;51079097656
 ;;9002226.02101,"785,51079097656 ",.02)
 ;;51079097656
 ;;9002226.02101,"785,51129258201 ",.01)
 ;;51129258201
 ;;9002226.02101,"785,51129258201 ",.02)
 ;;51129258201
 ;;9002226.02101,"785,51129275401 ",.01)
 ;;51129275401
 ;;9002226.02101,"785,51129275401 ",.02)
 ;;51129275401
 ;;9002226.02101,"785,51129289201 ",.01)
 ;;51129289201
 ;;9002226.02101,"785,51129289201 ",.02)
 ;;51129289201
 ;;9002226.02101,"785,51129291101 ",.01)
 ;;51129291101
 ;;9002226.02101,"785,51129291101 ",.02)
 ;;51129291101
 ;;9002226.02101,"785,51129291102 ",.01)
 ;;51129291102
 ;;9002226.02101,"785,51129291102 ",.02)
 ;;51129291102
 ;;9002226.02101,"785,51129295201 ",.01)
 ;;51129295201
 ;;9002226.02101,"785,51129295201 ",.02)
 ;;51129295201
 ;;9002226.02101,"785,51129295202 ",.01)
 ;;51129295202
 ;;9002226.02101,"785,51129295202 ",.02)
 ;;51129295202
 ;;9002226.02101,"785,51129325001 ",.01)
 ;;51129325001
 ;;9002226.02101,"785,51129325001 ",.02)
 ;;51129325001
 ;;9002226.02101,"785,51129325002 ",.01)
 ;;51129325002
 ;;9002226.02101,"785,51129325002 ",.02)
 ;;51129325002
 ;;9002226.02101,"785,51129341001 ",.01)
 ;;51129341001
 ;;9002226.02101,"785,51129341001 ",.02)
 ;;51129341001
 ;;9002226.02101,"785,51129341002 ",.01)
 ;;51129341002
 ;;9002226.02101,"785,51129341002 ",.02)
 ;;51129341002
 ;;9002226.02101,"785,51129351401 ",.01)
 ;;51129351401
 ;;9002226.02101,"785,51129351401 ",.02)
 ;;51129351401
 ;;9002226.02101,"785,51129351402 ",.01)
 ;;51129351402
 ;;9002226.02101,"785,51129351402 ",.02)
 ;;51129351402
 ;;9002226.02101,"785,51129351601 ",.01)
 ;;51129351601
 ;;9002226.02101,"785,51129351601 ",.02)
 ;;51129351601
 ;;9002226.02101,"785,51129351602 ",.01)
 ;;51129351602
 ;;9002226.02101,"785,51129351602 ",.02)
 ;;51129351602
 ;;9002226.02101,"785,51129354101 ",.01)
 ;;51129354101
 ;;9002226.02101,"785,51129354101 ",.02)
 ;;51129354101
 ;;9002226.02101,"785,51129354102 ",.01)
 ;;51129354102
 ;;9002226.02101,"785,51129354102 ",.02)
 ;;51129354102
 ;;9002226.02101,"785,51129359201 ",.01)
 ;;51129359201
 ;;9002226.02101,"785,51129359201 ",.02)
 ;;51129359201
 ;;9002226.02101,"785,51129359202 ",.01)
 ;;51129359202
 ;;9002226.02101,"785,51129359202 ",.02)
 ;;51129359202
 ;;9002226.02101,"785,51129366701 ",.01)
 ;;51129366701
 ;;9002226.02101,"785,51129366701 ",.02)
 ;;51129366701
 ;;9002226.02101,"785,51129366702 ",.01)
 ;;51129366702
 ;;9002226.02101,"785,51129366702 ",.02)
 ;;51129366702
 ;;9002226.02101,"785,51129368101 ",.01)
 ;;51129368101
 ;;9002226.02101,"785,51129368101 ",.02)
 ;;51129368101
 ;;9002226.02101,"785,51129368102 ",.01)
 ;;51129368102
 ;;9002226.02101,"785,51129368102 ",.02)
 ;;51129368102
 ;;9002226.02101,"785,51129373701 ",.01)
 ;;51129373701
 ;;9002226.02101,"785,51129373701 ",.02)
 ;;51129373701
 ;;9002226.02101,"785,51129373702 ",.01)
 ;;51129373702
 ;;9002226.02101,"785,51129373702 ",.02)
 ;;51129373702
 ;;9002226.02101,"785,51129375101 ",.01)
 ;;51129375101
 ;;9002226.02101,"785,51129375101 ",.02)
 ;;51129375101
 ;;9002226.02101,"785,51129375102 ",.01)
 ;;51129375102
 ;;9002226.02101,"785,51129375102 ",.02)
 ;;51129375102
 ;;9002226.02101,"785,51129375701 ",.01)
 ;;51129375701
 ;;9002226.02101,"785,51129375701 ",.02)
 ;;51129375701
 ;;9002226.02101,"785,51129375702 ",.01)
 ;;51129375702
 ;;9002226.02101,"785,51129375702 ",.02)
 ;;51129375702
 ;;9002226.02101,"785,51129378301 ",.01)
 ;;51129378301
 ;;9002226.02101,"785,51129378301 ",.02)
 ;;51129378301
 ;;9002226.02101,"785,51129378302 ",.01)
 ;;51129378302
 ;;9002226.02101,"785,51129378302 ",.02)
 ;;51129378302
 ;;9002226.02101,"785,51129378901 ",.01)
 ;;51129378901
 ;;9002226.02101,"785,51129378901 ",.02)
 ;;51129378901
 ;;9002226.02101,"785,51129378902 ",.01)
 ;;51129378902
 ;;9002226.02101,"785,51129378902 ",.02)
 ;;51129378902
 ;;9002226.02101,"785,51129379501 ",.01)
 ;;51129379501
 ;;9002226.02101,"785,51129379501 ",.02)
 ;;51129379501
 ;;9002226.02101,"785,51129379502 ",.01)
 ;;51129379502
 ;;9002226.02101,"785,51129379502 ",.02)
 ;;51129379502
 ;;9002226.02101,"785,51129389101 ",.01)
 ;;51129389101
 ;;9002226.02101,"785,51129389101 ",.02)
 ;;51129389101
 ;;9002226.02101,"785,51129389102 ",.01)
 ;;51129389102
 ;;9002226.02101,"785,51129389102 ",.02)
 ;;51129389102
 ;;9002226.02101,"785,51129396601 ",.01)
 ;;51129396601
 ;;9002226.02101,"785,51129396601 ",.02)
 ;;51129396601
 ;;9002226.02101,"785,51129396602 ",.01)
 ;;51129396602
 ;;9002226.02101,"785,51129396602 ",.02)
 ;;51129396602
 ;;9002226.02101,"785,51129405501 ",.01)
 ;;51129405501
 ;;9002226.02101,"785,51129405501 ",.02)
 ;;51129405501
 ;;9002226.02101,"785,51129405502 ",.01)
 ;;51129405502
 ;;9002226.02101,"785,51129405502 ",.02)
 ;;51129405502
 ;;9002226.02101,"785,51129410601 ",.01)
 ;;51129410601
 ;;9002226.02101,"785,51129410601 ",.02)
 ;;51129410601
 ;;9002226.02101,"785,51129410602 ",.01)
 ;;51129410602
 ;;9002226.02101,"785,51129410602 ",.02)
 ;;51129410602
 ;;9002226.02101,"785,51129410901 ",.01)
 ;;51129410901
 ;;9002226.02101,"785,51129410901 ",.02)
 ;;51129410901
 ;;9002226.02101,"785,51129410902 ",.01)
 ;;51129410902
 ;;9002226.02101,"785,51129410902 ",.02)
 ;;51129410902
 ;;9002226.02101,"785,51129413901 ",.01)
 ;;51129413901
 ;;9002226.02101,"785,51129413901 ",.02)
 ;;51129413901
 ;;9002226.02101,"785,51129413902 ",.01)
 ;;51129413902
 ;;9002226.02101,"785,51129413902 ",.02)
 ;;51129413902
 ;;9002226.02101,"785,51129415601 ",.01)
 ;;51129415601
 ;;9002226.02101,"785,51129415601 ",.02)
 ;;51129415601
 ;;9002226.02101,"785,51129415602 ",.01)
 ;;51129415602
 ;;9002226.02101,"785,51129415602 ",.02)
 ;;51129415602
 ;;9002226.02101,"785,51129417001 ",.01)
 ;;51129417001
 ;;9002226.02101,"785,51129417001 ",.02)
 ;;51129417001
 ;;9002226.02101,"785,51129417002 ",.01)
 ;;51129417002
 ;;9002226.02101,"785,51129417002 ",.02)
 ;;51129417002
 ;;9002226.02101,"785,51129420701 ",.01)
 ;;51129420701
 ;;9002226.02101,"785,51129420701 ",.02)
 ;;51129420701
 ;;9002226.02101,"785,51129420702 ",.01)
 ;;51129420702
 ;;9002226.02101,"785,51129420702 ",.02)
 ;;51129420702
 ;;9002226.02101,"785,51129420801 ",.01)
 ;;51129420801
 ;;9002226.02101,"785,51129420801 ",.02)
 ;;51129420801
 ;;9002226.02101,"785,51129420802 ",.01)
 ;;51129420802
 ;;9002226.02101,"785,51129420802 ",.02)
 ;;51129420802
 ;;9002226.02101,"785,51129420901 ",.01)
 ;;51129420901
 ;;9002226.02101,"785,51129420901 ",.02)
 ;;51129420901
 ;;9002226.02101,"785,51129420902 ",.01)
 ;;51129420902
 ;;9002226.02101,"785,51129420902 ",.02)
 ;;51129420902
 ;;9002226.02101,"785,51129436501 ",.01)
 ;;51129436501
 ;;9002226.02101,"785,51129436501 ",.02)
 ;;51129436501
 ;;9002226.02101,"785,51129436502 ",.01)
 ;;51129436502
 ;;9002226.02101,"785,51129436502 ",.02)
 ;;51129436502
 ;;9002226.02101,"785,51129436601 ",.01)
 ;;51129436601
 ;;9002226.02101,"785,51129436601 ",.02)
 ;;51129436601
 ;;9002226.02101,"785,51129436602 ",.01)
 ;;51129436602
 ;;9002226.02101,"785,51129436602 ",.02)
 ;;51129436602
 ;;9002226.02101,"785,51129437101 ",.01)
 ;;51129437101
 ;;9002226.02101,"785,51129437101 ",.02)
 ;;51129437101
 ;;9002226.02101,"785,51129437102 ",.01)
 ;;51129437102
 ;;9002226.02101,"785,51129437102 ",.02)
 ;;51129437102
 ;;9002226.02101,"785,51129438501 ",.01)
 ;;51129438501
 ;;9002226.02101,"785,51129438501 ",.02)
 ;;51129438501
 ;;9002226.02101,"785,51129438502 ",.01)
 ;;51129438502
 ;;9002226.02101,"785,51129438502 ",.02)
 ;;51129438502
 ;;9002226.02101,"785,51129444201 ",.01)
 ;;51129444201
 ;;9002226.02101,"785,51129444201 ",.02)
 ;;51129444201
 ;;9002226.02101,"785,51129444202 ",.01)
 ;;51129444202
 ;;9002226.02101,"785,51129444202 ",.02)
 ;;51129444202
 ;;9002226.02101,"785,51129468201 ",.01)
 ;;51129468201
 ;;9002226.02101,"785,51129468201 ",.02)
 ;;51129468201
 ;;9002226.02101,"785,51129468202 ",.01)
 ;;51129468202
 ;;9002226.02101,"785,51129468202 ",.02)
 ;;51129468202
 ;;9002226.02101,"785,51655028124 ",.01)
 ;;51655028124
 ;;9002226.02101,"785,51655028124 ",.02)
 ;;51655028124
 ;;9002226.02101,"785,51655028150 ",.01)
 ;;51655028150
 ;;9002226.02101,"785,51655028150 ",.02)
 ;;51655028150
 ;;9002226.02101,"785,51655028152 ",.01)
 ;;51655028152
 ;;9002226.02101,"785,51655028152 ",.02)
 ;;51655028152
 ;;9002226.02101,"785,51655031450 ",.01)
 ;;51655031450
 ;;9002226.02101,"785,51655031450 ",.02)
 ;;51655031450
 ;;9002226.02101,"785,51655031452 ",.01)
 ;;51655031452
 ;;9002226.02101,"785,51655031452 ",.02)
 ;;51655031452
 ;;9002226.02101,"785,51655031453 ",.01)
 ;;51655031453
 ;;9002226.02101,"785,51655031453 ",.02)
 ;;51655031453
 ;;9002226.02101,"785,51660078910 ",.01)
 ;;51660078910
 ;;9002226.02101,"785,51660078910 ",.02)
 ;;51660078910
 ;;9002226.02101,"785,51660078930 ",.01)
 ;;51660078930
 ;;9002226.02101,"785,51660078930 ",.02)
 ;;51660078930
 ;;9002226.02101,"785,51660078990 ",.01)
 ;;51660078990
 ;;9002226.02101,"785,51660078990 ",.02)
 ;;51660078990
 ;;9002226.02101,"785,51660079010 ",.01)
 ;;51660079010
 ;;9002226.02101,"785,51660079010 ",.02)
 ;;51660079010
 ;;9002226.02101,"785,51660079030 ",.01)
 ;;51660079030
 ;;9002226.02101,"785,51660079030 ",.02)
 ;;51660079030
 ;;9002226.02101,"785,51660079090 ",.01)
 ;;51660079090
 ;;9002226.02101,"785,51660079090 ",.02)
 ;;51660079090
 ;;9002226.02101,"785,51660079110 ",.01)
 ;;51660079110
 ;;9002226.02101,"785,51660079110 ",.02)
 ;;51660079110
 ;;9002226.02101,"785,51660079130 ",.01)
 ;;51660079130
 ;;9002226.02101,"785,51660079130 ",.02)
 ;;51660079130
 ;;9002226.02101,"785,51660079190 ",.01)
 ;;51660079190
 ;;9002226.02101,"785,51660079190 ",.02)
 ;;51660079190
 ;;9002226.02101,"785,51660079210 ",.01)
 ;;51660079210
 ;;9002226.02101,"785,51660079210 ",.02)
 ;;51660079210