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