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.
  1. BGPM5AKD ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"889,61392042760 ",.01)
  1. ;;61392042760
  1. ;;9002226.02101,"889,61392042760 ",.02)
  1. ;;61392042760
  1. ;;9002226.02101,"889,61392042790 ",.01)
  1. ;;61392042790
  1. ;;9002226.02101,"889,61392042790 ",.02)
  1. ;;61392042790
  1. ;;9002226.02101,"889,61392042791 ",.01)
  1. ;;61392042791
  1. ;;9002226.02101,"889,61392042791 ",.02)
  1. ;;61392042791
  1. ;;9002226.02101,"889,61392043025 ",.01)
  1. ;;61392043025
  1. ;;9002226.02101,"889,61392043025 ",.02)
  1. ;;61392043025
  1. ;;9002226.02101,"889,61392043030 ",.01)
  1. ;;61392043030
  1. ;;9002226.02101,"889,61392043030 ",.02)
  1. ;;61392043030
  1. ;;9002226.02101,"889,61392043031 ",.01)
  1. ;;61392043031
  1. ;;9002226.02101,"889,61392043031 ",.02)
  1. ;;61392043031
  1. ;;9002226.02101,"889,61392043039 ",.01)
  1. ;;61392043039
  1. ;;9002226.02101,"889,61392043039 ",.02)
  1. ;;61392043039
  1. ;;9002226.02101,"889,61392043045 ",.01)
  1. ;;61392043045
  1. ;;9002226.02101,"889,61392043045 ",.02)
  1. ;;61392043045
  1. ;;9002226.02101,"889,61392043056 ",.01)
  1. ;;61392043056
  1. ;;9002226.02101,"889,61392043056 ",.02)
  1. ;;61392043056
  1. ;;9002226.02101,"889,61392043060 ",.01)
  1. ;;61392043060
  1. ;;9002226.02101,"889,61392043060 ",.02)
  1. ;;61392043060
  1. ;;9002226.02101,"889,61392043065 ",.01)
  1. ;;61392043065
  1. ;;9002226.02101,"889,61392043065 ",.02)
  1. ;;61392043065
  1. ;;9002226.02101,"889,61392043090 ",.01)
  1. ;;61392043090
  1. ;;9002226.02101,"889,61392043090 ",.02)
  1. ;;61392043090
  1. ;;9002226.02101,"889,61392043091 ",.01)
  1. ;;61392043091
  1. ;;9002226.02101,"889,61392043091 ",.02)
  1. ;;61392043091
  1. ;;9002226.02101,"889,61392043095 ",.01)
  1. ;;61392043095
  1. ;;9002226.02101,"889,61392043095 ",.02)
  1. ;;61392043095
  1. ;;9002226.02101,"889,61392043325 ",.01)
  1. ;;61392043325
  1. ;;9002226.02101,"889,61392043325 ",.02)
  1. ;;61392043325
  1. ;;9002226.02101,"889,61392043330 ",.01)
  1. ;;61392043330
  1. ;;9002226.02101,"889,61392043330 ",.02)
  1. ;;61392043330
  1. ;;9002226.02101,"889,61392043331 ",.01)
  1. ;;61392043331
  1. ;;9002226.02101,"889,61392043331 ",.02)
  1. ;;61392043331
  1. ;;9002226.02101,"889,61392043339 ",.01)
  1. ;;61392043339
  1. ;;9002226.02101,"889,61392043339 ",.02)
  1. ;;61392043339
  1. ;;9002226.02101,"889,61392043360 ",.01)
  1. ;;61392043360
  1. ;;9002226.02101,"889,61392043360 ",.02)
  1. ;;61392043360
  1. ;;9002226.02101,"889,61392043390 ",.01)
  1. ;;61392043390
  1. ;;9002226.02101,"889,61392043390 ",.02)
  1. ;;61392043390
  1. ;;9002226.02101,"889,61392045925 ",.01)
  1. ;;61392045925
  1. ;;9002226.02101,"889,61392045925 ",.02)
  1. ;;61392045925
  1. ;;9002226.02101,"889,61392045930 ",.01)
  1. ;;61392045930
  1. ;;9002226.02101,"889,61392045930 ",.02)
  1. ;;61392045930
  1. ;;9002226.02101,"889,61392045931 ",.01)
  1. ;;61392045931
  1. ;;9002226.02101,"889,61392045931 ",.02)
  1. ;;61392045931
  1. ;;9002226.02101,"889,61392045939 ",.01)
  1. ;;61392045939
  1. ;;9002226.02101,"889,61392045939 ",.02)
  1. ;;61392045939
  1. ;;9002226.02101,"889,61392045960 ",.01)
  1. ;;61392045960
  1. ;;9002226.02101,"889,61392045960 ",.02)
  1. ;;61392045960
  1. ;;9002226.02101,"889,61392045965 ",.01)
  1. ;;61392045965
  1. ;;9002226.02101,"889,61392045965 ",.02)
  1. ;;61392045965
  1. ;;9002226.02101,"889,61392045990 ",.01)
  1. ;;61392045990
  1. ;;9002226.02101,"889,61392045990 ",.02)
  1. ;;61392045990
  1. ;;9002226.02101,"889,61392045995 ",.01)
  1. ;;61392045995
  1. ;;9002226.02101,"889,61392045995 ",.02)
  1. ;;61392045995
  1. ;;9002226.02101,"889,61392054223 ",.01)
  1. ;;61392054223
  1. ;;9002226.02101,"889,61392054223 ",.02)
  1. ;;61392054223
  1. ;;9002226.02101,"889,61392054225 ",.01)
  1. ;;61392054225
  1. ;;9002226.02101,"889,61392054225 ",.02)
  1. ;;61392054225
  1. ;;9002226.02101,"889,61392054230 ",.01)
  1. ;;61392054230
  1. ;;9002226.02101,"889,61392054230 ",.02)
  1. ;;61392054230
  1. ;;9002226.02101,"889,61392054231 ",.01)
  1. ;;61392054231
  1. ;;9002226.02101,"889,61392054231 ",.02)
  1. ;;61392054231
  1. ;;9002226.02101,"889,61392054239 ",.01)
  1. ;;61392054239
  1. ;;9002226.02101,"889,61392054239 ",.02)
  1. ;;61392054239
  1. ;;9002226.02101,"889,61392054245 ",.01)
  1. ;;61392054245
  1. ;;9002226.02101,"889,61392054245 ",.02)
  1. ;;61392054245
  1. ;;9002226.02101,"889,61392054251 ",.01)
  1. ;;61392054251
  1. ;;9002226.02101,"889,61392054251 ",.02)
  1. ;;61392054251
  1. ;;9002226.02101,"889,61392054254 ",.01)
  1. ;;61392054254
  1. ;;9002226.02101,"889,61392054254 ",.02)
  1. ;;61392054254
  1. ;;9002226.02101,"889,61392054260 ",.01)
  1. ;;61392054260
  1. ;;9002226.02101,"889,61392054260 ",.02)
  1. ;;61392054260
  1. ;;9002226.02101,"889,61392054265 ",.01)
  1. ;;61392054265
  1. ;;9002226.02101,"889,61392054265 ",.02)
  1. ;;61392054265
  1. ;;9002226.02101,"889,61392054290 ",.01)
  1. ;;61392054290
  1. ;;9002226.02101,"889,61392054290 ",.02)
  1. ;;61392054290
  1. ;;9002226.02101,"889,61392054291 ",.01)
  1. ;;61392054291
  1. ;;9002226.02101,"889,61392054291 ",.02)
  1. ;;61392054291
  1. ;;9002226.02101,"889,61392054295 ",.01)
  1. ;;61392054295
  1. ;;9002226.02101,"889,61392054295 ",.02)
  1. ;;61392054295
  1. ;;9002226.02101,"889,61392054323 ",.01)
  1. ;;61392054323
  1. ;;9002226.02101,"889,61392054323 ",.02)
  1. ;;61392054323
  1. ;;9002226.02101,"889,61392054325 ",.01)
  1. ;;61392054325
  1. ;;9002226.02101,"889,61392054325 ",.02)
  1. ;;61392054325
  1. ;;9002226.02101,"889,61392054330 ",.01)
  1. ;;61392054330
  1. ;;9002226.02101,"889,61392054330 ",.02)
  1. ;;61392054330
  1. ;;9002226.02101,"889,61392054331 ",.01)
  1. ;;61392054331
  1. ;;9002226.02101,"889,61392054331 ",.02)
  1. ;;61392054331
  1. ;;9002226.02101,"889,61392054339 ",.01)
  1. ;;61392054339
  1. ;;9002226.02101,"889,61392054339 ",.02)
  1. ;;61392054339
  1. ;;9002226.02101,"889,61392054345 ",.01)
  1. ;;61392054345
  1. ;;9002226.02101,"889,61392054345 ",.02)
  1. ;;61392054345
  1. ;;9002226.02101,"889,61392054354 ",.01)
  1. ;;61392054354
  1. ;;9002226.02101,"889,61392054354 ",.02)
  1. ;;61392054354
  1. ;;9002226.02101,"889,61392054356 ",.01)
  1. ;;61392054356
  1. ;;9002226.02101,"889,61392054356 ",.02)
  1. ;;61392054356
  1. ;;9002226.02101,"889,61392054360 ",.01)
  1. ;;61392054360
  1. ;;9002226.02101,"889,61392054360 ",.02)
  1. ;;61392054360
  1. ;;9002226.02101,"889,61392054365 ",.01)
  1. ;;61392054365
  1. ;;9002226.02101,"889,61392054365 ",.02)
  1. ;;61392054365
  1. ;;9002226.02101,"889,61392054390 ",.01)
  1. ;;61392054390
  1. ;;9002226.02101,"889,61392054390 ",.02)
  1. ;;61392054390
  1. ;;9002226.02101,"889,61392054391 ",.01)
  1. ;;61392054391
  1. ;;9002226.02101,"889,61392054391 ",.02)
  1. ;;61392054391
  1. ;;9002226.02101,"889,61392054395 ",.01)
  1. ;;61392054395
  1. ;;9002226.02101,"889,61392054395 ",.02)
  1. ;;61392054395
  1. ;;9002226.02101,"889,61392054625 ",.01)
  1. ;;61392054625
  1. ;;9002226.02101,"889,61392054625 ",.02)
  1. ;;61392054625
  1. ;;9002226.02101,"889,61392054630 ",.01)
  1. ;;61392054630
  1. ;;9002226.02101,"889,61392054630 ",.02)
  1. ;;61392054630
  1. ;;9002226.02101,"889,61392054631 ",.01)
  1. ;;61392054631
  1. ;;9002226.02101,"889,61392054631 ",.02)
  1. ;;61392054631
  1. ;;9002226.02101,"889,61392054632 ",.01)
  1. ;;61392054632
  1. ;;9002226.02101,"889,61392054632 ",.02)
  1. ;;61392054632
  1. ;;9002226.02101,"889,61392054639 ",.01)
  1. ;;61392054639
  1. ;;9002226.02101,"889,61392054639 ",.02)
  1. ;;61392054639
  1. ;;9002226.02101,"889,61392054645 ",.01)
  1. ;;61392054645
  1. ;;9002226.02101,"889,61392054645 ",.02)
  1. ;;61392054645
  1. ;;9002226.02101,"889,61392054651 ",.01)
  1. ;;61392054651
  1. ;;9002226.02101,"889,61392054651 ",.02)
  1. ;;61392054651
  1. ;;9002226.02101,"889,61392054654 ",.01)
  1. ;;61392054654
  1. ;;9002226.02101,"889,61392054654 ",.02)
  1. ;;61392054654
  1. ;;9002226.02101,"889,61392054656 ",.01)
  1. ;;61392054656
  1. ;;9002226.02101,"889,61392054656 ",.02)
  1. ;;61392054656
  1. ;;9002226.02101,"889,61392054660 ",.01)
  1. ;;61392054660
  1. ;;9002226.02101,"889,61392054660 ",.02)
  1. ;;61392054660
  1. ;;9002226.02101,"889,61392054665 ",.01)
  1. ;;61392054665
  1. ;;9002226.02101,"889,61392054665 ",.02)
  1. ;;61392054665
  1. ;;9002226.02101,"889,61392054690 ",.01)
  1. ;;61392054690
  1. ;;9002226.02101,"889,61392054690 ",.02)
  1. ;;61392054690
  1. ;;9002226.02101,"889,61392054691 ",.01)
  1. ;;61392054691
  1. ;;9002226.02101,"889,61392054691 ",.02)
  1. ;;61392054691
  1. ;;9002226.02101,"889,61392054695 ",.01)
  1. ;;61392054695
  1. ;;9002226.02101,"889,61392054695 ",.02)
  1. ;;61392054695
  1. ;;9002226.02101,"889,61392073331 ",.01)
  1. ;;61392073331
  1. ;;9002226.02101,"889,61392073331 ",.02)
  1. ;;61392073331
  1. ;;9002226.02101,"889,61392073339 ",.01)
  1. ;;61392073339
  1. ;;9002226.02101,"889,61392073339 ",.02)
  1. ;;61392073339
  1. ;;9002226.02101,"889,61392088331 ",.01)
  1. ;;61392088331
  1. ;;9002226.02101,"889,61392088331 ",.02)
  1. ;;61392088331
  1. ;;9002226.02101,"889,61392088339 ",.01)
  1. ;;61392088339
  1. ;;9002226.02101,"889,61392088339 ",.02)
  1. ;;61392088339
  1. ;;9002226.02101,"889,61553033670 ",.01)
  1. ;;61553033670
  1. ;;9002226.02101,"889,61553033670 ",.02)
  1. ;;61553033670
  1. ;;9002226.02101,"889,61553034172 ",.01)
  1. ;;61553034172
  1. ;;9002226.02101,"889,61553034172 ",.02)
  1. ;;61553034172
  1. ;;9002226.02101,"889,61570020101 ",.01)
  1. ;;61570020101
  1. ;;9002226.02101,"889,61570020101 ",.02)
  1. ;;61570020101
  1. ;;9002226.02101,"889,61570020110 ",.01)
  1. ;;61570020110
  1. ;;9002226.02101,"889,61570020110 ",.02)
  1. ;;61570020110
  1. ;;9002226.02101,"889,61570020201 ",.01)
  1. ;;61570020201
  1. ;;9002226.02101,"889,61570020201 ",.02)
  1. ;;61570020201
  1. ;;9002226.02101,"889,61570020210 ",.01)
  1. ;;61570020210
  1. ;;9002226.02101,"889,61570020210 ",.02)
  1. ;;61570020210
  1. ;;9002226.02101,"889,61570020801 ",.01)
  1. ;;61570020801
  1. ;;9002226.02101,"889,61570020801 ",.02)
  1. ;;61570020801
  1. ;;9002226.02101,"889,61703023322 ",.01)
  1. ;;61703023322
  1. ;;9002226.02101,"889,61703023322 ",.02)
  1. ;;61703023322
  1. ;;9002226.02101,"889,61703023341 ",.01)
  1. ;;61703023341
  1. ;;9002226.02101,"889,61703023341 ",.02)
  1. ;;61703023341
  1. ;;9002226.02101,"889,61703023347 ",.01)
  1. ;;61703023347
  1. ;;9002226.02101,"889,61703023347 ",.02)
  1. ;;61703023347
  1. ;;9002226.02101,"889,61703023348 ",.01)
  1. ;;61703023348
  1. ;;9002226.02101,"889,61703023348 ",.02)
  1. ;;61703023348
  1. ;;9002226.02101,"889,62528003940 ",.01)
  1. ;;62528003940
  1. ;;9002226.02101,"889,62528003940 ",.02)
  1. ;;62528003940
  1. ;;9002226.02101,"889,62528003970 ",.01)
  1. ;;62528003970
  1. ;;9002226.02101,"889,62528003970 ",.02)
  1. ;;62528003970
  1. ;;9002226.02101,"889,62528003980 ",.01)
  1. ;;62528003980
  1. ;;9002226.02101,"889,62528003980 ",.02)
  1. ;;62528003980
  1. ;;9002226.02101,"889,62528040140 ",.01)
  1. ;;62528040140
  1. ;;9002226.02101,"889,62528040140 ",.02)
  1. ;;62528040140
  1. ;;9002226.02101,"889,62528040170 ",.01)
  1. ;;62528040170
  1. ;;9002226.02101,"889,62528040170 ",.02)
  1. ;;62528040170
  1. ;;9002226.02101,"889,62528073440 ",.01)
  1. ;;62528073440
  1. ;;9002226.02101,"889,62528073440 ",.02)
  1. ;;62528073440
  1. ;;9002226.02101,"889,62528073470 ",.01)
  1. ;;62528073470
  1. ;;9002226.02101,"889,62528073470 ",.02)
  1. ;;62528073470
  1. ;;9002226.02101,"889,62528073480 ",.01)
  1. ;;62528073480
  1. ;;9002226.02101,"889,62528073480 ",.02)
  1. ;;62528073480
  1. ;;9002226.02101,"889,62540075201 ",.01)
  1. ;;62540075201
  1. ;;9002226.02101,"889,62540075201 ",.02)
  1. ;;62540075201
  1. ;;9002226.02101,"889,62540075203 ",.01)
  1. ;;62540075203
  1. ;;9002226.02101,"889,62540075203 ",.02)
  1. ;;62540075203
  1. ;;9002226.02101,"889,62540075301 ",.01)
  1. ;;62540075301
  1. ;;9002226.02101,"889,62540075301 ",.02)
  1. ;;62540075301
  1. ;;9002226.02101,"889,62540075302 ",.01)
  1. ;;62540075302
  1. ;;9002226.02101,"889,62540075302 ",.02)
  1. ;;62540075302
  1. ;;9002226.02101,"889,62540078701 ",.01)
  1. ;;62540078701
  1. ;;9002226.02101,"889,62540078701 ",.02)
  1. ;;62540078701
  1. ;;9002226.02101,"889,62540078703 ",.01)
  1. ;;62540078703
  1. ;;9002226.02101,"889,62540078703 ",.02)
  1. ;;62540078703
  1. ;;9002226.02101,"889,62540436401 ",.01)
  1. ;;62540436401
  1. ;;9002226.02101,"889,62540436401 ",.02)
  1. ;;62540436401
  1. ;;9002226.02101,"889,62540436402 ",.01)
  1. ;;62540436402
  1. ;;9002226.02101,"889,62540436402 ",.02)
  1. ;;62540436402
  1. ;;9002226.02101,"889,62540436501 ",.01)
  1. ;;62540436501
  1. ;;9002226.02101,"889,62540436501 ",.02)
  1. ;;62540436501
  1. ;;9002226.02101,"889,62540436502 ",.01)
  1. ;;62540436502
  1. ;;9002226.02101,"889,62540436502 ",.02)
  1. ;;62540436502
  1. ;;9002226.02101,"889,62540436601 ",.01)
  1. ;;62540436601
  1. ;;9002226.02101,"889,62540436601 ",.02)
  1. ;;62540436601