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

BGPM5BBV.m

Go to the documentation of this file.
BGPM5BBV ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 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,"1044,13411017201 ",.01)
 ;;13411017201
 ;;9002226.02101,"1044,13411017201 ",.02)
 ;;13411017201
 ;;9002226.02101,"1044,13411017203 ",.01)
 ;;13411017203
 ;;9002226.02101,"1044,13411017203 ",.02)
 ;;13411017203
 ;;9002226.02101,"1044,13411017206 ",.01)
 ;;13411017206
 ;;9002226.02101,"1044,13411017206 ",.02)
 ;;13411017206
 ;;9002226.02101,"1044,13411017209 ",.01)
 ;;13411017209
 ;;9002226.02101,"1044,13411017209 ",.02)
 ;;13411017209
 ;;9002226.02101,"1044,13411017210 ",.01)
 ;;13411017210
 ;;9002226.02101,"1044,13411017210 ",.02)
 ;;13411017210
 ;;9002226.02101,"1044,13411017301 ",.01)
 ;;13411017301
 ;;9002226.02101,"1044,13411017301 ",.02)
 ;;13411017301
 ;;9002226.02101,"1044,13411017303 ",.01)
 ;;13411017303
 ;;9002226.02101,"1044,13411017303 ",.02)
 ;;13411017303
 ;;9002226.02101,"1044,13411017306 ",.01)
 ;;13411017306
 ;;9002226.02101,"1044,13411017306 ",.02)
 ;;13411017306
 ;;9002226.02101,"1044,13411017309 ",.01)
 ;;13411017309
 ;;9002226.02101,"1044,13411017309 ",.02)
 ;;13411017309
 ;;9002226.02101,"1044,13411017310 ",.01)
 ;;13411017310
 ;;9002226.02101,"1044,13411017310 ",.02)
 ;;13411017310
 ;;9002226.02101,"1044,13411017403 ",.01)
 ;;13411017403
 ;;9002226.02101,"1044,13411017403 ",.02)
 ;;13411017403
 ;;9002226.02101,"1044,13411017410 ",.01)
 ;;13411017410
 ;;9002226.02101,"1044,13411017410 ",.02)
 ;;13411017410
 ;;9002226.02101,"1044,13411028003 ",.01)
 ;;13411028003
 ;;9002226.02101,"1044,13411028003 ",.02)
 ;;13411028003
 ;;9002226.02101,"1044,13411028103 ",.01)
 ;;13411028103
 ;;9002226.02101,"1044,13411028103 ",.02)
 ;;13411028103
 ;;9002226.02101,"1044,13411028203 ",.01)
 ;;13411028203
 ;;9002226.02101,"1044,13411028203 ",.02)
 ;;13411028203
 ;;9002226.02101,"1044,13411028303 ",.01)
 ;;13411028303
 ;;9002226.02101,"1044,13411028303 ",.02)
 ;;13411028303
 ;;9002226.02101,"1044,13411028403 ",.01)
 ;;13411028403
 ;;9002226.02101,"1044,13411028403 ",.02)
 ;;13411028403
 ;;9002226.02101,"1044,13411031503 ",.01)
 ;;13411031503
 ;;9002226.02101,"1044,13411031503 ",.02)
 ;;13411031503
 ;;9002226.02101,"1044,13411031603 ",.01)
 ;;13411031603
 ;;9002226.02101,"1044,13411031603 ",.02)
 ;;13411031603
 ;;9002226.02101,"1044,13411040403 ",.01)
 ;;13411040403
 ;;9002226.02101,"1044,13411040403 ",.02)
 ;;13411040403
 ;;9002226.02101,"1044,13411040503 ",.01)
 ;;13411040503
 ;;9002226.02101,"1044,13411040503 ",.02)
 ;;13411040503
 ;;9002226.02101,"1044,13411041003 ",.01)
 ;;13411041003
 ;;9002226.02101,"1044,13411041003 ",.02)
 ;;13411041003
 ;;9002226.02101,"1044,13411041103 ",.01)
 ;;13411041103
 ;;9002226.02101,"1044,13411041103 ",.02)
 ;;13411041103
 ;;9002226.02101,"1044,13411043203 ",.01)
 ;;13411043203
 ;;9002226.02101,"1044,13411043203 ",.02)
 ;;13411043203
 ;;9002226.02101,"1044,13411043303 ",.01)
 ;;13411043303
 ;;9002226.02101,"1044,13411043303 ",.02)
 ;;13411043303
 ;;9002226.02101,"1044,13411047103 ",.01)
 ;;13411047103
 ;;9002226.02101,"1044,13411047103 ",.02)
 ;;13411047103
 ;;9002226.02101,"1044,13411053403 ",.01)
 ;;13411053403
 ;;9002226.02101,"1044,13411053403 ",.02)
 ;;13411053403
 ;;9002226.02101,"1044,13411054203 ",.01)
 ;;13411054203
 ;;9002226.02101,"1044,13411054203 ",.02)
 ;;13411054203
 ;;9002226.02101,"1044,13668000401 ",.01)
 ;;13668000401
 ;;9002226.02101,"1044,13668000401 ",.02)
 ;;13668000401
 ;;9002226.02101,"1044,13668000405 ",.01)
 ;;13668000405
 ;;9002226.02101,"1044,13668000405 ",.02)
 ;;13668000405
 ;;9002226.02101,"1044,13668000410 ",.01)
 ;;13668000410
 ;;9002226.02101,"1044,13668000410 ",.02)
 ;;13668000410
 ;;9002226.02101,"1044,13668000430 ",.01)
 ;;13668000430
 ;;9002226.02101,"1044,13668000430 ",.02)
 ;;13668000430
 ;;9002226.02101,"1044,13668000450 ",.01)
 ;;13668000450
 ;;9002226.02101,"1044,13668000450 ",.02)
 ;;13668000450
 ;;9002226.02101,"1044,13668000490 ",.01)
 ;;13668000490
 ;;9002226.02101,"1044,13668000490 ",.02)
 ;;13668000490
 ;;9002226.02101,"1044,13668000501 ",.01)
 ;;13668000501
 ;;9002226.02101,"1044,13668000501 ",.02)
 ;;13668000501
 ;;9002226.02101,"1044,13668000505 ",.01)
 ;;13668000505
 ;;9002226.02101,"1044,13668000505 ",.02)
 ;;13668000505
 ;;9002226.02101,"1044,13668000510 ",.01)
 ;;13668000510
 ;;9002226.02101,"1044,13668000510 ",.02)
 ;;13668000510
 ;;9002226.02101,"1044,13668000530 ",.01)
 ;;13668000530
 ;;9002226.02101,"1044,13668000530 ",.02)
 ;;13668000530
 ;;9002226.02101,"1044,13668000550 ",.01)
 ;;13668000550
 ;;9002226.02101,"1044,13668000550 ",.02)
 ;;13668000550
 ;;9002226.02101,"1044,13668000590 ",.01)
 ;;13668000590
 ;;9002226.02101,"1044,13668000590 ",.02)
 ;;13668000590
 ;;9002226.02101,"1044,13668000601 ",.01)
 ;;13668000601
 ;;9002226.02101,"1044,13668000601 ",.02)
 ;;13668000601
 ;;9002226.02101,"1044,13668000605 ",.01)
 ;;13668000605
 ;;9002226.02101,"1044,13668000605 ",.02)
 ;;13668000605
 ;;9002226.02101,"1044,13668000610 ",.01)
 ;;13668000610
 ;;9002226.02101,"1044,13668000610 ",.02)
 ;;13668000610
 ;;9002226.02101,"1044,13668000613 ",.01)
 ;;13668000613
 ;;9002226.02101,"1044,13668000613 ",.02)
 ;;13668000613
 ;;9002226.02101,"1044,13668000630 ",.01)
 ;;13668000630
 ;;9002226.02101,"1044,13668000630 ",.02)
 ;;13668000630
 ;;9002226.02101,"1044,13668000650 ",.01)
 ;;13668000650
 ;;9002226.02101,"1044,13668000650 ",.02)
 ;;13668000650
 ;;9002226.02101,"1044,13668000674 ",.01)
 ;;13668000674
 ;;9002226.02101,"1044,13668000674 ",.02)
 ;;13668000674
 ;;9002226.02101,"1044,13668000690 ",.01)
 ;;13668000690
 ;;9002226.02101,"1044,13668000690 ",.02)
 ;;13668000690
 ;;9002226.02101,"1044,13668000901 ",.01)
 ;;13668000901
 ;;9002226.02101,"1044,13668000901 ",.02)
 ;;13668000901
 ;;9002226.02101,"1044,13668000905 ",.01)
 ;;13668000905
 ;;9002226.02101,"1044,13668000905 ",.02)
 ;;13668000905
 ;;9002226.02101,"1044,13668000909 ",.01)
 ;;13668000909
 ;;9002226.02101,"1044,13668000909 ",.02)
 ;;13668000909
 ;;9002226.02101,"1044,13668000930 ",.01)
 ;;13668000930
 ;;9002226.02101,"1044,13668000930 ",.02)
 ;;13668000930
 ;;9002226.02101,"1044,13668000974 ",.01)
 ;;13668000974
 ;;9002226.02101,"1044,13668000974 ",.02)
 ;;13668000974
 ;;9002226.02101,"1044,13668001001 ",.01)
 ;;13668001001
 ;;9002226.02101,"1044,13668001001 ",.02)
 ;;13668001001
 ;;9002226.02101,"1044,13668001005 ",.01)
 ;;13668001005
 ;;9002226.02101,"1044,13668001005 ",.02)
 ;;13668001005
 ;;9002226.02101,"1044,13668001006 ",.01)
 ;;13668001006
 ;;9002226.02101,"1044,13668001006 ",.02)
 ;;13668001006
 ;;9002226.02101,"1044,13668001030 ",.01)
 ;;13668001030
 ;;9002226.02101,"1044,13668001030 ",.02)
 ;;13668001030
 ;;9002226.02101,"1044,13668001074 ",.01)
 ;;13668001074
 ;;9002226.02101,"1044,13668001074 ",.02)
 ;;13668001074
 ;;9002226.02101,"1044,13668001101 ",.01)
 ;;13668001101
 ;;9002226.02101,"1044,13668001101 ",.02)
 ;;13668001101
 ;;9002226.02101,"1044,13668001105 ",.01)
 ;;13668001105
 ;;9002226.02101,"1044,13668001105 ",.02)
 ;;13668001105
 ;;9002226.02101,"1044,13668001108 ",.01)
 ;;13668001108
 ;;9002226.02101,"1044,13668001108 ",.02)
 ;;13668001108
 ;;9002226.02101,"1044,13668001130 ",.01)
 ;;13668001130
 ;;9002226.02101,"1044,13668001130 ",.02)
 ;;13668001130
 ;;9002226.02101,"1044,13668001174 ",.01)
 ;;13668001174
 ;;9002226.02101,"1044,13668001174 ",.02)
 ;;13668001174
 ;;9002226.02101,"1044,13668001801 ",.01)
 ;;13668001801
 ;;9002226.02101,"1044,13668001801 ",.02)
 ;;13668001801
 ;;9002226.02101,"1044,13668001805 ",.01)
 ;;13668001805
 ;;9002226.02101,"1044,13668001805 ",.02)
 ;;13668001805
 ;;9002226.02101,"1044,13668001830 ",.01)
 ;;13668001830
 ;;9002226.02101,"1044,13668001830 ",.02)
 ;;13668001830
 ;;9002226.02101,"1044,13668001845 ",.01)
 ;;13668001845
 ;;9002226.02101,"1044,13668001845 ",.02)
 ;;13668001845
 ;;9002226.02101,"1044,13668001874 ",.01)
 ;;13668001874
 ;;9002226.02101,"1044,13668001874 ",.02)
 ;;13668001874
 ;;9002226.02101,"1044,13668001890 ",.01)
 ;;13668001890
 ;;9002226.02101,"1044,13668001890 ",.02)
 ;;13668001890
 ;;9002226.02101,"1044,13668001901 ",.01)
 ;;13668001901
 ;;9002226.02101,"1044,13668001901 ",.02)
 ;;13668001901
 ;;9002226.02101,"1044,13668001905 ",.01)
 ;;13668001905
 ;;9002226.02101,"1044,13668001905 ",.02)
 ;;13668001905
 ;;9002226.02101,"1044,13668001930 ",.01)
 ;;13668001930
 ;;9002226.02101,"1044,13668001930 ",.02)
 ;;13668001930
 ;;9002226.02101,"1044,13668001946 ",.01)
 ;;13668001946
 ;;9002226.02101,"1044,13668001946 ",.02)
 ;;13668001946
 ;;9002226.02101,"1044,13668001974 ",.01)
 ;;13668001974
 ;;9002226.02101,"1044,13668001974 ",.02)
 ;;13668001974
 ;;9002226.02101,"1044,13668001990 ",.01)
 ;;13668001990
 ;;9002226.02101,"1044,13668001990 ",.02)
 ;;13668001990
 ;;9002226.02101,"1044,13668002001 ",.01)
 ;;13668002001
 ;;9002226.02101,"1044,13668002001 ",.02)
 ;;13668002001
 ;;9002226.02101,"1044,13668002005 ",.01)
 ;;13668002005
 ;;9002226.02101,"1044,13668002005 ",.02)
 ;;13668002005
 ;;9002226.02101,"1044,13668002030 ",.01)
 ;;13668002030
 ;;9002226.02101,"1044,13668002030 ",.02)
 ;;13668002030
 ;;9002226.02101,"1044,13668002074 ",.01)
 ;;13668002074
 ;;9002226.02101,"1044,13668002074 ",.02)
 ;;13668002074
 ;;9002226.02101,"1044,13668002090 ",.01)
 ;;13668002090
 ;;9002226.02101,"1044,13668002090 ",.02)
 ;;13668002090
 ;;9002226.02101,"1044,16252001200 ",.01)
 ;;16252001200
 ;;9002226.02101,"1044,16252001200 ",.02)
 ;;16252001200
 ;;9002226.02101,"1044,16252001217 ",.01)
 ;;16252001217
 ;;9002226.02101,"1044,16252001217 ",.02)
 ;;16252001217
 ;;9002226.02101,"1044,16252001225 ",.01)
 ;;16252001225
 ;;9002226.02101,"1044,16252001225 ",.02)
 ;;16252001225
 ;;9002226.02101,"1044,16252001240 ",.01)
 ;;16252001240
 ;;9002226.02101,"1044,16252001240 ",.02)
 ;;16252001240
 ;;9002226.02101,"1044,16252051000 ",.01)
 ;;16252051000
 ;;9002226.02101,"1044,16252051000 ",.02)
 ;;16252051000
 ;;9002226.02101,"1044,16252051001 ",.01)
 ;;16252051001
 ;;9002226.02101,"1044,16252051001 ",.02)
 ;;16252051001
 ;;9002226.02101,"1044,16252051100 ",.01)
 ;;16252051100
 ;;9002226.02101,"1044,16252051100 ",.02)
 ;;16252051100
 ;;9002226.02101,"1044,16252051101 ",.01)
 ;;16252051101
 ;;9002226.02101,"1044,16252051101 ",.02)
 ;;16252051101
 ;;9002226.02101,"1044,16252051200 ",.01)
 ;;16252051200
 ;;9002226.02101,"1044,16252051200 ",.02)
 ;;16252051200
 ;;9002226.02101,"1044,16252051201 ",.01)
 ;;16252051201
 ;;9002226.02101,"1044,16252051201 ",.02)
 ;;16252051201
 ;;9002226.02101,"1044,16252053330 ",.01)
 ;;16252053330
 ;;9002226.02101,"1044,16252053330 ",.02)
 ;;16252053330
 ;;9002226.02101,"1044,16252053350 ",.01)
 ;;16252053350
 ;;9002226.02101,"1044,16252053350 ",.02)
 ;;16252053350
 ;;9002226.02101,"1044,16252053390 ",.01)
 ;;16252053390
 ;;9002226.02101,"1044,16252053390 ",.02)
 ;;16252053390
 ;;9002226.02101,"1044,16252053430 ",.01)
 ;;16252053430
 ;;9002226.02101,"1044,16252053430 ",.02)
 ;;16252053430
 ;;9002226.02101,"1044,16252053450 ",.01)
 ;;16252053450
 ;;9002226.02101,"1044,16252053450 ",.02)
 ;;16252053450
 ;;9002226.02101,"1044,16252053490 ",.01)
 ;;16252053490
 ;;9002226.02101,"1044,16252053490 ",.02)
 ;;16252053490
 ;;9002226.02101,"1044,16252053530 ",.01)
 ;;16252053530
 ;;9002226.02101,"1044,16252053530 ",.02)
 ;;16252053530
 ;;9002226.02101,"1044,16252053550 ",.01)
 ;;16252053550
 ;;9002226.02101,"1044,16252053550 ",.02)
 ;;16252053550
 ;;9002226.02101,"1044,16252053590 ",.01)
 ;;16252053590
 ;;9002226.02101,"1044,16252053590 ",.02)
 ;;16252053590
 ;;9002226.02101,"1044,16590001128 ",.01)
 ;;16590001128
 ;;9002226.02101,"1044,16590001128 ",.02)
 ;;16590001128
 ;;9002226.02101,"1044,16590001130 ",.01)
 ;;16590001130