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

BGPM5AEH.m

Go to the documentation of this file.
  1. BGPM5AEH ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"881,15548004701 ",.01)
  1. ;;15548004701
  1. ;;9002226.02101,"881,15548004701 ",.02)
  1. ;;15548004701
  1. ;;9002226.02101,"881,15548004703 ",.01)
  1. ;;15548004703
  1. ;;9002226.02101,"881,15548004703 ",.02)
  1. ;;15548004703
  1. ;;9002226.02101,"881,15548004801 ",.01)
  1. ;;15548004801
  1. ;;9002226.02101,"881,15548004801 ",.02)
  1. ;;15548004801
  1. ;;9002226.02101,"881,15548022703 ",.01)
  1. ;;15548022703
  1. ;;9002226.02101,"881,15548022703 ",.02)
  1. ;;15548022703
  1. ;;9002226.02101,"881,15548027203 ",.01)
  1. ;;15548027203
  1. ;;9002226.02101,"881,15548027203 ",.02)
  1. ;;15548027203
  1. ;;9002226.02101,"881,15548027210 ",.01)
  1. ;;15548027210
  1. ;;9002226.02101,"881,15548027210 ",.02)
  1. ;;15548027210
  1. ;;9002226.02101,"881,15548027303 ",.01)
  1. ;;15548027303
  1. ;;9002226.02101,"881,15548027303 ",.02)
  1. ;;15548027303
  1. ;;9002226.02101,"881,15548027310 ",.01)
  1. ;;15548027310
  1. ;;9002226.02101,"881,15548027310 ",.02)
  1. ;;15548027310
  1. ;;9002226.02101,"881,16252053000 ",.01)
  1. ;;16252053000
  1. ;;9002226.02101,"881,16252053000 ",.02)
  1. ;;16252053000
  1. ;;9002226.02101,"881,16252053090 ",.01)
  1. ;;16252053090
  1. ;;9002226.02101,"881,16252053090 ",.02)
  1. ;;16252053090
  1. ;;9002226.02101,"881,16252053100 ",.01)
  1. ;;16252053100
  1. ;;9002226.02101,"881,16252053100 ",.02)
  1. ;;16252053100
  1. ;;9002226.02101,"881,16252053190 ",.01)
  1. ;;16252053190
  1. ;;9002226.02101,"881,16252053190 ",.02)
  1. ;;16252053190
  1. ;;9002226.02101,"881,16252053200 ",.01)
  1. ;;16252053200
  1. ;;9002226.02101,"881,16252053200 ",.02)
  1. ;;16252053200
  1. ;;9002226.02101,"881,16252053290 ",.01)
  1. ;;16252053290
  1. ;;9002226.02101,"881,16252053290 ",.02)
  1. ;;16252053290
  1. ;;9002226.02101,"881,16252054100 ",.01)
  1. ;;16252054100
  1. ;;9002226.02101,"881,16252054100 ",.02)
  1. ;;16252054100
  1. ;;9002226.02101,"881,16252054130 ",.01)
  1. ;;16252054130
  1. ;;9002226.02101,"881,16252054130 ",.02)
  1. ;;16252054130
  1. ;;9002226.02101,"881,16252054200 ",.01)
  1. ;;16252054200
  1. ;;9002226.02101,"881,16252054200 ",.02)
  1. ;;16252054200
  1. ;;9002226.02101,"881,16252054290 ",.01)
  1. ;;16252054290
  1. ;;9002226.02101,"881,16252054290 ",.02)
  1. ;;16252054290
  1. ;;9002226.02101,"881,16252057001 ",.01)
  1. ;;16252057001
  1. ;;9002226.02101,"881,16252057001 ",.02)
  1. ;;16252057001
  1. ;;9002226.02101,"881,16252057030 ",.01)
  1. ;;16252057030
  1. ;;9002226.02101,"881,16252057030 ",.02)
  1. ;;16252057030
  1. ;;9002226.02101,"881,16252057101 ",.01)
  1. ;;16252057101
  1. ;;9002226.02101,"881,16252057101 ",.02)
  1. ;;16252057101
  1. ;;9002226.02101,"881,16252057150 ",.01)
  1. ;;16252057150
  1. ;;9002226.02101,"881,16252057150 ",.02)
  1. ;;16252057150
  1. ;;9002226.02101,"881,16252057201 ",.01)
  1. ;;16252057201
  1. ;;9002226.02101,"881,16252057201 ",.02)
  1. ;;16252057201
  1. ;;9002226.02101,"881,16252057250 ",.01)
  1. ;;16252057250
  1. ;;9002226.02101,"881,16252057250 ",.02)
  1. ;;16252057250
  1. ;;9002226.02101,"881,16252057301 ",.01)
  1. ;;16252057301
  1. ;;9002226.02101,"881,16252057301 ",.02)
  1. ;;16252057301
  1. ;;9002226.02101,"881,16252057310 ",.01)
  1. ;;16252057310
  1. ;;9002226.02101,"881,16252057310 ",.02)
  1. ;;16252057310
  1. ;;9002226.02101,"881,16252057350 ",.01)
  1. ;;16252057350
  1. ;;9002226.02101,"881,16252057350 ",.02)
  1. ;;16252057350
  1. ;;9002226.02101,"881,16252061001 ",.01)
  1. ;;16252061001
  1. ;;9002226.02101,"881,16252061001 ",.02)
  1. ;;16252061001
  1. ;;9002226.02101,"881,16252061101 ",.01)
  1. ;;16252061101
  1. ;;9002226.02101,"881,16252061101 ",.02)
  1. ;;16252061101
  1. ;;9002226.02101,"881,16252061201 ",.01)
  1. ;;16252061201
  1. ;;9002226.02101,"881,16252061201 ",.02)
  1. ;;16252061201
  1. ;;9002226.02101,"881,16252061301 ",.01)
  1. ;;16252061301
  1. ;;9002226.02101,"881,16252061301 ",.02)
  1. ;;16252061301
  1. ;;9002226.02101,"881,16252061401 ",.01)
  1. ;;16252061401
  1. ;;9002226.02101,"881,16252061401 ",.02)
  1. ;;16252061401
  1. ;;9002226.02101,"881,16590030630 ",.01)
  1. ;;16590030630
  1. ;;9002226.02101,"881,16590030630 ",.02)
  1. ;;16590030630
  1. ;;9002226.02101,"881,16590030660 ",.01)
  1. ;;16590030660
  1. ;;9002226.02101,"881,16590030660 ",.02)
  1. ;;16590030660
  1. ;;9002226.02101,"881,16590030690 ",.01)
  1. ;;16590030690
  1. ;;9002226.02101,"881,16590030690 ",.02)
  1. ;;16590030690
  1. ;;9002226.02101,"881,16590030930 ",.01)
  1. ;;16590030930
  1. ;;9002226.02101,"881,16590030930 ",.02)
  1. ;;16590030930
  1. ;;9002226.02101,"881,16590030960 ",.01)
  1. ;;16590030960
  1. ;;9002226.02101,"881,16590030960 ",.02)
  1. ;;16590030960
  1. ;;9002226.02101,"881,16590030972 ",.01)
  1. ;;16590030972
  1. ;;9002226.02101,"881,16590030972 ",.02)
  1. ;;16590030972
  1. ;;9002226.02101,"881,16590030990 ",.01)
  1. ;;16590030990
  1. ;;9002226.02101,"881,16590030990 ",.02)
  1. ;;16590030990
  1. ;;9002226.02101,"881,16590035630 ",.01)
  1. ;;16590035630
  1. ;;9002226.02101,"881,16590035630 ",.02)
  1. ;;16590035630
  1. ;;9002226.02101,"881,16590035645 ",.01)
  1. ;;16590035645
  1. ;;9002226.02101,"881,16590035645 ",.02)
  1. ;;16590035645
  1. ;;9002226.02101,"881,16590035671 ",.01)
  1. ;;16590035671
  1. ;;9002226.02101,"881,16590035671 ",.02)
  1. ;;16590035671
  1. ;;9002226.02101,"881,16590039230 ",.01)
  1. ;;16590039230
  1. ;;9002226.02101,"881,16590039230 ",.02)
  1. ;;16590039230
  1. ;;9002226.02101,"881,16590039260 ",.01)
  1. ;;16590039260
  1. ;;9002226.02101,"881,16590039260 ",.02)
  1. ;;16590039260
  1. ;;9002226.02101,"881,16590039290 ",.01)
  1. ;;16590039290
  1. ;;9002226.02101,"881,16590039290 ",.02)
  1. ;;16590039290
  1. ;;9002226.02101,"881,17106100100 ",.01)
  1. ;;17106100100
  1. ;;9002226.02101,"881,17106100100 ",.02)
  1. ;;17106100100
  1. ;;9002226.02101,"881,17106100200 ",.01)
  1. ;;17106100200
  1. ;;9002226.02101,"881,17106100200 ",.02)
  1. ;;17106100200
  1. ;;9002226.02101,"881,17106100300 ",.01)
  1. ;;17106100300
  1. ;;9002226.02101,"881,17106100300 ",.02)
  1. ;;17106100300
  1. ;;9002226.02101,"881,17106100400 ",.01)
  1. ;;17106100400
  1. ;;9002226.02101,"881,17106100400 ",.02)
  1. ;;17106100400
  1. ;;9002226.02101,"881,17856004102 ",.01)
  1. ;;17856004102
  1. ;;9002226.02101,"881,17856004102 ",.02)
  1. ;;17856004102
  1. ;;9002226.02101,"881,17856010802 ",.01)
  1. ;;17856010802
  1. ;;9002226.02101,"881,17856010802 ",.02)
  1. ;;17856010802
  1. ;;9002226.02101,"881,17856099002 ",.01)
  1. ;;17856099002
  1. ;;9002226.02101,"881,17856099002 ",.02)
  1. ;;17856099002
  1. ;;9002226.02101,"881,17856099302 ",.01)
  1. ;;17856099302
  1. ;;9002226.02101,"881,17856099302 ",.02)
  1. ;;17856099302
  1. ;;9002226.02101,"881,18837027730 ",.01)
  1. ;;18837027730
  1. ;;9002226.02101,"881,18837027730 ",.02)
  1. ;;18837027730
  1. ;;9002226.02101,"881,21695032830 ",.01)
  1. ;;21695032830
  1. ;;9002226.02101,"881,21695032830 ",.02)
  1. ;;21695032830
  1. ;;9002226.02101,"881,21695032890 ",.01)
  1. ;;21695032890
  1. ;;9002226.02101,"881,21695032890 ",.02)
  1. ;;21695032890
  1. ;;9002226.02101,"881,21695032930 ",.01)
  1. ;;21695032930
  1. ;;9002226.02101,"881,21695032930 ",.02)
  1. ;;21695032930
  1. ;;9002226.02101,"881,21695032978 ",.01)
  1. ;;21695032978
  1. ;;9002226.02101,"881,21695032978 ",.02)
  1. ;;21695032978
  1. ;;9002226.02101,"881,21695032990 ",.01)
  1. ;;21695032990
  1. ;;9002226.02101,"881,21695032990 ",.02)
  1. ;;21695032990
  1. ;;9002226.02101,"881,21695033020 ",.01)
  1. ;;21695033020
  1. ;;9002226.02101,"881,21695033020 ",.02)
  1. ;;21695033020
  1. ;;9002226.02101,"881,21695033030 ",.01)
  1. ;;21695033030
  1. ;;9002226.02101,"881,21695033030 ",.02)
  1. ;;21695033030
  1. ;;9002226.02101,"881,21695033090 ",.01)
  1. ;;21695033090
  1. ;;9002226.02101,"881,21695033090 ",.02)
  1. ;;21695033090
  1. ;;9002226.02101,"881,21695033130 ",.01)
  1. ;;21695033130
  1. ;;9002226.02101,"881,21695033130 ",.02)
  1. ;;21695033130
  1. ;;9002226.02101,"881,21695033190 ",.01)
  1. ;;21695033190
  1. ;;9002226.02101,"881,21695033190 ",.02)
  1. ;;21695033190
  1. ;;9002226.02101,"881,21695034590 ",.01)
  1. ;;21695034590
  1. ;;9002226.02101,"881,21695034590 ",.02)
  1. ;;21695034590
  1. ;;9002226.02101,"881,21695039330 ",.01)
  1. ;;21695039330
  1. ;;9002226.02101,"881,21695039330 ",.02)
  1. ;;21695039330
  1. ;;9002226.02101,"881,21695039430 ",.01)
  1. ;;21695039430
  1. ;;9002226.02101,"881,21695039430 ",.02)
  1. ;;21695039430
  1. ;;9002226.02101,"881,21695047730 ",.01)
  1. ;;21695047730
  1. ;;9002226.02101,"881,21695047730 ",.02)
  1. ;;21695047730
  1. ;;9002226.02101,"881,21695047778 ",.01)
  1. ;;21695047778
  1. ;;9002226.02101,"881,21695047778 ",.02)
  1. ;;21695047778
  1. ;;9002226.02101,"881,21695047830 ",.01)
  1. ;;21695047830
  1. ;;9002226.02101,"881,21695047830 ",.02)
  1. ;;21695047830
  1. ;;9002226.02101,"881,21695048730 ",.01)
  1. ;;21695048730
  1. ;;9002226.02101,"881,21695048730 ",.02)
  1. ;;21695048730
  1. ;;9002226.02101,"881,21695048830 ",.01)
  1. ;;21695048830
  1. ;;9002226.02101,"881,21695048830 ",.02)
  1. ;;21695048830
  1. ;;9002226.02101,"881,21695048860 ",.01)
  1. ;;21695048860
  1. ;;9002226.02101,"881,21695048860 ",.02)
  1. ;;21695048860
  1. ;;9002226.02101,"881,21695048890 ",.01)
  1. ;;21695048890
  1. ;;9002226.02101,"881,21695048890 ",.02)
  1. ;;21695048890
  1. ;;9002226.02101,"881,21695048930 ",.01)
  1. ;;21695048930
  1. ;;9002226.02101,"881,21695048930 ",.02)
  1. ;;21695048930
  1. ;;9002226.02101,"881,21695048990 ",.01)
  1. ;;21695048990
  1. ;;9002226.02101,"881,21695048990 ",.02)
  1. ;;21695048990
  1. ;;9002226.02101,"881,21695073330 ",.01)
  1. ;;21695073330
  1. ;;9002226.02101,"881,21695073330 ",.02)
  1. ;;21695073330
  1. ;;9002226.02101,"881,21695073430 ",.01)
  1. ;;21695073430
  1. ;;9002226.02101,"881,21695073430 ",.02)
  1. ;;21695073430
  1. ;;9002226.02101,"881,21695073460 ",.01)
  1. ;;21695073460
  1. ;;9002226.02101,"881,21695073460 ",.02)
  1. ;;21695073460
  1. ;;9002226.02101,"881,21695073530 ",.01)
  1. ;;21695073530
  1. ;;9002226.02101,"881,21695073530 ",.02)
  1. ;;21695073530
  1. ;;9002226.02101,"881,21695073560 ",.01)
  1. ;;21695073560
  1. ;;9002226.02101,"881,21695073560 ",.02)
  1. ;;21695073560
  1. ;;9002226.02101,"881,21695073590 ",.01)
  1. ;;21695073590
  1. ;;9002226.02101,"881,21695073590 ",.02)
  1. ;;21695073590
  1. ;;9002226.02101,"881,21695078030 ",.01)
  1. ;;21695078030
  1. ;;9002226.02101,"881,21695078030 ",.02)
  1. ;;21695078030
  1. ;;9002226.02101,"881,21695082130 ",.01)
  1. ;;21695082130
  1. ;;9002226.02101,"881,21695082130 ",.02)
  1. ;;21695082130
  1. ;;9002226.02101,"881,21695082190 ",.01)
  1. ;;21695082190
  1. ;;9002226.02101,"881,21695082190 ",.02)
  1. ;;21695082190
  1. ;;9002226.02101,"881,21695082230 ",.01)
  1. ;;21695082230
  1. ;;9002226.02101,"881,21695082230 ",.02)
  1. ;;21695082230
  1. ;;9002226.02101,"881,21695082290 ",.01)
  1. ;;21695082290
  1. ;;9002226.02101,"881,21695082290 ",.02)
  1. ;;21695082290
  1. ;;9002226.02101,"881,21695082330 ",.01)
  1. ;;21695082330
  1. ;;9002226.02101,"881,21695082330 ",.02)
  1. ;;21695082330
  1. ;;9002226.02101,"881,21695082360 ",.01)
  1. ;;21695082360
  1. ;;9002226.02101,"881,21695082360 ",.02)
  1. ;;21695082360
  1. ;;9002226.02101,"881,23490052300 ",.01)
  1. ;;23490052300
  1. ;;9002226.02101,"881,23490052300 ",.02)
  1. ;;23490052300
  1. ;;9002226.02101,"881,23490052303 ",.01)
  1. ;;23490052303
  1. ;;9002226.02101,"881,23490052303 ",.02)
  1. ;;23490052303
  1. ;;9002226.02101,"881,23490052305 ",.01)
  1. ;;23490052305
  1. ;;9002226.02101,"881,23490052305 ",.02)
  1. ;;23490052305
  1. ;;9002226.02101,"881,23490052306 ",.01)
  1. ;;23490052306
  1. ;;9002226.02101,"881,23490052306 ",.02)
  1. ;;23490052306
  1. ;;9002226.02101,"881,23490052309 ",.01)
  1. ;;23490052309
  1. ;;9002226.02101,"881,23490052309 ",.02)
  1. ;;23490052309
  1. ;;9002226.02101,"881,23490082700 ",.01)
  1. ;;23490082700
  1. ;;9002226.02101,"881,23490082700 ",.02)
  1. ;;23490082700
  1. ;;9002226.02101,"881,23490082703 ",.01)
  1. ;;23490082703
  1. ;;9002226.02101,"881,23490082703 ",.02)
  1. ;;23490082703
  1. ;;9002226.02101,"881,23490082705 ",.01)
  1. ;;23490082705
  1. ;;9002226.02101,"881,23490082705 ",.02)
  1. ;;23490082705
  1. ;;9002226.02101,"881,23490082706 ",.01)
  1. ;;23490082706
  1. ;;9002226.02101,"881,23490082706 ",.02)
  1. ;;23490082706
  1. ;;9002226.02101,"881,23490082709 ",.01)
  1. ;;23490082709
  1. ;;9002226.02101,"881,23490082709 ",.02)
  1. ;;23490082709
  1. ;;9002226.02101,"881,23490082903 ",.01)
  1. ;;23490082903
  1. ;;9002226.02101,"881,23490082903 ",.02)
  1. ;;23490082903
  1. ;;9002226.02101,"881,23490082905 ",.01)
  1. ;;23490082905
  1. ;;9002226.02101,"881,23490082905 ",.02)
  1. ;;23490082905
  1. ;;9002226.02101,"881,23490082906 ",.01)
  1. ;;23490082906
  1. ;;9002226.02101,"881,23490082906 ",.02)
  1. ;;23490082906