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

BGPM3ADH.m

Go to the documentation of this file.
BGPM3ADH ;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,67544085530 ",.02)
 ;;67544085530
 ;;9002226.02101,"786,67544085545 ",.01)
 ;;67544085545
 ;;9002226.02101,"786,67544085545 ",.02)
 ;;67544085545
 ;;9002226.02101,"786,67544085560 ",.01)
 ;;67544085560
 ;;9002226.02101,"786,67544085560 ",.02)
 ;;67544085560
 ;;9002226.02101,"786,67544085615 ",.01)
 ;;67544085615
 ;;9002226.02101,"786,67544085615 ",.02)
 ;;67544085615
 ;;9002226.02101,"786,67544085645 ",.01)
 ;;67544085645
 ;;9002226.02101,"786,67544085645 ",.02)
 ;;67544085645
 ;;9002226.02101,"786,67544085715 ",.01)
 ;;67544085715
 ;;9002226.02101,"786,67544085715 ",.02)
 ;;67544085715
 ;;9002226.02101,"786,67544085716 ",.01)
 ;;67544085716
 ;;9002226.02101,"786,67544085716 ",.02)
 ;;67544085716
 ;;9002226.02101,"786,67544085745 ",.01)
 ;;67544085745
 ;;9002226.02101,"786,67544085745 ",.02)
 ;;67544085745
 ;;9002226.02101,"786,67544085753 ",.01)
 ;;67544085753
 ;;9002226.02101,"786,67544085753 ",.02)
 ;;67544085753
 ;;9002226.02101,"786,67544091032 ",.01)
 ;;67544091032
 ;;9002226.02101,"786,67544091032 ",.02)
 ;;67544091032
 ;;9002226.02101,"786,67544092230 ",.01)
 ;;67544092230
 ;;9002226.02101,"786,67544092230 ",.02)
 ;;67544092230
 ;;9002226.02101,"786,67544092231 ",.01)
 ;;67544092231
 ;;9002226.02101,"786,67544092231 ",.02)
 ;;67544092231
 ;;9002226.02101,"786,67544092232 ",.01)
 ;;67544092232
 ;;9002226.02101,"786,67544092232 ",.02)
 ;;67544092232
 ;;9002226.02101,"786,67544092245 ",.01)
 ;;67544092245
 ;;9002226.02101,"786,67544092245 ",.02)
 ;;67544092245
 ;;9002226.02101,"786,67544093632 ",.01)
 ;;67544093632
 ;;9002226.02101,"786,67544093632 ",.02)
 ;;67544093632
 ;;9002226.02101,"786,67651002205 ",.01)
 ;;67651002205
 ;;9002226.02101,"786,67651002205 ",.02)
 ;;67651002205
 ;;9002226.02101,"786,67651002206 ",.01)
 ;;67651002206
 ;;9002226.02101,"786,67651002206 ",.02)
 ;;67651002206
 ;;9002226.02101,"786,67787022505 ",.01)
 ;;67787022505
 ;;9002226.02101,"786,67787022505 ",.02)
 ;;67787022505
 ;;9002226.02101,"786,67787022518 ",.01)
 ;;67787022518
 ;;9002226.02101,"786,67787022518 ",.02)
 ;;67787022518
 ;;9002226.02101,"786,67787022540 ",.01)
 ;;67787022540
 ;;9002226.02101,"786,67787022540 ",.02)
 ;;67787022540
 ;;9002226.02101,"786,67787022552 ",.01)
 ;;67787022552
 ;;9002226.02101,"786,67787022552 ",.02)
 ;;67787022552
 ;;9002226.02101,"786,67787022560 ",.01)
 ;;67787022560
 ;;9002226.02101,"786,67787022560 ",.02)
 ;;67787022560
 ;;9002226.02101,"786,68071069005 ",.01)
 ;;68071069005
 ;;9002226.02101,"786,68071069005 ",.02)
 ;;68071069005
 ;;9002226.02101,"786,68071069930 ",.01)
 ;;68071069930
 ;;9002226.02101,"786,68071069930 ",.02)
 ;;68071069930
 ;;9002226.02101,"786,68071070430 ",.01)
 ;;68071070430
 ;;9002226.02101,"786,68071070430 ",.02)
 ;;68071070430
 ;;9002226.02101,"786,68071071630 ",.01)
 ;;68071071630
 ;;9002226.02101,"786,68071071630 ",.02)
 ;;68071071630
 ;;9002226.02101,"786,68084013101 ",.01)
 ;;68084013101
 ;;9002226.02101,"786,68084013101 ",.02)
 ;;68084013101
 ;;9002226.02101,"786,68084013110 ",.01)
 ;;68084013110
 ;;9002226.02101,"786,68084013110 ",.02)
 ;;68084013110
 ;;9002226.02101,"786,68084013111 ",.01)
 ;;68084013111
 ;;9002226.02101,"786,68084013111 ",.02)
 ;;68084013111
 ;;9002226.02101,"786,68084013201 ",.01)
 ;;68084013201
 ;;9002226.02101,"786,68084013201 ",.02)
 ;;68084013201
 ;;9002226.02101,"786,68084013210 ",.01)
 ;;68084013210
 ;;9002226.02101,"786,68084013210 ",.02)
 ;;68084013210
 ;;9002226.02101,"786,68084013301 ",.01)
 ;;68084013301
 ;;9002226.02101,"786,68084013301 ",.02)
 ;;68084013301
 ;;9002226.02101,"786,68084013310 ",.01)
 ;;68084013310
 ;;9002226.02101,"786,68084013310 ",.02)
 ;;68084013310
 ;;9002226.02101,"786,68084016101 ",.01)
 ;;68084016101
 ;;9002226.02101,"786,68084016101 ",.02)
 ;;68084016101
 ;;9002226.02101,"786,68084016111 ",.01)
 ;;68084016111
 ;;9002226.02101,"786,68084016111 ",.02)
 ;;68084016111
 ;;9002226.02101,"786,68084016201 ",.01)
 ;;68084016201
 ;;9002226.02101,"786,68084016201 ",.02)
 ;;68084016201
 ;;9002226.02101,"786,68084016211 ",.01)
 ;;68084016211
 ;;9002226.02101,"786,68084016211 ",.02)
 ;;68084016211
 ;;9002226.02101,"786,68084016301 ",.01)
 ;;68084016301
 ;;9002226.02101,"786,68084016301 ",.02)
 ;;68084016301
 ;;9002226.02101,"786,68084016311 ",.01)
 ;;68084016311
 ;;9002226.02101,"786,68084016311 ",.02)
 ;;68084016311
 ;;9002226.02101,"786,68084016401 ",.01)
 ;;68084016401
 ;;9002226.02101,"786,68084016401 ",.02)
 ;;68084016401
 ;;9002226.02101,"786,68084016411 ",.01)
 ;;68084016411
 ;;9002226.02101,"786,68084016411 ",.02)
 ;;68084016411
 ;;9002226.02101,"786,68084016501 ",.01)
 ;;68084016501
 ;;9002226.02101,"786,68084016501 ",.02)
 ;;68084016501
 ;;9002226.02101,"786,68084016511 ",.01)
 ;;68084016511
 ;;9002226.02101,"786,68084016511 ",.02)
 ;;68084016511
 ;;9002226.02101,"786,68084031214 ",.01)
 ;;68084031214
 ;;9002226.02101,"786,68084031214 ",.02)
 ;;68084031214
 ;;9002226.02101,"786,68084032801 ",.01)
 ;;68084032801
 ;;9002226.02101,"786,68084032801 ",.02)
 ;;68084032801
 ;;9002226.02101,"786,68084032821 ",.01)
 ;;68084032821
 ;;9002226.02101,"786,68084032821 ",.02)
 ;;68084032821
 ;;9002226.02101,"786,68084032921 ",.01)
 ;;68084032921
 ;;9002226.02101,"786,68084032921 ",.02)
 ;;68084032921
 ;;9002226.02101,"786,68115015360 ",.01)
 ;;68115015360
 ;;9002226.02101,"786,68115015360 ",.02)
 ;;68115015360
 ;;9002226.02101,"786,68115015390 ",.01)
 ;;68115015390
 ;;9002226.02101,"786,68115015390 ",.02)
 ;;68115015390
 ;;9002226.02101,"786,68115021830 ",.01)
 ;;68115021830
 ;;9002226.02101,"786,68115021830 ",.02)
 ;;68115021830
 ;;9002226.02101,"786,68115021930 ",.01)
 ;;68115021930
 ;;9002226.02101,"786,68115021930 ",.02)
 ;;68115021930
 ;;9002226.02101,"786,68115021960 ",.01)
 ;;68115021960
 ;;9002226.02101,"786,68115021960 ",.02)
 ;;68115021960
 ;;9002226.02101,"786,68115065800 ",.01)
 ;;68115065800
 ;;9002226.02101,"786,68115065800 ",.02)
 ;;68115065800
 ;;9002226.02101,"786,68180046701 ",.01)
 ;;68180046701
 ;;9002226.02101,"786,68180046701 ",.02)
 ;;68180046701
 ;;9002226.02101,"786,68180046703 ",.01)
 ;;68180046703
 ;;9002226.02101,"786,68180046703 ",.02)
 ;;68180046703
 ;;9002226.02101,"786,68180046707 ",.01)
 ;;68180046707
 ;;9002226.02101,"786,68180046707 ",.02)
 ;;68180046707
 ;;9002226.02101,"786,68180046801 ",.01)
 ;;68180046801
 ;;9002226.02101,"786,68180046801 ",.02)
 ;;68180046801
 ;;9002226.02101,"786,68180046803 ",.01)
 ;;68180046803
 ;;9002226.02101,"786,68180046803 ",.02)
 ;;68180046803
 ;;9002226.02101,"786,68180046805 ",.01)
 ;;68180046805
 ;;9002226.02101,"786,68180046805 ",.02)
 ;;68180046805
 ;;9002226.02101,"786,68180046807 ",.01)
 ;;68180046807
 ;;9002226.02101,"786,68180046807 ",.02)
 ;;68180046807
 ;;9002226.02101,"786,68180046809 ",.01)
 ;;68180046809
 ;;9002226.02101,"786,68180046809 ",.02)
 ;;68180046809
 ;;9002226.02101,"786,68180046901 ",.01)
 ;;68180046901
 ;;9002226.02101,"786,68180046901 ",.02)
 ;;68180046901
 ;;9002226.02101,"786,68180046903 ",.01)
 ;;68180046903
 ;;9002226.02101,"786,68180046903 ",.02)
 ;;68180046903
 ;;9002226.02101,"786,68180046905 ",.01)
 ;;68180046905
 ;;9002226.02101,"786,68180046905 ",.02)
 ;;68180046905
 ;;9002226.02101,"786,68180046907 ",.01)
 ;;68180046907
 ;;9002226.02101,"786,68180046907 ",.02)
 ;;68180046907
 ;;9002226.02101,"786,68180046909 ",.01)
 ;;68180046909
 ;;9002226.02101,"786,68180046909 ",.02)
 ;;68180046909
 ;;9002226.02101,"786,68180047801 ",.01)
 ;;68180047801
 ;;9002226.02101,"786,68180047801 ",.02)
 ;;68180047801
 ;;9002226.02101,"786,68180047802 ",.01)
 ;;68180047802
 ;;9002226.02101,"786,68180047802 ",.02)
 ;;68180047802
 ;;9002226.02101,"786,68180047803 ",.01)
 ;;68180047803
 ;;9002226.02101,"786,68180047803 ",.02)
 ;;68180047803
 ;;9002226.02101,"786,68180047901 ",.01)
 ;;68180047901
 ;;9002226.02101,"786,68180047901 ",.02)
 ;;68180047901
 ;;9002226.02101,"786,68180047902 ",.01)
 ;;68180047902
 ;;9002226.02101,"786,68180047902 ",.02)
 ;;68180047902
 ;;9002226.02101,"786,68180047903 ",.01)
 ;;68180047903
 ;;9002226.02101,"786,68180047903 ",.02)
 ;;68180047903
 ;;9002226.02101,"786,68180048001 ",.01)
 ;;68180048001
 ;;9002226.02101,"786,68180048001 ",.02)
 ;;68180048001
 ;;9002226.02101,"786,68180048002 ",.01)
 ;;68180048002
 ;;9002226.02101,"786,68180048002 ",.02)
 ;;68180048002
 ;;9002226.02101,"786,68180048003 ",.01)
 ;;68180048003
 ;;9002226.02101,"786,68180048003 ",.02)
 ;;68180048003
 ;;9002226.02101,"786,68180048101 ",.01)
 ;;68180048101
 ;;9002226.02101,"786,68180048101 ",.02)
 ;;68180048101
 ;;9002226.02101,"786,68180048102 ",.01)
 ;;68180048102
 ;;9002226.02101,"786,68180048102 ",.02)
 ;;68180048102
 ;;9002226.02101,"786,68180048103 ",.01)
 ;;68180048103
 ;;9002226.02101,"786,68180048103 ",.02)
 ;;68180048103
 ;;9002226.02101,"786,68180048203 ",.01)
 ;;68180048203
 ;;9002226.02101,"786,68180048203 ",.02)
 ;;68180048203
 ;;9002226.02101,"786,68180048206 ",.01)
 ;;68180048206
 ;;9002226.02101,"786,68180048206 ",.02)
 ;;68180048206
 ;;9002226.02101,"786,68180048209 ",.01)
 ;;68180048209
 ;;9002226.02101,"786,68180048209 ",.02)
 ;;68180048209
 ;;9002226.02101,"786,68180048213 ",.01)
 ;;68180048213
 ;;9002226.02101,"786,68180048213 ",.02)
 ;;68180048213
 ;;9002226.02101,"786,68382006505 ",.01)
 ;;68382006505
 ;;9002226.02101,"786,68382006505 ",.02)
 ;;68382006505
 ;;9002226.02101,"786,68382006506 ",.01)
 ;;68382006506
 ;;9002226.02101,"786,68382006506 ",.02)
 ;;68382006506
 ;;9002226.02101,"786,68382006510 ",.01)
 ;;68382006510
 ;;9002226.02101,"786,68382006510 ",.02)
 ;;68382006510
 ;;9002226.02101,"786,68382006514 ",.01)
 ;;68382006514
 ;;9002226.02101,"786,68382006514 ",.02)
 ;;68382006514
 ;;9002226.02101,"786,68382006516 ",.01)
 ;;68382006516
 ;;9002226.02101,"786,68382006516 ",.02)
 ;;68382006516
 ;;9002226.02101,"786,68382006605 ",.01)
 ;;68382006605
 ;;9002226.02101,"786,68382006605 ",.02)
 ;;68382006605
 ;;9002226.02101,"786,68382006606 ",.01)
 ;;68382006606
 ;;9002226.02101,"786,68382006606 ",.02)
 ;;68382006606
 ;;9002226.02101,"786,68382006610 ",.01)
 ;;68382006610
 ;;9002226.02101,"786,68382006610 ",.02)
 ;;68382006610
 ;;9002226.02101,"786,68382006614 ",.01)
 ;;68382006614
 ;;9002226.02101,"786,68382006614 ",.02)
 ;;68382006614
 ;;9002226.02101,"786,68382006616 ",.01)
 ;;68382006616
 ;;9002226.02101,"786,68382006616 ",.02)
 ;;68382006616
 ;;9002226.02101,"786,68382006624 ",.01)
 ;;68382006624
 ;;9002226.02101,"786,68382006624 ",.02)
 ;;68382006624
 ;;9002226.02101,"786,68382006705 ",.01)
 ;;68382006705
 ;;9002226.02101,"786,68382006705 ",.02)
 ;;68382006705
 ;;9002226.02101,"786,68382006706 ",.01)
 ;;68382006706
 ;;9002226.02101,"786,68382006706 ",.02)
 ;;68382006706
 ;;9002226.02101,"786,68382006710 ",.01)
 ;;68382006710
 ;;9002226.02101,"786,68382006710 ",.02)
 ;;68382006710
 ;;9002226.02101,"786,68382006714 ",.01)
 ;;68382006714
 ;;9002226.02101,"786,68382006714 ",.02)
 ;;68382006714
 ;;9002226.02101,"786,68382006716 ",.01)
 ;;68382006716
 ;;9002226.02101,"786,68382006716 ",.02)
 ;;68382006716
 ;;9002226.02101,"786,68382006724 ",.01)
 ;;68382006724
 ;;9002226.02101,"786,68382006724 ",.02)
 ;;68382006724
 ;;9002226.02101,"786,68382006805 ",.01)
 ;;68382006805
 ;;9002226.02101,"786,68382006805 ",.02)
 ;;68382006805
 ;;9002226.02101,"786,68382006806 ",.01)
 ;;68382006806
 ;;9002226.02101,"786,68382006806 ",.02)
 ;;68382006806
 ;;9002226.02101,"786,68382006810 ",.01)
 ;;68382006810
 ;;9002226.02101,"786,68382006810 ",.02)
 ;;68382006810
 ;;9002226.02101,"786,68382006814 ",.01)
 ;;68382006814