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.
  1. BGPM5BDV ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"1044,65862000130 ",.01)
  1. ;;65862000130
  1. ;;9002226.02101,"1044,65862000130 ",.02)
  1. ;;65862000130
  1. ;;9002226.02101,"1044,65862000160 ",.01)
  1. ;;65862000160
  1. ;;9002226.02101,"1044,65862000160 ",.02)
  1. ;;65862000160
  1. ;;9002226.02101,"1044,65862000190 ",.01)
  1. ;;65862000190
  1. ;;9002226.02101,"1044,65862000190 ",.02)
  1. ;;65862000190
  1. ;;9002226.02101,"1044,65862000301 ",.01)
  1. ;;65862000301
  1. ;;9002226.02101,"1044,65862000301 ",.02)
  1. ;;65862000301
  1. ;;9002226.02101,"1044,65862000303 ",.01)
  1. ;;65862000303
  1. ;;9002226.02101,"1044,65862000303 ",.02)
  1. ;;65862000303
  1. ;;9002226.02101,"1044,65862000305 ",.01)
  1. ;;65862000305
  1. ;;9002226.02101,"1044,65862000305 ",.02)
  1. ;;65862000305
  1. ;;9002226.02101,"1044,65862000330 ",.01)
  1. ;;65862000330
  1. ;;9002226.02101,"1044,65862000330 ",.02)
  1. ;;65862000330
  1. ;;9002226.02101,"1044,65862000332 ",.01)
  1. ;;65862000332
  1. ;;9002226.02101,"1044,65862000332 ",.02)
  1. ;;65862000332
  1. ;;9002226.02101,"1044,65862000359 ",.01)
  1. ;;65862000359
  1. ;;9002226.02101,"1044,65862000359 ",.02)
  1. ;;65862000359
  1. ;;9002226.02101,"1044,65862000360 ",.01)
  1. ;;65862000360
  1. ;;9002226.02101,"1044,65862000360 ",.02)
  1. ;;65862000360
  1. ;;9002226.02101,"1044,65862000390 ",.01)
  1. ;;65862000390
  1. ;;9002226.02101,"1044,65862000390 ",.02)
  1. ;;65862000390
  1. ;;9002226.02101,"1044,65862000501 ",.01)
  1. ;;65862000501
  1. ;;9002226.02101,"1044,65862000501 ",.02)
  1. ;;65862000501
  1. ;;9002226.02101,"1044,65862000505 ",.01)
  1. ;;65862000505
  1. ;;9002226.02101,"1044,65862000505 ",.02)
  1. ;;65862000505
  1. ;;9002226.02101,"1044,65862000510 ",.01)
  1. ;;65862000510
  1. ;;9002226.02101,"1044,65862000510 ",.02)
  1. ;;65862000510
  1. ;;9002226.02101,"1044,65862000529 ",.01)
  1. ;;65862000529
  1. ;;9002226.02101,"1044,65862000529 ",.02)
  1. ;;65862000529
  1. ;;9002226.02101,"1044,65862000530 ",.01)
  1. ;;65862000530
  1. ;;9002226.02101,"1044,65862000530 ",.02)
  1. ;;65862000530
  1. ;;9002226.02101,"1044,65862000532 ",.01)
  1. ;;65862000532
  1. ;;9002226.02101,"1044,65862000532 ",.02)
  1. ;;65862000532
  1. ;;9002226.02101,"1044,65862000534 ",.01)
  1. ;;65862000534
  1. ;;9002226.02101,"1044,65862000534 ",.02)
  1. ;;65862000534
  1. ;;9002226.02101,"1044,65862000560 ",.01)
  1. ;;65862000560
  1. ;;9002226.02101,"1044,65862000560 ",.02)
  1. ;;65862000560
  1. ;;9002226.02101,"1044,65862000590 ",.01)
  1. ;;65862000590
  1. ;;9002226.02101,"1044,65862000590 ",.02)
  1. ;;65862000590
  1. ;;9002226.02101,"1044,65862000601 ",.01)
  1. ;;65862000601
  1. ;;9002226.02101,"1044,65862000601 ",.02)
  1. ;;65862000601
  1. ;;9002226.02101,"1044,65862000605 ",.01)
  1. ;;65862000605
  1. ;;9002226.02101,"1044,65862000605 ",.02)
  1. ;;65862000605
  1. ;;9002226.02101,"1044,65862000610 ",.01)
  1. ;;65862000610
  1. ;;9002226.02101,"1044,65862000610 ",.02)
  1. ;;65862000610
  1. ;;9002226.02101,"1044,65862000619 ",.01)
  1. ;;65862000619
  1. ;;9002226.02101,"1044,65862000619 ",.02)
  1. ;;65862000619
  1. ;;9002226.02101,"1044,65862000630 ",.01)
  1. ;;65862000630
  1. ;;9002226.02101,"1044,65862000630 ",.02)
  1. ;;65862000630
  1. ;;9002226.02101,"1044,65862000632 ",.01)
  1. ;;65862000632
  1. ;;9002226.02101,"1044,65862000632 ",.02)
  1. ;;65862000632
  1. ;;9002226.02101,"1044,65862000653 ",.01)
  1. ;;65862000653
  1. ;;9002226.02101,"1044,65862000653 ",.02)
  1. ;;65862000653
  1. ;;9002226.02101,"1044,65862000660 ",.01)
  1. ;;65862000660
  1. ;;9002226.02101,"1044,65862000660 ",.02)
  1. ;;65862000660
  1. ;;9002226.02101,"1044,65862000690 ",.01)
  1. ;;65862000690
  1. ;;9002226.02101,"1044,65862000690 ",.02)
  1. ;;65862000690
  1. ;;9002226.02101,"1044,65862000701 ",.01)
  1. ;;65862000701
  1. ;;9002226.02101,"1044,65862000701 ",.02)
  1. ;;65862000701
  1. ;;9002226.02101,"1044,65862000705 ",.01)
  1. ;;65862000705
  1. ;;9002226.02101,"1044,65862000705 ",.02)
  1. ;;65862000705
  1. ;;9002226.02101,"1044,65862000710 ",.01)
  1. ;;65862000710
  1. ;;9002226.02101,"1044,65862000710 ",.02)
  1. ;;65862000710
  1. ;;9002226.02101,"1044,65862000730 ",.01)
  1. ;;65862000730
  1. ;;9002226.02101,"1044,65862000730 ",.02)
  1. ;;65862000730
  1. ;;9002226.02101,"1044,65862000732 ",.01)
  1. ;;65862000732
  1. ;;9002226.02101,"1044,65862000732 ",.02)
  1. ;;65862000732
  1. ;;9002226.02101,"1044,65862000759 ",.01)
  1. ;;65862000759
  1. ;;9002226.02101,"1044,65862000759 ",.02)
  1. ;;65862000759
  1. ;;9002226.02101,"1044,65862000760 ",.01)
  1. ;;65862000760
  1. ;;9002226.02101,"1044,65862000760 ",.02)
  1. ;;65862000760
  1. ;;9002226.02101,"1044,65862000761 ",.01)
  1. ;;65862000761
  1. ;;9002226.02101,"1044,65862000761 ",.02)
  1. ;;65862000761
  1. ;;9002226.02101,"1044,65862000790 ",.01)
  1. ;;65862000790
  1. ;;9002226.02101,"1044,65862000790 ",.02)
  1. ;;65862000790
  1. ;;9002226.02101,"1044,65862001101 ",.01)
  1. ;;65862001101
  1. ;;9002226.02101,"1044,65862001101 ",.02)
  1. ;;65862001101
  1. ;;9002226.02101,"1044,65862001105 ",.01)
  1. ;;65862001105
  1. ;;9002226.02101,"1044,65862001105 ",.02)
  1. ;;65862001105
  1. ;;9002226.02101,"1044,65862001129 ",.01)
  1. ;;65862001129
  1. ;;9002226.02101,"1044,65862001129 ",.02)
  1. ;;65862001129
  1. ;;9002226.02101,"1044,65862001130 ",.01)
  1. ;;65862001130
  1. ;;9002226.02101,"1044,65862001130 ",.02)
  1. ;;65862001130
  1. ;;9002226.02101,"1044,65862001150 ",.01)
  1. ;;65862001150
  1. ;;9002226.02101,"1044,65862001150 ",.02)
  1. ;;65862001150
  1. ;;9002226.02101,"1044,65862001151 ",.01)
  1. ;;65862001151
  1. ;;9002226.02101,"1044,65862001151 ",.02)
  1. ;;65862001151
  1. ;;9002226.02101,"1044,65862001159 ",.01)
  1. ;;65862001159
  1. ;;9002226.02101,"1044,65862001159 ",.02)
  1. ;;65862001159
  1. ;;9002226.02101,"1044,65862001160 ",.01)
  1. ;;65862001160
  1. ;;9002226.02101,"1044,65862001160 ",.02)
  1. ;;65862001160
  1. ;;9002226.02101,"1044,65862001190 ",.01)
  1. ;;65862001190
  1. ;;9002226.02101,"1044,65862001190 ",.02)
  1. ;;65862001190
  1. ;;9002226.02101,"1044,65862001199 ",.01)
  1. ;;65862001199
  1. ;;9002226.02101,"1044,65862001199 ",.02)
  1. ;;65862001199
  1. ;;9002226.02101,"1044,65862001201 ",.01)
  1. ;;65862001201
  1. ;;9002226.02101,"1044,65862001201 ",.02)
  1. ;;65862001201
  1. ;;9002226.02101,"1044,65862001205 ",.01)
  1. ;;65862001205
  1. ;;9002226.02101,"1044,65862001205 ",.02)
  1. ;;65862001205
  1. ;;9002226.02101,"1044,65862001219 ",.01)
  1. ;;65862001219
  1. ;;9002226.02101,"1044,65862001219 ",.02)
  1. ;;65862001219
  1. ;;9002226.02101,"1044,65862001230 ",.01)
  1. ;;65862001230
  1. ;;9002226.02101,"1044,65862001230 ",.02)
  1. ;;65862001230
  1. ;;9002226.02101,"1044,65862001250 ",.01)
  1. ;;65862001250
  1. ;;9002226.02101,"1044,65862001250 ",.02)
  1. ;;65862001250
  1. ;;9002226.02101,"1044,65862001251 ",.01)
  1. ;;65862001251
  1. ;;9002226.02101,"1044,65862001251 ",.02)
  1. ;;65862001251
  1. ;;9002226.02101,"1044,65862001259 ",.01)
  1. ;;65862001259
  1. ;;9002226.02101,"1044,65862001259 ",.02)
  1. ;;65862001259
  1. ;;9002226.02101,"1044,65862001260 ",.01)
  1. ;;65862001260
  1. ;;9002226.02101,"1044,65862001260 ",.02)
  1. ;;65862001260
  1. ;;9002226.02101,"1044,65862001290 ",.01)
  1. ;;65862001290
  1. ;;9002226.02101,"1044,65862001290 ",.02)
  1. ;;65862001290
  1. ;;9002226.02101,"1044,65862001299 ",.01)
  1. ;;65862001299
  1. ;;9002226.02101,"1044,65862001299 ",.02)
  1. ;;65862001299
  1. ;;9002226.02101,"1044,65862001301 ",.01)
  1. ;;65862001301
  1. ;;9002226.02101,"1044,65862001301 ",.02)
  1. ;;65862001301
  1. ;;9002226.02101,"1044,65862001305 ",.01)
  1. ;;65862001305
  1. ;;9002226.02101,"1044,65862001305 ",.02)
  1. ;;65862001305
  1. ;;9002226.02101,"1044,65862001325 ",.01)
  1. ;;65862001325
  1. ;;9002226.02101,"1044,65862001325 ",.02)
  1. ;;65862001325
  1. ;;9002226.02101,"1044,65862001326 ",.01)
  1. ;;65862001326
  1. ;;9002226.02101,"1044,65862001326 ",.02)
  1. ;;65862001326
  1. ;;9002226.02101,"1044,65862001330 ",.01)
  1. ;;65862001330
  1. ;;9002226.02101,"1044,65862001330 ",.02)
  1. ;;65862001330
  1. ;;9002226.02101,"1044,65862001350 ",.01)
  1. ;;65862001350
  1. ;;9002226.02101,"1044,65862001350 ",.02)
  1. ;;65862001350
  1. ;;9002226.02101,"1044,65862001359 ",.01)
  1. ;;65862001359
  1. ;;9002226.02101,"1044,65862001359 ",.02)
  1. ;;65862001359
  1. ;;9002226.02101,"1044,65862001360 ",.01)
  1. ;;65862001360
  1. ;;9002226.02101,"1044,65862001360 ",.02)
  1. ;;65862001360
  1. ;;9002226.02101,"1044,65862001390 ",.01)
  1. ;;65862001390
  1. ;;9002226.02101,"1044,65862001390 ",.02)
  1. ;;65862001390
  1. ;;9002226.02101,"1044,65862001399 ",.01)
  1. ;;65862001399
  1. ;;9002226.02101,"1044,65862001399 ",.02)
  1. ;;65862001399
  1. ;;9002226.02101,"1044,65862002101 ",.01)
  1. ;;65862002101
  1. ;;9002226.02101,"1044,65862002101 ",.02)
  1. ;;65862002101
  1. ;;9002226.02101,"1044,65862002106 ",.01)
  1. ;;65862002106
  1. ;;9002226.02101,"1044,65862002106 ",.02)
  1. ;;65862002106
  1. ;;9002226.02101,"1044,65862002130 ",.01)
  1. ;;65862002130
  1. ;;9002226.02101,"1044,65862002130 ",.02)
  1. ;;65862002130
  1. ;;9002226.02101,"1044,65862002160 ",.01)
  1. ;;65862002160
  1. ;;9002226.02101,"1044,65862002160 ",.02)
  1. ;;65862002160
  1. ;;9002226.02101,"1044,65862002190 ",.01)
  1. ;;65862002190
  1. ;;9002226.02101,"1044,65862002190 ",.02)
  1. ;;65862002190
  1. ;;9002226.02101,"1044,65862002201 ",.01)
  1. ;;65862002201
  1. ;;9002226.02101,"1044,65862002201 ",.02)
  1. ;;65862002201
  1. ;;9002226.02101,"1044,65862002206 ",.01)
  1. ;;65862002206
  1. ;;9002226.02101,"1044,65862002206 ",.02)
  1. ;;65862002206
  1. ;;9002226.02101,"1044,65862002230 ",.01)
  1. ;;65862002230
  1. ;;9002226.02101,"1044,65862002230 ",.02)
  1. ;;65862002230
  1. ;;9002226.02101,"1044,65862002260 ",.01)
  1. ;;65862002260
  1. ;;9002226.02101,"1044,65862002260 ",.02)
  1. ;;65862002260
  1. ;;9002226.02101,"1044,65862002290 ",.01)
  1. ;;65862002290
  1. ;;9002226.02101,"1044,65862002290 ",.02)
  1. ;;65862002290
  1. ;;9002226.02101,"1044,65862002301 ",.01)
  1. ;;65862002301
  1. ;;9002226.02101,"1044,65862002301 ",.02)
  1. ;;65862002301
  1. ;;9002226.02101,"1044,65862002306 ",.01)
  1. ;;65862002306
  1. ;;9002226.02101,"1044,65862002306 ",.02)
  1. ;;65862002306
  1. ;;9002226.02101,"1044,65862002330 ",.01)
  1. ;;65862002330
  1. ;;9002226.02101,"1044,65862002330 ",.02)
  1. ;;65862002330
  1. ;;9002226.02101,"1044,65862002360 ",.01)
  1. ;;65862002360
  1. ;;9002226.02101,"1044,65862002360 ",.02)
  1. ;;65862002360
  1. ;;9002226.02101,"1044,65862002390 ",.01)
  1. ;;65862002390
  1. ;;9002226.02101,"1044,65862002390 ",.02)
  1. ;;65862002390
  1. ;;9002226.02101,"1044,65862003101 ",.01)
  1. ;;65862003101
  1. ;;9002226.02101,"1044,65862003101 ",.02)
  1. ;;65862003101
  1. ;;9002226.02101,"1044,65862003103 ",.01)
  1. ;;65862003103
  1. ;;9002226.02101,"1044,65862003103 ",.02)
  1. ;;65862003103
  1. ;;9002226.02101,"1044,65862003105 ",.01)
  1. ;;65862003105
  1. ;;9002226.02101,"1044,65862003105 ",.02)
  1. ;;65862003105
  1. ;;9002226.02101,"1044,65862003119 ",.01)
  1. ;;65862003119
  1. ;;9002226.02101,"1044,65862003119 ",.02)
  1. ;;65862003119
  1. ;;9002226.02101,"1044,65862003130 ",.01)
  1. ;;65862003130
  1. ;;9002226.02101,"1044,65862003130 ",.02)
  1. ;;65862003130
  1. ;;9002226.02101,"1044,65862003132 ",.01)
  1. ;;65862003132
  1. ;;9002226.02101,"1044,65862003132 ",.02)
  1. ;;65862003132
  1. ;;9002226.02101,"1044,65862003160 ",.01)
  1. ;;65862003160
  1. ;;9002226.02101,"1044,65862003160 ",.02)
  1. ;;65862003160
  1. ;;9002226.02101,"1044,65862003190 ",.01)
  1. ;;65862003190
  1. ;;9002226.02101,"1044,65862003190 ",.02)
  1. ;;65862003190
  1. ;;9002226.02101,"1044,65862003201 ",.01)
  1. ;;65862003201
  1. ;;9002226.02101,"1044,65862003201 ",.02)
  1. ;;65862003201
  1. ;;9002226.02101,"1044,65862003203 ",.01)
  1. ;;65862003203
  1. ;;9002226.02101,"1044,65862003203 ",.02)
  1. ;;65862003203
  1. ;;9002226.02101,"1044,65862003205 ",.01)
  1. ;;65862003205
  1. ;;9002226.02101,"1044,65862003205 ",.02)
  1. ;;65862003205
  1. ;;9002226.02101,"1044,65862003230 ",.01)
  1. ;;65862003230
  1. ;;9002226.02101,"1044,65862003230 ",.02)
  1. ;;65862003230
  1. ;;9002226.02101,"1044,65862003232 ",.01)
  1. ;;65862003232
  1. ;;9002226.02101,"1044,65862003232 ",.02)
  1. ;;65862003232
  1. ;;9002226.02101,"1044,65862003239 ",.01)
  1. ;;65862003239
  1. ;;9002226.02101,"1044,65862003239 ",.02)
  1. ;;65862003239
  1. ;;9002226.02101,"1044,65862003260 ",.01)
  1. ;;65862003260
  1. ;;9002226.02101,"1044,65862003260 ",.02)
  1. ;;65862003260
  1. ;;9002226.02101,"1044,65862003290 ",.01)
  1. ;;65862003290
  1. ;;9002226.02101,"1044,65862003290 ",.02)
  1. ;;65862003290
  1. ;;9002226.02101,"1044,65862007424 ",.01)
  1. ;;65862007424
  1. ;;9002226.02101,"1044,65862007424 ",.02)
  1. ;;65862007424
  1. ;;9002226.02101,"1044,65862015401 ",.01)
  1. ;;65862015401