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

BGPM5ATC.m

Go to the documentation of this file.
BGPM5ATC ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 24, 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,"1011,55045131202 ",.02)
 ;;55045131202
 ;;9002226.02101,"1011,55045131203 ",.01)
 ;;55045131203
 ;;9002226.02101,"1011,55045131203 ",.02)
 ;;55045131203
 ;;9002226.02101,"1011,55045131207 ",.01)
 ;;55045131207
 ;;9002226.02101,"1011,55045131207 ",.02)
 ;;55045131207
 ;;9002226.02101,"1011,55045131208 ",.01)
 ;;55045131208
 ;;9002226.02101,"1011,55045131208 ",.02)
 ;;55045131208
 ;;9002226.02101,"1011,55045131209 ",.01)
 ;;55045131209
 ;;9002226.02101,"1011,55045131209 ",.02)
 ;;55045131209
 ;;9002226.02101,"1011,55045145200 ",.01)
 ;;55045145200
 ;;9002226.02101,"1011,55045145200 ",.02)
 ;;55045145200
 ;;9002226.02101,"1011,55045145202 ",.01)
 ;;55045145202
 ;;9002226.02101,"1011,55045145202 ",.02)
 ;;55045145202
 ;;9002226.02101,"1011,55045145203 ",.01)
 ;;55045145203
 ;;9002226.02101,"1011,55045145203 ",.02)
 ;;55045145203
 ;;9002226.02101,"1011,55045145207 ",.01)
 ;;55045145207
 ;;9002226.02101,"1011,55045145207 ",.02)
 ;;55045145207
 ;;9002226.02101,"1011,55045145208 ",.01)
 ;;55045145208
 ;;9002226.02101,"1011,55045145208 ",.02)
 ;;55045145208
 ;;9002226.02101,"1011,55045145209 ",.01)
 ;;55045145209
 ;;9002226.02101,"1011,55045145209 ",.02)
 ;;55045145209
 ;;9002226.02101,"1011,55045148605 ",.01)
 ;;55045148605
 ;;9002226.02101,"1011,55045148605 ",.02)
 ;;55045148605
 ;;9002226.02101,"1011,55045182807 ",.01)
 ;;55045182807
 ;;9002226.02101,"1011,55045182807 ",.02)
 ;;55045182807
 ;;9002226.02101,"1011,55045186803 ",.01)
 ;;55045186803
 ;;9002226.02101,"1011,55045186803 ",.02)
 ;;55045186803
 ;;9002226.02101,"1011,55045193105 ",.01)
 ;;55045193105
 ;;9002226.02101,"1011,55045193105 ",.02)
 ;;55045193105
 ;;9002226.02101,"1011,55045204307 ",.01)
 ;;55045204307
 ;;9002226.02101,"1011,55045204307 ",.02)
 ;;55045204307
 ;;9002226.02101,"1011,55045227908 ",.01)
 ;;55045227908
 ;;9002226.02101,"1011,55045227908 ",.02)
 ;;55045227908
 ;;9002226.02101,"1011,55045228007 ",.01)
 ;;55045228007
 ;;9002226.02101,"1011,55045228007 ",.02)
 ;;55045228007
 ;;9002226.02101,"1011,55045228008 ",.01)
 ;;55045228008
 ;;9002226.02101,"1011,55045228008 ",.02)
 ;;55045228008
 ;;9002226.02101,"1011,55045239005 ",.01)
 ;;55045239005
 ;;9002226.02101,"1011,55045239005 ",.02)
 ;;55045239005
 ;;9002226.02101,"1011,55045247002 ",.01)
 ;;55045247002
 ;;9002226.02101,"1011,55045247002 ",.02)
 ;;55045247002
 ;;9002226.02101,"1011,55045291901 ",.01)
 ;;55045291901
 ;;9002226.02101,"1011,55045291901 ",.02)
 ;;55045291901
 ;;9002226.02101,"1011,55045305401 ",.01)
 ;;55045305401
 ;;9002226.02101,"1011,55045305401 ",.02)
 ;;55045305401
 ;;9002226.02101,"1011,55045316200 ",.01)
 ;;55045316200
 ;;9002226.02101,"1011,55045316200 ",.02)
 ;;55045316200
 ;;9002226.02101,"1011,55045335100 ",.01)
 ;;55045335100
 ;;9002226.02101,"1011,55045335100 ",.02)
 ;;55045335100
 ;;9002226.02101,"1011,55045335400 ",.01)
 ;;55045335400
 ;;9002226.02101,"1011,55045335400 ",.02)
 ;;55045335400
 ;;9002226.02101,"1011,55045341600 ",.01)
 ;;55045341600
 ;;9002226.02101,"1011,55045341600 ",.02)
 ;;55045341600
 ;;9002226.02101,"1011,55045368601 ",.01)
 ;;55045368601
 ;;9002226.02101,"1011,55045368601 ",.02)
 ;;55045368601
 ;;9002226.02101,"1011,55154068200 ",.01)
 ;;55154068200
 ;;9002226.02101,"1011,55154068200 ",.02)
 ;;55154068200
 ;;9002226.02101,"1011,55154075208 ",.01)
 ;;55154075208
 ;;9002226.02101,"1011,55154075208 ",.02)
 ;;55154075208
 ;;9002226.02101,"1011,55154435005 ",.01)
 ;;55154435005
 ;;9002226.02101,"1011,55154435005 ",.02)
 ;;55154435005
 ;;9002226.02101,"1011,55154435405 ",.01)
 ;;55154435405
 ;;9002226.02101,"1011,55154435405 ",.02)
 ;;55154435405
 ;;9002226.02101,"1011,55154435506 ",.01)
 ;;55154435506
 ;;9002226.02101,"1011,55154435506 ",.02)
 ;;55154435506
 ;;9002226.02101,"1011,55154502800 ",.01)
 ;;55154502800
 ;;9002226.02101,"1011,55154502800 ",.02)
 ;;55154502800
 ;;9002226.02101,"1011,55154502900 ",.01)
 ;;55154502900
 ;;9002226.02101,"1011,55154502900 ",.02)
 ;;55154502900
 ;;9002226.02101,"1011,55154690700 ",.01)
 ;;55154690700
 ;;9002226.02101,"1011,55154690700 ",.02)
 ;;55154690700
 ;;9002226.02101,"1011,55154720601 ",.01)
 ;;55154720601
 ;;9002226.02101,"1011,55154720601 ",.02)
 ;;55154720601
 ;;9002226.02101,"1011,55154850207 ",.01)
 ;;55154850207
 ;;9002226.02101,"1011,55154850207 ",.02)
 ;;55154850207
 ;;9002226.02101,"1011,55154850605 ",.01)
 ;;55154850605
 ;;9002226.02101,"1011,55154850605 ",.02)
 ;;55154850605
 ;;9002226.02101,"1011,55154850805 ",.01)
 ;;55154850805
 ;;9002226.02101,"1011,55154850805 ",.02)
 ;;55154850805
 ;;9002226.02101,"1011,55154915200 ",.01)
 ;;55154915200
 ;;9002226.02101,"1011,55154915200 ",.02)
 ;;55154915200
 ;;9002226.02101,"1011,55154915201 ",.01)
 ;;55154915201
 ;;9002226.02101,"1011,55154915201 ",.02)
 ;;55154915201
 ;;9002226.02101,"1011,55154915202 ",.01)
 ;;55154915202
 ;;9002226.02101,"1011,55154915202 ",.02)
 ;;55154915202
 ;;9002226.02101,"1011,55154915300 ",.01)
 ;;55154915300
 ;;9002226.02101,"1011,55154915300 ",.02)
 ;;55154915300
 ;;9002226.02101,"1011,55154915301 ",.01)
 ;;55154915301
 ;;9002226.02101,"1011,55154915301 ",.02)
 ;;55154915301
 ;;9002226.02101,"1011,55154915302 ",.01)
 ;;55154915302
 ;;9002226.02101,"1011,55154915302 ",.02)
 ;;55154915302
 ;;9002226.02101,"1011,55154917001 ",.01)
 ;;55154917001
 ;;9002226.02101,"1011,55154917001 ",.02)
 ;;55154917001
 ;;9002226.02101,"1011,55154917002 ",.01)
 ;;55154917002
 ;;9002226.02101,"1011,55154917002 ",.02)
 ;;55154917002
 ;;9002226.02101,"1011,55154917003 ",.01)
 ;;55154917003
 ;;9002226.02101,"1011,55154917003 ",.02)
 ;;55154917003
 ;;9002226.02101,"1011,55288126901 ",.01)
 ;;55288126901
 ;;9002226.02101,"1011,55288126901 ",.02)
 ;;55288126901
 ;;9002226.02101,"1011,55289000360 ",.01)
 ;;55289000360
 ;;9002226.02101,"1011,55289000360 ",.02)
 ;;55289000360
 ;;9002226.02101,"1011,55289026001 ",.01)
 ;;55289026001
 ;;9002226.02101,"1011,55289026001 ",.02)
 ;;55289026001
 ;;9002226.02101,"1011,55289026006 ",.01)
 ;;55289026006
 ;;9002226.02101,"1011,55289026006 ",.02)
 ;;55289026006
 ;;9002226.02101,"1011,55289026020 ",.01)
 ;;55289026020
 ;;9002226.02101,"1011,55289026020 ",.02)
 ;;55289026020
 ;;9002226.02101,"1011,55289026030 ",.01)
 ;;55289026030
 ;;9002226.02101,"1011,55289026030 ",.02)
 ;;55289026030
 ;;9002226.02101,"1011,55289026060 ",.01)
 ;;55289026060
 ;;9002226.02101,"1011,55289026060 ",.02)
 ;;55289026060
 ;;9002226.02101,"1011,55289026097 ",.01)
 ;;55289026097
 ;;9002226.02101,"1011,55289026097 ",.02)
 ;;55289026097
 ;;9002226.02101,"1011,55289078530 ",.01)
 ;;55289078530
 ;;9002226.02101,"1011,55289078530 ",.02)
 ;;55289078530
 ;;9002226.02101,"1011,55289078560 ",.01)
 ;;55289078560
 ;;9002226.02101,"1011,55289078560 ",.02)
 ;;55289078560
 ;;9002226.02101,"1011,55289078860 ",.01)
 ;;55289078860
 ;;9002226.02101,"1011,55289078860 ",.02)
 ;;55289078860
 ;;9002226.02101,"1011,55289078930 ",.01)
 ;;55289078930
 ;;9002226.02101,"1011,55289078930 ",.02)
 ;;55289078930
 ;;9002226.02101,"1011,55289096115 ",.01)
 ;;55289096115
 ;;9002226.02101,"1011,55289096115 ",.02)
 ;;55289096115
 ;;9002226.02101,"1011,55289096130 ",.01)
 ;;55289096130
 ;;9002226.02101,"1011,55289096130 ",.02)
 ;;55289096130
 ;;9002226.02101,"1011,55289098921 ",.01)
 ;;55289098921
 ;;9002226.02101,"1011,55289098921 ",.02)
 ;;55289098921
 ;;9002226.02101,"1011,55289098930 ",.01)
 ;;55289098930
 ;;9002226.02101,"1011,55289098930 ",.02)
 ;;55289098930
 ;;9002226.02101,"1011,55289099021 ",.01)
 ;;55289099021
 ;;9002226.02101,"1011,55289099021 ",.02)
 ;;55289099021
 ;;9002226.02101,"1011,55289099030 ",.01)
 ;;55289099030
 ;;9002226.02101,"1011,55289099030 ",.02)
 ;;55289099030
 ;;9002226.02101,"1011,55887004318 ",.01)
 ;;55887004318
 ;;9002226.02101,"1011,55887004318 ",.02)
 ;;55887004318
 ;;9002226.02101,"1011,55887012090 ",.01)
 ;;55887012090
 ;;9002226.02101,"1011,55887012090 ",.02)
 ;;55887012090
 ;;9002226.02101,"1011,55887033224 ",.01)
 ;;55887033224
 ;;9002226.02101,"1011,55887033224 ",.02)
 ;;55887033224
 ;;9002226.02101,"1011,55887038220 ",.01)
 ;;55887038220
 ;;9002226.02101,"1011,55887038220 ",.02)
 ;;55887038220
 ;;9002226.02101,"1011,55887039030 ",.01)
 ;;55887039030
 ;;9002226.02101,"1011,55887039030 ",.02)
 ;;55887039030
 ;;9002226.02101,"1011,55887039125 ",.01)
 ;;55887039125
 ;;9002226.02101,"1011,55887039125 ",.02)
 ;;55887039125
 ;;9002226.02101,"1011,55887039130 ",.01)
 ;;55887039130
 ;;9002226.02101,"1011,55887039130 ",.02)
 ;;55887039130
 ;;9002226.02101,"1011,55887067860 ",.01)
 ;;55887067860
 ;;9002226.02101,"1011,55887067860 ",.02)
 ;;55887067860
 ;;9002226.02101,"1011,55887084760 ",.01)
 ;;55887084760
 ;;9002226.02101,"1011,55887084760 ",.02)
 ;;55887084760
 ;;9002226.02101,"1011,55887084790 ",.01)
 ;;55887084790
 ;;9002226.02101,"1011,55887084790 ",.02)
 ;;55887084790
 ;;9002226.02101,"1011,57866465201 ",.01)
 ;;57866465201
 ;;9002226.02101,"1011,57866465201 ",.02)
 ;;57866465201
 ;;9002226.02101,"1011,57866465202 ",.01)
 ;;57866465202
 ;;9002226.02101,"1011,57866465202 ",.02)
 ;;57866465202
 ;;9002226.02101,"1011,57866465203 ",.01)
 ;;57866465203
 ;;9002226.02101,"1011,57866465203 ",.02)
 ;;57866465203
 ;;9002226.02101,"1011,57866677101 ",.01)
 ;;57866677101
 ;;9002226.02101,"1011,57866677101 ",.02)
 ;;57866677101
 ;;9002226.02101,"1011,58016039700 ",.01)
 ;;58016039700
 ;;9002226.02101,"1011,58016039700 ",.02)
 ;;58016039700
 ;;9002226.02101,"1011,58016039730 ",.01)
 ;;58016039730
 ;;9002226.02101,"1011,58016039730 ",.02)
 ;;58016039730
 ;;9002226.02101,"1011,58016460401 ",.01)
 ;;58016460401
 ;;9002226.02101,"1011,58016460401 ",.02)
 ;;58016460401
 ;;9002226.02101,"1011,58016481301 ",.01)
 ;;58016481301
 ;;9002226.02101,"1011,58016481301 ",.02)
 ;;58016481301
 ;;9002226.02101,"1011,58016640401 ",.01)
 ;;58016640401
 ;;9002226.02101,"1011,58016640401 ",.02)
 ;;58016640401
 ;;9002226.02101,"1011,58864065830 ",.01)
 ;;58864065830
 ;;9002226.02101,"1011,58864065830 ",.02)
 ;;58864065830
 ;;9002226.02101,"1011,58864069430 ",.01)
 ;;58864069430
 ;;9002226.02101,"1011,58864069430 ",.02)
 ;;58864069430
 ;;9002226.02101,"1011,59930150901 ",.01)
 ;;59930150901
 ;;9002226.02101,"1011,59930150901 ",.02)
 ;;59930150901
 ;;9002226.02101,"1011,59930150902 ",.01)
 ;;59930150902
 ;;9002226.02101,"1011,59930150902 ",.02)
 ;;59930150902
 ;;9002226.02101,"1011,59930151701 ",.01)
 ;;59930151701
 ;;9002226.02101,"1011,59930151701 ",.02)
 ;;59930151701
 ;;9002226.02101,"1011,59930151702 ",.01)
 ;;59930151702
 ;;9002226.02101,"1011,59930151702 ",.02)
 ;;59930151702
 ;;9002226.02101,"1011,59930156001 ",.01)
 ;;59930156001
 ;;9002226.02101,"1011,59930156001 ",.02)
 ;;59930156001
 ;;9002226.02101,"1011,59930156002 ",.01)
 ;;59930156002
 ;;9002226.02101,"1011,59930156002 ",.02)
 ;;59930156002
 ;;9002226.02101,"1011,59930164702 ",.01)
 ;;59930164702
 ;;9002226.02101,"1011,59930164702 ",.02)
 ;;59930164702
 ;;9002226.02101,"1011,59930167001 ",.01)
 ;;59930167001
 ;;9002226.02101,"1011,59930167001 ",.02)
 ;;59930167001
 ;;9002226.02101,"1011,59930167002 ",.01)
 ;;59930167002
 ;;9002226.02101,"1011,59930167002 ",.02)
 ;;59930167002
 ;;9002226.02101,"1011,59930167003 ",.01)
 ;;59930167003
 ;;9002226.02101,"1011,59930167003 ",.02)
 ;;59930167003
 ;;9002226.02101,"1011,60312011715 ",.01)
 ;;60312011715
 ;;9002226.02101,"1011,60312011715 ",.02)
 ;;60312011715
 ;;9002226.02101,"1011,60312011728 ",.01)
 ;;60312011728
 ;;9002226.02101,"1011,60312011728 ",.02)
 ;;60312011728
 ;;9002226.02101,"1011,60312011731 ",.01)
 ;;60312011731
 ;;9002226.02101,"1011,60312011731 ",.02)
 ;;60312011731