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

BGPM5ACQ.m

Go to the documentation of this file.
  1. BGPM5ACQ ;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,00555044302 ",.02)
  1. ;;00555044302
  1. ;;9002226.02101,"846,00555044304 ",.01)
  1. ;;00555044304
  1. ;;9002226.02101,"846,00555044304 ",.02)
  1. ;;00555044304
  1. ;;9002226.02101,"846,00555044305 ",.01)
  1. ;;00555044305
  1. ;;9002226.02101,"846,00555044305 ",.02)
  1. ;;00555044305
  1. ;;9002226.02101,"846,00555044320 ",.01)
  1. ;;00555044320
  1. ;;9002226.02101,"846,00555044320 ",.02)
  1. ;;00555044320
  1. ;;9002226.02101,"846,00555062502 ",.01)
  1. ;;00555062502
  1. ;;9002226.02101,"846,00555062502 ",.02)
  1. ;;00555062502
  1. ;;9002226.02101,"846,00555062602 ",.01)
  1. ;;00555062602
  1. ;;9002226.02101,"846,00555062602 ",.02)
  1. ;;00555062602
  1. ;;9002226.02101,"846,00555062702 ",.01)
  1. ;;00555062702
  1. ;;9002226.02101,"846,00555062702 ",.02)
  1. ;;00555062702
  1. ;;9002226.02101,"846,00591046000 ",.01)
  1. ;;00591046000
  1. ;;9002226.02101,"846,00591046000 ",.02)
  1. ;;00591046000
  1. ;;9002226.02101,"846,00591046001 ",.01)
  1. ;;00591046001
  1. ;;9002226.02101,"846,00591046001 ",.02)
  1. ;;00591046001
  1. ;;9002226.02101,"846,00591046005 ",.01)
  1. ;;00591046005
  1. ;;9002226.02101,"846,00591046005 ",.02)
  1. ;;00591046005
  1. ;;9002226.02101,"846,00591046010 ",.01)
  1. ;;00591046010
  1. ;;9002226.02101,"846,00591046010 ",.02)
  1. ;;00591046010
  1. ;;9002226.02101,"846,00591046100 ",.01)
  1. ;;00591046100
  1. ;;9002226.02101,"846,00591046100 ",.02)
  1. ;;00591046100
  1. ;;9002226.02101,"846,00591046101 ",.01)
  1. ;;00591046101
  1. ;;9002226.02101,"846,00591046101 ",.02)
  1. ;;00591046101
  1. ;;9002226.02101,"846,00591046105 ",.01)
  1. ;;00591046105
  1. ;;9002226.02101,"846,00591046105 ",.02)
  1. ;;00591046105
  1. ;;9002226.02101,"846,00591046110 ",.01)
  1. ;;00591046110
  1. ;;9002226.02101,"846,00591046110 ",.02)
  1. ;;00591046110
  1. ;;9002226.02101,"846,00591084401 ",.01)
  1. ;;00591084401
  1. ;;9002226.02101,"846,00591084401 ",.02)
  1. ;;00591084401
  1. ;;9002226.02101,"846,00591084410 ",.01)
  1. ;;00591084410
  1. ;;9002226.02101,"846,00591084410 ",.02)
  1. ;;00591084410
  1. ;;9002226.02101,"846,00591084415 ",.01)
  1. ;;00591084415
  1. ;;9002226.02101,"846,00591084415 ",.02)
  1. ;;00591084415
  1. ;;9002226.02101,"846,00591084501 ",.01)
  1. ;;00591084501
  1. ;;9002226.02101,"846,00591084501 ",.02)
  1. ;;00591084501
  1. ;;9002226.02101,"846,00591084510 ",.01)
  1. ;;00591084510
  1. ;;9002226.02101,"846,00591084510 ",.02)
  1. ;;00591084510
  1. ;;9002226.02101,"846,00591084515 ",.01)
  1. ;;00591084515
  1. ;;9002226.02101,"846,00591084515 ",.02)
  1. ;;00591084515
  1. ;;9002226.02101,"846,00591090001 ",.01)
  1. ;;00591090001
  1. ;;9002226.02101,"846,00591090001 ",.02)
  1. ;;00591090001
  1. ;;9002226.02101,"846,00591090010 ",.01)
  1. ;;00591090010
  1. ;;9002226.02101,"846,00591090010 ",.02)
  1. ;;00591090010
  1. ;;9002226.02101,"846,00591090030 ",.01)
  1. ;;00591090030
  1. ;;9002226.02101,"846,00591090030 ",.02)
  1. ;;00591090030
  1. ;;9002226.02101,"846,00591397101 ",.01)
  1. ;;00591397101
  1. ;;9002226.02101,"846,00591397101 ",.02)
  1. ;;00591397101
  1. ;;9002226.02101,"846,00591397201 ",.01)
  1. ;;00591397201
  1. ;;9002226.02101,"846,00591397201 ",.02)
  1. ;;00591397201
  1. ;;9002226.02101,"846,00591397301 ",.01)
  1. ;;00591397301
  1. ;;9002226.02101,"846,00591397301 ",.02)
  1. ;;00591397301
  1. ;;9002226.02101,"846,00603283521 ",.01)
  1. ;;00603283521
  1. ;;9002226.02101,"846,00603283521 ",.02)
  1. ;;00603283521
  1. ;;9002226.02101,"846,00603283528 ",.01)
  1. ;;00603283528
  1. ;;9002226.02101,"846,00603283528 ",.02)
  1. ;;00603283528
  1. ;;9002226.02101,"846,00603283621 ",.01)
  1. ;;00603283621
  1. ;;9002226.02101,"846,00603283621 ",.02)
  1. ;;00603283621
  1. ;;9002226.02101,"846,00603283628 ",.01)
  1. ;;00603283628
  1. ;;9002226.02101,"846,00603283628 ",.02)
  1. ;;00603283628
  1. ;;9002226.02101,"846,00603283632 ",.01)
  1. ;;00603283632
  1. ;;9002226.02101,"846,00603283632 ",.02)
  1. ;;00603283632
  1. ;;9002226.02101,"846,00603374421 ",.01)
  1. ;;00603374421
  1. ;;9002226.02101,"846,00603374421 ",.02)
  1. ;;00603374421
  1. ;;9002226.02101,"846,00603374428 ",.01)
  1. ;;00603374428
  1. ;;9002226.02101,"846,00603374428 ",.02)
  1. ;;00603374428
  1. ;;9002226.02101,"846,00603374521 ",.01)
  1. ;;00603374521
  1. ;;9002226.02101,"846,00603374521 ",.02)
  1. ;;00603374521
  1. ;;9002226.02101,"846,00603374528 ",.01)
  1. ;;00603374528
  1. ;;9002226.02101,"846,00603374528 ",.02)
  1. ;;00603374528
  1. ;;9002226.02101,"846,00603374621 ",.01)
  1. ;;00603374621
  1. ;;9002226.02101,"846,00603374621 ",.02)
  1. ;;00603374621
  1. ;;9002226.02101,"846,00603374628 ",.01)
  1. ;;00603374628
  1. ;;9002226.02101,"846,00603374628 ",.02)
  1. ;;00603374628
  1. ;;9002226.02101,"846,00603375521 ",.01)
  1. ;;00603375521
  1. ;;9002226.02101,"846,00603375521 ",.02)
  1. ;;00603375521
  1. ;;9002226.02101,"846,00603375528 ",.01)
  1. ;;00603375528
  1. ;;9002226.02101,"846,00603375528 ",.02)
  1. ;;00603375528
  1. ;;9002226.02101,"846,00603375621 ",.01)
  1. ;;00603375621
  1. ;;9002226.02101,"846,00603375621 ",.02)
  1. ;;00603375621
  1. ;;9002226.02101,"846,00603375628 ",.01)
  1. ;;00603375628
  1. ;;9002226.02101,"846,00603375628 ",.02)
  1. ;;00603375628
  1. ;;9002226.02101,"846,00615155631 ",.01)
  1. ;;00615155631
  1. ;;9002226.02101,"846,00615155631 ",.02)
  1. ;;00615155631
  1. ;;9002226.02101,"846,00615155639 ",.01)
  1. ;;00615155639
  1. ;;9002226.02101,"846,00615155639 ",.02)
  1. ;;00615155639
  1. ;;9002226.02101,"846,00615359505 ",.01)
  1. ;;00615359505
  1. ;;9002226.02101,"846,00615359505 ",.02)
  1. ;;00615359505
  1. ;;9002226.02101,"846,00615359539 ",.01)
  1. ;;00615359539
  1. ;;9002226.02101,"846,00615359539 ",.02)
  1. ;;00615359539
  1. ;;9002226.02101,"846,00615359631 ",.01)
  1. ;;00615359631
  1. ;;9002226.02101,"846,00615359631 ",.02)
  1. ;;00615359631
  1. ;;9002226.02101,"846,00615359639 ",.01)
  1. ;;00615359639
  1. ;;9002226.02101,"846,00615359639 ",.02)
  1. ;;00615359639
  1. ;;9002226.02101,"846,00615450939 ",.01)
  1. ;;00615450939
  1. ;;9002226.02101,"846,00615450939 ",.02)
  1. ;;00615450939
  1. ;;9002226.02101,"846,00615558431 ",.01)
  1. ;;00615558431
  1. ;;9002226.02101,"846,00615558431 ",.02)
  1. ;;00615558431
  1. ;;9002226.02101,"846,00615558439 ",.01)
  1. ;;00615558439
  1. ;;9002226.02101,"846,00615558439 ",.02)
  1. ;;00615558439
  1. ;;9002226.02101,"846,00615558531 ",.01)
  1. ;;00615558531
  1. ;;9002226.02101,"846,00615558531 ",.02)
  1. ;;00615558531
  1. ;;9002226.02101,"846,00615558539 ",.01)
  1. ;;00615558539
  1. ;;9002226.02101,"846,00615558539 ",.02)
  1. ;;00615558539
  1. ;;9002226.02101,"846,00615657539 ",.01)
  1. ;;00615657539
  1. ;;9002226.02101,"846,00615657539 ",.02)
  1. ;;00615657539
  1. ;;9002226.02101,"846,00615657639 ",.01)
  1. ;;00615657639
  1. ;;9002226.02101,"846,00615657639 ",.02)
  1. ;;00615657639
  1. ;;9002226.02101,"846,00615659639 ",.01)
  1. ;;00615659639
  1. ;;9002226.02101,"846,00615659639 ",.02)
  1. ;;00615659639
  1. ;;9002226.02101,"846,00615752339 ",.01)
  1. ;;00615752339
  1. ;;9002226.02101,"846,00615752339 ",.02)
  1. ;;00615752339
  1. ;;9002226.02101,"846,00677154401 ",.01)
  1. ;;00677154401
  1. ;;9002226.02101,"846,00677154401 ",.02)
  1. ;;00677154401
  1. ;;9002226.02101,"846,00677154405 ",.01)
  1. ;;00677154405
  1. ;;9002226.02101,"846,00677154405 ",.02)
  1. ;;00677154405
  1. ;;9002226.02101,"846,00677154501 ",.01)
  1. ;;00677154501
  1. ;;9002226.02101,"846,00677154501 ",.02)
  1. ;;00677154501
  1. ;;9002226.02101,"846,00677154505 ",.01)
  1. ;;00677154505
  1. ;;9002226.02101,"846,00677154505 ",.02)
  1. ;;00677154505
  1. ;;9002226.02101,"846,00781113801 ",.01)
  1. ;;00781113801
  1. ;;9002226.02101,"846,00781113801 ",.02)
  1. ;;00781113801
  1. ;;9002226.02101,"846,00781113810 ",.01)
  1. ;;00781113810
  1. ;;9002226.02101,"846,00781113810 ",.02)
  1. ;;00781113810
  1. ;;9002226.02101,"846,00781114601 ",.01)
  1. ;;00781114601
  1. ;;9002226.02101,"846,00781114601 ",.02)
  1. ;;00781114601
  1. ;;9002226.02101,"846,00781114610 ",.01)
  1. ;;00781114610
  1. ;;9002226.02101,"846,00781114610 ",.02)
  1. ;;00781114610
  1. ;;9002226.02101,"846,00781119101 ",.01)
  1. ;;00781119101
  1. ;;9002226.02101,"846,00781119101 ",.02)
  1. ;;00781119101
  1. ;;9002226.02101,"846,00781119110 ",.01)
  1. ;;00781119110
  1. ;;9002226.02101,"846,00781119110 ",.02)
  1. ;;00781119110
  1. ;;9002226.02101,"846,00781119111 ",.01)
  1. ;;00781119111
  1. ;;9002226.02101,"846,00781119111 ",.02)
  1. ;;00781119111
  1. ;;9002226.02101,"846,00781145201 ",.01)
  1. ;;00781145201
  1. ;;9002226.02101,"846,00781145201 ",.02)
  1. ;;00781145201
  1. ;;9002226.02101,"846,00781145210 ",.01)
  1. ;;00781145210
  1. ;;9002226.02101,"846,00781145210 ",.02)
  1. ;;00781145210
  1. ;;9002226.02101,"846,00781145213 ",.01)
  1. ;;00781145213
  1. ;;9002226.02101,"846,00781145213 ",.02)
  1. ;;00781145213
  1. ;;9002226.02101,"846,00781145301 ",.01)
  1. ;;00781145301
  1. ;;9002226.02101,"846,00781145301 ",.02)
  1. ;;00781145301
  1. ;;9002226.02101,"846,00781145310 ",.01)
  1. ;;00781145310
  1. ;;9002226.02101,"846,00781145310 ",.02)
  1. ;;00781145310
  1. ;;9002226.02101,"846,00781145313 ",.01)
  1. ;;00781145313
  1. ;;9002226.02101,"846,00781145313 ",.02)
  1. ;;00781145313
  1. ;;9002226.02101,"846,00781504501 ",.01)
  1. ;;00781504501
  1. ;;9002226.02101,"846,00781504501 ",.02)
  1. ;;00781504501
  1. ;;9002226.02101,"846,00781504510 ",.01)
  1. ;;00781504510
  1. ;;9002226.02101,"846,00781504510 ",.02)
  1. ;;00781504510
  1. ;;9002226.02101,"846,00781504601 ",.01)
  1. ;;00781504601
  1. ;;9002226.02101,"846,00781504601 ",.02)
  1. ;;00781504601
  1. ;;9002226.02101,"846,00781504610 ",.01)
  1. ;;00781504610
  1. ;;9002226.02101,"846,00781504610 ",.02)
  1. ;;00781504610
  1. ;;9002226.02101,"846,00781504701 ",.01)
  1. ;;00781504701
  1. ;;9002226.02101,"846,00781504701 ",.02)
  1. ;;00781504701
  1. ;;9002226.02101,"846,00781504710 ",.01)
  1. ;;00781504710
  1. ;;9002226.02101,"846,00781504710 ",.02)
  1. ;;00781504710
  1. ;;9002226.02101,"846,00781517001 ",.01)
  1. ;;00781517001
  1. ;;9002226.02101,"846,00781517001 ",.02)
  1. ;;00781517001
  1. ;;9002226.02101,"846,00781517005 ",.01)
  1. ;;00781517005
  1. ;;9002226.02101,"846,00781517005 ",.02)
  1. ;;00781517005
  1. ;;9002226.02101,"846,00781517010 ",.01)
  1. ;;00781517010
  1. ;;9002226.02101,"846,00781517010 ",.02)
  1. ;;00781517010
  1. ;;9002226.02101,"846,00781517101 ",.01)
  1. ;;00781517101
  1. ;;9002226.02101,"846,00781517101 ",.02)
  1. ;;00781517101
  1. ;;9002226.02101,"846,00781517105 ",.01)
  1. ;;00781517105
  1. ;;9002226.02101,"846,00781517105 ",.02)
  1. ;;00781517105
  1. ;;9002226.02101,"846,00781517110 ",.01)
  1. ;;00781517110
  1. ;;9002226.02101,"846,00781517110 ",.02)
  1. ;;00781517110
  1. ;;9002226.02101,"846,00781517201 ",.01)
  1. ;;00781517201
  1. ;;9002226.02101,"846,00781517201 ",.02)
  1. ;;00781517201
  1. ;;9002226.02101,"846,00781517205 ",.01)
  1. ;;00781517205
  1. ;;9002226.02101,"846,00781517205 ",.02)
  1. ;;00781517205
  1. ;;9002226.02101,"846,00781517210 ",.01)
  1. ;;00781517210
  1. ;;9002226.02101,"846,00781517210 ",.02)
  1. ;;00781517210
  1. ;;9002226.02101,"846,00781530401 ",.01)
  1. ;;00781530401
  1. ;;9002226.02101,"846,00781530401 ",.02)
  1. ;;00781530401
  1. ;;9002226.02101,"846,00781530405 ",.01)
  1. ;;00781530405
  1. ;;9002226.02101,"846,00781530405 ",.02)
  1. ;;00781530405
  1. ;;9002226.02101,"846,00781530410 ",.01)
  1. ;;00781530410
  1. ;;9002226.02101,"846,00781530410 ",.02)
  1. ;;00781530410
  1. ;;9002226.02101,"846,00781530501 ",.01)
  1. ;;00781530501
  1. ;;9002226.02101,"846,00781530501 ",.02)
  1. ;;00781530501
  1. ;;9002226.02101,"846,00781530505 ",.01)
  1. ;;00781530505
  1. ;;9002226.02101,"846,00781530505 ",.02)
  1. ;;00781530505
  1. ;;9002226.02101,"846,00781530510 ",.01)
  1. ;;00781530510
  1. ;;9002226.02101,"846,00781530510 ",.02)
  1. ;;00781530510
  1. ;;9002226.02101,"846,00781530601 ",.01)
  1. ;;00781530601
  1. ;;9002226.02101,"846,00781530601 ",.02)
  1. ;;00781530601
  1. ;;9002226.02101,"846,00781530605 ",.01)
  1. ;;00781530605
  1. ;;9002226.02101,"846,00781530605 ",.02)
  1. ;;00781530605
  1. ;;9002226.02101,"846,00781530610 ",.01)
  1. ;;00781530610
  1. ;;9002226.02101,"846,00781530610 ",.02)
  1. ;;00781530610
  1. ;;9002226.02101,"846,00855202950 ",.01)
  1. ;;00855202950
  1. ;;9002226.02101,"846,00855202950 ",.02)
  1. ;;00855202950
  1. ;;9002226.02101,"846,00855203550 ",.01)
  1. ;;00855203550
  1. ;;9002226.02101,"846,00855203550 ",.02)
  1. ;;00855203550
  1. ;;9002226.02101,"846,00855203650 ",.01)
  1. ;;00855203650
  1. ;;9002226.02101,"846,00855203650 ",.02)
  1. ;;00855203650
  1. ;;9002226.02101,"846,00904022360 ",.01)
  1. ;;00904022360
  1. ;;9002226.02101,"846,00904022360 ",.02)
  1. ;;00904022360
  1. ;;9002226.02101,"846,00904022380 ",.01)
  1. ;;00904022380