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

BGPM5AGH.m

Go to the documentation of this file.
  1. BGPM5AGH ;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,"882,00440723294 ",.02)
  1. ;;00440723294
  1. ;;9002226.02101,"882,00440767490 ",.01)
  1. ;;00440767490
  1. ;;9002226.02101,"882,00440767490 ",.02)
  1. ;;00440767490
  1. ;;9002226.02101,"882,00440767590 ",.01)
  1. ;;00440767590
  1. ;;9002226.02101,"882,00440767590 ",.02)
  1. ;;00440767590
  1. ;;9002226.02101,"882,00440767690 ",.01)
  1. ;;00440767690
  1. ;;9002226.02101,"882,00440767690 ",.02)
  1. ;;00440767690
  1. ;;9002226.02101,"882,00480104505 ",.01)
  1. ;;00480104505
  1. ;;9002226.02101,"882,00480104505 ",.02)
  1. ;;00480104505
  1. ;;9002226.02101,"882,00480104598 ",.01)
  1. ;;00480104598
  1. ;;9002226.02101,"882,00480104598 ",.02)
  1. ;;00480104598
  1. ;;9002226.02101,"882,00480105005 ",.01)
  1. ;;00480105005
  1. ;;9002226.02101,"882,00480105005 ",.02)
  1. ;;00480105005
  1. ;;9002226.02101,"882,00480105098 ",.01)
  1. ;;00480105098
  1. ;;9002226.02101,"882,00480105098 ",.02)
  1. ;;00480105098
  1. ;;9002226.02101,"882,00480105105 ",.01)
  1. ;;00480105105
  1. ;;9002226.02101,"882,00480105105 ",.02)
  1. ;;00480105105
  1. ;;9002226.02101,"882,00480105198 ",.01)
  1. ;;00480105198
  1. ;;9002226.02101,"882,00480105198 ",.02)
  1. ;;00480105198
  1. ;;9002226.02101,"882,00480105305 ",.01)
  1. ;;00480105305
  1. ;;9002226.02101,"882,00480105305 ",.02)
  1. ;;00480105305
  1. ;;9002226.02101,"882,00480105398 ",.01)
  1. ;;00480105398
  1. ;;9002226.02101,"882,00480105398 ",.02)
  1. ;;00480105398
  1. ;;9002226.02101,"882,00480111101 ",.01)
  1. ;;00480111101
  1. ;;9002226.02101,"882,00480111101 ",.02)
  1. ;;00480111101
  1. ;;9002226.02101,"882,00480111201 ",.01)
  1. ;;00480111201
  1. ;;9002226.02101,"882,00480111201 ",.02)
  1. ;;00480111201
  1. ;;9002226.02101,"882,00480111210 ",.01)
  1. ;;00480111210
  1. ;;9002226.02101,"882,00480111210 ",.02)
  1. ;;00480111210
  1. ;;9002226.02101,"882,00480111301 ",.01)
  1. ;;00480111301
  1. ;;9002226.02101,"882,00480111301 ",.02)
  1. ;;00480111301
  1. ;;9002226.02101,"882,00480111310 ",.01)
  1. ;;00480111310
  1. ;;9002226.02101,"882,00480111310 ",.02)
  1. ;;00480111310
  1. ;;9002226.02101,"882,00480111401 ",.01)
  1. ;;00480111401
  1. ;;9002226.02101,"882,00480111401 ",.02)
  1. ;;00480111401
  1. ;;9002226.02101,"882,00480111410 ",.01)
  1. ;;00480111410
  1. ;;9002226.02101,"882,00480111410 ",.02)
  1. ;;00480111410
  1. ;;9002226.02101,"882,00480111501 ",.01)
  1. ;;00480111501
  1. ;;9002226.02101,"882,00480111501 ",.02)
  1. ;;00480111501
  1. ;;9002226.02101,"882,00480111505 ",.01)
  1. ;;00480111505
  1. ;;9002226.02101,"882,00480111505 ",.02)
  1. ;;00480111505
  1. ;;9002226.02101,"882,00480515701 ",.01)
  1. ;;00480515701
  1. ;;9002226.02101,"882,00480515701 ",.02)
  1. ;;00480515701
  1. ;;9002226.02101,"882,00480722210 ",.01)
  1. ;;00480722210
  1. ;;9002226.02101,"882,00480722210 ",.02)
  1. ;;00480722210
  1. ;;9002226.02101,"882,00480722298 ",.01)
  1. ;;00480722298
  1. ;;9002226.02101,"882,00480722298 ",.02)
  1. ;;00480722298
  1. ;;9002226.02101,"882,00480722310 ",.01)
  1. ;;00480722310
  1. ;;9002226.02101,"882,00480722310 ",.02)
  1. ;;00480722310
  1. ;;9002226.02101,"882,00480722398 ",.01)
  1. ;;00480722398
  1. ;;9002226.02101,"882,00480722398 ",.02)
  1. ;;00480722398
  1. ;;9002226.02101,"882,00480722410 ",.01)
  1. ;;00480722410
  1. ;;9002226.02101,"882,00480722410 ",.02)
  1. ;;00480722410
  1. ;;9002226.02101,"882,00480722498 ",.01)
  1. ;;00480722498
  1. ;;9002226.02101,"882,00480722498 ",.02)
  1. ;;00480722498
  1. ;;9002226.02101,"882,00480732501 ",.01)
  1. ;;00480732501
  1. ;;9002226.02101,"882,00480732501 ",.02)
  1. ;;00480732501
  1. ;;9002226.02101,"882,00480732601 ",.01)
  1. ;;00480732601
  1. ;;9002226.02101,"882,00480732601 ",.02)
  1. ;;00480732601
  1. ;;9002226.02101,"882,00480743601 ",.01)
  1. ;;00480743601
  1. ;;9002226.02101,"882,00480743601 ",.02)
  1. ;;00480743601
  1. ;;9002226.02101,"882,00480743605 ",.01)
  1. ;;00480743605
  1. ;;9002226.02101,"882,00480743605 ",.02)
  1. ;;00480743605
  1. ;;9002226.02101,"882,00480743701 ",.01)
  1. ;;00480743701
  1. ;;9002226.02101,"882,00480743701 ",.02)
  1. ;;00480743701
  1. ;;9002226.02101,"882,00480743705 ",.01)
  1. ;;00480743705
  1. ;;9002226.02101,"882,00480743705 ",.02)
  1. ;;00480743705
  1. ;;9002226.02101,"882,00480743801 ",.01)
  1. ;;00480743801
  1. ;;9002226.02101,"882,00480743801 ",.02)
  1. ;;00480743801
  1. ;;9002226.02101,"882,00480743805 ",.01)
  1. ;;00480743805
  1. ;;9002226.02101,"882,00480743805 ",.02)
  1. ;;00480743805
  1. ;;9002226.02101,"882,00490006700 ",.01)
  1. ;;00490006700
  1. ;;9002226.02101,"882,00490006700 ",.02)
  1. ;;00490006700
  1. ;;9002226.02101,"882,00490006730 ",.01)
  1. ;;00490006730
  1. ;;9002226.02101,"882,00490006730 ",.02)
  1. ;;00490006730
  1. ;;9002226.02101,"882,00490006760 ",.01)
  1. ;;00490006760
  1. ;;9002226.02101,"882,00490006760 ",.02)
  1. ;;00490006760
  1. ;;9002226.02101,"882,00490006790 ",.01)
  1. ;;00490006790
  1. ;;9002226.02101,"882,00490006790 ",.02)
  1. ;;00490006790
  1. ;;9002226.02101,"882,00490022801 ",.01)
  1. ;;00490022801
  1. ;;9002226.02101,"882,00490022801 ",.02)
  1. ;;00490022801
  1. ;;9002226.02101,"882,00490022802 ",.01)
  1. ;;00490022802
  1. ;;9002226.02101,"882,00490022802 ",.02)
  1. ;;00490022802
  1. ;;9002226.02101,"882,00490022803 ",.01)
  1. ;;00490022803
  1. ;;9002226.02101,"882,00490022803 ",.02)
  1. ;;00490022803
  1. ;;9002226.02101,"882,00490022804 ",.01)
  1. ;;00490022804
  1. ;;9002226.02101,"882,00490022804 ",.02)
  1. ;;00490022804
  1. ;;9002226.02101,"882,00490022805 ",.01)
  1. ;;00490022805
  1. ;;9002226.02101,"882,00490022805 ",.02)
  1. ;;00490022805
  1. ;;9002226.02101,"882,00490024230 ",.01)
  1. ;;00490024230
  1. ;;9002226.02101,"882,00490024230 ",.02)
  1. ;;00490024230
  1. ;;9002226.02101,"882,00490703000 ",.01)
  1. ;;00490703000
  1. ;;9002226.02101,"882,00490703000 ",.02)
  1. ;;00490703000
  1. ;;9002226.02101,"882,00490703030 ",.01)
  1. ;;00490703030
  1. ;;9002226.02101,"882,00490703030 ",.02)
  1. ;;00490703030
  1. ;;9002226.02101,"882,00490703060 ",.01)
  1. ;;00490703060
  1. ;;9002226.02101,"882,00490703060 ",.02)
  1. ;;00490703060
  1. ;;9002226.02101,"882,00490703090 ",.01)
  1. ;;00490703090
  1. ;;9002226.02101,"882,00490703090 ",.02)
  1. ;;00490703090
  1. ;;9002226.02101,"882,00574011001 ",.01)
  1. ;;00574011001
  1. ;;9002226.02101,"882,00574011001 ",.02)
  1. ;;00574011001
  1. ;;9002226.02101,"882,00574011215 ",.01)
  1. ;;00574011215
  1. ;;9002226.02101,"882,00574011215 ",.02)
  1. ;;00574011215
  1. ;;9002226.02101,"882,00574013301 ",.01)
  1. ;;00574013301
  1. ;;9002226.02101,"882,00574013301 ",.02)
  1. ;;00574013301
  1. ;;9002226.02101,"882,00574013401 ",.01)
  1. ;;00574013401
  1. ;;9002226.02101,"882,00574013401 ",.02)
  1. ;;00574013401
  1. ;;9002226.02101,"882,00574013501 ",.01)
  1. ;;00574013501
  1. ;;9002226.02101,"882,00574013501 ",.02)
  1. ;;00574013501
  1. ;;9002226.02101,"882,00591040500 ",.01)
  1. ;;00591040500
  1. ;;9002226.02101,"882,00591040500 ",.02)
  1. ;;00591040500
  1. ;;9002226.02101,"882,00591040501 ",.01)
  1. ;;00591040501
  1. ;;9002226.02101,"882,00591040501 ",.02)
  1. ;;00591040501
  1. ;;9002226.02101,"882,00591040505 ",.01)
  1. ;;00591040505
  1. ;;9002226.02101,"882,00591040505 ",.02)
  1. ;;00591040505
  1. ;;9002226.02101,"882,00591040530 ",.01)
  1. ;;00591040530
  1. ;;9002226.02101,"882,00591040530 ",.02)
  1. ;;00591040530
  1. ;;9002226.02101,"882,00591040600 ",.01)
  1. ;;00591040600
  1. ;;9002226.02101,"882,00591040600 ",.02)
  1. ;;00591040600
  1. ;;9002226.02101,"882,00591040601 ",.01)
  1. ;;00591040601
  1. ;;9002226.02101,"882,00591040601 ",.02)
  1. ;;00591040601
  1. ;;9002226.02101,"882,00591040605 ",.01)
  1. ;;00591040605
  1. ;;9002226.02101,"882,00591040605 ",.02)
  1. ;;00591040605
  1. ;;9002226.02101,"882,00591040610 ",.01)
  1. ;;00591040610
  1. ;;9002226.02101,"882,00591040610 ",.02)
  1. ;;00591040610
  1. ;;9002226.02101,"882,00591040633 ",.01)
  1. ;;00591040633
  1. ;;9002226.02101,"882,00591040633 ",.02)
  1. ;;00591040633
  1. ;;9002226.02101,"882,00591040651 ",.01)
  1. ;;00591040651
  1. ;;9002226.02101,"882,00591040651 ",.02)
  1. ;;00591040651
  1. ;;9002226.02101,"882,00591040700 ",.01)
  1. ;;00591040700
  1. ;;9002226.02101,"882,00591040700 ",.02)
  1. ;;00591040700
  1. ;;9002226.02101,"882,00591040701 ",.01)
  1. ;;00591040701
  1. ;;9002226.02101,"882,00591040701 ",.02)
  1. ;;00591040701
  1. ;;9002226.02101,"882,00591040710 ",.01)
  1. ;;00591040710
  1. ;;9002226.02101,"882,00591040710 ",.02)
  1. ;;00591040710
  1. ;;9002226.02101,"882,00591040730 ",.01)
  1. ;;00591040730
  1. ;;9002226.02101,"882,00591040730 ",.02)
  1. ;;00591040730
  1. ;;9002226.02101,"882,00591040733 ",.01)
  1. ;;00591040733
  1. ;;9002226.02101,"882,00591040733 ",.02)
  1. ;;00591040733
  1. ;;9002226.02101,"882,00591040800 ",.01)
  1. ;;00591040800
  1. ;;9002226.02101,"882,00591040800 ",.02)
  1. ;;00591040800
  1. ;;9002226.02101,"882,00591040801 ",.01)
  1. ;;00591040801
  1. ;;9002226.02101,"882,00591040801 ",.02)
  1. ;;00591040801
  1. ;;9002226.02101,"882,00591040810 ",.01)
  1. ;;00591040810
  1. ;;9002226.02101,"882,00591040810 ",.02)
  1. ;;00591040810
  1. ;;9002226.02101,"882,00591040830 ",.01)
  1. ;;00591040830
  1. ;;9002226.02101,"882,00591040830 ",.02)
  1. ;;00591040830
  1. ;;9002226.02101,"882,00591040833 ",.01)
  1. ;;00591040833
  1. ;;9002226.02101,"882,00591040833 ",.02)
  1. ;;00591040833
  1. ;;9002226.02101,"882,00591040900 ",.01)
  1. ;;00591040900
  1. ;;9002226.02101,"882,00591040900 ",.02)
  1. ;;00591040900
  1. ;;9002226.02101,"882,00591040901 ",.01)
  1. ;;00591040901
  1. ;;9002226.02101,"882,00591040901 ",.02)
  1. ;;00591040901
  1. ;;9002226.02101,"882,00591040905 ",.01)
  1. ;;00591040905
  1. ;;9002226.02101,"882,00591040905 ",.02)
  1. ;;00591040905
  1. ;;9002226.02101,"882,00591040910 ",.01)
  1. ;;00591040910
  1. ;;9002226.02101,"882,00591040910 ",.02)
  1. ;;00591040910
  1. ;;9002226.02101,"882,00591040930 ",.01)
  1. ;;00591040930
  1. ;;9002226.02101,"882,00591040930 ",.02)
  1. ;;00591040930
  1. ;;9002226.02101,"882,00591040975 ",.01)
  1. ;;00591040975
  1. ;;9002226.02101,"882,00591040975 ",.02)
  1. ;;00591040975
  1. ;;9002226.02101,"882,00591066801 ",.01)
  1. ;;00591066801
  1. ;;9002226.02101,"882,00591066801 ",.02)
  1. ;;00591066801
  1. ;;9002226.02101,"882,00591066805 ",.01)
  1. ;;00591066805
  1. ;;9002226.02101,"882,00591066805 ",.02)
  1. ;;00591066805
  1. ;;9002226.02101,"882,00591066901 ",.01)
  1. ;;00591066901
  1. ;;9002226.02101,"882,00591066901 ",.02)
  1. ;;00591066901
  1. ;;9002226.02101,"882,00591066905 ",.01)
  1. ;;00591066905
  1. ;;9002226.02101,"882,00591066905 ",.02)
  1. ;;00591066905
  1. ;;9002226.02101,"882,00591067001 ",.01)
  1. ;;00591067001
  1. ;;9002226.02101,"882,00591067001 ",.02)
  1. ;;00591067001
  1. ;;9002226.02101,"882,00591067005 ",.01)
  1. ;;00591067005
  1. ;;9002226.02101,"882,00591067005 ",.02)
  1. ;;00591067005
  1. ;;9002226.02101,"882,00591067101 ",.01)
  1. ;;00591067101
  1. ;;9002226.02101,"882,00591067101 ",.02)
  1. ;;00591067101
  1. ;;9002226.02101,"882,00591067105 ",.01)
  1. ;;00591067105
  1. ;;9002226.02101,"882,00591067105 ",.02)
  1. ;;00591067105
  1. ;;9002226.02101,"882,00591067110 ",.01)
  1. ;;00591067110
  1. ;;9002226.02101,"882,00591067110 ",.02)
  1. ;;00591067110
  1. ;;9002226.02101,"882,00591086001 ",.01)
  1. ;;00591086001
  1. ;;9002226.02101,"882,00591086001 ",.02)
  1. ;;00591086001
  1. ;;9002226.02101,"882,00591086005 ",.01)
  1. ;;00591086005
  1. ;;9002226.02101,"882,00591086005 ",.02)
  1. ;;00591086005
  1. ;;9002226.02101,"882,00591086101 ",.01)
  1. ;;00591086101
  1. ;;9002226.02101,"882,00591086101 ",.02)
  1. ;;00591086101
  1. ;;9002226.02101,"882,00591086105 ",.01)
  1. ;;00591086105
  1. ;;9002226.02101,"882,00591086105 ",.02)
  1. ;;00591086105
  1. ;;9002226.02101,"882,00591086201 ",.01)
  1. ;;00591086201
  1. ;;9002226.02101,"882,00591086201 ",.02)
  1. ;;00591086201
  1. ;;9002226.02101,"882,00591086205 ",.01)
  1. ;;00591086205
  1. ;;9002226.02101,"882,00591086205 ",.02)
  1. ;;00591086205
  1. ;;9002226.02101,"882,00591088500 ",.01)
  1. ;;00591088500
  1. ;;9002226.02101,"882,00591088500 ",.02)
  1. ;;00591088500
  1. ;;9002226.02101,"882,00591088501 ",.01)
  1. ;;00591088501
  1. ;;9002226.02101,"882,00591088501 ",.02)
  1. ;;00591088501
  1. ;;9002226.02101,"882,00591088510 ",.01)
  1. ;;00591088510
  1. ;;9002226.02101,"882,00591088510 ",.02)
  1. ;;00591088510
  1. ;;9002226.02101,"882,00591088530 ",.01)
  1. ;;00591088530
  1. ;;9002226.02101,"882,00591088530 ",.02)
  1. ;;00591088530
  1. ;;9002226.02101,"882,00591088533 ",.01)
  1. ;;00591088533
  1. ;;9002226.02101,"882,00591088533 ",.02)
  1. ;;00591088533
  1. ;;9002226.02101,"882,00603255521 ",.01)
  1. ;;00603255521
  1. ;;9002226.02101,"882,00603255521 ",.02)
  1. ;;00603255521
  1. ;;9002226.02101,"882,00603255532 ",.01)
  1. ;;00603255532