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

BGPM3ABT.m

Go to the documentation of this file.
BGPM3ABT ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
 ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
 ;
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,"775,58016097292 ",.01)
 ;;58016097292
 ;;9002226.02101,"775,58016097292 ",.02)
 ;;58016097292
 ;;9002226.02101,"775,58016097293 ",.01)
 ;;58016097293
 ;;9002226.02101,"775,58016097293 ",.02)
 ;;58016097293
 ;;9002226.02101,"775,58016097296 ",.01)
 ;;58016097296
 ;;9002226.02101,"775,58016097296 ",.02)
 ;;58016097296
 ;;9002226.02101,"775,58016097297 ",.01)
 ;;58016097297
 ;;9002226.02101,"775,58016097297 ",.02)
 ;;58016097297
 ;;9002226.02101,"775,58016097298 ",.01)
 ;;58016097298
 ;;9002226.02101,"775,58016097298 ",.02)
 ;;58016097298
 ;;9002226.02101,"775,58016097299 ",.01)
 ;;58016097299
 ;;9002226.02101,"775,58016097299 ",.02)
 ;;58016097299
 ;;9002226.02101,"775,58016200101 ",.01)
 ;;58016200101
 ;;9002226.02101,"775,58016200101 ",.02)
 ;;58016200101
 ;;9002226.02101,"775,58016201301 ",.01)
 ;;58016201301
 ;;9002226.02101,"775,58016201301 ",.02)
 ;;58016201301
 ;;9002226.02101,"775,58056039203 ",.01)
 ;;58056039203
 ;;9002226.02101,"775,58056039203 ",.02)
 ;;58056039203
 ;;9002226.02101,"775,58056039306 ",.01)
 ;;58056039306
 ;;9002226.02101,"775,58056039306 ",.02)
 ;;58056039306
 ;;9002226.02101,"775,58056039450 ",.01)
 ;;58056039450
 ;;9002226.02101,"775,58056039450 ",.02)
 ;;58056039450
 ;;9002226.02101,"775,58864003530 ",.01)
 ;;58864003530
 ;;9002226.02101,"775,58864003530 ",.02)
 ;;58864003530
 ;;9002226.02101,"775,58864069814 ",.01)
 ;;58864069814
 ;;9002226.02101,"775,58864069814 ",.02)
 ;;58864069814
 ;;9002226.02101,"775,58864069830 ",.01)
 ;;58864069830
 ;;9002226.02101,"775,58864069830 ",.02)
 ;;58864069830
 ;;9002226.02101,"775,58864077315 ",.01)
 ;;58864077315
 ;;9002226.02101,"775,58864077315 ",.02)
 ;;58864077315
 ;;9002226.02101,"775,58864077330 ",.01)
 ;;58864077330
 ;;9002226.02101,"775,58864077330 ",.02)
 ;;58864077330
 ;;9002226.02101,"775,58864087930 ",.01)
 ;;58864087930
 ;;9002226.02101,"775,58864087930 ",.02)
 ;;58864087930
 ;;9002226.02101,"775,58948041178 ",.01)
 ;;58948041178
 ;;9002226.02101,"775,58948041178 ",.02)
 ;;58948041178
 ;;9002226.02101,"775,58948041187 ",.01)
 ;;58948041187
 ;;9002226.02101,"775,58948041187 ",.02)
 ;;58948041187
 ;;9002226.02101,"775,58948041190 ",.01)
 ;;58948041190
 ;;9002226.02101,"775,58948041190 ",.02)
 ;;58948041190
 ;;9002226.02101,"775,58948041660 ",.01)
 ;;58948041660
 ;;9002226.02101,"775,58948041660 ",.02)
 ;;58948041660
 ;;9002226.02101,"775,58948041678 ",.01)
 ;;58948041678
 ;;9002226.02101,"775,58948041678 ",.02)
 ;;58948041678
 ;;9002226.02101,"775,58948041687 ",.01)
 ;;58948041687
 ;;9002226.02101,"775,58948041687 ",.02)
 ;;58948041687
 ;;9002226.02101,"775,58948041693 ",.01)
 ;;58948041693
 ;;9002226.02101,"775,58948041693 ",.02)
 ;;58948041693
 ;;9002226.02101,"775,58948042978 ",.01)
 ;;58948042978
 ;;9002226.02101,"775,58948042978 ",.02)
 ;;58948042978
 ;;9002226.02101,"775,58948042990 ",.01)
 ;;58948042990
 ;;9002226.02101,"775,58948042990 ",.02)
 ;;58948042990
 ;;9002226.02101,"775,58948046768 ",.01)
 ;;58948046768
 ;;9002226.02101,"775,58948046768 ",.02)
 ;;58948046768
 ;;9002226.02101,"775,58948064274 ",.01)
 ;;58948064274
 ;;9002226.02101,"775,58948064274 ",.02)
 ;;58948064274
 ;;9002226.02101,"775,58948064278 ",.01)
 ;;58948064278
 ;;9002226.02101,"775,58948064278 ",.02)
 ;;58948064278
 ;;9002226.02101,"775,59618009915 ",.01)
 ;;59618009915
 ;;9002226.02101,"775,59618009915 ",.02)
 ;;59618009915
 ;;9002226.02101,"775,59618010115 ",.01)
 ;;59618010115
 ;;9002226.02101,"775,59618010115 ",.02)
 ;;59618010115
 ;;9002226.02101,"775,59741030712 ",.01)
 ;;59741030712
 ;;9002226.02101,"775,59741030712 ",.02)
 ;;59741030712
 ;;9002226.02101,"775,59741030750 ",.01)
 ;;59741030750
 ;;9002226.02101,"775,59741030750 ",.02)
 ;;59741030750
 ;;9002226.02101,"775,59741030812 ",.01)
 ;;59741030812
 ;;9002226.02101,"775,59741030812 ",.02)
 ;;59741030812
 ;;9002226.02101,"775,59741030850 ",.01)
 ;;59741030850
 ;;9002226.02101,"775,59741030850 ",.02)
 ;;59741030850
 ;;9002226.02101,"775,59772035204 ",.01)
 ;;59772035204
 ;;9002226.02101,"775,59772035204 ",.02)
 ;;59772035204
 ;;9002226.02101,"775,59772035207 ",.01)
 ;;59772035207
 ;;9002226.02101,"775,59772035207 ",.02)
 ;;59772035207
 ;;9002226.02101,"775,59772035208 ",.01)
 ;;59772035208
 ;;9002226.02101,"775,59772035208 ",.02)
 ;;59772035208
 ;;9002226.02101,"775,59772035270 ",.01)
 ;;59772035270
 ;;9002226.02101,"775,59772035270 ",.02)
 ;;59772035270
 ;;9002226.02101,"775,59772036304 ",.01)
 ;;59772036304
 ;;9002226.02101,"775,59772036304 ",.02)
 ;;59772036304
 ;;9002226.02101,"775,59772036307 ",.01)
 ;;59772036307
 ;;9002226.02101,"775,59772036307 ",.02)
 ;;59772036307
 ;;9002226.02101,"775,59772036308 ",.01)
 ;;59772036308
 ;;9002226.02101,"775,59772036308 ",.02)
 ;;59772036308
 ;;9002226.02101,"775,59772036370 ",.01)
 ;;59772036370
 ;;9002226.02101,"775,59772036370 ",.02)
 ;;59772036370
 ;;9002226.02101,"775,59772036404 ",.01)
 ;;59772036404
 ;;9002226.02101,"775,59772036404 ",.02)
 ;;59772036404
 ;;9002226.02101,"775,59772036407 ",.01)
 ;;59772036407
 ;;9002226.02101,"775,59772036407 ",.02)
 ;;59772036407
 ;;9002226.02101,"775,59772036408 ",.01)
 ;;59772036408
 ;;9002226.02101,"775,59772036408 ",.02)
 ;;59772036408
 ;;9002226.02101,"775,59772036470 ",.01)
 ;;59772036470
 ;;9002226.02101,"775,59772036470 ",.02)
 ;;59772036470
 ;;9002226.02101,"775,59772036607 ",.01)
 ;;59772036607
 ;;9002226.02101,"775,59772036607 ",.02)
 ;;59772036607
 ;;9002226.02101,"775,59772036907 ",.01)
 ;;59772036907
 ;;9002226.02101,"775,59772036907 ",.02)
 ;;59772036907
 ;;9002226.02101,"775,59772036908 ",.01)
 ;;59772036908
 ;;9002226.02101,"775,59772036908 ",.02)
 ;;59772036908
 ;;9002226.02101,"775,59772036970 ",.01)
 ;;59772036970
 ;;9002226.02101,"775,59772036970 ",.02)
 ;;59772036970
 ;;9002226.02101,"775,59772037704 ",.01)
 ;;59772037704
 ;;9002226.02101,"775,59772037704 ",.02)
 ;;59772037704
 ;;9002226.02101,"775,59772037707 ",.01)
 ;;59772037707
 ;;9002226.02101,"775,59772037707 ",.02)
 ;;59772037707
 ;;9002226.02101,"775,59772037708 ",.01)
 ;;59772037708
 ;;9002226.02101,"775,59772037708 ",.02)
 ;;59772037708
 ;;9002226.02101,"775,59772037770 ",.01)
 ;;59772037770
 ;;9002226.02101,"775,59772037770 ",.02)
 ;;59772037770
 ;;9002226.02101,"775,59772038107 ",.01)
 ;;59772038107
 ;;9002226.02101,"775,59772038107 ",.02)
 ;;59772038107
 ;;9002226.02101,"775,59772038607 ",.01)
 ;;59772038607
 ;;9002226.02101,"775,59772038607 ",.02)
 ;;59772038607
 ;;9002226.02101,"775,59772038608 ",.01)
 ;;59772038608
 ;;9002226.02101,"775,59772038608 ",.02)
 ;;59772038608
 ;;9002226.02101,"775,59772038670 ",.01)
 ;;59772038670
 ;;9002226.02101,"775,59772038670 ",.02)
 ;;59772038670
 ;;9002226.02101,"775,59772038707 ",.01)
 ;;59772038707
 ;;9002226.02101,"775,59772038707 ",.02)
 ;;59772038707
 ;;9002226.02101,"775,59772038708 ",.01)
 ;;59772038708
 ;;9002226.02101,"775,59772038708 ",.02)
 ;;59772038708
 ;;9002226.02101,"775,59772038770 ",.01)
 ;;59772038770
 ;;9002226.02101,"775,59772038770 ",.02)
 ;;59772038770
 ;;9002226.02101,"775,60346001924 ",.01)
 ;;60346001924
 ;;9002226.02101,"775,60346001924 ",.02)
 ;;60346001924
 ;;9002226.02101,"775,60346002030 ",.01)
 ;;60346002030
 ;;9002226.02101,"775,60346002030 ",.02)
 ;;60346002030
 ;;9002226.02101,"775,60346002050 ",.01)
 ;;60346002050
 ;;9002226.02101,"775,60346002050 ",.02)
 ;;60346002050
 ;;9002226.02101,"775,60346002060 ",.01)
 ;;60346002060
 ;;9002226.02101,"775,60346002060 ",.02)
 ;;60346002060
 ;;9002226.02101,"775,60346002090 ",.01)
 ;;60346002090
 ;;9002226.02101,"775,60346002090 ",.02)
 ;;60346002090
 ;;9002226.02101,"775,60346032330 ",.01)
 ;;60346032330
 ;;9002226.02101,"775,60346032330 ",.02)
 ;;60346032330
 ;;9002226.02101,"775,60429076405 ",.01)
 ;;60429076405
 ;;9002226.02101,"775,60429076405 ",.02)
 ;;60429076405
 ;;9002226.02101,"775,60429076430 ",.01)
 ;;60429076430
 ;;9002226.02101,"775,60429076430 ",.02)
 ;;60429076430
 ;;9002226.02101,"775,60429076460 ",.01)
 ;;60429076460
 ;;9002226.02101,"775,60429076460 ",.02)
 ;;60429076460
 ;;9002226.02101,"775,60429078401 ",.01)
 ;;60429078401
 ;;9002226.02101,"775,60429078401 ",.02)
 ;;60429078401
 ;;9002226.02101,"775,60429078410 ",.01)
 ;;60429078410
 ;;9002226.02101,"775,60429078410 ",.02)
 ;;60429078410
 ;;9002226.02101,"775,60429078501 ",.01)
 ;;60429078501
 ;;9002226.02101,"775,60429078501 ",.02)
 ;;60429078501
 ;;9002226.02101,"775,60429078510 ",.01)
 ;;60429078510
 ;;9002226.02101,"775,60429078510 ",.02)
 ;;60429078510
 ;;9002226.02101,"775,60429078601 ",.01)
 ;;60429078601
 ;;9002226.02101,"775,60429078601 ",.02)
 ;;60429078601
 ;;9002226.02101,"775,60429078610 ",.01)
 ;;60429078610
 ;;9002226.02101,"775,60429078610 ",.02)
 ;;60429078610
 ;;9002226.02101,"775,60429078701 ",.01)
 ;;60429078701
 ;;9002226.02101,"775,60429078701 ",.02)
 ;;60429078701
 ;;9002226.02101,"775,60429078710 ",.01)
 ;;60429078710
 ;;9002226.02101,"775,60429078710 ",.02)
 ;;60429078710
 ;;9002226.02101,"775,60429078801 ",.01)
 ;;60429078801
 ;;9002226.02101,"775,60429078801 ",.02)
 ;;60429078801
 ;;9002226.02101,"775,60429078810 ",.01)
 ;;60429078810
 ;;9002226.02101,"775,60429078810 ",.02)
 ;;60429078810
 ;;9002226.02101,"775,60429078901 ",.01)
 ;;60429078901
 ;;9002226.02101,"775,60429078901 ",.02)
 ;;60429078901
 ;;9002226.02101,"775,60429078910 ",.01)
 ;;60429078910
 ;;9002226.02101,"775,60429078910 ",.02)
 ;;60429078910
 ;;9002226.02101,"775,60429079001 ",.01)
 ;;60429079001
 ;;9002226.02101,"775,60429079001 ",.02)
 ;;60429079001
 ;;9002226.02101,"775,60429079010 ",.01)
 ;;60429079010
 ;;9002226.02101,"775,60429079010 ",.02)
 ;;60429079010
 ;;9002226.02101,"775,60429079101 ",.01)
 ;;60429079101
 ;;9002226.02101,"775,60429079101 ",.02)
 ;;60429079101
 ;;9002226.02101,"775,60429079201 ",.01)
 ;;60429079201
 ;;9002226.02101,"775,60429079201 ",.02)
 ;;60429079201
 ;;9002226.02101,"775,60505002702 ",.01)
 ;;60505002702
 ;;9002226.02101,"775,60505002702 ",.02)
 ;;60505002702
 ;;9002226.02101,"775,60505002704 ",.01)
 ;;60505002704
 ;;9002226.02101,"775,60505002704 ",.02)
 ;;60505002704
 ;;9002226.02101,"775,60505002707 ",.01)
 ;;60505002707
 ;;9002226.02101,"775,60505002707 ",.02)
 ;;60505002707
 ;;9002226.02101,"775,60505002709 ",.01)
 ;;60505002709
 ;;9002226.02101,"775,60505002709 ",.02)
 ;;60505002709
 ;;9002226.02101,"775,60505025301 ",.01)
 ;;60505025301
 ;;9002226.02101,"775,60505025301 ",.02)
 ;;60505025301
 ;;9002226.02101,"775,60505025302 ",.01)
 ;;60505025302
 ;;9002226.02101,"775,60505025302 ",.02)
 ;;60505025302
 ;;9002226.02101,"775,60505025303 ",.01)
 ;;60505025303
 ;;9002226.02101,"775,60505025303 ",.02)
 ;;60505025303
 ;;9002226.02101,"775,60505025304 ",.01)
 ;;60505025304
 ;;9002226.02101,"775,60505025304 ",.02)
 ;;60505025304
 ;;9002226.02101,"775,60760003110 ",.01)
 ;;60760003110
 ;;9002226.02101,"775,60760003110 ",.02)
 ;;60760003110
 ;;9002226.02101,"775,60760003125 ",.01)
 ;;60760003125
 ;;9002226.02101,"775,60760003125 ",.02)
 ;;60760003125
 ;;9002226.02101,"775,60760003130 ",.01)
 ;;60760003130
 ;;9002226.02101,"775,60760003130 ",.02)
 ;;60760003130
 ;;9002226.02101,"775,60760003310 ",.01)
 ;;60760003310
 ;;9002226.02101,"775,60760003310 ",.02)
 ;;60760003310
 ;;9002226.02101,"775,60760003325 ",.01)
 ;;60760003325
 ;;9002226.02101,"775,60760003325 ",.02)
 ;;60760003325
 ;;9002226.02101,"775,60760003330 ",.01)
 ;;60760003330
 ;;9002226.02101,"775,60760003330 ",.02)
 ;;60760003330
 ;;9002226.02101,"775,60760003401 ",.01)
 ;;60760003401
 ;;9002226.02101,"775,60760003401 ",.02)
 ;;60760003401