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

BGPM5AVB.m

Go to the documentation of this file.
BGPM5AVB ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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,"1033,54569568800 ",.01)
 ;;54569568800
 ;;9002226.02101,"1033,54569568800 ",.02)
 ;;54569568800
 ;;9002226.02101,"1033,54569568900 ",.01)
 ;;54569568900
 ;;9002226.02101,"1033,54569568900 ",.02)
 ;;54569568900
 ;;9002226.02101,"1033,54569569000 ",.01)
 ;;54569569000
 ;;9002226.02101,"1033,54569569000 ",.02)
 ;;54569569000
 ;;9002226.02101,"1033,54569569800 ",.01)
 ;;54569569800
 ;;9002226.02101,"1033,54569569800 ",.02)
 ;;54569569800
 ;;9002226.02101,"1033,54569569801 ",.01)
 ;;54569569801
 ;;9002226.02101,"1033,54569569801 ",.02)
 ;;54569569801
 ;;9002226.02101,"1033,54569569802 ",.01)
 ;;54569569802
 ;;9002226.02101,"1033,54569569802 ",.02)
 ;;54569569802
 ;;9002226.02101,"1033,54569572000 ",.01)
 ;;54569572000
 ;;9002226.02101,"1033,54569572000 ",.02)
 ;;54569572000
 ;;9002226.02101,"1033,54569572100 ",.01)
 ;;54569572100
 ;;9002226.02101,"1033,54569572100 ",.02)
 ;;54569572100
 ;;9002226.02101,"1033,54569572200 ",.01)
 ;;54569572200
 ;;9002226.02101,"1033,54569572200 ",.02)
 ;;54569572200
 ;;9002226.02101,"1033,54569572300 ",.01)
 ;;54569572300
 ;;9002226.02101,"1033,54569572300 ",.02)
 ;;54569572300
 ;;9002226.02101,"1033,54569572400 ",.01)
 ;;54569572400
 ;;9002226.02101,"1033,54569572400 ",.02)
 ;;54569572400
 ;;9002226.02101,"1033,54569572500 ",.01)
 ;;54569572500
 ;;9002226.02101,"1033,54569572500 ",.02)
 ;;54569572500
 ;;9002226.02101,"1033,54569572700 ",.01)
 ;;54569572700
 ;;9002226.02101,"1033,54569572700 ",.02)
 ;;54569572700
 ;;9002226.02101,"1033,54569575400 ",.01)
 ;;54569575400
 ;;9002226.02101,"1033,54569575400 ",.02)
 ;;54569575400
 ;;9002226.02101,"1033,54569575500 ",.01)
 ;;54569575500
 ;;9002226.02101,"1033,54569575500 ",.02)
 ;;54569575500
 ;;9002226.02101,"1033,54569577400 ",.01)
 ;;54569577400
 ;;9002226.02101,"1033,54569577400 ",.02)
 ;;54569577400
 ;;9002226.02101,"1033,54569577401 ",.01)
 ;;54569577401
 ;;9002226.02101,"1033,54569577401 ",.02)
 ;;54569577401
 ;;9002226.02101,"1033,54569577402 ",.01)
 ;;54569577402
 ;;9002226.02101,"1033,54569577402 ",.02)
 ;;54569577402
 ;;9002226.02101,"1033,54569577403 ",.01)
 ;;54569577403
 ;;9002226.02101,"1033,54569577403 ",.02)
 ;;54569577403
 ;;9002226.02101,"1033,54569578400 ",.01)
 ;;54569578400
 ;;9002226.02101,"1033,54569578400 ",.02)
 ;;54569578400
 ;;9002226.02101,"1033,54569578500 ",.01)
 ;;54569578500
 ;;9002226.02101,"1033,54569578500 ",.02)
 ;;54569578500
 ;;9002226.02101,"1033,54569580600 ",.01)
 ;;54569580600
 ;;9002226.02101,"1033,54569580600 ",.02)
 ;;54569580600
 ;;9002226.02101,"1033,54569580700 ",.01)
 ;;54569580700
 ;;9002226.02101,"1033,54569580700 ",.02)
 ;;54569580700
 ;;9002226.02101,"1033,54569580800 ",.01)
 ;;54569580800
 ;;9002226.02101,"1033,54569580800 ",.02)
 ;;54569580800
 ;;9002226.02101,"1033,54569580900 ",.01)
 ;;54569580900
 ;;9002226.02101,"1033,54569580900 ",.02)
 ;;54569580900
 ;;9002226.02101,"1033,54569581000 ",.01)
 ;;54569581000
 ;;9002226.02101,"1033,54569581000 ",.02)
 ;;54569581000
 ;;9002226.02101,"1033,54569581300 ",.01)
 ;;54569581300
 ;;9002226.02101,"1033,54569581300 ",.02)
 ;;54569581300
 ;;9002226.02101,"1033,54569582900 ",.01)
 ;;54569582900
 ;;9002226.02101,"1033,54569582900 ",.02)
 ;;54569582900
 ;;9002226.02101,"1033,54569583100 ",.01)
 ;;54569583100
 ;;9002226.02101,"1033,54569583100 ",.02)
 ;;54569583100
 ;;9002226.02101,"1033,54569589900 ",.01)
 ;;54569589900
 ;;9002226.02101,"1033,54569589900 ",.02)
 ;;54569589900
 ;;9002226.02101,"1033,54569591700 ",.01)
 ;;54569591700
 ;;9002226.02101,"1033,54569591700 ",.02)
 ;;54569591700
 ;;9002226.02101,"1033,54569591800 ",.01)
 ;;54569591800
 ;;9002226.02101,"1033,54569591800 ",.02)
 ;;54569591800
 ;;9002226.02101,"1033,54569591900 ",.01)
 ;;54569591900
 ;;9002226.02101,"1033,54569591900 ",.02)
 ;;54569591900
 ;;9002226.02101,"1033,54569592000 ",.01)
 ;;54569592000
 ;;9002226.02101,"1033,54569592000 ",.02)
 ;;54569592000
 ;;9002226.02101,"1033,54569592100 ",.01)
 ;;54569592100
 ;;9002226.02101,"1033,54569592100 ",.02)
 ;;54569592100
 ;;9002226.02101,"1033,54569592101 ",.01)
 ;;54569592101
 ;;9002226.02101,"1033,54569592101 ",.02)
 ;;54569592101
 ;;9002226.02101,"1033,54569603700 ",.01)
 ;;54569603700
 ;;9002226.02101,"1033,54569603700 ",.02)
 ;;54569603700
 ;;9002226.02101,"1033,54569604300 ",.01)
 ;;54569604300
 ;;9002226.02101,"1033,54569604300 ",.02)
 ;;54569604300
 ;;9002226.02101,"1033,54569608300 ",.01)
 ;;54569608300
 ;;9002226.02101,"1033,54569608300 ",.02)
 ;;54569608300
 ;;9002226.02101,"1033,54569608400 ",.01)
 ;;54569608400
 ;;9002226.02101,"1033,54569608400 ",.02)
 ;;54569608400
 ;;9002226.02101,"1033,54569619500 ",.01)
 ;;54569619500
 ;;9002226.02101,"1033,54569619500 ",.02)
 ;;54569619500
 ;;9002226.02101,"1033,54569800400 ",.01)
 ;;54569800400
 ;;9002226.02101,"1033,54569800400 ",.02)
 ;;54569800400
 ;;9002226.02101,"1033,54807025120 ",.01)
 ;;54807025120
 ;;9002226.02101,"1033,54807025120 ",.02)
 ;;54807025120
 ;;9002226.02101,"1033,54868001801 ",.01)
 ;;54868001801
 ;;9002226.02101,"1033,54868001801 ",.02)
 ;;54868001801
 ;;9002226.02101,"1033,54868001803 ",.01)
 ;;54868001803
 ;;9002226.02101,"1033,54868001803 ",.02)
 ;;54868001803
 ;;9002226.02101,"1033,54868001804 ",.01)
 ;;54868001804
 ;;9002226.02101,"1033,54868001804 ",.02)
 ;;54868001804
 ;;9002226.02101,"1033,54868001805 ",.01)
 ;;54868001805
 ;;9002226.02101,"1033,54868001805 ",.02)
 ;;54868001805
 ;;9002226.02101,"1033,54868001806 ",.01)
 ;;54868001806
 ;;9002226.02101,"1033,54868001806 ",.02)
 ;;54868001806
 ;;9002226.02101,"1033,54868001807 ",.01)
 ;;54868001807
 ;;9002226.02101,"1033,54868001807 ",.02)
 ;;54868001807
 ;;9002226.02101,"1033,54868001809 ",.01)
 ;;54868001809
 ;;9002226.02101,"1033,54868001809 ",.02)
 ;;54868001809
 ;;9002226.02101,"1033,54868002100 ",.01)
 ;;54868002100
 ;;9002226.02101,"1033,54868002100 ",.02)
 ;;54868002100
 ;;9002226.02101,"1033,54868002101 ",.01)
 ;;54868002101
 ;;9002226.02101,"1033,54868002101 ",.02)
 ;;54868002101
 ;;9002226.02101,"1033,54868002102 ",.01)
 ;;54868002102
 ;;9002226.02101,"1033,54868002102 ",.02)
 ;;54868002102
 ;;9002226.02101,"1033,54868002104 ",.01)
 ;;54868002104
 ;;9002226.02101,"1033,54868002104 ",.02)
 ;;54868002104
 ;;9002226.02101,"1033,54868002105 ",.01)
 ;;54868002105
 ;;9002226.02101,"1033,54868002105 ",.02)
 ;;54868002105
 ;;9002226.02101,"1033,54868002106 ",.01)
 ;;54868002106
 ;;9002226.02101,"1033,54868002106 ",.02)
 ;;54868002106
 ;;9002226.02101,"1033,54868002107 ",.01)
 ;;54868002107
 ;;9002226.02101,"1033,54868002107 ",.02)
 ;;54868002107
 ;;9002226.02101,"1033,54868002108 ",.01)
 ;;54868002108
 ;;9002226.02101,"1033,54868002108 ",.02)
 ;;54868002108
 ;;9002226.02101,"1033,54868002109 ",.01)
 ;;54868002109
 ;;9002226.02101,"1033,54868002109 ",.02)
 ;;54868002109
 ;;9002226.02101,"1033,54868002300 ",.01)
 ;;54868002300
 ;;9002226.02101,"1033,54868002300 ",.02)
 ;;54868002300
 ;;9002226.02101,"1033,54868002301 ",.01)
 ;;54868002301
 ;;9002226.02101,"1033,54868002301 ",.02)
 ;;54868002301
 ;;9002226.02101,"1033,54868002302 ",.01)
 ;;54868002302
 ;;9002226.02101,"1033,54868002302 ",.02)
 ;;54868002302
 ;;9002226.02101,"1033,54868002303 ",.01)
 ;;54868002303
 ;;9002226.02101,"1033,54868002303 ",.02)
 ;;54868002303
 ;;9002226.02101,"1033,54868002304 ",.01)
 ;;54868002304
 ;;9002226.02101,"1033,54868002304 ",.02)
 ;;54868002304
 ;;9002226.02101,"1033,54868002305 ",.01)
 ;;54868002305
 ;;9002226.02101,"1033,54868002305 ",.02)
 ;;54868002305
 ;;9002226.02101,"1033,54868002306 ",.01)
 ;;54868002306
 ;;9002226.02101,"1033,54868002306 ",.02)
 ;;54868002306
 ;;9002226.02101,"1033,54868002307 ",.01)
 ;;54868002307
 ;;9002226.02101,"1033,54868002307 ",.02)
 ;;54868002307
 ;;9002226.02101,"1033,54868002308 ",.01)
 ;;54868002308
 ;;9002226.02101,"1033,54868002308 ",.02)
 ;;54868002308
 ;;9002226.02101,"1033,54868002309 ",.01)
 ;;54868002309
 ;;9002226.02101,"1033,54868002309 ",.02)
 ;;54868002309
 ;;9002226.02101,"1033,54868002314 ",.01)
 ;;54868002314
 ;;9002226.02101,"1033,54868002314 ",.02)
 ;;54868002314
 ;;9002226.02101,"1033,54868002401 ",.01)
 ;;54868002401
 ;;9002226.02101,"1033,54868002401 ",.02)
 ;;54868002401
 ;;9002226.02101,"1033,54868002403 ",.01)
 ;;54868002403
 ;;9002226.02101,"1033,54868002403 ",.02)
 ;;54868002403
 ;;9002226.02101,"1033,54868002404 ",.01)
 ;;54868002404
 ;;9002226.02101,"1033,54868002404 ",.02)
 ;;54868002404
 ;;9002226.02101,"1033,54868002405 ",.01)
 ;;54868002405
 ;;9002226.02101,"1033,54868002405 ",.02)
 ;;54868002405
 ;;9002226.02101,"1033,54868002407 ",.01)
 ;;54868002407
 ;;9002226.02101,"1033,54868002407 ",.02)
 ;;54868002407
 ;;9002226.02101,"1033,54868002408 ",.01)
 ;;54868002408
 ;;9002226.02101,"1033,54868002408 ",.02)
 ;;54868002408
 ;;9002226.02101,"1033,54868002501 ",.01)
 ;;54868002501
 ;;9002226.02101,"1033,54868002501 ",.02)
 ;;54868002501
 ;;9002226.02101,"1033,54868002503 ",.01)
 ;;54868002503
 ;;9002226.02101,"1033,54868002503 ",.02)
 ;;54868002503
 ;;9002226.02101,"1033,54868002504 ",.01)
 ;;54868002504
 ;;9002226.02101,"1033,54868002504 ",.02)
 ;;54868002504
 ;;9002226.02101,"1033,54868002505 ",.01)
 ;;54868002505
 ;;9002226.02101,"1033,54868002505 ",.02)
 ;;54868002505
 ;;9002226.02101,"1033,54868002507 ",.01)
 ;;54868002507
 ;;9002226.02101,"1033,54868002507 ",.02)
 ;;54868002507
 ;;9002226.02101,"1033,54868002509 ",.01)
 ;;54868002509
 ;;9002226.02101,"1033,54868002509 ",.02)
 ;;54868002509
 ;;9002226.02101,"1033,54868015300 ",.01)
 ;;54868015300
 ;;9002226.02101,"1033,54868015300 ",.02)
 ;;54868015300
 ;;9002226.02101,"1033,54868015301 ",.01)
 ;;54868015301
 ;;9002226.02101,"1033,54868015301 ",.02)
 ;;54868015301
 ;;9002226.02101,"1033,54868015302 ",.01)
 ;;54868015302
 ;;9002226.02101,"1033,54868015302 ",.02)
 ;;54868015302
 ;;9002226.02101,"1033,54868015303 ",.01)
 ;;54868015303
 ;;9002226.02101,"1033,54868015303 ",.02)
 ;;54868015303
 ;;9002226.02101,"1033,54868015304 ",.01)
 ;;54868015304
 ;;9002226.02101,"1033,54868015304 ",.02)
 ;;54868015304
 ;;9002226.02101,"1033,54868015305 ",.01)
 ;;54868015305
 ;;9002226.02101,"1033,54868015305 ",.02)
 ;;54868015305
 ;;9002226.02101,"1033,54868015306 ",.01)
 ;;54868015306
 ;;9002226.02101,"1033,54868015306 ",.02)
 ;;54868015306
 ;;9002226.02101,"1033,54868015307 ",.01)
 ;;54868015307
 ;;9002226.02101,"1033,54868015307 ",.02)
 ;;54868015307
 ;;9002226.02101,"1033,54868015308 ",.01)
 ;;54868015308
 ;;9002226.02101,"1033,54868015308 ",.02)
 ;;54868015308
 ;;9002226.02101,"1033,54868015309 ",.01)
 ;;54868015309
 ;;9002226.02101,"1033,54868015309 ",.02)
 ;;54868015309
 ;;9002226.02101,"1033,54868015400 ",.01)
 ;;54868015400
 ;;9002226.02101,"1033,54868015400 ",.02)
 ;;54868015400
 ;;9002226.02101,"1033,54868015401 ",.01)
 ;;54868015401
 ;;9002226.02101,"1033,54868015401 ",.02)
 ;;54868015401
 ;;9002226.02101,"1033,54868015402 ",.01)
 ;;54868015402
 ;;9002226.02101,"1033,54868015402 ",.02)
 ;;54868015402
 ;;9002226.02101,"1033,54868015403 ",.01)
 ;;54868015403
 ;;9002226.02101,"1033,54868015403 ",.02)
 ;;54868015403
 ;;9002226.02101,"1033,54868015404 ",.01)
 ;;54868015404
 ;;9002226.02101,"1033,54868015404 ",.02)
 ;;54868015404
 ;;9002226.02101,"1033,54868015405 ",.01)
 ;;54868015405
 ;;9002226.02101,"1033,54868015405 ",.02)
 ;;54868015405
 ;;9002226.02101,"1033,54868015406 ",.01)
 ;;54868015406
 ;;9002226.02101,"1033,54868015406 ",.02)
 ;;54868015406
 ;;9002226.02101,"1033,54868015407 ",.01)
 ;;54868015407
 ;;9002226.02101,"1033,54868015407 ",.02)
 ;;54868015407
 ;;9002226.02101,"1033,54868015408 ",.01)
 ;;54868015408