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

BGPM5ABH.m

Go to the documentation of this file.
  1. BGPM5ABH ;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,"880,00228275211 ",.01)
  1. ;;00228275211
  1. ;;9002226.02101,"880,00228275211 ",.02)
  1. ;;00228275211
  1. ;;9002226.02101,"880,00228275250 ",.01)
  1. ;;00228275250
  1. ;;9002226.02101,"880,00228275250 ",.02)
  1. ;;00228275250
  1. ;;9002226.02101,"880,00228275311 ",.01)
  1. ;;00228275311
  1. ;;9002226.02101,"880,00228275311 ",.02)
  1. ;;00228275311
  1. ;;9002226.02101,"880,00228275350 ",.01)
  1. ;;00228275350
  1. ;;9002226.02101,"880,00228275350 ",.02)
  1. ;;00228275350
  1. ;;9002226.02101,"880,00247229130 ",.01)
  1. ;;00247229130
  1. ;;9002226.02101,"880,00247229130 ",.02)
  1. ;;00247229130
  1. ;;9002226.02101,"880,00247229160 ",.01)
  1. ;;00247229160
  1. ;;9002226.02101,"880,00247229160 ",.02)
  1. ;;00247229160
  1. ;;9002226.02101,"880,00247229230 ",.01)
  1. ;;00247229230
  1. ;;9002226.02101,"880,00247229230 ",.02)
  1. ;;00247229230
  1. ;;9002226.02101,"880,00247229260 ",.01)
  1. ;;00247229260
  1. ;;9002226.02101,"880,00247229260 ",.02)
  1. ;;00247229260
  1. ;;9002226.02101,"880,00247229330 ",.01)
  1. ;;00247229330
  1. ;;9002226.02101,"880,00247229330 ",.02)
  1. ;;00247229330
  1. ;;9002226.02101,"880,00247229360 ",.01)
  1. ;;00247229360
  1. ;;9002226.02101,"880,00247229360 ",.02)
  1. ;;00247229360
  1. ;;9002226.02101,"880,00339643311 ",.01)
  1. ;;00339643311
  1. ;;9002226.02101,"880,00339643311 ",.02)
  1. ;;00339643311
  1. ;;9002226.02101,"880,00339643314 ",.01)
  1. ;;00339643314
  1. ;;9002226.02101,"880,00339643314 ",.02)
  1. ;;00339643314
  1. ;;9002226.02101,"880,00339643411 ",.01)
  1. ;;00339643411
  1. ;;9002226.02101,"880,00339643411 ",.02)
  1. ;;00339643411
  1. ;;9002226.02101,"880,00339643414 ",.01)
  1. ;;00339643414
  1. ;;9002226.02101,"880,00339643414 ",.02)
  1. ;;00339643414
  1. ;;9002226.02101,"880,00378313101 ",.01)
  1. ;;00378313101
  1. ;;9002226.02101,"880,00378313101 ",.02)
  1. ;;00378313101
  1. ;;9002226.02101,"880,00378313105 ",.01)
  1. ;;00378313105
  1. ;;9002226.02101,"880,00378313105 ",.02)
  1. ;;00378313105
  1. ;;9002226.02101,"880,00378313201 ",.01)
  1. ;;00378313201
  1. ;;9002226.02101,"880,00378313201 ",.02)
  1. ;;00378313201
  1. ;;9002226.02101,"880,00378313205 ",.01)
  1. ;;00378313205
  1. ;;9002226.02101,"880,00378313205 ",.02)
  1. ;;00378313205
  1. ;;9002226.02101,"880,00378313301 ",.01)
  1. ;;00378313301
  1. ;;9002226.02101,"880,00378313301 ",.02)
  1. ;;00378313301
  1. ;;9002226.02101,"880,00378313305 ",.01)
  1. ;;00378313305
  1. ;;9002226.02101,"880,00378313305 ",.02)
  1. ;;00378313305
  1. ;;9002226.02101,"880,00480571001 ",.01)
  1. ;;00480571001
  1. ;;9002226.02101,"880,00480571001 ",.02)
  1. ;;00480571001
  1. ;;9002226.02101,"880,00480571005 ",.01)
  1. ;;00480571005
  1. ;;9002226.02101,"880,00480571005 ",.02)
  1. ;;00480571005
  1. ;;9002226.02101,"880,00480571083 ",.01)
  1. ;;00480571083
  1. ;;9002226.02101,"880,00480571083 ",.02)
  1. ;;00480571083
  1. ;;9002226.02101,"880,00480571101 ",.01)
  1. ;;00480571101
  1. ;;9002226.02101,"880,00480571101 ",.02)
  1. ;;00480571101
  1. ;;9002226.02101,"880,00480571105 ",.01)
  1. ;;00480571105
  1. ;;9002226.02101,"880,00480571105 ",.02)
  1. ;;00480571105
  1. ;;9002226.02101,"880,00480571115 ",.01)
  1. ;;00480571115
  1. ;;9002226.02101,"880,00480571115 ",.02)
  1. ;;00480571115
  1. ;;9002226.02101,"880,00480571201 ",.01)
  1. ;;00480571201
  1. ;;9002226.02101,"880,00480571201 ",.02)
  1. ;;00480571201
  1. ;;9002226.02101,"880,00480571205 ",.01)
  1. ;;00480571205
  1. ;;9002226.02101,"880,00480571205 ",.02)
  1. ;;00480571205
  1. ;;9002226.02101,"880,00480571215 ",.01)
  1. ;;00480571215
  1. ;;9002226.02101,"880,00480571215 ",.02)
  1. ;;00480571215
  1. ;;9002226.02101,"880,00480726001 ",.01)
  1. ;;00480726001
  1. ;;9002226.02101,"880,00480726001 ",.02)
  1. ;;00480726001
  1. ;;9002226.02101,"880,00480726101 ",.01)
  1. ;;00480726101
  1. ;;9002226.02101,"880,00480726101 ",.02)
  1. ;;00480726101
  1. ;;9002226.02101,"880,00480726105 ",.01)
  1. ;;00480726105
  1. ;;9002226.02101,"880,00480726105 ",.02)
  1. ;;00480726105
  1. ;;9002226.02101,"880,00480726201 ",.01)
  1. ;;00480726201
  1. ;;9002226.02101,"880,00480726201 ",.02)
  1. ;;00480726201
  1. ;;9002226.02101,"880,00480726205 ",.01)
  1. ;;00480726205
  1. ;;9002226.02101,"880,00480726205 ",.02)
  1. ;;00480726205
  1. ;;9002226.02101,"880,00480745501 ",.01)
  1. ;;00480745501
  1. ;;9002226.02101,"880,00480745501 ",.02)
  1. ;;00480745501
  1. ;;9002226.02101,"880,00480745601 ",.01)
  1. ;;00480745601
  1. ;;9002226.02101,"880,00480745601 ",.02)
  1. ;;00480745601
  1. ;;9002226.02101,"880,00480745701 ",.01)
  1. ;;00480745701
  1. ;;9002226.02101,"880,00480745701 ",.02)
  1. ;;00480745701
  1. ;;9002226.02101,"880,00555062502 ",.01)
  1. ;;00555062502
  1. ;;9002226.02101,"880,00555062502 ",.02)
  1. ;;00555062502
  1. ;;9002226.02101,"880,00555062602 ",.01)
  1. ;;00555062602
  1. ;;9002226.02101,"880,00555062602 ",.02)
  1. ;;00555062602
  1. ;;9002226.02101,"880,00555062702 ",.01)
  1. ;;00555062702
  1. ;;9002226.02101,"880,00555062702 ",.02)
  1. ;;00555062702
  1. ;;9002226.02101,"880,00591397101 ",.01)
  1. ;;00591397101
  1. ;;9002226.02101,"880,00591397101 ",.02)
  1. ;;00591397101
  1. ;;9002226.02101,"880,00591397201 ",.01)
  1. ;;00591397201
  1. ;;9002226.02101,"880,00591397201 ",.02)
  1. ;;00591397201
  1. ;;9002226.02101,"880,00591397301 ",.01)
  1. ;;00591397301
  1. ;;9002226.02101,"880,00591397301 ",.02)
  1. ;;00591397301
  1. ;;9002226.02101,"880,00781517001 ",.01)
  1. ;;00781517001
  1. ;;9002226.02101,"880,00781517001 ",.02)
  1. ;;00781517001
  1. ;;9002226.02101,"880,00781517005 ",.01)
  1. ;;00781517005
  1. ;;9002226.02101,"880,00781517005 ",.02)
  1. ;;00781517005
  1. ;;9002226.02101,"880,00781517010 ",.01)
  1. ;;00781517010
  1. ;;9002226.02101,"880,00781517010 ",.02)
  1. ;;00781517010
  1. ;;9002226.02101,"880,00781517101 ",.01)
  1. ;;00781517101
  1. ;;9002226.02101,"880,00781517101 ",.02)
  1. ;;00781517101
  1. ;;9002226.02101,"880,00781517105 ",.01)
  1. ;;00781517105
  1. ;;9002226.02101,"880,00781517105 ",.02)
  1. ;;00781517105
  1. ;;9002226.02101,"880,00781517110 ",.01)
  1. ;;00781517110
  1. ;;9002226.02101,"880,00781517110 ",.02)
  1. ;;00781517110
  1. ;;9002226.02101,"880,00781517201 ",.01)
  1. ;;00781517201
  1. ;;9002226.02101,"880,00781517201 ",.02)
  1. ;;00781517201
  1. ;;9002226.02101,"880,00781517205 ",.01)
  1. ;;00781517205
  1. ;;9002226.02101,"880,00781517205 ",.02)
  1. ;;00781517205
  1. ;;9002226.02101,"880,00781517210 ",.01)
  1. ;;00781517210
  1. ;;9002226.02101,"880,00781517210 ",.02)
  1. ;;00781517210
  1. ;;9002226.02101,"880,00781530401 ",.01)
  1. ;;00781530401
  1. ;;9002226.02101,"880,00781530401 ",.02)
  1. ;;00781530401
  1. ;;9002226.02101,"880,00781530405 ",.01)
  1. ;;00781530405
  1. ;;9002226.02101,"880,00781530405 ",.02)
  1. ;;00781530405
  1. ;;9002226.02101,"880,00781530410 ",.01)
  1. ;;00781530410
  1. ;;9002226.02101,"880,00781530410 ",.02)
  1. ;;00781530410
  1. ;;9002226.02101,"880,00781530501 ",.01)
  1. ;;00781530501
  1. ;;9002226.02101,"880,00781530501 ",.02)
  1. ;;00781530501
  1. ;;9002226.02101,"880,00781530505 ",.01)
  1. ;;00781530505
  1. ;;9002226.02101,"880,00781530505 ",.02)
  1. ;;00781530505
  1. ;;9002226.02101,"880,00781530510 ",.01)
  1. ;;00781530510
  1. ;;9002226.02101,"880,00781530510 ",.02)
  1. ;;00781530510
  1. ;;9002226.02101,"880,00781530601 ",.01)
  1. ;;00781530601
  1. ;;9002226.02101,"880,00781530601 ",.02)
  1. ;;00781530601
  1. ;;9002226.02101,"880,00781530605 ",.01)
  1. ;;00781530605
  1. ;;9002226.02101,"880,00781530605 ",.02)
  1. ;;00781530605
  1. ;;9002226.02101,"880,00781530610 ",.01)
  1. ;;00781530610
  1. ;;9002226.02101,"880,00781530610 ",.02)
  1. ;;00781530610
  1. ;;9002226.02101,"880,14550051702 ",.01)
  1. ;;14550051702
  1. ;;9002226.02101,"880,14550051702 ",.02)
  1. ;;14550051702
  1. ;;9002226.02101,"880,14550051704 ",.01)
  1. ;;14550051704
  1. ;;9002226.02101,"880,14550051704 ",.02)
  1. ;;14550051704
  1. ;;9002226.02101,"880,14550051802 ",.01)
  1. ;;14550051802
  1. ;;9002226.02101,"880,14550051802 ",.02)
  1. ;;14550051802
  1. ;;9002226.02101,"880,14550051804 ",.01)
  1. ;;14550051804
  1. ;;9002226.02101,"880,14550051804 ",.02)
  1. ;;14550051804
  1. ;;9002226.02101,"880,14550051902 ",.01)
  1. ;;14550051902
  1. ;;9002226.02101,"880,14550051902 ",.02)
  1. ;;14550051902
  1. ;;9002226.02101,"880,14550051904 ",.01)
  1. ;;14550051904
  1. ;;9002226.02101,"880,14550051904 ",.02)
  1. ;;14550051904
  1. ;;9002226.02101,"880,15548096701 ",.01)
  1. ;;15548096701
  1. ;;9002226.02101,"880,15548096701 ",.02)
  1. ;;15548096701
  1. ;;9002226.02101,"880,15548096705 ",.01)
  1. ;;15548096705
  1. ;;9002226.02101,"880,15548096705 ",.02)
  1. ;;15548096705
  1. ;;9002226.02101,"880,15548096801 ",.01)
  1. ;;15548096801
  1. ;;9002226.02101,"880,15548096801 ",.02)
  1. ;;15548096801
  1. ;;9002226.02101,"880,15548096805 ",.01)
  1. ;;15548096805
  1. ;;9002226.02101,"880,15548096805 ",.02)
  1. ;;15548096805
  1. ;;9002226.02101,"880,16590041860 ",.01)
  1. ;;16590041860
  1. ;;9002226.02101,"880,16590041860 ",.02)
  1. ;;16590041860
  1. ;;9002226.02101,"880,21695056830 ",.01)
  1. ;;21695056830
  1. ;;9002226.02101,"880,21695056830 ",.02)
  1. ;;21695056830
  1. ;;9002226.02101,"880,21695089400 ",.01)
  1. ;;21695089400
  1. ;;9002226.02101,"880,21695089400 ",.02)
  1. ;;21695089400
  1. ;;9002226.02101,"880,23155011501 ",.01)
  1. ;;23155011501
  1. ;;9002226.02101,"880,23155011501 ",.02)
  1. ;;23155011501
  1. ;;9002226.02101,"880,23155011510 ",.01)
  1. ;;23155011510
  1. ;;9002226.02101,"880,23155011510 ",.02)
  1. ;;23155011510
  1. ;;9002226.02101,"880,23155011601 ",.01)
  1. ;;23155011601
  1. ;;9002226.02101,"880,23155011601 ",.02)
  1. ;;23155011601
  1. ;;9002226.02101,"880,23155011610 ",.01)
  1. ;;23155011610
  1. ;;9002226.02101,"880,23155011610 ",.02)
  1. ;;23155011610
  1. ;;9002226.02101,"880,23155011701 ",.01)
  1. ;;23155011701
  1. ;;9002226.02101,"880,23155011701 ",.02)
  1. ;;23155011701
  1. ;;9002226.02101,"880,23155011710 ",.01)
  1. ;;23155011710
  1. ;;9002226.02101,"880,23155011710 ",.02)
  1. ;;23155011710
  1. ;;9002226.02101,"880,23490744901 ",.01)
  1. ;;23490744901
  1. ;;9002226.02101,"880,23490744901 ",.02)
  1. ;;23490744901
  1. ;;9002226.02101,"880,26053016401 ",.01)
  1. ;;26053016401
  1. ;;9002226.02101,"880,26053016401 ",.02)
  1. ;;26053016401
  1. ;;9002226.02101,"880,49999040130 ",.01)
  1. ;;49999040130
  1. ;;9002226.02101,"880,49999040130 ",.02)
  1. ;;49999040130
  1. ;;9002226.02101,"880,49999040160 ",.01)
  1. ;;49999040160
  1. ;;9002226.02101,"880,49999040160 ",.02)
  1. ;;49999040160
  1. ;;9002226.02101,"880,51129381801 ",.01)
  1. ;;51129381801
  1. ;;9002226.02101,"880,51129381801 ",.02)
  1. ;;51129381801
  1. ;;9002226.02101,"880,51129381802 ",.01)
  1. ;;51129381802
  1. ;;9002226.02101,"880,51129381802 ",.02)
  1. ;;51129381802
  1. ;;9002226.02101,"880,51129446701 ",.01)
  1. ;;51129446701
  1. ;;9002226.02101,"880,51129446701 ",.02)
  1. ;;51129446701
  1. ;;9002226.02101,"880,51129469201 ",.01)
  1. ;;51129469201
  1. ;;9002226.02101,"880,51129469201 ",.02)
  1. ;;51129469201
  1. ;;9002226.02101,"880,51129469202 ",.01)
  1. ;;51129469202
  1. ;;9002226.02101,"880,51129469202 ",.02)
  1. ;;51129469202
  1. ;;9002226.02101,"880,51138047030 ",.01)
  1. ;;51138047030
  1. ;;9002226.02101,"880,51138047030 ",.02)
  1. ;;51138047030
  1. ;;9002226.02101,"880,51138047130 ",.01)
  1. ;;51138047130
  1. ;;9002226.02101,"880,51138047130 ",.02)
  1. ;;51138047130
  1. ;;9002226.02101,"880,51138047230 ",.01)
  1. ;;51138047230
  1. ;;9002226.02101,"880,51138047230 ",.02)
  1. ;;51138047230
  1. ;;9002226.02101,"880,51138047330 ",.01)
  1. ;;51138047330
  1. ;;9002226.02101,"880,51138047330 ",.02)
  1. ;;51138047330
  1. ;;9002226.02101,"880,51138047430 ",.01)
  1. ;;51138047430
  1. ;;9002226.02101,"880,51138047430 ",.02)
  1. ;;51138047430
  1. ;;9002226.02101,"880,51138047530 ",.01)
  1. ;;51138047530
  1. ;;9002226.02101,"880,51138047530 ",.02)
  1. ;;51138047530
  1. ;;9002226.02101,"880,54569561800 ",.01)
  1. ;;54569561800
  1. ;;9002226.02101,"880,54569561800 ",.02)
  1. ;;54569561800
  1. ;;9002226.02101,"880,54569561801 ",.01)
  1. ;;54569561801
  1. ;;9002226.02101,"880,54569561801 ",.02)
  1. ;;54569561801
  1. ;;9002226.02101,"880,54569561900 ",.01)
  1. ;;54569561900
  1. ;;9002226.02101,"880,54569561900 ",.02)
  1. ;;54569561900
  1. ;;9002226.02101,"880,54569561901 ",.01)
  1. ;;54569561901
  1. ;;9002226.02101,"880,54569561901 ",.02)
  1. ;;54569561901
  1. ;;9002226.02101,"880,54569599100 ",.01)
  1. ;;54569599100
  1. ;;9002226.02101,"880,54569599100 ",.02)
  1. ;;54569599100
  1. ;;9002226.02101,"880,54569599200 ",.01)
  1. ;;54569599200
  1. ;;9002226.02101,"880,54569599200 ",.02)
  1. ;;54569599200
  1. ;;9002226.02101,"880,54569599300 ",.01)
  1. ;;54569599300
  1. ;;9002226.02101,"880,54569599300 ",.02)
  1. ;;54569599300