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

BGP13D19.m

Go to the documentation of this file.
BGP13D19 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
 ;
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,"994,55289-0100-01 ",.02)
 ;;55289-0100-01
 ;;9002226.02101,"994,55289-0100-10 ",.01)
 ;;55289-0100-10
 ;;9002226.02101,"994,55289-0100-10 ",.02)
 ;;55289-0100-10
 ;;9002226.02101,"994,55289-0100-15 ",.01)
 ;;55289-0100-15
 ;;9002226.02101,"994,55289-0100-15 ",.02)
 ;;55289-0100-15
 ;;9002226.02101,"994,55289-0100-20 ",.01)
 ;;55289-0100-20
 ;;9002226.02101,"994,55289-0100-20 ",.02)
 ;;55289-0100-20
 ;;9002226.02101,"994,55289-0100-30 ",.01)
 ;;55289-0100-30
 ;;9002226.02101,"994,55289-0100-30 ",.02)
 ;;55289-0100-30
 ;;9002226.02101,"994,55289-0100-40 ",.01)
 ;;55289-0100-40
 ;;9002226.02101,"994,55289-0100-40 ",.02)
 ;;55289-0100-40
 ;;9002226.02101,"994,55289-0138-01 ",.01)
 ;;55289-0138-01
 ;;9002226.02101,"994,55289-0138-01 ",.02)
 ;;55289-0138-01
 ;;9002226.02101,"994,55289-0138-12 ",.01)
 ;;55289-0138-12
 ;;9002226.02101,"994,55289-0138-12 ",.02)
 ;;55289-0138-12
 ;;9002226.02101,"994,55289-0138-20 ",.01)
 ;;55289-0138-20
 ;;9002226.02101,"994,55289-0138-20 ",.02)
 ;;55289-0138-20
 ;;9002226.02101,"994,55289-0138-30 ",.01)
 ;;55289-0138-30
 ;;9002226.02101,"994,55289-0138-30 ",.02)
 ;;55289-0138-30
 ;;9002226.02101,"994,55289-0139-01 ",.01)
 ;;55289-0139-01
 ;;9002226.02101,"994,55289-0139-01 ",.02)
 ;;55289-0139-01
 ;;9002226.02101,"994,55289-0139-06 ",.01)
 ;;55289-0139-06
 ;;9002226.02101,"994,55289-0139-06 ",.02)
 ;;55289-0139-06
 ;;9002226.02101,"994,55289-0139-10 ",.01)
 ;;55289-0139-10
 ;;9002226.02101,"994,55289-0139-10 ",.02)
 ;;55289-0139-10
 ;;9002226.02101,"994,55289-0139-12 ",.01)
 ;;55289-0139-12
 ;;9002226.02101,"994,55289-0139-12 ",.02)
 ;;55289-0139-12
 ;;9002226.02101,"994,55289-0139-20 ",.01)
 ;;55289-0139-20
 ;;9002226.02101,"994,55289-0139-20 ",.02)
 ;;55289-0139-20
 ;;9002226.02101,"994,55289-0139-30 ",.01)
 ;;55289-0139-30
 ;;9002226.02101,"994,55289-0139-30 ",.02)
 ;;55289-0139-30
 ;;9002226.02101,"994,55289-0139-40 ",.01)
 ;;55289-0139-40
 ;;9002226.02101,"994,55289-0139-40 ",.02)
 ;;55289-0139-40
 ;;9002226.02101,"994,55289-0139-60 ",.01)
 ;;55289-0139-60
 ;;9002226.02101,"994,55289-0139-60 ",.02)
 ;;55289-0139-60
 ;;9002226.02101,"994,55289-0139-97 ",.01)
 ;;55289-0139-97
 ;;9002226.02101,"994,55289-0139-97 ",.02)
 ;;55289-0139-97
 ;;9002226.02101,"994,55289-0195-10 ",.01)
 ;;55289-0195-10
 ;;9002226.02101,"994,55289-0195-10 ",.02)
 ;;55289-0195-10
 ;;9002226.02101,"994,55289-0226-10 ",.01)
 ;;55289-0226-10
 ;;9002226.02101,"994,55289-0226-10 ",.02)
 ;;55289-0226-10
 ;;9002226.02101,"994,55289-0226-15 ",.01)
 ;;55289-0226-15
 ;;9002226.02101,"994,55289-0226-15 ",.02)
 ;;55289-0226-15
 ;;9002226.02101,"994,55289-0354-10 ",.01)
 ;;55289-0354-10
 ;;9002226.02101,"994,55289-0354-10 ",.02)
 ;;55289-0354-10
 ;;9002226.02101,"994,55289-0464-02 ",.01)
 ;;55289-0464-02
 ;;9002226.02101,"994,55289-0464-02 ",.02)
 ;;55289-0464-02
 ;;9002226.02101,"994,55289-0464-10 ",.01)
 ;;55289-0464-10
 ;;9002226.02101,"994,55289-0464-10 ",.02)
 ;;55289-0464-10
 ;;9002226.02101,"994,55289-0464-12 ",.01)
 ;;55289-0464-12
 ;;9002226.02101,"994,55289-0464-12 ",.02)
 ;;55289-0464-12
 ;;9002226.02101,"994,55289-0464-15 ",.01)
 ;;55289-0464-15
 ;;9002226.02101,"994,55289-0464-15 ",.02)
 ;;55289-0464-15
 ;;9002226.02101,"994,55289-0464-20 ",.01)
 ;;55289-0464-20
 ;;9002226.02101,"994,55289-0464-20 ",.02)
 ;;55289-0464-20
 ;;9002226.02101,"994,55289-0464-25 ",.01)
 ;;55289-0464-25
 ;;9002226.02101,"994,55289-0464-25 ",.02)
 ;;55289-0464-25
 ;;9002226.02101,"994,55289-0464-30 ",.01)
 ;;55289-0464-30
 ;;9002226.02101,"994,55289-0464-30 ",.02)
 ;;55289-0464-30
 ;;9002226.02101,"994,55289-0464-79 ",.01)
 ;;55289-0464-79
 ;;9002226.02101,"994,55289-0464-79 ",.02)
 ;;55289-0464-79
 ;;9002226.02101,"994,55289-0479-01 ",.01)
 ;;55289-0479-01
 ;;9002226.02101,"994,55289-0479-01 ",.02)
 ;;55289-0479-01
 ;;9002226.02101,"994,55289-0479-10 ",.01)
 ;;55289-0479-10
 ;;9002226.02101,"994,55289-0479-10 ",.02)
 ;;55289-0479-10
 ;;9002226.02101,"994,55289-0479-12 ",.01)
 ;;55289-0479-12
 ;;9002226.02101,"994,55289-0479-12 ",.02)
 ;;55289-0479-12
 ;;9002226.02101,"994,55289-0479-15 ",.01)
 ;;55289-0479-15
 ;;9002226.02101,"994,55289-0479-15 ",.02)
 ;;55289-0479-15
 ;;9002226.02101,"994,55289-0479-20 ",.01)
 ;;55289-0479-20
 ;;9002226.02101,"994,55289-0479-20 ",.02)
 ;;55289-0479-20
 ;;9002226.02101,"994,55289-0479-24 ",.01)
 ;;55289-0479-24
 ;;9002226.02101,"994,55289-0479-24 ",.02)
 ;;55289-0479-24
 ;;9002226.02101,"994,55289-0479-30 ",.01)
 ;;55289-0479-30
 ;;9002226.02101,"994,55289-0479-30 ",.02)
 ;;55289-0479-30
 ;;9002226.02101,"994,55289-0479-97 ",.01)
 ;;55289-0479-97
 ;;9002226.02101,"994,55289-0479-97 ",.02)
 ;;55289-0479-97
 ;;9002226.02101,"994,55289-0531-04 ",.01)
 ;;55289-0531-04
 ;;9002226.02101,"994,55289-0531-04 ",.02)
 ;;55289-0531-04
 ;;9002226.02101,"994,55289-0912-01 ",.01)
 ;;55289-0912-01
 ;;9002226.02101,"994,55289-0912-01 ",.02)
 ;;55289-0912-01
 ;;9002226.02101,"994,55289-0912-10 ",.01)
 ;;55289-0912-10
 ;;9002226.02101,"994,55289-0912-10 ",.02)
 ;;55289-0912-10
 ;;9002226.02101,"994,55289-0912-30 ",.01)
 ;;55289-0912-30
 ;;9002226.02101,"994,55289-0912-30 ",.02)
 ;;55289-0912-30
 ;;9002226.02101,"994,55289-0912-60 ",.01)
 ;;55289-0912-60
 ;;9002226.02101,"994,55289-0912-60 ",.02)
 ;;55289-0912-60
 ;;9002226.02101,"994,55289-0948-02 ",.01)
 ;;55289-0948-02
 ;;9002226.02101,"994,55289-0948-02 ",.02)
 ;;55289-0948-02
 ;;9002226.02101,"994,55297-0923-78 ",.01)
 ;;55297-0923-78
 ;;9002226.02101,"994,55297-0923-78 ",.02)
 ;;55297-0923-78
 ;;9002226.02101,"994,55887-0232-01 ",.01)
 ;;55887-0232-01
 ;;9002226.02101,"994,55887-0232-01 ",.02)
 ;;55887-0232-01
 ;;9002226.02101,"994,55887-0232-15 ",.01)
 ;;55887-0232-15
 ;;9002226.02101,"994,55887-0232-15 ",.02)
 ;;55887-0232-15
 ;;9002226.02101,"994,55887-0232-20 ",.01)
 ;;55887-0232-20
 ;;9002226.02101,"994,55887-0232-20 ",.02)
 ;;55887-0232-20
 ;;9002226.02101,"994,55887-0232-60 ",.01)
 ;;55887-0232-60
 ;;9002226.02101,"994,55887-0232-60 ",.02)
 ;;55887-0232-60
 ;;9002226.02101,"994,55887-0232-90 ",.01)
 ;;55887-0232-90
 ;;9002226.02101,"994,55887-0232-90 ",.02)
 ;;55887-0232-90
 ;;9002226.02101,"994,55887-0247-04 ",.01)
 ;;55887-0247-04
 ;;9002226.02101,"994,55887-0247-04 ",.02)
 ;;55887-0247-04
 ;;9002226.02101,"994,55887-0422-10 ",.01)
 ;;55887-0422-10
 ;;9002226.02101,"994,55887-0422-10 ",.02)
 ;;55887-0422-10
 ;;9002226.02101,"994,55887-0422-30 ",.01)
 ;;55887-0422-30
 ;;9002226.02101,"994,55887-0422-30 ",.02)
 ;;55887-0422-30
 ;;9002226.02101,"994,55887-0422-60 ",.01)
 ;;55887-0422-60
 ;;9002226.02101,"994,55887-0422-60 ",.02)
 ;;55887-0422-60
 ;;9002226.02101,"994,55887-0422-90 ",.01)
 ;;55887-0422-90
 ;;9002226.02101,"994,55887-0422-90 ",.02)
 ;;55887-0422-90
 ;;9002226.02101,"994,55887-0562-04 ",.01)
 ;;55887-0562-04
 ;;9002226.02101,"994,55887-0562-04 ",.02)
 ;;55887-0562-04
 ;;9002226.02101,"994,55887-0675-04 ",.01)
 ;;55887-0675-04
 ;;9002226.02101,"994,55887-0675-04 ",.02)
 ;;55887-0675-04
 ;;9002226.02101,"994,55887-0766-04 ",.01)
 ;;55887-0766-04
 ;;9002226.02101,"994,55887-0766-04 ",.02)
 ;;55887-0766-04
 ;;9002226.02101,"994,55887-0885-15 ",.01)
 ;;55887-0885-15
 ;;9002226.02101,"994,55887-0885-15 ",.02)
 ;;55887-0885-15
 ;;9002226.02101,"994,55887-0885-20 ",.01)
 ;;55887-0885-20
 ;;9002226.02101,"994,55887-0885-20 ",.02)
 ;;55887-0885-20
 ;;9002226.02101,"994,55887-0885-30 ",.01)
 ;;55887-0885-30
 ;;9002226.02101,"994,55887-0885-30 ",.02)
 ;;55887-0885-30
 ;;9002226.02101,"994,55887-0936-05 ",.01)
 ;;55887-0936-05
 ;;9002226.02101,"994,55887-0936-05 ",.02)
 ;;55887-0936-05
 ;;9002226.02101,"994,55887-0936-06 ",.01)
 ;;55887-0936-06
 ;;9002226.02101,"994,55887-0936-06 ",.02)
 ;;55887-0936-06
 ;;9002226.02101,"994,55887-0936-08 ",.01)
 ;;55887-0936-08
 ;;9002226.02101,"994,55887-0936-08 ",.02)
 ;;55887-0936-08
 ;;9002226.02101,"994,55887-0936-10 ",.01)
 ;;55887-0936-10
 ;;9002226.02101,"994,55887-0936-10 ",.02)
 ;;55887-0936-10
 ;;9002226.02101,"994,55887-0936-12 ",.01)
 ;;55887-0936-12
 ;;9002226.02101,"994,55887-0936-12 ",.02)
 ;;55887-0936-12
 ;;9002226.02101,"994,55887-0936-15 ",.01)
 ;;55887-0936-15
 ;;9002226.02101,"994,55887-0936-15 ",.02)
 ;;55887-0936-15
 ;;9002226.02101,"994,55887-0936-20 ",.01)
 ;;55887-0936-20
 ;;9002226.02101,"994,55887-0936-20 ",.02)
 ;;55887-0936-20
 ;;9002226.02101,"994,55887-0936-21 ",.01)
 ;;55887-0936-21
 ;;9002226.02101,"994,55887-0936-21 ",.02)
 ;;55887-0936-21
 ;;9002226.02101,"994,55887-0936-25 ",.01)
 ;;55887-0936-25
 ;;9002226.02101,"994,55887-0936-25 ",.02)
 ;;55887-0936-25
 ;;9002226.02101,"994,55887-0936-28 ",.01)
 ;;55887-0936-28
 ;;9002226.02101,"994,55887-0936-28 ",.02)
 ;;55887-0936-28
 ;;9002226.02101,"994,55887-0936-30 ",.01)
 ;;55887-0936-30
 ;;9002226.02101,"994,55887-0936-30 ",.02)
 ;;55887-0936-30
 ;;9002226.02101,"994,55887-0936-50 ",.01)
 ;;55887-0936-50
 ;;9002226.02101,"994,55887-0936-50 ",.02)
 ;;55887-0936-50
 ;;9002226.02101,"994,55887-0936-60 ",.01)
 ;;55887-0936-60
 ;;9002226.02101,"994,55887-0936-60 ",.02)
 ;;55887-0936-60
 ;;9002226.02101,"994,55887-0936-90 ",.01)
 ;;55887-0936-90
 ;;9002226.02101,"994,55887-0936-90 ",.02)
 ;;55887-0936-90
 ;;9002226.02101,"994,55887-0942-15 ",.01)
 ;;55887-0942-15
 ;;9002226.02101,"994,55887-0942-15 ",.02)
 ;;55887-0942-15
 ;;9002226.02101,"994,55887-0973-01 ",.01)
 ;;55887-0973-01
 ;;9002226.02101,"994,55887-0973-01 ",.02)
 ;;55887-0973-01
 ;;9002226.02101,"994,55887-0973-20 ",.01)
 ;;55887-0973-20
 ;;9002226.02101,"994,55887-0973-20 ",.02)
 ;;55887-0973-20
 ;;9002226.02101,"994,55887-0973-28 ",.01)
 ;;55887-0973-28
 ;;9002226.02101,"994,55887-0973-28 ",.02)
 ;;55887-0973-28
 ;;9002226.02101,"994,55887-0973-30 ",.01)
 ;;55887-0973-30
 ;;9002226.02101,"994,55887-0973-30 ",.02)
 ;;55887-0973-30
 ;;9002226.02101,"994,55887-0973-90 ",.01)
 ;;55887-0973-90
 ;;9002226.02101,"994,55887-0973-90 ",.02)
 ;;55887-0973-90
 ;;9002226.02101,"994,55887-0985-10 ",.01)
 ;;55887-0985-10
 ;;9002226.02101,"994,55887-0985-10 ",.02)
 ;;55887-0985-10
 ;;9002226.02101,"994,55887-0985-15 ",.01)
 ;;55887-0985-15
 ;;9002226.02101,"994,55887-0985-15 ",.02)
 ;;55887-0985-15
 ;;9002226.02101,"994,55887-0985-20 ",.01)
 ;;55887-0985-20
 ;;9002226.02101,"994,55887-0985-20 ",.02)
 ;;55887-0985-20
 ;;9002226.02101,"994,55887-0985-21 ",.01)
 ;;55887-0985-21
 ;;9002226.02101,"994,55887-0985-21 ",.02)
 ;;55887-0985-21
 ;;9002226.02101,"994,55887-0985-30 ",.01)
 ;;55887-0985-30
 ;;9002226.02101,"994,55887-0985-30 ",.02)
 ;;55887-0985-30
 ;;9002226.02101,"994,55887-0985-90 ",.01)
 ;;55887-0985-90
 ;;9002226.02101,"994,55887-0985-90 ",.02)
 ;;55887-0985-90
 ;;9002226.02101,"994,57664-0107-88 ",.01)
 ;;57664-0107-88
 ;;9002226.02101,"994,57664-0107-88 ",.02)
 ;;57664-0107-88
 ;;9002226.02101,"994,57664-0108-88 ",.01)
 ;;57664-0108-88
 ;;9002226.02101,"994,57664-0108-88 ",.02)
 ;;57664-0108-88
 ;;9002226.02101,"994,57664-0109-88 ",.01)
 ;;57664-0109-88
 ;;9002226.02101,"994,57664-0109-88 ",.02)
 ;;57664-0109-88
 ;;9002226.02101,"994,57664-0114-08 ",.01)
 ;;57664-0114-08
 ;;9002226.02101,"994,57664-0114-08 ",.02)
 ;;57664-0114-08
 ;;9002226.02101,"994,57664-0114-18 ",.01)
 ;;57664-0114-18
 ;;9002226.02101,"994,57664-0114-18 ",.02)
 ;;57664-0114-18
 ;;9002226.02101,"994,57664-0146-31 ",.01)
 ;;57664-0146-31
 ;;9002226.02101,"994,57664-0146-31 ",.02)
 ;;57664-0146-31
 ;;9002226.02101,"994,57664-0146-34 ",.01)
 ;;57664-0146-34
 ;;9002226.02101,"994,57664-0146-34 ",.02)
 ;;57664-0146-34
 ;;9002226.02101,"994,57866-0215-01 ",.01)
 ;;57866-0215-01
 ;;9002226.02101,"994,57866-0215-01 ",.02)
 ;;57866-0215-01
 ;;9002226.02101,"994,57866-3594-01 ",.01)
 ;;57866-3594-01
 ;;9002226.02101,"994,57866-3594-01 ",.02)
 ;;57866-3594-01
 ;;9002226.02101,"994,57866-3594-02 ",.01)
 ;;57866-3594-02
 ;;9002226.02101,"994,57866-3594-02 ",.02)
 ;;57866-3594-02
 ;;9002226.02101,"994,57866-3594-05 ",.01)
 ;;57866-3594-05
 ;;9002226.02101,"994,57866-3594-05 ",.02)
 ;;57866-3594-05
 ;;9002226.02101,"994,57866-3594-06 ",.01)
 ;;57866-3594-06
 ;;9002226.02101,"994,57866-3594-06 ",.02)
 ;;57866-3594-06
 ;;9002226.02101,"994,57866-3762-01 ",.01)
 ;;57866-3762-01
 ;;9002226.02101,"994,57866-3762-01 ",.02)
 ;;57866-3762-01
 ;;9002226.02101,"994,57866-3762-02 ",.01)
 ;;57866-3762-02
 ;;9002226.02101,"994,57866-3762-02 ",.02)
 ;;57866-3762-02
 ;;9002226.02101,"994,57866-3762-04 ",.01)
 ;;57866-3762-04
 ;;9002226.02101,"994,57866-3762-04 ",.02)
 ;;57866-3762-04
 ;;9002226.02101,"994,57866-3762-05 ",.01)
 ;;57866-3762-05
 ;;9002226.02101,"994,57866-3762-05 ",.02)
 ;;57866-3762-05