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