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

BGPM3AAP.m

Go to the documentation of this file.
BGPM3AAP ;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,"774,58016097292 ",.02)
 ;;58016097292
 ;;9002226.02101,"774,58016097293 ",.01)
 ;;58016097293
 ;;9002226.02101,"774,58016097293 ",.02)
 ;;58016097293
 ;;9002226.02101,"774,58016097296 ",.01)
 ;;58016097296
 ;;9002226.02101,"774,58016097296 ",.02)
 ;;58016097296
 ;;9002226.02101,"774,58016097297 ",.01)
 ;;58016097297
 ;;9002226.02101,"774,58016097297 ",.02)
 ;;58016097297
 ;;9002226.02101,"774,58016097298 ",.01)
 ;;58016097298
 ;;9002226.02101,"774,58016097298 ",.02)
 ;;58016097298
 ;;9002226.02101,"774,58016097299 ",.01)
 ;;58016097299
 ;;9002226.02101,"774,58016097299 ",.02)
 ;;58016097299
 ;;9002226.02101,"774,58864003530 ",.01)
 ;;58864003530
 ;;9002226.02101,"774,58864003530 ",.02)
 ;;58864003530
 ;;9002226.02101,"774,58864069814 ",.01)
 ;;58864069814
 ;;9002226.02101,"774,58864069814 ",.02)
 ;;58864069814
 ;;9002226.02101,"774,58864069830 ",.01)
 ;;58864069830
 ;;9002226.02101,"774,58864069830 ",.02)
 ;;58864069830
 ;;9002226.02101,"774,58864077315 ",.01)
 ;;58864077315
 ;;9002226.02101,"774,58864077315 ",.02)
 ;;58864077315
 ;;9002226.02101,"774,58864077330 ",.01)
 ;;58864077330
 ;;9002226.02101,"774,58864077330 ",.02)
 ;;58864077330
 ;;9002226.02101,"774,58864087930 ",.01)
 ;;58864087930
 ;;9002226.02101,"774,58864087930 ",.02)
 ;;58864087930
 ;;9002226.02101,"774,59772035204 ",.01)
 ;;59772035204
 ;;9002226.02101,"774,59772035204 ",.02)
 ;;59772035204
 ;;9002226.02101,"774,59772035207 ",.01)
 ;;59772035207
 ;;9002226.02101,"774,59772035207 ",.02)
 ;;59772035207
 ;;9002226.02101,"774,59772035208 ",.01)
 ;;59772035208
 ;;9002226.02101,"774,59772035208 ",.02)
 ;;59772035208
 ;;9002226.02101,"774,59772035270 ",.01)
 ;;59772035270
 ;;9002226.02101,"774,59772035270 ",.02)
 ;;59772035270
 ;;9002226.02101,"774,59772036304 ",.01)
 ;;59772036304
 ;;9002226.02101,"774,59772036304 ",.02)
 ;;59772036304
 ;;9002226.02101,"774,59772036307 ",.01)
 ;;59772036307
 ;;9002226.02101,"774,59772036307 ",.02)
 ;;59772036307
 ;;9002226.02101,"774,59772036308 ",.01)
 ;;59772036308
 ;;9002226.02101,"774,59772036308 ",.02)
 ;;59772036308
 ;;9002226.02101,"774,59772036370 ",.01)
 ;;59772036370
 ;;9002226.02101,"774,59772036370 ",.02)
 ;;59772036370
 ;;9002226.02101,"774,59772036404 ",.01)
 ;;59772036404
 ;;9002226.02101,"774,59772036404 ",.02)
 ;;59772036404
 ;;9002226.02101,"774,59772036407 ",.01)
 ;;59772036407
 ;;9002226.02101,"774,59772036407 ",.02)
 ;;59772036407
 ;;9002226.02101,"774,59772036408 ",.01)
 ;;59772036408
 ;;9002226.02101,"774,59772036408 ",.02)
 ;;59772036408
 ;;9002226.02101,"774,59772036470 ",.01)
 ;;59772036470
 ;;9002226.02101,"774,59772036470 ",.02)
 ;;59772036470
 ;;9002226.02101,"774,59772036607 ",.01)
 ;;59772036607
 ;;9002226.02101,"774,59772036607 ",.02)
 ;;59772036607
 ;;9002226.02101,"774,59772036907 ",.01)
 ;;59772036907
 ;;9002226.02101,"774,59772036907 ",.02)
 ;;59772036907
 ;;9002226.02101,"774,59772036908 ",.01)
 ;;59772036908
 ;;9002226.02101,"774,59772036908 ",.02)
 ;;59772036908
 ;;9002226.02101,"774,59772036970 ",.01)
 ;;59772036970
 ;;9002226.02101,"774,59772036970 ",.02)
 ;;59772036970
 ;;9002226.02101,"774,59772037704 ",.01)
 ;;59772037704
 ;;9002226.02101,"774,59772037704 ",.02)
 ;;59772037704
 ;;9002226.02101,"774,59772037707 ",.01)
 ;;59772037707
 ;;9002226.02101,"774,59772037707 ",.02)
 ;;59772037707
 ;;9002226.02101,"774,59772037708 ",.01)
 ;;59772037708
 ;;9002226.02101,"774,59772037708 ",.02)
 ;;59772037708
 ;;9002226.02101,"774,59772037770 ",.01)
 ;;59772037770
 ;;9002226.02101,"774,59772037770 ",.02)
 ;;59772037770
 ;;9002226.02101,"774,59772038107 ",.01)
 ;;59772038107
 ;;9002226.02101,"774,59772038107 ",.02)
 ;;59772038107
 ;;9002226.02101,"774,59772038607 ",.01)
 ;;59772038607
 ;;9002226.02101,"774,59772038607 ",.02)
 ;;59772038607
 ;;9002226.02101,"774,59772038608 ",.01)
 ;;59772038608
 ;;9002226.02101,"774,59772038608 ",.02)
 ;;59772038608
 ;;9002226.02101,"774,59772038670 ",.01)
 ;;59772038670
 ;;9002226.02101,"774,59772038670 ",.02)
 ;;59772038670
 ;;9002226.02101,"774,59772038707 ",.01)
 ;;59772038707
 ;;9002226.02101,"774,59772038707 ",.02)
 ;;59772038707
 ;;9002226.02101,"774,59772038708 ",.01)
 ;;59772038708
 ;;9002226.02101,"774,59772038708 ",.02)
 ;;59772038708
 ;;9002226.02101,"774,59772038770 ",.01)
 ;;59772038770
 ;;9002226.02101,"774,59772038770 ",.02)
 ;;59772038770
 ;;9002226.02101,"774,60429078401 ",.01)
 ;;60429078401
 ;;9002226.02101,"774,60429078401 ",.02)
 ;;60429078401
 ;;9002226.02101,"774,60429078410 ",.01)
 ;;60429078410
 ;;9002226.02101,"774,60429078410 ",.02)
 ;;60429078410
 ;;9002226.02101,"774,60429078501 ",.01)
 ;;60429078501
 ;;9002226.02101,"774,60429078501 ",.02)
 ;;60429078501
 ;;9002226.02101,"774,60429078510 ",.01)
 ;;60429078510
 ;;9002226.02101,"774,60429078510 ",.02)
 ;;60429078510
 ;;9002226.02101,"774,60429078601 ",.01)
 ;;60429078601
 ;;9002226.02101,"774,60429078601 ",.02)
 ;;60429078601
 ;;9002226.02101,"774,60429078610 ",.01)
 ;;60429078610
 ;;9002226.02101,"774,60429078610 ",.02)
 ;;60429078610
 ;;9002226.02101,"774,60429078701 ",.01)
 ;;60429078701
 ;;9002226.02101,"774,60429078701 ",.02)
 ;;60429078701
 ;;9002226.02101,"774,60429078710 ",.01)
 ;;60429078710
 ;;9002226.02101,"774,60429078710 ",.02)
 ;;60429078710
 ;;9002226.02101,"774,60429078801 ",.01)
 ;;60429078801
 ;;9002226.02101,"774,60429078801 ",.02)
 ;;60429078801
 ;;9002226.02101,"774,60429078810 ",.01)
 ;;60429078810
 ;;9002226.02101,"774,60429078810 ",.02)
 ;;60429078810
 ;;9002226.02101,"774,60429078901 ",.01)
 ;;60429078901
 ;;9002226.02101,"774,60429078901 ",.02)
 ;;60429078901
 ;;9002226.02101,"774,60429078910 ",.01)
 ;;60429078910
 ;;9002226.02101,"774,60429078910 ",.02)
 ;;60429078910
 ;;9002226.02101,"774,60429079001 ",.01)
 ;;60429079001
 ;;9002226.02101,"774,60429079001 ",.02)
 ;;60429079001
 ;;9002226.02101,"774,60429079010 ",.01)
 ;;60429079010
 ;;9002226.02101,"774,60429079010 ",.02)
 ;;60429079010
 ;;9002226.02101,"774,60429079101 ",.01)
 ;;60429079101
 ;;9002226.02101,"774,60429079101 ",.02)
 ;;60429079101
 ;;9002226.02101,"774,60429079201 ",.01)
 ;;60429079201
 ;;9002226.02101,"774,60429079201 ",.02)
 ;;60429079201
 ;;9002226.02101,"774,60760003110 ",.01)
 ;;60760003110
 ;;9002226.02101,"774,60760003110 ",.02)
 ;;60760003110
 ;;9002226.02101,"774,60760003125 ",.01)
 ;;60760003125
 ;;9002226.02101,"774,60760003125 ",.02)
 ;;60760003125
 ;;9002226.02101,"774,60760003130 ",.01)
 ;;60760003130
 ;;9002226.02101,"774,60760003130 ",.02)
 ;;60760003130
 ;;9002226.02101,"774,60760003310 ",.01)
 ;;60760003310
 ;;9002226.02101,"774,60760003310 ",.02)
 ;;60760003310
 ;;9002226.02101,"774,60760003325 ",.01)
 ;;60760003325
 ;;9002226.02101,"774,60760003325 ",.02)
 ;;60760003325
 ;;9002226.02101,"774,60760003330 ",.01)
 ;;60760003330
 ;;9002226.02101,"774,60760003330 ",.02)
 ;;60760003330
 ;;9002226.02101,"774,60760003401 ",.01)
 ;;60760003401
 ;;9002226.02101,"774,60760003401 ",.02)
 ;;60760003401
 ;;9002226.02101,"774,60760003410 ",.01)
 ;;60760003410
 ;;9002226.02101,"774,60760003410 ",.02)
 ;;60760003410
 ;;9002226.02101,"774,60760003425 ",.01)
 ;;60760003425
 ;;9002226.02101,"774,60760003425 ",.02)
 ;;60760003425
 ;;9002226.02101,"774,60760003430 ",.01)
 ;;60760003430
 ;;9002226.02101,"774,60760003430 ",.02)
 ;;60760003430
 ;;9002226.02101,"774,61392090325 ",.01)
 ;;61392090325
 ;;9002226.02101,"774,61392090325 ",.02)
 ;;61392090325
 ;;9002226.02101,"774,61392090330 ",.01)
 ;;61392090330
 ;;9002226.02101,"774,61392090330 ",.02)
 ;;61392090330
 ;;9002226.02101,"774,61392090331 ",.01)
 ;;61392090331
 ;;9002226.02101,"774,61392090331 ",.02)
 ;;61392090331
 ;;9002226.02101,"774,61392090339 ",.01)
 ;;61392090339
 ;;9002226.02101,"774,61392090339 ",.02)
 ;;61392090339
 ;;9002226.02101,"774,61392090360 ",.01)
 ;;61392090360
 ;;9002226.02101,"774,61392090360 ",.02)
 ;;61392090360
 ;;9002226.02101,"774,61392090365 ",.01)
 ;;61392090365
 ;;9002226.02101,"774,61392090365 ",.02)
 ;;61392090365
 ;;9002226.02101,"774,61392090390 ",.01)
 ;;61392090390
 ;;9002226.02101,"774,61392090390 ",.02)
 ;;61392090390
 ;;9002226.02101,"774,61392090395 ",.01)
 ;;61392090395
 ;;9002226.02101,"774,61392090395 ",.02)
 ;;61392090395
 ;;9002226.02101,"774,61392090423 ",.01)
 ;;61392090423
 ;;9002226.02101,"774,61392090423 ",.02)
 ;;61392090423
 ;;9002226.02101,"774,61392090425 ",.01)
 ;;61392090425
 ;;9002226.02101,"774,61392090425 ",.02)
 ;;61392090425
 ;;9002226.02101,"774,61392090430 ",.01)
 ;;61392090430
 ;;9002226.02101,"774,61392090430 ",.02)
 ;;61392090430
 ;;9002226.02101,"774,61392090431 ",.01)
 ;;61392090431
 ;;9002226.02101,"774,61392090431 ",.02)
 ;;61392090431
 ;;9002226.02101,"774,61392090439 ",.01)
 ;;61392090439
 ;;9002226.02101,"774,61392090439 ",.02)
 ;;61392090439
 ;;9002226.02101,"774,61392090460 ",.01)
 ;;61392090460
 ;;9002226.02101,"774,61392090460 ",.02)
 ;;61392090460
 ;;9002226.02101,"774,61392090465 ",.01)
 ;;61392090465
 ;;9002226.02101,"774,61392090465 ",.02)
 ;;61392090465
 ;;9002226.02101,"774,61392090490 ",.01)
 ;;61392090490
 ;;9002226.02101,"774,61392090490 ",.02)
 ;;61392090490
 ;;9002226.02101,"774,61392090495 ",.01)
 ;;61392090495
 ;;9002226.02101,"774,61392090495 ",.02)
 ;;61392090495
 ;;9002226.02101,"774,61392090523 ",.01)
 ;;61392090523
 ;;9002226.02101,"774,61392090523 ",.02)
 ;;61392090523
 ;;9002226.02101,"774,61392090525 ",.01)
 ;;61392090525
 ;;9002226.02101,"774,61392090525 ",.02)
 ;;61392090525
 ;;9002226.02101,"774,61392090530 ",.01)
 ;;61392090530
 ;;9002226.02101,"774,61392090530 ",.02)
 ;;61392090530
 ;;9002226.02101,"774,61392090531 ",.01)
 ;;61392090531
 ;;9002226.02101,"774,61392090531 ",.02)
 ;;61392090531
 ;;9002226.02101,"774,61392090539 ",.01)
 ;;61392090539
 ;;9002226.02101,"774,61392090539 ",.02)
 ;;61392090539
 ;;9002226.02101,"774,61392090560 ",.01)
 ;;61392090560
 ;;9002226.02101,"774,61392090560 ",.02)
 ;;61392090560
 ;;9002226.02101,"774,61392090565 ",.01)
 ;;61392090565
 ;;9002226.02101,"774,61392090565 ",.02)
 ;;61392090565
 ;;9002226.02101,"774,61392090590 ",.01)
 ;;61392090590
 ;;9002226.02101,"774,61392090590 ",.02)
 ;;61392090590
 ;;9002226.02101,"774,61392090595 ",.01)
 ;;61392090595
 ;;9002226.02101,"774,61392090595 ",.02)
 ;;61392090595
 ;;9002226.02101,"774,61392090625 ",.01)
 ;;61392090625
 ;;9002226.02101,"774,61392090625 ",.02)
 ;;61392090625
 ;;9002226.02101,"774,61392090630 ",.01)
 ;;61392090630
 ;;9002226.02101,"774,61392090630 ",.02)
 ;;61392090630
 ;;9002226.02101,"774,61392090631 ",.01)
 ;;61392090631
 ;;9002226.02101,"774,61392090631 ",.02)
 ;;61392090631
 ;;9002226.02101,"774,61392090639 ",.01)
 ;;61392090639
 ;;9002226.02101,"774,61392090639 ",.02)
 ;;61392090639
 ;;9002226.02101,"774,61392090660 ",.01)
 ;;61392090660
 ;;9002226.02101,"774,61392090660 ",.02)
 ;;61392090660
 ;;9002226.02101,"774,61392090665 ",.01)
 ;;61392090665
 ;;9002226.02101,"774,61392090665 ",.02)
 ;;61392090665
 ;;9002226.02101,"774,61392090690 ",.01)
 ;;61392090690
 ;;9002226.02101,"774,61392090690 ",.02)
 ;;61392090690
 ;;9002226.02101,"774,61392090695 ",.01)
 ;;61392090695
 ;;9002226.02101,"774,61392090695 ",.02)
 ;;61392090695
 ;;9002226.02101,"774,61392090723 ",.01)
 ;;61392090723
 ;;9002226.02101,"774,61392090723 ",.02)
 ;;61392090723
 ;;9002226.02101,"774,61392090725 ",.01)
 ;;61392090725
 ;;9002226.02101,"774,61392090725 ",.02)
 ;;61392090725
 ;;9002226.02101,"774,61392090730 ",.01)
 ;;61392090730
 ;;9002226.02101,"774,61392090730 ",.02)
 ;;61392090730
 ;;9002226.02101,"774,61392090731 ",.01)
 ;;61392090731