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

BGPM5BBR.m

Go to the documentation of this file.
BGPM5BBR ;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,00615130631 ",.01)
 ;;00615130631
 ;;9002226.02101,"1044,00615130631 ",.02)
 ;;00615130631
 ;;9002226.02101,"1044,00615130731 ",.01)
 ;;00615130731
 ;;9002226.02101,"1044,00615130731 ",.02)
 ;;00615130731
 ;;9002226.02101,"1044,00615135731 ",.01)
 ;;00615135731
 ;;9002226.02101,"1044,00615135731 ",.02)
 ;;00615135731
 ;;9002226.02101,"1044,00615135739 ",.01)
 ;;00615135739
 ;;9002226.02101,"1044,00615135739 ",.02)
 ;;00615135739
 ;;9002226.02101,"1044,00615138439 ",.01)
 ;;00615138439
 ;;9002226.02101,"1044,00615138439 ",.02)
 ;;00615138439
 ;;9002226.02101,"1044,00615138739 ",.01)
 ;;00615138739
 ;;9002226.02101,"1044,00615138739 ",.02)
 ;;00615138739
 ;;9002226.02101,"1044,00615257805 ",.01)
 ;;00615257805
 ;;9002226.02101,"1044,00615257805 ",.02)
 ;;00615257805
 ;;9002226.02101,"1044,00615257831 ",.01)
 ;;00615257831
 ;;9002226.02101,"1044,00615257831 ",.02)
 ;;00615257831
 ;;9002226.02101,"1044,00615257839 ",.01)
 ;;00615257839
 ;;9002226.02101,"1044,00615257839 ",.02)
 ;;00615257839
 ;;9002226.02101,"1044,00615257905 ",.01)
 ;;00615257905
 ;;9002226.02101,"1044,00615257905 ",.02)
 ;;00615257905
 ;;9002226.02101,"1044,00615257931 ",.01)
 ;;00615257931
 ;;9002226.02101,"1044,00615257931 ",.02)
 ;;00615257931
 ;;9002226.02101,"1044,00615257939 ",.01)
 ;;00615257939
 ;;9002226.02101,"1044,00615257939 ",.02)
 ;;00615257939
 ;;9002226.02101,"1044,00615258331 ",.01)
 ;;00615258331
 ;;9002226.02101,"1044,00615258331 ",.02)
 ;;00615258331
 ;;9002226.02101,"1044,00615258339 ",.01)
 ;;00615258339
 ;;9002226.02101,"1044,00615258339 ",.02)
 ;;00615258339
 ;;9002226.02101,"1044,00615550105 ",.01)
 ;;00615550105
 ;;9002226.02101,"1044,00615550105 ",.02)
 ;;00615550105
 ;;9002226.02101,"1044,00615550131 ",.01)
 ;;00615550131
 ;;9002226.02101,"1044,00615550131 ",.02)
 ;;00615550131
 ;;9002226.02101,"1044,00615550139 ",.01)
 ;;00615550139
 ;;9002226.02101,"1044,00615550139 ",.02)
 ;;00615550139
 ;;9002226.02101,"1044,00615550205 ",.01)
 ;;00615550205
 ;;9002226.02101,"1044,00615550205 ",.02)
 ;;00615550205
 ;;9002226.02101,"1044,00615550231 ",.01)
 ;;00615550231
 ;;9002226.02101,"1044,00615550231 ",.02)
 ;;00615550231
 ;;9002226.02101,"1044,00615550239 ",.01)
 ;;00615550239
 ;;9002226.02101,"1044,00615550239 ",.02)
 ;;00615550239
 ;;9002226.02101,"1044,00615552739 ",.01)
 ;;00615552739
 ;;9002226.02101,"1044,00615552739 ",.02)
 ;;00615552739
 ;;9002226.02101,"1044,00615557205 ",.01)
 ;;00615557205
 ;;9002226.02101,"1044,00615557205 ",.02)
 ;;00615557205
 ;;9002226.02101,"1044,00615557231 ",.01)
 ;;00615557231
 ;;9002226.02101,"1044,00615557231 ",.02)
 ;;00615557231
 ;;9002226.02101,"1044,00615557239 ",.01)
 ;;00615557239
 ;;9002226.02101,"1044,00615557239 ",.02)
 ;;00615557239
 ;;9002226.02101,"1044,00615557305 ",.01)
 ;;00615557305
 ;;9002226.02101,"1044,00615557305 ",.02)
 ;;00615557305
 ;;9002226.02101,"1044,00615557331 ",.01)
 ;;00615557331
 ;;9002226.02101,"1044,00615557331 ",.02)
 ;;00615557331
 ;;9002226.02101,"1044,00615557339 ",.01)
 ;;00615557339
 ;;9002226.02101,"1044,00615557339 ",.02)
 ;;00615557339
 ;;9002226.02101,"1044,00615557605 ",.01)
 ;;00615557605
 ;;9002226.02101,"1044,00615557605 ",.02)
 ;;00615557605
 ;;9002226.02101,"1044,00615557631 ",.01)
 ;;00615557631
 ;;9002226.02101,"1044,00615557631 ",.02)
 ;;00615557631
 ;;9002226.02101,"1044,00615557639 ",.01)
 ;;00615557639
 ;;9002226.02101,"1044,00615557639 ",.02)
 ;;00615557639
 ;;9002226.02101,"1044,00615557705 ",.01)
 ;;00615557705
 ;;9002226.02101,"1044,00615557705 ",.02)
 ;;00615557705
 ;;9002226.02101,"1044,00615557731 ",.01)
 ;;00615557731
 ;;9002226.02101,"1044,00615557731 ",.02)
 ;;00615557731
 ;;9002226.02101,"1044,00615557739 ",.01)
 ;;00615557739
 ;;9002226.02101,"1044,00615557739 ",.02)
 ;;00615557739
 ;;9002226.02101,"1044,00615557831 ",.01)
 ;;00615557831
 ;;9002226.02101,"1044,00615557831 ",.02)
 ;;00615557831
 ;;9002226.02101,"1044,00615557839 ",.01)
 ;;00615557839
 ;;9002226.02101,"1044,00615557839 ",.02)
 ;;00615557839
 ;;9002226.02101,"1044,00615557931 ",.01)
 ;;00615557931
 ;;9002226.02101,"1044,00615557931 ",.02)
 ;;00615557931
 ;;9002226.02101,"1044,00615557939 ",.01)
 ;;00615557939
 ;;9002226.02101,"1044,00615557939 ",.02)
 ;;00615557939
 ;;9002226.02101,"1044,00615651031 ",.01)
 ;;00615651031
 ;;9002226.02101,"1044,00615651031 ",.02)
 ;;00615651031
 ;;9002226.02101,"1044,00615651039 ",.01)
 ;;00615651039
 ;;9002226.02101,"1044,00615651039 ",.02)
 ;;00615651039
 ;;9002226.02101,"1044,00615651105 ",.01)
 ;;00615651105
 ;;9002226.02101,"1044,00615651105 ",.02)
 ;;00615651105
 ;;9002226.02101,"1044,00615651131 ",.01)
 ;;00615651131
 ;;9002226.02101,"1044,00615651131 ",.02)
 ;;00615651131
 ;;9002226.02101,"1044,00615651139 ",.01)
 ;;00615651139
 ;;9002226.02101,"1044,00615651139 ",.02)
 ;;00615651139
 ;;9002226.02101,"1044,00615651205 ",.01)
 ;;00615651205
 ;;9002226.02101,"1044,00615651205 ",.02)
 ;;00615651205
 ;;9002226.02101,"1044,00615651231 ",.01)
 ;;00615651231
 ;;9002226.02101,"1044,00615651231 ",.02)
 ;;00615651231
 ;;9002226.02101,"1044,00615651239 ",.01)
 ;;00615651239
 ;;9002226.02101,"1044,00615651239 ",.02)
 ;;00615651239
 ;;9002226.02101,"1044,00615654931 ",.01)
 ;;00615654931
 ;;9002226.02101,"1044,00615654931 ",.02)
 ;;00615654931
 ;;9002226.02101,"1044,00615654939 ",.01)
 ;;00615654939
 ;;9002226.02101,"1044,00615654939 ",.02)
 ;;00615654939
 ;;9002226.02101,"1044,00615655805 ",.01)
 ;;00615655805
 ;;9002226.02101,"1044,00615655805 ",.02)
 ;;00615655805
 ;;9002226.02101,"1044,00615655831 ",.01)
 ;;00615655831
 ;;9002226.02101,"1044,00615655831 ",.02)
 ;;00615655831
 ;;9002226.02101,"1044,00615655839 ",.01)
 ;;00615655839
 ;;9002226.02101,"1044,00615655839 ",.02)
 ;;00615655839
 ;;9002226.02101,"1044,00615655905 ",.01)
 ;;00615655905
 ;;9002226.02101,"1044,00615655905 ",.02)
 ;;00615655905
 ;;9002226.02101,"1044,00615655931 ",.01)
 ;;00615655931
 ;;9002226.02101,"1044,00615655931 ",.02)
 ;;00615655931
 ;;9002226.02101,"1044,00615655939 ",.01)
 ;;00615655939
 ;;9002226.02101,"1044,00615655939 ",.02)
 ;;00615655939
 ;;9002226.02101,"1044,00615656005 ",.01)
 ;;00615656005
 ;;9002226.02101,"1044,00615656005 ",.02)
 ;;00615656005
 ;;9002226.02101,"1044,00615656031 ",.01)
 ;;00615656031
 ;;9002226.02101,"1044,00615656031 ",.02)
 ;;00615656031
 ;;9002226.02101,"1044,00615656039 ",.01)
 ;;00615656039
 ;;9002226.02101,"1044,00615656039 ",.02)
 ;;00615656039
 ;;9002226.02101,"1044,00615656639 ",.01)
 ;;00615656639
 ;;9002226.02101,"1044,00615656639 ",.02)
 ;;00615656639
 ;;9002226.02101,"1044,00615656739 ",.01)
 ;;00615656739
 ;;9002226.02101,"1044,00615656739 ",.02)
 ;;00615656739
 ;;9002226.02101,"1044,00615755739 ",.01)
 ;;00615755739
 ;;9002226.02101,"1044,00615755739 ",.02)
 ;;00615755739
 ;;9002226.02101,"1044,00615755839 ",.01)
 ;;00615755839
 ;;9002226.02101,"1044,00615755839 ",.02)
 ;;00615755839
 ;;9002226.02101,"1044,00615756939 ",.01)
 ;;00615756939
 ;;9002226.02101,"1044,00615756939 ",.02)
 ;;00615756939
 ;;9002226.02101,"1044,00615759139 ",.01)
 ;;00615759139
 ;;9002226.02101,"1044,00615759139 ",.02)
 ;;00615759139
 ;;9002226.02101,"1044,00615762039 ",.01)
 ;;00615762039
 ;;9002226.02101,"1044,00615762039 ",.02)
 ;;00615762039
 ;;9002226.02101,"1044,00615762531 ",.01)
 ;;00615762531
 ;;9002226.02101,"1044,00615762531 ",.02)
 ;;00615762531
 ;;9002226.02101,"1044,00615762539 ",.01)
 ;;00615762539
 ;;9002226.02101,"1044,00615762539 ",.02)
 ;;00615762539
 ;;9002226.02101,"1044,00615763839 ",.01)
 ;;00615763839
 ;;9002226.02101,"1044,00615763839 ",.02)
 ;;00615763839
 ;;9002226.02101,"1044,00677042101 ",.01)
 ;;00677042101
 ;;9002226.02101,"1044,00677042101 ",.02)
 ;;00677042101
 ;;9002226.02101,"1044,00677042106 ",.01)
 ;;00677042106
 ;;9002226.02101,"1044,00677042106 ",.02)
 ;;00677042106
 ;;9002226.02101,"1044,00677042107 ",.01)
 ;;00677042107
 ;;9002226.02101,"1044,00677042107 ",.02)
 ;;00677042107
 ;;9002226.02101,"1044,00677042110 ",.01)
 ;;00677042110
 ;;9002226.02101,"1044,00677042110 ",.02)
 ;;00677042110
 ;;9002226.02101,"1044,00677042201 ",.01)
 ;;00677042201
 ;;9002226.02101,"1044,00677042201 ",.02)
 ;;00677042201
 ;;9002226.02101,"1044,00677042206 ",.01)
 ;;00677042206
 ;;9002226.02101,"1044,00677042206 ",.02)
 ;;00677042206
 ;;9002226.02101,"1044,00677042207 ",.01)
 ;;00677042207
 ;;9002226.02101,"1044,00677042207 ",.02)
 ;;00677042207
 ;;9002226.02101,"1044,00677042210 ",.01)
 ;;00677042210
 ;;9002226.02101,"1044,00677042210 ",.02)
 ;;00677042210
 ;;9002226.02101,"1044,00677042301 ",.01)
 ;;00677042301
 ;;9002226.02101,"1044,00677042301 ",.02)
 ;;00677042301
 ;;9002226.02101,"1044,00677042306 ",.01)
 ;;00677042306
 ;;9002226.02101,"1044,00677042306 ",.02)
 ;;00677042306
 ;;9002226.02101,"1044,00677042307 ",.01)
 ;;00677042307
 ;;9002226.02101,"1044,00677042307 ",.02)
 ;;00677042307
 ;;9002226.02101,"1044,00677042310 ",.01)
 ;;00677042310
 ;;9002226.02101,"1044,00677042310 ",.02)
 ;;00677042310
 ;;9002226.02101,"1044,00677047501 ",.01)
 ;;00677047501
 ;;9002226.02101,"1044,00677047501 ",.02)
 ;;00677047501
 ;;9002226.02101,"1044,00677047510 ",.01)
 ;;00677047510
 ;;9002226.02101,"1044,00677047510 ",.02)
 ;;00677047510
 ;;9002226.02101,"1044,00677047601 ",.01)
 ;;00677047601
 ;;9002226.02101,"1044,00677047601 ",.02)
 ;;00677047601
 ;;9002226.02101,"1044,00677047610 ",.01)
 ;;00677047610
 ;;9002226.02101,"1044,00677047610 ",.02)
 ;;00677047610
 ;;9002226.02101,"1044,00677047701 ",.01)
 ;;00677047701
 ;;9002226.02101,"1044,00677047701 ",.02)
 ;;00677047701
 ;;9002226.02101,"1044,00677047710 ",.01)
 ;;00677047710
 ;;9002226.02101,"1044,00677047710 ",.02)
 ;;00677047710
 ;;9002226.02101,"1044,00677047801 ",.01)
 ;;00677047801
 ;;9002226.02101,"1044,00677047801 ",.02)
 ;;00677047801
 ;;9002226.02101,"1044,00677056801 ",.01)
 ;;00677056801
 ;;9002226.02101,"1044,00677056801 ",.02)
 ;;00677056801
 ;;9002226.02101,"1044,00677064501 ",.01)
 ;;00677064501
 ;;9002226.02101,"1044,00677064501 ",.02)
 ;;00677064501
 ;;9002226.02101,"1044,00677113301 ",.01)
 ;;00677113301
 ;;9002226.02101,"1044,00677113301 ",.02)
 ;;00677113301
 ;;9002226.02101,"1044,00677113305 ",.01)
 ;;00677113305
 ;;9002226.02101,"1044,00677113305 ",.02)
 ;;00677113305
 ;;9002226.02101,"1044,00677113401 ",.01)
 ;;00677113401
 ;;9002226.02101,"1044,00677113401 ",.02)
 ;;00677113401
 ;;9002226.02101,"1044,00677113405 ",.01)
 ;;00677113405
 ;;9002226.02101,"1044,00677113405 ",.02)
 ;;00677113405
 ;;9002226.02101,"1044,00677130201 ",.01)
 ;;00677130201
 ;;9002226.02101,"1044,00677130201 ",.02)
 ;;00677130201
 ;;9002226.02101,"1044,00677130205 ",.01)
 ;;00677130205
 ;;9002226.02101,"1044,00677130205 ",.02)
 ;;00677130205
 ;;9002226.02101,"1044,00677130207 ",.01)
 ;;00677130207
 ;;9002226.02101,"1044,00677130207 ",.02)
 ;;00677130207
 ;;9002226.02101,"1044,00677137801 ",.01)
 ;;00677137801
 ;;9002226.02101,"1044,00677137801 ",.02)
 ;;00677137801
 ;;9002226.02101,"1044,00677137901 ",.01)
 ;;00677137901
 ;;9002226.02101,"1044,00677137901 ",.02)
 ;;00677137901
 ;;9002226.02101,"1044,00756029701 ",.01)
 ;;00756029701
 ;;9002226.02101,"1044,00756029701 ",.02)
 ;;00756029701
 ;;9002226.02101,"1044,00756029705 ",.01)
 ;;00756029705
 ;;9002226.02101,"1044,00756029705 ",.02)
 ;;00756029705
 ;;9002226.02101,"1044,00756029710 ",.01)
 ;;00756029710
 ;;9002226.02101,"1044,00756029710 ",.02)
 ;;00756029710
 ;;9002226.02101,"1044,00756029762 ",.01)
 ;;00756029762
 ;;9002226.02101,"1044,00756029762 ",.02)
 ;;00756029762
 ;;9002226.02101,"1044,00756029801 ",.01)
 ;;00756029801