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

BGPM5ACW.m

Go to the documentation of this file.
BGPM5ACW ;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,54569383000 ",.02)
 ;;54569383000
 ;;9002226.02101,"846,54569383001 ",.01)
 ;;54569383001
 ;;9002226.02101,"846,54569383001 ",.02)
 ;;54569383001
 ;;9002226.02101,"846,54569383002 ",.01)
 ;;54569383002
 ;;9002226.02101,"846,54569383002 ",.02)
 ;;54569383002
 ;;9002226.02101,"846,54569383100 ",.01)
 ;;54569383100
 ;;9002226.02101,"846,54569383100 ",.02)
 ;;54569383100
 ;;9002226.02101,"846,54569383101 ",.01)
 ;;54569383101
 ;;9002226.02101,"846,54569383101 ",.02)
 ;;54569383101
 ;;9002226.02101,"846,54569383102 ",.01)
 ;;54569383102
 ;;9002226.02101,"846,54569383102 ",.02)
 ;;54569383102
 ;;9002226.02101,"846,54569383104 ",.01)
 ;;54569383104
 ;;9002226.02101,"846,54569383104 ",.02)
 ;;54569383104
 ;;9002226.02101,"846,54569383105 ",.01)
 ;;54569383105
 ;;9002226.02101,"846,54569383105 ",.02)
 ;;54569383105
 ;;9002226.02101,"846,54569383106 ",.01)
 ;;54569383106
 ;;9002226.02101,"846,54569383106 ",.02)
 ;;54569383106
 ;;9002226.02101,"846,54569383108 ",.01)
 ;;54569383108
 ;;9002226.02101,"846,54569383108 ",.02)
 ;;54569383108
 ;;9002226.02101,"846,54569383200 ",.01)
 ;;54569383200
 ;;9002226.02101,"846,54569383200 ",.02)
 ;;54569383200
 ;;9002226.02101,"846,54569384100 ",.01)
 ;;54569384100
 ;;9002226.02101,"846,54569384100 ",.02)
 ;;54569384100
 ;;9002226.02101,"846,54569384101 ",.01)
 ;;54569384101
 ;;9002226.02101,"846,54569384101 ",.02)
 ;;54569384101
 ;;9002226.02101,"846,54569384102 ",.01)
 ;;54569384102
 ;;9002226.02101,"846,54569384102 ",.02)
 ;;54569384102
 ;;9002226.02101,"846,54569384200 ",.01)
 ;;54569384200
 ;;9002226.02101,"846,54569384200 ",.02)
 ;;54569384200
 ;;9002226.02101,"846,54569384201 ",.01)
 ;;54569384201
 ;;9002226.02101,"846,54569384201 ",.02)
 ;;54569384201
 ;;9002226.02101,"846,54569384202 ",.01)
 ;;54569384202
 ;;9002226.02101,"846,54569384202 ",.02)
 ;;54569384202
 ;;9002226.02101,"846,54569384204 ",.01)
 ;;54569384204
 ;;9002226.02101,"846,54569384204 ",.02)
 ;;54569384204
 ;;9002226.02101,"846,54569554700 ",.01)
 ;;54569554700
 ;;9002226.02101,"846,54569554700 ",.02)
 ;;54569554700
 ;;9002226.02101,"846,54569554701 ",.01)
 ;;54569554701
 ;;9002226.02101,"846,54569554701 ",.02)
 ;;54569554701
 ;;9002226.02101,"846,54569554800 ",.01)
 ;;54569554800
 ;;9002226.02101,"846,54569554800 ",.02)
 ;;54569554800
 ;;9002226.02101,"846,54569554801 ",.01)
 ;;54569554801
 ;;9002226.02101,"846,54569554801 ",.02)
 ;;54569554801
 ;;9002226.02101,"846,54569561800 ",.01)
 ;;54569561800
 ;;9002226.02101,"846,54569561800 ",.02)
 ;;54569561800
 ;;9002226.02101,"846,54569561801 ",.01)
 ;;54569561801
 ;;9002226.02101,"846,54569561801 ",.02)
 ;;54569561801
 ;;9002226.02101,"846,54569561900 ",.01)
 ;;54569561900
 ;;9002226.02101,"846,54569561900 ",.02)
 ;;54569561900
 ;;9002226.02101,"846,54569561901 ",.01)
 ;;54569561901
 ;;9002226.02101,"846,54569561901 ",.02)
 ;;54569561901
 ;;9002226.02101,"846,54569585500 ",.01)
 ;;54569585500
 ;;9002226.02101,"846,54569585500 ",.02)
 ;;54569585500
 ;;9002226.02101,"846,54569599100 ",.01)
 ;;54569599100
 ;;9002226.02101,"846,54569599100 ",.02)
 ;;54569599100
 ;;9002226.02101,"846,54569599200 ",.01)
 ;;54569599200
 ;;9002226.02101,"846,54569599200 ",.02)
 ;;54569599200
 ;;9002226.02101,"846,54569599300 ",.01)
 ;;54569599300
 ;;9002226.02101,"846,54569599300 ",.02)
 ;;54569599300
 ;;9002226.02101,"846,54569599301 ",.01)
 ;;54569599301
 ;;9002226.02101,"846,54569599301 ",.02)
 ;;54569599301
 ;;9002226.02101,"846,54569607200 ",.01)
 ;;54569607200
 ;;9002226.02101,"846,54569607200 ",.02)
 ;;54569607200
 ;;9002226.02101,"846,54569860100 ",.01)
 ;;54569860100
 ;;9002226.02101,"846,54569860100 ",.02)
 ;;54569860100
 ;;9002226.02101,"846,54569860101 ",.01)
 ;;54569860101
 ;;9002226.02101,"846,54569860101 ",.02)
 ;;54569860101
 ;;9002226.02101,"846,54569860102 ",.01)
 ;;54569860102
 ;;9002226.02101,"846,54569860102 ",.02)
 ;;54569860102
 ;;9002226.02101,"846,54569860103 ",.01)
 ;;54569860103
 ;;9002226.02101,"846,54569860103 ",.02)
 ;;54569860103
 ;;9002226.02101,"846,54868003600 ",.01)
 ;;54868003600
 ;;9002226.02101,"846,54868003600 ",.02)
 ;;54868003600
 ;;9002226.02101,"846,54868003602 ",.01)
 ;;54868003602
 ;;9002226.02101,"846,54868003602 ",.02)
 ;;54868003602
 ;;9002226.02101,"846,54868003603 ",.01)
 ;;54868003603
 ;;9002226.02101,"846,54868003603 ",.02)
 ;;54868003603
 ;;9002226.02101,"846,54868003604 ",.01)
 ;;54868003604
 ;;9002226.02101,"846,54868003604 ",.02)
 ;;54868003604
 ;;9002226.02101,"846,54868079500 ",.01)
 ;;54868079500
 ;;9002226.02101,"846,54868079500 ",.02)
 ;;54868079500
 ;;9002226.02101,"846,54868087700 ",.01)
 ;;54868087700
 ;;9002226.02101,"846,54868087700 ",.02)
 ;;54868087700
 ;;9002226.02101,"846,54868087701 ",.01)
 ;;54868087701
 ;;9002226.02101,"846,54868087701 ",.02)
 ;;54868087701
 ;;9002226.02101,"846,54868102000 ",.01)
 ;;54868102000
 ;;9002226.02101,"846,54868102000 ",.02)
 ;;54868102000
 ;;9002226.02101,"846,54868136101 ",.01)
 ;;54868136101
 ;;9002226.02101,"846,54868136101 ",.02)
 ;;54868136101
 ;;9002226.02101,"846,54868326500 ",.01)
 ;;54868326500
 ;;9002226.02101,"846,54868326500 ",.02)
 ;;54868326500
 ;;9002226.02101,"846,54868326501 ",.01)
 ;;54868326501
 ;;9002226.02101,"846,54868326501 ",.02)
 ;;54868326501
 ;;9002226.02101,"846,54868326503 ",.01)
 ;;54868326503
 ;;9002226.02101,"846,54868326503 ",.02)
 ;;54868326503
 ;;9002226.02101,"846,54868326504 ",.01)
 ;;54868326504
 ;;9002226.02101,"846,54868326504 ",.02)
 ;;54868326504
 ;;9002226.02101,"846,54868326505 ",.01)
 ;;54868326505
 ;;9002226.02101,"846,54868326505 ",.02)
 ;;54868326505
 ;;9002226.02101,"846,54868326601 ",.01)
 ;;54868326601
 ;;9002226.02101,"846,54868326601 ",.02)
 ;;54868326601
 ;;9002226.02101,"846,54868326602 ",.01)
 ;;54868326602
 ;;9002226.02101,"846,54868326602 ",.02)
 ;;54868326602
 ;;9002226.02101,"846,54868326603 ",.01)
 ;;54868326603
 ;;9002226.02101,"846,54868326603 ",.02)
 ;;54868326603
 ;;9002226.02101,"846,54868326604 ",.01)
 ;;54868326604
 ;;9002226.02101,"846,54868326604 ",.02)
 ;;54868326604
 ;;9002226.02101,"846,54868331801 ",.01)
 ;;54868331801
 ;;9002226.02101,"846,54868331801 ",.02)
 ;;54868331801
 ;;9002226.02101,"846,54868331802 ",.01)
 ;;54868331802
 ;;9002226.02101,"846,54868331802 ",.02)
 ;;54868331802
 ;;9002226.02101,"846,54868331803 ",.01)
 ;;54868331803
 ;;9002226.02101,"846,54868331803 ",.02)
 ;;54868331803
 ;;9002226.02101,"846,54868331804 ",.01)
 ;;54868331804
 ;;9002226.02101,"846,54868331804 ",.02)
 ;;54868331804
 ;;9002226.02101,"846,54868331805 ",.01)
 ;;54868331805
 ;;9002226.02101,"846,54868331805 ",.02)
 ;;54868331805
 ;;9002226.02101,"846,54868331901 ",.01)
 ;;54868331901
 ;;9002226.02101,"846,54868331901 ",.02)
 ;;54868331901
 ;;9002226.02101,"846,54868331902 ",.01)
 ;;54868331902
 ;;9002226.02101,"846,54868331902 ",.02)
 ;;54868331902
 ;;9002226.02101,"846,54868331903 ",.01)
 ;;54868331903
 ;;9002226.02101,"846,54868331903 ",.02)
 ;;54868331903
 ;;9002226.02101,"846,54868331904 ",.01)
 ;;54868331904
 ;;9002226.02101,"846,54868331904 ",.02)
 ;;54868331904
 ;;9002226.02101,"846,54868331905 ",.01)
 ;;54868331905
 ;;9002226.02101,"846,54868331905 ",.02)
 ;;54868331905
 ;;9002226.02101,"846,54868331906 ",.01)
 ;;54868331906
 ;;9002226.02101,"846,54868331906 ",.02)
 ;;54868331906
 ;;9002226.02101,"846,54868331907 ",.01)
 ;;54868331907
 ;;9002226.02101,"846,54868331907 ",.02)
 ;;54868331907
 ;;9002226.02101,"846,54868332700 ",.01)
 ;;54868332700
 ;;9002226.02101,"846,54868332700 ",.02)
 ;;54868332700
 ;;9002226.02101,"846,54868332701 ",.01)
 ;;54868332701
 ;;9002226.02101,"846,54868332701 ",.02)
 ;;54868332701
 ;;9002226.02101,"846,54868337700 ",.01)
 ;;54868337700
 ;;9002226.02101,"846,54868337700 ",.02)
 ;;54868337700
 ;;9002226.02101,"846,54868337701 ",.01)
 ;;54868337701
 ;;9002226.02101,"846,54868337701 ",.02)
 ;;54868337701
 ;;9002226.02101,"846,54868337702 ",.01)
 ;;54868337702
 ;;9002226.02101,"846,54868337702 ",.02)
 ;;54868337702
 ;;9002226.02101,"846,54868342600 ",.01)
 ;;54868342600
 ;;9002226.02101,"846,54868342600 ",.02)
 ;;54868342600
 ;;9002226.02101,"846,54868342601 ",.01)
 ;;54868342601
 ;;9002226.02101,"846,54868342601 ",.02)
 ;;54868342601
 ;;9002226.02101,"846,54868409100 ",.01)
 ;;54868409100
 ;;9002226.02101,"846,54868409100 ",.02)
 ;;54868409100
 ;;9002226.02101,"846,54868409101 ",.01)
 ;;54868409101
 ;;9002226.02101,"846,54868409101 ",.02)
 ;;54868409101
 ;;9002226.02101,"846,54868409102 ",.01)
 ;;54868409102
 ;;9002226.02101,"846,54868409102 ",.02)
 ;;54868409102
 ;;9002226.02101,"846,54868409103 ",.01)
 ;;54868409103
 ;;9002226.02101,"846,54868409103 ",.02)
 ;;54868409103
 ;;9002226.02101,"846,54868484200 ",.01)
 ;;54868484200
 ;;9002226.02101,"846,54868484200 ",.02)
 ;;54868484200
 ;;9002226.02101,"846,54868484201 ",.01)
 ;;54868484201
 ;;9002226.02101,"846,54868484201 ",.02)
 ;;54868484201
 ;;9002226.02101,"846,54868484202 ",.01)
 ;;54868484202
 ;;9002226.02101,"846,54868484202 ",.02)
 ;;54868484202
 ;;9002226.02101,"846,54868498800 ",.01)
 ;;54868498800
 ;;9002226.02101,"846,54868498800 ",.02)
 ;;54868498800
 ;;9002226.02101,"846,54868498801 ",.01)
 ;;54868498801
 ;;9002226.02101,"846,54868498801 ",.02)
 ;;54868498801
 ;;9002226.02101,"846,54868498802 ",.01)
 ;;54868498802
 ;;9002226.02101,"846,54868498802 ",.02)
 ;;54868498802
 ;;9002226.02101,"846,54868498803 ",.01)
 ;;54868498803
 ;;9002226.02101,"846,54868498803 ",.02)
 ;;54868498803
 ;;9002226.02101,"846,54868498804 ",.01)
 ;;54868498804
 ;;9002226.02101,"846,54868498804 ",.02)
 ;;54868498804
 ;;9002226.02101,"846,54868514800 ",.01)
 ;;54868514800
 ;;9002226.02101,"846,54868514800 ",.02)
 ;;54868514800
 ;;9002226.02101,"846,54868514801 ",.01)
 ;;54868514801
 ;;9002226.02101,"846,54868514801 ",.02)
 ;;54868514801
 ;;9002226.02101,"846,54868514802 ",.01)
 ;;54868514802
 ;;9002226.02101,"846,54868514802 ",.02)
 ;;54868514802
 ;;9002226.02101,"846,54868514803 ",.01)
 ;;54868514803
 ;;9002226.02101,"846,54868514803 ",.02)
 ;;54868514803
 ;;9002226.02101,"846,54868514804 ",.01)
 ;;54868514804
 ;;9002226.02101,"846,54868514804 ",.02)
 ;;54868514804
 ;;9002226.02101,"846,54868518500 ",.01)
 ;;54868518500
 ;;9002226.02101,"846,54868518500 ",.02)
 ;;54868518500
 ;;9002226.02101,"846,54868518501 ",.01)
 ;;54868518501
 ;;9002226.02101,"846,54868518501 ",.02)
 ;;54868518501
 ;;9002226.02101,"846,54868518502 ",.01)
 ;;54868518502
 ;;9002226.02101,"846,54868518502 ",.02)
 ;;54868518502
 ;;9002226.02101,"846,54868518503 ",.01)
 ;;54868518503
 ;;9002226.02101,"846,54868518503 ",.02)
 ;;54868518503
 ;;9002226.02101,"846,54868518800 ",.01)
 ;;54868518800
 ;;9002226.02101,"846,54868518800 ",.02)
 ;;54868518800
 ;;9002226.02101,"846,54868518801 ",.01)
 ;;54868518801
 ;;9002226.02101,"846,54868518801 ",.02)
 ;;54868518801
 ;;9002226.02101,"846,54868518802 ",.01)
 ;;54868518802
 ;;9002226.02101,"846,54868518802 ",.02)
 ;;54868518802
 ;;9002226.02101,"846,54868521000 ",.01)
 ;;54868521000
 ;;9002226.02101,"846,54868521000 ",.02)
 ;;54868521000
 ;;9002226.02101,"846,54868521001 ",.01)
 ;;54868521001
 ;;9002226.02101,"846,54868521001 ",.02)
 ;;54868521001
 ;;9002226.02101,"846,54868521002 ",.01)
 ;;54868521002
 ;;9002226.02101,"846,54868521002 ",.02)
 ;;54868521002
 ;;9002226.02101,"846,54868521003 ",.01)
 ;;54868521003
 ;;9002226.02101,"846,54868521003 ",.02)
 ;;54868521003
 ;;9002226.02101,"846,54868524300 ",.01)
 ;;54868524300
 ;;9002226.02101,"846,54868524300 ",.02)
 ;;54868524300
 ;;9002226.02101,"846,54868524301 ",.01)
 ;;54868524301