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

BGP82Z38.m

Go to the documentation of this file.
BGP82Z38 ; 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,42358-0102-10 ",.02)
 ;;42358-0102-10
 ;;9002226.02101,"619,42358-0200-32 ",.01)
 ;;42358-0200-32
 ;;9002226.02101,"619,42358-0200-32 ",.02)
 ;;42358-0200-32
 ;;9002226.02101,"619,42358-0300-32 ",.01)
 ;;42358-0300-32
 ;;9002226.02101,"619,42358-0300-32 ",.02)
 ;;42358-0300-32
 ;;9002226.02101,"619,42358-0400-32 ",.01)
 ;;42358-0400-32
 ;;9002226.02101,"619,42358-0400-32 ",.02)
 ;;42358-0400-32
 ;;9002226.02101,"619,42358-0600-32 ",.01)
 ;;42358-0600-32
 ;;9002226.02101,"619,42358-0600-32 ",.02)
 ;;42358-0600-32
 ;;9002226.02101,"619,42358-0800-32 ",.01)
 ;;42358-0800-32
 ;;9002226.02101,"619,42358-0800-32 ",.02)
 ;;42358-0800-32
 ;;9002226.02101,"619,42549-0514-02 ",.01)
 ;;42549-0514-02
 ;;9002226.02101,"619,42549-0514-02 ",.02)
 ;;42549-0514-02
 ;;9002226.02101,"619,42549-0514-04 ",.01)
 ;;42549-0514-04
 ;;9002226.02101,"619,42549-0514-04 ",.02)
 ;;42549-0514-04
 ;;9002226.02101,"619,42549-0514-12 ",.01)
 ;;42549-0514-12
 ;;9002226.02101,"619,42549-0514-12 ",.02)
 ;;42549-0514-12
 ;;9002226.02101,"619,42549-0514-28 ",.01)
 ;;42549-0514-28
 ;;9002226.02101,"619,42549-0514-28 ",.02)
 ;;42549-0514-28
 ;;9002226.02101,"619,42549-0514-30 ",.01)
 ;;42549-0514-30
 ;;9002226.02101,"619,42549-0514-30 ",.02)
 ;;42549-0514-30
 ;;9002226.02101,"619,42549-0514-40 ",.01)
 ;;42549-0514-40
 ;;9002226.02101,"619,42549-0514-40 ",.02)
 ;;42549-0514-40
 ;;9002226.02101,"619,42549-0514-60 ",.01)
 ;;42549-0514-60
 ;;9002226.02101,"619,42549-0514-60 ",.02)
 ;;42549-0514-60
 ;;9002226.02101,"619,42549-0514-90 ",.01)
 ;;42549-0514-90
 ;;9002226.02101,"619,42549-0514-90 ",.02)
 ;;42549-0514-90
 ;;9002226.02101,"619,42549-0516-02 ",.01)
 ;;42549-0516-02
 ;;9002226.02101,"619,42549-0516-02 ",.02)
 ;;42549-0516-02
 ;;9002226.02101,"619,42549-0516-30 ",.01)
 ;;42549-0516-30
 ;;9002226.02101,"619,42549-0516-30 ",.02)
 ;;42549-0516-30
 ;;9002226.02101,"619,42549-0516-40 ",.01)
 ;;42549-0516-40
 ;;9002226.02101,"619,42549-0516-40 ",.02)
 ;;42549-0516-40
 ;;9002226.02101,"619,42549-0516-60 ",.01)
 ;;42549-0516-60
 ;;9002226.02101,"619,42549-0516-60 ",.02)
 ;;42549-0516-60
 ;;9002226.02101,"619,42549-0516-84 ",.01)
 ;;42549-0516-84
 ;;9002226.02101,"619,42549-0516-84 ",.02)
 ;;42549-0516-84
 ;;9002226.02101,"619,42549-0516-90 ",.01)
 ;;42549-0516-90
 ;;9002226.02101,"619,42549-0516-90 ",.02)
 ;;42549-0516-90
 ;;9002226.02101,"619,42549-0527-02 ",.01)
 ;;42549-0527-02
 ;;9002226.02101,"619,42549-0527-02 ",.02)
 ;;42549-0527-02
 ;;9002226.02101,"619,42549-0527-12 ",.01)
 ;;42549-0527-12
 ;;9002226.02101,"619,42549-0527-12 ",.02)
 ;;42549-0527-12
 ;;9002226.02101,"619,42549-0527-24 ",.01)
 ;;42549-0527-24
 ;;9002226.02101,"619,42549-0527-24 ",.02)
 ;;42549-0527-24
 ;;9002226.02101,"619,42549-0527-30 ",.01)
 ;;42549-0527-30
 ;;9002226.02101,"619,42549-0527-30 ",.02)
 ;;42549-0527-30
 ;;9002226.02101,"619,42549-0527-40 ",.01)
 ;;42549-0527-40
 ;;9002226.02101,"619,42549-0527-40 ",.02)
 ;;42549-0527-40
 ;;9002226.02101,"619,42549-0527-60 ",.01)
 ;;42549-0527-60
 ;;9002226.02101,"619,42549-0527-60 ",.02)
 ;;42549-0527-60
 ;;9002226.02101,"619,42549-0527-90 ",.01)
 ;;42549-0527-90
 ;;9002226.02101,"619,42549-0527-90 ",.02)
 ;;42549-0527-90
 ;;9002226.02101,"619,42549-0556-28 ",.01)
 ;;42549-0556-28
 ;;9002226.02101,"619,42549-0556-28 ",.02)
 ;;42549-0556-28
 ;;9002226.02101,"619,42549-0556-30 ",.01)
 ;;42549-0556-30
 ;;9002226.02101,"619,42549-0556-30 ",.02)
 ;;42549-0556-30
 ;;9002226.02101,"619,42549-0556-60 ",.01)
 ;;42549-0556-60
 ;;9002226.02101,"619,42549-0556-60 ",.02)
 ;;42549-0556-60
 ;;9002226.02101,"619,42549-0556-90 ",.01)
 ;;42549-0556-90
 ;;9002226.02101,"619,42549-0556-90 ",.02)
 ;;42549-0556-90
 ;;9002226.02101,"619,42549-0557-02 ",.01)
 ;;42549-0557-02
 ;;9002226.02101,"619,42549-0557-02 ",.02)
 ;;42549-0557-02
 ;;9002226.02101,"619,42549-0557-28 ",.01)
 ;;42549-0557-28
 ;;9002226.02101,"619,42549-0557-28 ",.02)
 ;;42549-0557-28
 ;;9002226.02101,"619,42549-0557-30 ",.01)
 ;;42549-0557-30
 ;;9002226.02101,"619,42549-0557-30 ",.02)
 ;;42549-0557-30
 ;;9002226.02101,"619,42549-0557-40 ",.01)
 ;;42549-0557-40
 ;;9002226.02101,"619,42549-0557-40 ",.02)
 ;;42549-0557-40
 ;;9002226.02101,"619,42549-0557-56 ",.01)
 ;;42549-0557-56
 ;;9002226.02101,"619,42549-0557-56 ",.02)
 ;;42549-0557-56
 ;;9002226.02101,"619,42549-0557-60 ",.01)
 ;;42549-0557-60
 ;;9002226.02101,"619,42549-0557-60 ",.02)
 ;;42549-0557-60
 ;;9002226.02101,"619,42549-0557-90 ",.01)
 ;;42549-0557-90
 ;;9002226.02101,"619,42549-0557-90 ",.02)
 ;;42549-0557-90
 ;;9002226.02101,"619,42549-0569-02 ",.01)
 ;;42549-0569-02
 ;;9002226.02101,"619,42549-0569-02 ",.02)
 ;;42549-0569-02
 ;;9002226.02101,"619,42549-0569-30 ",.01)
 ;;42549-0569-30
 ;;9002226.02101,"619,42549-0569-30 ",.02)
 ;;42549-0569-30
 ;;9002226.02101,"619,42549-0572-28 ",.01)
 ;;42549-0572-28
 ;;9002226.02101,"619,42549-0572-28 ",.02)
 ;;42549-0572-28
 ;;9002226.02101,"619,42549-0572-56 ",.01)
 ;;42549-0572-56
 ;;9002226.02101,"619,42549-0572-56 ",.02)
 ;;42549-0572-56
 ;;9002226.02101,"619,42549-0573-05 ",.01)
 ;;42549-0573-05
 ;;9002226.02101,"619,42549-0573-05 ",.02)
 ;;42549-0573-05
 ;;9002226.02101,"619,42549-0574-04 ",.01)
 ;;42549-0574-04
 ;;9002226.02101,"619,42549-0574-04 ",.02)
 ;;42549-0574-04
 ;;9002226.02101,"619,42549-0574-08 ",.01)
 ;;42549-0574-08
 ;;9002226.02101,"619,42549-0574-08 ",.02)
 ;;42549-0574-08
 ;;9002226.02101,"619,42549-0574-28 ",.01)
 ;;42549-0574-28
 ;;9002226.02101,"619,42549-0574-28 ",.02)
 ;;42549-0574-28
 ;;9002226.02101,"619,42549-0574-30 ",.01)
 ;;42549-0574-30
 ;;9002226.02101,"619,42549-0574-30 ",.02)
 ;;42549-0574-30
 ;;9002226.02101,"619,42549-0574-56 ",.01)
 ;;42549-0574-56
 ;;9002226.02101,"619,42549-0574-56 ",.02)
 ;;42549-0574-56
 ;;9002226.02101,"619,42549-0574-60 ",.01)
 ;;42549-0574-60
 ;;9002226.02101,"619,42549-0574-60 ",.02)
 ;;42549-0574-60
 ;;9002226.02101,"619,42549-0577-02 ",.01)
 ;;42549-0577-02
 ;;9002226.02101,"619,42549-0577-02 ",.02)
 ;;42549-0577-02
 ;;9002226.02101,"619,42549-0577-28 ",.01)
 ;;42549-0577-28
 ;;9002226.02101,"619,42549-0577-28 ",.02)
 ;;42549-0577-28
 ;;9002226.02101,"619,42549-0578-02 ",.01)
 ;;42549-0578-02
 ;;9002226.02101,"619,42549-0578-02 ",.02)
 ;;42549-0578-02
 ;;9002226.02101,"619,42549-0578-08 ",.01)
 ;;42549-0578-08
 ;;9002226.02101,"619,42549-0578-08 ",.02)
 ;;42549-0578-08
 ;;9002226.02101,"619,42549-0578-28 ",.01)
 ;;42549-0578-28
 ;;9002226.02101,"619,42549-0578-28 ",.02)
 ;;42549-0578-28
 ;;9002226.02101,"619,42549-0578-30 ",.01)
 ;;42549-0578-30
 ;;9002226.02101,"619,42549-0578-30 ",.02)
 ;;42549-0578-30
 ;;9002226.02101,"619,42549-0578-56 ",.01)
 ;;42549-0578-56
 ;;9002226.02101,"619,42549-0578-56 ",.02)
 ;;42549-0578-56
 ;;9002226.02101,"619,42549-0578-60 ",.01)
 ;;42549-0578-60
 ;;9002226.02101,"619,42549-0578-60 ",.02)
 ;;42549-0578-60
 ;;9002226.02101,"619,42549-0586-42 ",.01)
 ;;42549-0586-42
 ;;9002226.02101,"619,42549-0586-42 ",.02)
 ;;42549-0586-42
 ;;9002226.02101,"619,42549-0586-84 ",.01)
 ;;42549-0586-84
 ;;9002226.02101,"619,42549-0586-84 ",.02)
 ;;42549-0586-84
 ;;9002226.02101,"619,42549-0594-28 ",.01)
 ;;42549-0594-28
 ;;9002226.02101,"619,42549-0594-28 ",.02)
 ;;42549-0594-28
 ;;9002226.02101,"619,42549-0594-30 ",.01)
 ;;42549-0594-30
 ;;9002226.02101,"619,42549-0594-30 ",.02)
 ;;42549-0594-30
 ;;9002226.02101,"619,42549-0594-60 ",.01)
 ;;42549-0594-60
 ;;9002226.02101,"619,42549-0594-60 ",.02)
 ;;42549-0594-60
 ;;9002226.02101,"619,42549-0594-90 ",.01)
 ;;42549-0594-90
 ;;9002226.02101,"619,42549-0594-90 ",.02)
 ;;42549-0594-90
 ;;9002226.02101,"619,42549-0602-28 ",.01)
 ;;42549-0602-28
 ;;9002226.02101,"619,42549-0602-28 ",.02)
 ;;42549-0602-28
 ;;9002226.02101,"619,42549-0602-56 ",.01)
 ;;42549-0602-56
 ;;9002226.02101,"619,42549-0602-56 ",.02)
 ;;42549-0602-56
 ;;9002226.02101,"619,42549-0609-02 ",.01)
 ;;42549-0609-02
 ;;9002226.02101,"619,42549-0609-02 ",.02)
 ;;42549-0609-02
 ;;9002226.02101,"619,42549-0609-04 ",.01)
 ;;42549-0609-04
 ;;9002226.02101,"619,42549-0609-04 ",.02)
 ;;42549-0609-04
 ;;9002226.02101,"619,42549-0609-28 ",.01)
 ;;42549-0609-28
 ;;9002226.02101,"619,42549-0609-28 ",.02)
 ;;42549-0609-28
 ;;9002226.02101,"619,42549-0609-30 ",.01)
 ;;42549-0609-30
 ;;9002226.02101,"619,42549-0609-30 ",.02)
 ;;42549-0609-30
 ;;9002226.02101,"619,42549-0609-40 ",.01)
 ;;42549-0609-40
 ;;9002226.02101,"619,42549-0609-40 ",.02)
 ;;42549-0609-40
 ;;9002226.02101,"619,42549-0609-60 ",.01)
 ;;42549-0609-60
 ;;9002226.02101,"619,42549-0609-60 ",.02)
 ;;42549-0609-60
 ;;9002226.02101,"619,42549-0609-84 ",.01)
 ;;42549-0609-84
 ;;9002226.02101,"619,42549-0609-84 ",.02)
 ;;42549-0609-84
 ;;9002226.02101,"619,42549-0609-90 ",.01)
 ;;42549-0609-90
 ;;9002226.02101,"619,42549-0609-90 ",.02)
 ;;42549-0609-90
 ;;9002226.02101,"619,42549-0610-30 ",.01)
 ;;42549-0610-30
 ;;9002226.02101,"619,42549-0610-30 ",.02)
 ;;42549-0610-30
 ;;9002226.02101,"619,42549-0610-56 ",.01)
 ;;42549-0610-56
 ;;9002226.02101,"619,42549-0610-56 ",.02)
 ;;42549-0610-56
 ;;9002226.02101,"619,42549-0610-60 ",.01)
 ;;42549-0610-60
 ;;9002226.02101,"619,42549-0610-60 ",.02)
 ;;42549-0610-60
 ;;9002226.02101,"619,42549-0610-90 ",.01)
 ;;42549-0610-90
 ;;9002226.02101,"619,42549-0610-90 ",.02)
 ;;42549-0610-90
 ;;9002226.02101,"619,42549-0614-28 ",.01)
 ;;42549-0614-28
 ;;9002226.02101,"619,42549-0614-28 ",.02)
 ;;42549-0614-28
 ;;9002226.02101,"619,42549-0614-56 ",.01)
 ;;42549-0614-56
 ;;9002226.02101,"619,42549-0614-56 ",.02)
 ;;42549-0614-56
 ;;9002226.02101,"619,42549-0614-60 ",.01)
 ;;42549-0614-60
 ;;9002226.02101,"619,42549-0614-60 ",.02)
 ;;42549-0614-60
 ;;9002226.02101,"619,42549-0615-12 ",.01)
 ;;42549-0615-12
 ;;9002226.02101,"619,42549-0615-12 ",.02)
 ;;42549-0615-12
 ;;9002226.02101,"619,42549-0615-30 ",.01)
 ;;42549-0615-30
 ;;9002226.02101,"619,42549-0615-30 ",.02)
 ;;42549-0615-30
 ;;9002226.02101,"619,42549-0615-40 ",.01)
 ;;42549-0615-40
 ;;9002226.02101,"619,42549-0615-40 ",.02)
 ;;42549-0615-40
 ;;9002226.02101,"619,42549-0615-60 ",.01)
 ;;42549-0615-60
 ;;9002226.02101,"619,42549-0615-60 ",.02)
 ;;42549-0615-60
 ;;9002226.02101,"619,42549-0615-84 ",.01)
 ;;42549-0615-84
 ;;9002226.02101,"619,42549-0615-84 ",.02)
 ;;42549-0615-84
 ;;9002226.02101,"619,42549-0615-90 ",.01)
 ;;42549-0615-90
 ;;9002226.02101,"619,42549-0615-90 ",.02)
 ;;42549-0615-90
 ;;9002226.02101,"619,42549-0618-28 ",.01)
 ;;42549-0618-28
 ;;9002226.02101,"619,42549-0618-28 ",.02)
 ;;42549-0618-28
 ;;9002226.02101,"619,42549-0618-30 ",.01)
 ;;42549-0618-30
 ;;9002226.02101,"619,42549-0618-30 ",.02)
 ;;42549-0618-30
 ;;9002226.02101,"619,42549-0618-40 ",.01)
 ;;42549-0618-40
 ;;9002226.02101,"619,42549-0618-40 ",.02)
 ;;42549-0618-40
 ;;9002226.02101,"619,42549-0618-60 ",.01)
 ;;42549-0618-60
 ;;9002226.02101,"619,42549-0618-60 ",.02)
 ;;42549-0618-60
 ;;9002226.02101,"619,42549-0618-84 ",.01)
 ;;42549-0618-84
 ;;9002226.02101,"619,42549-0618-84 ",.02)
 ;;42549-0618-84
 ;;9002226.02101,"619,42549-0618-90 ",.01)
 ;;42549-0618-90
 ;;9002226.02101,"619,42549-0618-90 ",.02)
 ;;42549-0618-90
 ;;9002226.02101,"619,42549-0628-05 ",.01)
 ;;42549-0628-05
 ;;9002226.02101,"619,42549-0628-05 ",.02)
 ;;42549-0628-05
 ;;9002226.02101,"619,42549-0640-02 ",.01)
 ;;42549-0640-02
 ;;9002226.02101,"619,42549-0640-02 ",.02)
 ;;42549-0640-02
 ;;9002226.02101,"619,42549-0640-28 ",.01)
 ;;42549-0640-28
 ;;9002226.02101,"619,42549-0640-28 ",.02)
 ;;42549-0640-28
 ;;9002226.02101,"619,42549-0640-30 ",.01)
 ;;42549-0640-30
 ;;9002226.02101,"619,42549-0640-30 ",.02)
 ;;42549-0640-30
 ;;9002226.02101,"619,42549-0640-60 ",.01)
 ;;42549-0640-60