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

BGPM5BC.m

Go to the documentation of this file.
BGPM5BC ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 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,"1044,23490505006 ",.02)
 ;;23490505006
 ;;9002226.02101,"1044,23490505008 ",.01)
 ;;23490505008
 ;;9002226.02101,"1044,23490505008 ",.02)
 ;;23490505008
 ;;9002226.02101,"1044,23490505009 ",.01)
 ;;23490505009
 ;;9002226.02101,"1044,23490505009 ",.02)
 ;;23490505009
 ;;9002226.02101,"1044,23490505101 ",.01)
 ;;23490505101
 ;;9002226.02101,"1044,23490505101 ",.02)
 ;;23490505101
 ;;9002226.02101,"1044,23490505102 ",.01)
 ;;23490505102
 ;;9002226.02101,"1044,23490505102 ",.02)
 ;;23490505102
 ;;9002226.02101,"1044,23490505103 ",.01)
 ;;23490505103
 ;;9002226.02101,"1044,23490505103 ",.02)
 ;;23490505103
 ;;9002226.02101,"1044,23490505203 ",.01)
 ;;23490505203
 ;;9002226.02101,"1044,23490505203 ",.02)
 ;;23490505203
 ;;9002226.02101,"1044,23490560103 ",.01)
 ;;23490560103
 ;;9002226.02101,"1044,23490560103 ",.02)
 ;;23490560103
 ;;9002226.02101,"1044,23490560201 ",.01)
 ;;23490560201
 ;;9002226.02101,"1044,23490560201 ",.02)
 ;;23490560201
 ;;9002226.02101,"1044,23490560202 ",.01)
 ;;23490560202
 ;;9002226.02101,"1044,23490560202 ",.02)
 ;;23490560202
 ;;9002226.02101,"1044,23490560203 ",.01)
 ;;23490560203
 ;;9002226.02101,"1044,23490560203 ",.02)
 ;;23490560203
 ;;9002226.02101,"1044,23490601901 ",.01)
 ;;23490601901
 ;;9002226.02101,"1044,23490601901 ",.02)
 ;;23490601901
 ;;9002226.02101,"1044,23490601902 ",.01)
 ;;23490601902
 ;;9002226.02101,"1044,23490601902 ",.02)
 ;;23490601902
 ;;9002226.02101,"1044,23490601903 ",.01)
 ;;23490601903
 ;;9002226.02101,"1044,23490601903 ",.02)
 ;;23490601903
 ;;9002226.02101,"1044,23490601904 ",.01)
 ;;23490601904
 ;;9002226.02101,"1044,23490601904 ",.02)
 ;;23490601904
 ;;9002226.02101,"1044,23490602001 ",.01)
 ;;23490602001
 ;;9002226.02101,"1044,23490602001 ",.02)
 ;;23490602001
 ;;9002226.02101,"1044,23490602002 ",.01)
 ;;23490602002
 ;;9002226.02101,"1044,23490602002 ",.02)
 ;;23490602002
 ;;9002226.02101,"1044,23490602003 ",.01)
 ;;23490602003
 ;;9002226.02101,"1044,23490602003 ",.02)
 ;;23490602003
 ;;9002226.02101,"1044,23490602106 ",.01)
 ;;23490602106
 ;;9002226.02101,"1044,23490602106 ",.02)
 ;;23490602106
 ;;9002226.02101,"1044,23490605901 ",.01)
 ;;23490605901
 ;;9002226.02101,"1044,23490605901 ",.02)
 ;;23490605901
 ;;9002226.02101,"1044,23490605902 ",.01)
 ;;23490605902
 ;;9002226.02101,"1044,23490605902 ",.02)
 ;;23490605902
 ;;9002226.02101,"1044,23490605903 ",.01)
 ;;23490605903
 ;;9002226.02101,"1044,23490605903 ",.02)
 ;;23490605903
 ;;9002226.02101,"1044,23490606001 ",.01)
 ;;23490606001
 ;;9002226.02101,"1044,23490606001 ",.02)
 ;;23490606001
 ;;9002226.02101,"1044,23490606002 ",.01)
 ;;23490606002
 ;;9002226.02101,"1044,23490606002 ",.02)
 ;;23490606002
 ;;9002226.02101,"1044,23490626301 ",.01)
 ;;23490626301
 ;;9002226.02101,"1044,23490626301 ",.02)
 ;;23490626301
 ;;9002226.02101,"1044,23490626302 ",.01)
 ;;23490626302
 ;;9002226.02101,"1044,23490626302 ",.02)
 ;;23490626302
 ;;9002226.02101,"1044,23490626303 ",.01)
 ;;23490626303
 ;;9002226.02101,"1044,23490626303 ",.02)
 ;;23490626303
 ;;9002226.02101,"1044,23490626401 ",.01)
 ;;23490626401
 ;;9002226.02101,"1044,23490626401 ",.02)
 ;;23490626401
 ;;9002226.02101,"1044,23490626402 ",.01)
 ;;23490626402
 ;;9002226.02101,"1044,23490626402 ",.02)
 ;;23490626402
 ;;9002226.02101,"1044,23490626403 ",.01)
 ;;23490626403
 ;;9002226.02101,"1044,23490626403 ",.02)
 ;;23490626403
 ;;9002226.02101,"1044,23490626404 ",.01)
 ;;23490626404
 ;;9002226.02101,"1044,23490626404 ",.02)
 ;;23490626404
 ;;9002226.02101,"1044,23490640501 ",.01)
 ;;23490640501
 ;;9002226.02101,"1044,23490640501 ",.02)
 ;;23490640501
 ;;9002226.02101,"1044,23490640502 ",.01)
 ;;23490640502
 ;;9002226.02101,"1044,23490640502 ",.02)
 ;;23490640502
 ;;9002226.02101,"1044,23490640509 ",.01)
 ;;23490640509
 ;;9002226.02101,"1044,23490640509 ",.02)
 ;;23490640509
 ;;9002226.02101,"1044,23490640601 ",.01)
 ;;23490640601
 ;;9002226.02101,"1044,23490640601 ",.02)
 ;;23490640601
 ;;9002226.02101,"1044,23490640602 ",.01)
 ;;23490640602
 ;;9002226.02101,"1044,23490640602 ",.02)
 ;;23490640602
 ;;9002226.02101,"1044,23490640606 ",.01)
 ;;23490640606
 ;;9002226.02101,"1044,23490640606 ",.02)
 ;;23490640606
 ;;9002226.02101,"1044,23490640609 ",.01)
 ;;23490640609
 ;;9002226.02101,"1044,23490640609 ",.02)
 ;;23490640609
 ;;9002226.02101,"1044,23490640701 ",.01)
 ;;23490640701
 ;;9002226.02101,"1044,23490640701 ",.02)
 ;;23490640701
 ;;9002226.02101,"1044,23490640702 ",.01)
 ;;23490640702
 ;;9002226.02101,"1044,23490640702 ",.02)
 ;;23490640702
 ;;9002226.02101,"1044,23490640703 ",.01)
 ;;23490640703
 ;;9002226.02101,"1044,23490640703 ",.02)
 ;;23490640703
 ;;9002226.02101,"1044,23490640704 ",.01)
 ;;23490640704
 ;;9002226.02101,"1044,23490640704 ",.02)
 ;;23490640704
 ;;9002226.02101,"1044,23490653006 ",.01)
 ;;23490653006
 ;;9002226.02101,"1044,23490653006 ",.02)
 ;;23490653006
 ;;9002226.02101,"1044,23490694701 ",.01)
 ;;23490694701
 ;;9002226.02101,"1044,23490694701 ",.02)
 ;;23490694701
 ;;9002226.02101,"1044,23490694702 ",.01)
 ;;23490694702
 ;;9002226.02101,"1044,23490694702 ",.02)
 ;;23490694702
 ;;9002226.02101,"1044,23490694801 ",.01)
 ;;23490694801
 ;;9002226.02101,"1044,23490694801 ",.02)
 ;;23490694801
 ;;9002226.02101,"1044,23490694802 ",.01)
 ;;23490694802
 ;;9002226.02101,"1044,23490694802 ",.02)
 ;;23490694802
 ;;9002226.02101,"1044,23490694803 ",.01)
 ;;23490694803
 ;;9002226.02101,"1044,23490694803 ",.02)
 ;;23490694803
 ;;9002226.02101,"1044,23490698901 ",.01)
 ;;23490698901
 ;;9002226.02101,"1044,23490698901 ",.02)
 ;;23490698901
 ;;9002226.02101,"1044,23490698902 ",.01)
 ;;23490698902
 ;;9002226.02101,"1044,23490698902 ",.02)
 ;;23490698902
 ;;9002226.02101,"1044,23490699003 ",.01)
 ;;23490699003
 ;;9002226.02101,"1044,23490699003 ",.02)
 ;;23490699003
 ;;9002226.02101,"1044,23490705001 ",.01)
 ;;23490705001
 ;;9002226.02101,"1044,23490705001 ",.02)
 ;;23490705001
 ;;9002226.02101,"1044,23490705002 ",.01)
 ;;23490705002
 ;;9002226.02101,"1044,23490705002 ",.02)
 ;;23490705002
 ;;9002226.02101,"1044,23490722501 ",.01)
 ;;23490722501
 ;;9002226.02101,"1044,23490722501 ",.02)
 ;;23490722501
 ;;9002226.02101,"1044,23490722502 ",.01)
 ;;23490722502
 ;;9002226.02101,"1044,23490722502 ",.02)
 ;;23490722502
 ;;9002226.02101,"1044,23490722503 ",.01)
 ;;23490722503
 ;;9002226.02101,"1044,23490722503 ",.02)
 ;;23490722503
 ;;9002226.02101,"1044,23490722504 ",.01)
 ;;23490722504
 ;;9002226.02101,"1044,23490722504 ",.02)
 ;;23490722504
 ;;9002226.02101,"1044,23490722505 ",.01)
 ;;23490722505
 ;;9002226.02101,"1044,23490722505 ",.02)
 ;;23490722505
 ;;9002226.02101,"1044,23490722509 ",.01)
 ;;23490722509
 ;;9002226.02101,"1044,23490722509 ",.02)
 ;;23490722509
 ;;9002226.02101,"1044,23490722603 ",.01)
 ;;23490722603
 ;;9002226.02101,"1044,23490722603 ",.02)
 ;;23490722603
 ;;9002226.02101,"1044,23490722605 ",.01)
 ;;23490722605
 ;;9002226.02101,"1044,23490722605 ",.02)
 ;;23490722605
 ;;9002226.02101,"1044,23490722606 ",.01)
 ;;23490722606
 ;;9002226.02101,"1044,23490722606 ",.02)
 ;;23490722606
 ;;9002226.02101,"1044,23490722609 ",.01)
 ;;23490722609
 ;;9002226.02101,"1044,23490722609 ",.02)
 ;;23490722609
 ;;9002226.02101,"1044,23490729303 ",.01)
 ;;23490729303
 ;;9002226.02101,"1044,23490729303 ",.02)
 ;;23490729303
 ;;9002226.02101,"1044,23490732703 ",.01)
 ;;23490732703
 ;;9002226.02101,"1044,23490732703 ",.02)
 ;;23490732703
 ;;9002226.02101,"1044,23490755801 ",.01)
 ;;23490755801
 ;;9002226.02101,"1044,23490755801 ",.02)
 ;;23490755801
 ;;9002226.02101,"1044,23490755802 ",.01)
 ;;23490755802
 ;;9002226.02101,"1044,23490755802 ",.02)
 ;;23490755802
 ;;9002226.02101,"1044,23490755803 ",.01)
 ;;23490755803
 ;;9002226.02101,"1044,23490755803 ",.02)
 ;;23490755803
 ;;9002226.02101,"1044,23490924006 ",.01)
 ;;23490924006
 ;;9002226.02101,"1044,23490924006 ",.02)
 ;;23490924006
 ;;9002226.02101,"1044,24196051701 ",.01)
 ;;24196051701
 ;;9002226.02101,"1044,24196051701 ",.02)
 ;;24196051701
 ;;9002226.02101,"1044,24196051705 ",.01)
 ;;24196051705
 ;;9002226.02101,"1044,24196051705 ",.02)
 ;;24196051705
 ;;9002226.02101,"1044,24196051801 ",.01)
 ;;24196051801
 ;;9002226.02101,"1044,24196051801 ",.02)
 ;;24196051801
 ;;9002226.02101,"1044,24196051805 ",.01)
 ;;24196051805
 ;;9002226.02101,"1044,24196051805 ",.02)
 ;;24196051805
 ;;9002226.02101,"1044,24196051810 ",.01)
 ;;24196051810
 ;;9002226.02101,"1044,24196051810 ",.02)
 ;;24196051810
 ;;9002226.02101,"1044,24196051900 ",.01)
 ;;24196051900
 ;;9002226.02101,"1044,24196051900 ",.02)
 ;;24196051900
 ;;9002226.02101,"1044,24196051901 ",.01)
 ;;24196051901
 ;;9002226.02101,"1044,24196051901 ",.02)
 ;;24196051901
 ;;9002226.02101,"1044,24196051905 ",.01)
 ;;24196051905
 ;;9002226.02101,"1044,24196051905 ",.02)
 ;;24196051905
 ;;9002226.02101,"1044,24196052001 ",.01)
 ;;24196052001
 ;;9002226.02101,"1044,24196052001 ",.02)
 ;;24196052001
 ;;9002226.02101,"1044,24236000402 ",.01)
 ;;24236000402
 ;;9002226.02101,"1044,24236000402 ",.02)
 ;;24236000402
 ;;9002226.02101,"1044,24236000424 ",.01)
 ;;24236000424
 ;;9002226.02101,"1044,24236000424 ",.02)
 ;;24236000424
 ;;9002226.02101,"1044,24236000502 ",.01)
 ;;24236000502
 ;;9002226.02101,"1044,24236000502 ",.02)
 ;;24236000502
 ;;9002226.02101,"1044,24236000524 ",.01)
 ;;24236000524
 ;;9002226.02101,"1044,24236000524 ",.02)
 ;;24236000524
 ;;9002226.02101,"1044,24236000602 ",.01)
 ;;24236000602
 ;;9002226.02101,"1044,24236000602 ",.02)
 ;;24236000602
 ;;9002226.02101,"1044,24236000633 ",.01)
 ;;24236000633
 ;;9002226.02101,"1044,24236000633 ",.02)
 ;;24236000633
 ;;9002226.02101,"1044,24236000702 ",.01)
 ;;24236000702
 ;;9002226.02101,"1044,24236000702 ",.02)
 ;;24236000702
 ;;9002226.02101,"1044,24236000802 ",.01)
 ;;24236000802
 ;;9002226.02101,"1044,24236000802 ",.02)
 ;;24236000802
 ;;9002226.02101,"1044,24236003102 ",.01)
 ;;24236003102
 ;;9002226.02101,"1044,24236003102 ",.02)
 ;;24236003102
 ;;9002226.02101,"1044,24236003202 ",.01)
 ;;24236003202
 ;;9002226.02101,"1044,24236003202 ",.02)
 ;;24236003202
 ;;9002226.02101,"1044,24236005502 ",.01)
 ;;24236005502
 ;;9002226.02101,"1044,24236005502 ",.02)
 ;;24236005502
 ;;9002226.02101,"1044,24236005602 ",.01)
 ;;24236005602
 ;;9002226.02101,"1044,24236005602 ",.02)
 ;;24236005602
 ;;9002226.02101,"1044,24236007502 ",.01)
 ;;24236007502
 ;;9002226.02101,"1044,24236007502 ",.02)
 ;;24236007502
 ;;9002226.02101,"1044,24236009202 ",.01)
 ;;24236009202
 ;;9002226.02101,"1044,24236009202 ",.02)
 ;;24236009202
 ;;9002226.02101,"1044,24236009302 ",.01)
 ;;24236009302
 ;;9002226.02101,"1044,24236009302 ",.02)
 ;;24236009302
 ;;9002226.02101,"1044,24236009402 ",.01)
 ;;24236009402
 ;;9002226.02101,"1044,24236009402 ",.02)
 ;;24236009402
 ;;9002226.02101,"1044,24236009802 ",.01)
 ;;24236009802
 ;;9002226.02101,"1044,24236009802 ",.02)
 ;;24236009802
 ;;9002226.02101,"1044,24236009902 ",.01)
 ;;24236009902
 ;;9002226.02101,"1044,24236009902 ",.02)
 ;;24236009902
 ;;9002226.02101,"1044,24236012602 ",.01)
 ;;24236012602
 ;;9002226.02101,"1044,24236012602 ",.02)
 ;;24236012602
 ;;9002226.02101,"1044,24236012702 ",.01)
 ;;24236012702
 ;;9002226.02101,"1044,24236012702 ",.02)
 ;;24236012702
 ;;9002226.02101,"1044,24236012802 ",.01)
 ;;24236012802
 ;;9002226.02101,"1044,24236012802 ",.02)
 ;;24236012802
 ;;9002226.02101,"1044,24236013501 ",.01)
 ;;24236013501
 ;;9002226.02101,"1044,24236013501 ",.02)
 ;;24236013501
 ;;9002226.02101,"1044,24236013502 ",.01)
 ;;24236013502
 ;;9002226.02101,"1044,24236013502 ",.02)
 ;;24236013502