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