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

BGPM5AGN.m

Go to the documentation of this file.
BGPM5AGN ;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,24658024245 ",.02)
 ;;24658024245
 ;;9002226.02101,"882,24658024290 ",.01)
 ;;24658024290
 ;;9002226.02101,"882,24658024290 ",.02)
 ;;24658024290
 ;;9002226.02101,"882,24658024310 ",.01)
 ;;24658024310
 ;;9002226.02101,"882,24658024310 ",.02)
 ;;24658024310
 ;;9002226.02101,"882,24658024315 ",.01)
 ;;24658024315
 ;;9002226.02101,"882,24658024315 ",.02)
 ;;24658024315
 ;;9002226.02101,"882,24658024318 ",.01)
 ;;24658024318
 ;;9002226.02101,"882,24658024318 ",.02)
 ;;24658024318
 ;;9002226.02101,"882,24658024330 ",.01)
 ;;24658024330
 ;;9002226.02101,"882,24658024330 ",.02)
 ;;24658024330
 ;;9002226.02101,"882,24658024345 ",.01)
 ;;24658024345
 ;;9002226.02101,"882,24658024345 ",.02)
 ;;24658024345
 ;;9002226.02101,"882,24658024390 ",.01)
 ;;24658024390
 ;;9002226.02101,"882,24658024390 ",.02)
 ;;24658024390
 ;;9002226.02101,"882,24658024401 ",.01)
 ;;24658024401
 ;;9002226.02101,"882,24658024401 ",.02)
 ;;24658024401
 ;;9002226.02101,"882,24658024410 ",.01)
 ;;24658024410
 ;;9002226.02101,"882,24658024410 ",.02)
 ;;24658024410
 ;;9002226.02101,"882,24658024510 ",.01)
 ;;24658024510
 ;;9002226.02101,"882,24658024510 ",.02)
 ;;24658024510
 ;;9002226.02101,"882,24658024515 ",.01)
 ;;24658024515
 ;;9002226.02101,"882,24658024515 ",.02)
 ;;24658024515
 ;;9002226.02101,"882,24658024518 ",.01)
 ;;24658024518
 ;;9002226.02101,"882,24658024518 ",.02)
 ;;24658024518
 ;;9002226.02101,"882,24658024530 ",.01)
 ;;24658024530
 ;;9002226.02101,"882,24658024530 ",.02)
 ;;24658024530
 ;;9002226.02101,"882,24658024545 ",.01)
 ;;24658024545
 ;;9002226.02101,"882,24658024545 ",.02)
 ;;24658024545
 ;;9002226.02101,"882,24658024560 ",.01)
 ;;24658024560
 ;;9002226.02101,"882,24658024560 ",.02)
 ;;24658024560
 ;;9002226.02101,"882,24658024590 ",.01)
 ;;24658024590
 ;;9002226.02101,"882,24658024590 ",.02)
 ;;24658024590
 ;;9002226.02101,"882,26053008201 ",.01)
 ;;26053008201
 ;;9002226.02101,"882,26053008201 ",.02)
 ;;26053008201
 ;;9002226.02101,"882,26053008301 ",.01)
 ;;26053008301
 ;;9002226.02101,"882,26053008301 ",.02)
 ;;26053008301
 ;;9002226.02101,"882,26053008401 ",.01)
 ;;26053008401
 ;;9002226.02101,"882,26053008401 ",.02)
 ;;26053008401
 ;;9002226.02101,"882,26053015001 ",.01)
 ;;26053015001
 ;;9002226.02101,"882,26053015001 ",.02)
 ;;26053015001
 ;;9002226.02101,"882,26053020401 ",.01)
 ;;26053020401
 ;;9002226.02101,"882,26053020401 ",.02)
 ;;26053020401
 ;;9002226.02101,"882,26053020501 ",.01)
 ;;26053020501
 ;;9002226.02101,"882,26053020501 ",.02)
 ;;26053020501
 ;;9002226.02101,"882,26053028401 ",.01)
 ;;26053028401
 ;;9002226.02101,"882,26053028401 ",.02)
 ;;26053028401
 ;;9002226.02101,"882,26053028501 ",.01)
 ;;26053028501
 ;;9002226.02101,"882,26053028501 ",.02)
 ;;26053028501
 ;;9002226.02101,"882,26053028601 ",.01)
 ;;26053028601
 ;;9002226.02101,"882,26053028601 ",.02)
 ;;26053028601
 ;;9002226.02101,"882,26053028701 ",.01)
 ;;26053028701
 ;;9002226.02101,"882,26053028701 ",.02)
 ;;26053028701
 ;;9002226.02101,"882,26053033501 ",.01)
 ;;26053033501
 ;;9002226.02101,"882,26053033501 ",.02)
 ;;26053033501
 ;;9002226.02101,"882,26053033601 ",.01)
 ;;26053033601
 ;;9002226.02101,"882,26053033601 ",.02)
 ;;26053033601
 ;;9002226.02101,"882,26053040201 ",.01)
 ;;26053040201
 ;;9002226.02101,"882,26053040201 ",.02)
 ;;26053040201
 ;;9002226.02101,"882,26053040301 ",.01)
 ;;26053040301
 ;;9002226.02101,"882,26053040301 ",.02)
 ;;26053040301
 ;;9002226.02101,"882,26053043501 ",.01)
 ;;26053043501
 ;;9002226.02101,"882,26053043501 ",.02)
 ;;26053043501
 ;;9002226.02101,"882,26053043601 ",.01)
 ;;26053043601
 ;;9002226.02101,"882,26053043601 ",.02)
 ;;26053043601
 ;;9002226.02101,"882,27444004906 ",.01)
 ;;27444004906
 ;;9002226.02101,"882,27444004906 ",.02)
 ;;27444004906
 ;;9002226.02101,"882,27444004907 ",.01)
 ;;27444004907
 ;;9002226.02101,"882,27444004907 ",.02)
 ;;27444004907
 ;;9002226.02101,"882,27444004909 ",.01)
 ;;27444004909
 ;;9002226.02101,"882,27444004909 ",.02)
 ;;27444004909
 ;;9002226.02101,"882,27444005006 ",.01)
 ;;27444005006
 ;;9002226.02101,"882,27444005006 ",.02)
 ;;27444005006
 ;;9002226.02101,"882,27444005007 ",.01)
 ;;27444005007
 ;;9002226.02101,"882,27444005007 ",.02)
 ;;27444005007
 ;;9002226.02101,"882,27444005009 ",.01)
 ;;27444005009
 ;;9002226.02101,"882,27444005009 ",.02)
 ;;27444005009
 ;;9002226.02101,"882,27444005106 ",.01)
 ;;27444005106
 ;;9002226.02101,"882,27444005106 ",.02)
 ;;27444005106
 ;;9002226.02101,"882,27444005107 ",.01)
 ;;27444005107
 ;;9002226.02101,"882,27444005107 ",.02)
 ;;27444005107
 ;;9002226.02101,"882,27444005109 ",.01)
 ;;27444005109
 ;;9002226.02101,"882,27444005109 ",.02)
 ;;27444005109
 ;;9002226.02101,"882,27444005206 ",.01)
 ;;27444005206
 ;;9002226.02101,"882,27444005206 ",.02)
 ;;27444005206
 ;;9002226.02101,"882,27444005207 ",.01)
 ;;27444005207
 ;;9002226.02101,"882,27444005207 ",.02)
 ;;27444005207
 ;;9002226.02101,"882,27444005209 ",.01)
 ;;27444005209
 ;;9002226.02101,"882,27444005209 ",.02)
 ;;27444005209
 ;;9002226.02101,"882,27444020801 ",.01)
 ;;27444020801
 ;;9002226.02101,"882,27444020801 ",.02)
 ;;27444020801
 ;;9002226.02101,"882,27444020802 ",.01)
 ;;27444020802
 ;;9002226.02101,"882,27444020802 ",.02)
 ;;27444020802
 ;;9002226.02101,"882,27444020901 ",.01)
 ;;27444020901
 ;;9002226.02101,"882,27444020901 ",.02)
 ;;27444020901
 ;;9002226.02101,"882,27444020902 ",.01)
 ;;27444020902
 ;;9002226.02101,"882,27444020902 ",.02)
 ;;27444020902
 ;;9002226.02101,"882,31722020010 ",.01)
 ;;31722020010
 ;;9002226.02101,"882,31722020010 ",.02)
 ;;31722020010
 ;;9002226.02101,"882,31722020090 ",.01)
 ;;31722020090
 ;;9002226.02101,"882,31722020090 ",.02)
 ;;31722020090
 ;;9002226.02101,"882,31722020110 ",.01)
 ;;31722020110
 ;;9002226.02101,"882,31722020110 ",.02)
 ;;31722020110
 ;;9002226.02101,"882,31722020190 ",.01)
 ;;31722020190
 ;;9002226.02101,"882,31722020190 ",.02)
 ;;31722020190
 ;;9002226.02101,"882,31722020210 ",.01)
 ;;31722020210
 ;;9002226.02101,"882,31722020210 ",.02)
 ;;31722020210
 ;;9002226.02101,"882,31722020290 ",.01)
 ;;31722020290
 ;;9002226.02101,"882,31722020290 ",.02)
 ;;31722020290
 ;;9002226.02101,"882,31722027101 ",.01)
 ;;31722027101
 ;;9002226.02101,"882,31722027101 ",.02)
 ;;31722027101
 ;;9002226.02101,"882,31722027110 ",.01)
 ;;31722027110
 ;;9002226.02101,"882,31722027110 ",.02)
 ;;31722027110
 ;;9002226.02101,"882,31722027201 ",.01)
 ;;31722027201
 ;;9002226.02101,"882,31722027201 ",.02)
 ;;31722027201
 ;;9002226.02101,"882,31722027205 ",.01)
 ;;31722027205
 ;;9002226.02101,"882,31722027205 ",.02)
 ;;31722027205
 ;;9002226.02101,"882,31722027210 ",.01)
 ;;31722027210
 ;;9002226.02101,"882,31722027210 ",.02)
 ;;31722027210
 ;;9002226.02101,"882,31722027301 ",.01)
 ;;31722027301
 ;;9002226.02101,"882,31722027301 ",.02)
 ;;31722027301
 ;;9002226.02101,"882,31722027305 ",.01)
 ;;31722027305
 ;;9002226.02101,"882,31722027305 ",.02)
 ;;31722027305
 ;;9002226.02101,"882,31722027310 ",.01)
 ;;31722027310
 ;;9002226.02101,"882,31722027310 ",.02)
 ;;31722027310
 ;;9002226.02101,"882,31722027401 ",.01)
 ;;31722027401
 ;;9002226.02101,"882,31722027401 ",.02)
 ;;31722027401
 ;;9002226.02101,"882,31722027405 ",.01)
 ;;31722027405
 ;;9002226.02101,"882,31722027405 ",.02)
 ;;31722027405
 ;;9002226.02101,"882,31722027410 ",.01)
 ;;31722027410
 ;;9002226.02101,"882,31722027410 ",.02)
 ;;31722027410
 ;;9002226.02101,"882,33261041601 ",.01)
 ;;33261041601
 ;;9002226.02101,"882,33261041601 ",.02)
 ;;33261041601
 ;;9002226.02101,"882,33261041602 ",.01)
 ;;33261041602
 ;;9002226.02101,"882,33261041602 ",.02)
 ;;33261041602
 ;;9002226.02101,"882,33261041610 ",.01)
 ;;33261041610
 ;;9002226.02101,"882,33261041610 ",.02)
 ;;33261041610
 ;;9002226.02101,"882,33261041620 ",.01)
 ;;33261041620
 ;;9002226.02101,"882,33261041620 ",.02)
 ;;33261041620
 ;;9002226.02101,"882,33261041628 ",.01)
 ;;33261041628
 ;;9002226.02101,"882,33261041628 ",.02)
 ;;33261041628
 ;;9002226.02101,"882,33261041630 ",.01)
 ;;33261041630
 ;;9002226.02101,"882,33261041630 ",.02)
 ;;33261041630
 ;;9002226.02101,"882,33261041636 ",.01)
 ;;33261041636
 ;;9002226.02101,"882,33261041636 ",.02)
 ;;33261041636
 ;;9002226.02101,"882,33261041660 ",.01)
 ;;33261041660
 ;;9002226.02101,"882,33261041660 ",.02)
 ;;33261041660
 ;;9002226.02101,"882,33261041690 ",.01)
 ;;33261041690
 ;;9002226.02101,"882,33261041690 ",.02)
 ;;33261041690
 ;;9002226.02101,"882,33358012630 ",.01)
 ;;33358012630
 ;;9002226.02101,"882,33358012630 ",.02)
 ;;33358012630
 ;;9002226.02101,"882,33358012730 ",.01)
 ;;33358012730
 ;;9002226.02101,"882,33358012730 ",.02)
 ;;33358012730
 ;;9002226.02101,"882,33358012760 ",.01)
 ;;33358012760
 ;;9002226.02101,"882,33358012760 ",.02)
 ;;33358012760
 ;;9002226.02101,"882,33358012830 ",.01)
 ;;33358012830
 ;;9002226.02101,"882,33358012830 ",.02)
 ;;33358012830
 ;;9002226.02101,"882,33358012860 ",.01)
 ;;33358012860
 ;;9002226.02101,"882,33358012860 ",.02)
 ;;33358012860
 ;;9002226.02101,"882,33358021130 ",.01)
 ;;33358021130
 ;;9002226.02101,"882,33358021130 ",.02)
 ;;33358021130
 ;;9002226.02101,"882,33358021230 ",.01)
 ;;33358021230
 ;;9002226.02101,"882,33358021230 ",.02)
 ;;33358021230
 ;;9002226.02101,"882,33358021330 ",.01)
 ;;33358021330
 ;;9002226.02101,"882,33358021330 ",.02)
 ;;33358021330
 ;;9002226.02101,"882,33358021430 ",.01)
 ;;33358021430
 ;;9002226.02101,"882,33358021430 ",.02)
 ;;33358021430
 ;;9002226.02101,"882,33358021460 ",.01)
 ;;33358021460
 ;;9002226.02101,"882,33358021460 ",.02)
 ;;33358021460
 ;;9002226.02101,"882,35356054130 ",.01)
 ;;35356054130
 ;;9002226.02101,"882,35356054130 ",.02)
 ;;35356054130
 ;;9002226.02101,"882,35356060130 ",.01)
 ;;35356060130
 ;;9002226.02101,"882,35356060130 ",.02)
 ;;35356060130
 ;;9002226.02101,"882,35356087000 ",.01)
 ;;35356087000
 ;;9002226.02101,"882,35356087000 ",.02)
 ;;35356087000
 ;;9002226.02101,"882,41284006500 ",.01)
 ;;41284006500
 ;;9002226.02101,"882,41284006500 ",.02)
 ;;41284006500
 ;;9002226.02101,"882,41284006512 ",.01)
 ;;41284006512
 ;;9002226.02101,"882,41284006512 ",.02)
 ;;41284006512
 ;;9002226.02101,"882,41284006540 ",.01)
 ;;41284006540
 ;;9002226.02101,"882,41284006540 ",.02)
 ;;41284006540
 ;;9002226.02101,"882,41284006548 ",.01)
 ;;41284006548
 ;;9002226.02101,"882,41284006548 ",.02)
 ;;41284006548
 ;;9002226.02101,"882,41284006600 ",.01)
 ;;41284006600
 ;;9002226.02101,"882,41284006600 ",.02)
 ;;41284006600
 ;;9002226.02101,"882,41284006612 ",.01)
 ;;41284006612
 ;;9002226.02101,"882,41284006612 ",.02)
 ;;41284006612
 ;;9002226.02101,"882,41284006640 ",.01)
 ;;41284006640
 ;;9002226.02101,"882,41284006640 ",.02)
 ;;41284006640
 ;;9002226.02101,"882,41284006648 ",.01)
 ;;41284006648
 ;;9002226.02101,"882,41284006648 ",.02)
 ;;41284006648
 ;;9002226.02101,"882,41284054100 ",.01)
 ;;41284054100
 ;;9002226.02101,"882,41284054100 ",.02)
 ;;41284054100
 ;;9002226.02101,"882,41284054130 ",.01)
 ;;41284054130
 ;;9002226.02101,"882,41284054130 ",.02)
 ;;41284054130
 ;;9002226.02101,"882,41284054200 ",.01)
 ;;41284054200
 ;;9002226.02101,"882,41284054200 ",.02)
 ;;41284054200
 ;;9002226.02101,"882,41284054290 ",.01)
 ;;41284054290
 ;;9002226.02101,"882,41284054290 ",.02)
 ;;41284054290
 ;;9002226.02101,"882,41284057000 ",.01)
 ;;41284057000
 ;;9002226.02101,"882,41284057000 ",.02)
 ;;41284057000
 ;;9002226.02101,"882,41284057030 ",.01)
 ;;41284057030
 ;;9002226.02101,"882,41284057030 ",.02)
 ;;41284057030
 ;;9002226.02101,"882,41284057100 ",.01)
 ;;41284057100