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

BGPM5AAG.m

Go to the documentation of this file.
BGPM5AAG ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON JUL 01, 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,"862,658.91 ",.01)
 ;;658.91
 ;;9002226.02101,"862,658.91 ",.02)
 ;;658.91
 ;;9002226.02101,"862,659.01 ",.01)
 ;;659.01
 ;;9002226.02101,"862,659.01 ",.02)
 ;;659.01
 ;;9002226.02101,"862,659.11 ",.01)
 ;;659.11
 ;;9002226.02101,"862,659.11 ",.02)
 ;;659.11
 ;;9002226.02101,"862,659.21 ",.01)
 ;;659.21
 ;;9002226.02101,"862,659.21 ",.02)
 ;;659.21
 ;;9002226.02101,"862,659.31 ",.01)
 ;;659.31
 ;;9002226.02101,"862,659.31 ",.02)
 ;;659.31
 ;;9002226.02101,"862,659.41 ",.01)
 ;;659.41
 ;;9002226.02101,"862,659.41 ",.02)
 ;;659.41
 ;;9002226.02101,"862,659.51 ",.01)
 ;;659.51
 ;;9002226.02101,"862,659.51 ",.02)
 ;;659.51
 ;;9002226.02101,"862,659.61 ",.01)
 ;;659.61
 ;;9002226.02101,"862,659.61 ",.02)
 ;;659.61
 ;;9002226.02101,"862,659.71 ",.01)
 ;;659.71
 ;;9002226.02101,"862,659.71 ",.02)
 ;;659.71
 ;;9002226.02101,"862,659.81 ",.01)
 ;;659.81
 ;;9002226.02101,"862,659.81 ",.02)
 ;;659.81
 ;;9002226.02101,"862,659.91 ",.01)
 ;;659.91
 ;;9002226.02101,"862,659.91 ",.02)
 ;;659.91
 ;;9002226.02101,"862,660.01 ",.01)
 ;;660.01
 ;;9002226.02101,"862,660.01 ",.02)
 ;;660.01
 ;;9002226.02101,"862,660.11 ",.01)
 ;;660.11
 ;;9002226.02101,"862,660.11 ",.02)
 ;;660.11
 ;;9002226.02101,"862,660.21 ",.01)
 ;;660.21
 ;;9002226.02101,"862,660.21 ",.02)
 ;;660.21
 ;;9002226.02101,"862,660.31 ",.01)
 ;;660.31
 ;;9002226.02101,"862,660.31 ",.02)
 ;;660.31
 ;;9002226.02101,"862,660.41 ",.01)
 ;;660.41
 ;;9002226.02101,"862,660.41 ",.02)
 ;;660.41
 ;;9002226.02101,"862,660.51 ",.01)
 ;;660.51
 ;;9002226.02101,"862,660.51 ",.02)
 ;;660.51
 ;;9002226.02101,"862,660.61 ",.01)
 ;;660.61
 ;;9002226.02101,"862,660.61 ",.02)
 ;;660.61
 ;;9002226.02101,"862,660.71 ",.01)
 ;;660.71
 ;;9002226.02101,"862,660.71 ",.02)
 ;;660.71
 ;;9002226.02101,"862,660.81 ",.01)
 ;;660.81
 ;;9002226.02101,"862,660.81 ",.02)
 ;;660.81
 ;;9002226.02101,"862,660.91 ",.01)
 ;;660.91
 ;;9002226.02101,"862,660.91 ",.02)
 ;;660.91
 ;;9002226.02101,"862,661.01 ",.01)
 ;;661.01
 ;;9002226.02101,"862,661.01 ",.02)
 ;;661.01
 ;;9002226.02101,"862,661.11 ",.01)
 ;;661.11
 ;;9002226.02101,"862,661.11 ",.02)
 ;;661.11
 ;;9002226.02101,"862,661.21 ",.01)
 ;;661.21
 ;;9002226.02101,"862,661.21 ",.02)
 ;;661.21
 ;;9002226.02101,"862,661.31 ",.01)
 ;;661.31
 ;;9002226.02101,"862,661.31 ",.02)
 ;;661.31
 ;;9002226.02101,"862,661.41 ",.01)
 ;;661.41
 ;;9002226.02101,"862,661.41 ",.02)
 ;;661.41
 ;;9002226.02101,"862,661.91 ",.01)
 ;;661.91
 ;;9002226.02101,"862,661.91 ",.02)
 ;;661.91
 ;;9002226.02101,"862,662.01 ",.01)
 ;;662.01
 ;;9002226.02101,"862,662.01 ",.02)
 ;;662.01
 ;;9002226.02101,"862,662.11 ",.01)
 ;;662.11
 ;;9002226.02101,"862,662.11 ",.02)
 ;;662.11
 ;;9002226.02101,"862,662.21 ",.01)
 ;;662.21
 ;;9002226.02101,"862,662.21 ",.02)
 ;;662.21
 ;;9002226.02101,"862,662.31 ",.01)
 ;;662.31
 ;;9002226.02101,"862,662.31 ",.02)
 ;;662.31
 ;;9002226.02101,"862,663.01 ",.01)
 ;;663.01
 ;;9002226.02101,"862,663.01 ",.02)
 ;;663.01
 ;;9002226.02101,"862,663.11 ",.01)
 ;;663.11
 ;;9002226.02101,"862,663.11 ",.02)
 ;;663.11
 ;;9002226.02101,"862,663.21 ",.01)
 ;;663.21
 ;;9002226.02101,"862,663.21 ",.02)
 ;;663.21
 ;;9002226.02101,"862,663.31 ",.01)
 ;;663.31
 ;;9002226.02101,"862,663.31 ",.02)
 ;;663.31
 ;;9002226.02101,"862,663.41 ",.01)
 ;;663.41
 ;;9002226.02101,"862,663.41 ",.02)
 ;;663.41
 ;;9002226.02101,"862,663.51 ",.01)
 ;;663.51
 ;;9002226.02101,"862,663.51 ",.02)
 ;;663.51
 ;;9002226.02101,"862,663.61 ",.01)
 ;;663.61
 ;;9002226.02101,"862,663.61 ",.02)
 ;;663.61
 ;;9002226.02101,"862,663.81 ",.01)
 ;;663.81
 ;;9002226.02101,"862,663.81 ",.02)
 ;;663.81
 ;;9002226.02101,"862,663.91 ",.01)
 ;;663.91
 ;;9002226.02101,"862,663.91 ",.02)
 ;;663.91
 ;;9002226.02101,"862,664.01 ",.01)
 ;;664.01
 ;;9002226.02101,"862,664.01 ",.02)
 ;;664.01
 ;;9002226.02101,"862,664.11 ",.01)
 ;;664.11
 ;;9002226.02101,"862,664.11 ",.02)
 ;;664.11
 ;;9002226.02101,"862,664.21 ",.01)
 ;;664.21
 ;;9002226.02101,"862,664.21 ",.02)
 ;;664.21
 ;;9002226.02101,"862,664.31 ",.01)
 ;;664.31
 ;;9002226.02101,"862,664.31 ",.02)
 ;;664.31
 ;;9002226.02101,"862,664.41 ",.01)
 ;;664.41
 ;;9002226.02101,"862,664.41 ",.02)
 ;;664.41
 ;;9002226.02101,"862,664.51 ",.01)
 ;;664.51
 ;;9002226.02101,"862,664.51 ",.02)
 ;;664.51
 ;;9002226.02101,"862,664.61 ",.01)
 ;;664.61
 ;;9002226.02101,"862,664.61 ",.02)
 ;;664.61
 ;;9002226.02101,"862,664.81 ",.01)
 ;;664.81
 ;;9002226.02101,"862,664.81 ",.02)
 ;;664.81
 ;;9002226.02101,"862,664.91 ",.01)
 ;;664.91
 ;;9002226.02101,"862,664.91 ",.02)
 ;;664.91
 ;;9002226.02101,"862,665.01 ",.01)
 ;;665.01
 ;;9002226.02101,"862,665.01 ",.02)
 ;;665.01
 ;;9002226.02101,"862,665.11 ",.01)
 ;;665.11
 ;;9002226.02101,"862,665.11 ",.02)
 ;;665.11
 ;;9002226.02101,"862,665.31 ",.01)
 ;;665.31
 ;;9002226.02101,"862,665.31 ",.02)
 ;;665.31
 ;;9002226.02101,"862,665.41 ",.01)
 ;;665.41
 ;;9002226.02101,"862,665.41 ",.02)
 ;;665.41
 ;;9002226.02101,"862,665.51 ",.01)
 ;;665.51
 ;;9002226.02101,"862,665.51 ",.02)
 ;;665.51
 ;;9002226.02101,"862,665.61 ",.01)
 ;;665.61
 ;;9002226.02101,"862,665.61 ",.02)
 ;;665.61
 ;;9002226.02101,"862,665.71 ",.01)
 ;;665.71
 ;;9002226.02101,"862,665.71 ",.02)
 ;;665.71
 ;;9002226.02101,"862,665.72 ",.01)
 ;;665.72
 ;;9002226.02101,"862,665.72 ",.02)
 ;;665.72
 ;;9002226.02101,"862,665.81 ",.01)
 ;;665.81
 ;;9002226.02101,"862,665.81 ",.02)
 ;;665.81
 ;;9002226.02101,"862,665.91 ",.01)
 ;;665.91
 ;;9002226.02101,"862,665.91 ",.02)
 ;;665.91
 ;;9002226.02101,"862,665.92 ",.01)
 ;;665.92
 ;;9002226.02101,"862,665.92 ",.02)
 ;;665.92
 ;;9002226.02101,"862,666.02 ",.01)
 ;;666.02
 ;;9002226.02101,"862,666.02 ",.02)
 ;;666.02
 ;;9002226.02101,"862,666.12 ",.01)
 ;;666.12
 ;;9002226.02101,"862,666.12 ",.02)
 ;;666.12
 ;;9002226.02101,"862,666.22 ",.01)
 ;;666.22
 ;;9002226.02101,"862,666.22 ",.02)
 ;;666.22
 ;;9002226.02101,"862,666.32 ",.01)
 ;;666.32
 ;;9002226.02101,"862,666.32 ",.02)
 ;;666.32
 ;;9002226.02101,"862,667.02 ",.01)
 ;;667.02
 ;;9002226.02101,"862,667.02 ",.02)
 ;;667.02
 ;;9002226.02101,"862,667.12 ",.01)
 ;;667.12
 ;;9002226.02101,"862,667.12 ",.02)
 ;;667.12
 ;;9002226.02101,"862,668.01 ",.01)
 ;;668.01
 ;;9002226.02101,"862,668.01 ",.02)
 ;;668.01
 ;;9002226.02101,"862,668.02 ",.01)
 ;;668.02
 ;;9002226.02101,"862,668.02 ",.02)
 ;;668.02
 ;;9002226.02101,"862,668.11 ",.01)
 ;;668.11
 ;;9002226.02101,"862,668.11 ",.02)
 ;;668.11
 ;;9002226.02101,"862,668.12 ",.01)
 ;;668.12
 ;;9002226.02101,"862,668.12 ",.02)
 ;;668.12
 ;;9002226.02101,"862,668.21 ",.01)
 ;;668.21
 ;;9002226.02101,"862,668.21 ",.02)
 ;;668.21
 ;;9002226.02101,"862,668.22 ",.01)
 ;;668.22
 ;;9002226.02101,"862,668.22 ",.02)
 ;;668.22
 ;;9002226.02101,"862,668.81 ",.01)
 ;;668.81
 ;;9002226.02101,"862,668.81 ",.02)
 ;;668.81
 ;;9002226.02101,"862,668.82 ",.01)
 ;;668.82
 ;;9002226.02101,"862,668.82 ",.02)
 ;;668.82
 ;;9002226.02101,"862,668.91 ",.01)
 ;;668.91
 ;;9002226.02101,"862,668.91 ",.02)
 ;;668.91
 ;;9002226.02101,"862,668.92 ",.01)
 ;;668.92
 ;;9002226.02101,"862,668.92 ",.02)
 ;;668.92
 ;;9002226.02101,"862,669.01 ",.01)
 ;;669.01
 ;;9002226.02101,"862,669.01 ",.02)
 ;;669.01
 ;;9002226.02101,"862,669.02 ",.01)
 ;;669.02
 ;;9002226.02101,"862,669.02 ",.02)
 ;;669.02
 ;;9002226.02101,"862,669.11 ",.01)
 ;;669.11
 ;;9002226.02101,"862,669.11 ",.02)
 ;;669.11
 ;;9002226.02101,"862,669.12 ",.01)
 ;;669.12
 ;;9002226.02101,"862,669.12 ",.02)
 ;;669.12
 ;;9002226.02101,"862,669.21 ",.01)
 ;;669.21
 ;;9002226.02101,"862,669.21 ",.02)
 ;;669.21
 ;;9002226.02101,"862,669.22 ",.01)
 ;;669.22
 ;;9002226.02101,"862,669.22 ",.02)
 ;;669.22
 ;;9002226.02101,"862,669.32 ",.01)
 ;;669.32
 ;;9002226.02101,"862,669.32 ",.02)
 ;;669.32
 ;;9002226.02101,"862,669.41 ",.01)
 ;;669.41
 ;;9002226.02101,"862,669.41 ",.02)
 ;;669.41
 ;;9002226.02101,"862,669.42 ",.01)
 ;;669.42
 ;;9002226.02101,"862,669.42 ",.02)
 ;;669.42
 ;;9002226.02101,"862,669.51 ",.01)
 ;;669.51
 ;;9002226.02101,"862,669.51 ",.02)
 ;;669.51
 ;;9002226.02101,"862,669.61 ",.01)
 ;;669.61
 ;;9002226.02101,"862,669.61 ",.02)
 ;;669.61
 ;;9002226.02101,"862,669.71 ",.01)
 ;;669.71
 ;;9002226.02101,"862,669.71 ",.02)
 ;;669.71
 ;;9002226.02101,"862,669.81 ",.01)
 ;;669.81
 ;;9002226.02101,"862,669.81 ",.02)
 ;;669.81
 ;;9002226.02101,"862,669.82 ",.01)
 ;;669.82
 ;;9002226.02101,"862,669.82 ",.02)
 ;;669.82
 ;;9002226.02101,"862,669.91 ",.01)
 ;;669.91
 ;;9002226.02101,"862,669.91 ",.02)
 ;;669.91
 ;;9002226.02101,"862,669.92 ",.01)
 ;;669.92
 ;;9002226.02101,"862,669.92 ",.02)
 ;;669.92