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

BGPM5BCN.m

Go to the documentation of this file.
BGPM5BCN ;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,52152029308 ",.02)
 ;;52152029308
 ;;9002226.02101,"1044,52152029330 ",.01)
 ;;52152029330
 ;;9002226.02101,"1044,52152029330 ",.02)
 ;;52152029330
 ;;9002226.02101,"1044,52152029408 ",.01)
 ;;52152029408
 ;;9002226.02101,"1044,52152029408 ",.02)
 ;;52152029408
 ;;9002226.02101,"1044,52152029430 ",.01)
 ;;52152029430
 ;;9002226.02101,"1044,52152029430 ",.02)
 ;;52152029430
 ;;9002226.02101,"1044,52152032302 ",.01)
 ;;52152032302
 ;;9002226.02101,"1044,52152032302 ",.02)
 ;;52152032302
 ;;9002226.02101,"1044,52152032305 ",.01)
 ;;52152032305
 ;;9002226.02101,"1044,52152032305 ",.02)
 ;;52152032305
 ;;9002226.02101,"1044,52152032308 ",.01)
 ;;52152032308
 ;;9002226.02101,"1044,52152032308 ",.02)
 ;;52152032308
 ;;9002226.02101,"1044,52152032327 ",.01)
 ;;52152032327
 ;;9002226.02101,"1044,52152032327 ",.02)
 ;;52152032327
 ;;9002226.02101,"1044,52152032330 ",.01)
 ;;52152032330
 ;;9002226.02101,"1044,52152032330 ",.02)
 ;;52152032330
 ;;9002226.02101,"1044,52152032402 ",.01)
 ;;52152032402
 ;;9002226.02101,"1044,52152032402 ",.02)
 ;;52152032402
 ;;9002226.02101,"1044,52152032405 ",.01)
 ;;52152032405
 ;;9002226.02101,"1044,52152032405 ",.02)
 ;;52152032405
 ;;9002226.02101,"1044,52152032408 ",.01)
 ;;52152032408
 ;;9002226.02101,"1044,52152032408 ",.02)
 ;;52152032408
 ;;9002226.02101,"1044,52152032427 ",.01)
 ;;52152032427
 ;;9002226.02101,"1044,52152032427 ",.02)
 ;;52152032427
 ;;9002226.02101,"1044,52152032430 ",.01)
 ;;52152032430
 ;;9002226.02101,"1044,52152032430 ",.02)
 ;;52152032430
 ;;9002226.02101,"1044,52152033002 ",.01)
 ;;52152033002
 ;;9002226.02101,"1044,52152033002 ",.02)
 ;;52152033002
 ;;9002226.02101,"1044,52152033005 ",.01)
 ;;52152033005
 ;;9002226.02101,"1044,52152033005 ",.02)
 ;;52152033005
 ;;9002226.02101,"1044,52152033008 ",.01)
 ;;52152033008
 ;;9002226.02101,"1044,52152033008 ",.02)
 ;;52152033008
 ;;9002226.02101,"1044,52152033027 ",.01)
 ;;52152033027
 ;;9002226.02101,"1044,52152033027 ",.02)
 ;;52152033027
 ;;9002226.02101,"1044,52152033030 ",.01)
 ;;52152033030
 ;;9002226.02101,"1044,52152033030 ",.02)
 ;;52152033030
 ;;9002226.02101,"1044,52544037301 ",.01)
 ;;52544037301
 ;;9002226.02101,"1044,52544037301 ",.02)
 ;;52544037301
 ;;9002226.02101,"1044,52544037401 ",.01)
 ;;52544037401
 ;;9002226.02101,"1044,52544037401 ",.02)
 ;;52544037401
 ;;9002226.02101,"1044,52544037501 ",.01)
 ;;52544037501
 ;;9002226.02101,"1044,52544037501 ",.02)
 ;;52544037501
 ;;9002226.02101,"1044,52544038101 ",.01)
 ;;52544038101
 ;;9002226.02101,"1044,52544038101 ",.02)
 ;;52544038101
 ;;9002226.02101,"1044,52544038110 ",.01)
 ;;52544038110
 ;;9002226.02101,"1044,52544038110 ",.02)
 ;;52544038110
 ;;9002226.02101,"1044,52544038130 ",.01)
 ;;52544038130
 ;;9002226.02101,"1044,52544038130 ",.02)
 ;;52544038130
 ;;9002226.02101,"1044,52549400101 ",.01)
 ;;52549400101
 ;;9002226.02101,"1044,52549400101 ",.02)
 ;;52549400101
 ;;9002226.02101,"1044,52549400102 ",.01)
 ;;52549400102
 ;;9002226.02101,"1044,52549400102 ",.02)
 ;;52549400102
 ;;9002226.02101,"1044,52549400105 ",.01)
 ;;52549400105
 ;;9002226.02101,"1044,52549400105 ",.02)
 ;;52549400105
 ;;9002226.02101,"1044,52549400106 ",.01)
 ;;52549400106
 ;;9002226.02101,"1044,52549400106 ",.02)
 ;;52549400106
 ;;9002226.02101,"1044,52549400201 ",.01)
 ;;52549400201
 ;;9002226.02101,"1044,52549400201 ",.02)
 ;;52549400201
 ;;9002226.02101,"1044,52549400202 ",.01)
 ;;52549400202
 ;;9002226.02101,"1044,52549400202 ",.02)
 ;;52549400202
 ;;9002226.02101,"1044,52549400204 ",.01)
 ;;52549400204
 ;;9002226.02101,"1044,52549400204 ",.02)
 ;;52549400204
 ;;9002226.02101,"1044,52549400205 ",.01)
 ;;52549400205
 ;;9002226.02101,"1044,52549400205 ",.02)
 ;;52549400205
 ;;9002226.02101,"1044,52549400206 ",.01)
 ;;52549400206
 ;;9002226.02101,"1044,52549400206 ",.02)
 ;;52549400206
 ;;9002226.02101,"1044,52549400301 ",.01)
 ;;52549400301
 ;;9002226.02101,"1044,52549400301 ",.02)
 ;;52549400301
 ;;9002226.02101,"1044,52549400302 ",.01)
 ;;52549400302
 ;;9002226.02101,"1044,52549400302 ",.02)
 ;;52549400302
 ;;9002226.02101,"1044,52549400305 ",.01)
 ;;52549400305
 ;;9002226.02101,"1044,52549400305 ",.02)
 ;;52549400305
 ;;9002226.02101,"1044,52549400306 ",.01)
 ;;52549400306
 ;;9002226.02101,"1044,52549400306 ",.02)
 ;;52549400306
 ;;9002226.02101,"1044,52549400401 ",.01)
 ;;52549400401
 ;;9002226.02101,"1044,52549400401 ",.02)
 ;;52549400401
 ;;9002226.02101,"1044,52549400402 ",.01)
 ;;52549400402
 ;;9002226.02101,"1044,52549400402 ",.02)
 ;;52549400402
 ;;9002226.02101,"1044,52549400405 ",.01)
 ;;52549400405
 ;;9002226.02101,"1044,52549400405 ",.02)
 ;;52549400405
 ;;9002226.02101,"1044,52549400406 ",.01)
 ;;52549400406
 ;;9002226.02101,"1044,52549400406 ",.02)
 ;;52549400406
 ;;9002226.02101,"1044,52549401101 ",.01)
 ;;52549401101
 ;;9002226.02101,"1044,52549401101 ",.02)
 ;;52549401101
 ;;9002226.02101,"1044,52549401104 ",.01)
 ;;52549401104
 ;;9002226.02101,"1044,52549401104 ",.02)
 ;;52549401104
 ;;9002226.02101,"1044,52549401105 ",.01)
 ;;52549401105
 ;;9002226.02101,"1044,52549401105 ",.02)
 ;;52549401105
 ;;9002226.02101,"1044,52549401106 ",.01)
 ;;52549401106
 ;;9002226.02101,"1044,52549401106 ",.02)
 ;;52549401106
 ;;9002226.02101,"1044,52549401201 ",.01)
 ;;52549401201
 ;;9002226.02101,"1044,52549401201 ",.02)
 ;;52549401201
 ;;9002226.02101,"1044,52549401204 ",.01)
 ;;52549401204
 ;;9002226.02101,"1044,52549401204 ",.02)
 ;;52549401204
 ;;9002226.02101,"1044,52549401205 ",.01)
 ;;52549401205
 ;;9002226.02101,"1044,52549401205 ",.02)
 ;;52549401205
 ;;9002226.02101,"1044,52549401206 ",.01)
 ;;52549401206
 ;;9002226.02101,"1044,52549401206 ",.02)
 ;;52549401206
 ;;9002226.02101,"1044,52549401301 ",.01)
 ;;52549401301
 ;;9002226.02101,"1044,52549401301 ",.02)
 ;;52549401301
 ;;9002226.02101,"1044,52549401304 ",.01)
 ;;52549401304
 ;;9002226.02101,"1044,52549401304 ",.02)
 ;;52549401304
 ;;9002226.02101,"1044,52549401305 ",.01)
 ;;52549401305
 ;;9002226.02101,"1044,52549401305 ",.02)
 ;;52549401305
 ;;9002226.02101,"1044,52549401306 ",.01)
 ;;52549401306
 ;;9002226.02101,"1044,52549401306 ",.02)
 ;;52549401306
 ;;9002226.02101,"1044,52549411909 ",.01)
 ;;52549411909
 ;;9002226.02101,"1044,52549411909 ",.02)
 ;;52549411909
 ;;9002226.02101,"1044,52959000802 ",.01)
 ;;52959000802
 ;;9002226.02101,"1044,52959000802 ",.02)
 ;;52959000802
 ;;9002226.02101,"1044,52959000815 ",.01)
 ;;52959000815
 ;;9002226.02101,"1044,52959000815 ",.02)
 ;;52959000815
 ;;9002226.02101,"1044,52959000820 ",.01)
 ;;52959000820
 ;;9002226.02101,"1044,52959000820 ",.02)
 ;;52959000820
 ;;9002226.02101,"1044,52959000830 ",.01)
 ;;52959000830
 ;;9002226.02101,"1044,52959000830 ",.02)
 ;;52959000830
 ;;9002226.02101,"1044,52959000840 ",.01)
 ;;52959000840
 ;;9002226.02101,"1044,52959000840 ",.02)
 ;;52959000840
 ;;9002226.02101,"1044,52959000850 ",.01)
 ;;52959000850
 ;;9002226.02101,"1044,52959000850 ",.02)
 ;;52959000850
 ;;9002226.02101,"1044,52959000860 ",.01)
 ;;52959000860
 ;;9002226.02101,"1044,52959000860 ",.02)
 ;;52959000860
 ;;9002226.02101,"1044,52959000890 ",.01)
 ;;52959000890
 ;;9002226.02101,"1044,52959000890 ",.02)
 ;;52959000890
 ;;9002226.02101,"1044,52959014030 ",.01)
 ;;52959014030
 ;;9002226.02101,"1044,52959014030 ",.02)
 ;;52959014030
 ;;9002226.02101,"1044,52959014060 ",.01)
 ;;52959014060
 ;;9002226.02101,"1044,52959014060 ",.02)
 ;;52959014060
 ;;9002226.02101,"1044,52959014090 ",.01)
 ;;52959014090
 ;;9002226.02101,"1044,52959014090 ",.02)
 ;;52959014090
 ;;9002226.02101,"1044,52959028400 ",.01)
 ;;52959028400
 ;;9002226.02101,"1044,52959028400 ",.02)
 ;;52959028400
 ;;9002226.02101,"1044,52959028430 ",.01)
 ;;52959028430
 ;;9002226.02101,"1044,52959028430 ",.02)
 ;;52959028430
 ;;9002226.02101,"1044,52959028460 ",.01)
 ;;52959028460
 ;;9002226.02101,"1044,52959028460 ",.02)
 ;;52959028460
 ;;9002226.02101,"1044,52959034800 ",.01)
 ;;52959034800
 ;;9002226.02101,"1044,52959034800 ",.02)
 ;;52959034800
 ;;9002226.02101,"1044,52959034805 ",.01)
 ;;52959034805
 ;;9002226.02101,"1044,52959034805 ",.02)
 ;;52959034805
 ;;9002226.02101,"1044,52959034810 ",.01)
 ;;52959034810
 ;;9002226.02101,"1044,52959034810 ",.02)
 ;;52959034810
 ;;9002226.02101,"1044,52959034812 ",.01)
 ;;52959034812
 ;;9002226.02101,"1044,52959034812 ",.02)
 ;;52959034812
 ;;9002226.02101,"1044,52959034814 ",.01)
 ;;52959034814
 ;;9002226.02101,"1044,52959034814 ",.02)
 ;;52959034814
 ;;9002226.02101,"1044,52959034815 ",.01)
 ;;52959034815
 ;;9002226.02101,"1044,52959034815 ",.02)
 ;;52959034815
 ;;9002226.02101,"1044,52959034820 ",.01)
 ;;52959034820
 ;;9002226.02101,"1044,52959034820 ",.02)
 ;;52959034820
 ;;9002226.02101,"1044,52959034830 ",.01)
 ;;52959034830
 ;;9002226.02101,"1044,52959034830 ",.02)
 ;;52959034830
 ;;9002226.02101,"1044,52959034850 ",.01)
 ;;52959034850
 ;;9002226.02101,"1044,52959034850 ",.02)
 ;;52959034850
 ;;9002226.02101,"1044,52959034860 ",.01)
 ;;52959034860
 ;;9002226.02101,"1044,52959034860 ",.02)
 ;;52959034860
 ;;9002226.02101,"1044,52959034890 ",.01)
 ;;52959034890
 ;;9002226.02101,"1044,52959034890 ",.02)
 ;;52959034890
 ;;9002226.02101,"1044,52959035802 ",.01)
 ;;52959035802
 ;;9002226.02101,"1044,52959035802 ",.02)
 ;;52959035802
 ;;9002226.02101,"1044,52959035820 ",.01)
 ;;52959035820
 ;;9002226.02101,"1044,52959035820 ",.02)
 ;;52959035820
 ;;9002226.02101,"1044,52959035830 ",.01)
 ;;52959035830
 ;;9002226.02101,"1044,52959035830 ",.02)
 ;;52959035830
 ;;9002226.02101,"1044,52959035860 ",.01)
 ;;52959035860
 ;;9002226.02101,"1044,52959035860 ",.02)
 ;;52959035860
 ;;9002226.02101,"1044,52959035890 ",.01)
 ;;52959035890
 ;;9002226.02101,"1044,52959035890 ",.02)
 ;;52959035890
 ;;9002226.02101,"1044,52959035902 ",.01)
 ;;52959035902
 ;;9002226.02101,"1044,52959035902 ",.02)
 ;;52959035902
 ;;9002226.02101,"1044,52959035920 ",.01)
 ;;52959035920
 ;;9002226.02101,"1044,52959035920 ",.02)
 ;;52959035920
 ;;9002226.02101,"1044,52959035930 ",.01)
 ;;52959035930
 ;;9002226.02101,"1044,52959035930 ",.02)
 ;;52959035930
 ;;9002226.02101,"1044,52959035950 ",.01)
 ;;52959035950
 ;;9002226.02101,"1044,52959035950 ",.02)
 ;;52959035950
 ;;9002226.02101,"1044,52959035960 ",.01)
 ;;52959035960
 ;;9002226.02101,"1044,52959035960 ",.02)
 ;;52959035960
 ;;9002226.02101,"1044,52959035990 ",.01)
 ;;52959035990
 ;;9002226.02101,"1044,52959035990 ",.02)
 ;;52959035990
 ;;9002226.02101,"1044,52959037815 ",.01)
 ;;52959037815
 ;;9002226.02101,"1044,52959037815 ",.02)
 ;;52959037815
 ;;9002226.02101,"1044,52959037820 ",.01)
 ;;52959037820
 ;;9002226.02101,"1044,52959037820 ",.02)
 ;;52959037820
 ;;9002226.02101,"1044,52959037830 ",.01)
 ;;52959037830
 ;;9002226.02101,"1044,52959037830 ",.02)
 ;;52959037830
 ;;9002226.02101,"1044,52959037860 ",.01)
 ;;52959037860
 ;;9002226.02101,"1044,52959037860 ",.02)
 ;;52959037860
 ;;9002226.02101,"1044,52959037890 ",.01)
 ;;52959037890
 ;;9002226.02101,"1044,52959037890 ",.02)
 ;;52959037890
 ;;9002226.02101,"1044,52959051400 ",.01)
 ;;52959051400
 ;;9002226.02101,"1044,52959051400 ",.02)
 ;;52959051400
 ;;9002226.02101,"1044,52959051401 ",.01)
 ;;52959051401
 ;;9002226.02101,"1044,52959051401 ",.02)
 ;;52959051401
 ;;9002226.02101,"1044,52959051410 ",.01)
 ;;52959051410
 ;;9002226.02101,"1044,52959051410 ",.02)
 ;;52959051410
 ;;9002226.02101,"1044,52959051420 ",.01)
 ;;52959051420
 ;;9002226.02101,"1044,52959051420 ",.02)
 ;;52959051420
 ;;9002226.02101,"1044,52959051421 ",.01)
 ;;52959051421
 ;;9002226.02101,"1044,52959051421 ",.02)
 ;;52959051421