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

BGPM5BDK.m

Go to the documentation of this file.
BGPM5BDK ;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,59762141809 ",.02)
 ;;59762141809
 ;;9002226.02101,"1044,59762180801 ",.01)
 ;;59762180801
 ;;9002226.02101,"1044,59762180801 ",.02)
 ;;59762180801
 ;;9002226.02101,"1044,59762180802 ",.01)
 ;;59762180802
 ;;9002226.02101,"1044,59762180802 ",.02)
 ;;59762180802
 ;;9002226.02101,"1044,59762180803 ",.01)
 ;;59762180803
 ;;9002226.02101,"1044,59762180803 ",.02)
 ;;59762180803
 ;;9002226.02101,"1044,59762181001 ",.01)
 ;;59762181001
 ;;9002226.02101,"1044,59762181001 ",.02)
 ;;59762181001
 ;;9002226.02101,"1044,59762181002 ",.01)
 ;;59762181002
 ;;9002226.02101,"1044,59762181002 ",.02)
 ;;59762181002
 ;;9002226.02101,"1044,59762181003 ",.01)
 ;;59762181003
 ;;9002226.02101,"1044,59762181003 ",.02)
 ;;59762181003
 ;;9002226.02101,"1044,59762181004 ",.01)
 ;;59762181004
 ;;9002226.02101,"1044,59762181004 ",.02)
 ;;59762181004
 ;;9002226.02101,"1044,59762181201 ",.01)
 ;;59762181201
 ;;9002226.02101,"1044,59762181201 ",.02)
 ;;59762181201
 ;;9002226.02101,"1044,59762181202 ",.01)
 ;;59762181202
 ;;9002226.02101,"1044,59762181202 ",.02)
 ;;59762181202
 ;;9002226.02101,"1044,59762181203 ",.01)
 ;;59762181203
 ;;9002226.02101,"1044,59762181203 ",.02)
 ;;59762181203
 ;;9002226.02101,"1044,59762181501 ",.01)
 ;;59762181501
 ;;9002226.02101,"1044,59762181501 ",.02)
 ;;59762181501
 ;;9002226.02101,"1044,59762181502 ",.01)
 ;;59762181502
 ;;9002226.02101,"1044,59762181502 ",.02)
 ;;59762181502
 ;;9002226.02101,"1044,59762181503 ",.01)
 ;;59762181503
 ;;9002226.02101,"1044,59762181503 ",.02)
 ;;59762181503
 ;;9002226.02101,"1044,59762348003 ",.01)
 ;;59762348003
 ;;9002226.02101,"1044,59762348003 ",.02)
 ;;59762348003
 ;;9002226.02101,"1044,59762348102 ",.01)
 ;;59762348102
 ;;9002226.02101,"1044,59762348102 ",.02)
 ;;59762348102
 ;;9002226.02101,"1044,59762348202 ",.01)
 ;;59762348202
 ;;9002226.02101,"1044,59762348202 ",.02)
 ;;59762348202
 ;;9002226.02101,"1044,59762348302 ",.01)
 ;;59762348302
 ;;9002226.02101,"1044,59762348302 ",.02)
 ;;59762348302
 ;;9002226.02101,"1044,59762348402 ",.01)
 ;;59762348402
 ;;9002226.02101,"1044,59762348402 ",.02)
 ;;59762348402
 ;;9002226.02101,"1044,59762480001 ",.01)
 ;;59762480001
 ;;9002226.02101,"1044,59762480001 ",.02)
 ;;59762480001
 ;;9002226.02101,"1044,59762480003 ",.01)
 ;;59762480003
 ;;9002226.02101,"1044,59762480003 ",.02)
 ;;59762480003
 ;;9002226.02101,"1044,59762480005 ",.01)
 ;;59762480005
 ;;9002226.02101,"1044,59762480005 ",.02)
 ;;59762480005
 ;;9002226.02101,"1044,59762480006 ",.01)
 ;;59762480006
 ;;9002226.02101,"1044,59762480006 ",.02)
 ;;59762480006
 ;;9002226.02101,"1044,59762480101 ",.01)
 ;;59762480101
 ;;9002226.02101,"1044,59762480101 ",.02)
 ;;59762480101
 ;;9002226.02101,"1044,59762480103 ",.01)
 ;;59762480103
 ;;9002226.02101,"1044,59762480103 ",.02)
 ;;59762480103
 ;;9002226.02101,"1044,59762480105 ",.01)
 ;;59762480105
 ;;9002226.02101,"1044,59762480105 ",.02)
 ;;59762480105
 ;;9002226.02101,"1044,59762480106 ",.01)
 ;;59762480106
 ;;9002226.02101,"1044,59762480106 ",.02)
 ;;59762480106
 ;;9002226.02101,"1044,59762480201 ",.01)
 ;;59762480201
 ;;9002226.02101,"1044,59762480201 ",.02)
 ;;59762480201
 ;;9002226.02101,"1044,59762480203 ",.01)
 ;;59762480203
 ;;9002226.02101,"1044,59762480203 ",.02)
 ;;59762480203
 ;;9002226.02101,"1044,59762480205 ",.01)
 ;;59762480205
 ;;9002226.02101,"1044,59762480205 ",.02)
 ;;59762480205
 ;;9002226.02101,"1044,59762480206 ",.01)
 ;;59762480206
 ;;9002226.02101,"1044,59762480206 ",.02)
 ;;59762480206
 ;;9002226.02101,"1044,59762490001 ",.01)
 ;;59762490001
 ;;9002226.02101,"1044,59762490001 ",.02)
 ;;59762490001
 ;;9002226.02101,"1044,59762490002 ",.01)
 ;;59762490002
 ;;9002226.02101,"1044,59762490002 ",.02)
 ;;59762490002
 ;;9002226.02101,"1044,59762490003 ",.01)
 ;;59762490003
 ;;9002226.02101,"1044,59762490003 ",.02)
 ;;59762490003
 ;;9002226.02101,"1044,59762490004 ",.01)
 ;;59762490004
 ;;9002226.02101,"1044,59762490004 ",.02)
 ;;59762490004
 ;;9002226.02101,"1044,59762490005 ",.01)
 ;;59762490005
 ;;9002226.02101,"1044,59762490005 ",.02)
 ;;59762490005
 ;;9002226.02101,"1044,59762491001 ",.01)
 ;;59762491001
 ;;9002226.02101,"1044,59762491001 ",.02)
 ;;59762491001
 ;;9002226.02101,"1044,59762491002 ",.01)
 ;;59762491002
 ;;9002226.02101,"1044,59762491002 ",.02)
 ;;59762491002
 ;;9002226.02101,"1044,59762491003 ",.01)
 ;;59762491003
 ;;9002226.02101,"1044,59762491003 ",.02)
 ;;59762491003
 ;;9002226.02101,"1044,59762491004 ",.01)
 ;;59762491004
 ;;9002226.02101,"1044,59762491004 ",.02)
 ;;59762491004
 ;;9002226.02101,"1044,59762491005 ",.01)
 ;;59762491005
 ;;9002226.02101,"1044,59762491005 ",.02)
 ;;59762491005
 ;;9002226.02101,"1044,59762494001 ",.01)
 ;;59762494001
 ;;9002226.02101,"1044,59762494001 ",.02)
 ;;59762494001
 ;;9002226.02101,"1044,59762496001 ",.01)
 ;;59762496001
 ;;9002226.02101,"1044,59762496001 ",.02)
 ;;59762496001
 ;;9002226.02101,"1044,59772090810 ",.01)
 ;;59772090810
 ;;9002226.02101,"1044,59772090810 ",.02)
 ;;59772090810
 ;;9002226.02101,"1044,59772090820 ",.01)
 ;;59772090820
 ;;9002226.02101,"1044,59772090820 ",.02)
 ;;59772090820
 ;;9002226.02101,"1044,59772317101 ",.01)
 ;;59772317101
 ;;9002226.02101,"1044,59772317101 ",.02)
 ;;59772317101
 ;;9002226.02101,"1044,59772317102 ",.01)
 ;;59772317102
 ;;9002226.02101,"1044,59772317102 ",.02)
 ;;59772317102
 ;;9002226.02101,"1044,60258083008 ",.01)
 ;;60258083008
 ;;9002226.02101,"1044,60258083008 ",.02)
 ;;60258083008
 ;;9002226.02101,"1044,60429001612 ",.01)
 ;;60429001612
 ;;9002226.02101,"1044,60429001612 ",.02)
 ;;60429001612
 ;;9002226.02101,"1044,60429001618 ",.01)
 ;;60429001618
 ;;9002226.02101,"1044,60429001618 ",.02)
 ;;60429001618
 ;;9002226.02101,"1044,60429001630 ",.01)
 ;;60429001630
 ;;9002226.02101,"1044,60429001630 ",.02)
 ;;60429001630
 ;;9002226.02101,"1044,60429001660 ",.01)
 ;;60429001660
 ;;9002226.02101,"1044,60429001660 ",.02)
 ;;60429001660
 ;;9002226.02101,"1044,60429001690 ",.01)
 ;;60429001690
 ;;9002226.02101,"1044,60429001690 ",.02)
 ;;60429001690
 ;;9002226.02101,"1044,60429001730 ",.01)
 ;;60429001730
 ;;9002226.02101,"1044,60429001730 ",.02)
 ;;60429001730
 ;;9002226.02101,"1044,60429001960 ",.01)
 ;;60429001960
 ;;9002226.02101,"1044,60429001960 ",.02)
 ;;60429001960
 ;;9002226.02101,"1044,60429017301 ",.01)
 ;;60429017301
 ;;9002226.02101,"1044,60429017301 ",.02)
 ;;60429017301
 ;;9002226.02101,"1044,60429017310 ",.01)
 ;;60429017310
 ;;9002226.02101,"1044,60429017310 ",.02)
 ;;60429017310
 ;;9002226.02101,"1044,60429017330 ",.01)
 ;;60429017330
 ;;9002226.02101,"1044,60429017330 ",.02)
 ;;60429017330
 ;;9002226.02101,"1044,60429017401 ",.01)
 ;;60429017401
 ;;9002226.02101,"1044,60429017401 ",.02)
 ;;60429017401
 ;;9002226.02101,"1044,60429017410 ",.01)
 ;;60429017410
 ;;9002226.02101,"1044,60429017410 ",.02)
 ;;60429017410
 ;;9002226.02101,"1044,60429017430 ",.01)
 ;;60429017430
 ;;9002226.02101,"1044,60429017430 ",.02)
 ;;60429017430
 ;;9002226.02101,"1044,60429017501 ",.01)
 ;;60429017501
 ;;9002226.02101,"1044,60429017501 ",.02)
 ;;60429017501
 ;;9002226.02101,"1044,60429017510 ",.01)
 ;;60429017510
 ;;9002226.02101,"1044,60429017510 ",.02)
 ;;60429017510
 ;;9002226.02101,"1044,60429017530 ",.01)
 ;;60429017530
 ;;9002226.02101,"1044,60429017530 ",.02)
 ;;60429017530
 ;;9002226.02101,"1044,60429018701 ",.01)
 ;;60429018701
 ;;9002226.02101,"1044,60429018701 ",.02)
 ;;60429018701
 ;;9002226.02101,"1044,60429018705 ",.01)
 ;;60429018705
 ;;9002226.02101,"1044,60429018705 ",.02)
 ;;60429018705
 ;;9002226.02101,"1044,60429018730 ",.01)
 ;;60429018730
 ;;9002226.02101,"1044,60429018730 ",.02)
 ;;60429018730
 ;;9002226.02101,"1044,60429018760 ",.01)
 ;;60429018760
 ;;9002226.02101,"1044,60429018760 ",.02)
 ;;60429018760
 ;;9002226.02101,"1044,60429018790 ",.01)
 ;;60429018790
 ;;9002226.02101,"1044,60429018790 ",.02)
 ;;60429018790
 ;;9002226.02101,"1044,60429018801 ",.01)
 ;;60429018801
 ;;9002226.02101,"1044,60429018801 ",.02)
 ;;60429018801
 ;;9002226.02101,"1044,60429018805 ",.01)
 ;;60429018805
 ;;9002226.02101,"1044,60429018805 ",.02)
 ;;60429018805
 ;;9002226.02101,"1044,60429018830 ",.01)
 ;;60429018830
 ;;9002226.02101,"1044,60429018830 ",.02)
 ;;60429018830
 ;;9002226.02101,"1044,60429018860 ",.01)
 ;;60429018860
 ;;9002226.02101,"1044,60429018860 ",.02)
 ;;60429018860
 ;;9002226.02101,"1044,60429018890 ",.01)
 ;;60429018890
 ;;9002226.02101,"1044,60429018890 ",.02)
 ;;60429018890
 ;;9002226.02101,"1044,60429023001 ",.01)
 ;;60429023001
 ;;9002226.02101,"1044,60429023001 ",.02)
 ;;60429023001
 ;;9002226.02101,"1044,60429023005 ",.01)
 ;;60429023005
 ;;9002226.02101,"1044,60429023005 ",.02)
 ;;60429023005
 ;;9002226.02101,"1044,60429023030 ",.01)
 ;;60429023030
 ;;9002226.02101,"1044,60429023030 ",.02)
 ;;60429023030
 ;;9002226.02101,"1044,60429023090 ",.01)
 ;;60429023090
 ;;9002226.02101,"1044,60429023090 ",.02)
 ;;60429023090
 ;;9002226.02101,"1044,60429028730 ",.01)
 ;;60429028730
 ;;9002226.02101,"1044,60429028730 ",.02)
 ;;60429028730
 ;;9002226.02101,"1044,60429028790 ",.01)
 ;;60429028790
 ;;9002226.02101,"1044,60429028790 ",.02)
 ;;60429028790
 ;;9002226.02101,"1044,60429028830 ",.01)
 ;;60429028830
 ;;9002226.02101,"1044,60429028830 ",.02)
 ;;60429028830
 ;;9002226.02101,"1044,60429028890 ",.01)
 ;;60429028890
 ;;9002226.02101,"1044,60429028890 ",.02)
 ;;60429028890
 ;;9002226.02101,"1044,60429071818 ",.01)
 ;;60429071818
 ;;9002226.02101,"1044,60429071818 ",.02)
 ;;60429071818
 ;;9002226.02101,"1044,60429071830 ",.01)
 ;;60429071830
 ;;9002226.02101,"1044,60429071830 ",.02)
 ;;60429071830
 ;;9002226.02101,"1044,60429071860 ",.01)
 ;;60429071860
 ;;9002226.02101,"1044,60429071860 ",.02)
 ;;60429071860
 ;;9002226.02101,"1044,60429071890 ",.01)
 ;;60429071890
 ;;9002226.02101,"1044,60429071890 ",.02)
 ;;60429071890
 ;;9002226.02101,"1044,60429071918 ",.01)
 ;;60429071918
 ;;9002226.02101,"1044,60429071918 ",.02)
 ;;60429071918
 ;;9002226.02101,"1044,60429071930 ",.01)
 ;;60429071930
 ;;9002226.02101,"1044,60429071930 ",.02)
 ;;60429071930
 ;;9002226.02101,"1044,60429071960 ",.01)
 ;;60429071960
 ;;9002226.02101,"1044,60429071960 ",.02)
 ;;60429071960
 ;;9002226.02101,"1044,60429071990 ",.01)
 ;;60429071990
 ;;9002226.02101,"1044,60429071990 ",.02)
 ;;60429071990
 ;;9002226.02101,"1044,60429073405 ",.01)
 ;;60429073405
 ;;9002226.02101,"1044,60429073405 ",.02)
 ;;60429073405
 ;;9002226.02101,"1044,60429073430 ",.01)
 ;;60429073430
 ;;9002226.02101,"1044,60429073430 ",.02)
 ;;60429073430
 ;;9002226.02101,"1044,60429073490 ",.01)
 ;;60429073490
 ;;9002226.02101,"1044,60429073490 ",.02)
 ;;60429073490
 ;;9002226.02101,"1044,60429073501 ",.01)
 ;;60429073501
 ;;9002226.02101,"1044,60429073501 ",.02)
 ;;60429073501
 ;;9002226.02101,"1044,60429073505 ",.01)
 ;;60429073505
 ;;9002226.02101,"1044,60429073505 ",.02)
 ;;60429073505
 ;;9002226.02101,"1044,60429073530 ",.01)
 ;;60429073530
 ;;9002226.02101,"1044,60429073530 ",.02)
 ;;60429073530
 ;;9002226.02101,"1044,60429073590 ",.01)
 ;;60429073590
 ;;9002226.02101,"1044,60429073590 ",.02)
 ;;60429073590
 ;;9002226.02101,"1044,60429073605 ",.01)
 ;;60429073605
 ;;9002226.02101,"1044,60429073605 ",.02)
 ;;60429073605
 ;;9002226.02101,"1044,60429073630 ",.01)
 ;;60429073630
 ;;9002226.02101,"1044,60429073630 ",.02)
 ;;60429073630
 ;;9002226.02101,"1044,60429073690 ",.01)
 ;;60429073690
 ;;9002226.02101,"1044,60429073690 ",.02)
 ;;60429073690
 ;;9002226.02101,"1044,60429073705 ",.01)
 ;;60429073705
 ;;9002226.02101,"1044,60429073705 ",.02)
 ;;60429073705