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

BGPM5ACC.m

Go to the documentation of this file.
BGPM5ACC ;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,"830,65243028918 ",.02)
 ;;65243028918
 ;;9002226.02101,"830,65243028927 ",.01)
 ;;65243028927
 ;;9002226.02101,"830,65243028927 ",.02)
 ;;65243028927
 ;;9002226.02101,"830,65243037103 ",.01)
 ;;65243037103
 ;;9002226.02101,"830,65243037103 ",.02)
 ;;65243037103
 ;;9002226.02101,"830,65243037106 ",.01)
 ;;65243037106
 ;;9002226.02101,"830,65243037106 ",.02)
 ;;65243037106
 ;;9002226.02101,"830,65243037109 ",.01)
 ;;65243037109
 ;;9002226.02101,"830,65243037109 ",.02)
 ;;65243037109
 ;;9002226.02101,"830,65243037112 ",.01)
 ;;65243037112
 ;;9002226.02101,"830,65243037112 ",.02)
 ;;65243037112
 ;;9002226.02101,"830,65243037118 ",.01)
 ;;65243037118
 ;;9002226.02101,"830,65243037118 ",.02)
 ;;65243037118
 ;;9002226.02101,"830,65243037203 ",.01)
 ;;65243037203
 ;;9002226.02101,"830,65243037203 ",.02)
 ;;65243037203
 ;;9002226.02101,"830,65243037206 ",.01)
 ;;65243037206
 ;;9002226.02101,"830,65243037206 ",.02)
 ;;65243037206
 ;;9002226.02101,"830,65243037209 ",.01)
 ;;65243037209
 ;;9002226.02101,"830,65243037209 ",.02)
 ;;65243037209
 ;;9002226.02101,"830,65243037212 ",.01)
 ;;65243037212
 ;;9002226.02101,"830,65243037212 ",.02)
 ;;65243037212
 ;;9002226.02101,"830,65243037218 ",.01)
 ;;65243037218
 ;;9002226.02101,"830,65243037218 ",.02)
 ;;65243037218
 ;;9002226.02101,"830,65841002701 ",.01)
 ;;65841002701
 ;;9002226.02101,"830,65841002701 ",.02)
 ;;65841002701
 ;;9002226.02101,"830,65841002705 ",.01)
 ;;65841002705
 ;;9002226.02101,"830,65841002705 ",.02)
 ;;65841002705
 ;;9002226.02101,"830,65841002801 ",.01)
 ;;65841002801
 ;;9002226.02101,"830,65841002801 ",.02)
 ;;65841002801
 ;;9002226.02101,"830,65841002805 ",.01)
 ;;65841002805
 ;;9002226.02101,"830,65841002805 ",.02)
 ;;65841002805
 ;;9002226.02101,"830,65841002810 ",.01)
 ;;65841002810
 ;;9002226.02101,"830,65841002810 ",.02)
 ;;65841002810
 ;;9002226.02101,"830,65841002816 ",.01)
 ;;65841002816
 ;;9002226.02101,"830,65841002816 ",.02)
 ;;65841002816
 ;;9002226.02101,"830,65841002830 ",.01)
 ;;65841002830
 ;;9002226.02101,"830,65841002830 ",.02)
 ;;65841002830
 ;;9002226.02101,"830,65841002861 ",.01)
 ;;65841002861
 ;;9002226.02101,"830,65841002861 ",.02)
 ;;65841002861
 ;;9002226.02101,"830,65841002901 ",.01)
 ;;65841002901
 ;;9002226.02101,"830,65841002901 ",.02)
 ;;65841002901
 ;;9002226.02101,"830,65841002905 ",.01)
 ;;65841002905
 ;;9002226.02101,"830,65841002905 ",.02)
 ;;65841002905
 ;;9002226.02101,"830,65841002910 ",.01)
 ;;65841002910
 ;;9002226.02101,"830,65841002910 ",.02)
 ;;65841002910
 ;;9002226.02101,"830,65841002916 ",.01)
 ;;65841002916
 ;;9002226.02101,"830,65841002916 ",.02)
 ;;65841002916
 ;;9002226.02101,"830,65841002930 ",.01)
 ;;65841002930
 ;;9002226.02101,"830,65841002930 ",.02)
 ;;65841002930
 ;;9002226.02101,"830,65841002961 ",.01)
 ;;65841002961
 ;;9002226.02101,"830,65841002961 ",.02)
 ;;65841002961
 ;;9002226.02101,"830,65841003001 ",.01)
 ;;65841003001
 ;;9002226.02101,"830,65841003001 ",.02)
 ;;65841003001
 ;;9002226.02101,"830,65841003005 ",.01)
 ;;65841003005
 ;;9002226.02101,"830,65841003005 ",.02)
 ;;65841003005
 ;;9002226.02101,"830,65841003010 ",.01)
 ;;65841003010
 ;;9002226.02101,"830,65841003010 ",.02)
 ;;65841003010
 ;;9002226.02101,"830,65841003016 ",.01)
 ;;65841003016
 ;;9002226.02101,"830,65841003016 ",.02)
 ;;65841003016
 ;;9002226.02101,"830,65841003030 ",.01)
 ;;65841003030
 ;;9002226.02101,"830,65841003030 ",.02)
 ;;65841003030
 ;;9002226.02101,"830,65841003061 ",.01)
 ;;65841003061
 ;;9002226.02101,"830,65841003061 ",.02)
 ;;65841003061
 ;;9002226.02101,"830,65841003901 ",.01)
 ;;65841003901
 ;;9002226.02101,"830,65841003901 ",.02)
 ;;65841003901
 ;;9002226.02101,"830,65841003905 ",.01)
 ;;65841003905
 ;;9002226.02101,"830,65841003905 ",.02)
 ;;65841003905
 ;;9002226.02101,"830,65862000801 ",.01)
 ;;65862000801
 ;;9002226.02101,"830,65862000801 ",.02)
 ;;65862000801
 ;;9002226.02101,"830,65862000805 ",.01)
 ;;65862000805
 ;;9002226.02101,"830,65862000805 ",.02)
 ;;65862000805
 ;;9002226.02101,"830,65862000833 ",.01)
 ;;65862000833
 ;;9002226.02101,"830,65862000833 ",.02)
 ;;65862000833
 ;;9002226.02101,"830,65862000845 ",.01)
 ;;65862000845
 ;;9002226.02101,"830,65862000845 ",.02)
 ;;65862000845
 ;;9002226.02101,"830,65862000849 ",.01)
 ;;65862000849
 ;;9002226.02101,"830,65862000849 ",.02)
 ;;65862000849
 ;;9002226.02101,"830,65862000850 ",.01)
 ;;65862000850
 ;;9002226.02101,"830,65862000850 ",.02)
 ;;65862000850
 ;;9002226.02101,"830,65862000860 ",.01)
 ;;65862000860
 ;;9002226.02101,"830,65862000860 ",.02)
 ;;65862000860
 ;;9002226.02101,"830,65862000890 ",.01)
 ;;65862000890
 ;;9002226.02101,"830,65862000890 ",.02)
 ;;65862000890
 ;;9002226.02101,"830,65862000899 ",.01)
 ;;65862000899
 ;;9002226.02101,"830,65862000899 ",.02)
 ;;65862000899
 ;;9002226.02101,"830,65862000901 ",.01)
 ;;65862000901
 ;;9002226.02101,"830,65862000901 ",.02)
 ;;65862000901
 ;;9002226.02101,"830,65862000905 ",.01)
 ;;65862000905
 ;;9002226.02101,"830,65862000905 ",.02)
 ;;65862000905
 ;;9002226.02101,"830,65862000926 ",.01)
 ;;65862000926
 ;;9002226.02101,"830,65862000926 ",.02)
 ;;65862000926
 ;;9002226.02101,"830,65862000933 ",.01)
 ;;65862000933
 ;;9002226.02101,"830,65862000933 ",.02)
 ;;65862000933
 ;;9002226.02101,"830,65862000944 ",.01)
 ;;65862000944
 ;;9002226.02101,"830,65862000944 ",.02)
 ;;65862000944
 ;;9002226.02101,"830,65862000950 ",.01)
 ;;65862000950
 ;;9002226.02101,"830,65862000950 ",.02)
 ;;65862000950
 ;;9002226.02101,"830,65862000960 ",.01)
 ;;65862000960
 ;;9002226.02101,"830,65862000960 ",.02)
 ;;65862000960
 ;;9002226.02101,"830,65862000990 ",.01)
 ;;65862000990
 ;;9002226.02101,"830,65862000990 ",.02)
 ;;65862000990
 ;;9002226.02101,"830,65862000999 ",.01)
 ;;65862000999
 ;;9002226.02101,"830,65862000999 ",.02)
 ;;65862000999
 ;;9002226.02101,"830,65862001001 ",.01)
 ;;65862001001
 ;;9002226.02101,"830,65862001001 ",.02)
 ;;65862001001
 ;;9002226.02101,"830,65862001005 ",.01)
 ;;65862001005
 ;;9002226.02101,"830,65862001005 ",.02)
 ;;65862001005
 ;;9002226.02101,"830,65862001022 ",.01)
 ;;65862001022
 ;;9002226.02101,"830,65862001022 ",.02)
 ;;65862001022
 ;;9002226.02101,"830,65862001033 ",.01)
 ;;65862001033
 ;;9002226.02101,"830,65862001033 ",.02)
 ;;65862001033
 ;;9002226.02101,"830,65862001046 ",.01)
 ;;65862001046
 ;;9002226.02101,"830,65862001046 ",.02)
 ;;65862001046
 ;;9002226.02101,"830,65862001050 ",.01)
 ;;65862001050
 ;;9002226.02101,"830,65862001050 ",.02)
 ;;65862001050
 ;;9002226.02101,"830,65862001060 ",.01)
 ;;65862001060
 ;;9002226.02101,"830,65862001060 ",.02)
 ;;65862001060
 ;;9002226.02101,"830,65862001090 ",.01)
 ;;65862001090
 ;;9002226.02101,"830,65862001090 ",.02)
 ;;65862001090
 ;;9002226.02101,"830,65862001099 ",.01)
 ;;65862001099
 ;;9002226.02101,"830,65862001099 ",.02)
 ;;65862001099
 ;;9002226.02101,"830,65862008001 ",.01)
 ;;65862008001
 ;;9002226.02101,"830,65862008001 ",.02)
 ;;65862008001
 ;;9002226.02101,"830,65862008005 ",.01)
 ;;65862008005
 ;;9002226.02101,"830,65862008005 ",.02)
 ;;65862008005
 ;;9002226.02101,"830,65862008030 ",.01)
 ;;65862008030
 ;;9002226.02101,"830,65862008030 ",.02)
 ;;65862008030
 ;;9002226.02101,"830,65862008036 ",.01)
 ;;65862008036
 ;;9002226.02101,"830,65862008036 ",.02)
 ;;65862008036
 ;;9002226.02101,"830,65862008101 ",.01)
 ;;65862008101
 ;;9002226.02101,"830,65862008101 ",.02)
 ;;65862008101
 ;;9002226.02101,"830,65862008105 ",.01)
 ;;65862008105
 ;;9002226.02101,"830,65862008105 ",.02)
 ;;65862008105
 ;;9002226.02101,"830,65862008118 ",.01)
 ;;65862008118
 ;;9002226.02101,"830,65862008118 ",.02)
 ;;65862008118
 ;;9002226.02101,"830,65862008130 ",.01)
 ;;65862008130
 ;;9002226.02101,"830,65862008130 ",.02)
 ;;65862008130
 ;;9002226.02101,"830,65862008201 ",.01)
 ;;65862008201
 ;;9002226.02101,"830,65862008201 ",.02)
 ;;65862008201
 ;;9002226.02101,"830,65862008205 ",.01)
 ;;65862008205
 ;;9002226.02101,"830,65862008205 ",.02)
 ;;65862008205
 ;;9002226.02101,"830,65862008218 ",.01)
 ;;65862008218
 ;;9002226.02101,"830,65862008218 ",.02)
 ;;65862008218
 ;;9002226.02101,"830,65862008230 ",.01)
 ;;65862008230
 ;;9002226.02101,"830,65862008230 ",.02)
 ;;65862008230
 ;;9002226.02101,"830,66039015901 ",.01)
 ;;66039015901
 ;;9002226.02101,"830,66039015901 ",.02)
 ;;66039015901
 ;;9002226.02101,"830,66039015905 ",.01)
 ;;66039015905
 ;;9002226.02101,"830,66039015905 ",.02)
 ;;66039015905
 ;;9002226.02101,"830,66039016001 ",.01)
 ;;66039016001
 ;;9002226.02101,"830,66039016001 ",.02)
 ;;66039016001
 ;;9002226.02101,"830,66039016101 ",.01)
 ;;66039016101
 ;;9002226.02101,"830,66039016101 ",.02)
 ;;66039016101
 ;;9002226.02101,"830,66105060010 ",.01)
 ;;66105060010
 ;;9002226.02101,"830,66105060010 ",.02)
 ;;66105060010
 ;;9002226.02101,"830,66105060110 ",.01)
 ;;66105060110
 ;;9002226.02101,"830,66105060110 ",.02)
 ;;66105060110
 ;;9002226.02101,"830,66105063202 ",.01)
 ;;66105063202
 ;;9002226.02101,"830,66105063202 ",.02)
 ;;66105063202
 ;;9002226.02101,"830,66105063203 ",.01)
 ;;66105063203
 ;;9002226.02101,"830,66105063203 ",.02)
 ;;66105063203
 ;;9002226.02101,"830,66105063206 ",.01)
 ;;66105063206
 ;;9002226.02101,"830,66105063206 ",.02)
 ;;66105063206
 ;;9002226.02101,"830,66105063209 ",.01)
 ;;66105063209
 ;;9002226.02101,"830,66105063209 ",.02)
 ;;66105063209
 ;;9002226.02101,"830,66105063210 ",.01)
 ;;66105063210
 ;;9002226.02101,"830,66105063210 ",.02)
 ;;66105063210
 ;;9002226.02101,"830,66105074323 ",.01)
 ;;66105074323
 ;;9002226.02101,"830,66105074323 ",.02)
 ;;66105074323
 ;;9002226.02101,"830,66105074423 ",.01)
 ;;66105074423
 ;;9002226.02101,"830,66105074423 ",.02)
 ;;66105074423
 ;;9002226.02101,"830,66116030530 ",.01)
 ;;66116030530
 ;;9002226.02101,"830,66116030530 ",.02)
 ;;66116030530
 ;;9002226.02101,"830,66116030660 ",.01)
 ;;66116030660
 ;;9002226.02101,"830,66116030660 ",.02)
 ;;66116030660
 ;;9002226.02101,"830,66116080130 ",.01)
 ;;66116080130
 ;;9002226.02101,"830,66116080130 ",.02)
 ;;66116080130
 ;;9002226.02101,"830,66116087030 ",.01)
 ;;66116087030
 ;;9002226.02101,"830,66116087030 ",.02)
 ;;66116087030
 ;;9002226.02101,"830,66267049305 ",.01)
 ;;66267049305
 ;;9002226.02101,"830,66267049305 ",.02)
 ;;66267049305
 ;;9002226.02101,"830,66267049312 ",.01)
 ;;66267049312
 ;;9002226.02101,"830,66267049312 ",.02)
 ;;66267049312
 ;;9002226.02101,"830,66267049314 ",.01)
 ;;66267049314
 ;;9002226.02101,"830,66267049314 ",.02)
 ;;66267049314
 ;;9002226.02101,"830,66267049318 ",.01)
 ;;66267049318
 ;;9002226.02101,"830,66267049318 ",.02)
 ;;66267049318
 ;;9002226.02101,"830,66267049320 ",.01)
 ;;66267049320
 ;;9002226.02101,"830,66267049320 ",.02)
 ;;66267049320
 ;;9002226.02101,"830,66267049330 ",.01)
 ;;66267049330
 ;;9002226.02101,"830,66267049330 ",.02)
 ;;66267049330
 ;;9002226.02101,"830,66267049340 ",.01)
 ;;66267049340
 ;;9002226.02101,"830,66267049340 ",.02)
 ;;66267049340
 ;;9002226.02101,"830,66267049360 ",.01)
 ;;66267049360
 ;;9002226.02101,"830,66267049360 ",.02)
 ;;66267049360
 ;;9002226.02101,"830,66267049391 ",.01)
 ;;66267049391
 ;;9002226.02101,"830,66267049391 ",.02)
 ;;66267049391
 ;;9002226.02101,"830,66267049392 ",.01)
 ;;66267049392
 ;;9002226.02101,"830,66267049392 ",.02)
 ;;66267049392
 ;;9002226.02101,"830,66267049720 ",.01)
 ;;66267049720
 ;;9002226.02101,"830,66267049720 ",.02)
 ;;66267049720
 ;;9002226.02101,"830,66267049730 ",.01)
 ;;66267049730
 ;;9002226.02101,"830,66267049730 ",.02)
 ;;66267049730
 ;;9002226.02101,"830,66267049740 ",.01)
 ;;66267049740