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

BGPM5BDV.m

Go to the documentation of this file.
BGPM5BDV ;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,65862000130 ",.01)
 ;;65862000130
 ;;9002226.02101,"1044,65862000130 ",.02)
 ;;65862000130
 ;;9002226.02101,"1044,65862000160 ",.01)
 ;;65862000160
 ;;9002226.02101,"1044,65862000160 ",.02)
 ;;65862000160
 ;;9002226.02101,"1044,65862000190 ",.01)
 ;;65862000190
 ;;9002226.02101,"1044,65862000190 ",.02)
 ;;65862000190
 ;;9002226.02101,"1044,65862000301 ",.01)
 ;;65862000301
 ;;9002226.02101,"1044,65862000301 ",.02)
 ;;65862000301
 ;;9002226.02101,"1044,65862000303 ",.01)
 ;;65862000303
 ;;9002226.02101,"1044,65862000303 ",.02)
 ;;65862000303
 ;;9002226.02101,"1044,65862000305 ",.01)
 ;;65862000305
 ;;9002226.02101,"1044,65862000305 ",.02)
 ;;65862000305
 ;;9002226.02101,"1044,65862000330 ",.01)
 ;;65862000330
 ;;9002226.02101,"1044,65862000330 ",.02)
 ;;65862000330
 ;;9002226.02101,"1044,65862000332 ",.01)
 ;;65862000332
 ;;9002226.02101,"1044,65862000332 ",.02)
 ;;65862000332
 ;;9002226.02101,"1044,65862000359 ",.01)
 ;;65862000359
 ;;9002226.02101,"1044,65862000359 ",.02)
 ;;65862000359
 ;;9002226.02101,"1044,65862000360 ",.01)
 ;;65862000360
 ;;9002226.02101,"1044,65862000360 ",.02)
 ;;65862000360
 ;;9002226.02101,"1044,65862000390 ",.01)
 ;;65862000390
 ;;9002226.02101,"1044,65862000390 ",.02)
 ;;65862000390
 ;;9002226.02101,"1044,65862000501 ",.01)
 ;;65862000501
 ;;9002226.02101,"1044,65862000501 ",.02)
 ;;65862000501
 ;;9002226.02101,"1044,65862000505 ",.01)
 ;;65862000505
 ;;9002226.02101,"1044,65862000505 ",.02)
 ;;65862000505
 ;;9002226.02101,"1044,65862000510 ",.01)
 ;;65862000510
 ;;9002226.02101,"1044,65862000510 ",.02)
 ;;65862000510
 ;;9002226.02101,"1044,65862000529 ",.01)
 ;;65862000529
 ;;9002226.02101,"1044,65862000529 ",.02)
 ;;65862000529
 ;;9002226.02101,"1044,65862000530 ",.01)
 ;;65862000530
 ;;9002226.02101,"1044,65862000530 ",.02)
 ;;65862000530
 ;;9002226.02101,"1044,65862000532 ",.01)
 ;;65862000532
 ;;9002226.02101,"1044,65862000532 ",.02)
 ;;65862000532
 ;;9002226.02101,"1044,65862000534 ",.01)
 ;;65862000534
 ;;9002226.02101,"1044,65862000534 ",.02)
 ;;65862000534
 ;;9002226.02101,"1044,65862000560 ",.01)
 ;;65862000560
 ;;9002226.02101,"1044,65862000560 ",.02)
 ;;65862000560
 ;;9002226.02101,"1044,65862000590 ",.01)
 ;;65862000590
 ;;9002226.02101,"1044,65862000590 ",.02)
 ;;65862000590
 ;;9002226.02101,"1044,65862000601 ",.01)
 ;;65862000601
 ;;9002226.02101,"1044,65862000601 ",.02)
 ;;65862000601
 ;;9002226.02101,"1044,65862000605 ",.01)
 ;;65862000605
 ;;9002226.02101,"1044,65862000605 ",.02)
 ;;65862000605
 ;;9002226.02101,"1044,65862000610 ",.01)
 ;;65862000610
 ;;9002226.02101,"1044,65862000610 ",.02)
 ;;65862000610
 ;;9002226.02101,"1044,65862000619 ",.01)
 ;;65862000619
 ;;9002226.02101,"1044,65862000619 ",.02)
 ;;65862000619
 ;;9002226.02101,"1044,65862000630 ",.01)
 ;;65862000630
 ;;9002226.02101,"1044,65862000630 ",.02)
 ;;65862000630
 ;;9002226.02101,"1044,65862000632 ",.01)
 ;;65862000632
 ;;9002226.02101,"1044,65862000632 ",.02)
 ;;65862000632
 ;;9002226.02101,"1044,65862000653 ",.01)
 ;;65862000653
 ;;9002226.02101,"1044,65862000653 ",.02)
 ;;65862000653
 ;;9002226.02101,"1044,65862000660 ",.01)
 ;;65862000660
 ;;9002226.02101,"1044,65862000660 ",.02)
 ;;65862000660
 ;;9002226.02101,"1044,65862000690 ",.01)
 ;;65862000690
 ;;9002226.02101,"1044,65862000690 ",.02)
 ;;65862000690
 ;;9002226.02101,"1044,65862000701 ",.01)
 ;;65862000701
 ;;9002226.02101,"1044,65862000701 ",.02)
 ;;65862000701
 ;;9002226.02101,"1044,65862000705 ",.01)
 ;;65862000705
 ;;9002226.02101,"1044,65862000705 ",.02)
 ;;65862000705
 ;;9002226.02101,"1044,65862000710 ",.01)
 ;;65862000710
 ;;9002226.02101,"1044,65862000710 ",.02)
 ;;65862000710
 ;;9002226.02101,"1044,65862000730 ",.01)
 ;;65862000730
 ;;9002226.02101,"1044,65862000730 ",.02)
 ;;65862000730
 ;;9002226.02101,"1044,65862000732 ",.01)
 ;;65862000732
 ;;9002226.02101,"1044,65862000732 ",.02)
 ;;65862000732
 ;;9002226.02101,"1044,65862000759 ",.01)
 ;;65862000759
 ;;9002226.02101,"1044,65862000759 ",.02)
 ;;65862000759
 ;;9002226.02101,"1044,65862000760 ",.01)
 ;;65862000760
 ;;9002226.02101,"1044,65862000760 ",.02)
 ;;65862000760
 ;;9002226.02101,"1044,65862000761 ",.01)
 ;;65862000761
 ;;9002226.02101,"1044,65862000761 ",.02)
 ;;65862000761
 ;;9002226.02101,"1044,65862000790 ",.01)
 ;;65862000790
 ;;9002226.02101,"1044,65862000790 ",.02)
 ;;65862000790
 ;;9002226.02101,"1044,65862001101 ",.01)
 ;;65862001101
 ;;9002226.02101,"1044,65862001101 ",.02)
 ;;65862001101
 ;;9002226.02101,"1044,65862001105 ",.01)
 ;;65862001105
 ;;9002226.02101,"1044,65862001105 ",.02)
 ;;65862001105
 ;;9002226.02101,"1044,65862001129 ",.01)
 ;;65862001129
 ;;9002226.02101,"1044,65862001129 ",.02)
 ;;65862001129
 ;;9002226.02101,"1044,65862001130 ",.01)
 ;;65862001130
 ;;9002226.02101,"1044,65862001130 ",.02)
 ;;65862001130
 ;;9002226.02101,"1044,65862001150 ",.01)
 ;;65862001150
 ;;9002226.02101,"1044,65862001150 ",.02)
 ;;65862001150
 ;;9002226.02101,"1044,65862001151 ",.01)
 ;;65862001151
 ;;9002226.02101,"1044,65862001151 ",.02)
 ;;65862001151
 ;;9002226.02101,"1044,65862001159 ",.01)
 ;;65862001159
 ;;9002226.02101,"1044,65862001159 ",.02)
 ;;65862001159
 ;;9002226.02101,"1044,65862001160 ",.01)
 ;;65862001160
 ;;9002226.02101,"1044,65862001160 ",.02)
 ;;65862001160
 ;;9002226.02101,"1044,65862001190 ",.01)
 ;;65862001190
 ;;9002226.02101,"1044,65862001190 ",.02)
 ;;65862001190
 ;;9002226.02101,"1044,65862001199 ",.01)
 ;;65862001199
 ;;9002226.02101,"1044,65862001199 ",.02)
 ;;65862001199
 ;;9002226.02101,"1044,65862001201 ",.01)
 ;;65862001201
 ;;9002226.02101,"1044,65862001201 ",.02)
 ;;65862001201
 ;;9002226.02101,"1044,65862001205 ",.01)
 ;;65862001205
 ;;9002226.02101,"1044,65862001205 ",.02)
 ;;65862001205
 ;;9002226.02101,"1044,65862001219 ",.01)
 ;;65862001219
 ;;9002226.02101,"1044,65862001219 ",.02)
 ;;65862001219
 ;;9002226.02101,"1044,65862001230 ",.01)
 ;;65862001230
 ;;9002226.02101,"1044,65862001230 ",.02)
 ;;65862001230
 ;;9002226.02101,"1044,65862001250 ",.01)
 ;;65862001250
 ;;9002226.02101,"1044,65862001250 ",.02)
 ;;65862001250
 ;;9002226.02101,"1044,65862001251 ",.01)
 ;;65862001251
 ;;9002226.02101,"1044,65862001251 ",.02)
 ;;65862001251
 ;;9002226.02101,"1044,65862001259 ",.01)
 ;;65862001259
 ;;9002226.02101,"1044,65862001259 ",.02)
 ;;65862001259
 ;;9002226.02101,"1044,65862001260 ",.01)
 ;;65862001260
 ;;9002226.02101,"1044,65862001260 ",.02)
 ;;65862001260
 ;;9002226.02101,"1044,65862001290 ",.01)
 ;;65862001290
 ;;9002226.02101,"1044,65862001290 ",.02)
 ;;65862001290
 ;;9002226.02101,"1044,65862001299 ",.01)
 ;;65862001299
 ;;9002226.02101,"1044,65862001299 ",.02)
 ;;65862001299
 ;;9002226.02101,"1044,65862001301 ",.01)
 ;;65862001301
 ;;9002226.02101,"1044,65862001301 ",.02)
 ;;65862001301
 ;;9002226.02101,"1044,65862001305 ",.01)
 ;;65862001305
 ;;9002226.02101,"1044,65862001305 ",.02)
 ;;65862001305
 ;;9002226.02101,"1044,65862001325 ",.01)
 ;;65862001325
 ;;9002226.02101,"1044,65862001325 ",.02)
 ;;65862001325
 ;;9002226.02101,"1044,65862001326 ",.01)
 ;;65862001326
 ;;9002226.02101,"1044,65862001326 ",.02)
 ;;65862001326
 ;;9002226.02101,"1044,65862001330 ",.01)
 ;;65862001330
 ;;9002226.02101,"1044,65862001330 ",.02)
 ;;65862001330
 ;;9002226.02101,"1044,65862001350 ",.01)
 ;;65862001350
 ;;9002226.02101,"1044,65862001350 ",.02)
 ;;65862001350
 ;;9002226.02101,"1044,65862001359 ",.01)
 ;;65862001359
 ;;9002226.02101,"1044,65862001359 ",.02)
 ;;65862001359
 ;;9002226.02101,"1044,65862001360 ",.01)
 ;;65862001360
 ;;9002226.02101,"1044,65862001360 ",.02)
 ;;65862001360
 ;;9002226.02101,"1044,65862001390 ",.01)
 ;;65862001390
 ;;9002226.02101,"1044,65862001390 ",.02)
 ;;65862001390
 ;;9002226.02101,"1044,65862001399 ",.01)
 ;;65862001399
 ;;9002226.02101,"1044,65862001399 ",.02)
 ;;65862001399
 ;;9002226.02101,"1044,65862002101 ",.01)
 ;;65862002101
 ;;9002226.02101,"1044,65862002101 ",.02)
 ;;65862002101
 ;;9002226.02101,"1044,65862002106 ",.01)
 ;;65862002106
 ;;9002226.02101,"1044,65862002106 ",.02)
 ;;65862002106
 ;;9002226.02101,"1044,65862002130 ",.01)
 ;;65862002130
 ;;9002226.02101,"1044,65862002130 ",.02)
 ;;65862002130
 ;;9002226.02101,"1044,65862002160 ",.01)
 ;;65862002160
 ;;9002226.02101,"1044,65862002160 ",.02)
 ;;65862002160
 ;;9002226.02101,"1044,65862002190 ",.01)
 ;;65862002190
 ;;9002226.02101,"1044,65862002190 ",.02)
 ;;65862002190
 ;;9002226.02101,"1044,65862002201 ",.01)
 ;;65862002201
 ;;9002226.02101,"1044,65862002201 ",.02)
 ;;65862002201
 ;;9002226.02101,"1044,65862002206 ",.01)
 ;;65862002206
 ;;9002226.02101,"1044,65862002206 ",.02)
 ;;65862002206
 ;;9002226.02101,"1044,65862002230 ",.01)
 ;;65862002230
 ;;9002226.02101,"1044,65862002230 ",.02)
 ;;65862002230
 ;;9002226.02101,"1044,65862002260 ",.01)
 ;;65862002260
 ;;9002226.02101,"1044,65862002260 ",.02)
 ;;65862002260
 ;;9002226.02101,"1044,65862002290 ",.01)
 ;;65862002290
 ;;9002226.02101,"1044,65862002290 ",.02)
 ;;65862002290
 ;;9002226.02101,"1044,65862002301 ",.01)
 ;;65862002301
 ;;9002226.02101,"1044,65862002301 ",.02)
 ;;65862002301
 ;;9002226.02101,"1044,65862002306 ",.01)
 ;;65862002306
 ;;9002226.02101,"1044,65862002306 ",.02)
 ;;65862002306
 ;;9002226.02101,"1044,65862002330 ",.01)
 ;;65862002330
 ;;9002226.02101,"1044,65862002330 ",.02)
 ;;65862002330
 ;;9002226.02101,"1044,65862002360 ",.01)
 ;;65862002360
 ;;9002226.02101,"1044,65862002360 ",.02)
 ;;65862002360
 ;;9002226.02101,"1044,65862002390 ",.01)
 ;;65862002390
 ;;9002226.02101,"1044,65862002390 ",.02)
 ;;65862002390
 ;;9002226.02101,"1044,65862003101 ",.01)
 ;;65862003101
 ;;9002226.02101,"1044,65862003101 ",.02)
 ;;65862003101
 ;;9002226.02101,"1044,65862003103 ",.01)
 ;;65862003103
 ;;9002226.02101,"1044,65862003103 ",.02)
 ;;65862003103
 ;;9002226.02101,"1044,65862003105 ",.01)
 ;;65862003105
 ;;9002226.02101,"1044,65862003105 ",.02)
 ;;65862003105
 ;;9002226.02101,"1044,65862003119 ",.01)
 ;;65862003119
 ;;9002226.02101,"1044,65862003119 ",.02)
 ;;65862003119
 ;;9002226.02101,"1044,65862003130 ",.01)
 ;;65862003130
 ;;9002226.02101,"1044,65862003130 ",.02)
 ;;65862003130
 ;;9002226.02101,"1044,65862003132 ",.01)
 ;;65862003132
 ;;9002226.02101,"1044,65862003132 ",.02)
 ;;65862003132
 ;;9002226.02101,"1044,65862003160 ",.01)
 ;;65862003160
 ;;9002226.02101,"1044,65862003160 ",.02)
 ;;65862003160
 ;;9002226.02101,"1044,65862003190 ",.01)
 ;;65862003190
 ;;9002226.02101,"1044,65862003190 ",.02)
 ;;65862003190
 ;;9002226.02101,"1044,65862003201 ",.01)
 ;;65862003201
 ;;9002226.02101,"1044,65862003201 ",.02)
 ;;65862003201
 ;;9002226.02101,"1044,65862003203 ",.01)
 ;;65862003203
 ;;9002226.02101,"1044,65862003203 ",.02)
 ;;65862003203
 ;;9002226.02101,"1044,65862003205 ",.01)
 ;;65862003205
 ;;9002226.02101,"1044,65862003205 ",.02)
 ;;65862003205
 ;;9002226.02101,"1044,65862003230 ",.01)
 ;;65862003230
 ;;9002226.02101,"1044,65862003230 ",.02)
 ;;65862003230
 ;;9002226.02101,"1044,65862003232 ",.01)
 ;;65862003232
 ;;9002226.02101,"1044,65862003232 ",.02)
 ;;65862003232
 ;;9002226.02101,"1044,65862003239 ",.01)
 ;;65862003239
 ;;9002226.02101,"1044,65862003239 ",.02)
 ;;65862003239
 ;;9002226.02101,"1044,65862003260 ",.01)
 ;;65862003260
 ;;9002226.02101,"1044,65862003260 ",.02)
 ;;65862003260
 ;;9002226.02101,"1044,65862003290 ",.01)
 ;;65862003290
 ;;9002226.02101,"1044,65862003290 ",.02)
 ;;65862003290
 ;;9002226.02101,"1044,65862007424 ",.01)
 ;;65862007424
 ;;9002226.02101,"1044,65862007424 ",.02)
 ;;65862007424
 ;;9002226.02101,"1044,65862015401 ",.01)
 ;;65862015401