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

BGPM5AKD.m

Go to the documentation of this file.
BGPM5AKD ;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,"889,61392042760 ",.01)
 ;;61392042760
 ;;9002226.02101,"889,61392042760 ",.02)
 ;;61392042760
 ;;9002226.02101,"889,61392042790 ",.01)
 ;;61392042790
 ;;9002226.02101,"889,61392042790 ",.02)
 ;;61392042790
 ;;9002226.02101,"889,61392042791 ",.01)
 ;;61392042791
 ;;9002226.02101,"889,61392042791 ",.02)
 ;;61392042791
 ;;9002226.02101,"889,61392043025 ",.01)
 ;;61392043025
 ;;9002226.02101,"889,61392043025 ",.02)
 ;;61392043025
 ;;9002226.02101,"889,61392043030 ",.01)
 ;;61392043030
 ;;9002226.02101,"889,61392043030 ",.02)
 ;;61392043030
 ;;9002226.02101,"889,61392043031 ",.01)
 ;;61392043031
 ;;9002226.02101,"889,61392043031 ",.02)
 ;;61392043031
 ;;9002226.02101,"889,61392043039 ",.01)
 ;;61392043039
 ;;9002226.02101,"889,61392043039 ",.02)
 ;;61392043039
 ;;9002226.02101,"889,61392043045 ",.01)
 ;;61392043045
 ;;9002226.02101,"889,61392043045 ",.02)
 ;;61392043045
 ;;9002226.02101,"889,61392043056 ",.01)
 ;;61392043056
 ;;9002226.02101,"889,61392043056 ",.02)
 ;;61392043056
 ;;9002226.02101,"889,61392043060 ",.01)
 ;;61392043060
 ;;9002226.02101,"889,61392043060 ",.02)
 ;;61392043060
 ;;9002226.02101,"889,61392043065 ",.01)
 ;;61392043065
 ;;9002226.02101,"889,61392043065 ",.02)
 ;;61392043065
 ;;9002226.02101,"889,61392043090 ",.01)
 ;;61392043090
 ;;9002226.02101,"889,61392043090 ",.02)
 ;;61392043090
 ;;9002226.02101,"889,61392043091 ",.01)
 ;;61392043091
 ;;9002226.02101,"889,61392043091 ",.02)
 ;;61392043091
 ;;9002226.02101,"889,61392043095 ",.01)
 ;;61392043095
 ;;9002226.02101,"889,61392043095 ",.02)
 ;;61392043095
 ;;9002226.02101,"889,61392043325 ",.01)
 ;;61392043325
 ;;9002226.02101,"889,61392043325 ",.02)
 ;;61392043325
 ;;9002226.02101,"889,61392043330 ",.01)
 ;;61392043330
 ;;9002226.02101,"889,61392043330 ",.02)
 ;;61392043330
 ;;9002226.02101,"889,61392043331 ",.01)
 ;;61392043331
 ;;9002226.02101,"889,61392043331 ",.02)
 ;;61392043331
 ;;9002226.02101,"889,61392043339 ",.01)
 ;;61392043339
 ;;9002226.02101,"889,61392043339 ",.02)
 ;;61392043339
 ;;9002226.02101,"889,61392043360 ",.01)
 ;;61392043360
 ;;9002226.02101,"889,61392043360 ",.02)
 ;;61392043360
 ;;9002226.02101,"889,61392043390 ",.01)
 ;;61392043390
 ;;9002226.02101,"889,61392043390 ",.02)
 ;;61392043390
 ;;9002226.02101,"889,61392045925 ",.01)
 ;;61392045925
 ;;9002226.02101,"889,61392045925 ",.02)
 ;;61392045925
 ;;9002226.02101,"889,61392045930 ",.01)
 ;;61392045930
 ;;9002226.02101,"889,61392045930 ",.02)
 ;;61392045930
 ;;9002226.02101,"889,61392045931 ",.01)
 ;;61392045931
 ;;9002226.02101,"889,61392045931 ",.02)
 ;;61392045931
 ;;9002226.02101,"889,61392045939 ",.01)
 ;;61392045939
 ;;9002226.02101,"889,61392045939 ",.02)
 ;;61392045939
 ;;9002226.02101,"889,61392045960 ",.01)
 ;;61392045960
 ;;9002226.02101,"889,61392045960 ",.02)
 ;;61392045960
 ;;9002226.02101,"889,61392045965 ",.01)
 ;;61392045965
 ;;9002226.02101,"889,61392045965 ",.02)
 ;;61392045965
 ;;9002226.02101,"889,61392045990 ",.01)
 ;;61392045990
 ;;9002226.02101,"889,61392045990 ",.02)
 ;;61392045990
 ;;9002226.02101,"889,61392045995 ",.01)
 ;;61392045995
 ;;9002226.02101,"889,61392045995 ",.02)
 ;;61392045995
 ;;9002226.02101,"889,61392054223 ",.01)
 ;;61392054223
 ;;9002226.02101,"889,61392054223 ",.02)
 ;;61392054223
 ;;9002226.02101,"889,61392054225 ",.01)
 ;;61392054225
 ;;9002226.02101,"889,61392054225 ",.02)
 ;;61392054225
 ;;9002226.02101,"889,61392054230 ",.01)
 ;;61392054230
 ;;9002226.02101,"889,61392054230 ",.02)
 ;;61392054230
 ;;9002226.02101,"889,61392054231 ",.01)
 ;;61392054231
 ;;9002226.02101,"889,61392054231 ",.02)
 ;;61392054231
 ;;9002226.02101,"889,61392054239 ",.01)
 ;;61392054239
 ;;9002226.02101,"889,61392054239 ",.02)
 ;;61392054239
 ;;9002226.02101,"889,61392054245 ",.01)
 ;;61392054245
 ;;9002226.02101,"889,61392054245 ",.02)
 ;;61392054245
 ;;9002226.02101,"889,61392054251 ",.01)
 ;;61392054251
 ;;9002226.02101,"889,61392054251 ",.02)
 ;;61392054251
 ;;9002226.02101,"889,61392054254 ",.01)
 ;;61392054254
 ;;9002226.02101,"889,61392054254 ",.02)
 ;;61392054254
 ;;9002226.02101,"889,61392054260 ",.01)
 ;;61392054260
 ;;9002226.02101,"889,61392054260 ",.02)
 ;;61392054260
 ;;9002226.02101,"889,61392054265 ",.01)
 ;;61392054265
 ;;9002226.02101,"889,61392054265 ",.02)
 ;;61392054265
 ;;9002226.02101,"889,61392054290 ",.01)
 ;;61392054290
 ;;9002226.02101,"889,61392054290 ",.02)
 ;;61392054290
 ;;9002226.02101,"889,61392054291 ",.01)
 ;;61392054291
 ;;9002226.02101,"889,61392054291 ",.02)
 ;;61392054291
 ;;9002226.02101,"889,61392054295 ",.01)
 ;;61392054295
 ;;9002226.02101,"889,61392054295 ",.02)
 ;;61392054295
 ;;9002226.02101,"889,61392054323 ",.01)
 ;;61392054323
 ;;9002226.02101,"889,61392054323 ",.02)
 ;;61392054323
 ;;9002226.02101,"889,61392054325 ",.01)
 ;;61392054325
 ;;9002226.02101,"889,61392054325 ",.02)
 ;;61392054325
 ;;9002226.02101,"889,61392054330 ",.01)
 ;;61392054330
 ;;9002226.02101,"889,61392054330 ",.02)
 ;;61392054330
 ;;9002226.02101,"889,61392054331 ",.01)
 ;;61392054331
 ;;9002226.02101,"889,61392054331 ",.02)
 ;;61392054331
 ;;9002226.02101,"889,61392054339 ",.01)
 ;;61392054339
 ;;9002226.02101,"889,61392054339 ",.02)
 ;;61392054339
 ;;9002226.02101,"889,61392054345 ",.01)
 ;;61392054345
 ;;9002226.02101,"889,61392054345 ",.02)
 ;;61392054345
 ;;9002226.02101,"889,61392054354 ",.01)
 ;;61392054354
 ;;9002226.02101,"889,61392054354 ",.02)
 ;;61392054354
 ;;9002226.02101,"889,61392054356 ",.01)
 ;;61392054356
 ;;9002226.02101,"889,61392054356 ",.02)
 ;;61392054356
 ;;9002226.02101,"889,61392054360 ",.01)
 ;;61392054360
 ;;9002226.02101,"889,61392054360 ",.02)
 ;;61392054360
 ;;9002226.02101,"889,61392054365 ",.01)
 ;;61392054365
 ;;9002226.02101,"889,61392054365 ",.02)
 ;;61392054365
 ;;9002226.02101,"889,61392054390 ",.01)
 ;;61392054390
 ;;9002226.02101,"889,61392054390 ",.02)
 ;;61392054390
 ;;9002226.02101,"889,61392054391 ",.01)
 ;;61392054391
 ;;9002226.02101,"889,61392054391 ",.02)
 ;;61392054391
 ;;9002226.02101,"889,61392054395 ",.01)
 ;;61392054395
 ;;9002226.02101,"889,61392054395 ",.02)
 ;;61392054395
 ;;9002226.02101,"889,61392054625 ",.01)
 ;;61392054625
 ;;9002226.02101,"889,61392054625 ",.02)
 ;;61392054625
 ;;9002226.02101,"889,61392054630 ",.01)
 ;;61392054630
 ;;9002226.02101,"889,61392054630 ",.02)
 ;;61392054630
 ;;9002226.02101,"889,61392054631 ",.01)
 ;;61392054631
 ;;9002226.02101,"889,61392054631 ",.02)
 ;;61392054631
 ;;9002226.02101,"889,61392054632 ",.01)
 ;;61392054632
 ;;9002226.02101,"889,61392054632 ",.02)
 ;;61392054632
 ;;9002226.02101,"889,61392054639 ",.01)
 ;;61392054639
 ;;9002226.02101,"889,61392054639 ",.02)
 ;;61392054639
 ;;9002226.02101,"889,61392054645 ",.01)
 ;;61392054645
 ;;9002226.02101,"889,61392054645 ",.02)
 ;;61392054645
 ;;9002226.02101,"889,61392054651 ",.01)
 ;;61392054651
 ;;9002226.02101,"889,61392054651 ",.02)
 ;;61392054651
 ;;9002226.02101,"889,61392054654 ",.01)
 ;;61392054654
 ;;9002226.02101,"889,61392054654 ",.02)
 ;;61392054654
 ;;9002226.02101,"889,61392054656 ",.01)
 ;;61392054656
 ;;9002226.02101,"889,61392054656 ",.02)
 ;;61392054656
 ;;9002226.02101,"889,61392054660 ",.01)
 ;;61392054660
 ;;9002226.02101,"889,61392054660 ",.02)
 ;;61392054660
 ;;9002226.02101,"889,61392054665 ",.01)
 ;;61392054665
 ;;9002226.02101,"889,61392054665 ",.02)
 ;;61392054665
 ;;9002226.02101,"889,61392054690 ",.01)
 ;;61392054690
 ;;9002226.02101,"889,61392054690 ",.02)
 ;;61392054690
 ;;9002226.02101,"889,61392054691 ",.01)
 ;;61392054691
 ;;9002226.02101,"889,61392054691 ",.02)
 ;;61392054691
 ;;9002226.02101,"889,61392054695 ",.01)
 ;;61392054695
 ;;9002226.02101,"889,61392054695 ",.02)
 ;;61392054695
 ;;9002226.02101,"889,61392073331 ",.01)
 ;;61392073331
 ;;9002226.02101,"889,61392073331 ",.02)
 ;;61392073331
 ;;9002226.02101,"889,61392073339 ",.01)
 ;;61392073339
 ;;9002226.02101,"889,61392073339 ",.02)
 ;;61392073339
 ;;9002226.02101,"889,61392088331 ",.01)
 ;;61392088331
 ;;9002226.02101,"889,61392088331 ",.02)
 ;;61392088331
 ;;9002226.02101,"889,61392088339 ",.01)
 ;;61392088339
 ;;9002226.02101,"889,61392088339 ",.02)
 ;;61392088339
 ;;9002226.02101,"889,61553033670 ",.01)
 ;;61553033670
 ;;9002226.02101,"889,61553033670 ",.02)
 ;;61553033670
 ;;9002226.02101,"889,61553034172 ",.01)
 ;;61553034172
 ;;9002226.02101,"889,61553034172 ",.02)
 ;;61553034172
 ;;9002226.02101,"889,61570020101 ",.01)
 ;;61570020101
 ;;9002226.02101,"889,61570020101 ",.02)
 ;;61570020101
 ;;9002226.02101,"889,61570020110 ",.01)
 ;;61570020110
 ;;9002226.02101,"889,61570020110 ",.02)
 ;;61570020110
 ;;9002226.02101,"889,61570020201 ",.01)
 ;;61570020201
 ;;9002226.02101,"889,61570020201 ",.02)
 ;;61570020201
 ;;9002226.02101,"889,61570020210 ",.01)
 ;;61570020210
 ;;9002226.02101,"889,61570020210 ",.02)
 ;;61570020210
 ;;9002226.02101,"889,61570020801 ",.01)
 ;;61570020801
 ;;9002226.02101,"889,61570020801 ",.02)
 ;;61570020801
 ;;9002226.02101,"889,61703023322 ",.01)
 ;;61703023322
 ;;9002226.02101,"889,61703023322 ",.02)
 ;;61703023322
 ;;9002226.02101,"889,61703023341 ",.01)
 ;;61703023341
 ;;9002226.02101,"889,61703023341 ",.02)
 ;;61703023341
 ;;9002226.02101,"889,61703023347 ",.01)
 ;;61703023347
 ;;9002226.02101,"889,61703023347 ",.02)
 ;;61703023347
 ;;9002226.02101,"889,61703023348 ",.01)
 ;;61703023348
 ;;9002226.02101,"889,61703023348 ",.02)
 ;;61703023348
 ;;9002226.02101,"889,62528003940 ",.01)
 ;;62528003940
 ;;9002226.02101,"889,62528003940 ",.02)
 ;;62528003940
 ;;9002226.02101,"889,62528003970 ",.01)
 ;;62528003970
 ;;9002226.02101,"889,62528003970 ",.02)
 ;;62528003970
 ;;9002226.02101,"889,62528003980 ",.01)
 ;;62528003980
 ;;9002226.02101,"889,62528003980 ",.02)
 ;;62528003980
 ;;9002226.02101,"889,62528040140 ",.01)
 ;;62528040140
 ;;9002226.02101,"889,62528040140 ",.02)
 ;;62528040140
 ;;9002226.02101,"889,62528040170 ",.01)
 ;;62528040170
 ;;9002226.02101,"889,62528040170 ",.02)
 ;;62528040170
 ;;9002226.02101,"889,62528073440 ",.01)
 ;;62528073440
 ;;9002226.02101,"889,62528073440 ",.02)
 ;;62528073440
 ;;9002226.02101,"889,62528073470 ",.01)
 ;;62528073470
 ;;9002226.02101,"889,62528073470 ",.02)
 ;;62528073470
 ;;9002226.02101,"889,62528073480 ",.01)
 ;;62528073480
 ;;9002226.02101,"889,62528073480 ",.02)
 ;;62528073480
 ;;9002226.02101,"889,62540075201 ",.01)
 ;;62540075201
 ;;9002226.02101,"889,62540075201 ",.02)
 ;;62540075201
 ;;9002226.02101,"889,62540075203 ",.01)
 ;;62540075203
 ;;9002226.02101,"889,62540075203 ",.02)
 ;;62540075203
 ;;9002226.02101,"889,62540075301 ",.01)
 ;;62540075301
 ;;9002226.02101,"889,62540075301 ",.02)
 ;;62540075301
 ;;9002226.02101,"889,62540075302 ",.01)
 ;;62540075302
 ;;9002226.02101,"889,62540075302 ",.02)
 ;;62540075302
 ;;9002226.02101,"889,62540078701 ",.01)
 ;;62540078701
 ;;9002226.02101,"889,62540078701 ",.02)
 ;;62540078701
 ;;9002226.02101,"889,62540078703 ",.01)
 ;;62540078703
 ;;9002226.02101,"889,62540078703 ",.02)
 ;;62540078703
 ;;9002226.02101,"889,62540436401 ",.01)
 ;;62540436401
 ;;9002226.02101,"889,62540436401 ",.02)
 ;;62540436401
 ;;9002226.02101,"889,62540436402 ",.01)
 ;;62540436402
 ;;9002226.02101,"889,62540436402 ",.02)
 ;;62540436402
 ;;9002226.02101,"889,62540436501 ",.01)
 ;;62540436501
 ;;9002226.02101,"889,62540436501 ",.02)
 ;;62540436501
 ;;9002226.02101,"889,62540436502 ",.01)
 ;;62540436502
 ;;9002226.02101,"889,62540436502 ",.02)
 ;;62540436502
 ;;9002226.02101,"889,62540436601 ",.01)
 ;;62540436601
 ;;9002226.02101,"889,62540436601 ",.02)
 ;;62540436601