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

BGPM5BFC.m

Go to the documentation of this file.
BGPM5BFC ;IHS/MSC/MMT-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,"1084,51129286701 ",.01)
 ;;51129286701
 ;;9002226.02101,"1084,51129286701 ",.02)
 ;;51129286701
 ;;9002226.02101,"1084,51129286702 ",.01)
 ;;51129286702
 ;;9002226.02101,"1084,51129286702 ",.02)
 ;;51129286702
 ;;9002226.02101,"1084,51129289601 ",.01)
 ;;51129289601
 ;;9002226.02101,"1084,51129289601 ",.02)
 ;;51129289601
 ;;9002226.02101,"1084,51129289602 ",.01)
 ;;51129289602
 ;;9002226.02101,"1084,51129289602 ",.02)
 ;;51129289602
 ;;9002226.02101,"1084,51129292201 ",.01)
 ;;51129292201
 ;;9002226.02101,"1084,51129292201 ",.02)
 ;;51129292201
 ;;9002226.02101,"1084,51129301401 ",.01)
 ;;51129301401
 ;;9002226.02101,"1084,51129301401 ",.02)
 ;;51129301401
 ;;9002226.02101,"1084,51129301402 ",.01)
 ;;51129301402
 ;;9002226.02101,"1084,51129301402 ",.02)
 ;;51129301402
 ;;9002226.02101,"1084,51129302401 ",.01)
 ;;51129302401
 ;;9002226.02101,"1084,51129302401 ",.02)
 ;;51129302401
 ;;9002226.02101,"1084,51129302402 ",.01)
 ;;51129302402
 ;;9002226.02101,"1084,51129302402 ",.02)
 ;;51129302402
 ;;9002226.02101,"1084,51129306001 ",.01)
 ;;51129306001
 ;;9002226.02101,"1084,51129306001 ",.02)
 ;;51129306001
 ;;9002226.02101,"1084,51129306002 ",.01)
 ;;51129306002
 ;;9002226.02101,"1084,51129306002 ",.02)
 ;;51129306002
 ;;9002226.02101,"1084,51129309801 ",.01)
 ;;51129309801
 ;;9002226.02101,"1084,51129309801 ",.02)
 ;;51129309801
 ;;9002226.02101,"1084,51129309802 ",.01)
 ;;51129309802
 ;;9002226.02101,"1084,51129309802 ",.02)
 ;;51129309802
 ;;9002226.02101,"1084,51129316901 ",.01)
 ;;51129316901
 ;;9002226.02101,"1084,51129316901 ",.02)
 ;;51129316901
 ;;9002226.02101,"1084,51129316902 ",.01)
 ;;51129316902
 ;;9002226.02101,"1084,51129316902 ",.02)
 ;;51129316902
 ;;9002226.02101,"1084,51129320701 ",.01)
 ;;51129320701
 ;;9002226.02101,"1084,51129320701 ",.02)
 ;;51129320701
 ;;9002226.02101,"1084,51129320702 ",.01)
 ;;51129320702
 ;;9002226.02101,"1084,51129320702 ",.02)
 ;;51129320702
 ;;9002226.02101,"1084,51129323501 ",.01)
 ;;51129323501
 ;;9002226.02101,"1084,51129323501 ",.02)
 ;;51129323501
 ;;9002226.02101,"1084,51129323502 ",.01)
 ;;51129323502
 ;;9002226.02101,"1084,51129323502 ",.02)
 ;;51129323502
 ;;9002226.02101,"1084,51129324701 ",.01)
 ;;51129324701
 ;;9002226.02101,"1084,51129324701 ",.02)
 ;;51129324701
 ;;9002226.02101,"1084,51129324702 ",.01)
 ;;51129324702
 ;;9002226.02101,"1084,51129324702 ",.02)
 ;;51129324702
 ;;9002226.02101,"1084,51129329601 ",.01)
 ;;51129329601
 ;;9002226.02101,"1084,51129329601 ",.02)
 ;;51129329601
 ;;9002226.02101,"1084,51129329602 ",.01)
 ;;51129329602
 ;;9002226.02101,"1084,51129329602 ",.02)
 ;;51129329602
 ;;9002226.02101,"1084,51129348401 ",.01)
 ;;51129348401
 ;;9002226.02101,"1084,51129348401 ",.02)
 ;;51129348401
 ;;9002226.02101,"1084,51129348402 ",.01)
 ;;51129348402
 ;;9002226.02101,"1084,51129348402 ",.02)
 ;;51129348402
 ;;9002226.02101,"1084,51129349501 ",.01)
 ;;51129349501
 ;;9002226.02101,"1084,51129349501 ",.02)
 ;;51129349501
 ;;9002226.02101,"1084,51129349502 ",.01)
 ;;51129349502
 ;;9002226.02101,"1084,51129349502 ",.02)
 ;;51129349502
 ;;9002226.02101,"1084,51129349701 ",.01)
 ;;51129349701
 ;;9002226.02101,"1084,51129349701 ",.02)
 ;;51129349701
 ;;9002226.02101,"1084,51129349702 ",.01)
 ;;51129349702
 ;;9002226.02101,"1084,51129349702 ",.02)
 ;;51129349702
 ;;9002226.02101,"1084,51129350901 ",.01)
 ;;51129350901
 ;;9002226.02101,"1084,51129350901 ",.02)
 ;;51129350901
 ;;9002226.02101,"1084,51129350902 ",.01)
 ;;51129350902
 ;;9002226.02101,"1084,51129350902 ",.02)
 ;;51129350902
 ;;9002226.02101,"1084,51129351001 ",.01)
 ;;51129351001
 ;;9002226.02101,"1084,51129351001 ",.02)
 ;;51129351001
 ;;9002226.02101,"1084,51129351002 ",.01)
 ;;51129351002
 ;;9002226.02101,"1084,51129351002 ",.02)
 ;;51129351002
 ;;9002226.02101,"1084,51129354601 ",.01)
 ;;51129354601
 ;;9002226.02101,"1084,51129354601 ",.02)
 ;;51129354601
 ;;9002226.02101,"1084,51129354602 ",.01)
 ;;51129354602
 ;;9002226.02101,"1084,51129354602 ",.02)
 ;;51129354602
 ;;9002226.02101,"1084,51129355601 ",.01)
 ;;51129355601
 ;;9002226.02101,"1084,51129355601 ",.02)
 ;;51129355601
 ;;9002226.02101,"1084,51129355602 ",.01)
 ;;51129355602
 ;;9002226.02101,"1084,51129355602 ",.02)
 ;;51129355602
 ;;9002226.02101,"1084,51129359401 ",.01)
 ;;51129359401
 ;;9002226.02101,"1084,51129359401 ",.02)
 ;;51129359401
 ;;9002226.02101,"1084,51129359402 ",.01)
 ;;51129359402
 ;;9002226.02101,"1084,51129359402 ",.02)
 ;;51129359402
 ;;9002226.02101,"1084,51129363601 ",.01)
 ;;51129363601
 ;;9002226.02101,"1084,51129363601 ",.02)
 ;;51129363601
 ;;9002226.02101,"1084,51129363602 ",.01)
 ;;51129363602
 ;;9002226.02101,"1084,51129363602 ",.02)
 ;;51129363602
 ;;9002226.02101,"1084,51129364901 ",.01)
 ;;51129364901
 ;;9002226.02101,"1084,51129364901 ",.02)
 ;;51129364901
 ;;9002226.02101,"1084,51129364902 ",.01)
 ;;51129364902
 ;;9002226.02101,"1084,51129364902 ",.02)
 ;;51129364902
 ;;9002226.02101,"1084,51129365201 ",.01)
 ;;51129365201
 ;;9002226.02101,"1084,51129365201 ",.02)
 ;;51129365201
 ;;9002226.02101,"1084,51129365202 ",.01)
 ;;51129365202
 ;;9002226.02101,"1084,51129365202 ",.02)
 ;;51129365202
 ;;9002226.02101,"1084,51129374101 ",.01)
 ;;51129374101
 ;;9002226.02101,"1084,51129374101 ",.02)
 ;;51129374101
 ;;9002226.02101,"1084,51129374102 ",.01)
 ;;51129374102
 ;;9002226.02101,"1084,51129374102 ",.02)
 ;;51129374102
 ;;9002226.02101,"1084,51129375201 ",.01)
 ;;51129375201
 ;;9002226.02101,"1084,51129375201 ",.02)
 ;;51129375201
 ;;9002226.02101,"1084,51129375202 ",.01)
 ;;51129375202
 ;;9002226.02101,"1084,51129375202 ",.02)
 ;;51129375202
 ;;9002226.02101,"1084,51129377401 ",.01)
 ;;51129377401
 ;;9002226.02101,"1084,51129377401 ",.02)
 ;;51129377401
 ;;9002226.02101,"1084,51129377402 ",.01)
 ;;51129377402
 ;;9002226.02101,"1084,51129377402 ",.02)
 ;;51129377402
 ;;9002226.02101,"1084,51129381001 ",.01)
 ;;51129381001
 ;;9002226.02101,"1084,51129381001 ",.02)
 ;;51129381001
 ;;9002226.02101,"1084,51129381701 ",.01)
 ;;51129381701
 ;;9002226.02101,"1084,51129381701 ",.02)
 ;;51129381701
 ;;9002226.02101,"1084,51129381702 ",.01)
 ;;51129381702
 ;;9002226.02101,"1084,51129381702 ",.02)
 ;;51129381702
 ;;9002226.02101,"1084,51129381801 ",.01)
 ;;51129381801
 ;;9002226.02101,"1084,51129381801 ",.02)
 ;;51129381801
 ;;9002226.02101,"1084,51129381802 ",.01)
 ;;51129381802
 ;;9002226.02101,"1084,51129381802 ",.02)
 ;;51129381802
 ;;9002226.02101,"1084,51129384101 ",.01)
 ;;51129384101
 ;;9002226.02101,"1084,51129384101 ",.02)
 ;;51129384101
 ;;9002226.02101,"1084,51129384102 ",.01)
 ;;51129384102
 ;;9002226.02101,"1084,51129384102 ",.02)
 ;;51129384102
 ;;9002226.02101,"1084,51129390801 ",.01)
 ;;51129390801
 ;;9002226.02101,"1084,51129390801 ",.02)
 ;;51129390801
 ;;9002226.02101,"1084,51129390802 ",.01)
 ;;51129390802
 ;;9002226.02101,"1084,51129390802 ",.02)
 ;;51129390802
 ;;9002226.02101,"1084,51129394301 ",.01)
 ;;51129394301
 ;;9002226.02101,"1084,51129394301 ",.02)
 ;;51129394301
 ;;9002226.02101,"1084,51129394302 ",.01)
 ;;51129394302
 ;;9002226.02101,"1084,51129394302 ",.02)
 ;;51129394302
 ;;9002226.02101,"1084,51129402201 ",.01)
 ;;51129402201
 ;;9002226.02101,"1084,51129402201 ",.02)
 ;;51129402201
 ;;9002226.02101,"1084,51129402202 ",.01)
 ;;51129402202
 ;;9002226.02101,"1084,51129402202 ",.02)
 ;;51129402202
 ;;9002226.02101,"1084,51129403401 ",.01)
 ;;51129403401
 ;;9002226.02101,"1084,51129403401 ",.02)
 ;;51129403401
 ;;9002226.02101,"1084,51129403402 ",.01)
 ;;51129403402
 ;;9002226.02101,"1084,51129403402 ",.02)
 ;;51129403402
 ;;9002226.02101,"1084,51129407701 ",.01)
 ;;51129407701
 ;;9002226.02101,"1084,51129407701 ",.02)
 ;;51129407701
 ;;9002226.02101,"1084,51129407702 ",.01)
 ;;51129407702
 ;;9002226.02101,"1084,51129407702 ",.02)
 ;;51129407702
 ;;9002226.02101,"1084,51129413001 ",.01)
 ;;51129413001
 ;;9002226.02101,"1084,51129413001 ",.02)
 ;;51129413001
 ;;9002226.02101,"1084,51129413002 ",.01)
 ;;51129413002
 ;;9002226.02101,"1084,51129413002 ",.02)
 ;;51129413002
 ;;9002226.02101,"1084,51129413101 ",.01)
 ;;51129413101
 ;;9002226.02101,"1084,51129413101 ",.02)
 ;;51129413101
 ;;9002226.02101,"1084,51129413102 ",.01)
 ;;51129413102
 ;;9002226.02101,"1084,51129413102 ",.02)
 ;;51129413102
 ;;9002226.02101,"1084,51129433301 ",.01)
 ;;51129433301
 ;;9002226.02101,"1084,51129433301 ",.02)
 ;;51129433301
 ;;9002226.02101,"1084,51129433302 ",.01)
 ;;51129433302
 ;;9002226.02101,"1084,51129433302 ",.02)
 ;;51129433302
 ;;9002226.02101,"1084,51129444101 ",.01)
 ;;51129444101
 ;;9002226.02101,"1084,51129444101 ",.02)
 ;;51129444101
 ;;9002226.02101,"1084,51129444102 ",.01)
 ;;51129444102
 ;;9002226.02101,"1084,51129444102 ",.02)
 ;;51129444102
 ;;9002226.02101,"1084,51129446701 ",.01)
 ;;51129446701
 ;;9002226.02101,"1084,51129446701 ",.02)
 ;;51129446701
 ;;9002226.02101,"1084,51129455501 ",.01)
 ;;51129455501
 ;;9002226.02101,"1084,51129455501 ",.02)
 ;;51129455501
 ;;9002226.02101,"1084,51129455502 ",.01)
 ;;51129455502
 ;;9002226.02101,"1084,51129455502 ",.02)
 ;;51129455502
 ;;9002226.02101,"1084,51129469201 ",.01)
 ;;51129469201
 ;;9002226.02101,"1084,51129469201 ",.02)
 ;;51129469201
 ;;9002226.02101,"1084,51129469202 ",.01)
 ;;51129469202
 ;;9002226.02101,"1084,51129469202 ",.02)
 ;;51129469202
 ;;9002226.02101,"1084,51129536301 ",.01)
 ;;51129536301
 ;;9002226.02101,"1084,51129536301 ",.02)
 ;;51129536301
 ;;9002226.02101,"1084,51138007430 ",.01)
 ;;51138007430
 ;;9002226.02101,"1084,51138007430 ",.02)
 ;;51138007430
 ;;9002226.02101,"1084,51138007530 ",.01)
 ;;51138007530
 ;;9002226.02101,"1084,51138007530 ",.02)
 ;;51138007530
 ;;9002226.02101,"1084,51138007630 ",.01)
 ;;51138007630
 ;;9002226.02101,"1084,51138007630 ",.02)
 ;;51138007630
 ;;9002226.02101,"1084,51138008330 ",.01)
 ;;51138008330
 ;;9002226.02101,"1084,51138008330 ",.02)
 ;;51138008330
 ;;9002226.02101,"1084,51138008430 ",.01)
 ;;51138008430
 ;;9002226.02101,"1084,51138008430 ",.02)
 ;;51138008430
 ;;9002226.02101,"1084,51138008530 ",.01)
 ;;51138008530
 ;;9002226.02101,"1084,51138008530 ",.02)
 ;;51138008530
 ;;9002226.02101,"1084,51138025130 ",.01)
 ;;51138025130
 ;;9002226.02101,"1084,51138025130 ",.02)
 ;;51138025130
 ;;9002226.02101,"1084,51138025230 ",.01)
 ;;51138025230
 ;;9002226.02101,"1084,51138025230 ",.02)
 ;;51138025230
 ;;9002226.02101,"1084,51138026530 ",.01)
 ;;51138026530
 ;;9002226.02101,"1084,51138026530 ",.02)
 ;;51138026530
 ;;9002226.02101,"1084,51138026630 ",.01)
 ;;51138026630
 ;;9002226.02101,"1084,51138026630 ",.02)
 ;;51138026630
 ;;9002226.02101,"1084,51138026730 ",.01)
 ;;51138026730
 ;;9002226.02101,"1084,51138026730 ",.02)
 ;;51138026730
 ;;9002226.02101,"1084,51138026830 ",.01)
 ;;51138026830
 ;;9002226.02101,"1084,51138026830 ",.02)
 ;;51138026830
 ;;9002226.02101,"1084,51138026930 ",.01)
 ;;51138026930
 ;;9002226.02101,"1084,51138026930 ",.02)
 ;;51138026930
 ;;9002226.02101,"1084,51138027030 ",.01)
 ;;51138027030
 ;;9002226.02101,"1084,51138027030 ",.02)
 ;;51138027030
 ;;9002226.02101,"1084,51138027130 ",.01)
 ;;51138027130
 ;;9002226.02101,"1084,51138027130 ",.02)
 ;;51138027130
 ;;9002226.02101,"1084,51138033730 ",.01)
 ;;51138033730
 ;;9002226.02101,"1084,51138033730 ",.02)
 ;;51138033730
 ;;9002226.02101,"1084,51138033830 ",.01)
 ;;51138033830
 ;;9002226.02101,"1084,51138033830 ",.02)
 ;;51138033830
 ;;9002226.02101,"1084,51138033930 ",.01)
 ;;51138033930
 ;;9002226.02101,"1084,51138033930 ",.02)
 ;;51138033930
 ;;9002226.02101,"1084,51138036730 ",.01)
 ;;51138036730