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

BGPM3ABJ.m

Go to the documentation of this file.
BGPM3ABJ ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
 ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
 ;
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,"775,12843020256 ",.01)
 ;;12843020256
 ;;9002226.02101,"775,12843020256 ",.02)
 ;;12843020256
 ;;9002226.02101,"775,13411033903 ",.01)
 ;;13411033903
 ;;9002226.02101,"775,13411033903 ",.02)
 ;;13411033903
 ;;9002226.02101,"775,15330010001 ",.01)
 ;;15330010001
 ;;9002226.02101,"775,15330010001 ",.02)
 ;;15330010001
 ;;9002226.02101,"775,15330010010 ",.01)
 ;;15330010010
 ;;9002226.02101,"775,15330010010 ",.02)
 ;;15330010010
 ;;9002226.02101,"775,15330010101 ",.01)
 ;;15330010101
 ;;9002226.02101,"775,15330010101 ",.02)
 ;;15330010101
 ;;9002226.02101,"775,15330010110 ",.01)
 ;;15330010110
 ;;9002226.02101,"775,15330010110 ",.02)
 ;;15330010110
 ;;9002226.02101,"775,15330010201 ",.01)
 ;;15330010201
 ;;9002226.02101,"775,15330010201 ",.02)
 ;;15330010201
 ;;9002226.02101,"775,15330010210 ",.01)
 ;;15330010210
 ;;9002226.02101,"775,15330010210 ",.02)
 ;;15330010210
 ;;9002226.02101,"775,15330010601 ",.01)
 ;;15330010601
 ;;9002226.02101,"775,15330010601 ",.02)
 ;;15330010601
 ;;9002226.02101,"775,15330010701 ",.01)
 ;;15330010701
 ;;9002226.02101,"775,15330010701 ",.02)
 ;;15330010701
 ;;9002226.02101,"775,15330010801 ",.01)
 ;;15330010801
 ;;9002226.02101,"775,15330010801 ",.02)
 ;;15330010801
 ;;9002226.02101,"775,15330026601 ",.01)
 ;;15330026601
 ;;9002226.02101,"775,15330026601 ",.02)
 ;;15330026601
 ;;9002226.02101,"775,15330026701 ",.01)
 ;;15330026701
 ;;9002226.02101,"775,15330026701 ",.02)
 ;;15330026701
 ;;9002226.02101,"775,15330026801 ",.01)
 ;;15330026801
 ;;9002226.02101,"775,15330026801 ",.02)
 ;;15330026801
 ;;9002226.02101,"775,15330026810 ",.01)
 ;;15330026810
 ;;9002226.02101,"775,15330026810 ",.02)
 ;;15330026810
 ;;9002226.02101,"775,17236001436 ",.01)
 ;;17236001436
 ;;9002226.02101,"775,17236001436 ",.02)
 ;;17236001436
 ;;9002226.02101,"775,17236037801 ",.01)
 ;;17236037801
 ;;9002226.02101,"775,17236037801 ",.02)
 ;;17236037801
 ;;9002226.02101,"775,17236037810 ",.01)
 ;;17236037810
 ;;9002226.02101,"775,17236037810 ",.02)
 ;;17236037810
 ;;9002226.02101,"775,17236037825 ",.01)
 ;;17236037825
 ;;9002226.02101,"775,17236037825 ",.02)
 ;;17236037825
 ;;9002226.02101,"775,17236038001 ",.01)
 ;;17236038001
 ;;9002226.02101,"775,17236038001 ",.02)
 ;;17236038001
 ;;9002226.02101,"775,17236038010 ",.01)
 ;;17236038010
 ;;9002226.02101,"775,17236038010 ",.02)
 ;;17236038010
 ;;9002226.02101,"775,17236038025 ",.01)
 ;;17236038025
 ;;9002226.02101,"775,17236038025 ",.02)
 ;;17236038025
 ;;9002226.02101,"775,17236070510 ",.01)
 ;;17236070510
 ;;9002226.02101,"775,17236070510 ",.02)
 ;;17236070510
 ;;9002226.02101,"775,17236070566 ",.01)
 ;;17236070566
 ;;9002226.02101,"775,17236070566 ",.02)
 ;;17236070566
 ;;9002226.02101,"775,17714000936 ",.01)
 ;;17714000936
 ;;9002226.02101,"775,17714000936 ",.02)
 ;;17714000936
 ;;9002226.02101,"775,17714001001 ",.01)
 ;;17714001001
 ;;9002226.02101,"775,17714001001 ",.02)
 ;;17714001001
 ;;9002226.02101,"775,17714001010 ",.01)
 ;;17714001010
 ;;9002226.02101,"775,17714001010 ",.02)
 ;;17714001010
 ;;9002226.02101,"775,17714001101 ",.01)
 ;;17714001101
 ;;9002226.02101,"775,17714001101 ",.02)
 ;;17714001101
 ;;9002226.02101,"775,17714001110 ",.01)
 ;;17714001110
 ;;9002226.02101,"775,17714001110 ",.02)
 ;;17714001110
 ;;9002226.02101,"775,17856402902 ",.01)
 ;;17856402902
 ;;9002226.02101,"775,17856402902 ",.02)
 ;;17856402902
 ;;9002226.02101,"775,19458044301 ",.01)
 ;;19458044301
 ;;9002226.02101,"775,19458044301 ",.02)
 ;;19458044301
 ;;9002226.02101,"775,19458047101 ",.01)
 ;;19458047101
 ;;9002226.02101,"775,19458047101 ",.02)
 ;;19458047101
 ;;9002226.02101,"775,19458059801 ",.01)
 ;;19458059801
 ;;9002226.02101,"775,19458059801 ",.02)
 ;;19458059801
 ;;9002226.02101,"775,19458500101 ",.01)
 ;;19458500101
 ;;9002226.02101,"775,19458500101 ",.02)
 ;;19458500101
 ;;9002226.02101,"775,19458500102 ",.01)
 ;;19458500102
 ;;9002226.02101,"775,19458500102 ",.02)
 ;;19458500102
 ;;9002226.02101,"775,19458500201 ",.01)
 ;;19458500201
 ;;9002226.02101,"775,19458500201 ",.02)
 ;;19458500201
 ;;9002226.02101,"775,19458500301 ",.01)
 ;;19458500301
 ;;9002226.02101,"775,19458500301 ",.02)
 ;;19458500301
 ;;9002226.02101,"775,19458500801 ",.01)
 ;;19458500801
 ;;9002226.02101,"775,19458500801 ",.02)
 ;;19458500801
 ;;9002226.02101,"775,19810000743 ",.01)
 ;;19810000743
 ;;9002226.02101,"775,19810000743 ",.02)
 ;;19810000743
 ;;9002226.02101,"775,19810005101 ",.01)
 ;;19810005101
 ;;9002226.02101,"775,19810005101 ",.02)
 ;;19810005101
 ;;9002226.02101,"775,19810005102 ",.01)
 ;;19810005102
 ;;9002226.02101,"775,19810005102 ",.02)
 ;;19810005102
 ;;9002226.02101,"775,19810005250 ",.01)
 ;;19810005250
 ;;9002226.02101,"775,19810005250 ",.02)
 ;;19810005250
 ;;9002226.02101,"775,19810007401 ",.01)
 ;;19810007401
 ;;9002226.02101,"775,19810007401 ",.02)
 ;;19810007401
 ;;9002226.02101,"775,19810007403 ",.01)
 ;;19810007403
 ;;9002226.02101,"775,19810007403 ",.02)
 ;;19810007403
 ;;9002226.02101,"775,19810007404 ",.01)
 ;;19810007404
 ;;9002226.02101,"775,19810007404 ",.02)
 ;;19810007404
 ;;9002226.02101,"775,21695067330 ",.01)
 ;;21695067330
 ;;9002226.02101,"775,21695067330 ",.02)
 ;;21695067330
 ;;9002226.02101,"775,21695067730 ",.01)
 ;;21695067730
 ;;9002226.02101,"775,21695067730 ",.02)
 ;;21695067730
 ;;9002226.02101,"775,23490083305 ",.01)
 ;;23490083305
 ;;9002226.02101,"775,23490083305 ",.02)
 ;;23490083305
 ;;9002226.02101,"775,23490141903 ",.01)
 ;;23490141903
 ;;9002226.02101,"775,23490141903 ",.02)
 ;;23490141903
 ;;9002226.02101,"775,23490141909 ",.01)
 ;;23490141909
 ;;9002226.02101,"775,23490141909 ",.02)
 ;;23490141909
 ;;9002226.02101,"775,23490142003 ",.01)
 ;;23490142003
 ;;9002226.02101,"775,23490142003 ",.02)
 ;;23490142003
 ;;9002226.02101,"775,23490142009 ",.01)
 ;;23490142009
 ;;9002226.02101,"775,23490142009 ",.02)
 ;;23490142009
 ;;9002226.02101,"775,23490142203 ",.01)
 ;;23490142203
 ;;9002226.02101,"775,23490142203 ",.02)
 ;;23490142203
 ;;9002226.02101,"775,23490142206 ",.01)
 ;;23490142206
 ;;9002226.02101,"775,23490142206 ",.02)
 ;;23490142206
 ;;9002226.02101,"775,23490142209 ",.01)
 ;;23490142209
 ;;9002226.02101,"775,23490142209 ",.02)
 ;;23490142209
 ;;9002226.02101,"775,23490647801 ",.01)
 ;;23490647801
 ;;9002226.02101,"775,23490647801 ",.02)
 ;;23490647801
 ;;9002226.02101,"775,23490647802 ",.01)
 ;;23490647802
 ;;9002226.02101,"775,23490647802 ",.02)
 ;;23490647802
 ;;9002226.02101,"775,23490647803 ",.01)
 ;;23490647803
 ;;9002226.02101,"775,23490647803 ",.02)
 ;;23490647803
 ;;9002226.02101,"775,23490648001 ",.01)
 ;;23490648001
 ;;9002226.02101,"775,23490648001 ",.02)
 ;;23490648001
 ;;9002226.02101,"775,23490648002 ",.01)
 ;;23490648002
 ;;9002226.02101,"775,23490648002 ",.02)
 ;;23490648002
 ;;9002226.02101,"775,23490648003 ",.01)
 ;;23490648003
 ;;9002226.02101,"775,23490648003 ",.02)
 ;;23490648003
 ;;9002226.02101,"775,23490648101 ",.01)
 ;;23490648101
 ;;9002226.02101,"775,23490648101 ",.02)
 ;;23490648101
 ;;9002226.02101,"775,23490648102 ",.01)
 ;;23490648102
 ;;9002226.02101,"775,23490648102 ",.02)
 ;;23490648102
 ;;9002226.02101,"775,23490648103 ",.01)
 ;;23490648103
 ;;9002226.02101,"775,23490648103 ",.02)
 ;;23490648103
 ;;9002226.02101,"775,23490648201 ",.01)
 ;;23490648201
 ;;9002226.02101,"775,23490648201 ",.02)
 ;;23490648201
 ;;9002226.02101,"775,23490648202 ",.01)
 ;;23490648202
 ;;9002226.02101,"775,23490648202 ",.02)
 ;;23490648202
 ;;9002226.02101,"775,23490648203 ",.01)
 ;;23490648203
 ;;9002226.02101,"775,23490648203 ",.02)
 ;;23490648203
 ;;9002226.02101,"775,23490648301 ",.01)
 ;;23490648301
 ;;9002226.02101,"775,23490648301 ",.02)
 ;;23490648301
 ;;9002226.02101,"775,23490648302 ",.01)
 ;;23490648302
 ;;9002226.02101,"775,23490648302 ",.02)
 ;;23490648302
 ;;9002226.02101,"775,23490648303 ",.01)
 ;;23490648303
 ;;9002226.02101,"775,23490648303 ",.02)
 ;;23490648303
 ;;9002226.02101,"775,23490648401 ",.01)
 ;;23490648401
 ;;9002226.02101,"775,23490648401 ",.02)
 ;;23490648401
 ;;9002226.02101,"775,23490648402 ",.01)
 ;;23490648402
 ;;9002226.02101,"775,23490648402 ",.02)
 ;;23490648402
 ;;9002226.02101,"775,23490648403 ",.01)
 ;;23490648403
 ;;9002226.02101,"775,23490648403 ",.02)
 ;;23490648403
 ;;9002226.02101,"775,23490660701 ",.01)
 ;;23490660701
 ;;9002226.02101,"775,23490660701 ",.02)
 ;;23490660701
 ;;9002226.02101,"775,23490660702 ",.01)
 ;;23490660702
 ;;9002226.02101,"775,23490660702 ",.02)
 ;;23490660702
 ;;9002226.02101,"775,23490661201 ",.01)
 ;;23490661201
 ;;9002226.02101,"775,23490661201 ",.02)
 ;;23490661201
 ;;9002226.02101,"775,23490661202 ",.01)
 ;;23490661202
 ;;9002226.02101,"775,23490661202 ",.02)
 ;;23490661202
 ;;9002226.02101,"775,24236022802 ",.01)
 ;;24236022802
 ;;9002226.02101,"775,24236022802 ",.02)
 ;;24236022802
 ;;9002226.02101,"775,24236026002 ",.01)
 ;;24236026002
 ;;9002226.02101,"775,24236026002 ",.02)
 ;;24236026002
 ;;9002226.02101,"775,24236032102 ",.01)
 ;;24236032102
 ;;9002226.02101,"775,24236032102 ",.02)
 ;;24236032102
 ;;9002226.02101,"775,24236034802 ",.01)
 ;;24236034802
 ;;9002226.02101,"775,24236034802 ",.02)
 ;;24236034802
 ;;9002226.02101,"775,24236035302 ",.01)
 ;;24236035302
 ;;9002226.02101,"775,24236035302 ",.02)
 ;;24236035302
 ;;9002226.02101,"775,24236056402 ",.01)
 ;;24236056402
 ;;9002226.02101,"775,24236056402 ",.02)
 ;;24236056402
 ;;9002226.02101,"775,24236069302 ",.01)
 ;;24236069302
 ;;9002226.02101,"775,24236069302 ",.02)
 ;;24236069302
 ;;9002226.02101,"775,24236084702 ",.01)
 ;;24236084702
 ;;9002226.02101,"775,24236084702 ",.02)
 ;;24236084702
 ;;9002226.02101,"775,24236087202 ",.01)
 ;;24236087202
 ;;9002226.02101,"775,24236087202 ",.02)
 ;;24236087202
 ;;9002226.02101,"775,24385002868 ",.01)
 ;;24385002868
 ;;9002226.02101,"775,24385002868 ",.02)
 ;;24385002868
 ;;9002226.02101,"775,24385027868 ",.01)
 ;;24385027868
 ;;9002226.02101,"775,24385027868 ",.02)
 ;;24385027868
 ;;9002226.02101,"775,24385041178 ",.01)
 ;;24385041178
 ;;9002226.02101,"775,24385041178 ",.02)
 ;;24385041178
 ;;9002226.02101,"775,24385041185 ",.01)
 ;;24385041185
 ;;9002226.02101,"775,24385041185 ",.02)
 ;;24385041185
 ;;9002226.02101,"775,24385041190 ",.01)
 ;;24385041190
 ;;9002226.02101,"775,24385041190 ",.02)
 ;;24385041190
 ;;9002226.02101,"775,24385041678 ",.01)
 ;;24385041678
 ;;9002226.02101,"775,24385041678 ",.02)
 ;;24385041678
 ;;9002226.02101,"775,24385041685 ",.01)
 ;;24385041685
 ;;9002226.02101,"775,24385041685 ",.02)
 ;;24385041685
 ;;9002226.02101,"775,24385041687 ",.01)
 ;;24385041687
 ;;9002226.02101,"775,24385041687 ",.02)
 ;;24385041687
 ;;9002226.02101,"775,24385041690 ",.01)
 ;;24385041690
 ;;9002226.02101,"775,24385041690 ",.02)
 ;;24385041690
 ;;9002226.02101,"775,24385042990 ",.01)
 ;;24385042990
 ;;9002226.02101,"775,24385042990 ",.02)
 ;;24385042990
 ;;9002226.02101,"775,24385053548 ",.01)
 ;;24385053548
 ;;9002226.02101,"775,24385053548 ",.02)
 ;;24385053548
 ;;9002226.02101,"775,24385053587 ",.01)
 ;;24385053587
 ;;9002226.02101,"775,24385053587 ",.02)
 ;;24385053587
 ;;9002226.02101,"775,24385053590 ",.01)
 ;;24385053590
 ;;9002226.02101,"775,24385053590 ",.02)
 ;;24385053590
 ;;9002226.02101,"775,24385054572 ",.01)
 ;;24385054572
 ;;9002226.02101,"775,24385054572 ",.02)
 ;;24385054572
 ;;9002226.02101,"775,24385064278 ",.01)
 ;;24385064278
 ;;9002226.02101,"775,24385064278 ",.02)
 ;;24385064278
 ;;9002226.02101,"775,25021040001 ",.01)
 ;;25021040001
 ;;9002226.02101,"775,25021040001 ",.02)
 ;;25021040001