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

BGP48K8.m

Go to the documentation of this file.
BGP48K8 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 24, 2014;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,"1813,00781-3119-63 ",.01)
 ;;00781-3119-63
 ;;9002226.02101,"1813,00781-3119-63 ",.02)
 ;;00781-3119-63
 ;;9002226.02101,"1813,00781-3119-64 ",.01)
 ;;00781-3119-64
 ;;9002226.02101,"1813,00781-3119-64 ",.02)
 ;;00781-3119-64
 ;;9002226.02101,"1813,00781-3119-66 ",.01)
 ;;00781-3119-66
 ;;9002226.02101,"1813,00781-3119-66 ",.02)
 ;;00781-3119-66
 ;;9002226.02101,"1813,00781-3119-68 ",.01)
 ;;00781-3119-68
 ;;9002226.02101,"1813,00781-3119-68 ",.02)
 ;;00781-3119-68
 ;;9002226.02101,"1813,00781-3119-69 ",.01)
 ;;00781-3119-69
 ;;9002226.02101,"1813,00781-3119-69 ",.02)
 ;;00781-3119-69
 ;;9002226.02101,"1813,00781-3121-04 ",.01)
 ;;00781-3121-04
 ;;9002226.02101,"1813,00781-3121-04 ",.02)
 ;;00781-3121-04
 ;;9002226.02101,"1813,00781-3121-05 ",.01)
 ;;00781-3121-05
 ;;9002226.02101,"1813,00781-3121-05 ",.02)
 ;;00781-3121-05
 ;;9002226.02101,"1813,00781-3121-68 ",.01)
 ;;00781-3121-68
 ;;9002226.02101,"1813,00781-3121-68 ",.02)
 ;;00781-3121-68
 ;;9002226.02101,"1813,00781-3121-69 ",.01)
 ;;00781-3121-69
 ;;9002226.02101,"1813,00781-3121-69 ",.02)
 ;;00781-3121-69
 ;;9002226.02101,"1813,00781-3122-93 ",.01)
 ;;00781-3122-93
 ;;9002226.02101,"1813,00781-3122-93 ",.02)
 ;;00781-3122-93
 ;;9002226.02101,"1813,00781-3133-01 ",.01)
 ;;00781-3133-01
 ;;9002226.02101,"1813,00781-3133-01 ",.02)
 ;;00781-3133-01
 ;;9002226.02101,"1813,00781-3133-63 ",.01)
 ;;00781-3133-63
 ;;9002226.02101,"1813,00781-3133-63 ",.02)
 ;;00781-3133-63
 ;;9002226.02101,"1813,00781-3224-02 ",.01)
 ;;00781-3224-02
 ;;9002226.02101,"1813,00781-3224-02 ",.02)
 ;;00781-3224-02
 ;;9002226.02101,"1813,00781-3224-64 ",.01)
 ;;00781-3224-64
 ;;9002226.02101,"1813,00781-3224-64 ",.02)
 ;;00781-3224-64
 ;;9002226.02101,"1813,00781-3356-03 ",.01)
 ;;00781-3356-03
 ;;9002226.02101,"1813,00781-3356-03 ",.02)
 ;;00781-3356-03
 ;;9002226.02101,"1813,00781-3356-66 ",.01)
 ;;00781-3356-66
 ;;9002226.02101,"1813,00781-3356-66 ",.02)
 ;;00781-3356-66
 ;;9002226.02101,"1813,00781-3428-04 ",.01)
 ;;00781-3428-04
 ;;9002226.02101,"1813,00781-3428-04 ",.02)
 ;;00781-3428-04
 ;;9002226.02101,"1813,00781-3428-68 ",.01)
 ;;00781-3428-68
 ;;9002226.02101,"1813,00781-3428-68 ",.02)
 ;;00781-3428-68
 ;;9002226.02101,"1813,00781-3500-05 ",.01)
 ;;00781-3500-05
 ;;9002226.02101,"1813,00781-3500-05 ",.02)
 ;;00781-3500-05
 ;;9002226.02101,"1813,00781-3500-69 ",.01)
 ;;00781-3500-69
 ;;9002226.02101,"1813,00781-3500-69 ",.02)
 ;;00781-3500-69
 ;;9002226.02101,"1813,00781-3612-04 ",.01)
 ;;00781-3612-04
 ;;9002226.02101,"1813,00781-3612-04 ",.02)
 ;;00781-3612-04
 ;;9002226.02101,"1813,00781-3612-68 ",.01)
 ;;00781-3612-68
 ;;9002226.02101,"1813,00781-3612-68 ",.02)
 ;;00781-3612-68
 ;;9002226.02101,"1813,00781-3655-05 ",.01)
 ;;00781-3655-05
 ;;9002226.02101,"1813,00781-3655-05 ",.02)
 ;;00781-3655-05
 ;;9002226.02101,"1813,00781-3655-69 ",.01)
 ;;00781-3655-69
 ;;9002226.02101,"1813,00781-3655-69 ",.02)
 ;;00781-3655-69
 ;;9002226.02101,"1813,00832-1211-00 ",.01)
 ;;00832-1211-00
 ;;9002226.02101,"1813,00832-1211-00 ",.02)
 ;;00832-1211-00
 ;;9002226.02101,"1813,00832-1211-01 ",.01)
 ;;00832-1211-01
 ;;9002226.02101,"1813,00832-1211-01 ",.02)
 ;;00832-1211-01
 ;;9002226.02101,"1813,00832-1211-10 ",.01)
 ;;00832-1211-10
 ;;9002226.02101,"1813,00832-1211-10 ",.02)
 ;;00832-1211-10
 ;;9002226.02101,"1813,00832-1211-89 ",.01)
 ;;00832-1211-89
 ;;9002226.02101,"1813,00832-1211-89 ",.02)
 ;;00832-1211-89
 ;;9002226.02101,"1813,00832-1212-00 ",.01)
 ;;00832-1212-00
 ;;9002226.02101,"1813,00832-1212-00 ",.02)
 ;;00832-1212-00
 ;;9002226.02101,"1813,00832-1212-01 ",.01)
 ;;00832-1212-01
 ;;9002226.02101,"1813,00832-1212-01 ",.02)
 ;;00832-1212-01
 ;;9002226.02101,"1813,00832-1212-10 ",.01)
 ;;00832-1212-10
 ;;9002226.02101,"1813,00832-1212-10 ",.02)
 ;;00832-1212-10
 ;;9002226.02101,"1813,00832-1212-89 ",.01)
 ;;00832-1212-89
 ;;9002226.02101,"1813,00832-1212-89 ",.02)
 ;;00832-1212-89
 ;;9002226.02101,"1813,00832-1213-00 ",.01)
 ;;00832-1213-00
 ;;9002226.02101,"1813,00832-1213-00 ",.02)
 ;;00832-1213-00
 ;;9002226.02101,"1813,00832-1213-01 ",.01)
 ;;00832-1213-01
 ;;9002226.02101,"1813,00832-1213-01 ",.02)
 ;;00832-1213-01
 ;;9002226.02101,"1813,00832-1213-10 ",.01)
 ;;00832-1213-10
 ;;9002226.02101,"1813,00832-1213-10 ",.02)
 ;;00832-1213-10
 ;;9002226.02101,"1813,00832-1213-89 ",.01)
 ;;00832-1213-89
 ;;9002226.02101,"1813,00832-1213-89 ",.02)
 ;;00832-1213-89
 ;;9002226.02101,"1813,00832-1214-00 ",.01)
 ;;00832-1214-00
 ;;9002226.02101,"1813,00832-1214-00 ",.02)
 ;;00832-1214-00
 ;;9002226.02101,"1813,00832-1214-01 ",.01)
 ;;00832-1214-01
 ;;9002226.02101,"1813,00832-1214-01 ",.02)
 ;;00832-1214-01
 ;;9002226.02101,"1813,00832-1214-10 ",.01)
 ;;00832-1214-10
 ;;9002226.02101,"1813,00832-1214-10 ",.02)
 ;;00832-1214-10
 ;;9002226.02101,"1813,00832-1214-89 ",.01)
 ;;00832-1214-89
 ;;9002226.02101,"1813,00832-1214-89 ",.02)
 ;;00832-1214-89
 ;;9002226.02101,"1813,00832-1215-00 ",.01)
 ;;00832-1215-00
 ;;9002226.02101,"1813,00832-1215-00 ",.02)
 ;;00832-1215-00
 ;;9002226.02101,"1813,00832-1215-01 ",.01)
 ;;00832-1215-01
 ;;9002226.02101,"1813,00832-1215-01 ",.02)
 ;;00832-1215-01
 ;;9002226.02101,"1813,00832-1215-10 ",.01)
 ;;00832-1215-10
 ;;9002226.02101,"1813,00832-1215-10 ",.02)
 ;;00832-1215-10
 ;;9002226.02101,"1813,00832-1215-89 ",.01)
 ;;00832-1215-89
 ;;9002226.02101,"1813,00832-1215-89 ",.02)
 ;;00832-1215-89
 ;;9002226.02101,"1813,00832-1216-00 ",.01)
 ;;00832-1216-00
 ;;9002226.02101,"1813,00832-1216-00 ",.02)
 ;;00832-1216-00
 ;;9002226.02101,"1813,00832-1216-01 ",.01)
 ;;00832-1216-01
 ;;9002226.02101,"1813,00832-1216-01 ",.02)
 ;;00832-1216-01
 ;;9002226.02101,"1813,00832-1216-10 ",.01)
 ;;00832-1216-10
 ;;9002226.02101,"1813,00832-1216-10 ",.02)
 ;;00832-1216-10
 ;;9002226.02101,"1813,00832-1216-89 ",.01)
 ;;00832-1216-89
 ;;9002226.02101,"1813,00832-1216-89 ",.02)
 ;;00832-1216-89
 ;;9002226.02101,"1813,00832-1217-00 ",.01)
 ;;00832-1217-00
 ;;9002226.02101,"1813,00832-1217-00 ",.02)
 ;;00832-1217-00
 ;;9002226.02101,"1813,00832-1217-01 ",.01)
 ;;00832-1217-01
 ;;9002226.02101,"1813,00832-1217-01 ",.02)
 ;;00832-1217-01
 ;;9002226.02101,"1813,00832-1217-10 ",.01)
 ;;00832-1217-10
 ;;9002226.02101,"1813,00832-1217-10 ",.02)
 ;;00832-1217-10
 ;;9002226.02101,"1813,00832-1217-89 ",.01)
 ;;00832-1217-89
 ;;9002226.02101,"1813,00832-1217-89 ",.02)
 ;;00832-1217-89
 ;;9002226.02101,"1813,00832-1218-00 ",.01)
 ;;00832-1218-00
 ;;9002226.02101,"1813,00832-1218-00 ",.02)
 ;;00832-1218-00
 ;;9002226.02101,"1813,00832-1218-01 ",.01)
 ;;00832-1218-01
 ;;9002226.02101,"1813,00832-1218-01 ",.02)
 ;;00832-1218-01
 ;;9002226.02101,"1813,00832-1218-50 ",.01)
 ;;00832-1218-50
 ;;9002226.02101,"1813,00832-1218-50 ",.02)
 ;;00832-1218-50
 ;;9002226.02101,"1813,00832-1218-89 ",.01)
 ;;00832-1218-89
 ;;9002226.02101,"1813,00832-1218-89 ",.02)
 ;;00832-1218-89
 ;;9002226.02101,"1813,00832-1219-00 ",.01)
 ;;00832-1219-00
 ;;9002226.02101,"1813,00832-1219-00 ",.02)
 ;;00832-1219-00
 ;;9002226.02101,"1813,00832-1219-01 ",.01)
 ;;00832-1219-01
 ;;9002226.02101,"1813,00832-1219-01 ",.02)
 ;;00832-1219-01
 ;;9002226.02101,"1813,00832-1219-50 ",.01)
 ;;00832-1219-50
 ;;9002226.02101,"1813,00832-1219-50 ",.02)
 ;;00832-1219-50
 ;;9002226.02101,"1813,00832-1219-89 ",.01)
 ;;00832-1219-89
 ;;9002226.02101,"1813,00832-1219-89 ",.02)
 ;;00832-1219-89
 ;;9002226.02101,"1813,00955-1003-10 ",.01)
 ;;00955-1003-10
 ;;9002226.02101,"1813,00955-1003-10 ",.02)
 ;;00955-1003-10
 ;;9002226.02101,"1813,00955-1004-10 ",.01)
 ;;00955-1004-10
 ;;9002226.02101,"1813,00955-1004-10 ",.02)
 ;;00955-1004-10
 ;;9002226.02101,"1813,00955-1006-10 ",.01)
 ;;00955-1006-10
 ;;9002226.02101,"1813,00955-1006-10 ",.02)
 ;;00955-1006-10
 ;;9002226.02101,"1813,00955-1008-10 ",.01)
 ;;00955-1008-10
 ;;9002226.02101,"1813,00955-1008-10 ",.02)
 ;;00955-1008-10
 ;;9002226.02101,"1813,00955-1010-10 ",.01)
 ;;00955-1010-10
 ;;9002226.02101,"1813,00955-1010-10 ",.02)
 ;;00955-1010-10
 ;;9002226.02101,"1813,00955-1012-10 ",.01)
 ;;00955-1012-10
 ;;9002226.02101,"1813,00955-1012-10 ",.02)
 ;;00955-1012-10
 ;;9002226.02101,"1813,00955-1015-10 ",.01)
 ;;00955-1015-10
 ;;9002226.02101,"1813,00955-1015-10 ",.02)
 ;;00955-1015-10
 ;;9002226.02101,"1813,00955-1016-01 ",.01)
 ;;00955-1016-01
 ;;9002226.02101,"1813,00955-1016-01 ",.02)
 ;;00955-1016-01
 ;;9002226.02101,"1813,08290-0340-02 ",.01)
 ;;08290-0340-02
 ;;9002226.02101,"1813,08290-0340-02 ",.02)
 ;;08290-0340-02
 ;;9002226.02101,"1813,08290-0340-03 ",.01)
 ;;08290-0340-03
 ;;9002226.02101,"1813,08290-0340-03 ",.02)
 ;;08290-0340-03
 ;;9002226.02101,"1813,08290-0350-05 ",.01)
 ;;08290-0350-05
 ;;9002226.02101,"1813,08290-0350-05 ",.02)
 ;;08290-0350-05
 ;;9002226.02101,"1813,08290-0360-03 ",.01)
 ;;08290-0360-03
 ;;9002226.02101,"1813,08290-0360-03 ",.02)
 ;;08290-0360-03
 ;;9002226.02101,"1813,08290-0360-05 ",.01)
 ;;08290-0360-05
 ;;9002226.02101,"1813,08290-0360-05 ",.02)
 ;;08290-0360-05
 ;;9002226.02101,"1813,08290-0360-06 ",.01)
 ;;08290-0360-06
 ;;9002226.02101,"1813,08290-0360-06 ",.02)
 ;;08290-0360-06
 ;;9002226.02101,"1813,08290-0361-05 ",.01)
 ;;08290-0361-05
 ;;9002226.02101,"1813,08290-0361-05 ",.02)
 ;;08290-0361-05
 ;;9002226.02101,"1813,08290-0370-02 ",.01)
 ;;08290-0370-02
 ;;9002226.02101,"1813,08290-0370-02 ",.02)
 ;;08290-0370-02
 ;;9002226.02101,"1813,08290-0370-03 ",.01)
 ;;08290-0370-03
 ;;9002226.02101,"1813,08290-0370-03 ",.02)
 ;;08290-0370-03
 ;;9002226.02101,"1813,08290-0380-03 ",.01)
 ;;08290-0380-03
 ;;9002226.02101,"1813,08290-0380-03 ",.02)
 ;;08290-0380-03
 ;;9002226.02101,"1813,08290-0380-05 ",.01)
 ;;08290-0380-05
 ;;9002226.02101,"1813,08290-0380-05 ",.02)
 ;;08290-0380-05
 ;;9002226.02101,"1813,08290-0390-03 ",.01)
 ;;08290-0390-03
 ;;9002226.02101,"1813,08290-0390-03 ",.02)
 ;;08290-0390-03
 ;;9002226.02101,"1813,08290-0390-05 ",.01)
 ;;08290-0390-05
 ;;9002226.02101,"1813,08290-0390-05 ",.02)
 ;;08290-0390-05
 ;;9002226.02101,"1813,08290-0391-05 ",.01)
 ;;08290-0391-05
 ;;9002226.02101,"1813,08290-0391-05 ",.02)
 ;;08290-0391-05
 ;;9002226.02101,"1813,08290-0400-03 ",.01)
 ;;08290-0400-03
 ;;9002226.02101,"1813,08290-0400-03 ",.02)
 ;;08290-0400-03
 ;;9002226.02101,"1813,08290-0410-03 ",.01)
 ;;08290-0410-03
 ;;9002226.02101,"1813,08290-0410-03 ",.02)
 ;;08290-0410-03
 ;;9002226.02101,"1813,08290-0420-05 ",.01)
 ;;08290-0420-05
 ;;9002226.02101,"1813,08290-0420-05 ",.02)
 ;;08290-0420-05
 ;;9002226.02101,"1813,08290-3064-13 ",.01)
 ;;08290-3064-13
 ;;9002226.02101,"1813,08290-3064-13 ",.02)
 ;;08290-3064-13
 ;;9002226.02101,"1813,08290-3064-14 ",.01)
 ;;08290-3064-14
 ;;9002226.02101,"1813,08290-3064-14 ",.02)
 ;;08290-3064-14
 ;;9002226.02101,"1813,08290-3064-23 ",.01)
 ;;08290-3064-23
 ;;9002226.02101,"1813,08290-3064-23 ",.02)
 ;;08290-3064-23
 ;;9002226.02101,"1813,08290-3064-24 ",.01)
 ;;08290-3064-24
 ;;9002226.02101,"1813,08290-3064-24 ",.02)
 ;;08290-3064-24
 ;;9002226.02101,"1813,08290-3065-09 ",.01)
 ;;08290-3065-09
 ;;9002226.02101,"1813,08290-3065-09 ",.02)
 ;;08290-3065-09
 ;;9002226.02101,"1813,08290-3065-10 ",.01)
 ;;08290-3065-10
 ;;9002226.02101,"1813,08290-3065-10 ",.02)
 ;;08290-3065-10
 ;;9002226.02101,"1813,08290-3065-11 ",.01)
 ;;08290-3065-11
 ;;9002226.02101,"1813,08290-3065-11 ",.02)
 ;;08290-3065-11
 ;;9002226.02101,"1813,08290-3065-12 ",.01)
 ;;08290-3065-12
 ;;9002226.02101,"1813,08290-3065-12 ",.02)
 ;;08290-3065-12
 ;;9002226.02101,"1813,08290-3065-13 ",.01)
 ;;08290-3065-13
 ;;9002226.02101,"1813,08290-3065-13 ",.02)
 ;;08290-3065-13
 ;;9002226.02101,"1813,08290-3065-14 ",.01)
 ;;08290-3065-14
 ;;9002226.02101,"1813,08290-3065-14 ",.02)
 ;;08290-3065-14
 ;;9002226.02101,"1813,08290-3065-15 ",.01)
 ;;08290-3065-15
 ;;9002226.02101,"1813,08290-3065-15 ",.02)
 ;;08290-3065-15
 ;;9002226.02101,"1813,08290-3065-16 ",.01)
 ;;08290-3065-16
 ;;9002226.02101,"1813,08290-3065-16 ",.02)
 ;;08290-3065-16
 ;;9002226.02101,"1813,08290-3065-17 ",.01)
 ;;08290-3065-17
 ;;9002226.02101,"1813,08290-3065-17 ",.02)
 ;;08290-3065-17
 ;;9002226.02101,"1813,08290-3065-21 ",.01)
 ;;08290-3065-21
 ;;9002226.02101,"1813,08290-3065-21 ",.02)
 ;;08290-3065-21
 ;;9002226.02101,"1813,08290-3065-25 ",.01)
 ;;08290-3065-25
 ;;9002226.02101,"1813,08290-3065-25 ",.02)
 ;;08290-3065-25
 ;;9002226.02101,"1813,08290-3065-27 ",.01)
 ;;08290-3065-27
 ;;9002226.02101,"1813,08290-3065-27 ",.02)
 ;;08290-3065-27
 ;;9002226.02101,"1813,08290-3065-28 ",.01)
 ;;08290-3065-28
 ;;9002226.02101,"1813,08290-3065-28 ",.02)
 ;;08290-3065-28
 ;;9002226.02101,"1813,08290-3065-31 ",.01)
 ;;08290-3065-31
 ;;9002226.02101,"1813,08290-3065-31 ",.02)
 ;;08290-3065-31
 ;;9002226.02101,"1813,08290-3065-37 ",.01)
 ;;08290-3065-37
 ;;9002226.02101,"1813,08290-3065-37 ",.02)
 ;;08290-3065-37
 ;;9002226.02101,"1813,08290-3065-38 ",.01)
 ;;08290-3065-38
 ;;9002226.02101,"1813,08290-3065-38 ",.02)
 ;;08290-3065-38
 ;;9002226.02101,"1813,08290-3065-39 ",.01)
 ;;08290-3065-39
 ;;9002226.02101,"1813,08290-3065-39 ",.02)
 ;;08290-3065-39
 ;;9002226.02101,"1813,08450-6026-03 ",.01)
 ;;08450-6026-03
 ;;9002226.02101,"1813,08450-6026-03 ",.02)
 ;;08450-6026-03
 ;;9002226.02101,"1813,08450-6030-05 ",.01)
 ;;08450-6030-05
 ;;9002226.02101,"1813,08450-6030-05 ",.02)
 ;;08450-6030-05
 ;;9002226.02101,"1813,08450-6034-03 ",.01)
 ;;08450-6034-03
 ;;9002226.02101,"1813,08450-6034-03 ",.02)
 ;;08450-6034-03
 ;;9002226.02101,"1813,08450-6037-05 ",.01)
 ;;08450-6037-05