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

BGPM5ABQ.m

Go to the documentation of this file.
BGPM5ABQ ;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,"830,00228275350 ",.02)
 ;;00228275350
 ;;9002226.02101,"830,00247195200 ",.01)
 ;;00247195200
 ;;9002226.02101,"830,00247195200 ",.02)
 ;;00247195200
 ;;9002226.02101,"830,00247195203 ",.01)
 ;;00247195203
 ;;9002226.02101,"830,00247195203 ",.02)
 ;;00247195203
 ;;9002226.02101,"830,00247195230 ",.01)
 ;;00247195230
 ;;9002226.02101,"830,00247195230 ",.02)
 ;;00247195230
 ;;9002226.02101,"830,00247195260 ",.01)
 ;;00247195260
 ;;9002226.02101,"830,00247195260 ",.02)
 ;;00247195260
 ;;9002226.02101,"830,00247195277 ",.01)
 ;;00247195277
 ;;9002226.02101,"830,00247195277 ",.02)
 ;;00247195277
 ;;9002226.02101,"830,00247195290 ",.01)
 ;;00247195290
 ;;9002226.02101,"830,00247195290 ",.02)
 ;;00247195290
 ;;9002226.02101,"830,00247195300 ",.01)
 ;;00247195300
 ;;9002226.02101,"830,00247195300 ",.02)
 ;;00247195300
 ;;9002226.02101,"830,00247195330 ",.01)
 ;;00247195330
 ;;9002226.02101,"830,00247195330 ",.02)
 ;;00247195330
 ;;9002226.02101,"830,00247195360 ",.01)
 ;;00247195360
 ;;9002226.02101,"830,00247195360 ",.02)
 ;;00247195360
 ;;9002226.02101,"830,00247195377 ",.01)
 ;;00247195377
 ;;9002226.02101,"830,00247195377 ",.02)
 ;;00247195377
 ;;9002226.02101,"830,00247195390 ",.01)
 ;;00247195390
 ;;9002226.02101,"830,00247195390 ",.02)
 ;;00247195390
 ;;9002226.02101,"830,00247195400 ",.01)
 ;;00247195400
 ;;9002226.02101,"830,00247195400 ",.02)
 ;;00247195400
 ;;9002226.02101,"830,00247195430 ",.01)
 ;;00247195430
 ;;9002226.02101,"830,00247195430 ",.02)
 ;;00247195430
 ;;9002226.02101,"830,00247195460 ",.01)
 ;;00247195460
 ;;9002226.02101,"830,00247195460 ",.02)
 ;;00247195460
 ;;9002226.02101,"830,00247195477 ",.01)
 ;;00247195477
 ;;9002226.02101,"830,00247195477 ",.02)
 ;;00247195477
 ;;9002226.02101,"830,00247195490 ",.01)
 ;;00247195490
 ;;9002226.02101,"830,00247195490 ",.02)
 ;;00247195490
 ;;9002226.02101,"830,00247195498 ",.01)
 ;;00247195498
 ;;9002226.02101,"830,00247195498 ",.02)
 ;;00247195498
 ;;9002226.02101,"830,00247229130 ",.01)
 ;;00247229130
 ;;9002226.02101,"830,00247229130 ",.02)
 ;;00247229130
 ;;9002226.02101,"830,00247229160 ",.01)
 ;;00247229160
 ;;9002226.02101,"830,00247229160 ",.02)
 ;;00247229160
 ;;9002226.02101,"830,00247229230 ",.01)
 ;;00247229230
 ;;9002226.02101,"830,00247229230 ",.02)
 ;;00247229230
 ;;9002226.02101,"830,00247229260 ",.01)
 ;;00247229260
 ;;9002226.02101,"830,00247229260 ",.02)
 ;;00247229260
 ;;9002226.02101,"830,00247229330 ",.01)
 ;;00247229330
 ;;9002226.02101,"830,00247229330 ",.02)
 ;;00247229330
 ;;9002226.02101,"830,00247229360 ",.01)
 ;;00247229360
 ;;9002226.02101,"830,00247229360 ",.02)
 ;;00247229360
 ;;9002226.02101,"830,00339643311 ",.01)
 ;;00339643311
 ;;9002226.02101,"830,00339643311 ",.02)
 ;;00339643311
 ;;9002226.02101,"830,00339643314 ",.01)
 ;;00339643314
 ;;9002226.02101,"830,00339643314 ",.02)
 ;;00339643314
 ;;9002226.02101,"830,00339643411 ",.01)
 ;;00339643411
 ;;9002226.02101,"830,00339643411 ",.02)
 ;;00339643411
 ;;9002226.02101,"830,00339643414 ",.01)
 ;;00339643414
 ;;9002226.02101,"830,00339643414 ",.02)
 ;;00339643414
 ;;9002226.02101,"830,00339648511 ",.01)
 ;;00339648511
 ;;9002226.02101,"830,00339648511 ",.02)
 ;;00339648511
 ;;9002226.02101,"830,00339648514 ",.01)
 ;;00339648514
 ;;9002226.02101,"830,00339648514 ",.02)
 ;;00339648514
 ;;9002226.02101,"830,00339648611 ",.01)
 ;;00339648611
 ;;9002226.02101,"830,00339648611 ",.02)
 ;;00339648611
 ;;9002226.02101,"830,00339648711 ",.01)
 ;;00339648711
 ;;9002226.02101,"830,00339648711 ",.02)
 ;;00339648711
 ;;9002226.02101,"830,00339648811 ",.01)
 ;;00339648811
 ;;9002226.02101,"830,00339648811 ",.02)
 ;;00339648811
 ;;9002226.02101,"830,00378023401 ",.01)
 ;;00378023401
 ;;9002226.02101,"830,00378023401 ",.02)
 ;;00378023401
 ;;9002226.02101,"830,00378023405 ",.01)
 ;;00378023405
 ;;9002226.02101,"830,00378023405 ",.02)
 ;;00378023405
 ;;9002226.02101,"830,00378023410 ",.01)
 ;;00378023410
 ;;9002226.02101,"830,00378023410 ",.02)
 ;;00378023410
 ;;9002226.02101,"830,00378024001 ",.01)
 ;;00378024001
 ;;9002226.02101,"830,00378024001 ",.02)
 ;;00378024001
 ;;9002226.02101,"830,00378024005 ",.01)
 ;;00378024005
 ;;9002226.02101,"830,00378024005 ",.02)
 ;;00378024005
 ;;9002226.02101,"830,00378024401 ",.01)
 ;;00378024401
 ;;9002226.02101,"830,00378024401 ",.02)
 ;;00378024401
 ;;9002226.02101,"830,00378024405 ",.01)
 ;;00378024405
 ;;9002226.02101,"830,00378024405 ",.02)
 ;;00378024405
 ;;9002226.02101,"830,00378035001 ",.01)
 ;;00378035001
 ;;9002226.02101,"830,00378035001 ",.02)
 ;;00378035001
 ;;9002226.02101,"830,00378035005 ",.01)
 ;;00378035005
 ;;9002226.02101,"830,00378035005 ",.02)
 ;;00378035005
 ;;9002226.02101,"830,00378035201 ",.01)
 ;;00378035201
 ;;9002226.02101,"830,00378035201 ",.02)
 ;;00378035201
 ;;9002226.02101,"830,00378035205 ",.01)
 ;;00378035205
 ;;9002226.02101,"830,00378035205 ",.02)
 ;;00378035205
 ;;9002226.02101,"830,00378313101 ",.01)
 ;;00378313101
 ;;9002226.02101,"830,00378313101 ",.02)
 ;;00378313101
 ;;9002226.02101,"830,00378313105 ",.01)
 ;;00378313105
 ;;9002226.02101,"830,00378313105 ",.02)
 ;;00378313105
 ;;9002226.02101,"830,00378313201 ",.01)
 ;;00378313201
 ;;9002226.02101,"830,00378313201 ",.02)
 ;;00378313201
 ;;9002226.02101,"830,00378313205 ",.01)
 ;;00378313205
 ;;9002226.02101,"830,00378313205 ",.02)
 ;;00378313205
 ;;9002226.02101,"830,00378313301 ",.01)
 ;;00378313301
 ;;9002226.02101,"830,00378313301 ",.02)
 ;;00378313301
 ;;9002226.02101,"830,00378313305 ",.01)
 ;;00378313305
 ;;9002226.02101,"830,00378313305 ",.02)
 ;;00378313305
 ;;9002226.02101,"830,00378718501 ",.01)
 ;;00378718501
 ;;9002226.02101,"830,00378718501 ",.02)
 ;;00378718501
 ;;9002226.02101,"830,00378718505 ",.01)
 ;;00378718505
 ;;9002226.02101,"830,00378718505 ",.02)
 ;;00378718505
 ;;9002226.02101,"830,00378718591 ",.01)
 ;;00378718591
 ;;9002226.02101,"830,00378718591 ",.02)
 ;;00378718591
 ;;9002226.02101,"830,00378718601 ",.01)
 ;;00378718601
 ;;9002226.02101,"830,00378718601 ",.02)
 ;;00378718601
 ;;9002226.02101,"830,00378718605 ",.01)
 ;;00378718605
 ;;9002226.02101,"830,00378718605 ",.02)
 ;;00378718605
 ;;9002226.02101,"830,00378718691 ",.01)
 ;;00378718691
 ;;9002226.02101,"830,00378718691 ",.02)
 ;;00378718691
 ;;9002226.02101,"830,00378718701 ",.01)
 ;;00378718701
 ;;9002226.02101,"830,00378718701 ",.02)
 ;;00378718701
 ;;9002226.02101,"830,00378718705 ",.01)
 ;;00378718705
 ;;9002226.02101,"830,00378718705 ",.02)
 ;;00378718705
 ;;9002226.02101,"830,00378718791 ",.01)
 ;;00378718791
 ;;9002226.02101,"830,00378718791 ",.02)
 ;;00378718791
 ;;9002226.02101,"830,00406202800 ",.01)
 ;;00406202800
 ;;9002226.02101,"830,00406202800 ",.02)
 ;;00406202800
 ;;9002226.02101,"830,00406202801 ",.01)
 ;;00406202801
 ;;9002226.02101,"830,00406202801 ",.02)
 ;;00406202801
 ;;9002226.02101,"830,00406202805 ",.01)
 ;;00406202805
 ;;9002226.02101,"830,00406202805 ",.02)
 ;;00406202805
 ;;9002226.02101,"830,00406202810 ",.01)
 ;;00406202810
 ;;9002226.02101,"830,00406202810 ",.02)
 ;;00406202810
 ;;9002226.02101,"830,00406202900 ",.01)
 ;;00406202900
 ;;9002226.02101,"830,00406202900 ",.02)
 ;;00406202900
 ;;9002226.02101,"830,00406202901 ",.01)
 ;;00406202901
 ;;9002226.02101,"830,00406202901 ",.02)
 ;;00406202901
 ;;9002226.02101,"830,00406202905 ",.01)
 ;;00406202905
 ;;9002226.02101,"830,00406202905 ",.02)
 ;;00406202905
 ;;9002226.02101,"830,00406202910 ",.01)
 ;;00406202910
 ;;9002226.02101,"830,00406202910 ",.02)
 ;;00406202910
 ;;9002226.02101,"830,00406203000 ",.01)
 ;;00406203000
 ;;9002226.02101,"830,00406203000 ",.02)
 ;;00406203000
 ;;9002226.02101,"830,00406203001 ",.01)
 ;;00406203001
 ;;9002226.02101,"830,00406203001 ",.02)
 ;;00406203001
 ;;9002226.02101,"830,00406203005 ",.01)
 ;;00406203005
 ;;9002226.02101,"830,00406203005 ",.02)
 ;;00406203005
 ;;9002226.02101,"830,00406203010 ",.01)
 ;;00406203010
 ;;9002226.02101,"830,00406203010 ",.02)
 ;;00406203010
 ;;9002226.02101,"830,00440773900 ",.01)
 ;;00440773900
 ;;9002226.02101,"830,00440773900 ",.02)
 ;;00440773900
 ;;9002226.02101,"830,00440773902 ",.01)
 ;;00440773902
 ;;9002226.02101,"830,00440773902 ",.02)
 ;;00440773902
 ;;9002226.02101,"830,00440773910 ",.01)
 ;;00440773910
 ;;9002226.02101,"830,00440773910 ",.02)
 ;;00440773910
 ;;9002226.02101,"830,00440773920 ",.01)
 ;;00440773920
 ;;9002226.02101,"830,00440773920 ",.02)
 ;;00440773920
 ;;9002226.02101,"830,00440773928 ",.01)
 ;;00440773928
 ;;9002226.02101,"830,00440773928 ",.02)
 ;;00440773928
 ;;9002226.02101,"830,00440773960 ",.01)
 ;;00440773960
 ;;9002226.02101,"830,00440773960 ",.02)
 ;;00440773960
 ;;9002226.02101,"830,00440773992 ",.01)
 ;;00440773992
 ;;9002226.02101,"830,00440773992 ",.02)
 ;;00440773992
 ;;9002226.02101,"830,00440773994 ",.01)
 ;;00440773994
 ;;9002226.02101,"830,00440773994 ",.02)
 ;;00440773994
 ;;9002226.02101,"830,00440774892 ",.01)
 ;;00440774892
 ;;9002226.02101,"830,00440774892 ",.02)
 ;;00440774892
 ;;9002226.02101,"830,00480104801 ",.01)
 ;;00480104801
 ;;9002226.02101,"830,00480104801 ",.02)
 ;;00480104801
 ;;9002226.02101,"830,00480104805 ",.01)
 ;;00480104805
 ;;9002226.02101,"830,00480104805 ",.02)
 ;;00480104805
 ;;9002226.02101,"830,00480104810 ",.01)
 ;;00480104810
 ;;9002226.02101,"830,00480104810 ",.02)
 ;;00480104810
 ;;9002226.02101,"830,00480104901 ",.01)
 ;;00480104901
 ;;9002226.02101,"830,00480104901 ",.02)
 ;;00480104901
 ;;9002226.02101,"830,00480104905 ",.01)
 ;;00480104905
 ;;9002226.02101,"830,00480104905 ",.02)
 ;;00480104905
 ;;9002226.02101,"830,00480104910 ",.01)
 ;;00480104910
 ;;9002226.02101,"830,00480104910 ",.02)
 ;;00480104910
 ;;9002226.02101,"830,00480571001 ",.01)
 ;;00480571001
 ;;9002226.02101,"830,00480571001 ",.02)
 ;;00480571001
 ;;9002226.02101,"830,00480571005 ",.01)
 ;;00480571005
 ;;9002226.02101,"830,00480571005 ",.02)
 ;;00480571005
 ;;9002226.02101,"830,00480571083 ",.01)
 ;;00480571083
 ;;9002226.02101,"830,00480571083 ",.02)
 ;;00480571083
 ;;9002226.02101,"830,00480571101 ",.01)
 ;;00480571101
 ;;9002226.02101,"830,00480571101 ",.02)
 ;;00480571101
 ;;9002226.02101,"830,00480571105 ",.01)
 ;;00480571105
 ;;9002226.02101,"830,00480571105 ",.02)
 ;;00480571105
 ;;9002226.02101,"830,00480571115 ",.01)
 ;;00480571115
 ;;9002226.02101,"830,00480571115 ",.02)
 ;;00480571115
 ;;9002226.02101,"830,00480571201 ",.01)
 ;;00480571201
 ;;9002226.02101,"830,00480571201 ",.02)
 ;;00480571201
 ;;9002226.02101,"830,00480571205 ",.01)
 ;;00480571205
 ;;9002226.02101,"830,00480571205 ",.02)
 ;;00480571205
 ;;9002226.02101,"830,00480571215 ",.01)
 ;;00480571215
 ;;9002226.02101,"830,00480571215 ",.02)
 ;;00480571215
 ;;9002226.02101,"830,00480721201 ",.01)
 ;;00480721201
 ;;9002226.02101,"830,00480721201 ",.02)
 ;;00480721201
 ;;9002226.02101,"830,00480721401 ",.01)
 ;;00480721401
 ;;9002226.02101,"830,00480721401 ",.02)
 ;;00480721401
 ;;9002226.02101,"830,00480721405 ",.01)
 ;;00480721405
 ;;9002226.02101,"830,00480721405 ",.02)
 ;;00480721405
 ;;9002226.02101,"830,00480721410 ",.01)
 ;;00480721410
 ;;9002226.02101,"830,00480721410 ",.02)
 ;;00480721410
 ;;9002226.02101,"830,00480726001 ",.01)
 ;;00480726001
 ;;9002226.02101,"830,00480726001 ",.02)
 ;;00480726001
 ;;9002226.02101,"830,00480726101 ",.01)
 ;;00480726101
 ;;9002226.02101,"830,00480726101 ",.02)
 ;;00480726101
 ;;9002226.02101,"830,00480726105 ",.01)
 ;;00480726105
 ;;9002226.02101,"830,00480726105 ",.02)
 ;;00480726105
 ;;9002226.02101,"830,00480726201 ",.01)
 ;;00480726201