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

BGPM5AGO.m

Go to the documentation of this file.
BGPM5AGO ;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,41284057100 ",.02)
 ;;41284057100
 ;;9002226.02101,"882,41284057101 ",.01)
 ;;41284057101
 ;;9002226.02101,"882,41284057101 ",.02)
 ;;41284057101
 ;;9002226.02101,"882,41284057150 ",.01)
 ;;41284057150
 ;;9002226.02101,"882,41284057150 ",.02)
 ;;41284057150
 ;;9002226.02101,"882,41284057200 ",.01)
 ;;41284057200
 ;;9002226.02101,"882,41284057200 ",.02)
 ;;41284057200
 ;;9002226.02101,"882,41284057201 ",.01)
 ;;41284057201
 ;;9002226.02101,"882,41284057201 ",.02)
 ;;41284057201
 ;;9002226.02101,"882,41284057250 ",.01)
 ;;41284057250
 ;;9002226.02101,"882,41284057250 ",.02)
 ;;41284057250
 ;;9002226.02101,"882,41284057300 ",.01)
 ;;41284057300
 ;;9002226.02101,"882,41284057300 ",.02)
 ;;41284057300
 ;;9002226.02101,"882,41284057301 ",.01)
 ;;41284057301
 ;;9002226.02101,"882,41284057301 ",.02)
 ;;41284057301
 ;;9002226.02101,"882,41284057350 ",.01)
 ;;41284057350
 ;;9002226.02101,"882,41284057350 ",.02)
 ;;41284057350
 ;;9002226.02101,"882,43063000701 ",.01)
 ;;43063000701
 ;;9002226.02101,"882,43063000701 ",.02)
 ;;43063000701
 ;;9002226.02101,"882,43063003201 ",.01)
 ;;43063003201
 ;;9002226.02101,"882,43063003201 ",.02)
 ;;43063003201
 ;;9002226.02101,"882,43063006530 ",.01)
 ;;43063006530
 ;;9002226.02101,"882,43063006530 ",.02)
 ;;43063006530
 ;;9002226.02101,"882,43063006590 ",.01)
 ;;43063006590
 ;;9002226.02101,"882,43063006590 ",.02)
 ;;43063006590
 ;;9002226.02101,"882,43063011830 ",.01)
 ;;43063011830
 ;;9002226.02101,"882,43063011830 ",.02)
 ;;43063011830
 ;;9002226.02101,"882,43063011890 ",.01)
 ;;43063011890
 ;;9002226.02101,"882,43063011890 ",.02)
 ;;43063011890
 ;;9002226.02101,"882,43063013090 ",.01)
 ;;43063013090
 ;;9002226.02101,"882,43063013090 ",.02)
 ;;43063013090
 ;;9002226.02101,"882,43063013890 ",.01)
 ;;43063013890
 ;;9002226.02101,"882,43063013890 ",.02)
 ;;43063013890
 ;;9002226.02101,"882,43063014630 ",.01)
 ;;43063014630
 ;;9002226.02101,"882,43063014630 ",.02)
 ;;43063014630
 ;;9002226.02101,"882,43063030330 ",.01)
 ;;43063030330
 ;;9002226.02101,"882,43063030330 ",.02)
 ;;43063030330
 ;;9002226.02101,"882,43353004532 ",.01)
 ;;43353004532
 ;;9002226.02101,"882,43353004532 ",.02)
 ;;43353004532
 ;;9002226.02101,"882,43353004580 ",.01)
 ;;43353004580
 ;;9002226.02101,"882,43353004580 ",.02)
 ;;43353004580
 ;;9002226.02101,"882,43353005230 ",.01)
 ;;43353005230
 ;;9002226.02101,"882,43353005230 ",.02)
 ;;43353005230
 ;;9002226.02101,"882,43353005260 ",.01)
 ;;43353005260
 ;;9002226.02101,"882,43353005260 ",.02)
 ;;43353005260
 ;;9002226.02101,"882,43353030930 ",.01)
 ;;43353030930
 ;;9002226.02101,"882,43353030930 ",.02)
 ;;43353030930
 ;;9002226.02101,"882,43353030953 ",.01)
 ;;43353030953
 ;;9002226.02101,"882,43353030953 ",.02)
 ;;43353030953
 ;;9002226.02101,"882,43353031360 ",.01)
 ;;43353031360
 ;;9002226.02101,"882,43353031360 ",.02)
 ;;43353031360
 ;;9002226.02101,"882,43353031860 ",.01)
 ;;43353031860
 ;;9002226.02101,"882,43353031860 ",.02)
 ;;43353031860
 ;;9002226.02101,"882,43353035030 ",.01)
 ;;43353035030
 ;;9002226.02101,"882,43353035030 ",.02)
 ;;43353035030
 ;;9002226.02101,"882,43353035045 ",.01)
 ;;43353035045
 ;;9002226.02101,"882,43353035045 ",.02)
 ;;43353035045
 ;;9002226.02101,"882,43353035060 ",.01)
 ;;43353035060
 ;;9002226.02101,"882,43353035060 ",.02)
 ;;43353035060
 ;;9002226.02101,"882,43353035080 ",.01)
 ;;43353035080
 ;;9002226.02101,"882,43353035080 ",.02)
 ;;43353035080
 ;;9002226.02101,"882,43353035460 ",.01)
 ;;43353035460
 ;;9002226.02101,"882,43353035460 ",.02)
 ;;43353035460
 ;;9002226.02101,"882,43353035560 ",.01)
 ;;43353035560
 ;;9002226.02101,"882,43353035560 ",.02)
 ;;43353035560
 ;;9002226.02101,"882,43353036330 ",.01)
 ;;43353036330
 ;;9002226.02101,"882,43353036330 ",.02)
 ;;43353036330
 ;;9002226.02101,"882,43353036360 ",.01)
 ;;43353036360
 ;;9002226.02101,"882,43353036360 ",.02)
 ;;43353036360
 ;;9002226.02101,"882,43353036515 ",.01)
 ;;43353036515
 ;;9002226.02101,"882,43353036515 ",.02)
 ;;43353036515
 ;;9002226.02101,"882,43353036530 ",.01)
 ;;43353036530
 ;;9002226.02101,"882,43353036530 ",.02)
 ;;43353036530
 ;;9002226.02101,"882,43353036545 ",.01)
 ;;43353036545
 ;;9002226.02101,"882,43353036545 ",.02)
 ;;43353036545
 ;;9002226.02101,"882,43353036560 ",.01)
 ;;43353036560
 ;;9002226.02101,"882,43353036560 ",.02)
 ;;43353036560
 ;;9002226.02101,"882,43353037115 ",.01)
 ;;43353037115
 ;;9002226.02101,"882,43353037115 ",.02)
 ;;43353037115
 ;;9002226.02101,"882,43353037130 ",.01)
 ;;43353037130
 ;;9002226.02101,"882,43353037130 ",.02)
 ;;43353037130
 ;;9002226.02101,"882,43353037145 ",.01)
 ;;43353037145
 ;;9002226.02101,"882,43353037145 ",.02)
 ;;43353037145
 ;;9002226.02101,"882,43353037160 ",.01)
 ;;43353037160
 ;;9002226.02101,"882,43353037160 ",.02)
 ;;43353037160
 ;;9002226.02101,"882,43353037180 ",.01)
 ;;43353037180
 ;;9002226.02101,"882,43353037180 ",.02)
 ;;43353037180
 ;;9002226.02101,"882,43353037430 ",.01)
 ;;43353037430
 ;;9002226.02101,"882,43353037430 ",.02)
 ;;43353037430
 ;;9002226.02101,"882,43353037460 ",.01)
 ;;43353037460
 ;;9002226.02101,"882,43353037460 ",.02)
 ;;43353037460
 ;;9002226.02101,"882,43353041160 ",.01)
 ;;43353041160
 ;;9002226.02101,"882,43353041160 ",.02)
 ;;43353041160
 ;;9002226.02101,"882,43353048845 ",.01)
 ;;43353048845
 ;;9002226.02101,"882,43353048845 ",.02)
 ;;43353048845
 ;;9002226.02101,"882,43353048860 ",.01)
 ;;43353048860
 ;;9002226.02101,"882,43353048860 ",.02)
 ;;43353048860
 ;;9002226.02101,"882,43353051645 ",.01)
 ;;43353051645
 ;;9002226.02101,"882,43353051645 ",.02)
 ;;43353051645
 ;;9002226.02101,"882,43353052160 ",.01)
 ;;43353052160
 ;;9002226.02101,"882,43353052160 ",.02)
 ;;43353052160
 ;;9002226.02101,"882,43353052180 ",.01)
 ;;43353052180
 ;;9002226.02101,"882,43353052180 ",.02)
 ;;43353052180
 ;;9002226.02101,"882,43353059630 ",.01)
 ;;43353059630
 ;;9002226.02101,"882,43353059630 ",.02)
 ;;43353059630
 ;;9002226.02101,"882,43353059660 ",.01)
 ;;43353059660
 ;;9002226.02101,"882,43353059660 ",.02)
 ;;43353059660
 ;;9002226.02101,"882,43353062660 ",.01)
 ;;43353062660
 ;;9002226.02101,"882,43353062660 ",.02)
 ;;43353062660
 ;;9002226.02101,"882,43353064360 ",.01)
 ;;43353064360
 ;;9002226.02101,"882,43353064360 ",.02)
 ;;43353064360
 ;;9002226.02101,"882,43353071260 ",.01)
 ;;43353071260
 ;;9002226.02101,"882,43353071260 ",.02)
 ;;43353071260
 ;;9002226.02101,"882,43683014730 ",.01)
 ;;43683014730
 ;;9002226.02101,"882,43683014730 ",.02)
 ;;43683014730
 ;;9002226.02101,"882,43683014830 ",.01)
 ;;43683014830
 ;;9002226.02101,"882,43683014830 ",.02)
 ;;43683014830
 ;;9002226.02101,"882,43806013240 ",.01)
 ;;43806013240
 ;;9002226.02101,"882,43806013240 ",.02)
 ;;43806013240
 ;;9002226.02101,"882,43806013270 ",.01)
 ;;43806013270
 ;;9002226.02101,"882,43806013270 ",.02)
 ;;43806013270
 ;;9002226.02101,"882,43806013280 ",.01)
 ;;43806013280
 ;;9002226.02101,"882,43806013280 ",.02)
 ;;43806013280
 ;;9002226.02101,"882,43806013340 ",.01)
 ;;43806013340
 ;;9002226.02101,"882,43806013340 ",.02)
 ;;43806013340
 ;;9002226.02101,"882,43806013370 ",.01)
 ;;43806013370
 ;;9002226.02101,"882,43806013370 ",.02)
 ;;43806013370
 ;;9002226.02101,"882,43806013380 ",.01)
 ;;43806013380
 ;;9002226.02101,"882,43806013380 ",.02)
 ;;43806013380
 ;;9002226.02101,"882,43806013440 ",.01)
 ;;43806013440
 ;;9002226.02101,"882,43806013440 ",.02)
 ;;43806013440
 ;;9002226.02101,"882,43806013470 ",.01)
 ;;43806013470
 ;;9002226.02101,"882,43806013470 ",.02)
 ;;43806013470
 ;;9002226.02101,"882,43806013480 ",.01)
 ;;43806013480
 ;;9002226.02101,"882,43806013480 ",.02)
 ;;43806013480
 ;;9002226.02101,"882,43806013540 ",.01)
 ;;43806013540
 ;;9002226.02101,"882,43806013540 ",.02)
 ;;43806013540
 ;;9002226.02101,"882,43806013570 ",.01)
 ;;43806013570
 ;;9002226.02101,"882,43806013570 ",.02)
 ;;43806013570
 ;;9002226.02101,"882,43806013580 ",.01)
 ;;43806013580
 ;;9002226.02101,"882,43806013580 ",.02)
 ;;43806013580
 ;;9002226.02101,"882,44514048018 ",.01)
 ;;44514048018
 ;;9002226.02101,"882,44514048018 ",.02)
 ;;44514048018
 ;;9002226.02101,"882,44514048110 ",.01)
 ;;44514048110
 ;;9002226.02101,"882,44514048110 ",.02)
 ;;44514048110
 ;;9002226.02101,"882,44514048218 ",.01)
 ;;44514048218
 ;;9002226.02101,"882,44514048218 ",.02)
 ;;44514048218
 ;;9002226.02101,"882,44514048318 ",.01)
 ;;44514048318
 ;;9002226.02101,"882,44514048318 ",.02)
 ;;44514048318
 ;;9002226.02101,"882,48581612101 ",.01)
 ;;48581612101
 ;;9002226.02101,"882,48581612101 ",.02)
 ;;48581612101
 ;;9002226.02101,"882,48581612103 ",.01)
 ;;48581612103
 ;;9002226.02101,"882,48581612103 ",.02)
 ;;48581612103
 ;;9002226.02101,"882,48581612201 ",.01)
 ;;48581612201
 ;;9002226.02101,"882,48581612201 ",.02)
 ;;48581612201
 ;;9002226.02101,"882,48581612203 ",.01)
 ;;48581612203
 ;;9002226.02101,"882,48581612203 ",.02)
 ;;48581612203
 ;;9002226.02101,"882,48581612301 ",.01)
 ;;48581612301
 ;;9002226.02101,"882,48581612301 ",.02)
 ;;48581612301
 ;;9002226.02101,"882,48581612303 ",.01)
 ;;48581612303
 ;;9002226.02101,"882,48581612303 ",.02)
 ;;48581612303
 ;;9002226.02101,"882,48581612401 ",.01)
 ;;48581612401
 ;;9002226.02101,"882,48581612401 ",.02)
 ;;48581612401
 ;;9002226.02101,"882,48581612403 ",.01)
 ;;48581612403
 ;;9002226.02101,"882,48581612403 ",.02)
 ;;48581612403
 ;;9002226.02101,"882,4868465600 ",.01)
 ;;4868465600
 ;;9002226.02101,"882,4868465600 ",.02)
 ;;4868465600
 ;;9002226.02101,"882,48866030100 ",.01)
 ;;48866030100
 ;;9002226.02101,"882,48866030100 ",.02)
 ;;48866030100
 ;;9002226.02101,"882,48866030101 ",.01)
 ;;48866030101
 ;;9002226.02101,"882,48866030101 ",.02)
 ;;48866030101
 ;;9002226.02101,"882,48866030102 ",.01)
 ;;48866030102
 ;;9002226.02101,"882,48866030102 ",.02)
 ;;48866030102
 ;;9002226.02101,"882,48866030200 ",.01)
 ;;48866030200
 ;;9002226.02101,"882,48866030200 ",.02)
 ;;48866030200
 ;;9002226.02101,"882,48866030201 ",.01)
 ;;48866030201
 ;;9002226.02101,"882,48866030201 ",.02)
 ;;48866030201
 ;;9002226.02101,"882,48866030202 ",.01)
 ;;48866030202
 ;;9002226.02101,"882,48866030202 ",.02)
 ;;48866030202
 ;;9002226.02101,"882,48866030300 ",.01)
 ;;48866030300
 ;;9002226.02101,"882,48866030300 ",.02)
 ;;48866030300
 ;;9002226.02101,"882,48866030301 ",.01)
 ;;48866030301
 ;;9002226.02101,"882,48866030301 ",.02)
 ;;48866030301
 ;;9002226.02101,"882,48866030302 ",.01)
 ;;48866030302
 ;;9002226.02101,"882,48866030302 ",.02)
 ;;48866030302
 ;;9002226.02101,"882,48866030400 ",.01)
 ;;48866030400
 ;;9002226.02101,"882,48866030400 ",.02)
 ;;48866030400
 ;;9002226.02101,"882,48866030401 ",.01)
 ;;48866030401
 ;;9002226.02101,"882,48866030401 ",.02)
 ;;48866030401
 ;;9002226.02101,"882,48866030402 ",.01)
 ;;48866030402
 ;;9002226.02101,"882,48866030402 ",.02)
 ;;48866030402
 ;;9002226.02101,"882,48866070100 ",.01)
 ;;48866070100
 ;;9002226.02101,"882,48866070100 ",.02)
 ;;48866070100
 ;;9002226.02101,"882,48866070101 ",.01)
 ;;48866070101
 ;;9002226.02101,"882,48866070101 ",.02)
 ;;48866070101
 ;;9002226.02101,"882,48866070102 ",.01)
 ;;48866070102
 ;;9002226.02101,"882,48866070102 ",.02)
 ;;48866070102
 ;;9002226.02101,"882,48866070103 ",.01)
 ;;48866070103
 ;;9002226.02101,"882,48866070103 ",.02)
 ;;48866070103
 ;;9002226.02101,"882,48866070200 ",.01)
 ;;48866070200
 ;;9002226.02101,"882,48866070200 ",.02)
 ;;48866070200
 ;;9002226.02101,"882,48866070201 ",.01)
 ;;48866070201
 ;;9002226.02101,"882,48866070201 ",.02)
 ;;48866070201
 ;;9002226.02101,"882,48866070202 ",.01)
 ;;48866070202