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

BGPM5ACV.m

Go to the documentation of this file.
BGPM5ACV ;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,51138037130 ",.02)
 ;;51138037130
 ;;9002226.02101,"846,51138037210 ",.01)
 ;;51138037210
 ;;9002226.02101,"846,51138037210 ",.02)
 ;;51138037210
 ;;9002226.02101,"846,51138037230 ",.01)
 ;;51138037230
 ;;9002226.02101,"846,51138037230 ",.02)
 ;;51138037230
 ;;9002226.02101,"846,51138047030 ",.01)
 ;;51138047030
 ;;9002226.02101,"846,51138047030 ",.02)
 ;;51138047030
 ;;9002226.02101,"846,51138047130 ",.01)
 ;;51138047130
 ;;9002226.02101,"846,51138047130 ",.02)
 ;;51138047130
 ;;9002226.02101,"846,51138047230 ",.01)
 ;;51138047230
 ;;9002226.02101,"846,51138047230 ",.02)
 ;;51138047230
 ;;9002226.02101,"846,51138047330 ",.01)
 ;;51138047330
 ;;9002226.02101,"846,51138047330 ",.02)
 ;;51138047330
 ;;9002226.02101,"846,51138047430 ",.01)
 ;;51138047430
 ;;9002226.02101,"846,51138047430 ",.02)
 ;;51138047430
 ;;9002226.02101,"846,51138047530 ",.01)
 ;;51138047530
 ;;9002226.02101,"846,51138047530 ",.02)
 ;;51138047530
 ;;9002226.02101,"846,51285059804 ",.01)
 ;;51285059804
 ;;9002226.02101,"846,51285059804 ",.02)
 ;;51285059804
 ;;9002226.02101,"846,51285059904 ",.01)
 ;;51285059904
 ;;9002226.02101,"846,51285059904 ",.02)
 ;;51285059904
 ;;9002226.02101,"846,51641040501 ",.01)
 ;;51641040501
 ;;9002226.02101,"846,51641040501 ",.02)
 ;;51641040501
 ;;9002226.02101,"846,51655006324 ",.01)
 ;;51655006324
 ;;9002226.02101,"846,51655006324 ",.02)
 ;;51655006324
 ;;9002226.02101,"846,51655006352 ",.01)
 ;;51655006352
 ;;9002226.02101,"846,51655006352 ",.02)
 ;;51655006352
 ;;9002226.02101,"846,51655019124 ",.01)
 ;;51655019124
 ;;9002226.02101,"846,51655019124 ",.02)
 ;;51655019124
 ;;9002226.02101,"846,51655019125 ",.01)
 ;;51655019125
 ;;9002226.02101,"846,51655019125 ",.02)
 ;;51655019125
 ;;9002226.02101,"846,51655019126 ",.01)
 ;;51655019126
 ;;9002226.02101,"846,51655019126 ",.02)
 ;;51655019126
 ;;9002226.02101,"846,51655019182 ",.01)
 ;;51655019182
 ;;9002226.02101,"846,51655019182 ",.02)
 ;;51655019182
 ;;9002226.02101,"846,51655019183 ",.01)
 ;;51655019183
 ;;9002226.02101,"846,51655019183 ",.02)
 ;;51655019183
 ;;9002226.02101,"846,51655090424 ",.01)
 ;;51655090424
 ;;9002226.02101,"846,51655090424 ",.02)
 ;;51655090424
 ;;9002226.02101,"846,51655090425 ",.01)
 ;;51655090425
 ;;9002226.02101,"846,51655090425 ",.02)
 ;;51655090425
 ;;9002226.02101,"846,51655096124 ",.01)
 ;;51655096124
 ;;9002226.02101,"846,51655096124 ",.02)
 ;;51655096124
 ;;9002226.02101,"846,51655096125 ",.01)
 ;;51655096125
 ;;9002226.02101,"846,51655096125 ",.02)
 ;;51655096125
 ;;9002226.02101,"846,51655096224 ",.01)
 ;;51655096224
 ;;9002226.02101,"846,51655096224 ",.02)
 ;;51655096224
 ;;9002226.02101,"846,52544046001 ",.01)
 ;;52544046001
 ;;9002226.02101,"846,52544046001 ",.02)
 ;;52544046001
 ;;9002226.02101,"846,52544046005 ",.01)
 ;;52544046005
 ;;9002226.02101,"846,52544046005 ",.02)
 ;;52544046005
 ;;9002226.02101,"846,52544046010 ",.01)
 ;;52544046010
 ;;9002226.02101,"846,52544046010 ",.02)
 ;;52544046010
 ;;9002226.02101,"846,52544055901 ",.01)
 ;;52544055901
 ;;9002226.02101,"846,52544055901 ",.02)
 ;;52544055901
 ;;9002226.02101,"846,52544055905 ",.01)
 ;;52544055905
 ;;9002226.02101,"846,52544055905 ",.02)
 ;;52544055905
 ;;9002226.02101,"846,52544056001 ",.01)
 ;;52544056001
 ;;9002226.02101,"846,52544056001 ",.02)
 ;;52544056001
 ;;9002226.02101,"846,52544056005 ",.01)
 ;;52544056005
 ;;9002226.02101,"846,52544056005 ",.02)
 ;;52544056005
 ;;9002226.02101,"846,52959044901 ",.01)
 ;;52959044901
 ;;9002226.02101,"846,52959044901 ",.02)
 ;;52959044901
 ;;9002226.02101,"846,52959044930 ",.01)
 ;;52959044930
 ;;9002226.02101,"846,52959044930 ",.02)
 ;;52959044930
 ;;9002226.02101,"846,52959044960 ",.01)
 ;;52959044960
 ;;9002226.02101,"846,52959044960 ",.02)
 ;;52959044960
 ;;9002226.02101,"846,52959082200 ",.01)
 ;;52959082200
 ;;9002226.02101,"846,52959082200 ",.02)
 ;;52959082200
 ;;9002226.02101,"846,52959082230 ",.01)
 ;;52959082230
 ;;9002226.02101,"846,52959082230 ",.02)
 ;;52959082230
 ;;9002226.02101,"846,52959082260 ",.01)
 ;;52959082260
 ;;9002226.02101,"846,52959082260 ",.02)
 ;;52959082260
 ;;9002226.02101,"846,52959082320 ",.01)
 ;;52959082320
 ;;9002226.02101,"846,52959082320 ",.02)
 ;;52959082320
 ;;9002226.02101,"846,52959082360 ",.01)
 ;;52959082360
 ;;9002226.02101,"846,52959082360 ",.02)
 ;;52959082360
 ;;9002226.02101,"846,52959088800 ",.01)
 ;;52959088800
 ;;9002226.02101,"846,52959088800 ",.02)
 ;;52959088800
 ;;9002226.02101,"846,52959088830 ",.01)
 ;;52959088830
 ;;9002226.02101,"846,52959088830 ",.02)
 ;;52959088830
 ;;9002226.02101,"846,52959093630 ",.01)
 ;;52959093630
 ;;9002226.02101,"846,52959093630 ",.02)
 ;;52959093630
 ;;9002226.02101,"846,52959093660 ",.01)
 ;;52959093660
 ;;9002226.02101,"846,52959093660 ",.02)
 ;;52959093660
 ;;9002226.02101,"846,53002034700 ",.01)
 ;;53002034700
 ;;9002226.02101,"846,53002034700 ",.02)
 ;;53002034700
 ;;9002226.02101,"846,53002034720 ",.01)
 ;;53002034720
 ;;9002226.02101,"846,53002034720 ",.02)
 ;;53002034720
 ;;9002226.02101,"846,53002034730 ",.01)
 ;;53002034730
 ;;9002226.02101,"846,53002034730 ",.02)
 ;;53002034730
 ;;9002226.02101,"846,53002034750 ",.01)
 ;;53002034750
 ;;9002226.02101,"846,53002034750 ",.02)
 ;;53002034750
 ;;9002226.02101,"846,53002034760 ",.01)
 ;;53002034760
 ;;9002226.02101,"846,53002034760 ",.02)
 ;;53002034760
 ;;9002226.02101,"846,53002041700 ",.01)
 ;;53002041700
 ;;9002226.02101,"846,53002041700 ",.02)
 ;;53002041700
 ;;9002226.02101,"846,53002041720 ",.01)
 ;;53002041720
 ;;9002226.02101,"846,53002041720 ",.02)
 ;;53002041720
 ;;9002226.02101,"846,53002041730 ",.01)
 ;;53002041730
 ;;9002226.02101,"846,53002041730 ",.02)
 ;;53002041730
 ;;9002226.02101,"846,53002041750 ",.01)
 ;;53002041750
 ;;9002226.02101,"846,53002041750 ",.02)
 ;;53002041750
 ;;9002226.02101,"846,53002041760 ",.01)
 ;;53002041760
 ;;9002226.02101,"846,53002041760 ",.02)
 ;;53002041760
 ;;9002226.02101,"846,53002044630 ",.01)
 ;;53002044630
 ;;9002226.02101,"846,53002044630 ",.02)
 ;;53002044630
 ;;9002226.02101,"846,53002044660 ",.01)
 ;;53002044660
 ;;9002226.02101,"846,53002044660 ",.02)
 ;;53002044660
 ;;9002226.02101,"846,53002044690 ",.01)
 ;;53002044690
 ;;9002226.02101,"846,53002044690 ",.02)
 ;;53002044690
 ;;9002226.02101,"846,53002051900 ",.01)
 ;;53002051900
 ;;9002226.02101,"846,53002051900 ",.02)
 ;;53002051900
 ;;9002226.02101,"846,53002051930 ",.01)
 ;;53002051930
 ;;9002226.02101,"846,53002051930 ",.02)
 ;;53002051930
 ;;9002226.02101,"846,53002051950 ",.01)
 ;;53002051950
 ;;9002226.02101,"846,53002051950 ",.02)
 ;;53002051950
 ;;9002226.02101,"846,53002051960 ",.01)
 ;;53002051960
 ;;9002226.02101,"846,53002051960 ",.02)
 ;;53002051960
 ;;9002226.02101,"846,53002051990 ",.01)
 ;;53002051990
 ;;9002226.02101,"846,53002051990 ",.02)
 ;;53002051990
 ;;9002226.02101,"846,53489015101 ",.01)
 ;;53489015101
 ;;9002226.02101,"846,53489015101 ",.02)
 ;;53489015101
 ;;9002226.02101,"846,53489015110 ",.01)
 ;;53489015110
 ;;9002226.02101,"846,53489015110 ",.02)
 ;;53489015110
 ;;9002226.02101,"846,53489015201 ",.01)
 ;;53489015201
 ;;9002226.02101,"846,53489015201 ",.02)
 ;;53489015201
 ;;9002226.02101,"846,53489015204 ",.01)
 ;;53489015204
 ;;9002226.02101,"846,53489015204 ",.02)
 ;;53489015204
 ;;9002226.02101,"846,53489015205 ",.01)
 ;;53489015205
 ;;9002226.02101,"846,53489015205 ",.02)
 ;;53489015205
 ;;9002226.02101,"846,53489015210 ",.01)
 ;;53489015210
 ;;9002226.02101,"846,53489015210 ",.02)
 ;;53489015210
 ;;9002226.02101,"846,53489015301 ",.01)
 ;;53489015301
 ;;9002226.02101,"846,53489015301 ",.02)
 ;;53489015301
 ;;9002226.02101,"846,53489015303 ",.01)
 ;;53489015303
 ;;9002226.02101,"846,53489015303 ",.02)
 ;;53489015303
 ;;9002226.02101,"846,53489015305 ",.01)
 ;;53489015305
 ;;9002226.02101,"846,53489015305 ",.02)
 ;;53489015305
 ;;9002226.02101,"846,53746028602 ",.01)
 ;;53746028602
 ;;9002226.02101,"846,53746028602 ",.02)
 ;;53746028602
 ;;9002226.02101,"846,53808025701 ",.01)
 ;;53808025701
 ;;9002226.02101,"846,53808025701 ",.02)
 ;;53808025701
 ;;9002226.02101,"846,53808025801 ",.01)
 ;;53808025801
 ;;9002226.02101,"846,53808025801 ",.02)
 ;;53808025801
 ;;9002226.02101,"846,53808025901 ",.01)
 ;;53808025901
 ;;9002226.02101,"846,53808025901 ",.02)
 ;;53808025901
 ;;9002226.02101,"846,53808026001 ",.01)
 ;;53808026001
 ;;9002226.02101,"846,53808026001 ",.02)
 ;;53808026001
 ;;9002226.02101,"846,53808036901 ",.01)
 ;;53808036901
 ;;9002226.02101,"846,53808036901 ",.02)
 ;;53808036901
 ;;9002226.02101,"846,53808040001 ",.01)
 ;;53808040001
 ;;9002226.02101,"846,53808040001 ",.02)
 ;;53808040001
 ;;9002226.02101,"846,53808040101 ",.01)
 ;;53808040101
 ;;9002226.02101,"846,53808040101 ",.02)
 ;;53808040101
 ;;9002226.02101,"846,53808040801 ",.01)
 ;;53808040801
 ;;9002226.02101,"846,53808040801 ",.02)
 ;;53808040801
 ;;9002226.02101,"846,53808040901 ",.01)
 ;;53808040901
 ;;9002226.02101,"846,53808040901 ",.02)
 ;;53808040901
 ;;9002226.02101,"846,53978069303 ",.01)
 ;;53978069303
 ;;9002226.02101,"846,53978069303 ",.02)
 ;;53978069303
 ;;9002226.02101,"846,53978069305 ",.01)
 ;;53978069305
 ;;9002226.02101,"846,53978069305 ",.02)
 ;;53978069305
 ;;9002226.02101,"846,53978069402 ",.01)
 ;;53978069402
 ;;9002226.02101,"846,53978069402 ",.02)
 ;;53978069402
 ;;9002226.02101,"846,53978069403 ",.01)
 ;;53978069403
 ;;9002226.02101,"846,53978069403 ",.02)
 ;;53978069403
 ;;9002226.02101,"846,53978069405 ",.01)
 ;;53978069405
 ;;9002226.02101,"846,53978069405 ",.02)
 ;;53978069405
 ;;9002226.02101,"846,53978069407 ",.01)
 ;;53978069407
 ;;9002226.02101,"846,53978069407 ",.02)
 ;;53978069407
 ;;9002226.02101,"846,53978069408 ",.01)
 ;;53978069408
 ;;9002226.02101,"846,53978069408 ",.02)
 ;;53978069408
 ;;9002226.02101,"846,53978201303 ",.01)
 ;;53978201303
 ;;9002226.02101,"846,53978201303 ",.02)
 ;;53978201303
 ;;9002226.02101,"846,53978201305 ",.01)
 ;;53978201305
 ;;9002226.02101,"846,53978201305 ",.02)
 ;;53978201305
 ;;9002226.02101,"846,53978201308 ",.01)
 ;;53978201308
 ;;9002226.02101,"846,53978201308 ",.02)
 ;;53978201308
 ;;9002226.02101,"846,53978201402 ",.01)
 ;;53978201402
 ;;9002226.02101,"846,53978201402 ",.02)
 ;;53978201402
 ;;9002226.02101,"846,53978201403 ",.01)
 ;;53978201403
 ;;9002226.02101,"846,53978201403 ",.02)
 ;;53978201403
 ;;9002226.02101,"846,53978201404 ",.01)
 ;;53978201404
 ;;9002226.02101,"846,53978201404 ",.02)
 ;;53978201404
 ;;9002226.02101,"846,53978201405 ",.01)
 ;;53978201405
 ;;9002226.02101,"846,53978201405 ",.02)
 ;;53978201405
 ;;9002226.02101,"846,53978201408 ",.01)
 ;;53978201408
 ;;9002226.02101,"846,53978201408 ",.02)
 ;;53978201408
 ;;9002226.02101,"846,54458096610 ",.01)
 ;;54458096610
 ;;9002226.02101,"846,54458096610 ",.02)
 ;;54458096610
 ;;9002226.02101,"846,54458096710 ",.01)
 ;;54458096710
 ;;9002226.02101,"846,54458096710 ",.02)
 ;;54458096710
 ;;9002226.02101,"846,54458096810 ",.01)
 ;;54458096810
 ;;9002226.02101,"846,54458096810 ",.02)
 ;;54458096810
 ;;9002226.02101,"846,54569020300 ",.01)
 ;;54569020300
 ;;9002226.02101,"846,54569020300 ",.02)
 ;;54569020300
 ;;9002226.02101,"846,54569020301 ",.01)
 ;;54569020301
 ;;9002226.02101,"846,54569020301 ",.02)
 ;;54569020301
 ;;9002226.02101,"846,54569020340 ",.01)
 ;;54569020340
 ;;9002226.02101,"846,54569020340 ",.02)
 ;;54569020340
 ;;9002226.02101,"846,54569201701 ",.01)
 ;;54569201701
 ;;9002226.02101,"846,54569201701 ",.02)
 ;;54569201701
 ;;9002226.02101,"846,54569383000 ",.01)
 ;;54569383000