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

BGPM5ADG.m

Go to the documentation of this file.
  1. BGPM5ADG ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"846,65862002930 ",.02)
  1. ;;65862002930
  1. ;;9002226.02101,"846,65862002999 ",.01)
  1. ;;65862002999
  1. ;;9002226.02101,"846,65862002999 ",.02)
  1. ;;65862002999
  1. ;;9002226.02101,"846,65862003000 ",.01)
  1. ;;65862003000
  1. ;;9002226.02101,"846,65862003000 ",.02)
  1. ;;65862003000
  1. ;;9002226.02101,"846,65862003001 ",.01)
  1. ;;65862003001
  1. ;;9002226.02101,"846,65862003001 ",.02)
  1. ;;65862003001
  1. ;;9002226.02101,"846,65862003005 ",.01)
  1. ;;65862003005
  1. ;;9002226.02101,"846,65862003005 ",.02)
  1. ;;65862003005
  1. ;;9002226.02101,"846,65862003030 ",.01)
  1. ;;65862003030
  1. ;;9002226.02101,"846,65862003030 ",.02)
  1. ;;65862003030
  1. ;;9002226.02101,"846,65862003075 ",.01)
  1. ;;65862003075
  1. ;;9002226.02101,"846,65862003075 ",.02)
  1. ;;65862003075
  1. ;;9002226.02101,"846,65862003099 ",.01)
  1. ;;65862003099
  1. ;;9002226.02101,"846,65862003099 ",.02)
  1. ;;65862003099
  1. ;;9002226.02101,"846,65862008001 ",.01)
  1. ;;65862008001
  1. ;;9002226.02101,"846,65862008001 ",.02)
  1. ;;65862008001
  1. ;;9002226.02101,"846,65862008005 ",.01)
  1. ;;65862008005
  1. ;;9002226.02101,"846,65862008005 ",.02)
  1. ;;65862008005
  1. ;;9002226.02101,"846,65862008030 ",.01)
  1. ;;65862008030
  1. ;;9002226.02101,"846,65862008030 ",.02)
  1. ;;65862008030
  1. ;;9002226.02101,"846,65862008036 ",.01)
  1. ;;65862008036
  1. ;;9002226.02101,"846,65862008036 ",.02)
  1. ;;65862008036
  1. ;;9002226.02101,"846,65862008101 ",.01)
  1. ;;65862008101
  1. ;;9002226.02101,"846,65862008101 ",.02)
  1. ;;65862008101
  1. ;;9002226.02101,"846,65862008105 ",.01)
  1. ;;65862008105
  1. ;;9002226.02101,"846,65862008105 ",.02)
  1. ;;65862008105
  1. ;;9002226.02101,"846,65862008118 ",.01)
  1. ;;65862008118
  1. ;;9002226.02101,"846,65862008118 ",.02)
  1. ;;65862008118
  1. ;;9002226.02101,"846,65862008130 ",.01)
  1. ;;65862008130
  1. ;;9002226.02101,"846,65862008130 ",.02)
  1. ;;65862008130
  1. ;;9002226.02101,"846,65862008201 ",.01)
  1. ;;65862008201
  1. ;;9002226.02101,"846,65862008201 ",.02)
  1. ;;65862008201
  1. ;;9002226.02101,"846,65862008205 ",.01)
  1. ;;65862008205
  1. ;;9002226.02101,"846,65862008205 ",.02)
  1. ;;65862008205
  1. ;;9002226.02101,"846,65862008218 ",.01)
  1. ;;65862008218
  1. ;;9002226.02101,"846,65862008218 ",.02)
  1. ;;65862008218
  1. ;;9002226.02101,"846,65862008230 ",.01)
  1. ;;65862008230
  1. ;;9002226.02101,"846,65862008230 ",.02)
  1. ;;65862008230
  1. ;;9002226.02101,"846,66105075402 ",.01)
  1. ;;66105075402
  1. ;;9002226.02101,"846,66105075402 ",.02)
  1. ;;66105075402
  1. ;;9002226.02101,"846,66105075403 ",.01)
  1. ;;66105075403
  1. ;;9002226.02101,"846,66105075403 ",.02)
  1. ;;66105075403
  1. ;;9002226.02101,"846,66105075406 ",.01)
  1. ;;66105075406
  1. ;;9002226.02101,"846,66105075406 ",.02)
  1. ;;66105075406
  1. ;;9002226.02101,"846,66105075409 ",.01)
  1. ;;66105075409
  1. ;;9002226.02101,"846,66105075409 ",.02)
  1. ;;66105075409
  1. ;;9002226.02101,"846,66105075410 ",.01)
  1. ;;66105075410
  1. ;;9002226.02101,"846,66105075410 ",.02)
  1. ;;66105075410
  1. ;;9002226.02101,"846,66105075602 ",.01)
  1. ;;66105075602
  1. ;;9002226.02101,"846,66105075602 ",.02)
  1. ;;66105075602
  1. ;;9002226.02101,"846,66105075603 ",.01)
  1. ;;66105075603
  1. ;;9002226.02101,"846,66105075603 ",.02)
  1. ;;66105075603
  1. ;;9002226.02101,"846,66105075606 ",.01)
  1. ;;66105075606
  1. ;;9002226.02101,"846,66105075606 ",.02)
  1. ;;66105075606
  1. ;;9002226.02101,"846,66105075609 ",.01)
  1. ;;66105075609
  1. ;;9002226.02101,"846,66105075609 ",.02)
  1. ;;66105075609
  1. ;;9002226.02101,"846,66105075610 ",.01)
  1. ;;66105075610
  1. ;;9002226.02101,"846,66105075610 ",.02)
  1. ;;66105075610
  1. ;;9002226.02101,"846,66105098402 ",.01)
  1. ;;66105098402
  1. ;;9002226.02101,"846,66105098402 ",.02)
  1. ;;66105098402
  1. ;;9002226.02101,"846,66105098403 ",.01)
  1. ;;66105098403
  1. ;;9002226.02101,"846,66105098403 ",.02)
  1. ;;66105098403
  1. ;;9002226.02101,"846,66105098406 ",.01)
  1. ;;66105098406
  1. ;;9002226.02101,"846,66105098406 ",.02)
  1. ;;66105098406
  1. ;;9002226.02101,"846,66105098409 ",.01)
  1. ;;66105098409
  1. ;;9002226.02101,"846,66105098409 ",.02)
  1. ;;66105098409
  1. ;;9002226.02101,"846,66105098410 ",.01)
  1. ;;66105098410
  1. ;;9002226.02101,"846,66105098410 ",.02)
  1. ;;66105098410
  1. ;;9002226.02101,"846,66105098411 ",.01)
  1. ;;66105098411
  1. ;;9002226.02101,"846,66105098411 ",.02)
  1. ;;66105098411
  1. ;;9002226.02101,"846,66105098450 ",.01)
  1. ;;66105098450
  1. ;;9002226.02101,"846,66105098450 ",.02)
  1. ;;66105098450
  1. ;;9002226.02101,"846,66105098502 ",.01)
  1. ;;66105098502
  1. ;;9002226.02101,"846,66105098502 ",.02)
  1. ;;66105098502
  1. ;;9002226.02101,"846,66105098503 ",.01)
  1. ;;66105098503
  1. ;;9002226.02101,"846,66105098503 ",.02)
  1. ;;66105098503
  1. ;;9002226.02101,"846,66105098506 ",.01)
  1. ;;66105098506
  1. ;;9002226.02101,"846,66105098506 ",.02)
  1. ;;66105098506
  1. ;;9002226.02101,"846,66105098509 ",.01)
  1. ;;66105098509
  1. ;;9002226.02101,"846,66105098509 ",.02)
  1. ;;66105098509
  1. ;;9002226.02101,"846,66105098510 ",.01)
  1. ;;66105098510
  1. ;;9002226.02101,"846,66105098510 ",.02)
  1. ;;66105098510
  1. ;;9002226.02101,"846,66105098511 ",.01)
  1. ;;66105098511
  1. ;;9002226.02101,"846,66105098511 ",.02)
  1. ;;66105098511
  1. ;;9002226.02101,"846,66105098550 ",.01)
  1. ;;66105098550
  1. ;;9002226.02101,"846,66105098550 ",.02)
  1. ;;66105098550
  1. ;;9002226.02101,"846,66105098602 ",.01)
  1. ;;66105098602
  1. ;;9002226.02101,"846,66105098602 ",.02)
  1. ;;66105098602
  1. ;;9002226.02101,"846,66105098603 ",.01)
  1. ;;66105098603
  1. ;;9002226.02101,"846,66105098603 ",.02)
  1. ;;66105098603
  1. ;;9002226.02101,"846,66105098606 ",.01)
  1. ;;66105098606
  1. ;;9002226.02101,"846,66105098606 ",.02)
  1. ;;66105098606
  1. ;;9002226.02101,"846,66105098609 ",.01)
  1. ;;66105098609
  1. ;;9002226.02101,"846,66105098609 ",.02)
  1. ;;66105098609
  1. ;;9002226.02101,"846,66105098610 ",.01)
  1. ;;66105098610
  1. ;;9002226.02101,"846,66105098610 ",.02)
  1. ;;66105098610
  1. ;;9002226.02101,"846,66105098611 ",.01)
  1. ;;66105098611
  1. ;;9002226.02101,"846,66105098611 ",.02)
  1. ;;66105098611
  1. ;;9002226.02101,"846,66105098650 ",.01)
  1. ;;66105098650
  1. ;;9002226.02101,"846,66105098650 ",.02)
  1. ;;66105098650
  1. ;;9002226.02101,"846,66116036060 ",.01)
  1. ;;66116036060
  1. ;;9002226.02101,"846,66116036060 ",.02)
  1. ;;66116036060
  1. ;;9002226.02101,"846,66116044030 ",.01)
  1. ;;66116044030
  1. ;;9002226.02101,"846,66116044030 ",.02)
  1. ;;66116044030
  1. ;;9002226.02101,"846,66116044060 ",.01)
  1. ;;66116044060
  1. ;;9002226.02101,"846,66116044060 ",.02)
  1. ;;66116044060
  1. ;;9002226.02101,"846,66116080560 ",.01)
  1. ;;66116080560
  1. ;;9002226.02101,"846,66116080560 ",.02)
  1. ;;66116080560
  1. ;;9002226.02101,"846,66116080660 ",.01)
  1. ;;66116080660
  1. ;;9002226.02101,"846,66116080660 ",.02)
  1. ;;66116080660
  1. ;;9002226.02101,"846,66116082760 ",.01)
  1. ;;66116082760
  1. ;;9002226.02101,"846,66116082760 ",.02)
  1. ;;66116082760
  1. ;;9002226.02101,"846,66116082860 ",.01)
  1. ;;66116082860
  1. ;;9002226.02101,"846,66116082860 ",.02)
  1. ;;66116082860
  1. ;;9002226.02101,"846,66267005460 ",.01)
  1. ;;66267005460
  1. ;;9002226.02101,"846,66267005460 ",.02)
  1. ;;66267005460
  1. ;;9002226.02101,"846,66267010010 ",.01)
  1. ;;66267010010
  1. ;;9002226.02101,"846,66267010010 ",.02)
  1. ;;66267010010
  1. ;;9002226.02101,"846,66267010020 ",.01)
  1. ;;66267010020
  1. ;;9002226.02101,"846,66267010020 ",.02)
  1. ;;66267010020
  1. ;;9002226.02101,"846,66267010030 ",.01)
  1. ;;66267010030
  1. ;;9002226.02101,"846,66267010030 ",.02)
  1. ;;66267010030
  1. ;;9002226.02101,"846,66267010060 ",.01)
  1. ;;66267010060
  1. ;;9002226.02101,"846,66267010060 ",.02)
  1. ;;66267010060
  1. ;;9002226.02101,"846,66267010090 ",.01)
  1. ;;66267010090
  1. ;;9002226.02101,"846,66267010090 ",.02)
  1. ;;66267010090
  1. ;;9002226.02101,"846,66267010205 ",.01)
  1. ;;66267010205
  1. ;;9002226.02101,"846,66267010205 ",.02)
  1. ;;66267010205
  1. ;;9002226.02101,"846,66267010230 ",.01)
  1. ;;66267010230
  1. ;;9002226.02101,"846,66267010230 ",.02)
  1. ;;66267010230
  1. ;;9002226.02101,"846,66267010312 ",.01)
  1. ;;66267010312
  1. ;;9002226.02101,"846,66267010312 ",.02)
  1. ;;66267010312
  1. ;;9002226.02101,"846,66267010330 ",.01)
  1. ;;66267010330
  1. ;;9002226.02101,"846,66267010330 ",.02)
  1. ;;66267010330
  1. ;;9002226.02101,"846,66267010360 ",.01)
  1. ;;66267010360
  1. ;;9002226.02101,"846,66267010360 ",.02)
  1. ;;66267010360
  1. ;;9002226.02101,"846,66267023110 ",.01)
  1. ;;66267023110
  1. ;;9002226.02101,"846,66267023110 ",.02)
  1. ;;66267023110
  1. ;;9002226.02101,"846,66267023115 ",.01)
  1. ;;66267023115
  1. ;;9002226.02101,"846,66267023115 ",.02)
  1. ;;66267023115
  1. ;;9002226.02101,"846,66267023120 ",.01)
  1. ;;66267023120
  1. ;;9002226.02101,"846,66267023120 ",.02)
  1. ;;66267023120
  1. ;;9002226.02101,"846,66267023130 ",.01)
  1. ;;66267023130
  1. ;;9002226.02101,"846,66267023130 ",.02)
  1. ;;66267023130
  1. ;;9002226.02101,"846,66267023140 ",.01)
  1. ;;66267023140
  1. ;;9002226.02101,"846,66267023140 ",.02)
  1. ;;66267023140
  1. ;;9002226.02101,"846,66267031630 ",.01)
  1. ;;66267031630
  1. ;;9002226.02101,"846,66267031630 ",.02)
  1. ;;66267031630
  1. ;;9002226.02101,"846,66336002830 ",.01)
  1. ;;66336002830
  1. ;;9002226.02101,"846,66336002830 ",.02)
  1. ;;66336002830
  1. ;;9002226.02101,"846,66336026930 ",.01)
  1. ;;66336026930
  1. ;;9002226.02101,"846,66336026930 ",.02)
  1. ;;66336026930
  1. ;;9002226.02101,"846,66336066230 ",.01)
  1. ;;66336066230
  1. ;;9002226.02101,"846,66336066230 ",.02)
  1. ;;66336066230
  1. ;;9002226.02101,"846,66336066260 ",.01)
  1. ;;66336066260
  1. ;;9002226.02101,"846,66336066260 ",.02)
  1. ;;66336066260
  1. ;;9002226.02101,"846,66336066294 ",.01)
  1. ;;66336066294
  1. ;;9002226.02101,"846,66336066294 ",.02)
  1. ;;66336066294
  1. ;;9002226.02101,"846,66336073030 ",.01)
  1. ;;66336073030
  1. ;;9002226.02101,"846,66336073030 ",.02)
  1. ;;66336073030
  1. ;;9002226.02101,"846,66336073060 ",.01)
  1. ;;66336073060
  1. ;;9002226.02101,"846,66336073060 ",.02)
  1. ;;66336073060
  1. ;;9002226.02101,"846,66336078430 ",.01)
  1. ;;66336078430
  1. ;;9002226.02101,"846,66336078430 ",.02)
  1. ;;66336078430
  1. ;;9002226.02101,"846,66336093830 ",.01)
  1. ;;66336093830
  1. ;;9002226.02101,"846,66336093830 ",.02)
  1. ;;66336093830
  1. ;;9002226.02101,"846,66336093860 ",.01)
  1. ;;66336093860
  1. ;;9002226.02101,"846,66336093860 ",.02)
  1. ;;66336093860
  1. ;;9002226.02101,"846,66993016202 ",.01)
  1. ;;66993016202
  1. ;;9002226.02101,"846,66993016202 ",.02)
  1. ;;66993016202
  1. ;;9002226.02101,"846,66993016247 ",.01)
  1. ;;66993016247
  1. ;;9002226.02101,"846,66993016247 ",.02)
  1. ;;66993016247
  1. ;;9002226.02101,"846,66993016302 ",.01)
  1. ;;66993016302
  1. ;;9002226.02101,"846,66993016302 ",.02)
  1. ;;66993016302
  1. ;;9002226.02101,"846,66993016347 ",.01)
  1. ;;66993016347
  1. ;;9002226.02101,"846,66993016347 ",.02)
  1. ;;66993016347
  1. ;;9002226.02101,"846,66993016402 ",.01)
  1. ;;66993016402
  1. ;;9002226.02101,"846,66993016402 ",.02)
  1. ;;66993016402
  1. ;;9002226.02101,"846,67046023530 ",.01)
  1. ;;67046023530
  1. ;;9002226.02101,"846,67046023530 ",.02)
  1. ;;67046023530
  1. ;;9002226.02101,"846,67046024030 ",.01)
  1. ;;67046024030
  1. ;;9002226.02101,"846,67046024030 ",.02)
  1. ;;67046024030
  1. ;;9002226.02101,"846,67046024060 ",.01)
  1. ;;67046024060
  1. ;;9002226.02101,"846,67046024060 ",.02)
  1. ;;67046024060
  1. ;;9002226.02101,"846,67228024203 ",.01)
  1. ;;67228024203
  1. ;;9002226.02101,"846,67228024203 ",.02)
  1. ;;67228024203
  1. ;;9002226.02101,"846,67228024206 ",.01)
  1. ;;67228024206
  1. ;;9002226.02101,"846,67228024206 ",.02)
  1. ;;67228024206
  1. ;;9002226.02101,"846,67228024303 ",.01)
  1. ;;67228024303
  1. ;;9002226.02101,"846,67228024303 ",.02)
  1. ;;67228024303
  1. ;;9002226.02101,"846,67228024306 ",.01)
  1. ;;67228024306
  1. ;;9002226.02101,"846,67228024306 ",.02)
  1. ;;67228024306
  1. ;;9002226.02101,"846,67251046011 ",.01)
  1. ;;67251046011
  1. ;;9002226.02101,"846,67251046011 ",.02)
  1. ;;67251046011
  1. ;;9002226.02101,"846,67251046050 ",.01)
  1. ;;67251046050
  1. ;;9002226.02101,"846,67251046050 ",.02)
  1. ;;67251046050
  1. ;;9002226.02101,"846,67253046010 ",.01)
  1. ;;67253046010
  1. ;;9002226.02101,"846,67253046010 ",.02)
  1. ;;67253046010
  1. ;;9002226.02101,"846,67253046011 ",.01)
  1. ;;67253046011
  1. ;;9002226.02101,"846,67253046011 ",.02)
  1. ;;67253046011
  1. ;;9002226.02101,"846,67253046050 ",.01)
  1. ;;67253046050
  1. ;;9002226.02101,"846,67253046050 ",.02)
  1. ;;67253046050
  1. ;;9002226.02101,"846,67253046110 ",.01)
  1. ;;67253046110