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

BGP81W22.m

Go to the documentation of this file.
BGP81W22 ; 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,"1795,54868-5121-02 ",.01)
 ;;54868-5121-02
 ;;9002226.02101,"1795,54868-5121-02 ",.02)
 ;;54868-5121-02
 ;;9002226.02101,"1795,54868-5121-03 ",.01)
 ;;54868-5121-03
 ;;9002226.02101,"1795,54868-5121-03 ",.02)
 ;;54868-5121-03
 ;;9002226.02101,"1795,54868-5121-04 ",.01)
 ;;54868-5121-04
 ;;9002226.02101,"1795,54868-5121-04 ",.02)
 ;;54868-5121-04
 ;;9002226.02101,"1795,54868-5277-00 ",.01)
 ;;54868-5277-00
 ;;9002226.02101,"1795,54868-5277-00 ",.02)
 ;;54868-5277-00
 ;;9002226.02101,"1795,54868-5277-01 ",.01)
 ;;54868-5277-01
 ;;9002226.02101,"1795,54868-5277-01 ",.02)
 ;;54868-5277-01
 ;;9002226.02101,"1795,54868-5277-02 ",.01)
 ;;54868-5277-02
 ;;9002226.02101,"1795,54868-5277-02 ",.02)
 ;;54868-5277-02
 ;;9002226.02101,"1795,54868-5661-00 ",.01)
 ;;54868-5661-00
 ;;9002226.02101,"1795,54868-5661-00 ",.02)
 ;;54868-5661-00
 ;;9002226.02101,"1795,54868-5957-00 ",.01)
 ;;54868-5957-00
 ;;9002226.02101,"1795,54868-5957-00 ",.02)
 ;;54868-5957-00
 ;;9002226.02101,"1795,54868-5959-00 ",.01)
 ;;54868-5959-00
 ;;9002226.02101,"1795,54868-5959-00 ",.02)
 ;;54868-5959-00
 ;;9002226.02101,"1795,54868-6196-00 ",.01)
 ;;54868-6196-00
 ;;9002226.02101,"1795,54868-6196-00 ",.02)
 ;;54868-6196-00
 ;;9002226.02101,"1795,54868-6196-01 ",.01)
 ;;54868-6196-01
 ;;9002226.02101,"1795,54868-6196-01 ",.02)
 ;;54868-6196-01
 ;;9002226.02101,"1795,54868-6377-00 ",.01)
 ;;54868-6377-00
 ;;9002226.02101,"1795,54868-6377-00 ",.02)
 ;;54868-6377-00
 ;;9002226.02101,"1795,55045-1266-08 ",.01)
 ;;55045-1266-08
 ;;9002226.02101,"1795,55045-1266-08 ",.02)
 ;;55045-1266-08
 ;;9002226.02101,"1795,55045-1643-09 ",.01)
 ;;55045-1643-09
 ;;9002226.02101,"1795,55045-1643-09 ",.02)
 ;;55045-1643-09
 ;;9002226.02101,"1795,55154-2539-04 ",.01)
 ;;55154-2539-04
 ;;9002226.02101,"1795,55154-2539-04 ",.02)
 ;;55154-2539-04
 ;;9002226.02101,"1795,55154-2539-07 ",.01)
 ;;55154-2539-07
 ;;9002226.02101,"1795,55154-2539-07 ",.02)
 ;;55154-2539-07
 ;;9002226.02101,"1795,55154-2540-04 ",.01)
 ;;55154-2540-04
 ;;9002226.02101,"1795,55154-2540-04 ",.02)
 ;;55154-2540-04
 ;;9002226.02101,"1795,55154-2540-07 ",.01)
 ;;55154-2540-07
 ;;9002226.02101,"1795,55154-2540-07 ",.02)
 ;;55154-2540-07
 ;;9002226.02101,"1795,55154-5377-00 ",.01)
 ;;55154-5377-00
 ;;9002226.02101,"1795,55154-5377-00 ",.02)
 ;;55154-5377-00
 ;;9002226.02101,"1795,55289-0035-01 ",.01)
 ;;55289-0035-01
 ;;9002226.02101,"1795,55289-0035-01 ",.02)
 ;;55289-0035-01
 ;;9002226.02101,"1795,55289-0035-14 ",.01)
 ;;55289-0035-14
 ;;9002226.02101,"1795,55289-0035-14 ",.02)
 ;;55289-0035-14
 ;;9002226.02101,"1795,55289-0035-20 ",.01)
 ;;55289-0035-20
 ;;9002226.02101,"1795,55289-0035-20 ",.02)
 ;;55289-0035-20
 ;;9002226.02101,"1795,55289-0035-28 ",.01)
 ;;55289-0035-28
 ;;9002226.02101,"1795,55289-0035-28 ",.02)
 ;;55289-0035-28
 ;;9002226.02101,"1795,55289-0035-30 ",.01)
 ;;55289-0035-30
 ;;9002226.02101,"1795,55289-0035-30 ",.02)
 ;;55289-0035-30
 ;;9002226.02101,"1795,55289-0035-60 ",.01)
 ;;55289-0035-60
 ;;9002226.02101,"1795,55289-0035-60 ",.02)
 ;;55289-0035-60
 ;;9002226.02101,"1795,55289-0062-30 ",.01)
 ;;55289-0062-30
 ;;9002226.02101,"1795,55289-0062-30 ",.02)
 ;;55289-0062-30
 ;;9002226.02101,"1795,55289-0062-60 ",.01)
 ;;55289-0062-60
 ;;9002226.02101,"1795,55289-0062-60 ",.02)
 ;;55289-0062-60
 ;;9002226.02101,"1795,55289-0095-06 ",.01)
 ;;55289-0095-06
 ;;9002226.02101,"1795,55289-0095-06 ",.02)
 ;;55289-0095-06
 ;;9002226.02101,"1795,55289-0095-15 ",.01)
 ;;55289-0095-15
 ;;9002226.02101,"1795,55289-0095-15 ",.02)
 ;;55289-0095-15
 ;;9002226.02101,"1795,55289-0095-17 ",.01)
 ;;55289-0095-17
 ;;9002226.02101,"1795,55289-0095-17 ",.02)
 ;;55289-0095-17
 ;;9002226.02101,"1795,55289-0095-20 ",.01)
 ;;55289-0095-20
 ;;9002226.02101,"1795,55289-0095-20 ",.02)
 ;;55289-0095-20
 ;;9002226.02101,"1795,55289-0095-30 ",.01)
 ;;55289-0095-30
 ;;9002226.02101,"1795,55289-0095-30 ",.02)
 ;;55289-0095-30
 ;;9002226.02101,"1795,55289-0095-60 ",.01)
 ;;55289-0095-60
 ;;9002226.02101,"1795,55289-0095-60 ",.02)
 ;;55289-0095-60
 ;;9002226.02101,"1795,55289-0100-01 ",.01)
 ;;55289-0100-01
 ;;9002226.02101,"1795,55289-0100-01 ",.02)
 ;;55289-0100-01
 ;;9002226.02101,"1795,55289-0100-10 ",.01)
 ;;55289-0100-10
 ;;9002226.02101,"1795,55289-0100-10 ",.02)
 ;;55289-0100-10
 ;;9002226.02101,"1795,55289-0100-15 ",.01)
 ;;55289-0100-15
 ;;9002226.02101,"1795,55289-0100-15 ",.02)
 ;;55289-0100-15
 ;;9002226.02101,"1795,55289-0100-20 ",.01)
 ;;55289-0100-20
 ;;9002226.02101,"1795,55289-0100-20 ",.02)
 ;;55289-0100-20
 ;;9002226.02101,"1795,55289-0100-30 ",.01)
 ;;55289-0100-30
 ;;9002226.02101,"1795,55289-0100-30 ",.02)
 ;;55289-0100-30
 ;;9002226.02101,"1795,55289-0100-40 ",.01)
 ;;55289-0100-40
 ;;9002226.02101,"1795,55289-0100-40 ",.02)
 ;;55289-0100-40
 ;;9002226.02101,"1795,55289-0102-10 ",.01)
 ;;55289-0102-10
 ;;9002226.02101,"1795,55289-0102-10 ",.02)
 ;;55289-0102-10
 ;;9002226.02101,"1795,55289-0102-15 ",.01)
 ;;55289-0102-15
 ;;9002226.02101,"1795,55289-0102-15 ",.02)
 ;;55289-0102-15
 ;;9002226.02101,"1795,55289-0102-20 ",.01)
 ;;55289-0102-20
 ;;9002226.02101,"1795,55289-0102-20 ",.02)
 ;;55289-0102-20
 ;;9002226.02101,"1795,55289-0102-30 ",.01)
 ;;55289-0102-30
 ;;9002226.02101,"1795,55289-0102-30 ",.02)
 ;;55289-0102-30
 ;;9002226.02101,"1795,55289-0138-12 ",.01)
 ;;55289-0138-12
 ;;9002226.02101,"1795,55289-0138-12 ",.02)
 ;;55289-0138-12
 ;;9002226.02101,"1795,55289-0138-17 ",.01)
 ;;55289-0138-17
 ;;9002226.02101,"1795,55289-0138-17 ",.02)
 ;;55289-0138-17
 ;;9002226.02101,"1795,55289-0138-20 ",.01)
 ;;55289-0138-20
 ;;9002226.02101,"1795,55289-0138-20 ",.02)
 ;;55289-0138-20
 ;;9002226.02101,"1795,55289-0138-25 ",.01)
 ;;55289-0138-25
 ;;9002226.02101,"1795,55289-0138-25 ",.02)
 ;;55289-0138-25
 ;;9002226.02101,"1795,55289-0138-30 ",.01)
 ;;55289-0138-30
 ;;9002226.02101,"1795,55289-0138-30 ",.02)
 ;;55289-0138-30
 ;;9002226.02101,"1795,55289-0139-06 ",.01)
 ;;55289-0139-06
 ;;9002226.02101,"1795,55289-0139-06 ",.02)
 ;;55289-0139-06
 ;;9002226.02101,"1795,55289-0139-10 ",.01)
 ;;55289-0139-10
 ;;9002226.02101,"1795,55289-0139-10 ",.02)
 ;;55289-0139-10
 ;;9002226.02101,"1795,55289-0139-12 ",.01)
 ;;55289-0139-12
 ;;9002226.02101,"1795,55289-0139-12 ",.02)
 ;;55289-0139-12
 ;;9002226.02101,"1795,55289-0139-20 ",.01)
 ;;55289-0139-20
 ;;9002226.02101,"1795,55289-0139-20 ",.02)
 ;;55289-0139-20
 ;;9002226.02101,"1795,55289-0139-30 ",.01)
 ;;55289-0139-30
 ;;9002226.02101,"1795,55289-0139-30 ",.02)
 ;;55289-0139-30
 ;;9002226.02101,"1795,55289-0139-40 ",.01)
 ;;55289-0139-40
 ;;9002226.02101,"1795,55289-0139-40 ",.02)
 ;;55289-0139-40
 ;;9002226.02101,"1795,55289-0139-60 ",.01)
 ;;55289-0139-60
 ;;9002226.02101,"1795,55289-0139-60 ",.02)
 ;;55289-0139-60
 ;;9002226.02101,"1795,55289-0226-10 ",.01)
 ;;55289-0226-10
 ;;9002226.02101,"1795,55289-0226-10 ",.02)
 ;;55289-0226-10
 ;;9002226.02101,"1795,55289-0226-15 ",.01)
 ;;55289-0226-15
 ;;9002226.02101,"1795,55289-0226-15 ",.02)
 ;;55289-0226-15
 ;;9002226.02101,"1795,55289-0226-30 ",.01)
 ;;55289-0226-30
 ;;9002226.02101,"1795,55289-0226-30 ",.02)
 ;;55289-0226-30
 ;;9002226.02101,"1795,55289-0230-10 ",.01)
 ;;55289-0230-10
 ;;9002226.02101,"1795,55289-0230-10 ",.02)
 ;;55289-0230-10
 ;;9002226.02101,"1795,55289-0354-10 ",.01)
 ;;55289-0354-10
 ;;9002226.02101,"1795,55289-0354-10 ",.02)
 ;;55289-0354-10
 ;;9002226.02101,"1795,55289-0464-02 ",.01)
 ;;55289-0464-02
 ;;9002226.02101,"1795,55289-0464-02 ",.02)
 ;;55289-0464-02
 ;;9002226.02101,"1795,55289-0464-05 ",.01)
 ;;55289-0464-05
 ;;9002226.02101,"1795,55289-0464-05 ",.02)
 ;;55289-0464-05
 ;;9002226.02101,"1795,55289-0464-10 ",.01)
 ;;55289-0464-10
 ;;9002226.02101,"1795,55289-0464-10 ",.02)
 ;;55289-0464-10
 ;;9002226.02101,"1795,55289-0464-12 ",.01)
 ;;55289-0464-12
 ;;9002226.02101,"1795,55289-0464-12 ",.02)
 ;;55289-0464-12
 ;;9002226.02101,"1795,55289-0464-15 ",.01)
 ;;55289-0464-15
 ;;9002226.02101,"1795,55289-0464-15 ",.02)
 ;;55289-0464-15
 ;;9002226.02101,"1795,55289-0464-20 ",.01)
 ;;55289-0464-20
 ;;9002226.02101,"1795,55289-0464-20 ",.02)
 ;;55289-0464-20
 ;;9002226.02101,"1795,55289-0464-25 ",.01)
 ;;55289-0464-25
 ;;9002226.02101,"1795,55289-0464-25 ",.02)
 ;;55289-0464-25
 ;;9002226.02101,"1795,55289-0464-30 ",.01)
 ;;55289-0464-30
 ;;9002226.02101,"1795,55289-0464-30 ",.02)
 ;;55289-0464-30
 ;;9002226.02101,"1795,55289-0464-60 ",.01)
 ;;55289-0464-60
 ;;9002226.02101,"1795,55289-0464-60 ",.02)
 ;;55289-0464-60
 ;;9002226.02101,"1795,55289-0464-79 ",.01)
 ;;55289-0464-79
 ;;9002226.02101,"1795,55289-0464-79 ",.02)
 ;;55289-0464-79
 ;;9002226.02101,"1795,55289-0531-04 ",.01)
 ;;55289-0531-04
 ;;9002226.02101,"1795,55289-0531-04 ",.02)
 ;;55289-0531-04
 ;;9002226.02101,"1795,55289-0762-30 ",.01)
 ;;55289-0762-30
 ;;9002226.02101,"1795,55289-0762-30 ",.02)
 ;;55289-0762-30
 ;;9002226.02101,"1795,55289-0912-10 ",.01)
 ;;55289-0912-10
 ;;9002226.02101,"1795,55289-0912-10 ",.02)
 ;;55289-0912-10
 ;;9002226.02101,"1795,55289-0912-30 ",.01)
 ;;55289-0912-30
 ;;9002226.02101,"1795,55289-0912-30 ",.02)
 ;;55289-0912-30
 ;;9002226.02101,"1795,55289-0912-60 ",.01)
 ;;55289-0912-60
 ;;9002226.02101,"1795,55289-0912-60 ",.02)
 ;;55289-0912-60
 ;;9002226.02101,"1795,55289-0923-01 ",.01)
 ;;55289-0923-01
 ;;9002226.02101,"1795,55289-0923-01 ",.02)
 ;;55289-0923-01
 ;;9002226.02101,"1795,55289-0923-20 ",.01)
 ;;55289-0923-20
 ;;9002226.02101,"1795,55289-0923-20 ",.02)
 ;;55289-0923-20
 ;;9002226.02101,"1795,55289-0923-28 ",.01)
 ;;55289-0923-28
 ;;9002226.02101,"1795,55289-0923-28 ",.02)
 ;;55289-0923-28
 ;;9002226.02101,"1795,55289-0923-30 ",.01)
 ;;55289-0923-30
 ;;9002226.02101,"1795,55289-0923-30 ",.02)
 ;;55289-0923-30
 ;;9002226.02101,"1795,55289-0928-02 ",.01)
 ;;55289-0928-02
 ;;9002226.02101,"1795,55289-0928-02 ",.02)
 ;;55289-0928-02
 ;;9002226.02101,"1795,55289-0928-04 ",.01)
 ;;55289-0928-04
 ;;9002226.02101,"1795,55289-0928-04 ",.02)
 ;;55289-0928-04
 ;;9002226.02101,"1795,55289-0928-06 ",.01)
 ;;55289-0928-06
 ;;9002226.02101,"1795,55289-0928-06 ",.02)
 ;;55289-0928-06
 ;;9002226.02101,"1795,55289-0928-79 ",.01)
 ;;55289-0928-79
 ;;9002226.02101,"1795,55289-0928-79 ",.02)
 ;;55289-0928-79
 ;;9002226.02101,"1795,55289-0940-02 ",.01)
 ;;55289-0940-02
 ;;9002226.02101,"1795,55289-0940-02 ",.02)
 ;;55289-0940-02
 ;;9002226.02101,"1795,55289-0940-06 ",.01)
 ;;55289-0940-06
 ;;9002226.02101,"1795,55289-0940-06 ",.02)
 ;;55289-0940-06
 ;;9002226.02101,"1795,55289-0948-02 ",.01)
 ;;55289-0948-02
 ;;9002226.02101,"1795,55289-0948-02 ",.02)
 ;;55289-0948-02
 ;;9002226.02101,"1795,55289-0956-20 ",.01)
 ;;55289-0956-20
 ;;9002226.02101,"1795,55289-0956-20 ",.02)
 ;;55289-0956-20
 ;;9002226.02101,"1795,55494-0100-10 ",.01)
 ;;55494-0100-10
 ;;9002226.02101,"1795,55494-0100-10 ",.02)
 ;;55494-0100-10
 ;;9002226.02101,"1795,55700-0033-30 ",.01)
 ;;55700-0033-30
 ;;9002226.02101,"1795,55700-0033-30 ",.02)
 ;;55700-0033-30
 ;;9002226.02101,"1795,55700-0042-15 ",.01)
 ;;55700-0042-15
 ;;9002226.02101,"1795,55700-0042-15 ",.02)
 ;;55700-0042-15
 ;;9002226.02101,"1795,55700-0042-20 ",.01)
 ;;55700-0042-20
 ;;9002226.02101,"1795,55700-0042-20 ",.02)
 ;;55700-0042-20
 ;;9002226.02101,"1795,55700-0042-30 ",.01)
 ;;55700-0042-30
 ;;9002226.02101,"1795,55700-0042-30 ",.02)
 ;;55700-0042-30
 ;;9002226.02101,"1795,55700-0042-60 ",.01)
 ;;55700-0042-60
 ;;9002226.02101,"1795,55700-0042-60 ",.02)
 ;;55700-0042-60
 ;;9002226.02101,"1795,55700-0169-30 ",.01)
 ;;55700-0169-30
 ;;9002226.02101,"1795,55700-0169-30 ",.02)
 ;;55700-0169-30
 ;;9002226.02101,"1795,55700-0202-20 ",.01)
 ;;55700-0202-20