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

BGPM5AQU.m

Go to the documentation of this file.
BGPM5AQU ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 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,"1005,16252053200 ",.01)
 ;;16252053200
 ;;9002226.02101,"1005,16252053200 ",.02)
 ;;16252053200
 ;;9002226.02101,"1005,16252053290 ",.01)
 ;;16252053290
 ;;9002226.02101,"1005,16252053290 ",.02)
 ;;16252053290
 ;;9002226.02101,"1005,16252061001 ",.01)
 ;;16252061001
 ;;9002226.02101,"1005,16252061001 ",.02)
 ;;16252061001
 ;;9002226.02101,"1005,16252061101 ",.01)
 ;;16252061101
 ;;9002226.02101,"1005,16252061101 ",.02)
 ;;16252061101
 ;;9002226.02101,"1005,16590030630 ",.01)
 ;;16590030630
 ;;9002226.02101,"1005,16590030630 ",.02)
 ;;16590030630
 ;;9002226.02101,"1005,16590030660 ",.01)
 ;;16590030660
 ;;9002226.02101,"1005,16590030660 ",.02)
 ;;16590030660
 ;;9002226.02101,"1005,16590030690 ",.01)
 ;;16590030690
 ;;9002226.02101,"1005,16590030690 ",.02)
 ;;16590030690
 ;;9002226.02101,"1005,16590030930 ",.01)
 ;;16590030930
 ;;9002226.02101,"1005,16590030930 ",.02)
 ;;16590030930
 ;;9002226.02101,"1005,16590030960 ",.01)
 ;;16590030960
 ;;9002226.02101,"1005,16590030960 ",.02)
 ;;16590030960
 ;;9002226.02101,"1005,16590030972 ",.01)
 ;;16590030972
 ;;9002226.02101,"1005,16590030972 ",.02)
 ;;16590030972
 ;;9002226.02101,"1005,16590030990 ",.01)
 ;;16590030990
 ;;9002226.02101,"1005,16590030990 ",.02)
 ;;16590030990
 ;;9002226.02101,"1005,16590031230 ",.01)
 ;;16590031230
 ;;9002226.02101,"1005,16590031230 ",.02)
 ;;16590031230
 ;;9002226.02101,"1005,16590031260 ",.01)
 ;;16590031260
 ;;9002226.02101,"1005,16590031260 ",.02)
 ;;16590031260
 ;;9002226.02101,"1005,16590031290 ",.01)
 ;;16590031290
 ;;9002226.02101,"1005,16590031290 ",.02)
 ;;16590031290
 ;;9002226.02101,"1005,16590035630 ",.01)
 ;;16590035630
 ;;9002226.02101,"1005,16590035630 ",.02)
 ;;16590035630
 ;;9002226.02101,"1005,16590035645 ",.01)
 ;;16590035645
 ;;9002226.02101,"1005,16590035645 ",.02)
 ;;16590035645
 ;;9002226.02101,"1005,16590035671 ",.01)
 ;;16590035671
 ;;9002226.02101,"1005,16590035671 ",.02)
 ;;16590035671
 ;;9002226.02101,"1005,16590039230 ",.01)
 ;;16590039230
 ;;9002226.02101,"1005,16590039230 ",.02)
 ;;16590039230
 ;;9002226.02101,"1005,16590039260 ",.01)
 ;;16590039260
 ;;9002226.02101,"1005,16590039260 ",.02)
 ;;16590039260
 ;;9002226.02101,"1005,16590039290 ",.01)
 ;;16590039290
 ;;9002226.02101,"1005,16590039290 ",.02)
 ;;16590039290
 ;;9002226.02101,"1005,17088003501 ",.01)
 ;;17088003501
 ;;9002226.02101,"1005,17088003501 ",.02)
 ;;17088003501
 ;;9002226.02101,"1005,17088003601 ",.01)
 ;;17088003601
 ;;9002226.02101,"1005,17088003601 ",.02)
 ;;17088003601
 ;;9002226.02101,"1005,17088003701 ",.01)
 ;;17088003701
 ;;9002226.02101,"1005,17088003701 ",.02)
 ;;17088003701
 ;;9002226.02101,"1005,17088004201 ",.01)
 ;;17088004201
 ;;9002226.02101,"1005,17088004201 ",.02)
 ;;17088004201
 ;;9002226.02101,"1005,17088004601 ",.01)
 ;;17088004601
 ;;9002226.02101,"1005,17088004601 ",.02)
 ;;17088004601
 ;;9002226.02101,"1005,17088009001 ",.01)
 ;;17088009001
 ;;9002226.02101,"1005,17088009001 ",.02)
 ;;17088009001
 ;;9002226.02101,"1005,17088393201 ",.01)
 ;;17088393201
 ;;9002226.02101,"1005,17088393201 ",.02)
 ;;17088393201
 ;;9002226.02101,"1005,17088393301 ",.01)
 ;;17088393301
 ;;9002226.02101,"1005,17088393301 ",.02)
 ;;17088393301
 ;;9002226.02101,"1005,17088400001 ",.01)
 ;;17088400001
 ;;9002226.02101,"1005,17088400001 ",.02)
 ;;17088400001
 ;;9002226.02101,"1005,17088400101 ",.01)
 ;;17088400101
 ;;9002226.02101,"1005,17088400101 ",.02)
 ;;17088400101
 ;;9002226.02101,"1005,17106100100 ",.01)
 ;;17106100100
 ;;9002226.02101,"1005,17106100100 ",.02)
 ;;17106100100
 ;;9002226.02101,"1005,17106100200 ",.01)
 ;;17106100200
 ;;9002226.02101,"1005,17106100200 ",.02)
 ;;17106100200
 ;;9002226.02101,"1005,17106100300 ",.01)
 ;;17106100300
 ;;9002226.02101,"1005,17106100300 ",.02)
 ;;17106100300
 ;;9002226.02101,"1005,17106100400 ",.01)
 ;;17106100400
 ;;9002226.02101,"1005,17106100400 ",.02)
 ;;17106100400
 ;;9002226.02101,"1005,17228001602 ",.01)
 ;;17228001602
 ;;9002226.02101,"1005,17228001602 ",.02)
 ;;17228001602
 ;;9002226.02101,"1005,17228001603 ",.01)
 ;;17228001603
 ;;9002226.02101,"1005,17228001603 ",.02)
 ;;17228001603
 ;;9002226.02101,"1005,17228001609 ",.01)
 ;;17228001609
 ;;9002226.02101,"1005,17228001609 ",.02)
 ;;17228001609
 ;;9002226.02101,"1005,17228003203 ",.01)
 ;;17228003203
 ;;9002226.02101,"1005,17228003203 ",.02)
 ;;17228003203
 ;;9002226.02101,"1005,17228003209 ",.01)
 ;;17228003209
 ;;9002226.02101,"1005,17228003209 ",.02)
 ;;17228003209
 ;;9002226.02101,"1005,17228016203 ",.01)
 ;;17228016203
 ;;9002226.02101,"1005,17228016203 ",.02)
 ;;17228016203
 ;;9002226.02101,"1005,17228016209 ",.01)
 ;;17228016209
 ;;9002226.02101,"1005,17228016209 ",.02)
 ;;17228016209
 ;;9002226.02101,"1005,17228032205 ",.01)
 ;;17228032205
 ;;9002226.02101,"1005,17228032205 ",.02)
 ;;17228032205
 ;;9002226.02101,"1005,17228032209 ",.01)
 ;;17228032209
 ;;9002226.02101,"1005,17228032209 ",.02)
 ;;17228032209
 ;;9002226.02101,"1005,17362010101 ",.01)
 ;;17362010101
 ;;9002226.02101,"1005,17362010101 ",.02)
 ;;17362010101
 ;;9002226.02101,"1005,17362010301 ",.01)
 ;;17362010301
 ;;9002226.02101,"1005,17362010301 ",.02)
 ;;17362010301
 ;;9002226.02101,"1005,17362010401 ",.01)
 ;;17362010401
 ;;9002226.02101,"1005,17362010401 ",.02)
 ;;17362010401
 ;;9002226.02101,"1005,17362010501 ",.01)
 ;;17362010501
 ;;9002226.02101,"1005,17362010501 ",.02)
 ;;17362010501
 ;;9002226.02101,"1005,17362010601 ",.01)
 ;;17362010601
 ;;9002226.02101,"1005,17362010601 ",.02)
 ;;17362010601
 ;;9002226.02101,"1005,17362010701 ",.01)
 ;;17362010701
 ;;9002226.02101,"1005,17362010701 ",.02)
 ;;17362010701
 ;;9002226.02101,"1005,17856004102 ",.01)
 ;;17856004102
 ;;9002226.02101,"1005,17856004102 ",.02)
 ;;17856004102
 ;;9002226.02101,"1005,17856099302 ",.01)
 ;;17856099302
 ;;9002226.02101,"1005,17856099302 ",.02)
 ;;17856099302
 ;;9002226.02101,"1005,185017310 ",.01)
 ;;185017310
 ;;9002226.02101,"1005,185017310 ",.02)
 ;;185017310
 ;;9002226.02101,"1005,18837027730 ",.01)
 ;;18837027730
 ;;9002226.02101,"1005,18837027730 ",.02)
 ;;18837027730
 ;;9002226.02101,"1005,21695032830 ",.01)
 ;;21695032830
 ;;9002226.02101,"1005,21695032830 ",.02)
 ;;21695032830
 ;;9002226.02101,"1005,21695032890 ",.01)
 ;;21695032890
 ;;9002226.02101,"1005,21695032890 ",.02)
 ;;21695032890
 ;;9002226.02101,"1005,21695032930 ",.01)
 ;;21695032930
 ;;9002226.02101,"1005,21695032930 ",.02)
 ;;21695032930
 ;;9002226.02101,"1005,21695032978 ",.01)
 ;;21695032978
 ;;9002226.02101,"1005,21695032978 ",.02)
 ;;21695032978
 ;;9002226.02101,"1005,21695032990 ",.01)
 ;;21695032990
 ;;9002226.02101,"1005,21695032990 ",.02)
 ;;21695032990
 ;;9002226.02101,"1005,21695033020 ",.01)
 ;;21695033020
 ;;9002226.02101,"1005,21695033020 ",.02)
 ;;21695033020
 ;;9002226.02101,"1005,21695033030 ",.01)
 ;;21695033030
 ;;9002226.02101,"1005,21695033030 ",.02)
 ;;21695033030
 ;;9002226.02101,"1005,21695033090 ",.01)
 ;;21695033090
 ;;9002226.02101,"1005,21695033090 ",.02)
 ;;21695033090
 ;;9002226.02101,"1005,21695033130 ",.01)
 ;;21695033130
 ;;9002226.02101,"1005,21695033130 ",.02)
 ;;21695033130
 ;;9002226.02101,"1005,21695033190 ",.01)
 ;;21695033190
 ;;9002226.02101,"1005,21695033190 ",.02)
 ;;21695033190
 ;;9002226.02101,"1005,21695034590 ",.01)
 ;;21695034590
 ;;9002226.02101,"1005,21695034590 ",.02)
 ;;21695034590
 ;;9002226.02101,"1005,21695039330 ",.01)
 ;;21695039330
 ;;9002226.02101,"1005,21695039330 ",.02)
 ;;21695039330
 ;;9002226.02101,"1005,21695039430 ",.01)
 ;;21695039430
 ;;9002226.02101,"1005,21695039430 ",.02)
 ;;21695039430
 ;;9002226.02101,"1005,21695047730 ",.01)
 ;;21695047730
 ;;9002226.02101,"1005,21695047730 ",.02)
 ;;21695047730
 ;;9002226.02101,"1005,21695047778 ",.01)
 ;;21695047778
 ;;9002226.02101,"1005,21695047778 ",.02)
 ;;21695047778
 ;;9002226.02101,"1005,21695047830 ",.01)
 ;;21695047830
 ;;9002226.02101,"1005,21695047830 ",.02)
 ;;21695047830
 ;;9002226.02101,"1005,21695048730 ",.01)
 ;;21695048730
 ;;9002226.02101,"1005,21695048730 ",.02)
 ;;21695048730
 ;;9002226.02101,"1005,21695048830 ",.01)
 ;;21695048830
 ;;9002226.02101,"1005,21695048830 ",.02)
 ;;21695048830
 ;;9002226.02101,"1005,21695048860 ",.01)
 ;;21695048860
 ;;9002226.02101,"1005,21695048860 ",.02)
 ;;21695048860
 ;;9002226.02101,"1005,21695048890 ",.01)
 ;;21695048890
 ;;9002226.02101,"1005,21695048890 ",.02)
 ;;21695048890
 ;;9002226.02101,"1005,21695048930 ",.01)
 ;;21695048930
 ;;9002226.02101,"1005,21695048930 ",.02)
 ;;21695048930
 ;;9002226.02101,"1005,21695048990 ",.01)
 ;;21695048990
 ;;9002226.02101,"1005,21695048990 ",.02)
 ;;21695048990
 ;;9002226.02101,"1005,21695073330 ",.01)
 ;;21695073330
 ;;9002226.02101,"1005,21695073330 ",.02)
 ;;21695073330
 ;;9002226.02101,"1005,21695073430 ",.01)
 ;;21695073430
 ;;9002226.02101,"1005,21695073430 ",.02)
 ;;21695073430
 ;;9002226.02101,"1005,21695073460 ",.01)
 ;;21695073460
 ;;9002226.02101,"1005,21695073460 ",.02)
 ;;21695073460
 ;;9002226.02101,"1005,21695073530 ",.01)
 ;;21695073530
 ;;9002226.02101,"1005,21695073530 ",.02)
 ;;21695073530
 ;;9002226.02101,"1005,21695073560 ",.01)
 ;;21695073560
 ;;9002226.02101,"1005,21695073560 ",.02)
 ;;21695073560
 ;;9002226.02101,"1005,21695073590 ",.01)
 ;;21695073590
 ;;9002226.02101,"1005,21695073590 ",.02)
 ;;21695073590
 ;;9002226.02101,"1005,21695078030 ",.01)
 ;;21695078030
 ;;9002226.02101,"1005,21695078030 ",.02)
 ;;21695078030
 ;;9002226.02101,"1005,21695091790 ",.01)
 ;;21695091790
 ;;9002226.02101,"1005,21695091790 ",.02)
 ;;21695091790
 ;;9002226.02101,"1005,21695091890 ",.01)
 ;;21695091890
 ;;9002226.02101,"1005,21695091890 ",.02)
 ;;21695091890
 ;;9002226.02101,"1005,21695091990 ",.01)
 ;;21695091990
 ;;9002226.02101,"1005,21695091990 ",.02)
 ;;21695091990
 ;;9002226.02101,"1005,23490052300 ",.01)
 ;;23490052300
 ;;9002226.02101,"1005,23490052300 ",.02)
 ;;23490052300
 ;;9002226.02101,"1005,23490052303 ",.01)
 ;;23490052303
 ;;9002226.02101,"1005,23490052303 ",.02)
 ;;23490052303
 ;;9002226.02101,"1005,23490052305 ",.01)
 ;;23490052305
 ;;9002226.02101,"1005,23490052305 ",.02)
 ;;23490052305
 ;;9002226.02101,"1005,23490052306 ",.01)
 ;;23490052306
 ;;9002226.02101,"1005,23490052306 ",.02)
 ;;23490052306
 ;;9002226.02101,"1005,23490052309 ",.01)
 ;;23490052309
 ;;9002226.02101,"1005,23490052309 ",.02)
 ;;23490052309
 ;;9002226.02101,"1005,23490082700 ",.01)
 ;;23490082700
 ;;9002226.02101,"1005,23490082700 ",.02)
 ;;23490082700
 ;;9002226.02101,"1005,23490082703 ",.01)
 ;;23490082703
 ;;9002226.02101,"1005,23490082703 ",.02)
 ;;23490082703
 ;;9002226.02101,"1005,23490082705 ",.01)
 ;;23490082705
 ;;9002226.02101,"1005,23490082705 ",.02)
 ;;23490082705
 ;;9002226.02101,"1005,23490082706 ",.01)
 ;;23490082706
 ;;9002226.02101,"1005,23490082706 ",.02)
 ;;23490082706
 ;;9002226.02101,"1005,23490082709 ",.01)
 ;;23490082709
 ;;9002226.02101,"1005,23490082709 ",.02)
 ;;23490082709
 ;;9002226.02101,"1005,23490082903 ",.01)
 ;;23490082903
 ;;9002226.02101,"1005,23490082903 ",.02)
 ;;23490082903
 ;;9002226.02101,"1005,23490082905 ",.01)
 ;;23490082905
 ;;9002226.02101,"1005,23490082905 ",.02)
 ;;23490082905
 ;;9002226.02101,"1005,23490082906 ",.01)
 ;;23490082906
 ;;9002226.02101,"1005,23490082906 ",.02)
 ;;23490082906
 ;;9002226.02101,"1005,23490082909 ",.01)
 ;;23490082909
 ;;9002226.02101,"1005,23490082909 ",.02)
 ;;23490082909
 ;;9002226.02101,"1005,23490148703 ",.01)
 ;;23490148703
 ;;9002226.02101,"1005,23490148703 ",.02)
 ;;23490148703
 ;;9002226.02101,"1005,23490148706 ",.01)
 ;;23490148706