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

BGPM5BCK.m

Go to the documentation of this file.
BGPM5BCK ;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,51079056320 ",.01)
 ;;51079056320
 ;;9002226.02101,"1044,51079056320 ",.02)
 ;;51079056320
 ;;9002226.02101,"1044,51079056420 ",.01)
 ;;51079056420
 ;;9002226.02101,"1044,51079056420 ",.02)
 ;;51079056420
 ;;9002226.02101,"1044,51079076201 ",.01)
 ;;51079076201
 ;;9002226.02101,"1044,51079076201 ",.02)
 ;;51079076201
 ;;9002226.02101,"1044,51079076220 ",.01)
 ;;51079076220
 ;;9002226.02101,"1044,51079076220 ",.02)
 ;;51079076220
 ;;9002226.02101,"1044,51079076301 ",.01)
 ;;51079076301
 ;;9002226.02101,"1044,51079076301 ",.02)
 ;;51079076301
 ;;9002226.02101,"1044,51079076320 ",.01)
 ;;51079076320
 ;;9002226.02101,"1044,51079076320 ",.02)
 ;;51079076320
 ;;9002226.02101,"1044,51079076401 ",.01)
 ;;51079076401
 ;;9002226.02101,"1044,51079076401 ",.02)
 ;;51079076401
 ;;9002226.02101,"1044,51079076420 ",.01)
 ;;51079076420
 ;;9002226.02101,"1044,51079076420 ",.02)
 ;;51079076420
 ;;9002226.02101,"1044,51079077401 ",.01)
 ;;51079077401
 ;;9002226.02101,"1044,51079077401 ",.02)
 ;;51079077401
 ;;9002226.02101,"1044,51079077420 ",.01)
 ;;51079077420
 ;;9002226.02101,"1044,51079077420 ",.02)
 ;;51079077420
 ;;9002226.02101,"1044,51079077520 ",.01)
 ;;51079077520
 ;;9002226.02101,"1044,51079077520 ",.02)
 ;;51079077520
 ;;9002226.02101,"1044,51079080320 ",.01)
 ;;51079080320
 ;;9002226.02101,"1044,51079080320 ",.02)
 ;;51079080320
 ;;9002226.02101,"1044,51079080401 ",.01)
 ;;51079080401
 ;;9002226.02101,"1044,51079080401 ",.02)
 ;;51079080401
 ;;9002226.02101,"1044,51079080419 ",.01)
 ;;51079080419
 ;;9002226.02101,"1044,51079080419 ",.02)
 ;;51079080419
 ;;9002226.02101,"1044,51079080420 ",.01)
 ;;51079080420
 ;;9002226.02101,"1044,51079080420 ",.02)
 ;;51079080420
 ;;9002226.02101,"1044,51079080520 ",.01)
 ;;51079080520
 ;;9002226.02101,"1044,51079080520 ",.02)
 ;;51079080520
 ;;9002226.02101,"1044,51079082463 ",.01)
 ;;51079082463
 ;;9002226.02101,"1044,51079082463 ",.02)
 ;;51079082463
 ;;9002226.02101,"1044,51079082562 ",.01)
 ;;51079082562
 ;;9002226.02101,"1044,51079082562 ",.02)
 ;;51079082562
 ;;9002226.02101,"1044,51079082563 ",.01)
 ;;51079082563
 ;;9002226.02101,"1044,51079082563 ",.02)
 ;;51079082563
 ;;9002226.02101,"1044,51079097101 ",.01)
 ;;51079097101
 ;;9002226.02101,"1044,51079097101 ",.02)
 ;;51079097101
 ;;9002226.02101,"1044,51079097117 ",.01)
 ;;51079097117
 ;;9002226.02101,"1044,51079097117 ",.02)
 ;;51079097117
 ;;9002226.02101,"1044,51079097119 ",.01)
 ;;51079097119
 ;;9002226.02101,"1044,51079097119 ",.02)
 ;;51079097119
 ;;9002226.02101,"1044,51079097120 ",.01)
 ;;51079097120
 ;;9002226.02101,"1044,51079097120 ",.02)
 ;;51079097120
 ;;9002226.02101,"1044,51079099201 ",.01)
 ;;51079099201
 ;;9002226.02101,"1044,51079099201 ",.02)
 ;;51079099201
 ;;9002226.02101,"1044,51079099220 ",.01)
 ;;51079099220
 ;;9002226.02101,"1044,51079099220 ",.02)
 ;;51079099220
 ;;9002226.02101,"1044,51079099301 ",.01)
 ;;51079099301
 ;;9002226.02101,"1044,51079099301 ",.02)
 ;;51079099301
 ;;9002226.02101,"1044,51079099320 ",.01)
 ;;51079099320
 ;;9002226.02101,"1044,51079099320 ",.02)
 ;;51079099320
 ;;9002226.02101,"1044,51079099701 ",.01)
 ;;51079099701
 ;;9002226.02101,"1044,51079099701 ",.02)
 ;;51079099701
 ;;9002226.02101,"1044,51079099720 ",.01)
 ;;51079099720
 ;;9002226.02101,"1044,51079099720 ",.02)
 ;;51079099720
 ;;9002226.02101,"1044,51129111101 ",.01)
 ;;51129111101
 ;;9002226.02101,"1044,51129111101 ",.02)
 ;;51129111101
 ;;9002226.02101,"1044,51129113101 ",.01)
 ;;51129113101
 ;;9002226.02101,"1044,51129113101 ",.02)
 ;;51129113101
 ;;9002226.02101,"1044,51129125901 ",.01)
 ;;51129125901
 ;;9002226.02101,"1044,51129125901 ",.02)
 ;;51129125901
 ;;9002226.02101,"1044,51129144301 ",.01)
 ;;51129144301
 ;;9002226.02101,"1044,51129144301 ",.02)
 ;;51129144301
 ;;9002226.02101,"1044,51129144501 ",.01)
 ;;51129144501
 ;;9002226.02101,"1044,51129144501 ",.02)
 ;;51129144501
 ;;9002226.02101,"1044,51129152601 ",.01)
 ;;51129152601
 ;;9002226.02101,"1044,51129152601 ",.02)
 ;;51129152601
 ;;9002226.02101,"1044,51129155001 ",.01)
 ;;51129155001
 ;;9002226.02101,"1044,51129155001 ",.02)
 ;;51129155001
 ;;9002226.02101,"1044,51129156001 ",.01)
 ;;51129156001
 ;;9002226.02101,"1044,51129156001 ",.02)
 ;;51129156001
 ;;9002226.02101,"1044,51129157801 ",.01)
 ;;51129157801
 ;;9002226.02101,"1044,51129157801 ",.02)
 ;;51129157801
 ;;9002226.02101,"1044,51129161101 ",.01)
 ;;51129161101
 ;;9002226.02101,"1044,51129161101 ",.02)
 ;;51129161101
 ;;9002226.02101,"1044,51129163201 ",.01)
 ;;51129163201
 ;;9002226.02101,"1044,51129163201 ",.02)
 ;;51129163201
 ;;9002226.02101,"1044,51129167901 ",.01)
 ;;51129167901
 ;;9002226.02101,"1044,51129167901 ",.02)
 ;;51129167901
 ;;9002226.02101,"1044,51129175101 ",.01)
 ;;51129175101
 ;;9002226.02101,"1044,51129175101 ",.02)
 ;;51129175101
 ;;9002226.02101,"1044,51129189301 ",.01)
 ;;51129189301
 ;;9002226.02101,"1044,51129189301 ",.02)
 ;;51129189301
 ;;9002226.02101,"1044,51129196701 ",.01)
 ;;51129196701
 ;;9002226.02101,"1044,51129196701 ",.02)
 ;;51129196701
 ;;9002226.02101,"1044,51129196901 ",.01)
 ;;51129196901
 ;;9002226.02101,"1044,51129196901 ",.02)
 ;;51129196901
 ;;9002226.02101,"1044,51129198401 ",.01)
 ;;51129198401
 ;;9002226.02101,"1044,51129198401 ",.02)
 ;;51129198401
 ;;9002226.02101,"1044,51129202901 ",.01)
 ;;51129202901
 ;;9002226.02101,"1044,51129202901 ",.02)
 ;;51129202901
 ;;9002226.02101,"1044,51129203601 ",.01)
 ;;51129203601
 ;;9002226.02101,"1044,51129203601 ",.02)
 ;;51129203601
 ;;9002226.02101,"1044,51129205401 ",.01)
 ;;51129205401
 ;;9002226.02101,"1044,51129205401 ",.02)
 ;;51129205401
 ;;9002226.02101,"1044,51129221101 ",.01)
 ;;51129221101
 ;;9002226.02101,"1044,51129221101 ",.02)
 ;;51129221101
 ;;9002226.02101,"1044,51129229701 ",.01)
 ;;51129229701
 ;;9002226.02101,"1044,51129229701 ",.02)
 ;;51129229701
 ;;9002226.02101,"1044,51129229801 ",.01)
 ;;51129229801
 ;;9002226.02101,"1044,51129229801 ",.02)
 ;;51129229801
 ;;9002226.02101,"1044,51129229901 ",.01)
 ;;51129229901
 ;;9002226.02101,"1044,51129229901 ",.02)
 ;;51129229901
 ;;9002226.02101,"1044,51129232701 ",.01)
 ;;51129232701
 ;;9002226.02101,"1044,51129232701 ",.02)
 ;;51129232701
 ;;9002226.02101,"1044,51129235801 ",.01)
 ;;51129235801
 ;;9002226.02101,"1044,51129235801 ",.02)
 ;;51129235801
 ;;9002226.02101,"1044,51129235901 ",.01)
 ;;51129235901
 ;;9002226.02101,"1044,51129235901 ",.02)
 ;;51129235901
 ;;9002226.02101,"1044,51129236501 ",.01)
 ;;51129236501
 ;;9002226.02101,"1044,51129236501 ",.02)
 ;;51129236501
 ;;9002226.02101,"1044,51129238601 ",.01)
 ;;51129238601
 ;;9002226.02101,"1044,51129238601 ",.02)
 ;;51129238601
 ;;9002226.02101,"1044,51129238701 ",.01)
 ;;51129238701
 ;;9002226.02101,"1044,51129238701 ",.02)
 ;;51129238701
 ;;9002226.02101,"1044,51129238801 ",.01)
 ;;51129238801
 ;;9002226.02101,"1044,51129238801 ",.02)
 ;;51129238801
 ;;9002226.02101,"1044,51129238901 ",.01)
 ;;51129238901
 ;;9002226.02101,"1044,51129238901 ",.02)
 ;;51129238901
 ;;9002226.02101,"1044,51129242101 ",.01)
 ;;51129242101
 ;;9002226.02101,"1044,51129242101 ",.02)
 ;;51129242101
 ;;9002226.02101,"1044,51129242501 ",.01)
 ;;51129242501
 ;;9002226.02101,"1044,51129242501 ",.02)
 ;;51129242501
 ;;9002226.02101,"1044,51129247101 ",.01)
 ;;51129247101
 ;;9002226.02101,"1044,51129247101 ",.02)
 ;;51129247101
 ;;9002226.02101,"1044,51129255701 ",.01)
 ;;51129255701
 ;;9002226.02101,"1044,51129255701 ",.02)
 ;;51129255701
 ;;9002226.02101,"1044,51129257001 ",.01)
 ;;51129257001
 ;;9002226.02101,"1044,51129257001 ",.02)
 ;;51129257001
 ;;9002226.02101,"1044,51129282401 ",.01)
 ;;51129282401
 ;;9002226.02101,"1044,51129282401 ",.02)
 ;;51129282401
 ;;9002226.02101,"1044,51129285401 ",.01)
 ;;51129285401
 ;;9002226.02101,"1044,51129285401 ",.02)
 ;;51129285401
 ;;9002226.02101,"1044,51129285402 ",.01)
 ;;51129285402
 ;;9002226.02101,"1044,51129285402 ",.02)
 ;;51129285402
 ;;9002226.02101,"1044,51129286601 ",.01)
 ;;51129286601
 ;;9002226.02101,"1044,51129286601 ",.02)
 ;;51129286601
 ;;9002226.02101,"1044,51129286602 ",.01)
 ;;51129286602
 ;;9002226.02101,"1044,51129286602 ",.02)
 ;;51129286602
 ;;9002226.02101,"1044,51129287301 ",.01)
 ;;51129287301
 ;;9002226.02101,"1044,51129287301 ",.02)
 ;;51129287301
 ;;9002226.02101,"1044,51129287302 ",.01)
 ;;51129287302
 ;;9002226.02101,"1044,51129287302 ",.02)
 ;;51129287302
 ;;9002226.02101,"1044,51129287901 ",.01)
 ;;51129287901
 ;;9002226.02101,"1044,51129287901 ",.02)
 ;;51129287901
 ;;9002226.02101,"1044,51129287902 ",.01)
 ;;51129287902
 ;;9002226.02101,"1044,51129287902 ",.02)
 ;;51129287902
 ;;9002226.02101,"1044,51129288101 ",.01)
 ;;51129288101
 ;;9002226.02101,"1044,51129288101 ",.02)
 ;;51129288101
 ;;9002226.02101,"1044,51129288102 ",.01)
 ;;51129288102
 ;;9002226.02101,"1044,51129288102 ",.02)
 ;;51129288102
 ;;9002226.02101,"1044,51129290201 ",.01)
 ;;51129290201
 ;;9002226.02101,"1044,51129290201 ",.02)
 ;;51129290201
 ;;9002226.02101,"1044,51129290202 ",.01)
 ;;51129290202
 ;;9002226.02101,"1044,51129290202 ",.02)
 ;;51129290202
 ;;9002226.02101,"1044,51129294901 ",.01)
 ;;51129294901
 ;;9002226.02101,"1044,51129294901 ",.02)
 ;;51129294901
 ;;9002226.02101,"1044,51129295401 ",.01)
 ;;51129295401
 ;;9002226.02101,"1044,51129295401 ",.02)
 ;;51129295401
 ;;9002226.02101,"1044,51129299001 ",.01)
 ;;51129299001
 ;;9002226.02101,"1044,51129299001 ",.02)
 ;;51129299001
 ;;9002226.02101,"1044,51129299002 ",.01)
 ;;51129299002
 ;;9002226.02101,"1044,51129299002 ",.02)
 ;;51129299002
 ;;9002226.02101,"1044,51129301501 ",.01)
 ;;51129301501
 ;;9002226.02101,"1044,51129301501 ",.02)
 ;;51129301501
 ;;9002226.02101,"1044,51129301502 ",.01)
 ;;51129301502
 ;;9002226.02101,"1044,51129301502 ",.02)
 ;;51129301502
 ;;9002226.02101,"1044,51129302001 ",.01)
 ;;51129302001
 ;;9002226.02101,"1044,51129302001 ",.02)
 ;;51129302001
 ;;9002226.02101,"1044,51129302002 ",.01)
 ;;51129302002
 ;;9002226.02101,"1044,51129302002 ",.02)
 ;;51129302002
 ;;9002226.02101,"1044,51129302101 ",.01)
 ;;51129302101
 ;;9002226.02101,"1044,51129302101 ",.02)
 ;;51129302101
 ;;9002226.02101,"1044,51129302102 ",.01)
 ;;51129302102
 ;;9002226.02101,"1044,51129302102 ",.02)
 ;;51129302102
 ;;9002226.02101,"1044,51129304701 ",.01)
 ;;51129304701
 ;;9002226.02101,"1044,51129304701 ",.02)
 ;;51129304701
 ;;9002226.02101,"1044,51129304702 ",.01)
 ;;51129304702
 ;;9002226.02101,"1044,51129304702 ",.02)
 ;;51129304702
 ;;9002226.02101,"1044,51129304801 ",.01)
 ;;51129304801
 ;;9002226.02101,"1044,51129304801 ",.02)
 ;;51129304801
 ;;9002226.02101,"1044,51129304802 ",.01)
 ;;51129304802
 ;;9002226.02101,"1044,51129304802 ",.02)
 ;;51129304802
 ;;9002226.02101,"1044,51129305601 ",.01)
 ;;51129305601
 ;;9002226.02101,"1044,51129305601 ",.02)
 ;;51129305601
 ;;9002226.02101,"1044,51129317801 ",.01)
 ;;51129317801
 ;;9002226.02101,"1044,51129317801 ",.02)
 ;;51129317801
 ;;9002226.02101,"1044,51129317802 ",.01)
 ;;51129317802
 ;;9002226.02101,"1044,51129317802 ",.02)
 ;;51129317802
 ;;9002226.02101,"1044,51129318501 ",.01)
 ;;51129318501
 ;;9002226.02101,"1044,51129318501 ",.02)
 ;;51129318501
 ;;9002226.02101,"1044,51129318502 ",.01)
 ;;51129318502
 ;;9002226.02101,"1044,51129318502 ",.02)
 ;;51129318502
 ;;9002226.02101,"1044,51129323201 ",.01)
 ;;51129323201
 ;;9002226.02101,"1044,51129323201 ",.02)
 ;;51129323201
 ;;9002226.02101,"1044,51129323202 ",.01)
 ;;51129323202
 ;;9002226.02101,"1044,51129323202 ",.02)
 ;;51129323202
 ;;9002226.02101,"1044,51129324001 ",.01)
 ;;51129324001