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

BGP82Z47.m

Go to the documentation of this file.
BGP82Z47 ; 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,50436-8787-02 ",.02)
 ;;50436-8787-02
 ;;9002226.02101,"619,50436-8787-03 ",.01)
 ;;50436-8787-03
 ;;9002226.02101,"619,50436-8787-03 ",.02)
 ;;50436-8787-03
 ;;9002226.02101,"619,50436-8787-05 ",.01)
 ;;50436-8787-05
 ;;9002226.02101,"619,50436-8787-05 ",.02)
 ;;50436-8787-05
 ;;9002226.02101,"619,50436-8787-06 ",.01)
 ;;50436-8787-06
 ;;9002226.02101,"619,50436-8787-06 ",.02)
 ;;50436-8787-06
 ;;9002226.02101,"619,50436-8787-07 ",.01)
 ;;50436-8787-07
 ;;9002226.02101,"619,50436-8787-07 ",.02)
 ;;50436-8787-07
 ;;9002226.02101,"619,50436-8787-08 ",.01)
 ;;50436-8787-08
 ;;9002226.02101,"619,50436-8787-08 ",.02)
 ;;50436-8787-08
 ;;9002226.02101,"619,50436-8788-01 ",.01)
 ;;50436-8788-01
 ;;9002226.02101,"619,50436-8788-01 ",.02)
 ;;50436-8788-01
 ;;9002226.02101,"619,50458-0090-05 ",.01)
 ;;50458-0090-05
 ;;9002226.02101,"619,50458-0090-05 ",.02)
 ;;50458-0090-05
 ;;9002226.02101,"619,50458-0091-05 ",.01)
 ;;50458-0091-05
 ;;9002226.02101,"619,50458-0091-05 ",.02)
 ;;50458-0091-05
 ;;9002226.02101,"619,50458-0092-05 ",.01)
 ;;50458-0092-05
 ;;9002226.02101,"619,50458-0092-05 ",.02)
 ;;50458-0092-05
 ;;9002226.02101,"619,50458-0093-05 ",.01)
 ;;50458-0093-05
 ;;9002226.02101,"619,50458-0093-05 ",.02)
 ;;50458-0093-05
 ;;9002226.02101,"619,50458-0094-05 ",.01)
 ;;50458-0094-05
 ;;9002226.02101,"619,50458-0094-05 ",.02)
 ;;50458-0094-05
 ;;9002226.02101,"619,50458-0513-60 ",.01)
 ;;50458-0513-60
 ;;9002226.02101,"619,50458-0513-60 ",.02)
 ;;50458-0513-60
 ;;9002226.02101,"619,50458-0513-80 ",.01)
 ;;50458-0513-80
 ;;9002226.02101,"619,50458-0513-80 ",.02)
 ;;50458-0513-80
 ;;9002226.02101,"619,50458-0515-60 ",.01)
 ;;50458-0515-60
 ;;9002226.02101,"619,50458-0515-60 ",.02)
 ;;50458-0515-60
 ;;9002226.02101,"619,50458-0515-70 ",.01)
 ;;50458-0515-70
 ;;9002226.02101,"619,50458-0515-70 ",.02)
 ;;50458-0515-70
 ;;9002226.02101,"619,50458-0650-10 ",.01)
 ;;50458-0650-10
 ;;9002226.02101,"619,50458-0650-10 ",.02)
 ;;50458-0650-10
 ;;9002226.02101,"619,50458-0650-60 ",.01)
 ;;50458-0650-60
 ;;9002226.02101,"619,50458-0650-60 ",.02)
 ;;50458-0650-60
 ;;9002226.02101,"619,50458-0653-30 ",.01)
 ;;50458-0653-30
 ;;9002226.02101,"619,50458-0653-30 ",.02)
 ;;50458-0653-30
 ;;9002226.02101,"619,50458-0655-30 ",.01)
 ;;50458-0655-30
 ;;9002226.02101,"619,50458-0655-30 ",.02)
 ;;50458-0655-30
 ;;9002226.02101,"619,50458-0657-30 ",.01)
 ;;50458-0657-30
 ;;9002226.02101,"619,50458-0657-30 ",.02)
 ;;50458-0657-30
 ;;9002226.02101,"619,50458-0659-60 ",.01)
 ;;50458-0659-60
 ;;9002226.02101,"619,50458-0659-60 ",.02)
 ;;50458-0659-60
 ;;9002226.02101,"619,50458-0820-02 ",.01)
 ;;50458-0820-02
 ;;9002226.02101,"619,50458-0820-02 ",.02)
 ;;50458-0820-02
 ;;9002226.02101,"619,50458-0820-04 ",.01)
 ;;50458-0820-04
 ;;9002226.02101,"619,50458-0820-04 ",.02)
 ;;50458-0820-04
 ;;9002226.02101,"619,50458-0830-02 ",.01)
 ;;50458-0830-02
 ;;9002226.02101,"619,50458-0830-02 ",.02)
 ;;50458-0830-02
 ;;9002226.02101,"619,50458-0830-04 ",.01)
 ;;50458-0830-04
 ;;9002226.02101,"619,50458-0830-04 ",.02)
 ;;50458-0830-04
 ;;9002226.02101,"619,50458-0840-02 ",.01)
 ;;50458-0840-02
 ;;9002226.02101,"619,50458-0840-02 ",.02)
 ;;50458-0840-02
 ;;9002226.02101,"619,50458-0840-04 ",.01)
 ;;50458-0840-04
 ;;9002226.02101,"619,50458-0840-04 ",.02)
 ;;50458-0840-04
 ;;9002226.02101,"619,50458-0860-01 ",.01)
 ;;50458-0860-01
 ;;9002226.02101,"619,50458-0860-01 ",.02)
 ;;50458-0860-01
 ;;9002226.02101,"619,50458-0861-01 ",.01)
 ;;50458-0861-01
 ;;9002226.02101,"619,50458-0861-01 ",.02)
 ;;50458-0861-01
 ;;9002226.02101,"619,50458-0862-01 ",.01)
 ;;50458-0862-01
 ;;9002226.02101,"619,50458-0862-01 ",.02)
 ;;50458-0862-01
 ;;9002226.02101,"619,50458-0863-01 ",.01)
 ;;50458-0863-01
 ;;9002226.02101,"619,50458-0863-01 ",.02)
 ;;50458-0863-01
 ;;9002226.02101,"619,50458-0864-01 ",.01)
 ;;50458-0864-01
 ;;9002226.02101,"619,50458-0864-01 ",.02)
 ;;50458-0864-01
 ;;9002226.02101,"619,50474-0930-01 ",.01)
 ;;50474-0930-01
 ;;9002226.02101,"619,50474-0930-01 ",.02)
 ;;50474-0930-01
 ;;9002226.02101,"619,50474-0931-01 ",.01)
 ;;50474-0931-01
 ;;9002226.02101,"619,50474-0931-01 ",.02)
 ;;50474-0931-01
 ;;9002226.02101,"619,50474-0932-01 ",.01)
 ;;50474-0932-01
 ;;9002226.02101,"619,50474-0932-01 ",.02)
 ;;50474-0932-01
 ;;9002226.02101,"619,50991-0528-16 ",.01)
 ;;50991-0528-16
 ;;9002226.02101,"619,50991-0528-16 ",.02)
 ;;50991-0528-16
 ;;9002226.02101,"619,50991-0578-01 ",.01)
 ;;50991-0578-01
 ;;9002226.02101,"619,50991-0578-01 ",.02)
 ;;50991-0578-01
 ;;9002226.02101,"619,50991-0579-01 ",.01)
 ;;50991-0579-01
 ;;9002226.02101,"619,50991-0579-01 ",.02)
 ;;50991-0579-01
 ;;9002226.02101,"619,50991-0901-16 ",.01)
 ;;50991-0901-16
 ;;9002226.02101,"619,50991-0901-16 ",.02)
 ;;50991-0901-16
 ;;9002226.02101,"619,51021-0910-30 ",.01)
 ;;51021-0910-30
 ;;9002226.02101,"619,51021-0910-30 ",.02)
 ;;51021-0910-30
 ;;9002226.02101,"619,51021-0910-90 ",.01)
 ;;51021-0910-90
 ;;9002226.02101,"619,51021-0910-90 ",.02)
 ;;51021-0910-90
 ;;9002226.02101,"619,51079-0161-01 ",.01)
 ;;51079-0161-01
 ;;9002226.02101,"619,51079-0161-01 ",.02)
 ;;51079-0161-01
 ;;9002226.02101,"619,51079-0161-20 ",.01)
 ;;51079-0161-20
 ;;9002226.02101,"619,51079-0161-20 ",.02)
 ;;51079-0161-20
 ;;9002226.02101,"619,51079-0161-21 ",.01)
 ;;51079-0161-21
 ;;9002226.02101,"619,51079-0161-21 ",.02)
 ;;51079-0161-21
 ;;9002226.02101,"619,51079-0161-99 ",.01)
 ;;51079-0161-99
 ;;9002226.02101,"619,51079-0161-99 ",.02)
 ;;51079-0161-99
 ;;9002226.02101,"619,51079-0777-01 ",.01)
 ;;51079-0777-01
 ;;9002226.02101,"619,51079-0777-01 ",.02)
 ;;51079-0777-01
 ;;9002226.02101,"619,51079-0777-20 ",.01)
 ;;51079-0777-20
 ;;9002226.02101,"619,51079-0777-20 ",.02)
 ;;51079-0777-20
 ;;9002226.02101,"619,51079-0777-21 ",.01)
 ;;51079-0777-21
 ;;9002226.02101,"619,51079-0777-21 ",.02)
 ;;51079-0777-21
 ;;9002226.02101,"619,51079-0778-01 ",.01)
 ;;51079-0778-01
 ;;9002226.02101,"619,51079-0778-01 ",.02)
 ;;51079-0778-01
 ;;9002226.02101,"619,51079-0778-20 ",.01)
 ;;51079-0778-20
 ;;9002226.02101,"619,51079-0778-20 ",.02)
 ;;51079-0778-20
 ;;9002226.02101,"619,51079-0778-21 ",.01)
 ;;51079-0778-21
 ;;9002226.02101,"619,51079-0778-21 ",.02)
 ;;51079-0778-21
 ;;9002226.02101,"619,51079-0779-01 ",.01)
 ;;51079-0779-01
 ;;9002226.02101,"619,51079-0779-01 ",.02)
 ;;51079-0779-01
 ;;9002226.02101,"619,51079-0779-20 ",.01)
 ;;51079-0779-20
 ;;9002226.02101,"619,51079-0779-20 ",.02)
 ;;51079-0779-20
 ;;9002226.02101,"619,51079-0779-21 ",.01)
 ;;51079-0779-21
 ;;9002226.02101,"619,51079-0779-21 ",.02)
 ;;51079-0779-21
 ;;9002226.02101,"619,51079-0991-01 ",.01)
 ;;51079-0991-01
 ;;9002226.02101,"619,51079-0991-01 ",.02)
 ;;51079-0991-01
 ;;9002226.02101,"619,51079-0991-20 ",.01)
 ;;51079-0991-20
 ;;9002226.02101,"619,51079-0991-20 ",.02)
 ;;51079-0991-20
 ;;9002226.02101,"619,51079-0991-30 ",.01)
 ;;51079-0991-30
 ;;9002226.02101,"619,51079-0991-30 ",.02)
 ;;51079-0991-30
 ;;9002226.02101,"619,51079-0991-56 ",.01)
 ;;51079-0991-56
 ;;9002226.02101,"619,51079-0991-56 ",.02)
 ;;51079-0991-56
 ;;9002226.02101,"619,51138-0077-30 ",.01)
 ;;51138-0077-30
 ;;9002226.02101,"619,51138-0077-30 ",.02)
 ;;51138-0077-30
 ;;9002226.02101,"619,51224-0102-50 ",.01)
 ;;51224-0102-50
 ;;9002226.02101,"619,51224-0102-50 ",.02)
 ;;51224-0102-50
 ;;9002226.02101,"619,51224-0300-10 ",.01)
 ;;51224-0300-10
 ;;9002226.02101,"619,51224-0300-10 ",.02)
 ;;51224-0300-10
 ;;9002226.02101,"619,51293-0622-01 ",.01)
 ;;51293-0622-01
 ;;9002226.02101,"619,51293-0622-01 ",.02)
 ;;51293-0622-01
 ;;9002226.02101,"619,51407-0500-00 ",.01)
 ;;51407-0500-00
 ;;9002226.02101,"619,51407-0500-00 ",.02)
 ;;51407-0500-00
 ;;9002226.02101,"619,51407-0500-01 ",.01)
 ;;51407-0500-01
 ;;9002226.02101,"619,51407-0500-01 ",.02)
 ;;51407-0500-01
 ;;9002226.02101,"619,51407-0500-05 ",.01)
 ;;51407-0500-05
 ;;9002226.02101,"619,51407-0500-05 ",.02)
 ;;51407-0500-05
 ;;9002226.02101,"619,51407-0500-12 ",.01)
 ;;51407-0500-12
 ;;9002226.02101,"619,51407-0500-12 ",.02)
 ;;51407-0500-12
 ;;9002226.02101,"619,51407-0500-18 ",.01)
 ;;51407-0500-18
 ;;9002226.02101,"619,51407-0500-18 ",.02)
 ;;51407-0500-18
 ;;9002226.02101,"619,51407-0500-20 ",.01)
 ;;51407-0500-20
 ;;9002226.02101,"619,51407-0500-20 ",.02)
 ;;51407-0500-20
 ;;9002226.02101,"619,51407-0500-30 ",.01)
 ;;51407-0500-30
 ;;9002226.02101,"619,51407-0500-30 ",.02)
 ;;51407-0500-30
 ;;9002226.02101,"619,51407-0500-60 ",.01)
 ;;51407-0500-60
 ;;9002226.02101,"619,51407-0500-60 ",.02)
 ;;51407-0500-60
 ;;9002226.02101,"619,51407-0500-90 ",.01)
 ;;51407-0500-90
 ;;9002226.02101,"619,51407-0500-90 ",.02)
 ;;51407-0500-90
 ;;9002226.02101,"619,51655-0802-53 ",.01)
 ;;51655-0802-53
 ;;9002226.02101,"619,51655-0802-53 ",.02)
 ;;51655-0802-53
 ;;9002226.02101,"619,51655-0808-52 ",.01)
 ;;51655-0808-52
 ;;9002226.02101,"619,51655-0808-52 ",.02)
 ;;51655-0808-52
 ;;9002226.02101,"619,51655-0808-54 ",.01)
 ;;51655-0808-54
 ;;9002226.02101,"619,51655-0808-54 ",.02)
 ;;51655-0808-54
 ;;9002226.02101,"619,51772-0311-01 ",.01)
 ;;51772-0311-01
 ;;9002226.02101,"619,51772-0311-01 ",.02)
 ;;51772-0311-01
 ;;9002226.02101,"619,51772-0314-01 ",.01)
 ;;51772-0314-01
 ;;9002226.02101,"619,51772-0314-01 ",.02)
 ;;51772-0314-01
 ;;9002226.02101,"619,51862-0185-01 ",.01)
 ;;51862-0185-01
 ;;9002226.02101,"619,51862-0185-01 ",.02)
 ;;51862-0185-01
 ;;9002226.02101,"619,51862-0186-01 ",.01)
 ;;51862-0186-01
 ;;9002226.02101,"619,51862-0186-01 ",.02)
 ;;51862-0186-01
 ;;9002226.02101,"619,51862-0187-01 ",.01)
 ;;51862-0187-01
 ;;9002226.02101,"619,51862-0187-01 ",.02)
 ;;51862-0187-01
 ;;9002226.02101,"619,51862-0188-01 ",.01)
 ;;51862-0188-01
 ;;9002226.02101,"619,51862-0188-01 ",.02)
 ;;51862-0188-01
 ;;9002226.02101,"619,51862-0215-01 ",.01)
 ;;51862-0215-01
 ;;9002226.02101,"619,51862-0215-01 ",.02)
 ;;51862-0215-01
 ;;9002226.02101,"619,51862-0215-05 ",.01)
 ;;51862-0215-05
 ;;9002226.02101,"619,51862-0215-05 ",.02)
 ;;51862-0215-05
 ;;9002226.02101,"619,51862-0216-01 ",.01)
 ;;51862-0216-01
 ;;9002226.02101,"619,51862-0216-01 ",.02)
 ;;51862-0216-01
 ;;9002226.02101,"619,51862-0216-05 ",.01)
 ;;51862-0216-05
 ;;9002226.02101,"619,51862-0216-05 ",.02)
 ;;51862-0216-05
 ;;9002226.02101,"619,51862-0217-01 ",.01)
 ;;51862-0217-01
 ;;9002226.02101,"619,51862-0217-01 ",.02)
 ;;51862-0217-01
 ;;9002226.02101,"619,51862-0217-05 ",.01)
 ;;51862-0217-05
 ;;9002226.02101,"619,51862-0217-05 ",.02)
 ;;51862-0217-05
 ;;9002226.02101,"619,51862-0227-01 ",.01)
 ;;51862-0227-01
 ;;9002226.02101,"619,51862-0227-01 ",.02)
 ;;51862-0227-01
 ;;9002226.02101,"619,51862-0227-05 ",.01)
 ;;51862-0227-05
 ;;9002226.02101,"619,51862-0227-05 ",.02)
 ;;51862-0227-05
 ;;9002226.02101,"619,51862-0228-01 ",.01)
 ;;51862-0228-01
 ;;9002226.02101,"619,51862-0228-01 ",.02)
 ;;51862-0228-01
 ;;9002226.02101,"619,51862-0228-05 ",.01)
 ;;51862-0228-05
 ;;9002226.02101,"619,51862-0228-05 ",.02)
 ;;51862-0228-05
 ;;9002226.02101,"619,51862-0229-01 ",.01)
 ;;51862-0229-01
 ;;9002226.02101,"619,51862-0229-01 ",.02)
 ;;51862-0229-01
 ;;9002226.02101,"619,51862-0229-05 ",.01)
 ;;51862-0229-05
 ;;9002226.02101,"619,51862-0229-05 ",.02)
 ;;51862-0229-05
 ;;9002226.02101,"619,51862-0585-05 ",.01)
 ;;51862-0585-05
 ;;9002226.02101,"619,51862-0585-05 ",.02)
 ;;51862-0585-05
 ;;9002226.02101,"619,51862-0586-01 ",.01)
 ;;51862-0586-01
 ;;9002226.02101,"619,51862-0586-01 ",.02)
 ;;51862-0586-01
 ;;9002226.02101,"619,51862-0586-05 ",.01)
 ;;51862-0586-05
 ;;9002226.02101,"619,51862-0586-05 ",.02)
 ;;51862-0586-05
 ;;9002226.02101,"619,51862-0587-01 ",.01)
 ;;51862-0587-01