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.
  1. BGPM5AAG ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON JUL 01, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"862,658.91 ",.01)
  1. ;;658.91
  1. ;;9002226.02101,"862,658.91 ",.02)
  1. ;;658.91
  1. ;;9002226.02101,"862,659.01 ",.01)
  1. ;;659.01
  1. ;;9002226.02101,"862,659.01 ",.02)
  1. ;;659.01
  1. ;;9002226.02101,"862,659.11 ",.01)
  1. ;;659.11
  1. ;;9002226.02101,"862,659.11 ",.02)
  1. ;;659.11
  1. ;;9002226.02101,"862,659.21 ",.01)
  1. ;;659.21
  1. ;;9002226.02101,"862,659.21 ",.02)
  1. ;;659.21
  1. ;;9002226.02101,"862,659.31 ",.01)
  1. ;;659.31
  1. ;;9002226.02101,"862,659.31 ",.02)
  1. ;;659.31
  1. ;;9002226.02101,"862,659.41 ",.01)
  1. ;;659.41
  1. ;;9002226.02101,"862,659.41 ",.02)
  1. ;;659.41
  1. ;;9002226.02101,"862,659.51 ",.01)
  1. ;;659.51
  1. ;;9002226.02101,"862,659.51 ",.02)
  1. ;;659.51
  1. ;;9002226.02101,"862,659.61 ",.01)
  1. ;;659.61
  1. ;;9002226.02101,"862,659.61 ",.02)
  1. ;;659.61
  1. ;;9002226.02101,"862,659.71 ",.01)
  1. ;;659.71
  1. ;;9002226.02101,"862,659.71 ",.02)
  1. ;;659.71
  1. ;;9002226.02101,"862,659.81 ",.01)
  1. ;;659.81
  1. ;;9002226.02101,"862,659.81 ",.02)
  1. ;;659.81
  1. ;;9002226.02101,"862,659.91 ",.01)
  1. ;;659.91
  1. ;;9002226.02101,"862,659.91 ",.02)
  1. ;;659.91
  1. ;;9002226.02101,"862,660.01 ",.01)
  1. ;;660.01
  1. ;;9002226.02101,"862,660.01 ",.02)
  1. ;;660.01
  1. ;;9002226.02101,"862,660.11 ",.01)
  1. ;;660.11
  1. ;;9002226.02101,"862,660.11 ",.02)
  1. ;;660.11
  1. ;;9002226.02101,"862,660.21 ",.01)
  1. ;;660.21
  1. ;;9002226.02101,"862,660.21 ",.02)
  1. ;;660.21
  1. ;;9002226.02101,"862,660.31 ",.01)
  1. ;;660.31
  1. ;;9002226.02101,"862,660.31 ",.02)
  1. ;;660.31
  1. ;;9002226.02101,"862,660.41 ",.01)
  1. ;;660.41
  1. ;;9002226.02101,"862,660.41 ",.02)
  1. ;;660.41
  1. ;;9002226.02101,"862,660.51 ",.01)
  1. ;;660.51
  1. ;;9002226.02101,"862,660.51 ",.02)
  1. ;;660.51
  1. ;;9002226.02101,"862,660.61 ",.01)
  1. ;;660.61
  1. ;;9002226.02101,"862,660.61 ",.02)
  1. ;;660.61
  1. ;;9002226.02101,"862,660.71 ",.01)
  1. ;;660.71
  1. ;;9002226.02101,"862,660.71 ",.02)
  1. ;;660.71
  1. ;;9002226.02101,"862,660.81 ",.01)
  1. ;;660.81
  1. ;;9002226.02101,"862,660.81 ",.02)
  1. ;;660.81
  1. ;;9002226.02101,"862,660.91 ",.01)
  1. ;;660.91
  1. ;;9002226.02101,"862,660.91 ",.02)
  1. ;;660.91
  1. ;;9002226.02101,"862,661.01 ",.01)
  1. ;;661.01
  1. ;;9002226.02101,"862,661.01 ",.02)
  1. ;;661.01
  1. ;;9002226.02101,"862,661.11 ",.01)
  1. ;;661.11
  1. ;;9002226.02101,"862,661.11 ",.02)
  1. ;;661.11
  1. ;;9002226.02101,"862,661.21 ",.01)
  1. ;;661.21
  1. ;;9002226.02101,"862,661.21 ",.02)
  1. ;;661.21
  1. ;;9002226.02101,"862,661.31 ",.01)
  1. ;;661.31
  1. ;;9002226.02101,"862,661.31 ",.02)
  1. ;;661.31
  1. ;;9002226.02101,"862,661.41 ",.01)
  1. ;;661.41
  1. ;;9002226.02101,"862,661.41 ",.02)
  1. ;;661.41
  1. ;;9002226.02101,"862,661.91 ",.01)
  1. ;;661.91
  1. ;;9002226.02101,"862,661.91 ",.02)
  1. ;;661.91
  1. ;;9002226.02101,"862,662.01 ",.01)
  1. ;;662.01
  1. ;;9002226.02101,"862,662.01 ",.02)
  1. ;;662.01
  1. ;;9002226.02101,"862,662.11 ",.01)
  1. ;;662.11
  1. ;;9002226.02101,"862,662.11 ",.02)
  1. ;;662.11
  1. ;;9002226.02101,"862,662.21 ",.01)
  1. ;;662.21
  1. ;;9002226.02101,"862,662.21 ",.02)
  1. ;;662.21
  1. ;;9002226.02101,"862,662.31 ",.01)
  1. ;;662.31
  1. ;;9002226.02101,"862,662.31 ",.02)
  1. ;;662.31
  1. ;;9002226.02101,"862,663.01 ",.01)
  1. ;;663.01
  1. ;;9002226.02101,"862,663.01 ",.02)
  1. ;;663.01
  1. ;;9002226.02101,"862,663.11 ",.01)
  1. ;;663.11
  1. ;;9002226.02101,"862,663.11 ",.02)
  1. ;;663.11
  1. ;;9002226.02101,"862,663.21 ",.01)
  1. ;;663.21
  1. ;;9002226.02101,"862,663.21 ",.02)
  1. ;;663.21
  1. ;;9002226.02101,"862,663.31 ",.01)
  1. ;;663.31
  1. ;;9002226.02101,"862,663.31 ",.02)
  1. ;;663.31
  1. ;;9002226.02101,"862,663.41 ",.01)
  1. ;;663.41
  1. ;;9002226.02101,"862,663.41 ",.02)
  1. ;;663.41
  1. ;;9002226.02101,"862,663.51 ",.01)
  1. ;;663.51
  1. ;;9002226.02101,"862,663.51 ",.02)
  1. ;;663.51
  1. ;;9002226.02101,"862,663.61 ",.01)
  1. ;;663.61
  1. ;;9002226.02101,"862,663.61 ",.02)
  1. ;;663.61
  1. ;;9002226.02101,"862,663.81 ",.01)
  1. ;;663.81
  1. ;;9002226.02101,"862,663.81 ",.02)
  1. ;;663.81
  1. ;;9002226.02101,"862,663.91 ",.01)
  1. ;;663.91
  1. ;;9002226.02101,"862,663.91 ",.02)
  1. ;;663.91
  1. ;;9002226.02101,"862,664.01 ",.01)
  1. ;;664.01
  1. ;;9002226.02101,"862,664.01 ",.02)
  1. ;;664.01
  1. ;;9002226.02101,"862,664.11 ",.01)
  1. ;;664.11
  1. ;;9002226.02101,"862,664.11 ",.02)
  1. ;;664.11
  1. ;;9002226.02101,"862,664.21 ",.01)
  1. ;;664.21
  1. ;;9002226.02101,"862,664.21 ",.02)
  1. ;;664.21
  1. ;;9002226.02101,"862,664.31 ",.01)
  1. ;;664.31
  1. ;;9002226.02101,"862,664.31 ",.02)
  1. ;;664.31
  1. ;;9002226.02101,"862,664.41 ",.01)
  1. ;;664.41
  1. ;;9002226.02101,"862,664.41 ",.02)
  1. ;;664.41
  1. ;;9002226.02101,"862,664.51 ",.01)
  1. ;;664.51
  1. ;;9002226.02101,"862,664.51 ",.02)
  1. ;;664.51
  1. ;;9002226.02101,"862,664.61 ",.01)
  1. ;;664.61
  1. ;;9002226.02101,"862,664.61 ",.02)
  1. ;;664.61
  1. ;;9002226.02101,"862,664.81 ",.01)
  1. ;;664.81
  1. ;;9002226.02101,"862,664.81 ",.02)
  1. ;;664.81
  1. ;;9002226.02101,"862,664.91 ",.01)
  1. ;;664.91
  1. ;;9002226.02101,"862,664.91 ",.02)
  1. ;;664.91
  1. ;;9002226.02101,"862,665.01 ",.01)
  1. ;;665.01
  1. ;;9002226.02101,"862,665.01 ",.02)
  1. ;;665.01
  1. ;;9002226.02101,"862,665.11 ",.01)
  1. ;;665.11
  1. ;;9002226.02101,"862,665.11 ",.02)
  1. ;;665.11
  1. ;;9002226.02101,"862,665.31 ",.01)
  1. ;;665.31
  1. ;;9002226.02101,"862,665.31 ",.02)
  1. ;;665.31
  1. ;;9002226.02101,"862,665.41 ",.01)
  1. ;;665.41
  1. ;;9002226.02101,"862,665.41 ",.02)
  1. ;;665.41
  1. ;;9002226.02101,"862,665.51 ",.01)
  1. ;;665.51
  1. ;;9002226.02101,"862,665.51 ",.02)
  1. ;;665.51
  1. ;;9002226.02101,"862,665.61 ",.01)
  1. ;;665.61
  1. ;;9002226.02101,"862,665.61 ",.02)
  1. ;;665.61
  1. ;;9002226.02101,"862,665.71 ",.01)
  1. ;;665.71
  1. ;;9002226.02101,"862,665.71 ",.02)
  1. ;;665.71
  1. ;;9002226.02101,"862,665.72 ",.01)
  1. ;;665.72
  1. ;;9002226.02101,"862,665.72 ",.02)
  1. ;;665.72
  1. ;;9002226.02101,"862,665.81 ",.01)
  1. ;;665.81
  1. ;;9002226.02101,"862,665.81 ",.02)
  1. ;;665.81
  1. ;;9002226.02101,"862,665.91 ",.01)
  1. ;;665.91
  1. ;;9002226.02101,"862,665.91 ",.02)
  1. ;;665.91
  1. ;;9002226.02101,"862,665.92 ",.01)
  1. ;;665.92
  1. ;;9002226.02101,"862,665.92 ",.02)
  1. ;;665.92
  1. ;;9002226.02101,"862,666.02 ",.01)
  1. ;;666.02
  1. ;;9002226.02101,"862,666.02 ",.02)
  1. ;;666.02
  1. ;;9002226.02101,"862,666.12 ",.01)
  1. ;;666.12
  1. ;;9002226.02101,"862,666.12 ",.02)
  1. ;;666.12
  1. ;;9002226.02101,"862,666.22 ",.01)
  1. ;;666.22
  1. ;;9002226.02101,"862,666.22 ",.02)
  1. ;;666.22
  1. ;;9002226.02101,"862,666.32 ",.01)
  1. ;;666.32
  1. ;;9002226.02101,"862,666.32 ",.02)
  1. ;;666.32
  1. ;;9002226.02101,"862,667.02 ",.01)
  1. ;;667.02
  1. ;;9002226.02101,"862,667.02 ",.02)
  1. ;;667.02
  1. ;;9002226.02101,"862,667.12 ",.01)
  1. ;;667.12
  1. ;;9002226.02101,"862,667.12 ",.02)
  1. ;;667.12
  1. ;;9002226.02101,"862,668.01 ",.01)
  1. ;;668.01
  1. ;;9002226.02101,"862,668.01 ",.02)
  1. ;;668.01
  1. ;;9002226.02101,"862,668.02 ",.01)
  1. ;;668.02
  1. ;;9002226.02101,"862,668.02 ",.02)
  1. ;;668.02
  1. ;;9002226.02101,"862,668.11 ",.01)
  1. ;;668.11
  1. ;;9002226.02101,"862,668.11 ",.02)
  1. ;;668.11
  1. ;;9002226.02101,"862,668.12 ",.01)
  1. ;;668.12
  1. ;;9002226.02101,"862,668.12 ",.02)
  1. ;;668.12
  1. ;;9002226.02101,"862,668.21 ",.01)
  1. ;;668.21
  1. ;;9002226.02101,"862,668.21 ",.02)
  1. ;;668.21
  1. ;;9002226.02101,"862,668.22 ",.01)
  1. ;;668.22
  1. ;;9002226.02101,"862,668.22 ",.02)
  1. ;;668.22
  1. ;;9002226.02101,"862,668.81 ",.01)
  1. ;;668.81
  1. ;;9002226.02101,"862,668.81 ",.02)
  1. ;;668.81
  1. ;;9002226.02101,"862,668.82 ",.01)
  1. ;;668.82
  1. ;;9002226.02101,"862,668.82 ",.02)
  1. ;;668.82
  1. ;;9002226.02101,"862,668.91 ",.01)
  1. ;;668.91
  1. ;;9002226.02101,"862,668.91 ",.02)
  1. ;;668.91
  1. ;;9002226.02101,"862,668.92 ",.01)
  1. ;;668.92
  1. ;;9002226.02101,"862,668.92 ",.02)
  1. ;;668.92
  1. ;;9002226.02101,"862,669.01 ",.01)
  1. ;;669.01
  1. ;;9002226.02101,"862,669.01 ",.02)
  1. ;;669.01
  1. ;;9002226.02101,"862,669.02 ",.01)
  1. ;;669.02
  1. ;;9002226.02101,"862,669.02 ",.02)
  1. ;;669.02
  1. ;;9002226.02101,"862,669.11 ",.01)
  1. ;;669.11
  1. ;;9002226.02101,"862,669.11 ",.02)
  1. ;;669.11
  1. ;;9002226.02101,"862,669.12 ",.01)
  1. ;;669.12
  1. ;;9002226.02101,"862,669.12 ",.02)
  1. ;;669.12
  1. ;;9002226.02101,"862,669.21 ",.01)
  1. ;;669.21
  1. ;;9002226.02101,"862,669.21 ",.02)
  1. ;;669.21
  1. ;;9002226.02101,"862,669.22 ",.01)
  1. ;;669.22
  1. ;;9002226.02101,"862,669.22 ",.02)
  1. ;;669.22
  1. ;;9002226.02101,"862,669.32 ",.01)
  1. ;;669.32
  1. ;;9002226.02101,"862,669.32 ",.02)
  1. ;;669.32
  1. ;;9002226.02101,"862,669.41 ",.01)
  1. ;;669.41
  1. ;;9002226.02101,"862,669.41 ",.02)
  1. ;;669.41
  1. ;;9002226.02101,"862,669.42 ",.01)
  1. ;;669.42
  1. ;;9002226.02101,"862,669.42 ",.02)
  1. ;;669.42
  1. ;;9002226.02101,"862,669.51 ",.01)
  1. ;;669.51
  1. ;;9002226.02101,"862,669.51 ",.02)
  1. ;;669.51
  1. ;;9002226.02101,"862,669.61 ",.01)
  1. ;;669.61
  1. ;;9002226.02101,"862,669.61 ",.02)
  1. ;;669.61
  1. ;;9002226.02101,"862,669.71 ",.01)
  1. ;;669.71
  1. ;;9002226.02101,"862,669.71 ",.02)
  1. ;;669.71
  1. ;;9002226.02101,"862,669.81 ",.01)
  1. ;;669.81
  1. ;;9002226.02101,"862,669.81 ",.02)
  1. ;;669.81
  1. ;;9002226.02101,"862,669.82 ",.01)
  1. ;;669.82
  1. ;;9002226.02101,"862,669.82 ",.02)
  1. ;;669.82
  1. ;;9002226.02101,"862,669.91 ",.01)
  1. ;;669.91
  1. ;;9002226.02101,"862,669.91 ",.02)
  1. ;;669.91
  1. ;;9002226.02101,"862,669.92 ",.01)
  1. ;;669.92
  1. ;;9002226.02101,"862,669.92 ",.02)
  1. ;;669.92