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

BGPM5BDU.m

Go to the documentation of this file.
BGPM5BDU ;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,65243038406 ",.02)
 ;;65243038406
 ;;9002226.02101,"1044,65243038409 ",.01)
 ;;65243038409
 ;;9002226.02101,"1044,65243038409 ",.02)
 ;;65243038409
 ;;9002226.02101,"1044,65243038418 ",.01)
 ;;65243038418
 ;;9002226.02101,"1044,65243038418 ",.02)
 ;;65243038418
 ;;9002226.02101,"1044,65243038445 ",.01)
 ;;65243038445
 ;;9002226.02101,"1044,65243038445 ",.02)
 ;;65243038445
 ;;9002226.02101,"1044,65243038603 ",.01)
 ;;65243038603
 ;;9002226.02101,"1044,65243038603 ",.02)
 ;;65243038603
 ;;9002226.02101,"1044,65243038606 ",.01)
 ;;65243038606
 ;;9002226.02101,"1044,65243038606 ",.02)
 ;;65243038606
 ;;9002226.02101,"1044,65243038609 ",.01)
 ;;65243038609
 ;;9002226.02101,"1044,65243038609 ",.02)
 ;;65243038609
 ;;9002226.02101,"1044,65387033504 ",.01)
 ;;65387033504
 ;;9002226.02101,"1044,65387033504 ",.02)
 ;;65387033504
 ;;9002226.02101,"1044,65387033506 ",.01)
 ;;65387033506
 ;;9002226.02101,"1044,65387033506 ",.02)
 ;;65387033506
 ;;9002226.02101,"1044,65387033509 ",.01)
 ;;65387033509
 ;;9002226.02101,"1044,65387033509 ",.02)
 ;;65387033509
 ;;9002226.02101,"1044,65427049201 ",.01)
 ;;65427049201
 ;;9002226.02101,"1044,65427049201 ",.02)
 ;;65427049201
 ;;9002226.02101,"1044,65427049202 ",.01)
 ;;65427049202
 ;;9002226.02101,"1044,65427049202 ",.02)
 ;;65427049202
 ;;9002226.02101,"1044,65427049203 ",.01)
 ;;65427049203
 ;;9002226.02101,"1044,65427049203 ",.02)
 ;;65427049203
 ;;9002226.02101,"1044,65427049204 ",.01)
 ;;65427049204
 ;;9002226.02101,"1044,65427049204 ",.02)
 ;;65427049204
 ;;9002226.02101,"1044,65427049205 ",.01)
 ;;65427049205
 ;;9002226.02101,"1044,65427049205 ",.02)
 ;;65427049205
 ;;9002226.02101,"1044,65427049301 ",.01)
 ;;65427049301
 ;;9002226.02101,"1044,65427049301 ",.02)
 ;;65427049301
 ;;9002226.02101,"1044,65427049302 ",.01)
 ;;65427049302
 ;;9002226.02101,"1044,65427049302 ",.02)
 ;;65427049302
 ;;9002226.02101,"1044,65427049303 ",.01)
 ;;65427049303
 ;;9002226.02101,"1044,65427049303 ",.02)
 ;;65427049303
 ;;9002226.02101,"1044,65427049304 ",.01)
 ;;65427049304
 ;;9002226.02101,"1044,65427049304 ",.02)
 ;;65427049304
 ;;9002226.02101,"1044,65427049305 ",.01)
 ;;65427049305
 ;;9002226.02101,"1044,65427049305 ",.02)
 ;;65427049305
 ;;9002226.02101,"1044,65427049701 ",.01)
 ;;65427049701
 ;;9002226.02101,"1044,65427049701 ",.02)
 ;;65427049701
 ;;9002226.02101,"1044,65427049702 ",.01)
 ;;65427049702
 ;;9002226.02101,"1044,65427049702 ",.02)
 ;;65427049702
 ;;9002226.02101,"1044,65427049703 ",.01)
 ;;65427049703
 ;;9002226.02101,"1044,65427049703 ",.02)
 ;;65427049703
 ;;9002226.02101,"1044,65427049704 ",.01)
 ;;65427049704
 ;;9002226.02101,"1044,65427049704 ",.02)
 ;;65427049704
 ;;9002226.02101,"1044,65427049705 ",.01)
 ;;65427049705
 ;;9002226.02101,"1044,65427049705 ",.02)
 ;;65427049705
 ;;9002226.02101,"1044,65580030103 ",.01)
 ;;65580030103
 ;;9002226.02101,"1044,65580030103 ",.02)
 ;;65580030103
 ;;9002226.02101,"1044,65580030109 ",.01)
 ;;65580030109
 ;;9002226.02101,"1044,65580030109 ",.02)
 ;;65580030109
 ;;9002226.02101,"1044,65580030203 ",.01)
 ;;65580030203
 ;;9002226.02101,"1044,65580030203 ",.02)
 ;;65580030203
 ;;9002226.02101,"1044,65580030209 ",.01)
 ;;65580030209
 ;;9002226.02101,"1044,65580030209 ",.02)
 ;;65580030209
 ;;9002226.02101,"1044,65580030303 ",.01)
 ;;65580030303
 ;;9002226.02101,"1044,65580030303 ",.02)
 ;;65580030303
 ;;9002226.02101,"1044,65580030309 ",.01)
 ;;65580030309
 ;;9002226.02101,"1044,65580030309 ",.02)
 ;;65580030309
 ;;9002226.02101,"1044,65580030403 ",.01)
 ;;65580030403
 ;;9002226.02101,"1044,65580030403 ",.02)
 ;;65580030403
 ;;9002226.02101,"1044,65580030409 ",.01)
 ;;65580030409
 ;;9002226.02101,"1044,65580030409 ",.02)
 ;;65580030409
 ;;9002226.02101,"1044,65841009701 ",.01)
 ;;65841009701
 ;;9002226.02101,"1044,65841009701 ",.02)
 ;;65841009701
 ;;9002226.02101,"1044,65841009705 ",.01)
 ;;65841009705
 ;;9002226.02101,"1044,65841009705 ",.02)
 ;;65841009705
 ;;9002226.02101,"1044,65841009706 ",.01)
 ;;65841009706
 ;;9002226.02101,"1044,65841009706 ",.02)
 ;;65841009706
 ;;9002226.02101,"1044,65841009710 ",.01)
 ;;65841009710
 ;;9002226.02101,"1044,65841009710 ",.02)
 ;;65841009710
 ;;9002226.02101,"1044,65841009716 ",.01)
 ;;65841009716
 ;;9002226.02101,"1044,65841009716 ",.02)
 ;;65841009716
 ;;9002226.02101,"1044,65841009801 ",.01)
 ;;65841009801
 ;;9002226.02101,"1044,65841009801 ",.02)
 ;;65841009801
 ;;9002226.02101,"1044,65841009805 ",.01)
 ;;65841009805
 ;;9002226.02101,"1044,65841009805 ",.02)
 ;;65841009805
 ;;9002226.02101,"1044,65841009806 ",.01)
 ;;65841009806
 ;;9002226.02101,"1044,65841009806 ",.02)
 ;;65841009806
 ;;9002226.02101,"1044,65841009810 ",.01)
 ;;65841009810
 ;;9002226.02101,"1044,65841009810 ",.02)
 ;;65841009810
 ;;9002226.02101,"1044,65841009816 ",.01)
 ;;65841009816
 ;;9002226.02101,"1044,65841009816 ",.02)
 ;;65841009816
 ;;9002226.02101,"1044,65841009901 ",.01)
 ;;65841009901
 ;;9002226.02101,"1044,65841009901 ",.02)
 ;;65841009901
 ;;9002226.02101,"1044,65841009905 ",.01)
 ;;65841009905
 ;;9002226.02101,"1044,65841009905 ",.02)
 ;;65841009905
 ;;9002226.02101,"1044,65841009906 ",.01)
 ;;65841009906
 ;;9002226.02101,"1044,65841009906 ",.02)
 ;;65841009906
 ;;9002226.02101,"1044,65841009910 ",.01)
 ;;65841009910
 ;;9002226.02101,"1044,65841009910 ",.02)
 ;;65841009910
 ;;9002226.02101,"1044,65841009916 ",.01)
 ;;65841009916
 ;;9002226.02101,"1044,65841009916 ",.02)
 ;;65841009916
 ;;9002226.02101,"1044,65841060101 ",.01)
 ;;65841060101
 ;;9002226.02101,"1044,65841060101 ",.02)
 ;;65841060101
 ;;9002226.02101,"1044,65841060105 ",.01)
 ;;65841060105
 ;;9002226.02101,"1044,65841060105 ",.02)
 ;;65841060105
 ;;9002226.02101,"1044,65841060106 ",.01)
 ;;65841060106
 ;;9002226.02101,"1044,65841060106 ",.02)
 ;;65841060106
 ;;9002226.02101,"1044,65841060110 ",.01)
 ;;65841060110
 ;;9002226.02101,"1044,65841060110 ",.02)
 ;;65841060110
 ;;9002226.02101,"1044,65841060116 ",.01)
 ;;65841060116
 ;;9002226.02101,"1044,65841060116 ",.02)
 ;;65841060116
 ;;9002226.02101,"1044,65841067101 ",.01)
 ;;65841067101
 ;;9002226.02101,"1044,65841067101 ",.02)
 ;;65841067101
 ;;9002226.02101,"1044,65841067105 ",.01)
 ;;65841067105
 ;;9002226.02101,"1044,65841067105 ",.02)
 ;;65841067105
 ;;9002226.02101,"1044,65841067106 ",.01)
 ;;65841067106
 ;;9002226.02101,"1044,65841067106 ",.02)
 ;;65841067106
 ;;9002226.02101,"1044,65841067110 ",.01)
 ;;65841067110
 ;;9002226.02101,"1044,65841067110 ",.02)
 ;;65841067110
 ;;9002226.02101,"1044,65841067114 ",.01)
 ;;65841067114
 ;;9002226.02101,"1044,65841067114 ",.02)
 ;;65841067114
 ;;9002226.02101,"1044,65841067116 ",.01)
 ;;65841067116
 ;;9002226.02101,"1044,65841067116 ",.02)
 ;;65841067116
 ;;9002226.02101,"1044,65841067201 ",.01)
 ;;65841067201
 ;;9002226.02101,"1044,65841067201 ",.02)
 ;;65841067201
 ;;9002226.02101,"1044,65841067205 ",.01)
 ;;65841067205
 ;;9002226.02101,"1044,65841067205 ",.02)
 ;;65841067205
 ;;9002226.02101,"1044,65841067206 ",.01)
 ;;65841067206
 ;;9002226.02101,"1044,65841067206 ",.02)
 ;;65841067206
 ;;9002226.02101,"1044,65841067210 ",.01)
 ;;65841067210
 ;;9002226.02101,"1044,65841067210 ",.02)
 ;;65841067210
 ;;9002226.02101,"1044,65841067214 ",.01)
 ;;65841067214
 ;;9002226.02101,"1044,65841067214 ",.02)
 ;;65841067214
 ;;9002226.02101,"1044,65841067216 ",.01)
 ;;65841067216
 ;;9002226.02101,"1044,65841067216 ",.02)
 ;;65841067216
 ;;9002226.02101,"1044,65841067301 ",.01)
 ;;65841067301
 ;;9002226.02101,"1044,65841067301 ",.02)
 ;;65841067301
 ;;9002226.02101,"1044,65841067305 ",.01)
 ;;65841067305
 ;;9002226.02101,"1044,65841067305 ",.02)
 ;;65841067305
 ;;9002226.02101,"1044,65841067306 ",.01)
 ;;65841067306
 ;;9002226.02101,"1044,65841067306 ",.02)
 ;;65841067306
 ;;9002226.02101,"1044,65841067310 ",.01)
 ;;65841067310
 ;;9002226.02101,"1044,65841067310 ",.02)
 ;;65841067310
 ;;9002226.02101,"1044,65841067314 ",.01)
 ;;65841067314
 ;;9002226.02101,"1044,65841067314 ",.02)
 ;;65841067314
 ;;9002226.02101,"1044,65841067316 ",.01)
 ;;65841067316
 ;;9002226.02101,"1044,65841067316 ",.02)
 ;;65841067316
 ;;9002226.02101,"1044,65841067401 ",.01)
 ;;65841067401
 ;;9002226.02101,"1044,65841067401 ",.02)
 ;;65841067401
 ;;9002226.02101,"1044,65841067405 ",.01)
 ;;65841067405
 ;;9002226.02101,"1044,65841067405 ",.02)
 ;;65841067405
 ;;9002226.02101,"1044,65841067406 ",.01)
 ;;65841067406
 ;;9002226.02101,"1044,65841067406 ",.02)
 ;;65841067406
 ;;9002226.02101,"1044,65841067410 ",.01)
 ;;65841067410
 ;;9002226.02101,"1044,65841067410 ",.02)
 ;;65841067410
 ;;9002226.02101,"1044,65841067414 ",.01)
 ;;65841067414
 ;;9002226.02101,"1044,65841067414 ",.02)
 ;;65841067414
 ;;9002226.02101,"1044,65841067416 ",.01)
 ;;65841067416
 ;;9002226.02101,"1044,65841067416 ",.02)
 ;;65841067416
 ;;9002226.02101,"1044,65841067501 ",.01)
 ;;65841067501
 ;;9002226.02101,"1044,65841067501 ",.02)
 ;;65841067501
 ;;9002226.02101,"1044,65841067505 ",.01)
 ;;65841067505
 ;;9002226.02101,"1044,65841067505 ",.02)
 ;;65841067505
 ;;9002226.02101,"1044,65841067506 ",.01)
 ;;65841067506
 ;;9002226.02101,"1044,65841067506 ",.02)
 ;;65841067506
 ;;9002226.02101,"1044,65841067510 ",.01)
 ;;65841067510
 ;;9002226.02101,"1044,65841067510 ",.02)
 ;;65841067510
 ;;9002226.02101,"1044,65841067514 ",.01)
 ;;65841067514
 ;;9002226.02101,"1044,65841067514 ",.02)
 ;;65841067514
 ;;9002226.02101,"1044,65841067516 ",.01)
 ;;65841067516
 ;;9002226.02101,"1044,65841067516 ",.02)
 ;;65841067516
 ;;9002226.02101,"1044,65841075101 ",.01)
 ;;65841075101
 ;;9002226.02101,"1044,65841075101 ",.02)
 ;;65841075101
 ;;9002226.02101,"1044,65841075105 ",.01)
 ;;65841075105
 ;;9002226.02101,"1044,65841075105 ",.02)
 ;;65841075105
 ;;9002226.02101,"1044,65841075106 ",.01)
 ;;65841075106
 ;;9002226.02101,"1044,65841075106 ",.02)
 ;;65841075106
 ;;9002226.02101,"1044,65841075110 ",.01)
 ;;65841075110
 ;;9002226.02101,"1044,65841075110 ",.02)
 ;;65841075110
 ;;9002226.02101,"1044,65841075116 ",.01)
 ;;65841075116
 ;;9002226.02101,"1044,65841075116 ",.02)
 ;;65841075116
 ;;9002226.02101,"1044,65841075201 ",.01)
 ;;65841075201
 ;;9002226.02101,"1044,65841075201 ",.02)
 ;;65841075201
 ;;9002226.02101,"1044,65841075205 ",.01)
 ;;65841075205
 ;;9002226.02101,"1044,65841075205 ",.02)
 ;;65841075205
 ;;9002226.02101,"1044,65841075206 ",.01)
 ;;65841075206
 ;;9002226.02101,"1044,65841075206 ",.02)
 ;;65841075206
 ;;9002226.02101,"1044,65841075210 ",.01)
 ;;65841075210
 ;;9002226.02101,"1044,65841075210 ",.02)
 ;;65841075210
 ;;9002226.02101,"1044,65841075216 ",.01)
 ;;65841075216
 ;;9002226.02101,"1044,65841075216 ",.02)
 ;;65841075216
 ;;9002226.02101,"1044,65841075301 ",.01)
 ;;65841075301
 ;;9002226.02101,"1044,65841075301 ",.02)
 ;;65841075301
 ;;9002226.02101,"1044,65841075305 ",.01)
 ;;65841075305
 ;;9002226.02101,"1044,65841075305 ",.02)
 ;;65841075305
 ;;9002226.02101,"1044,65841075306 ",.01)
 ;;65841075306
 ;;9002226.02101,"1044,65841075306 ",.02)
 ;;65841075306
 ;;9002226.02101,"1044,65841075310 ",.01)
 ;;65841075310
 ;;9002226.02101,"1044,65841075310 ",.02)
 ;;65841075310
 ;;9002226.02101,"1044,65841075316 ",.01)
 ;;65841075316
 ;;9002226.02101,"1044,65841075316 ",.02)
 ;;65841075316
 ;;9002226.02101,"1044,65862000101 ",.01)
 ;;65862000101
 ;;9002226.02101,"1044,65862000101 ",.02)
 ;;65862000101
 ;;9002226.02101,"1044,65862000105 ",.01)
 ;;65862000105
 ;;9002226.02101,"1044,65862000105 ",.02)
 ;;65862000105
 ;;9002226.02101,"1044,65862000129 ",.01)
 ;;65862000129
 ;;9002226.02101,"1044,65862000129 ",.02)
 ;;65862000129