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

BGPM5BBS.m

Go to the documentation of this file.
BGPM5BBS ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 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,"1044,00756029801 ",.02)
 ;;00756029801
 ;;9002226.02101,"1044,00756029803 ",.01)
 ;;00756029803
 ;;9002226.02101,"1044,00756029803 ",.02)
 ;;00756029803
 ;;9002226.02101,"1044,00756029805 ",.01)
 ;;00756029805
 ;;9002226.02101,"1044,00756029805 ",.02)
 ;;00756029805
 ;;9002226.02101,"1044,00756029810 ",.01)
 ;;00756029810
 ;;9002226.02101,"1044,00756029810 ",.02)
 ;;00756029810
 ;;9002226.02101,"1044,00756029812 ",.01)
 ;;00756029812
 ;;9002226.02101,"1044,00756029812 ",.02)
 ;;00756029812
 ;;9002226.02101,"1044,00756029860 ",.01)
 ;;00756029860
 ;;9002226.02101,"1044,00756029860 ",.02)
 ;;00756029860
 ;;9002226.02101,"1044,00756029862 ",.01)
 ;;00756029862
 ;;9002226.02101,"1044,00756029862 ",.02)
 ;;00756029862
 ;;9002226.02101,"1044,00756029890 ",.01)
 ;;00756029890
 ;;9002226.02101,"1044,00756029890 ",.02)
 ;;00756029890
 ;;9002226.02101,"1044,00781126601 ",.01)
 ;;00781126601
 ;;9002226.02101,"1044,00781126601 ",.02)
 ;;00781126601
 ;;9002226.02101,"1044,00781126605 ",.01)
 ;;00781126605
 ;;9002226.02101,"1044,00781126605 ",.02)
 ;;00781126605
 ;;9002226.02101,"1044,00781126610 ",.01)
 ;;00781126610
 ;;9002226.02101,"1044,00781126610 ",.02)
 ;;00781126610
 ;;9002226.02101,"1044,00781126613 ",.01)
 ;;00781126613
 ;;9002226.02101,"1044,00781126613 ",.02)
 ;;00781126613
 ;;9002226.02101,"1044,00781148601 ",.01)
 ;;00781148601
 ;;9002226.02101,"1044,00781148601 ",.02)
 ;;00781148601
 ;;9002226.02101,"1044,00781148610 ",.01)
 ;;00781148610
 ;;9002226.02101,"1044,00781148610 ",.02)
 ;;00781148610
 ;;9002226.02101,"1044,00781148631 ",.01)
 ;;00781148631
 ;;9002226.02101,"1044,00781148631 ",.02)
 ;;00781148631
 ;;9002226.02101,"1044,00781148701 ",.01)
 ;;00781148701
 ;;9002226.02101,"1044,00781148701 ",.02)
 ;;00781148701
 ;;9002226.02101,"1044,00781148710 ",.01)
 ;;00781148710
 ;;9002226.02101,"1044,00781148710 ",.02)
 ;;00781148710
 ;;9002226.02101,"1044,00781148731 ",.01)
 ;;00781148731
 ;;9002226.02101,"1044,00781148731 ",.02)
 ;;00781148731
 ;;9002226.02101,"1044,00781148801 ",.01)
 ;;00781148801
 ;;9002226.02101,"1044,00781148801 ",.02)
 ;;00781148801
 ;;9002226.02101,"1044,00781148810 ",.01)
 ;;00781148810
 ;;9002226.02101,"1044,00781148810 ",.02)
 ;;00781148810
 ;;9002226.02101,"1044,00781148831 ",.01)
 ;;00781148831
 ;;9002226.02101,"1044,00781148831 ",.02)
 ;;00781148831
 ;;9002226.02101,"1044,00781148901 ",.01)
 ;;00781148901
 ;;9002226.02101,"1044,00781148901 ",.02)
 ;;00781148901
 ;;9002226.02101,"1044,00781148910 ",.01)
 ;;00781148910
 ;;9002226.02101,"1044,00781148910 ",.02)
 ;;00781148910
 ;;9002226.02101,"1044,00781148931 ",.01)
 ;;00781148931
 ;;9002226.02101,"1044,00781148931 ",.02)
 ;;00781148931
 ;;9002226.02101,"1044,00781149001 ",.01)
 ;;00781149001
 ;;9002226.02101,"1044,00781149001 ",.02)
 ;;00781149001
 ;;9002226.02101,"1044,00781149010 ",.01)
 ;;00781149010
 ;;9002226.02101,"1044,00781149010 ",.02)
 ;;00781149010
 ;;9002226.02101,"1044,00781149031 ",.01)
 ;;00781149031
 ;;9002226.02101,"1044,00781149031 ",.02)
 ;;00781149031
 ;;9002226.02101,"1044,00781149101 ",.01)
 ;;00781149101
 ;;9002226.02101,"1044,00781149101 ",.02)
 ;;00781149101
 ;;9002226.02101,"1044,00781149110 ",.01)
 ;;00781149110
 ;;9002226.02101,"1044,00781149110 ",.02)
 ;;00781149110
 ;;9002226.02101,"1044,00781149131 ",.01)
 ;;00781149131
 ;;9002226.02101,"1044,00781149131 ",.02)
 ;;00781149131
 ;;9002226.02101,"1044,00781176201 ",.01)
 ;;00781176201
 ;;9002226.02101,"1044,00781176201 ",.02)
 ;;00781176201
 ;;9002226.02101,"1044,00781176210 ",.01)
 ;;00781176210
 ;;9002226.02101,"1044,00781176210 ",.02)
 ;;00781176210
 ;;9002226.02101,"1044,00781176231 ",.01)
 ;;00781176231
 ;;9002226.02101,"1044,00781176231 ",.02)
 ;;00781176231
 ;;9002226.02101,"1044,00781176401 ",.01)
 ;;00781176401
 ;;9002226.02101,"1044,00781176401 ",.02)
 ;;00781176401
 ;;9002226.02101,"1044,00781176410 ",.01)
 ;;00781176410
 ;;9002226.02101,"1044,00781176410 ",.02)
 ;;00781176410
 ;;9002226.02101,"1044,00781176413 ",.01)
 ;;00781176413
 ;;9002226.02101,"1044,00781176413 ",.02)
 ;;00781176413
 ;;9002226.02101,"1044,00781176431 ",.01)
 ;;00781176431
 ;;9002226.02101,"1044,00781176431 ",.02)
 ;;00781176431
 ;;9002226.02101,"1044,00781176601 ",.01)
 ;;00781176601
 ;;9002226.02101,"1044,00781176601 ",.02)
 ;;00781176601
 ;;9002226.02101,"1044,00781176610 ",.01)
 ;;00781176610
 ;;9002226.02101,"1044,00781176610 ",.02)
 ;;00781176610
 ;;9002226.02101,"1044,00781176613 ",.01)
 ;;00781176613
 ;;9002226.02101,"1044,00781176613 ",.02)
 ;;00781176613
 ;;9002226.02101,"1044,00781176631 ",.01)
 ;;00781176631
 ;;9002226.02101,"1044,00781176631 ",.02)
 ;;00781176631
 ;;9002226.02101,"1044,00781196701 ",.01)
 ;;00781196701
 ;;9002226.02101,"1044,00781196701 ",.02)
 ;;00781196701
 ;;9002226.02101,"1044,00781196713 ",.01)
 ;;00781196713
 ;;9002226.02101,"1044,00781196713 ",.02)
 ;;00781196713
 ;;9002226.02101,"1044,00781196731 ",.01)
 ;;00781196731
 ;;9002226.02101,"1044,00781196731 ",.02)
 ;;00781196731
 ;;9002226.02101,"1044,00781196901 ",.01)
 ;;00781196901
 ;;9002226.02101,"1044,00781196901 ",.02)
 ;;00781196901
 ;;9002226.02101,"1044,00781196913 ",.01)
 ;;00781196913
 ;;9002226.02101,"1044,00781196913 ",.02)
 ;;00781196913
 ;;9002226.02101,"1044,00781196931 ",.01)
 ;;00781196931
 ;;9002226.02101,"1044,00781196931 ",.02)
 ;;00781196931
 ;;9002226.02101,"1044,00781199101 ",.01)
 ;;00781199101
 ;;9002226.02101,"1044,00781199101 ",.02)
 ;;00781199101
 ;;9002226.02101,"1044,00781199113 ",.01)
 ;;00781199113
 ;;9002226.02101,"1044,00781199113 ",.02)
 ;;00781199113
 ;;9002226.02101,"1044,00781199131 ",.01)
 ;;00781199131
 ;;9002226.02101,"1044,00781199131 ",.02)
 ;;00781199131
 ;;9002226.02101,"1044,00781199201 ",.01)
 ;;00781199201
 ;;9002226.02101,"1044,00781199201 ",.02)
 ;;00781199201
 ;;9002226.02101,"1044,00781199213 ",.01)
 ;;00781199213
 ;;9002226.02101,"1044,00781199213 ",.02)
 ;;00781199213
 ;;9002226.02101,"1044,00781199231 ",.01)
 ;;00781199231
 ;;9002226.02101,"1044,00781199231 ",.02)
 ;;00781199231
 ;;9002226.02101,"1044,00781202701 ",.01)
 ;;00781202701
 ;;9002226.02101,"1044,00781202701 ",.02)
 ;;00781202701
 ;;9002226.02101,"1044,00781202710 ",.01)
 ;;00781202710
 ;;9002226.02101,"1044,00781202710 ",.02)
 ;;00781202710
 ;;9002226.02101,"1044,00781202731 ",.01)
 ;;00781202731
 ;;9002226.02101,"1044,00781202731 ",.02)
 ;;00781202731
 ;;9002226.02101,"1044,00781203701 ",.01)
 ;;00781203701
 ;;9002226.02101,"1044,00781203701 ",.02)
 ;;00781203701
 ;;9002226.02101,"1044,00781203710 ",.01)
 ;;00781203710
 ;;9002226.02101,"1044,00781203710 ",.02)
 ;;00781203710
 ;;9002226.02101,"1044,00781203731 ",.01)
 ;;00781203731
 ;;9002226.02101,"1044,00781203731 ",.02)
 ;;00781203731
 ;;9002226.02101,"1044,00781204701 ",.01)
 ;;00781204701
 ;;9002226.02101,"1044,00781204701 ",.02)
 ;;00781204701
 ;;9002226.02101,"1044,00781204710 ",.01)
 ;;00781204710
 ;;9002226.02101,"1044,00781204710 ",.02)
 ;;00781204710
 ;;9002226.02101,"1044,00781204731 ",.01)
 ;;00781204731
 ;;9002226.02101,"1044,00781204731 ",.02)
 ;;00781204731
 ;;9002226.02101,"1044,00781282201 ",.01)
 ;;00781282201
 ;;9002226.02101,"1044,00781282201 ",.02)
 ;;00781282201
 ;;9002226.02101,"1044,00781282210 ",.01)
 ;;00781282210
 ;;9002226.02101,"1044,00781282210 ",.02)
 ;;00781282210
 ;;9002226.02101,"1044,00781282213 ",.01)
 ;;00781282213
 ;;9002226.02101,"1044,00781282213 ",.02)
 ;;00781282213
 ;;9002226.02101,"1044,00781282231 ",.01)
 ;;00781282231
 ;;9002226.02101,"1044,00781282231 ",.02)
 ;;00781282231
 ;;9002226.02101,"1044,00781282301 ",.01)
 ;;00781282301
 ;;9002226.02101,"1044,00781282301 ",.02)
 ;;00781282301
 ;;9002226.02101,"1044,00781282310 ",.01)
 ;;00781282310
 ;;9002226.02101,"1044,00781282310 ",.02)
 ;;00781282310
 ;;9002226.02101,"1044,00781282313 ",.01)
 ;;00781282313
 ;;9002226.02101,"1044,00781282313 ",.02)
 ;;00781282313
 ;;9002226.02101,"1044,00781282331 ",.01)
 ;;00781282331
 ;;9002226.02101,"1044,00781282331 ",.02)
 ;;00781282331
 ;;9002226.02101,"1044,00781282401 ",.01)
 ;;00781282401
 ;;9002226.02101,"1044,00781282401 ",.02)
 ;;00781282401
 ;;9002226.02101,"1044,00781282410 ",.01)
 ;;00781282410
 ;;9002226.02101,"1044,00781282410 ",.02)
 ;;00781282410
 ;;9002226.02101,"1044,00781282431 ",.01)
 ;;00781282431
 ;;9002226.02101,"1044,00781282431 ",.02)
 ;;00781282431
 ;;9002226.02101,"1044,00781282708 ",.01)
 ;;00781282708
 ;;9002226.02101,"1044,00781282708 ",.02)
 ;;00781282708
 ;;9002226.02101,"1044,00781282731 ",.01)
 ;;00781282731
 ;;9002226.02101,"1044,00781282731 ",.02)
 ;;00781282731
 ;;9002226.02101,"1044,00781282760 ",.01)
 ;;00781282760
 ;;9002226.02101,"1044,00781282760 ",.02)
 ;;00781282760
 ;;9002226.02101,"1044,00781282792 ",.01)
 ;;00781282792
 ;;9002226.02101,"1044,00781282792 ",.02)
 ;;00781282792
 ;;9002226.02101,"1044,00781282808 ",.01)
 ;;00781282808
 ;;9002226.02101,"1044,00781282808 ",.02)
 ;;00781282808
 ;;9002226.02101,"1044,00781282831 ",.01)
 ;;00781282831
 ;;9002226.02101,"1044,00781282831 ",.02)
 ;;00781282831
 ;;9002226.02101,"1044,00781282860 ",.01)
 ;;00781282860
 ;;9002226.02101,"1044,00781282860 ",.02)
 ;;00781282860
 ;;9002226.02101,"1044,00781282892 ",.01)
 ;;00781282892
 ;;9002226.02101,"1044,00781282892 ",.02)
 ;;00781282892
 ;;9002226.02101,"1044,00781515701 ",.01)
 ;;00781515701
 ;;9002226.02101,"1044,00781515701 ",.02)
 ;;00781515701
 ;;9002226.02101,"1044,00781515801 ",.01)
 ;;00781515801
 ;;9002226.02101,"1044,00781515801 ",.02)
 ;;00781515801
 ;;9002226.02101,"1044,00781515901 ",.01)
 ;;00781515901
 ;;9002226.02101,"1044,00781515901 ",.02)
 ;;00781515901
 ;;9002226.02101,"1044,00855162050 ",.01)
 ;;00855162050
 ;;9002226.02101,"1044,00855162050 ",.02)
 ;;00855162050
 ;;9002226.02101,"1044,00855177850 ",.01)
 ;;00855177850
 ;;9002226.02101,"1044,00855177850 ",.02)
 ;;00855177850
 ;;9002226.02101,"1044,00855281650 ",.01)
 ;;00855281650
 ;;9002226.02101,"1044,00855281650 ",.02)
 ;;00855281650
 ;;9002226.02101,"1044,00904020060 ",.01)
 ;;00904020060
 ;;9002226.02101,"1044,00904020060 ",.02)
 ;;00904020060
 ;;9002226.02101,"1044,00904020061 ",.01)
 ;;00904020061
 ;;9002226.02101,"1044,00904020061 ",.02)
 ;;00904020061
 ;;9002226.02101,"1044,00904020080 ",.01)
 ;;00904020080
 ;;9002226.02101,"1044,00904020080 ",.02)
 ;;00904020080
 ;;9002226.02101,"1044,00904020161 ",.01)
 ;;00904020161
 ;;9002226.02101,"1044,00904020161 ",.02)
 ;;00904020161
 ;;9002226.02101,"1044,00904020261 ",.01)
 ;;00904020261
 ;;9002226.02101,"1044,00904020261 ",.02)
 ;;00904020261
 ;;9002226.02101,"1044,00904020360 ",.01)
 ;;00904020360
 ;;9002226.02101,"1044,00904020360 ",.02)
 ;;00904020360
 ;;9002226.02101,"1044,00904020361 ",.01)
 ;;00904020361
 ;;9002226.02101,"1044,00904020361 ",.02)
 ;;00904020361
 ;;9002226.02101,"1044,00904020460 ",.01)
 ;;00904020460
 ;;9002226.02101,"1044,00904020460 ",.02)
 ;;00904020460
 ;;9002226.02101,"1044,00904020560 ",.01)
 ;;00904020560
 ;;9002226.02101,"1044,00904020560 ",.02)
 ;;00904020560
 ;;9002226.02101,"1044,00904092570 ",.01)
 ;;00904092570
 ;;9002226.02101,"1044,00904092570 ",.02)
 ;;00904092570
 ;;9002226.02101,"1044,00904092580 ",.01)
 ;;00904092580
 ;;9002226.02101,"1044,00904092580 ",.02)
 ;;00904092580
 ;;9002226.02101,"1044,00904092770 ",.01)
 ;;00904092770
 ;;9002226.02101,"1044,00904092770 ",.02)
 ;;00904092770
 ;;9002226.02101,"1044,00904092780 ",.01)
 ;;00904092780
 ;;9002226.02101,"1044,00904092780 ",.02)
 ;;00904092780
 ;;9002226.02101,"1044,00904092970 ",.01)
 ;;00904092970
 ;;9002226.02101,"1044,00904092970 ",.02)
 ;;00904092970