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

BGPM5AGM.m

Go to the documentation of this file.
BGPM5AGM ;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,23490082903 ",.02)
 ;;23490082903
 ;;9002226.02101,"882,23490082905 ",.01)
 ;;23490082905
 ;;9002226.02101,"882,23490082905 ",.02)
 ;;23490082905
 ;;9002226.02101,"882,23490082906 ",.01)
 ;;23490082906
 ;;9002226.02101,"882,23490082906 ",.02)
 ;;23490082906
 ;;9002226.02101,"882,23490082909 ",.01)
 ;;23490082909
 ;;9002226.02101,"882,23490082909 ",.02)
 ;;23490082909
 ;;9002226.02101,"882,23490148703 ",.01)
 ;;23490148703
 ;;9002226.02101,"882,23490148703 ",.02)
 ;;23490148703
 ;;9002226.02101,"882,23490148706 ",.01)
 ;;23490148706
 ;;9002226.02101,"882,23490148706 ",.02)
 ;;23490148706
 ;;9002226.02101,"882,23490148709 ",.01)
 ;;23490148709
 ;;9002226.02101,"882,23490148709 ",.02)
 ;;23490148709
 ;;9002226.02101,"882,23490148800 ",.01)
 ;;23490148800
 ;;9002226.02101,"882,23490148800 ",.02)
 ;;23490148800
 ;;9002226.02101,"882,23490148803 ",.01)
 ;;23490148803
 ;;9002226.02101,"882,23490148803 ",.02)
 ;;23490148803
 ;;9002226.02101,"882,23490148806 ",.01)
 ;;23490148806
 ;;9002226.02101,"882,23490148806 ",.02)
 ;;23490148806
 ;;9002226.02101,"882,23490148809 ",.01)
 ;;23490148809
 ;;9002226.02101,"882,23490148809 ",.02)
 ;;23490148809
 ;;9002226.02101,"882,23490519101 ",.01)
 ;;23490519101
 ;;9002226.02101,"882,23490519101 ",.02)
 ;;23490519101
 ;;9002226.02101,"882,23490519201 ",.01)
 ;;23490519201
 ;;9002226.02101,"882,23490519201 ",.02)
 ;;23490519201
 ;;9002226.02101,"882,23490519301 ",.01)
 ;;23490519301
 ;;9002226.02101,"882,23490519301 ",.02)
 ;;23490519301
 ;;9002226.02101,"882,23490519302 ",.01)
 ;;23490519302
 ;;9002226.02101,"882,23490519302 ",.02)
 ;;23490519302
 ;;9002226.02101,"882,23490519303 ",.01)
 ;;23490519303
 ;;9002226.02101,"882,23490519303 ",.02)
 ;;23490519303
 ;;9002226.02101,"882,23490519400 ",.01)
 ;;23490519400
 ;;9002226.02101,"882,23490519400 ",.02)
 ;;23490519400
 ;;9002226.02101,"882,23490519401 ",.01)
 ;;23490519401
 ;;9002226.02101,"882,23490519401 ",.02)
 ;;23490519401
 ;;9002226.02101,"882,23490519402 ",.01)
 ;;23490519402
 ;;9002226.02101,"882,23490519402 ",.02)
 ;;23490519402
 ;;9002226.02101,"882,23490549101 ",.01)
 ;;23490549101
 ;;9002226.02101,"882,23490549101 ",.02)
 ;;23490549101
 ;;9002226.02101,"882,23490549102 ",.01)
 ;;23490549102
 ;;9002226.02101,"882,23490549102 ",.02)
 ;;23490549102
 ;;9002226.02101,"882,23490549108 ",.01)
 ;;23490549108
 ;;9002226.02101,"882,23490549108 ",.02)
 ;;23490549108
 ;;9002226.02101,"882,23490549109 ",.01)
 ;;23490549109
 ;;9002226.02101,"882,23490549109 ",.02)
 ;;23490549109
 ;;9002226.02101,"882,23490549201 ",.01)
 ;;23490549201
 ;;9002226.02101,"882,23490549201 ",.02)
 ;;23490549201
 ;;9002226.02101,"882,23490549202 ",.01)
 ;;23490549202
 ;;9002226.02101,"882,23490549202 ",.02)
 ;;23490549202
 ;;9002226.02101,"882,23490549401 ",.01)
 ;;23490549401
 ;;9002226.02101,"882,23490549401 ",.02)
 ;;23490549401
 ;;9002226.02101,"882,23490549402 ",.01)
 ;;23490549402
 ;;9002226.02101,"882,23490549402 ",.02)
 ;;23490549402
 ;;9002226.02101,"882,23490581500 ",.01)
 ;;23490581500
 ;;9002226.02101,"882,23490581500 ",.02)
 ;;23490581500
 ;;9002226.02101,"882,23490581501 ",.01)
 ;;23490581501
 ;;9002226.02101,"882,23490581501 ",.02)
 ;;23490581501
 ;;9002226.02101,"882,23490581601 ",.01)
 ;;23490581601
 ;;9002226.02101,"882,23490581601 ",.02)
 ;;23490581601
 ;;9002226.02101,"882,23490581602 ",.01)
 ;;23490581602
 ;;9002226.02101,"882,23490581602 ",.02)
 ;;23490581602
 ;;9002226.02101,"882,23490581606 ",.01)
 ;;23490581606
 ;;9002226.02101,"882,23490581606 ",.02)
 ;;23490581606
 ;;9002226.02101,"882,23490581702 ",.01)
 ;;23490581702
 ;;9002226.02101,"882,23490581702 ",.02)
 ;;23490581702
 ;;9002226.02101,"882,23490581802 ",.01)
 ;;23490581802
 ;;9002226.02101,"882,23490581802 ",.02)
 ;;23490581802
 ;;9002226.02101,"882,23490581902 ",.01)
 ;;23490581902
 ;;9002226.02101,"882,23490581902 ",.02)
 ;;23490581902
 ;;9002226.02101,"882,23490582001 ",.01)
 ;;23490582001
 ;;9002226.02101,"882,23490582001 ",.02)
 ;;23490582001
 ;;9002226.02101,"882,23490582101 ",.01)
 ;;23490582101
 ;;9002226.02101,"882,23490582101 ",.02)
 ;;23490582101
 ;;9002226.02101,"882,23490582201 ",.01)
 ;;23490582201
 ;;9002226.02101,"882,23490582201 ",.02)
 ;;23490582201
 ;;9002226.02101,"882,23490936403 ",.01)
 ;;23490936403
 ;;9002226.02101,"882,23490936403 ",.02)
 ;;23490936403
 ;;9002226.02101,"882,24196050101 ",.01)
 ;;24196050101
 ;;9002226.02101,"882,24196050101 ",.02)
 ;;24196050101
 ;;9002226.02101,"882,24196050105 ",.01)
 ;;24196050105
 ;;9002226.02101,"882,24196050105 ",.02)
 ;;24196050105
 ;;9002226.02101,"882,24196050201 ",.01)
 ;;24196050201
 ;;9002226.02101,"882,24196050201 ",.02)
 ;;24196050201
 ;;9002226.02101,"882,24196050210 ",.01)
 ;;24196050210
 ;;9002226.02101,"882,24196050210 ",.02)
 ;;24196050210
 ;;9002226.02101,"882,24196050301 ",.01)
 ;;24196050301
 ;;9002226.02101,"882,24196050301 ",.02)
 ;;24196050301
 ;;9002226.02101,"882,24196050310 ",.01)
 ;;24196050310
 ;;9002226.02101,"882,24196050310 ",.02)
 ;;24196050310
 ;;9002226.02101,"882,24196050401 ",.01)
 ;;24196050401
 ;;9002226.02101,"882,24196050401 ",.02)
 ;;24196050401
 ;;9002226.02101,"882,24196050410 ",.01)
 ;;24196050410
 ;;9002226.02101,"882,24196050410 ",.02)
 ;;24196050410
 ;;9002226.02101,"882,24196050501 ",.01)
 ;;24196050501
 ;;9002226.02101,"882,24196050501 ",.02)
 ;;24196050501
 ;;9002226.02101,"882,24196050601 ",.01)
 ;;24196050601
 ;;9002226.02101,"882,24196050601 ",.02)
 ;;24196050601
 ;;9002226.02101,"882,24196050605 ",.01)
 ;;24196050605
 ;;9002226.02101,"882,24196050605 ",.02)
 ;;24196050605
 ;;9002226.02101,"882,24196056501 ",.01)
 ;;24196056501
 ;;9002226.02101,"882,24196056501 ",.02)
 ;;24196056501
 ;;9002226.02101,"882,24196056505 ",.01)
 ;;24196056505
 ;;9002226.02101,"882,24196056505 ",.02)
 ;;24196056505
 ;;9002226.02101,"882,24196056601 ",.01)
 ;;24196056601
 ;;9002226.02101,"882,24196056601 ",.02)
 ;;24196056601
 ;;9002226.02101,"882,24196056605 ",.01)
 ;;24196056605
 ;;9002226.02101,"882,24196056605 ",.02)
 ;;24196056605
 ;;9002226.02101,"882,24196056701 ",.01)
 ;;24196056701
 ;;9002226.02101,"882,24196056701 ",.02)
 ;;24196056701
 ;;9002226.02101,"882,24196056705 ",.01)
 ;;24196056705
 ;;9002226.02101,"882,24196056705 ",.02)
 ;;24196056705
 ;;9002226.02101,"882,24236001002 ",.01)
 ;;24236001002
 ;;9002226.02101,"882,24236001002 ",.02)
 ;;24236001002
 ;;9002226.02101,"882,24236005102 ",.01)
 ;;24236005102
 ;;9002226.02101,"882,24236005102 ",.02)
 ;;24236005102
 ;;9002226.02101,"882,24236005202 ",.01)
 ;;24236005202
 ;;9002226.02101,"882,24236005202 ",.02)
 ;;24236005202
 ;;9002226.02101,"882,24236007602 ",.01)
 ;;24236007602
 ;;9002226.02101,"882,24236007602 ",.02)
 ;;24236007602
 ;;9002226.02101,"882,24236007902 ",.01)
 ;;24236007902
 ;;9002226.02101,"882,24236007902 ",.02)
 ;;24236007902
 ;;9002226.02101,"882,24236008002 ",.01)
 ;;24236008002
 ;;9002226.02101,"882,24236008002 ",.02)
 ;;24236008002
 ;;9002226.02101,"882,24236015302 ",.01)
 ;;24236015302
 ;;9002226.02101,"882,24236015302 ",.02)
 ;;24236015302
 ;;9002226.02101,"882,24236015402 ",.01)
 ;;24236015402
 ;;9002226.02101,"882,24236015402 ",.02)
 ;;24236015402
 ;;9002226.02101,"882,24236022702 ",.01)
 ;;24236022702
 ;;9002226.02101,"882,24236022702 ",.02)
 ;;24236022702
 ;;9002226.02101,"882,24236031702 ",.01)
 ;;24236031702
 ;;9002226.02101,"882,24236031702 ",.02)
 ;;24236031702
 ;;9002226.02101,"882,24236035102 ",.01)
 ;;24236035102
 ;;9002226.02101,"882,24236035102 ",.02)
 ;;24236035102
 ;;9002226.02101,"882,24236037602 ",.01)
 ;;24236037602
 ;;9002226.02101,"882,24236037602 ",.02)
 ;;24236037602
 ;;9002226.02101,"882,24236039502 ",.01)
 ;;24236039502
 ;;9002226.02101,"882,24236039502 ",.02)
 ;;24236039502
 ;;9002226.02101,"882,24236041202 ",.01)
 ;;24236041202
 ;;9002226.02101,"882,24236041202 ",.02)
 ;;24236041202
 ;;9002226.02101,"882,24236054402 ",.01)
 ;;24236054402
 ;;9002226.02101,"882,24236054402 ",.02)
 ;;24236054402
 ;;9002226.02101,"882,24236060802 ",.01)
 ;;24236060802
 ;;9002226.02101,"882,24236060802 ",.02)
 ;;24236060802
 ;;9002226.02101,"882,24236061502 ",.01)
 ;;24236061502
 ;;9002226.02101,"882,24236061502 ",.02)
 ;;24236061502
 ;;9002226.02101,"882,24236072002 ",.01)
 ;;24236072002
 ;;9002226.02101,"882,24236072002 ",.02)
 ;;24236072002
 ;;9002226.02101,"882,24236075002 ",.01)
 ;;24236075002
 ;;9002226.02101,"882,24236075002 ",.02)
 ;;24236075002
 ;;9002226.02101,"882,24236086602 ",.01)
 ;;24236086602
 ;;9002226.02101,"882,24236086602 ",.02)
 ;;24236086602
 ;;9002226.02101,"882,24236090002 ",.01)
 ;;24236090002
 ;;9002226.02101,"882,24236090002 ",.02)
 ;;24236090002
 ;;9002226.02101,"882,24236090902 ",.01)
 ;;24236090902
 ;;9002226.02101,"882,24236090902 ",.02)
 ;;24236090902
 ;;9002226.02101,"882,24658010010 ",.01)
 ;;24658010010
 ;;9002226.02101,"882,24658010010 ",.02)
 ;;24658010010
 ;;9002226.02101,"882,24658010090 ",.01)
 ;;24658010090
 ;;9002226.02101,"882,24658010090 ",.02)
 ;;24658010090
 ;;9002226.02101,"882,24658010110 ",.01)
 ;;24658010110
 ;;9002226.02101,"882,24658010110 ",.02)
 ;;24658010110
 ;;9002226.02101,"882,24658010190 ",.01)
 ;;24658010190
 ;;9002226.02101,"882,24658010190 ",.02)
 ;;24658010190
 ;;9002226.02101,"882,24658010210 ",.01)
 ;;24658010210
 ;;9002226.02101,"882,24658010210 ",.02)
 ;;24658010210
 ;;9002226.02101,"882,24658010290 ",.01)
 ;;24658010290
 ;;9002226.02101,"882,24658010290 ",.02)
 ;;24658010290
 ;;9002226.02101,"882,24658020001 ",.01)
 ;;24658020001
 ;;9002226.02101,"882,24658020001 ",.02)
 ;;24658020001
 ;;9002226.02101,"882,24658020005 ",.01)
 ;;24658020005
 ;;9002226.02101,"882,24658020005 ",.02)
 ;;24658020005
 ;;9002226.02101,"882,24658020101 ",.01)
 ;;24658020101
 ;;9002226.02101,"882,24658020101 ",.02)
 ;;24658020101
 ;;9002226.02101,"882,24658020105 ",.01)
 ;;24658020105
 ;;9002226.02101,"882,24658020105 ",.02)
 ;;24658020105
 ;;9002226.02101,"882,24658020201 ",.01)
 ;;24658020201
 ;;9002226.02101,"882,24658020201 ",.02)
 ;;24658020201
 ;;9002226.02101,"882,24658020205 ",.01)
 ;;24658020205
 ;;9002226.02101,"882,24658020205 ",.02)
 ;;24658020205
 ;;9002226.02101,"882,24658020301 ",.01)
 ;;24658020301
 ;;9002226.02101,"882,24658020301 ",.02)
 ;;24658020301
 ;;9002226.02101,"882,24658020305 ",.01)
 ;;24658020305
 ;;9002226.02101,"882,24658020305 ",.02)
 ;;24658020305
 ;;9002226.02101,"882,24658024010 ",.01)
 ;;24658024010
 ;;9002226.02101,"882,24658024010 ",.02)
 ;;24658024010
 ;;9002226.02101,"882,24658024090 ",.01)
 ;;24658024090
 ;;9002226.02101,"882,24658024090 ",.02)
 ;;24658024090
 ;;9002226.02101,"882,24658024110 ",.01)
 ;;24658024110
 ;;9002226.02101,"882,24658024110 ",.02)
 ;;24658024110
 ;;9002226.02101,"882,24658024130 ",.01)
 ;;24658024130
 ;;9002226.02101,"882,24658024130 ",.02)
 ;;24658024130
 ;;9002226.02101,"882,24658024145 ",.01)
 ;;24658024145
 ;;9002226.02101,"882,24658024145 ",.02)
 ;;24658024145
 ;;9002226.02101,"882,24658024190 ",.01)
 ;;24658024190
 ;;9002226.02101,"882,24658024190 ",.02)
 ;;24658024190
 ;;9002226.02101,"882,24658024210 ",.01)
 ;;24658024210
 ;;9002226.02101,"882,24658024210 ",.02)
 ;;24658024210
 ;;9002226.02101,"882,24658024215 ",.01)
 ;;24658024215
 ;;9002226.02101,"882,24658024215 ",.02)
 ;;24658024215
 ;;9002226.02101,"882,24658024218 ",.01)
 ;;24658024218
 ;;9002226.02101,"882,24658024218 ",.02)
 ;;24658024218
 ;;9002226.02101,"882,24658024230 ",.01)
 ;;24658024230
 ;;9002226.02101,"882,24658024230 ",.02)
 ;;24658024230
 ;;9002226.02101,"882,24658024245 ",.01)
 ;;24658024245