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

BGP82Z57.m

Go to the documentation of this file.
BGP82Z57 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
 ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
 ;
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,"619,55289-0511-93 ",.02)
 ;;55289-0511-93
 ;;9002226.02101,"619,55289-0511-98 ",.01)
 ;;55289-0511-98
 ;;9002226.02101,"619,55289-0511-98 ",.02)
 ;;55289-0511-98
 ;;9002226.02101,"619,55289-0617-20 ",.01)
 ;;55289-0617-20
 ;;9002226.02101,"619,55289-0617-20 ",.02)
 ;;55289-0617-20
 ;;9002226.02101,"619,55289-0650-15 ",.01)
 ;;55289-0650-15
 ;;9002226.02101,"619,55289-0650-15 ",.02)
 ;;55289-0650-15
 ;;9002226.02101,"619,55289-0650-20 ",.01)
 ;;55289-0650-20
 ;;9002226.02101,"619,55289-0650-20 ",.02)
 ;;55289-0650-20
 ;;9002226.02101,"619,55289-0650-24 ",.01)
 ;;55289-0650-24
 ;;9002226.02101,"619,55289-0650-24 ",.02)
 ;;55289-0650-24
 ;;9002226.02101,"619,55289-0650-30 ",.01)
 ;;55289-0650-30
 ;;9002226.02101,"619,55289-0650-30 ",.02)
 ;;55289-0650-30
 ;;9002226.02101,"619,55289-0651-30 ",.01)
 ;;55289-0651-30
 ;;9002226.02101,"619,55289-0651-30 ",.02)
 ;;55289-0651-30
 ;;9002226.02101,"619,55289-0682-60 ",.01)
 ;;55289-0682-60
 ;;9002226.02101,"619,55289-0682-60 ",.02)
 ;;55289-0682-60
 ;;9002226.02101,"619,55289-0682-90 ",.01)
 ;;55289-0682-90
 ;;9002226.02101,"619,55289-0682-90 ",.02)
 ;;55289-0682-90
 ;;9002226.02101,"619,55289-0719-12 ",.01)
 ;;55289-0719-12
 ;;9002226.02101,"619,55289-0719-12 ",.02)
 ;;55289-0719-12
 ;;9002226.02101,"619,55289-0719-15 ",.01)
 ;;55289-0719-15
 ;;9002226.02101,"619,55289-0719-15 ",.02)
 ;;55289-0719-15
 ;;9002226.02101,"619,55289-0719-20 ",.01)
 ;;55289-0719-20
 ;;9002226.02101,"619,55289-0719-20 ",.02)
 ;;55289-0719-20
 ;;9002226.02101,"619,55289-0719-30 ",.01)
 ;;55289-0719-30
 ;;9002226.02101,"619,55289-0719-30 ",.02)
 ;;55289-0719-30
 ;;9002226.02101,"619,55289-0719-40 ",.01)
 ;;55289-0719-40
 ;;9002226.02101,"619,55289-0719-40 ",.02)
 ;;55289-0719-40
 ;;9002226.02101,"619,55289-0719-50 ",.01)
 ;;55289-0719-50
 ;;9002226.02101,"619,55289-0719-50 ",.02)
 ;;55289-0719-50
 ;;9002226.02101,"619,55289-0719-60 ",.01)
 ;;55289-0719-60
 ;;9002226.02101,"619,55289-0719-60 ",.02)
 ;;55289-0719-60
 ;;9002226.02101,"619,55289-0719-90 ",.01)
 ;;55289-0719-90
 ;;9002226.02101,"619,55289-0719-90 ",.02)
 ;;55289-0719-90
 ;;9002226.02101,"619,55289-0719-94 ",.01)
 ;;55289-0719-94
 ;;9002226.02101,"619,55289-0719-94 ",.02)
 ;;55289-0719-94
 ;;9002226.02101,"619,55289-0719-98 ",.01)
 ;;55289-0719-98
 ;;9002226.02101,"619,55289-0719-98 ",.02)
 ;;55289-0719-98
 ;;9002226.02101,"619,55289-0737-01 ",.01)
 ;;55289-0737-01
 ;;9002226.02101,"619,55289-0737-01 ",.02)
 ;;55289-0737-01
 ;;9002226.02101,"619,55289-0737-06 ",.01)
 ;;55289-0737-06
 ;;9002226.02101,"619,55289-0737-06 ",.02)
 ;;55289-0737-06
 ;;9002226.02101,"619,55289-0737-15 ",.01)
 ;;55289-0737-15
 ;;9002226.02101,"619,55289-0737-15 ",.02)
 ;;55289-0737-15
 ;;9002226.02101,"619,55289-0737-20 ",.01)
 ;;55289-0737-20
 ;;9002226.02101,"619,55289-0737-20 ",.02)
 ;;55289-0737-20
 ;;9002226.02101,"619,55289-0737-21 ",.01)
 ;;55289-0737-21
 ;;9002226.02101,"619,55289-0737-21 ",.02)
 ;;55289-0737-21
 ;;9002226.02101,"619,55289-0737-30 ",.01)
 ;;55289-0737-30
 ;;9002226.02101,"619,55289-0737-30 ",.02)
 ;;55289-0737-30
 ;;9002226.02101,"619,55289-0737-40 ",.01)
 ;;55289-0737-40
 ;;9002226.02101,"619,55289-0737-40 ",.02)
 ;;55289-0737-40
 ;;9002226.02101,"619,55289-0737-56 ",.01)
 ;;55289-0737-56
 ;;9002226.02101,"619,55289-0737-56 ",.02)
 ;;55289-0737-56
 ;;9002226.02101,"619,55289-0737-60 ",.01)
 ;;55289-0737-60
 ;;9002226.02101,"619,55289-0737-60 ",.02)
 ;;55289-0737-60
 ;;9002226.02101,"619,55289-0737-84 ",.01)
 ;;55289-0737-84
 ;;9002226.02101,"619,55289-0737-84 ",.02)
 ;;55289-0737-84
 ;;9002226.02101,"619,55289-0737-88 ",.01)
 ;;55289-0737-88
 ;;9002226.02101,"619,55289-0737-88 ",.02)
 ;;55289-0737-88
 ;;9002226.02101,"619,55289-0737-90 ",.01)
 ;;55289-0737-90
 ;;9002226.02101,"619,55289-0737-90 ",.02)
 ;;55289-0737-90
 ;;9002226.02101,"619,55289-0737-93 ",.01)
 ;;55289-0737-93
 ;;9002226.02101,"619,55289-0737-93 ",.02)
 ;;55289-0737-93
 ;;9002226.02101,"619,55289-0737-98 ",.01)
 ;;55289-0737-98
 ;;9002226.02101,"619,55289-0737-98 ",.02)
 ;;55289-0737-98
 ;;9002226.02101,"619,55289-0802-12 ",.01)
 ;;55289-0802-12
 ;;9002226.02101,"619,55289-0802-12 ",.02)
 ;;55289-0802-12
 ;;9002226.02101,"619,55289-0802-20 ",.01)
 ;;55289-0802-20
 ;;9002226.02101,"619,55289-0802-20 ",.02)
 ;;55289-0802-20
 ;;9002226.02101,"619,55289-0802-30 ",.01)
 ;;55289-0802-30
 ;;9002226.02101,"619,55289-0802-30 ",.02)
 ;;55289-0802-30
 ;;9002226.02101,"619,55289-0802-60 ",.01)
 ;;55289-0802-60
 ;;9002226.02101,"619,55289-0802-60 ",.02)
 ;;55289-0802-60
 ;;9002226.02101,"619,55289-0802-90 ",.01)
 ;;55289-0802-90
 ;;9002226.02101,"619,55289-0802-90 ",.02)
 ;;55289-0802-90
 ;;9002226.02101,"619,55289-0814-30 ",.01)
 ;;55289-0814-30
 ;;9002226.02101,"619,55289-0814-30 ",.02)
 ;;55289-0814-30
 ;;9002226.02101,"619,55289-0814-60 ",.01)
 ;;55289-0814-60
 ;;9002226.02101,"619,55289-0814-60 ",.02)
 ;;55289-0814-60
 ;;9002226.02101,"619,55289-0814-90 ",.01)
 ;;55289-0814-90
 ;;9002226.02101,"619,55289-0814-90 ",.02)
 ;;55289-0814-90
 ;;9002226.02101,"619,55289-0814-93 ",.01)
 ;;55289-0814-93
 ;;9002226.02101,"619,55289-0814-93 ",.02)
 ;;55289-0814-93
 ;;9002226.02101,"619,55289-0814-98 ",.01)
 ;;55289-0814-98
 ;;9002226.02101,"619,55289-0814-98 ",.02)
 ;;55289-0814-98
 ;;9002226.02101,"619,55289-0814-99 ",.01)
 ;;55289-0814-99
 ;;9002226.02101,"619,55289-0814-99 ",.02)
 ;;55289-0814-99
 ;;9002226.02101,"619,55289-0863-30 ",.01)
 ;;55289-0863-30
 ;;9002226.02101,"619,55289-0863-30 ",.02)
 ;;55289-0863-30
 ;;9002226.02101,"619,55289-0863-60 ",.01)
 ;;55289-0863-60
 ;;9002226.02101,"619,55289-0863-60 ",.02)
 ;;55289-0863-60
 ;;9002226.02101,"619,55289-0863-90 ",.01)
 ;;55289-0863-90
 ;;9002226.02101,"619,55289-0863-90 ",.02)
 ;;55289-0863-90
 ;;9002226.02101,"619,55289-0891-30 ",.01)
 ;;55289-0891-30
 ;;9002226.02101,"619,55289-0891-30 ",.02)
 ;;55289-0891-30
 ;;9002226.02101,"619,55289-0891-60 ",.01)
 ;;55289-0891-60
 ;;9002226.02101,"619,55289-0891-60 ",.02)
 ;;55289-0891-60
 ;;9002226.02101,"619,55289-0891-90 ",.01)
 ;;55289-0891-90
 ;;9002226.02101,"619,55289-0891-90 ",.02)
 ;;55289-0891-90
 ;;9002226.02101,"619,55289-0891-93 ",.01)
 ;;55289-0891-93
 ;;9002226.02101,"619,55289-0891-93 ",.02)
 ;;55289-0891-93
 ;;9002226.02101,"619,55289-0891-98 ",.01)
 ;;55289-0891-98
 ;;9002226.02101,"619,55289-0891-98 ",.02)
 ;;55289-0891-98
 ;;9002226.02101,"619,55289-0891-99 ",.01)
 ;;55289-0891-99
 ;;9002226.02101,"619,55289-0891-99 ",.02)
 ;;55289-0891-99
 ;;9002226.02101,"619,55289-0894-15 ",.01)
 ;;55289-0894-15
 ;;9002226.02101,"619,55289-0894-15 ",.02)
 ;;55289-0894-15
 ;;9002226.02101,"619,55289-0895-15 ",.01)
 ;;55289-0895-15
 ;;9002226.02101,"619,55289-0895-15 ",.02)
 ;;55289-0895-15
 ;;9002226.02101,"619,55289-0895-20 ",.01)
 ;;55289-0895-20
 ;;9002226.02101,"619,55289-0895-20 ",.02)
 ;;55289-0895-20
 ;;9002226.02101,"619,55289-0895-30 ",.01)
 ;;55289-0895-30
 ;;9002226.02101,"619,55289-0895-30 ",.02)
 ;;55289-0895-30
 ;;9002226.02101,"619,55289-0895-60 ",.01)
 ;;55289-0895-60
 ;;9002226.02101,"619,55289-0895-60 ",.02)
 ;;55289-0895-60
 ;;9002226.02101,"619,55289-0916-20 ",.01)
 ;;55289-0916-20
 ;;9002226.02101,"619,55289-0916-20 ",.02)
 ;;55289-0916-20
 ;;9002226.02101,"619,55289-0916-30 ",.01)
 ;;55289-0916-30
 ;;9002226.02101,"619,55289-0916-30 ",.02)
 ;;55289-0916-30
 ;;9002226.02101,"619,55289-0916-90 ",.01)
 ;;55289-0916-90
 ;;9002226.02101,"619,55289-0916-90 ",.02)
 ;;55289-0916-90
 ;;9002226.02101,"619,55289-0944-15 ",.01)
 ;;55289-0944-15
 ;;9002226.02101,"619,55289-0944-15 ",.02)
 ;;55289-0944-15
 ;;9002226.02101,"619,55289-0944-30 ",.01)
 ;;55289-0944-30
 ;;9002226.02101,"619,55289-0944-30 ",.02)
 ;;55289-0944-30
 ;;9002226.02101,"619,55289-0944-60 ",.01)
 ;;55289-0944-60
 ;;9002226.02101,"619,55289-0944-60 ",.02)
 ;;55289-0944-60
 ;;9002226.02101,"619,55289-0951-10 ",.01)
 ;;55289-0951-10
 ;;9002226.02101,"619,55289-0951-10 ",.02)
 ;;55289-0951-10
 ;;9002226.02101,"619,55289-0951-12 ",.01)
 ;;55289-0951-12
 ;;9002226.02101,"619,55289-0951-12 ",.02)
 ;;55289-0951-12
 ;;9002226.02101,"619,55289-0951-15 ",.01)
 ;;55289-0951-15
 ;;9002226.02101,"619,55289-0951-15 ",.02)
 ;;55289-0951-15
 ;;9002226.02101,"619,55289-0951-20 ",.01)
 ;;55289-0951-20
 ;;9002226.02101,"619,55289-0951-20 ",.02)
 ;;55289-0951-20
 ;;9002226.02101,"619,55289-0951-24 ",.01)
 ;;55289-0951-24
 ;;9002226.02101,"619,55289-0951-24 ",.02)
 ;;55289-0951-24
 ;;9002226.02101,"619,55289-0951-30 ",.01)
 ;;55289-0951-30
 ;;9002226.02101,"619,55289-0951-30 ",.02)
 ;;55289-0951-30
 ;;9002226.02101,"619,55289-0951-40 ",.01)
 ;;55289-0951-40
 ;;9002226.02101,"619,55289-0951-40 ",.02)
 ;;55289-0951-40
 ;;9002226.02101,"619,55289-0951-56 ",.01)
 ;;55289-0951-56
 ;;9002226.02101,"619,55289-0951-56 ",.02)
 ;;55289-0951-56
 ;;9002226.02101,"619,55289-0951-60 ",.01)
 ;;55289-0951-60
 ;;9002226.02101,"619,55289-0951-60 ",.02)
 ;;55289-0951-60
 ;;9002226.02101,"619,55289-0951-73 ",.01)
 ;;55289-0951-73
 ;;9002226.02101,"619,55289-0951-73 ",.02)
 ;;55289-0951-73
 ;;9002226.02101,"619,55289-0951-86 ",.01)
 ;;55289-0951-86
 ;;9002226.02101,"619,55289-0951-86 ",.02)
 ;;55289-0951-86
 ;;9002226.02101,"619,55289-0951-90 ",.01)
 ;;55289-0951-90
 ;;9002226.02101,"619,55289-0951-90 ",.02)
 ;;55289-0951-90
 ;;9002226.02101,"619,55289-0951-93 ",.01)
 ;;55289-0951-93
 ;;9002226.02101,"619,55289-0951-93 ",.02)
 ;;55289-0951-93
 ;;9002226.02101,"619,55289-0951-98 ",.01)
 ;;55289-0951-98
 ;;9002226.02101,"619,55289-0951-98 ",.02)
 ;;55289-0951-98
 ;;9002226.02101,"619,55289-0951-99 ",.01)
 ;;55289-0951-99
 ;;9002226.02101,"619,55289-0951-99 ",.02)
 ;;55289-0951-99
 ;;9002226.02101,"619,55289-0967-60 ",.01)
 ;;55289-0967-60
 ;;9002226.02101,"619,55289-0967-60 ",.02)
 ;;55289-0967-60
 ;;9002226.02101,"619,55289-0967-90 ",.01)
 ;;55289-0967-90
 ;;9002226.02101,"619,55289-0967-90 ",.02)
 ;;55289-0967-90
 ;;9002226.02101,"619,55289-0967-93 ",.01)
 ;;55289-0967-93
 ;;9002226.02101,"619,55289-0967-93 ",.02)
 ;;55289-0967-93
 ;;9002226.02101,"619,55289-0967-98 ",.01)
 ;;55289-0967-98
 ;;9002226.02101,"619,55289-0967-98 ",.02)
 ;;55289-0967-98
 ;;9002226.02101,"619,55289-0997-02 ",.01)
 ;;55289-0997-02
 ;;9002226.02101,"619,55289-0997-02 ",.02)
 ;;55289-0997-02
 ;;9002226.02101,"619,55289-0997-04 ",.01)
 ;;55289-0997-04
 ;;9002226.02101,"619,55289-0997-04 ",.02)
 ;;55289-0997-04
 ;;9002226.02101,"619,55289-0997-06 ",.01)
 ;;55289-0997-06
 ;;9002226.02101,"619,55289-0997-06 ",.02)
 ;;55289-0997-06
 ;;9002226.02101,"619,55289-0997-10 ",.01)
 ;;55289-0997-10
 ;;9002226.02101,"619,55289-0997-10 ",.02)
 ;;55289-0997-10
 ;;9002226.02101,"619,55289-0997-12 ",.01)
 ;;55289-0997-12
 ;;9002226.02101,"619,55289-0997-12 ",.02)
 ;;55289-0997-12
 ;;9002226.02101,"619,55289-0997-15 ",.01)
 ;;55289-0997-15
 ;;9002226.02101,"619,55289-0997-15 ",.02)
 ;;55289-0997-15
 ;;9002226.02101,"619,55289-0997-20 ",.01)
 ;;55289-0997-20
 ;;9002226.02101,"619,55289-0997-20 ",.02)
 ;;55289-0997-20
 ;;9002226.02101,"619,55289-0997-30 ",.01)
 ;;55289-0997-30
 ;;9002226.02101,"619,55289-0997-30 ",.02)
 ;;55289-0997-30
 ;;9002226.02101,"619,55289-0997-40 ",.01)
 ;;55289-0997-40
 ;;9002226.02101,"619,55289-0997-40 ",.02)
 ;;55289-0997-40
 ;;9002226.02101,"619,55289-0997-56 ",.01)
 ;;55289-0997-56
 ;;9002226.02101,"619,55289-0997-56 ",.02)
 ;;55289-0997-56
 ;;9002226.02101,"619,55289-0997-60 ",.01)
 ;;55289-0997-60
 ;;9002226.02101,"619,55289-0997-60 ",.02)
 ;;55289-0997-60
 ;;9002226.02101,"619,55289-0997-84 ",.01)
 ;;55289-0997-84
 ;;9002226.02101,"619,55289-0997-84 ",.02)
 ;;55289-0997-84
 ;;9002226.02101,"619,55289-0997-88 ",.01)
 ;;55289-0997-88