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

BGPM5AUR.m

Go to the documentation of this file.
BGPM5AUR ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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,"1033,00555001304 ",.01)
 ;;00555001304
 ;;9002226.02101,"1033,00555001304 ",.02)
 ;;00555001304
 ;;9002226.02101,"1033,00555001305 ",.01)
 ;;00555001305
 ;;9002226.02101,"1033,00555001305 ",.02)
 ;;00555001305
 ;;9002226.02101,"1033,00555001313 ",.01)
 ;;00555001313
 ;;9002226.02101,"1033,00555001313 ",.02)
 ;;00555001313
 ;;9002226.02101,"1033,00555017801 ",.01)
 ;;00555017801
 ;;9002226.02101,"1033,00555017801 ",.02)
 ;;00555017801
 ;;9002226.02101,"1033,00555017802 ",.01)
 ;;00555017802
 ;;9002226.02101,"1033,00555017802 ",.02)
 ;;00555017802
 ;;9002226.02101,"1033,00555017901 ",.01)
 ;;00555017901
 ;;9002226.02101,"1033,00555017901 ",.02)
 ;;00555017901
 ;;9002226.02101,"1033,00555017902 ",.01)
 ;;00555017902
 ;;9002226.02101,"1033,00555017902 ",.02)
 ;;00555017902
 ;;9002226.02101,"1033,00555018001 ",.01)
 ;;00555018001
 ;;9002226.02101,"1033,00555018001 ",.02)
 ;;00555018001
 ;;9002226.02101,"1033,00555018002 ",.01)
 ;;00555018002
 ;;9002226.02101,"1033,00555018002 ",.02)
 ;;00555018002
 ;;9002226.02101,"1033,00555021522 ",.01)
 ;;00555021522
 ;;9002226.02101,"1033,00555021522 ",.02)
 ;;00555021522
 ;;9002226.02101,"1033,00555021523 ",.01)
 ;;00555021523
 ;;9002226.02101,"1033,00555021523 ",.02)
 ;;00555021523
 ;;9002226.02101,"1033,00555023002 ",.01)
 ;;00555023002
 ;;9002226.02101,"1033,00555023002 ",.02)
 ;;00555023002
 ;;9002226.02101,"1033,00555025902 ",.01)
 ;;00555025902
 ;;9002226.02101,"1033,00555025902 ",.02)
 ;;00555025902
 ;;9002226.02101,"1033,00555025904 ",.01)
 ;;00555025904
 ;;9002226.02101,"1033,00555025904 ",.02)
 ;;00555025904
 ;;9002226.02101,"1033,00555037987 ",.01)
 ;;00555037987
 ;;9002226.02101,"1033,00555037987 ",.02)
 ;;00555037987
 ;;9002226.02101,"1033,00555038087 ",.01)
 ;;00555038087
 ;;9002226.02101,"1033,00555038087 ",.02)
 ;;00555038087
 ;;9002226.02101,"1033,00555044521 ",.01)
 ;;00555044521
 ;;9002226.02101,"1033,00555044521 ",.02)
 ;;00555044521
 ;;9002226.02101,"1033,00555044522 ",.01)
 ;;00555044522
 ;;9002226.02101,"1033,00555044522 ",.02)
 ;;00555044522
 ;;9002226.02101,"1033,00555044523 ",.01)
 ;;00555044523
 ;;9002226.02101,"1033,00555044523 ",.02)
 ;;00555044523
 ;;9002226.02101,"1033,00555044536 ",.01)
 ;;00555044536
 ;;9002226.02101,"1033,00555044536 ",.02)
 ;;00555044536
 ;;9002226.02101,"1033,00555051210 ",.01)
 ;;00555051210
 ;;9002226.02101,"1033,00555051210 ",.02)
 ;;00555051210
 ;;9002226.02101,"1033,00555051402 ",.01)
 ;;00555051402
 ;;9002226.02101,"1033,00555051402 ",.02)
 ;;00555051402
 ;;9002226.02101,"1033,00555051404 ",.01)
 ;;00555051404
 ;;9002226.02101,"1033,00555051404 ",.02)
 ;;00555051404
 ;;9002226.02101,"1033,00555051418 ",.01)
 ;;00555051418
 ;;9002226.02101,"1033,00555051418 ",.02)
 ;;00555051418
 ;;9002226.02101,"1033,00555051502 ",.01)
 ;;00555051502
 ;;9002226.02101,"1033,00555051502 ",.02)
 ;;00555051502
 ;;9002226.02101,"1033,00555051504 ",.01)
 ;;00555051504
 ;;9002226.02101,"1033,00555051504 ",.02)
 ;;00555051504
 ;;9002226.02101,"1033,00555051518 ",.01)
 ;;00555051518
 ;;9002226.02101,"1033,00555051518 ",.02)
 ;;00555051518
 ;;9002226.02101,"1033,00555052522 ",.01)
 ;;00555052522
 ;;9002226.02101,"1033,00555052522 ",.02)
 ;;00555052522
 ;;9002226.02101,"1033,00555052523 ",.01)
 ;;00555052523
 ;;9002226.02101,"1033,00555052523 ",.02)
 ;;00555052523
 ;;9002226.02101,"1033,00555052528 ",.01)
 ;;00555052528
 ;;9002226.02101,"1033,00555052528 ",.02)
 ;;00555052528
 ;;9002226.02101,"1033,00555052622 ",.01)
 ;;00555052622
 ;;9002226.02101,"1033,00555052622 ",.02)
 ;;00555052622
 ;;9002226.02101,"1033,00555052623 ",.01)
 ;;00555052623
 ;;9002226.02101,"1033,00555052623 ",.02)
 ;;00555052623
 ;;9002226.02101,"1033,00555058202 ",.01)
 ;;00555058202
 ;;9002226.02101,"1033,00555058202 ",.02)
 ;;00555058202
 ;;9002226.02101,"1033,00555058210 ",.01)
 ;;00555058210
 ;;9002226.02101,"1033,00555058210 ",.02)
 ;;00555058210
 ;;9002226.02101,"1033,00555058218 ",.01)
 ;;00555058218
 ;;9002226.02101,"1033,00555058218 ",.02)
 ;;00555058218
 ;;9002226.02101,"1033,00555069402 ",.01)
 ;;00555069402
 ;;9002226.02101,"1033,00555069402 ",.02)
 ;;00555069402
 ;;9002226.02101,"1033,00555069502 ",.01)
 ;;00555069502
 ;;9002226.02101,"1033,00555069502 ",.02)
 ;;00555069502
 ;;9002226.02101,"1033,00555069610 ",.01)
 ;;00555069610
 ;;9002226.02101,"1033,00555069610 ",.02)
 ;;00555069610
 ;;9002226.02101,"1033,00555081402 ",.01)
 ;;00555081402
 ;;9002226.02101,"1033,00555081402 ",.02)
 ;;00555081402
 ;;9002226.02101,"1033,00555081403 ",.01)
 ;;00555081403
 ;;9002226.02101,"1033,00555081403 ",.02)
 ;;00555081403
 ;;9002226.02101,"1033,00555081405 ",.01)
 ;;00555081405
 ;;9002226.02101,"1033,00555081405 ",.02)
 ;;00555081405
 ;;9002226.02101,"1033,00555081502 ",.01)
 ;;00555081502
 ;;9002226.02101,"1033,00555081502 ",.02)
 ;;00555081502
 ;;9002226.02101,"1033,00555081503 ",.01)
 ;;00555081503
 ;;9002226.02101,"1033,00555081503 ",.02)
 ;;00555081503
 ;;9002226.02101,"1033,00555081505 ",.01)
 ;;00555081505
 ;;9002226.02101,"1033,00555081505 ",.02)
 ;;00555081505
 ;;9002226.02101,"1033,00555081602 ",.01)
 ;;00555081602
 ;;9002226.02101,"1033,00555081602 ",.02)
 ;;00555081602
 ;;9002226.02101,"1033,00555081603 ",.01)
 ;;00555081603
 ;;9002226.02101,"1033,00555081603 ",.02)
 ;;00555081603
 ;;9002226.02101,"1033,00555081605 ",.01)
 ;;00555081605
 ;;9002226.02101,"1033,00555081605 ",.02)
 ;;00555081605
 ;;9002226.02101,"1033,00555081610 ",.01)
 ;;00555081610
 ;;9002226.02101,"1033,00555081610 ",.02)
 ;;00555081610
 ;;9002226.02101,"1033,00574012901 ",.01)
 ;;00574012901
 ;;9002226.02101,"1033,00574012901 ",.02)
 ;;00574012901
 ;;9002226.02101,"1033,00591030901 ",.01)
 ;;00591030901
 ;;9002226.02101,"1033,00591030901 ",.02)
 ;;00591030901
 ;;9002226.02101,"1033,00591031025 ",.01)
 ;;00591031025
 ;;9002226.02101,"1033,00591031025 ",.02)
 ;;00591031025
 ;;9002226.02101,"1033,00591031050 ",.01)
 ;;00591031050
 ;;9002226.02101,"1033,00591031050 ",.02)
 ;;00591031050
 ;;9002226.02101,"1033,00591041001 ",.01)
 ;;00591041001
 ;;9002226.02101,"1033,00591041001 ",.02)
 ;;00591041001
 ;;9002226.02101,"1033,00591041125 ",.01)
 ;;00591041125
 ;;9002226.02101,"1033,00591041125 ",.02)
 ;;00591041125
 ;;9002226.02101,"1033,00591041150 ",.01)
 ;;00591041150
 ;;9002226.02101,"1033,00591041150 ",.02)
 ;;00591041150
 ;;9002226.02101,"1033,00591049905 ",.01)
 ;;00591049905
 ;;9002226.02101,"1033,00591049905 ",.02)
 ;;00591049905
 ;;9002226.02101,"1033,00591049950 ",.01)
 ;;00591049950
 ;;9002226.02101,"1033,00591049950 ",.02)
 ;;00591049950
 ;;9002226.02101,"1033,00591223401 ",.01)
 ;;00591223401
 ;;9002226.02101,"1033,00591223401 ",.02)
 ;;00591223401
 ;;9002226.02101,"1033,00591223410 ",.01)
 ;;00591223410
 ;;9002226.02101,"1033,00591223410 ",.02)
 ;;00591223410
 ;;9002226.02101,"1033,00591223501 ",.01)
 ;;00591223501
 ;;9002226.02101,"1033,00591223501 ",.02)
 ;;00591223501
 ;;9002226.02101,"1033,00591223510 ",.01)
 ;;00591223510
 ;;9002226.02101,"1033,00591223510 ",.02)
 ;;00591223510
 ;;9002226.02101,"1033,00591236569 ",.01)
 ;;00591236569
 ;;9002226.02101,"1033,00591236569 ",.02)
 ;;00591236569
 ;;9002226.02101,"1033,00591240401 ",.01)
 ;;00591240401
 ;;9002226.02101,"1033,00591240401 ",.02)
 ;;00591240401
 ;;9002226.02101,"1033,00591247401 ",.01)
 ;;00591247401
 ;;9002226.02101,"1033,00591247401 ",.02)
 ;;00591247401
 ;;9002226.02101,"1033,00591247410 ",.01)
 ;;00591247410
 ;;9002226.02101,"1033,00591247410 ",.02)
 ;;00591247410
 ;;9002226.02101,"1033,00591247501 ",.01)
 ;;00591247501
 ;;9002226.02101,"1033,00591247501 ",.02)
 ;;00591247501
 ;;9002226.02101,"1033,00591247510 ",.01)
 ;;00591247510
 ;;9002226.02101,"1033,00591247510 ",.02)
 ;;00591247510
 ;;9002226.02101,"1033,00591312001 ",.01)
 ;;00591312001
 ;;9002226.02101,"1033,00591312001 ",.02)
 ;;00591312001
 ;;9002226.02101,"1033,00591312016 ",.01)
 ;;00591312016
 ;;9002226.02101,"1033,00591312016 ",.02)
 ;;00591312016
 ;;9002226.02101,"1033,00591315300 ",.01)
 ;;00591315300
 ;;9002226.02101,"1033,00591315300 ",.02)
 ;;00591315300
 ;;9002226.02101,"1033,00591315301 ",.01)
 ;;00591315301
 ;;9002226.02101,"1033,00591315301 ",.02)
 ;;00591315301
 ;;9002226.02101,"1033,00591322415 ",.01)
 ;;00591322415
 ;;9002226.02101,"1033,00591322415 ",.02)
 ;;00591322415
 ;;9002226.02101,"1033,00591322560 ",.01)
 ;;00591322560
 ;;9002226.02101,"1033,00591322560 ",.02)
 ;;00591322560
 ;;9002226.02101,"1033,00591354969 ",.01)
 ;;00591354969
 ;;9002226.02101,"1033,00591354969 ",.02)
 ;;00591354969
 ;;9002226.02101,"1033,00591355068 ",.01)
 ;;00591355068
 ;;9002226.02101,"1033,00591355068 ",.02)
 ;;00591355068
 ;;9002226.02101,"1033,00591396111 ",.01)
 ;;00591396111
 ;;9002226.02101,"1033,00591396111 ",.02)
 ;;00591396111
 ;;9002226.02101,"1033,00591544005 ",.01)
 ;;00591544005
 ;;9002226.02101,"1033,00591544005 ",.02)
 ;;00591544005
 ;;9002226.02101,"1033,00591544050 ",.01)
 ;;00591544050
 ;;9002226.02101,"1033,00591544050 ",.02)
 ;;00591544050
 ;;9002226.02101,"1033,00591553550 ",.01)
 ;;00591553550
 ;;9002226.02101,"1033,00591553550 ",.02)
 ;;00591553550
 ;;9002226.02101,"1033,00591554601 ",.01)
 ;;00591554601
 ;;9002226.02101,"1033,00591554601 ",.02)
 ;;00591554601
 ;;9002226.02101,"1033,00591554605 ",.01)
 ;;00591554605
 ;;9002226.02101,"1033,00591554605 ",.02)
 ;;00591554605
 ;;9002226.02101,"1033,00591554701 ",.01)
 ;;00591554701
 ;;9002226.02101,"1033,00591554701 ",.02)
 ;;00591554701
 ;;9002226.02101,"1033,00591555305 ",.01)
 ;;00591555305
 ;;9002226.02101,"1033,00591555305 ",.02)
 ;;00591555305
 ;;9002226.02101,"1033,00591555350 ",.01)
 ;;00591555350
 ;;9002226.02101,"1033,00591555350 ",.02)
 ;;00591555350
 ;;9002226.02101,"1033,00591557101 ",.01)
 ;;00591557101
 ;;9002226.02101,"1033,00591557101 ",.02)
 ;;00591557101
 ;;9002226.02101,"1033,00591569401 ",.01)
 ;;00591569401
 ;;9002226.02101,"1033,00591569401 ",.02)
 ;;00591569401
 ;;9002226.02101,"1033,00591569460 ",.01)
 ;;00591569460
 ;;9002226.02101,"1033,00591569460 ",.02)
 ;;00591569460
 ;;9002226.02101,"1033,00591569500 ",.01)
 ;;00591569500
 ;;9002226.02101,"1033,00591569500 ",.02)
 ;;00591569500
 ;;9002226.02101,"1033,00591569550 ",.01)
 ;;00591569550
 ;;9002226.02101,"1033,00591569550 ",.02)
 ;;00591569550
 ;;9002226.02101,"1033,00591570801 ",.01)
 ;;00591570801
 ;;9002226.02101,"1033,00591570801 ",.02)
 ;;00591570801
 ;;9002226.02101,"1033,00603168454 ",.01)
 ;;00603168454
 ;;9002226.02101,"1033,00603168454 ",.02)
 ;;00603168454
 ;;9002226.02101,"1033,00603168458 ",.01)
 ;;00603168458
 ;;9002226.02101,"1033,00603168458 ",.02)
 ;;00603168458
 ;;9002226.02101,"1033,00603168554 ",.01)
 ;;00603168554
 ;;9002226.02101,"1033,00603168554 ",.02)
 ;;00603168554
 ;;9002226.02101,"1033,00603168558 ",.01)
 ;;00603168558
 ;;9002226.02101,"1033,00603168558 ",.02)
 ;;00603168558
 ;;9002226.02101,"1033,00603226621 ",.01)
 ;;00603226621
 ;;9002226.02101,"1033,00603226621 ",.02)
 ;;00603226621
 ;;9002226.02101,"1033,00603226628 ",.01)
 ;;00603226628
 ;;9002226.02101,"1033,00603226628 ",.02)
 ;;00603226628
 ;;9002226.02101,"1033,00603226719 ",.01)
 ;;00603226719
 ;;9002226.02101,"1033,00603226719 ",.02)
 ;;00603226719
 ;;9002226.02101,"1033,00603226728 ",.01)
 ;;00603226728
 ;;9002226.02101,"1033,00603226728 ",.02)
 ;;00603226728
 ;;9002226.02101,"1033,00603258621 ",.01)
 ;;00603258621
 ;;9002226.02101,"1033,00603258621 ",.02)
 ;;00603258621
 ;;9002226.02101,"1033,00603258721 ",.01)
 ;;00603258721
 ;;9002226.02101,"1033,00603258721 ",.02)
 ;;00603258721
 ;;9002226.02101,"1033,00603259521 ",.01)
 ;;00603259521