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

BGPM5AQP.m

Go to the documentation of this file.
  1. BGPM5AQP ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 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,"1005,00440767690 ",.02)
  1. ;;00440767690
  1. ;;9002226.02101,"1005,00480104505 ",.01)
  1. ;;00480104505
  1. ;;9002226.02101,"1005,00480104505 ",.02)
  1. ;;00480104505
  1. ;;9002226.02101,"1005,00480104598 ",.01)
  1. ;;00480104598
  1. ;;9002226.02101,"1005,00480104598 ",.02)
  1. ;;00480104598
  1. ;;9002226.02101,"1005,00480105005 ",.01)
  1. ;;00480105005
  1. ;;9002226.02101,"1005,00480105005 ",.02)
  1. ;;00480105005
  1. ;;9002226.02101,"1005,00480105098 ",.01)
  1. ;;00480105098
  1. ;;9002226.02101,"1005,00480105098 ",.02)
  1. ;;00480105098
  1. ;;9002226.02101,"1005,00480105105 ",.01)
  1. ;;00480105105
  1. ;;9002226.02101,"1005,00480105105 ",.02)
  1. ;;00480105105
  1. ;;9002226.02101,"1005,00480105198 ",.01)
  1. ;;00480105198
  1. ;;9002226.02101,"1005,00480105198 ",.02)
  1. ;;00480105198
  1. ;;9002226.02101,"1005,00480105305 ",.01)
  1. ;;00480105305
  1. ;;9002226.02101,"1005,00480105305 ",.02)
  1. ;;00480105305
  1. ;;9002226.02101,"1005,00480105398 ",.01)
  1. ;;00480105398
  1. ;;9002226.02101,"1005,00480105398 ",.02)
  1. ;;00480105398
  1. ;;9002226.02101,"1005,00480111101 ",.01)
  1. ;;00480111101
  1. ;;9002226.02101,"1005,00480111101 ",.02)
  1. ;;00480111101
  1. ;;9002226.02101,"1005,00480111201 ",.01)
  1. ;;00480111201
  1. ;;9002226.02101,"1005,00480111201 ",.02)
  1. ;;00480111201
  1. ;;9002226.02101,"1005,00480111210 ",.01)
  1. ;;00480111210
  1. ;;9002226.02101,"1005,00480111210 ",.02)
  1. ;;00480111210
  1. ;;9002226.02101,"1005,00480111301 ",.01)
  1. ;;00480111301
  1. ;;9002226.02101,"1005,00480111301 ",.02)
  1. ;;00480111301
  1. ;;9002226.02101,"1005,00480111310 ",.01)
  1. ;;00480111310
  1. ;;9002226.02101,"1005,00480111310 ",.02)
  1. ;;00480111310
  1. ;;9002226.02101,"1005,00480111401 ",.01)
  1. ;;00480111401
  1. ;;9002226.02101,"1005,00480111401 ",.02)
  1. ;;00480111401
  1. ;;9002226.02101,"1005,00480111410 ",.01)
  1. ;;00480111410
  1. ;;9002226.02101,"1005,00480111410 ",.02)
  1. ;;00480111410
  1. ;;9002226.02101,"1005,00480111501 ",.01)
  1. ;;00480111501
  1. ;;9002226.02101,"1005,00480111501 ",.02)
  1. ;;00480111501
  1. ;;9002226.02101,"1005,00480111505 ",.01)
  1. ;;00480111505
  1. ;;9002226.02101,"1005,00480111505 ",.02)
  1. ;;00480111505
  1. ;;9002226.02101,"1005,00480515701 ",.01)
  1. ;;00480515701
  1. ;;9002226.02101,"1005,00480515701 ",.02)
  1. ;;00480515701
  1. ;;9002226.02101,"1005,00480722210 ",.01)
  1. ;;00480722210
  1. ;;9002226.02101,"1005,00480722210 ",.02)
  1. ;;00480722210
  1. ;;9002226.02101,"1005,00480722298 ",.01)
  1. ;;00480722298
  1. ;;9002226.02101,"1005,00480722298 ",.02)
  1. ;;00480722298
  1. ;;9002226.02101,"1005,00480722310 ",.01)
  1. ;;00480722310
  1. ;;9002226.02101,"1005,00480722310 ",.02)
  1. ;;00480722310
  1. ;;9002226.02101,"1005,00480722398 ",.01)
  1. ;;00480722398
  1. ;;9002226.02101,"1005,00480722398 ",.02)
  1. ;;00480722398
  1. ;;9002226.02101,"1005,00480722410 ",.01)
  1. ;;00480722410
  1. ;;9002226.02101,"1005,00480722410 ",.02)
  1. ;;00480722410
  1. ;;9002226.02101,"1005,00480722498 ",.01)
  1. ;;00480722498
  1. ;;9002226.02101,"1005,00480722498 ",.02)
  1. ;;00480722498
  1. ;;9002226.02101,"1005,00490006700 ",.01)
  1. ;;00490006700
  1. ;;9002226.02101,"1005,00490006700 ",.02)
  1. ;;00490006700
  1. ;;9002226.02101,"1005,00490006730 ",.01)
  1. ;;00490006730
  1. ;;9002226.02101,"1005,00490006730 ",.02)
  1. ;;00490006730
  1. ;;9002226.02101,"1005,00490006760 ",.01)
  1. ;;00490006760
  1. ;;9002226.02101,"1005,00490006760 ",.02)
  1. ;;00490006760
  1. ;;9002226.02101,"1005,00490006790 ",.01)
  1. ;;00490006790
  1. ;;9002226.02101,"1005,00490006790 ",.02)
  1. ;;00490006790
  1. ;;9002226.02101,"1005,00490020501 ",.01)
  1. ;;00490020501
  1. ;;9002226.02101,"1005,00490020501 ",.02)
  1. ;;00490020501
  1. ;;9002226.02101,"1005,00490020502 ",.01)
  1. ;;00490020502
  1. ;;9002226.02101,"1005,00490020502 ",.02)
  1. ;;00490020502
  1. ;;9002226.02101,"1005,00490020503 ",.01)
  1. ;;00490020503
  1. ;;9002226.02101,"1005,00490020503 ",.02)
  1. ;;00490020503
  1. ;;9002226.02101,"1005,00490020504 ",.01)
  1. ;;00490020504
  1. ;;9002226.02101,"1005,00490020504 ",.02)
  1. ;;00490020504
  1. ;;9002226.02101,"1005,00490020505 ",.01)
  1. ;;00490020505
  1. ;;9002226.02101,"1005,00490020505 ",.02)
  1. ;;00490020505
  1. ;;9002226.02101,"1005,00490703000 ",.01)
  1. ;;00490703000
  1. ;;9002226.02101,"1005,00490703000 ",.02)
  1. ;;00490703000
  1. ;;9002226.02101,"1005,00490703030 ",.01)
  1. ;;00490703030
  1. ;;9002226.02101,"1005,00490703030 ",.02)
  1. ;;00490703030
  1. ;;9002226.02101,"1005,00490703060 ",.01)
  1. ;;00490703060
  1. ;;9002226.02101,"1005,00490703060 ",.02)
  1. ;;00490703060
  1. ;;9002226.02101,"1005,00490703090 ",.01)
  1. ;;00490703090
  1. ;;9002226.02101,"1005,00490703090 ",.02)
  1. ;;00490703090
  1. ;;9002226.02101,"1005,00574011001 ",.01)
  1. ;;00574011001
  1. ;;9002226.02101,"1005,00574011001 ",.02)
  1. ;;00574011001
  1. ;;9002226.02101,"1005,00574011215 ",.01)
  1. ;;00574011215
  1. ;;9002226.02101,"1005,00574011215 ",.02)
  1. ;;00574011215
  1. ;;9002226.02101,"1005,00591040500 ",.01)
  1. ;;00591040500
  1. ;;9002226.02101,"1005,00591040500 ",.02)
  1. ;;00591040500
  1. ;;9002226.02101,"1005,00591040501 ",.01)
  1. ;;00591040501
  1. ;;9002226.02101,"1005,00591040501 ",.02)
  1. ;;00591040501
  1. ;;9002226.02101,"1005,00591040505 ",.01)
  1. ;;00591040505
  1. ;;9002226.02101,"1005,00591040505 ",.02)
  1. ;;00591040505
  1. ;;9002226.02101,"1005,00591040530 ",.01)
  1. ;;00591040530
  1. ;;9002226.02101,"1005,00591040530 ",.02)
  1. ;;00591040530
  1. ;;9002226.02101,"1005,00591040600 ",.01)
  1. ;;00591040600
  1. ;;9002226.02101,"1005,00591040600 ",.02)
  1. ;;00591040600
  1. ;;9002226.02101,"1005,00591040601 ",.01)
  1. ;;00591040601
  1. ;;9002226.02101,"1005,00591040601 ",.02)
  1. ;;00591040601
  1. ;;9002226.02101,"1005,00591040605 ",.01)
  1. ;;00591040605
  1. ;;9002226.02101,"1005,00591040605 ",.02)
  1. ;;00591040605
  1. ;;9002226.02101,"1005,00591040610 ",.01)
  1. ;;00591040610
  1. ;;9002226.02101,"1005,00591040610 ",.02)
  1. ;;00591040610
  1. ;;9002226.02101,"1005,00591040633 ",.01)
  1. ;;00591040633
  1. ;;9002226.02101,"1005,00591040633 ",.02)
  1. ;;00591040633
  1. ;;9002226.02101,"1005,00591040651 ",.01)
  1. ;;00591040651
  1. ;;9002226.02101,"1005,00591040651 ",.02)
  1. ;;00591040651
  1. ;;9002226.02101,"1005,00591040700 ",.01)
  1. ;;00591040700
  1. ;;9002226.02101,"1005,00591040700 ",.02)
  1. ;;00591040700
  1. ;;9002226.02101,"1005,00591040701 ",.01)
  1. ;;00591040701
  1. ;;9002226.02101,"1005,00591040701 ",.02)
  1. ;;00591040701
  1. ;;9002226.02101,"1005,00591040710 ",.01)
  1. ;;00591040710
  1. ;;9002226.02101,"1005,00591040710 ",.02)
  1. ;;00591040710
  1. ;;9002226.02101,"1005,00591040730 ",.01)
  1. ;;00591040730
  1. ;;9002226.02101,"1005,00591040730 ",.02)
  1. ;;00591040730
  1. ;;9002226.02101,"1005,00591040733 ",.01)
  1. ;;00591040733
  1. ;;9002226.02101,"1005,00591040733 ",.02)
  1. ;;00591040733
  1. ;;9002226.02101,"1005,00591040800 ",.01)
  1. ;;00591040800
  1. ;;9002226.02101,"1005,00591040800 ",.02)
  1. ;;00591040800
  1. ;;9002226.02101,"1005,00591040801 ",.01)
  1. ;;00591040801
  1. ;;9002226.02101,"1005,00591040801 ",.02)
  1. ;;00591040801
  1. ;;9002226.02101,"1005,00591040810 ",.01)
  1. ;;00591040810
  1. ;;9002226.02101,"1005,00591040810 ",.02)
  1. ;;00591040810
  1. ;;9002226.02101,"1005,00591040830 ",.01)
  1. ;;00591040830
  1. ;;9002226.02101,"1005,00591040830 ",.02)
  1. ;;00591040830
  1. ;;9002226.02101,"1005,00591040833 ",.01)
  1. ;;00591040833
  1. ;;9002226.02101,"1005,00591040833 ",.02)
  1. ;;00591040833
  1. ;;9002226.02101,"1005,00591040900 ",.01)
  1. ;;00591040900
  1. ;;9002226.02101,"1005,00591040900 ",.02)
  1. ;;00591040900
  1. ;;9002226.02101,"1005,00591040901 ",.01)
  1. ;;00591040901
  1. ;;9002226.02101,"1005,00591040901 ",.02)
  1. ;;00591040901
  1. ;;9002226.02101,"1005,00591040905 ",.01)
  1. ;;00591040905
  1. ;;9002226.02101,"1005,00591040905 ",.02)
  1. ;;00591040905
  1. ;;9002226.02101,"1005,00591040910 ",.01)
  1. ;;00591040910
  1. ;;9002226.02101,"1005,00591040910 ",.02)
  1. ;;00591040910
  1. ;;9002226.02101,"1005,00591040930 ",.01)
  1. ;;00591040930
  1. ;;9002226.02101,"1005,00591040930 ",.02)
  1. ;;00591040930
  1. ;;9002226.02101,"1005,00591040975 ",.01)
  1. ;;00591040975
  1. ;;9002226.02101,"1005,00591040975 ",.02)
  1. ;;00591040975
  1. ;;9002226.02101,"1005,00591066801 ",.01)
  1. ;;00591066801
  1. ;;9002226.02101,"1005,00591066801 ",.02)
  1. ;;00591066801
  1. ;;9002226.02101,"1005,00591066805 ",.01)
  1. ;;00591066805
  1. ;;9002226.02101,"1005,00591066805 ",.02)
  1. ;;00591066805
  1. ;;9002226.02101,"1005,00591066901 ",.01)
  1. ;;00591066901
  1. ;;9002226.02101,"1005,00591066901 ",.02)
  1. ;;00591066901
  1. ;;9002226.02101,"1005,00591066905 ",.01)
  1. ;;00591066905
  1. ;;9002226.02101,"1005,00591066905 ",.02)
  1. ;;00591066905
  1. ;;9002226.02101,"1005,00591067001 ",.01)
  1. ;;00591067001
  1. ;;9002226.02101,"1005,00591067001 ",.02)
  1. ;;00591067001
  1. ;;9002226.02101,"1005,00591067005 ",.01)
  1. ;;00591067005
  1. ;;9002226.02101,"1005,00591067005 ",.02)
  1. ;;00591067005
  1. ;;9002226.02101,"1005,00591067101 ",.01)
  1. ;;00591067101
  1. ;;9002226.02101,"1005,00591067101 ",.02)
  1. ;;00591067101
  1. ;;9002226.02101,"1005,00591067105 ",.01)
  1. ;;00591067105
  1. ;;9002226.02101,"1005,00591067105 ",.02)
  1. ;;00591067105
  1. ;;9002226.02101,"1005,00591067110 ",.01)
  1. ;;00591067110
  1. ;;9002226.02101,"1005,00591067110 ",.02)
  1. ;;00591067110
  1. ;;9002226.02101,"1005,00591086001 ",.01)
  1. ;;00591086001
  1. ;;9002226.02101,"1005,00591086001 ",.02)
  1. ;;00591086001
  1. ;;9002226.02101,"1005,00591086005 ",.01)
  1. ;;00591086005
  1. ;;9002226.02101,"1005,00591086005 ",.02)
  1. ;;00591086005
  1. ;;9002226.02101,"1005,00591086101 ",.01)
  1. ;;00591086101
  1. ;;9002226.02101,"1005,00591086101 ",.02)
  1. ;;00591086101
  1. ;;9002226.02101,"1005,00591086105 ",.01)
  1. ;;00591086105
  1. ;;9002226.02101,"1005,00591086105 ",.02)
  1. ;;00591086105
  1. ;;9002226.02101,"1005,00591086201 ",.01)
  1. ;;00591086201
  1. ;;9002226.02101,"1005,00591086201 ",.02)
  1. ;;00591086201
  1. ;;9002226.02101,"1005,00591086205 ",.01)
  1. ;;00591086205
  1. ;;9002226.02101,"1005,00591086205 ",.02)
  1. ;;00591086205
  1. ;;9002226.02101,"1005,00591088500 ",.01)
  1. ;;00591088500
  1. ;;9002226.02101,"1005,00591088500 ",.02)
  1. ;;00591088500
  1. ;;9002226.02101,"1005,00591088501 ",.01)
  1. ;;00591088501
  1. ;;9002226.02101,"1005,00591088501 ",.02)
  1. ;;00591088501
  1. ;;9002226.02101,"1005,00591088510 ",.01)
  1. ;;00591088510
  1. ;;9002226.02101,"1005,00591088510 ",.02)
  1. ;;00591088510
  1. ;;9002226.02101,"1005,00591088530 ",.01)
  1. ;;00591088530
  1. ;;9002226.02101,"1005,00591088530 ",.02)
  1. ;;00591088530
  1. ;;9002226.02101,"1005,00591088533 ",.01)
  1. ;;00591088533
  1. ;;9002226.02101,"1005,00591088533 ",.02)
  1. ;;00591088533
  1. ;;9002226.02101,"1005,00597003937 ",.01)
  1. ;;00597003937
  1. ;;9002226.02101,"1005,00597003937 ",.02)
  1. ;;00597003937
  1. ;;9002226.02101,"1005,00597004037 ",.01)
  1. ;;00597004037
  1. ;;9002226.02101,"1005,00597004037 ",.02)
  1. ;;00597004037
  1. ;;9002226.02101,"1005,00597004070 ",.01)
  1. ;;00597004070
  1. ;;9002226.02101,"1005,00597004070 ",.02)
  1. ;;00597004070
  1. ;;9002226.02101,"1005,00597004137 ",.01)
  1. ;;00597004137
  1. ;;9002226.02101,"1005,00597004137 ",.02)
  1. ;;00597004137
  1. ;;9002226.02101,"1005,00597004170 ",.01)
  1. ;;00597004170
  1. ;;9002226.02101,"1005,00597004170 ",.02)
  1. ;;00597004170
  1. ;;9002226.02101,"1005,00597004237 ",.01)
  1. ;;00597004237
  1. ;;9002226.02101,"1005,00597004237 ",.02)
  1. ;;00597004237
  1. ;;9002226.02101,"1005,00597004270 ",.01)
  1. ;;00597004270
  1. ;;9002226.02101,"1005,00597004270 ",.02)
  1. ;;00597004270
  1. ;;9002226.02101,"1005,00597004337 ",.01)
  1. ;;00597004337
  1. ;;9002226.02101,"1005,00597004337 ",.02)
  1. ;;00597004337
  1. ;;9002226.02101,"1005,00597004370 ",.01)
  1. ;;00597004370
  1. ;;9002226.02101,"1005,00597004370 ",.02)
  1. ;;00597004370
  1. ;;9002226.02101,"1005,00597004437 ",.01)
  1. ;;00597004437
  1. ;;9002226.02101,"1005,00597004437 ",.02)
  1. ;;00597004437
  1. ;;9002226.02101,"1005,00597004470 ",.01)
  1. ;;00597004470
  1. ;;9002226.02101,"1005,00597004470 ",.02)
  1. ;;00597004470
  1. ;;9002226.02101,"1005,00603255521 ",.01)
  1. ;;00603255521
  1. ;;9002226.02101,"1005,00603255521 ",.02)
  1. ;;00603255521
  1. ;;9002226.02101,"1005,00603255532 ",.01)
  1. ;;00603255532
  1. ;;9002226.02101,"1005,00603255532 ",.02)
  1. ;;00603255532
  1. ;;9002226.02101,"1005,00603255621 ",.01)
  1. ;;00603255621
  1. ;;9002226.02101,"1005,00603255621 ",.02)
  1. ;;00603255621
  1. ;;9002226.02101,"1005,00603255632 ",.01)
  1. ;;00603255632
  1. ;;9002226.02101,"1005,00603255632 ",.02)
  1. ;;00603255632