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