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

BGPM5ACU.m

Go to the documentation of this file.
BGPM5ACU ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"846,51079087201 ",.02)
 ;;51079087201
 ;;9002226.02101,"846,51079087217 ",.01)
 ;;51079087217
 ;;9002226.02101,"846,51079087217 ",.02)
 ;;51079087217
 ;;9002226.02101,"846,51079087219 ",.01)
 ;;51079087219
 ;;9002226.02101,"846,51079087219 ",.02)
 ;;51079087219
 ;;9002226.02101,"846,51079087220 ",.01)
 ;;51079087220
 ;;9002226.02101,"846,51079087220 ",.02)
 ;;51079087220
 ;;9002226.02101,"846,51079087301 ",.01)
 ;;51079087301
 ;;9002226.02101,"846,51079087301 ",.02)
 ;;51079087301
 ;;9002226.02101,"846,51079087317 ",.01)
 ;;51079087317
 ;;9002226.02101,"846,51079087317 ",.02)
 ;;51079087317
 ;;9002226.02101,"846,51079087319 ",.01)
 ;;51079087319
 ;;9002226.02101,"846,51079087319 ",.02)
 ;;51079087319
 ;;9002226.02101,"846,51079087320 ",.01)
 ;;51079087320
 ;;9002226.02101,"846,51079087320 ",.02)
 ;;51079087320
 ;;9002226.02101,"846,51129128801 ",.01)
 ;;51129128801
 ;;9002226.02101,"846,51129128801 ",.02)
 ;;51129128801
 ;;9002226.02101,"846,51129140501 ",.01)
 ;;51129140501
 ;;9002226.02101,"846,51129140501 ",.02)
 ;;51129140501
 ;;9002226.02101,"846,51129145501 ",.01)
 ;;51129145501
 ;;9002226.02101,"846,51129145501 ",.02)
 ;;51129145501
 ;;9002226.02101,"846,51129148601 ",.01)
 ;;51129148601
 ;;9002226.02101,"846,51129148601 ",.02)
 ;;51129148601
 ;;9002226.02101,"846,51129148701 ",.01)
 ;;51129148701
 ;;9002226.02101,"846,51129148701 ",.02)
 ;;51129148701
 ;;9002226.02101,"846,51129157301 ",.01)
 ;;51129157301
 ;;9002226.02101,"846,51129157301 ",.02)
 ;;51129157301
 ;;9002226.02101,"846,51129162701 ",.01)
 ;;51129162701
 ;;9002226.02101,"846,51129162701 ",.02)
 ;;51129162701
 ;;9002226.02101,"846,51129165701 ",.01)
 ;;51129165701
 ;;9002226.02101,"846,51129165701 ",.02)
 ;;51129165701
 ;;9002226.02101,"846,51129171901 ",.01)
 ;;51129171901
 ;;9002226.02101,"846,51129171901 ",.02)
 ;;51129171901
 ;;9002226.02101,"846,51129172001 ",.01)
 ;;51129172001
 ;;9002226.02101,"846,51129172001 ",.02)
 ;;51129172001
 ;;9002226.02101,"846,51129176101 ",.01)
 ;;51129176101
 ;;9002226.02101,"846,51129176101 ",.02)
 ;;51129176101
 ;;9002226.02101,"846,51129176601 ",.01)
 ;;51129176601
 ;;9002226.02101,"846,51129176601 ",.02)
 ;;51129176601
 ;;9002226.02101,"846,51129179001 ",.01)
 ;;51129179001
 ;;9002226.02101,"846,51129179001 ",.02)
 ;;51129179001
 ;;9002226.02101,"846,51129191301 ",.01)
 ;;51129191301
 ;;9002226.02101,"846,51129191301 ",.02)
 ;;51129191301
 ;;9002226.02101,"846,51129191401 ",.01)
 ;;51129191401
 ;;9002226.02101,"846,51129191401 ",.02)
 ;;51129191401
 ;;9002226.02101,"846,51129196301 ",.01)
 ;;51129196301
 ;;9002226.02101,"846,51129196301 ",.02)
 ;;51129196301
 ;;9002226.02101,"846,51129196601 ",.01)
 ;;51129196601
 ;;9002226.02101,"846,51129196601 ",.02)
 ;;51129196601
 ;;9002226.02101,"846,51129203301 ",.01)
 ;;51129203301
 ;;9002226.02101,"846,51129203301 ",.02)
 ;;51129203301
 ;;9002226.02101,"846,51129203401 ",.01)
 ;;51129203401
 ;;9002226.02101,"846,51129203401 ",.02)
 ;;51129203401
 ;;9002226.02101,"846,51129205501 ",.01)
 ;;51129205501
 ;;9002226.02101,"846,51129205501 ",.02)
 ;;51129205501
 ;;9002226.02101,"846,51129241701 ",.01)
 ;;51129241701
 ;;9002226.02101,"846,51129241701 ",.02)
 ;;51129241701
 ;;9002226.02101,"846,51129241801 ",.01)
 ;;51129241801
 ;;9002226.02101,"846,51129241801 ",.02)
 ;;51129241801
 ;;9002226.02101,"846,51129257200 ",.01)
 ;;51129257200
 ;;9002226.02101,"846,51129257200 ",.02)
 ;;51129257200
 ;;9002226.02101,"846,51129272801 ",.01)
 ;;51129272801
 ;;9002226.02101,"846,51129272801 ",.02)
 ;;51129272801
 ;;9002226.02101,"846,51129284401 ",.01)
 ;;51129284401
 ;;9002226.02101,"846,51129284401 ",.02)
 ;;51129284401
 ;;9002226.02101,"846,51129284402 ",.01)
 ;;51129284402
 ;;9002226.02101,"846,51129284402 ",.02)
 ;;51129284402
 ;;9002226.02101,"846,51129286701 ",.01)
 ;;51129286701
 ;;9002226.02101,"846,51129286701 ",.02)
 ;;51129286701
 ;;9002226.02101,"846,51129286702 ",.01)
 ;;51129286702
 ;;9002226.02101,"846,51129286702 ",.02)
 ;;51129286702
 ;;9002226.02101,"846,51129289601 ",.01)
 ;;51129289601
 ;;9002226.02101,"846,51129289601 ",.02)
 ;;51129289601
 ;;9002226.02101,"846,51129289602 ",.01)
 ;;51129289602
 ;;9002226.02101,"846,51129289602 ",.02)
 ;;51129289602
 ;;9002226.02101,"846,51129301401 ",.01)
 ;;51129301401
 ;;9002226.02101,"846,51129301401 ",.02)
 ;;51129301401
 ;;9002226.02101,"846,51129301402 ",.01)
 ;;51129301402
 ;;9002226.02101,"846,51129301402 ",.02)
 ;;51129301402
 ;;9002226.02101,"846,51129302401 ",.01)
 ;;51129302401
 ;;9002226.02101,"846,51129302401 ",.02)
 ;;51129302401
 ;;9002226.02101,"846,51129302402 ",.01)
 ;;51129302402
 ;;9002226.02101,"846,51129302402 ",.02)
 ;;51129302402
 ;;9002226.02101,"846,51129309801 ",.01)
 ;;51129309801
 ;;9002226.02101,"846,51129309801 ",.02)
 ;;51129309801
 ;;9002226.02101,"846,51129309802 ",.01)
 ;;51129309802
 ;;9002226.02101,"846,51129309802 ",.02)
 ;;51129309802
 ;;9002226.02101,"846,51129316901 ",.01)
 ;;51129316901
 ;;9002226.02101,"846,51129316901 ",.02)
 ;;51129316901
 ;;9002226.02101,"846,51129316902 ",.01)
 ;;51129316902
 ;;9002226.02101,"846,51129316902 ",.02)
 ;;51129316902
 ;;9002226.02101,"846,51129323501 ",.01)
 ;;51129323501
 ;;9002226.02101,"846,51129323501 ",.02)
 ;;51129323501
 ;;9002226.02101,"846,51129323502 ",.01)
 ;;51129323502
 ;;9002226.02101,"846,51129323502 ",.02)
 ;;51129323502
 ;;9002226.02101,"846,51129324701 ",.01)
 ;;51129324701
 ;;9002226.02101,"846,51129324701 ",.02)
 ;;51129324701
 ;;9002226.02101,"846,51129324702 ",.01)
 ;;51129324702
 ;;9002226.02101,"846,51129324702 ",.02)
 ;;51129324702
 ;;9002226.02101,"846,51129349501 ",.01)
 ;;51129349501
 ;;9002226.02101,"846,51129349501 ",.02)
 ;;51129349501
 ;;9002226.02101,"846,51129349502 ",.01)
 ;;51129349502
 ;;9002226.02101,"846,51129349502 ",.02)
 ;;51129349502
 ;;9002226.02101,"846,51129349701 ",.01)
 ;;51129349701
 ;;9002226.02101,"846,51129349701 ",.02)
 ;;51129349701
 ;;9002226.02101,"846,51129349702 ",.01)
 ;;51129349702
 ;;9002226.02101,"846,51129349702 ",.02)
 ;;51129349702
 ;;9002226.02101,"846,51129350901 ",.01)
 ;;51129350901
 ;;9002226.02101,"846,51129350901 ",.02)
 ;;51129350901
 ;;9002226.02101,"846,51129350902 ",.01)
 ;;51129350902
 ;;9002226.02101,"846,51129350902 ",.02)
 ;;51129350902
 ;;9002226.02101,"846,51129351001 ",.01)
 ;;51129351001
 ;;9002226.02101,"846,51129351001 ",.02)
 ;;51129351001
 ;;9002226.02101,"846,51129351002 ",.01)
 ;;51129351002
 ;;9002226.02101,"846,51129351002 ",.02)
 ;;51129351002
 ;;9002226.02101,"846,51129354601 ",.01)
 ;;51129354601
 ;;9002226.02101,"846,51129354601 ",.02)
 ;;51129354601
 ;;9002226.02101,"846,51129354602 ",.01)
 ;;51129354602
 ;;9002226.02101,"846,51129354602 ",.02)
 ;;51129354602
 ;;9002226.02101,"846,51129355601 ",.01)
 ;;51129355601
 ;;9002226.02101,"846,51129355601 ",.02)
 ;;51129355601
 ;;9002226.02101,"846,51129355602 ",.01)
 ;;51129355602
 ;;9002226.02101,"846,51129355602 ",.02)
 ;;51129355602
 ;;9002226.02101,"846,51129365201 ",.01)
 ;;51129365201
 ;;9002226.02101,"846,51129365201 ",.02)
 ;;51129365201
 ;;9002226.02101,"846,51129365202 ",.01)
 ;;51129365202
 ;;9002226.02101,"846,51129365202 ",.02)
 ;;51129365202
 ;;9002226.02101,"846,51129374101 ",.01)
 ;;51129374101
 ;;9002226.02101,"846,51129374101 ",.02)
 ;;51129374101
 ;;9002226.02101,"846,51129374102 ",.01)
 ;;51129374102
 ;;9002226.02101,"846,51129374102 ",.02)
 ;;51129374102
 ;;9002226.02101,"846,51129377401 ",.01)
 ;;51129377401
 ;;9002226.02101,"846,51129377401 ",.02)
 ;;51129377401
 ;;9002226.02101,"846,51129377402 ",.01)
 ;;51129377402
 ;;9002226.02101,"846,51129377402 ",.02)
 ;;51129377402
 ;;9002226.02101,"846,51129381701 ",.01)
 ;;51129381701
 ;;9002226.02101,"846,51129381701 ",.02)
 ;;51129381701
 ;;9002226.02101,"846,51129381702 ",.01)
 ;;51129381702
 ;;9002226.02101,"846,51129381702 ",.02)
 ;;51129381702
 ;;9002226.02101,"846,51129381801 ",.01)
 ;;51129381801
 ;;9002226.02101,"846,51129381801 ",.02)
 ;;51129381801
 ;;9002226.02101,"846,51129381802 ",.01)
 ;;51129381802
 ;;9002226.02101,"846,51129381802 ",.02)
 ;;51129381802
 ;;9002226.02101,"846,51129390801 ",.01)
 ;;51129390801
 ;;9002226.02101,"846,51129390801 ",.02)
 ;;51129390801
 ;;9002226.02101,"846,51129390802 ",.01)
 ;;51129390802
 ;;9002226.02101,"846,51129390802 ",.02)
 ;;51129390802
 ;;9002226.02101,"846,51129402201 ",.01)
 ;;51129402201
 ;;9002226.02101,"846,51129402201 ",.02)
 ;;51129402201
 ;;9002226.02101,"846,51129402202 ",.01)
 ;;51129402202
 ;;9002226.02101,"846,51129402202 ",.02)
 ;;51129402202
 ;;9002226.02101,"846,51129407701 ",.01)
 ;;51129407701
 ;;9002226.02101,"846,51129407701 ",.02)
 ;;51129407701
 ;;9002226.02101,"846,51129407702 ",.01)
 ;;51129407702
 ;;9002226.02101,"846,51129407702 ",.02)
 ;;51129407702
 ;;9002226.02101,"846,51129444101 ",.01)
 ;;51129444101
 ;;9002226.02101,"846,51129444101 ",.02)
 ;;51129444101
 ;;9002226.02101,"846,51129444102 ",.01)
 ;;51129444102
 ;;9002226.02101,"846,51129444102 ",.02)
 ;;51129444102
 ;;9002226.02101,"846,51129446701 ",.01)
 ;;51129446701
 ;;9002226.02101,"846,51129446701 ",.02)
 ;;51129446701
 ;;9002226.02101,"846,51129455501 ",.01)
 ;;51129455501
 ;;9002226.02101,"846,51129455501 ",.02)
 ;;51129455501
 ;;9002226.02101,"846,51129455502 ",.01)
 ;;51129455502
 ;;9002226.02101,"846,51129455502 ",.02)
 ;;51129455502
 ;;9002226.02101,"846,51129469201 ",.01)
 ;;51129469201
 ;;9002226.02101,"846,51129469201 ",.02)
 ;;51129469201
 ;;9002226.02101,"846,51129469202 ",.01)
 ;;51129469202
 ;;9002226.02101,"846,51129469202 ",.02)
 ;;51129469202
 ;;9002226.02101,"846,51129536301 ",.01)
 ;;51129536301
 ;;9002226.02101,"846,51129536301 ",.02)
 ;;51129536301
 ;;9002226.02101,"846,51138025130 ",.01)
 ;;51138025130
 ;;9002226.02101,"846,51138025130 ",.02)
 ;;51138025130
 ;;9002226.02101,"846,51138025230 ",.01)
 ;;51138025230
 ;;9002226.02101,"846,51138025230 ",.02)
 ;;51138025230
 ;;9002226.02101,"846,51138026530 ",.01)
 ;;51138026530
 ;;9002226.02101,"846,51138026530 ",.02)
 ;;51138026530
 ;;9002226.02101,"846,51138026630 ",.01)
 ;;51138026630
 ;;9002226.02101,"846,51138026630 ",.02)
 ;;51138026630
 ;;9002226.02101,"846,51138026730 ",.01)
 ;;51138026730
 ;;9002226.02101,"846,51138026730 ",.02)
 ;;51138026730
 ;;9002226.02101,"846,51138026830 ",.01)
 ;;51138026830
 ;;9002226.02101,"846,51138026830 ",.02)
 ;;51138026830
 ;;9002226.02101,"846,51138026930 ",.01)
 ;;51138026930
 ;;9002226.02101,"846,51138026930 ",.02)
 ;;51138026930
 ;;9002226.02101,"846,51138027030 ",.01)
 ;;51138027030
 ;;9002226.02101,"846,51138027030 ",.02)
 ;;51138027030
 ;;9002226.02101,"846,51138027130 ",.01)
 ;;51138027130
 ;;9002226.02101,"846,51138027130 ",.02)
 ;;51138027130
 ;;9002226.02101,"846,51138033730 ",.01)
 ;;51138033730
 ;;9002226.02101,"846,51138033730 ",.02)
 ;;51138033730
 ;;9002226.02101,"846,51138033830 ",.01)
 ;;51138033830
 ;;9002226.02101,"846,51138033830 ",.02)
 ;;51138033830
 ;;9002226.02101,"846,51138033930 ",.01)
 ;;51138033930
 ;;9002226.02101,"846,51138033930 ",.02)
 ;;51138033930
 ;;9002226.02101,"846,51138036730 ",.01)
 ;;51138036730
 ;;9002226.02101,"846,51138036730 ",.02)
 ;;51138036730
 ;;9002226.02101,"846,51138036830 ",.01)
 ;;51138036830
 ;;9002226.02101,"846,51138036830 ",.02)
 ;;51138036830
 ;;9002226.02101,"846,51138036930 ",.01)
 ;;51138036930
 ;;9002226.02101,"846,51138036930 ",.02)
 ;;51138036930
 ;;9002226.02101,"846,51138037030 ",.01)
 ;;51138037030
 ;;9002226.02101,"846,51138037030 ",.02)
 ;;51138037030
 ;;9002226.02101,"846,51138037130 ",.01)
 ;;51138037130