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

BGPM5ARJ.m

Go to the documentation of this file.
  1. BGPM5ARJ ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 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,"1005,55154965700 ",.01)
  1. ;;55154965700
  1. ;;9002226.02101,"1005,55154965700 ",.02)
  1. ;;55154965700
  1. ;;9002226.02101,"1005,55154965702 ",.01)
  1. ;;55154965702
  1. ;;9002226.02101,"1005,55154965702 ",.02)
  1. ;;55154965702
  1. ;;9002226.02101,"1005,55154965708 ",.01)
  1. ;;55154965708
  1. ;;9002226.02101,"1005,55154965708 ",.02)
  1. ;;55154965708
  1. ;;9002226.02101,"1005,55154965908 ",.01)
  1. ;;55154965908
  1. ;;9002226.02101,"1005,55154965908 ",.02)
  1. ;;55154965908
  1. ;;9002226.02101,"1005,55154965909 ",.01)
  1. ;;55154965909
  1. ;;9002226.02101,"1005,55154965909 ",.02)
  1. ;;55154965909
  1. ;;9002226.02101,"1005,55154966308 ",.01)
  1. ;;55154966308
  1. ;;9002226.02101,"1005,55154966308 ",.02)
  1. ;;55154966308
  1. ;;9002226.02101,"1005,55154966402 ",.01)
  1. ;;55154966402
  1. ;;9002226.02101,"1005,55154966402 ",.02)
  1. ;;55154966402
  1. ;;9002226.02101,"1005,55154966408 ",.01)
  1. ;;55154966408
  1. ;;9002226.02101,"1005,55154966408 ",.02)
  1. ;;55154966408
  1. ;;9002226.02101,"1005,55154966502 ",.01)
  1. ;;55154966502
  1. ;;9002226.02101,"1005,55154966502 ",.02)
  1. ;;55154966502
  1. ;;9002226.02101,"1005,55154966508 ",.01)
  1. ;;55154966508
  1. ;;9002226.02101,"1005,55154966508 ",.02)
  1. ;;55154966508
  1. ;;9002226.02101,"1005,55175396403 ",.01)
  1. ;;55175396403
  1. ;;9002226.02101,"1005,55175396403 ",.02)
  1. ;;55175396403
  1. ;;9002226.02101,"1005,55289010630 ",.01)
  1. ;;55289010630
  1. ;;9002226.02101,"1005,55289010630 ",.02)
  1. ;;55289010630
  1. ;;9002226.02101,"1005,55289021230 ",.01)
  1. ;;55289021230
  1. ;;9002226.02101,"1005,55289021230 ",.02)
  1. ;;55289021230
  1. ;;9002226.02101,"1005,55289021290 ",.01)
  1. ;;55289021290
  1. ;;9002226.02101,"1005,55289021290 ",.02)
  1. ;;55289021290
  1. ;;9002226.02101,"1005,55289034430 ",.01)
  1. ;;55289034430
  1. ;;9002226.02101,"1005,55289034430 ",.02)
  1. ;;55289034430
  1. ;;9002226.02101,"1005,55289034490 ",.01)
  1. ;;55289034490
  1. ;;9002226.02101,"1005,55289034490 ",.02)
  1. ;;55289034490
  1. ;;9002226.02101,"1005,55289034497 ",.01)
  1. ;;55289034497
  1. ;;9002226.02101,"1005,55289034497 ",.02)
  1. ;;55289034497
  1. ;;9002226.02101,"1005,55289043630 ",.01)
  1. ;;55289043630
  1. ;;9002226.02101,"1005,55289043630 ",.02)
  1. ;;55289043630
  1. ;;9002226.02101,"1005,55289044330 ",.01)
  1. ;;55289044330
  1. ;;9002226.02101,"1005,55289044330 ",.02)
  1. ;;55289044330
  1. ;;9002226.02101,"1005,55289048330 ",.01)
  1. ;;55289048330
  1. ;;9002226.02101,"1005,55289048330 ",.02)
  1. ;;55289048330
  1. ;;9002226.02101,"1005,55289048430 ",.01)
  1. ;;55289048430
  1. ;;9002226.02101,"1005,55289048430 ",.02)
  1. ;;55289048430
  1. ;;9002226.02101,"1005,55289050601 ",.01)
  1. ;;55289050601
  1. ;;9002226.02101,"1005,55289050601 ",.02)
  1. ;;55289050601
  1. ;;9002226.02101,"1005,55289050630 ",.01)
  1. ;;55289050630
  1. ;;9002226.02101,"1005,55289050630 ",.02)
  1. ;;55289050630
  1. ;;9002226.02101,"1005,55289050697 ",.01)
  1. ;;55289050697
  1. ;;9002226.02101,"1005,55289050697 ",.02)
  1. ;;55289050697
  1. ;;9002226.02101,"1005,55289050930 ",.01)
  1. ;;55289050930
  1. ;;9002226.02101,"1005,55289050930 ",.02)
  1. ;;55289050930
  1. ;;9002226.02101,"1005,55289055230 ",.01)
  1. ;;55289055230
  1. ;;9002226.02101,"1005,55289055230 ",.02)
  1. ;;55289055230
  1. ;;9002226.02101,"1005,55289055330 ",.01)
  1. ;;55289055330
  1. ;;9002226.02101,"1005,55289055330 ",.02)
  1. ;;55289055330
  1. ;;9002226.02101,"1005,55289055430 ",.01)
  1. ;;55289055430
  1. ;;9002226.02101,"1005,55289055430 ",.02)
  1. ;;55289055430
  1. ;;9002226.02101,"1005,55289055530 ",.01)
  1. ;;55289055530
  1. ;;9002226.02101,"1005,55289055530 ",.02)
  1. ;;55289055530
  1. ;;9002226.02101,"1005,55289057330 ",.01)
  1. ;;55289057330
  1. ;;9002226.02101,"1005,55289057330 ",.02)
  1. ;;55289057330
  1. ;;9002226.02101,"1005,55289057730 ",.01)
  1. ;;55289057730
  1. ;;9002226.02101,"1005,55289057730 ",.02)
  1. ;;55289057730
  1. ;;9002226.02101,"1005,55289059130 ",.01)
  1. ;;55289059130
  1. ;;9002226.02101,"1005,55289059130 ",.02)
  1. ;;55289059130
  1. ;;9002226.02101,"1005,55289059190 ",.01)
  1. ;;55289059190
  1. ;;9002226.02101,"1005,55289059190 ",.02)
  1. ;;55289059190
  1. ;;9002226.02101,"1005,55289062203 ",.01)
  1. ;;55289062203
  1. ;;9002226.02101,"1005,55289062203 ",.02)
  1. ;;55289062203
  1. ;;9002226.02101,"1005,55289062230 ",.01)
  1. ;;55289062230
  1. ;;9002226.02101,"1005,55289062230 ",.02)
  1. ;;55289062230
  1. ;;9002226.02101,"1005,55289063801 ",.01)
  1. ;;55289063801
  1. ;;9002226.02101,"1005,55289063801 ",.02)
  1. ;;55289063801
  1. ;;9002226.02101,"1005,55289063812 ",.01)
  1. ;;55289063812
  1. ;;9002226.02101,"1005,55289063812 ",.02)
  1. ;;55289063812
  1. ;;9002226.02101,"1005,55289063814 ",.01)
  1. ;;55289063814
  1. ;;9002226.02101,"1005,55289063814 ",.02)
  1. ;;55289063814
  1. ;;9002226.02101,"1005,55289063830 ",.01)
  1. ;;55289063830
  1. ;;9002226.02101,"1005,55289063830 ",.02)
  1. ;;55289063830
  1. ;;9002226.02101,"1005,55289063860 ",.01)
  1. ;;55289063860
  1. ;;9002226.02101,"1005,55289063860 ",.02)
  1. ;;55289063860
  1. ;;9002226.02101,"1005,55289063890 ",.01)
  1. ;;55289063890
  1. ;;9002226.02101,"1005,55289063890 ",.02)
  1. ;;55289063890
  1. ;;9002226.02101,"1005,55289063898 ",.01)
  1. ;;55289063898
  1. ;;9002226.02101,"1005,55289063898 ",.02)
  1. ;;55289063898
  1. ;;9002226.02101,"1005,55289069410 ",.01)
  1. ;;55289069410
  1. ;;9002226.02101,"1005,55289069410 ",.02)
  1. ;;55289069410
  1. ;;9002226.02101,"1005,55289069430 ",.01)
  1. ;;55289069430
  1. ;;9002226.02101,"1005,55289069430 ",.02)
  1. ;;55289069430
  1. ;;9002226.02101,"1005,55289069490 ",.01)
  1. ;;55289069490
  1. ;;9002226.02101,"1005,55289069490 ",.02)
  1. ;;55289069490
  1. ;;9002226.02101,"1005,55289069614 ",.01)
  1. ;;55289069614
  1. ;;9002226.02101,"1005,55289069614 ",.02)
  1. ;;55289069614
  1. ;;9002226.02101,"1005,55289069630 ",.01)
  1. ;;55289069630
  1. ;;9002226.02101,"1005,55289069630 ",.02)
  1. ;;55289069630
  1. ;;9002226.02101,"1005,55289069660 ",.01)
  1. ;;55289069660
  1. ;;9002226.02101,"1005,55289069660 ",.02)
  1. ;;55289069660
  1. ;;9002226.02101,"1005,55289069690 ",.01)
  1. ;;55289069690
  1. ;;9002226.02101,"1005,55289069690 ",.02)
  1. ;;55289069690
  1. ;;9002226.02101,"1005,55289069698 ",.01)
  1. ;;55289069698
  1. ;;9002226.02101,"1005,55289069698 ",.02)
  1. ;;55289069698
  1. ;;9002226.02101,"1005,55289081530 ",.01)
  1. ;;55289081530
  1. ;;9002226.02101,"1005,55289081530 ",.02)
  1. ;;55289081530
  1. ;;9002226.02101,"1005,55289081730 ",.01)
  1. ;;55289081730
  1. ;;9002226.02101,"1005,55289081730 ",.02)
  1. ;;55289081730
  1. ;;9002226.02101,"1005,55289082030 ",.01)
  1. ;;55289082030
  1. ;;9002226.02101,"1005,55289082030 ",.02)
  1. ;;55289082030
  1. ;;9002226.02101,"1005,55289082530 ",.01)
  1. ;;55289082530
  1. ;;9002226.02101,"1005,55289082530 ",.02)
  1. ;;55289082530
  1. ;;9002226.02101,"1005,55289083830 ",.01)
  1. ;;55289083830
  1. ;;9002226.02101,"1005,55289083830 ",.02)
  1. ;;55289083830
  1. ;;9002226.02101,"1005,55289086730 ",.01)
  1. ;;55289086730
  1. ;;9002226.02101,"1005,55289086730 ",.02)
  1. ;;55289086730
  1. ;;9002226.02101,"1005,55289087630 ",.01)
  1. ;;55289087630
  1. ;;9002226.02101,"1005,55289087630 ",.02)
  1. ;;55289087630
  1. ;;9002226.02101,"1005,55289087830 ",.01)
  1. ;;55289087830
  1. ;;9002226.02101,"1005,55289087830 ",.02)
  1. ;;55289087830
  1. ;;9002226.02101,"1005,55289088430 ",.01)
  1. ;;55289088430
  1. ;;9002226.02101,"1005,55289088430 ",.02)
  1. ;;55289088430
  1. ;;9002226.02101,"1005,55289088490 ",.01)
  1. ;;55289088490
  1. ;;9002226.02101,"1005,55289088490 ",.02)
  1. ;;55289088490
  1. ;;9002226.02101,"1005,55289091730 ",.01)
  1. ;;55289091730
  1. ;;9002226.02101,"1005,55289091730 ",.02)
  1. ;;55289091730
  1. ;;9002226.02101,"1005,55289091790 ",.01)
  1. ;;55289091790
  1. ;;9002226.02101,"1005,55289091790 ",.02)
  1. ;;55289091790
  1. ;;9002226.02101,"1005,55289092908 ",.01)
  1. ;;55289092908
  1. ;;9002226.02101,"1005,55289092908 ",.02)
  1. ;;55289092908
  1. ;;9002226.02101,"1005,55289092930 ",.01)
  1. ;;55289092930
  1. ;;9002226.02101,"1005,55289092930 ",.02)
  1. ;;55289092930
  1. ;;9002226.02101,"1005,55370092207 ",.01)
  1. ;;55370092207
  1. ;;9002226.02101,"1005,55370092207 ",.02)
  1. ;;55370092207
  1. ;;9002226.02101,"1005,55370092209 ",.01)
  1. ;;55370092209
  1. ;;9002226.02101,"1005,55370092209 ",.02)
  1. ;;55370092209
  1. ;;9002226.02101,"1005,55370092307 ",.01)
  1. ;;55370092307
  1. ;;9002226.02101,"1005,55370092307 ",.02)
  1. ;;55370092307
  1. ;;9002226.02101,"1005,55370092309 ",.01)
  1. ;;55370092309
  1. ;;9002226.02101,"1005,55370092309 ",.02)
  1. ;;55370092309
  1. ;;9002226.02101,"1005,55370092407 ",.01)
  1. ;;55370092407
  1. ;;9002226.02101,"1005,55370092407 ",.02)
  1. ;;55370092407
  1. ;;9002226.02101,"1005,55370092409 ",.01)
  1. ;;55370092409
  1. ;;9002226.02101,"1005,55370092409 ",.02)
  1. ;;55370092409
  1. ;;9002226.02101,"1005,55370092507 ",.01)
  1. ;;55370092507
  1. ;;9002226.02101,"1005,55370092507 ",.02)
  1. ;;55370092507
  1. ;;9002226.02101,"1005,55370092509 ",.01)
  1. ;;55370092509
  1. ;;9002226.02101,"1005,55370092509 ",.02)
  1. ;;55370092509
  1. ;;9002226.02101,"1005,55390001010 ",.01)
  1. ;;55390001010
  1. ;;9002226.02101,"1005,55390001010 ",.02)
  1. ;;55390001010
  1. ;;9002226.02101,"1005,55390001110 ",.01)
  1. ;;55390001110
  1. ;;9002226.02101,"1005,55390001110 ",.02)
  1. ;;55390001110
  1. ;;9002226.02101,"1005,55390071201 ",.01)
  1. ;;55390071201
  1. ;;9002226.02101,"1005,55390071201 ",.02)
  1. ;;55390071201
  1. ;;9002226.02101,"1005,55396001010 ",.01)
  1. ;;55396001010
  1. ;;9002226.02101,"1005,55396001010 ",.02)
  1. ;;55396001010
  1. ;;9002226.02101,"1005,55567023301 ",.01)
  1. ;;55567023301
  1. ;;9002226.02101,"1005,55567023301 ",.02)
  1. ;;55567023301
  1. ;;9002226.02101,"1005,55567023401 ",.01)
  1. ;;55567023401
  1. ;;9002226.02101,"1005,55567023401 ",.02)
  1. ;;55567023401
  1. ;;9002226.02101,"1005,55567027109 ",.01)
  1. ;;55567027109
  1. ;;9002226.02101,"1005,55567027109 ",.02)
  1. ;;55567027109
  1. ;;9002226.02101,"1005,55567027209 ",.01)
  1. ;;55567027209
  1. ;;9002226.02101,"1005,55567027209 ",.02)
  1. ;;55567027209
  1. ;;9002226.02101,"1005,55567027309 ",.01)
  1. ;;55567027309
  1. ;;9002226.02101,"1005,55567027309 ",.02)
  1. ;;55567027309
  1. ;;9002226.02101,"1005,55567027409 ",.01)
  1. ;;55567027409
  1. ;;9002226.02101,"1005,55567027409 ",.02)
  1. ;;55567027409
  1. ;;9002226.02101,"1005,55648090201 ",.01)
  1. ;;55648090201
  1. ;;9002226.02101,"1005,55648090201 ",.02)
  1. ;;55648090201
  1. ;;9002226.02101,"1005,55648090202 ",.01)
  1. ;;55648090202
  1. ;;9002226.02101,"1005,55648090202 ",.02)
  1. ;;55648090202
  1. ;;9002226.02101,"1005,55648090203 ",.01)
  1. ;;55648090203
  1. ;;9002226.02101,"1005,55648090203 ",.02)
  1. ;;55648090203
  1. ;;9002226.02101,"1005,55648090204 ",.01)
  1. ;;55648090204
  1. ;;9002226.02101,"1005,55648090204 ",.02)
  1. ;;55648090204
  1. ;;9002226.02101,"1005,55648090301 ",.01)
  1. ;;55648090301
  1. ;;9002226.02101,"1005,55648090301 ",.02)
  1. ;;55648090301
  1. ;;9002226.02101,"1005,55648090302 ",.01)
  1. ;;55648090302
  1. ;;9002226.02101,"1005,55648090302 ",.02)
  1. ;;55648090302
  1. ;;9002226.02101,"1005,55648090303 ",.01)
  1. ;;55648090303
  1. ;;9002226.02101,"1005,55648090303 ",.02)
  1. ;;55648090303
  1. ;;9002226.02101,"1005,55648090304 ",.01)
  1. ;;55648090304
  1. ;;9002226.02101,"1005,55648090304 ",.02)
  1. ;;55648090304
  1. ;;9002226.02101,"1005,55648090401 ",.01)
  1. ;;55648090401
  1. ;;9002226.02101,"1005,55648090401 ",.02)
  1. ;;55648090401
  1. ;;9002226.02101,"1005,55648090402 ",.01)
  1. ;;55648090402
  1. ;;9002226.02101,"1005,55648090402 ",.02)
  1. ;;55648090402
  1. ;;9002226.02101,"1005,55648090403 ",.01)
  1. ;;55648090403
  1. ;;9002226.02101,"1005,55648090403 ",.02)
  1. ;;55648090403
  1. ;;9002226.02101,"1005,55648090404 ",.01)
  1. ;;55648090404
  1. ;;9002226.02101,"1005,55648090404 ",.02)
  1. ;;55648090404
  1. ;;9002226.02101,"1005,55648090501 ",.01)
  1. ;;55648090501
  1. ;;9002226.02101,"1005,55648090501 ",.02)
  1. ;;55648090501
  1. ;;9002226.02101,"1005,55648090502 ",.01)
  1. ;;55648090502
  1. ;;9002226.02101,"1005,55648090502 ",.02)
  1. ;;55648090502
  1. ;;9002226.02101,"1005,55648090503 ",.01)
  1. ;;55648090503
  1. ;;9002226.02101,"1005,55648090503 ",.02)
  1. ;;55648090503
  1. ;;9002226.02101,"1005,55648092301 ",.01)
  1. ;;55648092301
  1. ;;9002226.02101,"1005,55648092301 ",.02)
  1. ;;55648092301
  1. ;;9002226.02101,"1005,55648092302 ",.01)
  1. ;;55648092302
  1. ;;9002226.02101,"1005,55648092302 ",.02)
  1. ;;55648092302
  1. ;;9002226.02101,"1005,55648092303 ",.01)
  1. ;;55648092303
  1. ;;9002226.02101,"1005,55648092303 ",.02)
  1. ;;55648092303
  1. ;;9002226.02101,"1005,55648092401 ",.01)
  1. ;;55648092401