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

BGPM5AMH.m

Go to the documentation of this file.
BGPM5AMH ;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,"900,67317031306 ",.01)
 ;;67317031306
 ;;9002226.02101,"900,67317031306 ",.02)
 ;;67317031306
 ;;9002226.02101,"900,67317031501 ",.01)
 ;;67317031501
 ;;9002226.02101,"900,67317031501 ",.02)
 ;;67317031501
 ;;9002226.02101,"900,67317031502 ",.01)
 ;;67317031502
 ;;9002226.02101,"900,67317031502 ",.02)
 ;;67317031502
 ;;9002226.02101,"900,67317031503 ",.01)
 ;;67317031503
 ;;9002226.02101,"900,67317031503 ",.02)
 ;;67317031503
 ;;9002226.02101,"900,67317031504 ",.01)
 ;;67317031504
 ;;9002226.02101,"900,67317031504 ",.02)
 ;;67317031504
 ;;9002226.02101,"900,67317031505 ",.01)
 ;;67317031505
 ;;9002226.02101,"900,67317031505 ",.02)
 ;;67317031505
 ;;9002226.02101,"900,67544005015 ",.01)
 ;;67544005015
 ;;9002226.02101,"900,67544005015 ",.02)
 ;;67544005015
 ;;9002226.02101,"900,67544005030 ",.01)
 ;;67544005030
 ;;9002226.02101,"900,67544005030 ",.02)
 ;;67544005030
 ;;9002226.02101,"900,67544005045 ",.01)
 ;;67544005045
 ;;9002226.02101,"900,67544005045 ",.02)
 ;;67544005045
 ;;9002226.02101,"900,67544005053 ",.01)
 ;;67544005053
 ;;9002226.02101,"900,67544005053 ",.02)
 ;;67544005053
 ;;9002226.02101,"900,67544005060 ",.01)
 ;;67544005060
 ;;9002226.02101,"900,67544005060 ",.02)
 ;;67544005060
 ;;9002226.02101,"900,67544005115 ",.01)
 ;;67544005115
 ;;9002226.02101,"900,67544005115 ",.02)
 ;;67544005115
 ;;9002226.02101,"900,67544005145 ",.01)
 ;;67544005145
 ;;9002226.02101,"900,67544005145 ",.02)
 ;;67544005145
 ;;9002226.02101,"900,67544005153 ",.01)
 ;;67544005153
 ;;9002226.02101,"900,67544005153 ",.02)
 ;;67544005153
 ;;9002226.02101,"900,67544006015 ",.01)
 ;;67544006015
 ;;9002226.02101,"900,67544006015 ",.02)
 ;;67544006015
 ;;9002226.02101,"900,67544006030 ",.01)
 ;;67544006030
 ;;9002226.02101,"900,67544006030 ",.02)
 ;;67544006030
 ;;9002226.02101,"900,67544006045 ",.01)
 ;;67544006045
 ;;9002226.02101,"900,67544006045 ",.02)
 ;;67544006045
 ;;9002226.02101,"900,67544006060 ",.01)
 ;;67544006060
 ;;9002226.02101,"900,67544006060 ",.02)
 ;;67544006060
 ;;9002226.02101,"900,67544008115 ",.01)
 ;;67544008115
 ;;9002226.02101,"900,67544008115 ",.02)
 ;;67544008115
 ;;9002226.02101,"900,67544008145 ",.01)
 ;;67544008145
 ;;9002226.02101,"900,67544008145 ",.02)
 ;;67544008145
 ;;9002226.02101,"900,67544008215 ",.01)
 ;;67544008215
 ;;9002226.02101,"900,67544008215 ",.02)
 ;;67544008215
 ;;9002226.02101,"900,67544008245 ",.01)
 ;;67544008245
 ;;9002226.02101,"900,67544008245 ",.02)
 ;;67544008245
 ;;9002226.02101,"900,67544009631 ",.01)
 ;;67544009631
 ;;9002226.02101,"900,67544009631 ",.02)
 ;;67544009631
 ;;9002226.02101,"900,67544009660 ",.01)
 ;;67544009660
 ;;9002226.02101,"900,67544009660 ",.02)
 ;;67544009660
 ;;9002226.02101,"900,67544009680 ",.01)
 ;;67544009680
 ;;9002226.02101,"900,67544009680 ",.02)
 ;;67544009680
 ;;9002226.02101,"900,67544010615 ",.01)
 ;;67544010615
 ;;9002226.02101,"900,67544010615 ",.02)
 ;;67544010615
 ;;9002226.02101,"900,67544010630 ",.01)
 ;;67544010630
 ;;9002226.02101,"900,67544010630 ",.02)
 ;;67544010630
 ;;9002226.02101,"900,67544010631 ",.01)
 ;;67544010631
 ;;9002226.02101,"900,67544010631 ",.02)
 ;;67544010631
 ;;9002226.02101,"900,67544010632 ",.01)
 ;;67544010632
 ;;9002226.02101,"900,67544010632 ",.02)
 ;;67544010632
 ;;9002226.02101,"900,67544010645 ",.01)
 ;;67544010645
 ;;9002226.02101,"900,67544010645 ",.02)
 ;;67544010645
 ;;9002226.02101,"900,67544010653 ",.01)
 ;;67544010653
 ;;9002226.02101,"900,67544010653 ",.02)
 ;;67544010653
 ;;9002226.02101,"900,67544010660 ",.01)
 ;;67544010660
 ;;9002226.02101,"900,67544010660 ",.02)
 ;;67544010660
 ;;9002226.02101,"900,67544010680 ",.01)
 ;;67544010680
 ;;9002226.02101,"900,67544010680 ",.02)
 ;;67544010680
 ;;9002226.02101,"900,67544013730 ",.01)
 ;;67544013730
 ;;9002226.02101,"900,67544013730 ",.02)
 ;;67544013730
 ;;9002226.02101,"900,67544013731 ",.01)
 ;;67544013731
 ;;9002226.02101,"900,67544013731 ",.02)
 ;;67544013731
 ;;9002226.02101,"900,67544013732 ",.01)
 ;;67544013732
 ;;9002226.02101,"900,67544013732 ",.02)
 ;;67544013732
 ;;9002226.02101,"900,67544013760 ",.01)
 ;;67544013760
 ;;9002226.02101,"900,67544013760 ",.02)
 ;;67544013760
 ;;9002226.02101,"900,67544013780 ",.01)
 ;;67544013780
 ;;9002226.02101,"900,67544013780 ",.02)
 ;;67544013780
 ;;9002226.02101,"900,67544022515 ",.01)
 ;;67544022515
 ;;9002226.02101,"900,67544022515 ",.02)
 ;;67544022515
 ;;9002226.02101,"900,67544022530 ",.01)
 ;;67544022530
 ;;9002226.02101,"900,67544022530 ",.02)
 ;;67544022530
 ;;9002226.02101,"900,67544022532 ",.01)
 ;;67544022532
 ;;9002226.02101,"900,67544022532 ",.02)
 ;;67544022532
 ;;9002226.02101,"900,67544022545 ",.01)
 ;;67544022545
 ;;9002226.02101,"900,67544022545 ",.02)
 ;;67544022545
 ;;9002226.02101,"900,67544022553 ",.01)
 ;;67544022553
 ;;9002226.02101,"900,67544022553 ",.02)
 ;;67544022553
 ;;9002226.02101,"900,67544022560 ",.01)
 ;;67544022560
 ;;9002226.02101,"900,67544022560 ",.02)
 ;;67544022560
 ;;9002226.02101,"900,67544022580 ",.01)
 ;;67544022580
 ;;9002226.02101,"900,67544022580 ",.02)
 ;;67544022580
 ;;9002226.02101,"900,67544024530 ",.01)
 ;;67544024530
 ;;9002226.02101,"900,67544024530 ",.02)
 ;;67544024530
 ;;9002226.02101,"900,67544024560 ",.01)
 ;;67544024560
 ;;9002226.02101,"900,67544024560 ",.02)
 ;;67544024560
 ;;9002226.02101,"900,67544035160 ",.01)
 ;;67544035160
 ;;9002226.02101,"900,67544035160 ",.02)
 ;;67544035160
 ;;9002226.02101,"900,67544035180 ",.01)
 ;;67544035180
 ;;9002226.02101,"900,67544035180 ",.02)
 ;;67544035180
 ;;9002226.02101,"900,67544043560 ",.01)
 ;;67544043560
 ;;9002226.02101,"900,67544043560 ",.02)
 ;;67544043560
 ;;9002226.02101,"900,67544059731 ",.01)
 ;;67544059731
 ;;9002226.02101,"900,67544059731 ",.02)
 ;;67544059731
 ;;9002226.02101,"900,67544069131 ",.01)
 ;;67544069131
 ;;9002226.02101,"900,67544069131 ",.02)
 ;;67544069131
 ;;9002226.02101,"900,67544069231 ",.01)
 ;;67544069231
 ;;9002226.02101,"900,67544069231 ",.02)
 ;;67544069231
 ;;9002226.02101,"900,67544069232 ",.01)
 ;;67544069232
 ;;9002226.02101,"900,67544069232 ",.02)
 ;;67544069232
 ;;9002226.02101,"900,67544075715 ",.01)
 ;;67544075715
 ;;9002226.02101,"900,67544075715 ",.02)
 ;;67544075715
 ;;9002226.02101,"900,67544075731 ",.01)
 ;;67544075731
 ;;9002226.02101,"900,67544075731 ",.02)
 ;;67544075731
 ;;9002226.02101,"900,67544075760 ",.01)
 ;;67544075760
 ;;9002226.02101,"900,67544075760 ",.02)
 ;;67544075760
 ;;9002226.02101,"900,67544078932 ",.01)
 ;;67544078932
 ;;9002226.02101,"900,67544078932 ",.02)
 ;;67544078932
 ;;9002226.02101,"900,67544083031 ",.01)
 ;;67544083031
 ;;9002226.02101,"900,67544083031 ",.02)
 ;;67544083031
 ;;9002226.02101,"900,67544091032 ",.01)
 ;;67544091032
 ;;9002226.02101,"900,67544091032 ",.02)
 ;;67544091032
 ;;9002226.02101,"900,67544093632 ",.01)
 ;;67544093632
 ;;9002226.02101,"900,67544093632 ",.02)
 ;;67544093632
 ;;9002226.02101,"900,67651002205 ",.01)
 ;;67651002205
 ;;9002226.02101,"900,67651002205 ",.02)
 ;;67651002205
 ;;9002226.02101,"900,67651002206 ",.01)
 ;;67651002206
 ;;9002226.02101,"900,67651002206 ",.02)
 ;;67651002206
 ;;9002226.02101,"900,67707004330 ",.01)
 ;;67707004330
 ;;9002226.02101,"900,67707004330 ",.02)
 ;;67707004330
 ;;9002226.02101,"900,67707004399 ",.01)
 ;;67707004399
 ;;9002226.02101,"900,67707004399 ",.02)
 ;;67707004399
 ;;9002226.02101,"900,67707013003 ",.01)
 ;;67707013003
 ;;9002226.02101,"900,67707013003 ",.02)
 ;;67707013003
 ;;9002226.02101,"900,67707013007 ",.01)
 ;;67707013007
 ;;9002226.02101,"900,67707013007 ",.02)
 ;;67707013007
 ;;9002226.02101,"900,67707013030 ",.01)
 ;;67707013030
 ;;9002226.02101,"900,67707013030 ",.02)
 ;;67707013030
 ;;9002226.02101,"900,67707013099 ",.01)
 ;;67707013099
 ;;9002226.02101,"900,67707013099 ",.02)
 ;;67707013099
 ;;9002226.02101,"900,67787022505 ",.01)
 ;;67787022505
 ;;9002226.02101,"900,67787022505 ",.02)
 ;;67787022505
 ;;9002226.02101,"900,67787022518 ",.01)
 ;;67787022518
 ;;9002226.02101,"900,67787022518 ",.02)
 ;;67787022518
 ;;9002226.02101,"900,67787022540 ",.01)
 ;;67787022540
 ;;9002226.02101,"900,67787022540 ",.02)
 ;;67787022540
 ;;9002226.02101,"900,67787022552 ",.01)
 ;;67787022552
 ;;9002226.02101,"900,67787022552 ",.02)
 ;;67787022552
 ;;9002226.02101,"900,67787022560 ",.01)
 ;;67787022560
 ;;9002226.02101,"900,67787022560 ",.02)
 ;;67787022560
 ;;9002226.02101,"900,67801030103 ",.01)
 ;;67801030103
 ;;9002226.02101,"900,67801030103 ",.02)
 ;;67801030103
 ;;9002226.02101,"900,67801030135 ",.01)
 ;;67801030135
 ;;9002226.02101,"900,67801030135 ",.02)
 ;;67801030135
 ;;9002226.02101,"900,67801031403 ",.01)
 ;;67801031403
 ;;9002226.02101,"900,67801031403 ",.02)
 ;;67801031403
 ;;9002226.02101,"900,67801040103 ",.01)
 ;;67801040103
 ;;9002226.02101,"900,67801040103 ",.02)
 ;;67801040103
 ;;9002226.02101,"900,67801040203 ",.01)
 ;;67801040203
 ;;9002226.02101,"900,67801040203 ",.02)
 ;;67801040203
 ;;9002226.02101,"900,67801040206 ",.01)
 ;;67801040206
 ;;9002226.02101,"900,67801040206 ",.02)
 ;;67801040206
 ;;9002226.02101,"900,67801040209 ",.01)
 ;;67801040209
 ;;9002226.02101,"900,67801040209 ",.02)
 ;;67801040209
 ;;9002226.02101,"900,67801040230 ",.01)
 ;;67801040230
 ;;9002226.02101,"900,67801040230 ",.02)
 ;;67801040230
 ;;9002226.02101,"900,67801041403 ",.01)
 ;;67801041403
 ;;9002226.02101,"900,67801041403 ",.02)
 ;;67801041403
 ;;9002226.02101,"900,68071015430 ",.01)
 ;;68071015430
 ;;9002226.02101,"900,68071015430 ",.02)
 ;;68071015430
 ;;9002226.02101,"900,68071026330 ",.01)
 ;;68071026330
 ;;9002226.02101,"900,68071026330 ",.02)
 ;;68071026330
 ;;9002226.02101,"900,68071031030 ",.01)
 ;;68071031030
 ;;9002226.02101,"900,68071031030 ",.02)
 ;;68071031030
 ;;9002226.02101,"900,68071039930 ",.01)
 ;;68071039930
 ;;9002226.02101,"900,68071039930 ",.02)
 ;;68071039930
 ;;9002226.02101,"900,68071043290 ",.01)
 ;;68071043290
 ;;9002226.02101,"900,68071043290 ",.02)
 ;;68071043290
 ;;9002226.02101,"900,68071043330 ",.01)
 ;;68071043330
 ;;9002226.02101,"900,68071043330 ",.02)
 ;;68071043330
 ;;9002226.02101,"900,68071078430 ",.01)
 ;;68071078430
 ;;9002226.02101,"900,68071078430 ",.02)
 ;;68071078430
 ;;9002226.02101,"900,68084013101 ",.01)
 ;;68084013101
 ;;9002226.02101,"900,68084013101 ",.02)
 ;;68084013101
 ;;9002226.02101,"900,68084013111 ",.01)
 ;;68084013111
 ;;9002226.02101,"900,68084013111 ",.02)
 ;;68084013111
 ;;9002226.02101,"900,68084013201 ",.01)
 ;;68084013201
 ;;9002226.02101,"900,68084013201 ",.02)
 ;;68084013201
 ;;9002226.02101,"900,68084013211 ",.01)
 ;;68084013211
 ;;9002226.02101,"900,68084013211 ",.02)
 ;;68084013211
 ;;9002226.02101,"900,68084013301 ",.01)
 ;;68084013301
 ;;9002226.02101,"900,68084013301 ",.02)
 ;;68084013301
 ;;9002226.02101,"900,68084013311 ",.01)
 ;;68084013311
 ;;9002226.02101,"900,68084013311 ",.02)
 ;;68084013311
 ;;9002226.02101,"900,68084032911 ",.01)
 ;;68084032911
 ;;9002226.02101,"900,68084032911 ",.02)
 ;;68084032911
 ;;9002226.02101,"900,68084032921 ",.01)
 ;;68084032921
 ;;9002226.02101,"900,68084032921 ",.02)
 ;;68084032921
 ;;9002226.02101,"900,68084047301 ",.01)
 ;;68084047301
 ;;9002226.02101,"900,68084047301 ",.02)
 ;;68084047301
 ;;9002226.02101,"900,68084047311 ",.01)
 ;;68084047311
 ;;9002226.02101,"900,68084047311 ",.02)
 ;;68084047311
 ;;9002226.02101,"900,68115077730 ",.01)
 ;;68115077730
 ;;9002226.02101,"900,68115077730 ",.02)
 ;;68115077730
 ;;9002226.02101,"900,68180046701 ",.01)
 ;;68180046701
 ;;9002226.02101,"900,68180046701 ",.02)
 ;;68180046701