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

BGPM5AJG.m

Go to the documentation of this file.
  1. BGPM5AJG ;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,"889,16590042872 ",.01)
  1. ;;16590042872
  1. ;;9002226.02101,"889,16590042872 ",.02)
  1. ;;16590042872
  1. ;;9002226.02101,"889,16590042890 ",.01)
  1. ;;16590042890
  1. ;;9002226.02101,"889,16590042890 ",.02)
  1. ;;16590042890
  1. ;;9002226.02101,"889,16590080830 ",.01)
  1. ;;16590080830
  1. ;;9002226.02101,"889,16590080830 ",.02)
  1. ;;16590080830
  1. ;;9002226.02101,"889,16590080845 ",.01)
  1. ;;16590080845
  1. ;;9002226.02101,"889,16590080845 ",.02)
  1. ;;16590080845
  1. ;;9002226.02101,"889,16590080860 ",.01)
  1. ;;16590080860
  1. ;;9002226.02101,"889,16590080860 ",.02)
  1. ;;16590080860
  1. ;;9002226.02101,"889,16590080890 ",.01)
  1. ;;16590080890
  1. ;;9002226.02101,"889,16590080890 ",.02)
  1. ;;16590080890
  1. ;;9002226.02101,"889,16590085128 ",.01)
  1. ;;16590085128
  1. ;;9002226.02101,"889,16590085128 ",.02)
  1. ;;16590085128
  1. ;;9002226.02101,"889,16714002104 ",.01)
  1. ;;16714002104
  1. ;;9002226.02101,"889,16714002104 ",.02)
  1. ;;16714002104
  1. ;;9002226.02101,"889,16714002106 ",.01)
  1. ;;16714002106
  1. ;;9002226.02101,"889,16714002106 ",.02)
  1. ;;16714002106
  1. ;;9002226.02101,"889,16714002204 ",.01)
  1. ;;16714002204
  1. ;;9002226.02101,"889,16714002204 ",.02)
  1. ;;16714002204
  1. ;;9002226.02101,"889,16714002206 ",.01)
  1. ;;16714002206
  1. ;;9002226.02101,"889,16714002206 ",.02)
  1. ;;16714002206
  1. ;;9002226.02101,"889,16714002304 ",.01)
  1. ;;16714002304
  1. ;;9002226.02101,"889,16714002304 ",.02)
  1. ;;16714002304
  1. ;;9002226.02101,"889,16714002306 ",.01)
  1. ;;16714002306
  1. ;;9002226.02101,"889,16714002306 ",.02)
  1. ;;16714002306
  1. ;;9002226.02101,"889,16714002404 ",.01)
  1. ;;16714002404
  1. ;;9002226.02101,"889,16714002404 ",.02)
  1. ;;16714002404
  1. ;;9002226.02101,"889,16714002406 ",.01)
  1. ;;16714002406
  1. ;;9002226.02101,"889,16714002406 ",.02)
  1. ;;16714002406
  1. ;;9002226.02101,"889,16714002504 ",.01)
  1. ;;16714002504
  1. ;;9002226.02101,"889,16714002504 ",.02)
  1. ;;16714002504
  1. ;;9002226.02101,"889,16714002505 ",.01)
  1. ;;16714002505
  1. ;;9002226.02101,"889,16714002505 ",.02)
  1. ;;16714002505
  1. ;;9002226.02101,"889,16714002506 ",.01)
  1. ;;16714002506
  1. ;;9002226.02101,"889,16714002506 ",.02)
  1. ;;16714002506
  1. ;;9002226.02101,"889,16714003101 ",.01)
  1. ;;16714003101
  1. ;;9002226.02101,"889,16714003101 ",.02)
  1. ;;16714003101
  1. ;;9002226.02101,"889,16714003102 ",.01)
  1. ;;16714003102
  1. ;;9002226.02101,"889,16714003102 ",.02)
  1. ;;16714003102
  1. ;;9002226.02101,"889,16714003103 ",.01)
  1. ;;16714003103
  1. ;;9002226.02101,"889,16714003103 ",.02)
  1. ;;16714003103
  1. ;;9002226.02101,"889,16714003104 ",.01)
  1. ;;16714003104
  1. ;;9002226.02101,"889,16714003104 ",.02)
  1. ;;16714003104
  1. ;;9002226.02101,"889,16714003105 ",.01)
  1. ;;16714003105
  1. ;;9002226.02101,"889,16714003105 ",.02)
  1. ;;16714003105
  1. ;;9002226.02101,"889,16714003106 ",.01)
  1. ;;16714003106
  1. ;;9002226.02101,"889,16714003106 ",.02)
  1. ;;16714003106
  1. ;;9002226.02101,"889,16714003201 ",.01)
  1. ;;16714003201
  1. ;;9002226.02101,"889,16714003201 ",.02)
  1. ;;16714003201
  1. ;;9002226.02101,"889,16714003202 ",.01)
  1. ;;16714003202
  1. ;;9002226.02101,"889,16714003202 ",.02)
  1. ;;16714003202
  1. ;;9002226.02101,"889,16714003203 ",.01)
  1. ;;16714003203
  1. ;;9002226.02101,"889,16714003203 ",.02)
  1. ;;16714003203
  1. ;;9002226.02101,"889,16714003204 ",.01)
  1. ;;16714003204
  1. ;;9002226.02101,"889,16714003204 ",.02)
  1. ;;16714003204
  1. ;;9002226.02101,"889,16714003205 ",.01)
  1. ;;16714003205
  1. ;;9002226.02101,"889,16714003205 ",.02)
  1. ;;16714003205
  1. ;;9002226.02101,"889,16714003206 ",.01)
  1. ;;16714003206
  1. ;;9002226.02101,"889,16714003206 ",.02)
  1. ;;16714003206
  1. ;;9002226.02101,"889,16714003301 ",.01)
  1. ;;16714003301
  1. ;;9002226.02101,"889,16714003301 ",.02)
  1. ;;16714003301
  1. ;;9002226.02101,"889,16714003302 ",.01)
  1. ;;16714003302
  1. ;;9002226.02101,"889,16714003302 ",.02)
  1. ;;16714003302
  1. ;;9002226.02101,"889,16714003303 ",.01)
  1. ;;16714003303
  1. ;;9002226.02101,"889,16714003303 ",.02)
  1. ;;16714003303
  1. ;;9002226.02101,"889,16714003304 ",.01)
  1. ;;16714003304
  1. ;;9002226.02101,"889,16714003304 ",.02)
  1. ;;16714003304
  1. ;;9002226.02101,"889,16714003305 ",.01)
  1. ;;16714003305
  1. ;;9002226.02101,"889,16714003305 ",.02)
  1. ;;16714003305
  1. ;;9002226.02101,"889,16714003306 ",.01)
  1. ;;16714003306
  1. ;;9002226.02101,"889,16714003306 ",.02)
  1. ;;16714003306
  1. ;;9002226.02101,"889,17022014924 ",.01)
  1. ;;17022014924
  1. ;;9002226.02101,"889,17022014924 ",.02)
  1. ;;17022014924
  1. ;;9002226.02101,"889,17022034524 ",.01)
  1. ;;17022034524
  1. ;;9002226.02101,"889,17022034524 ",.02)
  1. ;;17022034524
  1. ;;9002226.02101,"889,17088000801 ",.01)
  1. ;;17088000801
  1. ;;9002226.02101,"889,17088000801 ",.02)
  1. ;;17088000801
  1. ;;9002226.02101,"889,17088005101 ",.01)
  1. ;;17088005101
  1. ;;9002226.02101,"889,17088005101 ",.02)
  1. ;;17088005101
  1. ;;9002226.02101,"889,17088005502 ",.01)
  1. ;;17088005502
  1. ;;9002226.02101,"889,17088005502 ",.02)
  1. ;;17088005502
  1. ;;9002226.02101,"889,17088251704 ",.01)
  1. ;;17088251704
  1. ;;9002226.02101,"889,17088251704 ",.02)
  1. ;;17088251704
  1. ;;9002226.02101,"889,17088420101 ",.01)
  1. ;;17088420101
  1. ;;9002226.02101,"889,17088420101 ",.02)
  1. ;;17088420101
  1. ;;9002226.02101,"889,17228010901 ",.01)
  1. ;;17228010901
  1. ;;9002226.02101,"889,17228010901 ",.02)
  1. ;;17228010901
  1. ;;9002226.02101,"889,17228011001 ",.01)
  1. ;;17228011001
  1. ;;9002226.02101,"889,17228011001 ",.02)
  1. ;;17228011001
  1. ;;9002226.02101,"889,17228011101 ",.01)
  1. ;;17228011101
  1. ;;9002226.02101,"889,17228011101 ",.02)
  1. ;;17228011101
  1. ;;9002226.02101,"889,17228108809 ",.01)
  1. ;;17228108809
  1. ;;9002226.02101,"889,17228108809 ",.02)
  1. ;;17228108809
  1. ;;9002226.02101,"889,17478042020 ",.01)
  1. ;;17478042020
  1. ;;9002226.02101,"889,17478042020 ",.02)
  1. ;;17478042020
  1. ;;9002226.02101,"889,17478042040 ",.01)
  1. ;;17478042040
  1. ;;9002226.02101,"889,17478042040 ",.02)
  1. ;;17478042040
  1. ;;9002226.02101,"889,17856001802 ",.01)
  1. ;;17856001802
  1. ;;9002226.02101,"889,17856001802 ",.02)
  1. ;;17856001802
  1. ;;9002226.02101,"889,17856050602 ",.01)
  1. ;;17856050602
  1. ;;9002226.02101,"889,17856050602 ",.02)
  1. ;;17856050602
  1. ;;9002226.02101,"889,17856414202 ",.01)
  1. ;;17856414202
  1. ;;9002226.02101,"889,17856414202 ",.02)
  1. ;;17856414202
  1. ;;9002226.02101,"889,17856527002 ",.01)
  1. ;;17856527002
  1. ;;9002226.02101,"889,17856527002 ",.02)
  1. ;;17856527002
  1. ;;9002226.02101,"889,21695029130 ",.01)
  1. ;;21695029130
  1. ;;9002226.02101,"889,21695029130 ",.02)
  1. ;;21695029130
  1. ;;9002226.02101,"889,21695029830 ",.01)
  1. ;;21695029830
  1. ;;9002226.02101,"889,21695029830 ",.02)
  1. ;;21695029830
  1. ;;9002226.02101,"889,21695029860 ",.01)
  1. ;;21695029860
  1. ;;9002226.02101,"889,21695029860 ",.02)
  1. ;;21695029860
  1. ;;9002226.02101,"889,21695029878 ",.01)
  1. ;;21695029878
  1. ;;9002226.02101,"889,21695029878 ",.02)
  1. ;;21695029878
  1. ;;9002226.02101,"889,21695029890 ",.01)
  1. ;;21695029890
  1. ;;9002226.02101,"889,21695029890 ",.02)
  1. ;;21695029890
  1. ;;9002226.02101,"889,21695029900 ",.01)
  1. ;;21695029900
  1. ;;9002226.02101,"889,21695029900 ",.02)
  1. ;;21695029900
  1. ;;9002226.02101,"889,21695029930 ",.01)
  1. ;;21695029930
  1. ;;9002226.02101,"889,21695029930 ",.02)
  1. ;;21695029930
  1. ;;9002226.02101,"889,21695029960 ",.01)
  1. ;;21695029960
  1. ;;9002226.02101,"889,21695029960 ",.02)
  1. ;;21695029960
  1. ;;9002226.02101,"889,21695029990 ",.01)
  1. ;;21695029990
  1. ;;9002226.02101,"889,21695029990 ",.02)
  1. ;;21695029990
  1. ;;9002226.02101,"889,21695032230 ",.01)
  1. ;;21695032230
  1. ;;9002226.02101,"889,21695032230 ",.02)
  1. ;;21695032230
  1. ;;9002226.02101,"889,21695032290 ",.01)
  1. ;;21695032290
  1. ;;9002226.02101,"889,21695032290 ",.02)
  1. ;;21695032290
  1. ;;9002226.02101,"889,21695032330 ",.01)
  1. ;;21695032330
  1. ;;9002226.02101,"889,21695032330 ",.02)
  1. ;;21695032330
  1. ;;9002226.02101,"889,21695032360 ",.01)
  1. ;;21695032360
  1. ;;9002226.02101,"889,21695032360 ",.02)
  1. ;;21695032360
  1. ;;9002226.02101,"889,21695032390 ",.01)
  1. ;;21695032390
  1. ;;9002226.02101,"889,21695032390 ",.02)
  1. ;;21695032390
  1. ;;9002226.02101,"889,21695032430 ",.01)
  1. ;;21695032430
  1. ;;9002226.02101,"889,21695032430 ",.02)
  1. ;;21695032430
  1. ;;9002226.02101,"889,21695049460 ",.01)
  1. ;;21695049460
  1. ;;9002226.02101,"889,21695049460 ",.02)
  1. ;;21695049460
  1. ;;9002226.02101,"889,21695049478 ",.01)
  1. ;;21695049478
  1. ;;9002226.02101,"889,21695049478 ",.02)
  1. ;;21695049478
  1. ;;9002226.02101,"889,21695049490 ",.01)
  1. ;;21695049490
  1. ;;9002226.02101,"889,21695049490 ",.02)
  1. ;;21695049490
  1. ;;9002226.02101,"889,21695059260 ",.01)
  1. ;;21695059260
  1. ;;9002226.02101,"889,21695059260 ",.02)
  1. ;;21695059260
  1. ;;9002226.02101,"889,21695066730 ",.01)
  1. ;;21695066730
  1. ;;9002226.02101,"889,21695066730 ",.02)
  1. ;;21695066730
  1. ;;9002226.02101,"889,21695066790 ",.01)
  1. ;;21695066790
  1. ;;9002226.02101,"889,21695066790 ",.02)
  1. ;;21695066790
  1. ;;9002226.02101,"889,21695066860 ",.01)
  1. ;;21695066860
  1. ;;9002226.02101,"889,21695066860 ",.02)
  1. ;;21695066860
  1. ;;9002226.02101,"889,21695066878 ",.01)
  1. ;;21695066878
  1. ;;9002226.02101,"889,21695066878 ",.02)
  1. ;;21695066878
  1. ;;9002226.02101,"889,21695066930 ",.01)
  1. ;;21695066930
  1. ;;9002226.02101,"889,21695066930 ",.02)
  1. ;;21695066930
  1. ;;9002226.02101,"889,21695066960 ",.01)
  1. ;;21695066960
  1. ;;9002226.02101,"889,21695066960 ",.02)
  1. ;;21695066960
  1. ;;9002226.02101,"889,21695067030 ",.01)
  1. ;;21695067030
  1. ;;9002226.02101,"889,21695067030 ",.02)
  1. ;;21695067030
  1. ;;9002226.02101,"889,21695067090 ",.01)
  1. ;;21695067090
  1. ;;9002226.02101,"889,21695067090 ",.02)
  1. ;;21695067090
  1. ;;9002226.02101,"889,21695074330 ",.01)
  1. ;;21695074330
  1. ;;9002226.02101,"889,21695074330 ",.02)
  1. ;;21695074330
  1. ;;9002226.02101,"889,21695074430 ",.01)
  1. ;;21695074430
  1. ;;9002226.02101,"889,21695074430 ",.02)
  1. ;;21695074430
  1. ;;9002226.02101,"889,21695079930 ",.01)
  1. ;;21695079930
  1. ;;9002226.02101,"889,21695079930 ",.02)
  1. ;;21695079930
  1. ;;9002226.02101,"889,21695080030 ",.01)
  1. ;;21695080030
  1. ;;9002226.02101,"889,21695080030 ",.02)
  1. ;;21695080030
  1. ;;9002226.02101,"889,21695080230 ",.01)
  1. ;;21695080230
  1. ;;9002226.02101,"889,21695080230 ",.02)
  1. ;;21695080230
  1. ;;9002226.02101,"889,21695080830 ",.01)
  1. ;;21695080830
  1. ;;9002226.02101,"889,21695080830 ",.02)
  1. ;;21695080830
  1. ;;9002226.02101,"889,21695080930 ",.01)
  1. ;;21695080930
  1. ;;9002226.02101,"889,21695080930 ",.02)
  1. ;;21695080930
  1. ;;9002226.02101,"889,23155011001 ",.01)
  1. ;;23155011001
  1. ;;9002226.02101,"889,23155011001 ",.02)
  1. ;;23155011001
  1. ;;9002226.02101,"889,23155011003 ",.01)
  1. ;;23155011003
  1. ;;9002226.02101,"889,23155011003 ",.02)
  1. ;;23155011003
  1. ;;9002226.02101,"889,23155011005 ",.01)
  1. ;;23155011005
  1. ;;9002226.02101,"889,23155011005 ",.02)
  1. ;;23155011005
  1. ;;9002226.02101,"889,23155011006 ",.01)
  1. ;;23155011006
  1. ;;9002226.02101,"889,23155011006 ",.02)
  1. ;;23155011006
  1. ;;9002226.02101,"889,23155011010 ",.01)
  1. ;;23155011010
  1. ;;9002226.02101,"889,23155011010 ",.02)
  1. ;;23155011010
  1. ;;9002226.02101,"889,23155011101 ",.01)
  1. ;;23155011101
  1. ;;9002226.02101,"889,23155011101 ",.02)
  1. ;;23155011101
  1. ;;9002226.02101,"889,23155011103 ",.01)
  1. ;;23155011103
  1. ;;9002226.02101,"889,23155011103 ",.02)
  1. ;;23155011103
  1. ;;9002226.02101,"889,23155011105 ",.01)
  1. ;;23155011105
  1. ;;9002226.02101,"889,23155011105 ",.02)
  1. ;;23155011105
  1. ;;9002226.02101,"889,23155011106 ",.01)
  1. ;;23155011106
  1. ;;9002226.02101,"889,23155011106 ",.02)
  1. ;;23155011106
  1. ;;9002226.02101,"889,23155011110 ",.01)
  1. ;;23155011110
  1. ;;9002226.02101,"889,23155011110 ",.02)
  1. ;;23155011110
  1. ;;9002226.02101,"889,23155011201 ",.01)
  1. ;;23155011201
  1. ;;9002226.02101,"889,23155011201 ",.02)
  1. ;;23155011201
  1. ;;9002226.02101,"889,23155011203 ",.01)
  1. ;;23155011203
  1. ;;9002226.02101,"889,23155011203 ",.02)
  1. ;;23155011203
  1. ;;9002226.02101,"889,23155011205 ",.01)
  1. ;;23155011205
  1. ;;9002226.02101,"889,23155011205 ",.02)
  1. ;;23155011205
  1. ;;9002226.02101,"889,23155011206 ",.01)
  1. ;;23155011206
  1. ;;9002226.02101,"889,23155011206 ",.02)
  1. ;;23155011206
  1. ;;9002226.02101,"889,23155011210 ",.01)
  1. ;;23155011210
  1. ;;9002226.02101,"889,23155011210 ",.02)
  1. ;;23155011210