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

BGPM5AVL.m

Go to the documentation of this file.
BGPM5AVL ;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,55289018240 ",.01)
 ;;55289018240
 ;;9002226.02101,"1033,55289018240 ",.02)
 ;;55289018240
 ;;9002226.02101,"1033,55289020130 ",.01)
 ;;55289020130
 ;;9002226.02101,"1033,55289020130 ",.02)
 ;;55289020130
 ;;9002226.02101,"1033,55289020230 ",.01)
 ;;55289020230
 ;;9002226.02101,"1033,55289020230 ",.02)
 ;;55289020230
 ;;9002226.02101,"1033,55289020610 ",.01)
 ;;55289020610
 ;;9002226.02101,"1033,55289020610 ",.02)
 ;;55289020610
 ;;9002226.02101,"1033,55289020620 ",.01)
 ;;55289020620
 ;;9002226.02101,"1033,55289020620 ",.02)
 ;;55289020620
 ;;9002226.02101,"1033,55289020628 ",.01)
 ;;55289020628
 ;;9002226.02101,"1033,55289020628 ",.02)
 ;;55289020628
 ;;9002226.02101,"1033,55289020630 ",.01)
 ;;55289020630
 ;;9002226.02101,"1033,55289020630 ",.02)
 ;;55289020630
 ;;9002226.02101,"1033,55289020640 ",.01)
 ;;55289020640
 ;;9002226.02101,"1033,55289020640 ",.02)
 ;;55289020640
 ;;9002226.02101,"1033,55289020656 ",.01)
 ;;55289020656
 ;;9002226.02101,"1033,55289020656 ",.02)
 ;;55289020656
 ;;9002226.02101,"1033,55289020697 ",.01)
 ;;55289020697
 ;;9002226.02101,"1033,55289020697 ",.02)
 ;;55289020697
 ;;9002226.02101,"1033,55289020704 ",.01)
 ;;55289020704
 ;;9002226.02101,"1033,55289020704 ",.02)
 ;;55289020704
 ;;9002226.02101,"1033,55289020715 ",.01)
 ;;55289020715
 ;;9002226.02101,"1033,55289020715 ",.02)
 ;;55289020715
 ;;9002226.02101,"1033,55289020720 ",.01)
 ;;55289020720
 ;;9002226.02101,"1033,55289020720 ",.02)
 ;;55289020720
 ;;9002226.02101,"1033,55289020728 ",.01)
 ;;55289020728
 ;;9002226.02101,"1033,55289020728 ",.02)
 ;;55289020728
 ;;9002226.02101,"1033,55289020730 ",.01)
 ;;55289020730
 ;;9002226.02101,"1033,55289020730 ",.02)
 ;;55289020730
 ;;9002226.02101,"1033,55289020740 ",.01)
 ;;55289020740
 ;;9002226.02101,"1033,55289020740 ",.02)
 ;;55289020740
 ;;9002226.02101,"1033,55289023560 ",.01)
 ;;55289023560
 ;;9002226.02101,"1033,55289023560 ",.02)
 ;;55289023560
 ;;9002226.02101,"1033,55289024102 ",.01)
 ;;55289024102
 ;;9002226.02101,"1033,55289024102 ",.02)
 ;;55289024102
 ;;9002226.02101,"1033,55289024104 ",.01)
 ;;55289024104
 ;;9002226.02101,"1033,55289024104 ",.02)
 ;;55289024104
 ;;9002226.02101,"1033,55289024106 ",.01)
 ;;55289024106
 ;;9002226.02101,"1033,55289024106 ",.02)
 ;;55289024106
 ;;9002226.02101,"1033,55289024110 ",.01)
 ;;55289024110
 ;;9002226.02101,"1033,55289024110 ",.02)
 ;;55289024110
 ;;9002226.02101,"1033,55289024114 ",.01)
 ;;55289024114
 ;;9002226.02101,"1033,55289024114 ",.02)
 ;;55289024114
 ;;9002226.02101,"1033,55289024115 ",.01)
 ;;55289024115
 ;;9002226.02101,"1033,55289024115 ",.02)
 ;;55289024115
 ;;9002226.02101,"1033,55289024117 ",.01)
 ;;55289024117
 ;;9002226.02101,"1033,55289024117 ",.02)
 ;;55289024117
 ;;9002226.02101,"1033,55289024120 ",.01)
 ;;55289024120
 ;;9002226.02101,"1033,55289024120 ",.02)
 ;;55289024120
 ;;9002226.02101,"1033,55289024128 ",.01)
 ;;55289024128
 ;;9002226.02101,"1033,55289024128 ",.02)
 ;;55289024128
 ;;9002226.02101,"1033,55289024140 ",.01)
 ;;55289024140
 ;;9002226.02101,"1033,55289024140 ",.02)
 ;;55289024140
 ;;9002226.02101,"1033,55289024160 ",.01)
 ;;55289024160
 ;;9002226.02101,"1033,55289024160 ",.02)
 ;;55289024160
 ;;9002226.02101,"1033,55289024197 ",.01)
 ;;55289024197
 ;;9002226.02101,"1033,55289024197 ",.02)
 ;;55289024197
 ;;9002226.02101,"1033,55289025601 ",.01)
 ;;55289025601
 ;;9002226.02101,"1033,55289025601 ",.02)
 ;;55289025601
 ;;9002226.02101,"1033,55289025610 ",.01)
 ;;55289025610
 ;;9002226.02101,"1033,55289025610 ",.02)
 ;;55289025610
 ;;9002226.02101,"1033,55289025612 ",.01)
 ;;55289025612
 ;;9002226.02101,"1033,55289025612 ",.02)
 ;;55289025612
 ;;9002226.02101,"1033,55289025620 ",.01)
 ;;55289025620
 ;;9002226.02101,"1033,55289025620 ",.02)
 ;;55289025620
 ;;9002226.02101,"1033,55289025628 ",.01)
 ;;55289025628
 ;;9002226.02101,"1033,55289025628 ",.02)
 ;;55289025628
 ;;9002226.02101,"1033,55289025640 ",.01)
 ;;55289025640
 ;;9002226.02101,"1033,55289025640 ",.02)
 ;;55289025640
 ;;9002226.02101,"1033,55289025660 ",.01)
 ;;55289025660
 ;;9002226.02101,"1033,55289025660 ",.02)
 ;;55289025660
 ;;9002226.02101,"1033,55289025690 ",.01)
 ;;55289025690
 ;;9002226.02101,"1033,55289025690 ",.02)
 ;;55289025690
 ;;9002226.02101,"1033,55289025697 ",.01)
 ;;55289025697
 ;;9002226.02101,"1033,55289025697 ",.02)
 ;;55289025697
 ;;9002226.02101,"1033,55289038504 ",.01)
 ;;55289038504
 ;;9002226.02101,"1033,55289038504 ",.02)
 ;;55289038504
 ;;9002226.02101,"1033,55289038530 ",.01)
 ;;55289038530
 ;;9002226.02101,"1033,55289038530 ",.02)
 ;;55289038530
 ;;9002226.02101,"1033,55289039302 ",.01)
 ;;55289039302
 ;;9002226.02101,"1033,55289039302 ",.02)
 ;;55289039302
 ;;9002226.02101,"1033,55289040510 ",.01)
 ;;55289040510
 ;;9002226.02101,"1033,55289040510 ",.02)
 ;;55289040510
 ;;9002226.02101,"1033,55289040514 ",.01)
 ;;55289040514
 ;;9002226.02101,"1033,55289040514 ",.02)
 ;;55289040514
 ;;9002226.02101,"1033,55289040520 ",.01)
 ;;55289040520
 ;;9002226.02101,"1033,55289040520 ",.02)
 ;;55289040520
 ;;9002226.02101,"1033,55289044104 ",.01)
 ;;55289044104
 ;;9002226.02101,"1033,55289044104 ",.02)
 ;;55289044104
 ;;9002226.02101,"1033,55289044115 ",.01)
 ;;55289044115
 ;;9002226.02101,"1033,55289044115 ",.02)
 ;;55289044115
 ;;9002226.02101,"1033,55289044117 ",.01)
 ;;55289044117
 ;;9002226.02101,"1033,55289044117 ",.02)
 ;;55289044117
 ;;9002226.02101,"1033,55289044120 ",.01)
 ;;55289044120
 ;;9002226.02101,"1033,55289044120 ",.02)
 ;;55289044120
 ;;9002226.02101,"1033,55289044128 ",.01)
 ;;55289044128
 ;;9002226.02101,"1033,55289044128 ",.02)
 ;;55289044128
 ;;9002226.02101,"1033,55289044130 ",.01)
 ;;55289044130
 ;;9002226.02101,"1033,55289044130 ",.02)
 ;;55289044130
 ;;9002226.02101,"1033,55289044140 ",.01)
 ;;55289044140
 ;;9002226.02101,"1033,55289044140 ",.02)
 ;;55289044140
 ;;9002226.02101,"1033,55289044142 ",.01)
 ;;55289044142
 ;;9002226.02101,"1033,55289044142 ",.02)
 ;;55289044142
 ;;9002226.02101,"1033,55289044156 ",.01)
 ;;55289044156
 ;;9002226.02101,"1033,55289044156 ",.02)
 ;;55289044156
 ;;9002226.02101,"1033,55289044180 ",.01)
 ;;55289044180
 ;;9002226.02101,"1033,55289044180 ",.02)
 ;;55289044180
 ;;9002226.02101,"1033,55289044197 ",.01)
 ;;55289044197
 ;;9002226.02101,"1033,55289044197 ",.02)
 ;;55289044197
 ;;9002226.02101,"1033,55289044601 ",.01)
 ;;55289044601
 ;;9002226.02101,"1033,55289044601 ",.02)
 ;;55289044601
 ;;9002226.02101,"1033,55289044610 ",.01)
 ;;55289044610
 ;;9002226.02101,"1033,55289044610 ",.02)
 ;;55289044610
 ;;9002226.02101,"1033,55289044612 ",.01)
 ;;55289044612
 ;;9002226.02101,"1033,55289044612 ",.02)
 ;;55289044612
 ;;9002226.02101,"1033,55289044614 ",.01)
 ;;55289044614
 ;;9002226.02101,"1033,55289044614 ",.02)
 ;;55289044614
 ;;9002226.02101,"1033,55289044616 ",.01)
 ;;55289044616
 ;;9002226.02101,"1033,55289044616 ",.02)
 ;;55289044616
 ;;9002226.02101,"1033,55289044620 ",.01)
 ;;55289044620
 ;;9002226.02101,"1033,55289044620 ",.02)
 ;;55289044620
 ;;9002226.02101,"1033,55289044628 ",.01)
 ;;55289044628
 ;;9002226.02101,"1033,55289044628 ",.02)
 ;;55289044628
 ;;9002226.02101,"1033,55289044630 ",.01)
 ;;55289044630
 ;;9002226.02101,"1033,55289044630 ",.02)
 ;;55289044630
 ;;9002226.02101,"1033,55289044640 ",.01)
 ;;55289044640
 ;;9002226.02101,"1033,55289044640 ",.02)
 ;;55289044640
 ;;9002226.02101,"1033,55289044656 ",.01)
 ;;55289044656
 ;;9002226.02101,"1033,55289044656 ",.02)
 ;;55289044656
 ;;9002226.02101,"1033,55289044660 ",.01)
 ;;55289044660
 ;;9002226.02101,"1033,55289044660 ",.02)
 ;;55289044660
 ;;9002226.02101,"1033,55289045710 ",.01)
 ;;55289045710
 ;;9002226.02101,"1033,55289045710 ",.02)
 ;;55289045710
 ;;9002226.02101,"1033,55289045712 ",.01)
 ;;55289045712
 ;;9002226.02101,"1033,55289045712 ",.02)
 ;;55289045712
 ;;9002226.02101,"1033,55289045720 ",.01)
 ;;55289045720
 ;;9002226.02101,"1033,55289045720 ",.02)
 ;;55289045720
 ;;9002226.02101,"1033,55289050216 ",.01)
 ;;55289050216
 ;;9002226.02101,"1033,55289050216 ",.02)
 ;;55289050216
 ;;9002226.02101,"1033,55289050230 ",.01)
 ;;55289050230
 ;;9002226.02101,"1033,55289050230 ",.02)
 ;;55289050230
 ;;9002226.02101,"1033,55289050260 ",.01)
 ;;55289050260
 ;;9002226.02101,"1033,55289050260 ",.02)
 ;;55289050260
 ;;9002226.02101,"1033,55289058910 ",.01)
 ;;55289058910
 ;;9002226.02101,"1033,55289058910 ",.02)
 ;;55289058910
 ;;9002226.02101,"1033,55289058914 ",.01)
 ;;55289058914
 ;;9002226.02101,"1033,55289058914 ",.02)
 ;;55289058914
 ;;9002226.02101,"1033,55289058920 ",.01)
 ;;55289058920
 ;;9002226.02101,"1033,55289058920 ",.02)
 ;;55289058920
 ;;9002226.02101,"1033,55289059210 ",.01)
 ;;55289059210
 ;;9002226.02101,"1033,55289059210 ",.02)
 ;;55289059210
 ;;9002226.02101,"1033,55289059220 ",.01)
 ;;55289059220
 ;;9002226.02101,"1033,55289059220 ",.02)
 ;;55289059220
 ;;9002226.02101,"1033,55289059228 ",.01)
 ;;55289059228
 ;;9002226.02101,"1033,55289059228 ",.02)
 ;;55289059228
 ;;9002226.02101,"1033,55289059240 ",.01)
 ;;55289059240
 ;;9002226.02101,"1033,55289059240 ",.02)
 ;;55289059240
 ;;9002226.02101,"1033,55289059297 ",.01)
 ;;55289059297
 ;;9002226.02101,"1033,55289059297 ",.02)
 ;;55289059297
 ;;9002226.02101,"1033,55289059714 ",.01)
 ;;55289059714
 ;;9002226.02101,"1033,55289059714 ",.02)
 ;;55289059714
 ;;9002226.02101,"1033,55289059720 ",.01)
 ;;55289059720
 ;;9002226.02101,"1033,55289059720 ",.02)
 ;;55289059720
 ;;9002226.02101,"1033,55289060815 ",.01)
 ;;55289060815
 ;;9002226.02101,"1033,55289060815 ",.02)
 ;;55289060815
 ;;9002226.02101,"1033,55289060821 ",.01)
 ;;55289060821
 ;;9002226.02101,"1033,55289060821 ",.02)
 ;;55289060821
 ;;9002226.02101,"1033,55289060830 ",.01)
 ;;55289060830
 ;;9002226.02101,"1033,55289060830 ",.02)
 ;;55289060830
 ;;9002226.02101,"1033,55289061228 ",.01)
 ;;55289061228
 ;;9002226.02101,"1033,55289061228 ",.02)
 ;;55289061228
 ;;9002226.02101,"1033,55289061230 ",.01)
 ;;55289061230
 ;;9002226.02101,"1033,55289061230 ",.02)
 ;;55289061230
 ;;9002226.02101,"1033,55289070720 ",.01)
 ;;55289070720
 ;;9002226.02101,"1033,55289070720 ",.02)
 ;;55289070720
 ;;9002226.02101,"1033,55289070728 ",.01)
 ;;55289070728
 ;;9002226.02101,"1033,55289070728 ",.02)
 ;;55289070728
 ;;9002226.02101,"1033,55289072720 ",.01)
 ;;55289072720
 ;;9002226.02101,"1033,55289072720 ",.02)
 ;;55289072720
 ;;9002226.02101,"1033,55289072730 ",.01)
 ;;55289072730
 ;;9002226.02101,"1033,55289072730 ",.02)
 ;;55289072730
 ;;9002226.02101,"1033,55289074602 ",.01)
 ;;55289074602
 ;;9002226.02101,"1033,55289074602 ",.02)
 ;;55289074602
 ;;9002226.02101,"1033,55289074606 ",.01)
 ;;55289074606
 ;;9002226.02101,"1033,55289074606 ",.02)
 ;;55289074606
 ;;9002226.02101,"1033,55289074610 ",.01)
 ;;55289074610
 ;;9002226.02101,"1033,55289074610 ",.02)
 ;;55289074610
 ;;9002226.02101,"1033,55289074930 ",.01)
 ;;55289074930
 ;;9002226.02101,"1033,55289074930 ",.02)
 ;;55289074930
 ;;9002226.02101,"1033,55289076714 ",.01)
 ;;55289076714
 ;;9002226.02101,"1033,55289076714 ",.02)
 ;;55289076714
 ;;9002226.02101,"1033,55289076720 ",.01)
 ;;55289076720
 ;;9002226.02101,"1033,55289076720 ",.02)
 ;;55289076720
 ;;9002226.02101,"1033,55289076721 ",.01)
 ;;55289076721
 ;;9002226.02101,"1033,55289076721 ",.02)
 ;;55289076721
 ;;9002226.02101,"1033,55289076728 ",.01)
 ;;55289076728
 ;;9002226.02101,"1033,55289076728 ",.02)
 ;;55289076728
 ;;9002226.02101,"1033,55289076730 ",.01)
 ;;55289076730
 ;;9002226.02101,"1033,55289076730 ",.02)
 ;;55289076730
 ;;9002226.02101,"1033,55289082101 ",.01)
 ;;55289082101