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

BGP31L24.m

Go to the documentation of this file.
BGP31L24 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 29, 2012;
 ;;13.0;IHS CLINICAL REPORTING;;NOV 20, 2012;Build 81
 ;
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,"618,55289-0278-20 ",.01)
 ;;55289-0278-20
 ;;9002226.02101,"618,55289-0278-20 ",.02)
 ;;55289-0278-20
 ;;9002226.02101,"618,55289-0278-60 ",.01)
 ;;55289-0278-60
 ;;9002226.02101,"618,55289-0278-60 ",.02)
 ;;55289-0278-60
 ;;9002226.02101,"618,55289-0281-30 ",.01)
 ;;55289-0281-30
 ;;9002226.02101,"618,55289-0281-30 ",.02)
 ;;55289-0281-30
 ;;9002226.02101,"618,55289-0284-20 ",.01)
 ;;55289-0284-20
 ;;9002226.02101,"618,55289-0284-20 ",.02)
 ;;55289-0284-20
 ;;9002226.02101,"618,55289-0284-30 ",.01)
 ;;55289-0284-30
 ;;9002226.02101,"618,55289-0284-30 ",.02)
 ;;55289-0284-30
 ;;9002226.02101,"618,55289-0284-60 ",.01)
 ;;55289-0284-60
 ;;9002226.02101,"618,55289-0284-60 ",.02)
 ;;55289-0284-60
 ;;9002226.02101,"618,55289-0336-30 ",.01)
 ;;55289-0336-30
 ;;9002226.02101,"618,55289-0336-30 ",.02)
 ;;55289-0336-30
 ;;9002226.02101,"618,55289-0354-10 ",.01)
 ;;55289-0354-10
 ;;9002226.02101,"618,55289-0354-10 ",.02)
 ;;55289-0354-10
 ;;9002226.02101,"618,55289-0414-04 ",.01)
 ;;55289-0414-04
 ;;9002226.02101,"618,55289-0414-04 ",.02)
 ;;55289-0414-04
 ;;9002226.02101,"618,55289-0414-06 ",.01)
 ;;55289-0414-06
 ;;9002226.02101,"618,55289-0414-06 ",.02)
 ;;55289-0414-06
 ;;9002226.02101,"618,55289-0415-02 ",.01)
 ;;55289-0415-02
 ;;9002226.02101,"618,55289-0415-02 ",.02)
 ;;55289-0415-02
 ;;9002226.02101,"618,55289-0415-04 ",.01)
 ;;55289-0415-04
 ;;9002226.02101,"618,55289-0415-04 ",.02)
 ;;55289-0415-04
 ;;9002226.02101,"618,55289-0415-06 ",.01)
 ;;55289-0415-06
 ;;9002226.02101,"618,55289-0415-06 ",.02)
 ;;55289-0415-06
 ;;9002226.02101,"618,55289-0415-79 ",.01)
 ;;55289-0415-79
 ;;9002226.02101,"618,55289-0415-79 ",.02)
 ;;55289-0415-79
 ;;9002226.02101,"618,55289-0429-20 ",.01)
 ;;55289-0429-20
 ;;9002226.02101,"618,55289-0429-20 ",.02)
 ;;55289-0429-20
 ;;9002226.02101,"618,55289-0429-60 ",.01)
 ;;55289-0429-60
 ;;9002226.02101,"618,55289-0429-60 ",.02)
 ;;55289-0429-60
 ;;9002226.02101,"618,55289-0430-20 ",.01)
 ;;55289-0430-20
 ;;9002226.02101,"618,55289-0430-20 ",.02)
 ;;55289-0430-20
 ;;9002226.02101,"618,55289-0442-04 ",.01)
 ;;55289-0442-04
 ;;9002226.02101,"618,55289-0442-04 ",.02)
 ;;55289-0442-04
 ;;9002226.02101,"618,55289-0464-02 ",.01)
 ;;55289-0464-02
 ;;9002226.02101,"618,55289-0464-02 ",.02)
 ;;55289-0464-02
 ;;9002226.02101,"618,55289-0464-05 ",.01)
 ;;55289-0464-05
 ;;9002226.02101,"618,55289-0464-05 ",.02)
 ;;55289-0464-05
 ;;9002226.02101,"618,55289-0464-10 ",.01)
 ;;55289-0464-10
 ;;9002226.02101,"618,55289-0464-10 ",.02)
 ;;55289-0464-10
 ;;9002226.02101,"618,55289-0464-12 ",.01)
 ;;55289-0464-12
 ;;9002226.02101,"618,55289-0464-12 ",.02)
 ;;55289-0464-12
 ;;9002226.02101,"618,55289-0464-15 ",.01)
 ;;55289-0464-15
 ;;9002226.02101,"618,55289-0464-15 ",.02)
 ;;55289-0464-15
 ;;9002226.02101,"618,55289-0464-20 ",.01)
 ;;55289-0464-20
 ;;9002226.02101,"618,55289-0464-20 ",.02)
 ;;55289-0464-20
 ;;9002226.02101,"618,55289-0464-25 ",.01)
 ;;55289-0464-25
 ;;9002226.02101,"618,55289-0464-25 ",.02)
 ;;55289-0464-25
 ;;9002226.02101,"618,55289-0464-30 ",.01)
 ;;55289-0464-30
 ;;9002226.02101,"618,55289-0464-30 ",.02)
 ;;55289-0464-30
 ;;9002226.02101,"618,55289-0464-60 ",.01)
 ;;55289-0464-60
 ;;9002226.02101,"618,55289-0464-60 ",.02)
 ;;55289-0464-60
 ;;9002226.02101,"618,55289-0464-79 ",.01)
 ;;55289-0464-79
 ;;9002226.02101,"618,55289-0464-79 ",.02)
 ;;55289-0464-79
 ;;9002226.02101,"618,55289-0478-20 ",.01)
 ;;55289-0478-20
 ;;9002226.02101,"618,55289-0478-20 ",.02)
 ;;55289-0478-20
 ;;9002226.02101,"618,55289-0490-20 ",.01)
 ;;55289-0490-20
 ;;9002226.02101,"618,55289-0490-20 ",.02)
 ;;55289-0490-20
 ;;9002226.02101,"618,55289-0531-04 ",.01)
 ;;55289-0531-04
 ;;9002226.02101,"618,55289-0531-04 ",.02)
 ;;55289-0531-04
 ;;9002226.02101,"618,55289-0575-20 ",.01)
 ;;55289-0575-20
 ;;9002226.02101,"618,55289-0575-20 ",.02)
 ;;55289-0575-20
 ;;9002226.02101,"618,55289-0639-06 ",.01)
 ;;55289-0639-06
 ;;9002226.02101,"618,55289-0639-06 ",.02)
 ;;55289-0639-06
 ;;9002226.02101,"618,55289-0807-20 ",.01)
 ;;55289-0807-20
 ;;9002226.02101,"618,55289-0807-20 ",.02)
 ;;55289-0807-20
 ;;9002226.02101,"618,55289-0912-01 ",.01)
 ;;55289-0912-01
 ;;9002226.02101,"618,55289-0912-01 ",.02)
 ;;55289-0912-01
 ;;9002226.02101,"618,55289-0912-10 ",.01)
 ;;55289-0912-10
 ;;9002226.02101,"618,55289-0912-10 ",.02)
 ;;55289-0912-10
 ;;9002226.02101,"618,55289-0912-30 ",.01)
 ;;55289-0912-30
 ;;9002226.02101,"618,55289-0912-30 ",.02)
 ;;55289-0912-30
 ;;9002226.02101,"618,55289-0912-60 ",.01)
 ;;55289-0912-60
 ;;9002226.02101,"618,55289-0912-60 ",.02)
 ;;55289-0912-60
 ;;9002226.02101,"618,55289-0928-02 ",.01)
 ;;55289-0928-02
 ;;9002226.02101,"618,55289-0928-02 ",.02)
 ;;55289-0928-02
 ;;9002226.02101,"618,55289-0928-04 ",.01)
 ;;55289-0928-04
 ;;9002226.02101,"618,55289-0928-04 ",.02)
 ;;55289-0928-04
 ;;9002226.02101,"618,55289-0928-06 ",.01)
 ;;55289-0928-06
 ;;9002226.02101,"618,55289-0928-06 ",.02)
 ;;55289-0928-06
 ;;9002226.02101,"618,55289-0928-79 ",.01)
 ;;55289-0928-79
 ;;9002226.02101,"618,55289-0928-79 ",.02)
 ;;55289-0928-79
 ;;9002226.02101,"618,55289-0940-02 ",.01)
 ;;55289-0940-02
 ;;9002226.02101,"618,55289-0940-02 ",.02)
 ;;55289-0940-02
 ;;9002226.02101,"618,55289-0940-06 ",.01)
 ;;55289-0940-06
 ;;9002226.02101,"618,55289-0940-06 ",.02)
 ;;55289-0940-06
 ;;9002226.02101,"618,55289-0948-02 ",.01)
 ;;55289-0948-02
 ;;9002226.02101,"618,55289-0948-02 ",.02)
 ;;55289-0948-02
 ;;9002226.02101,"618,55289-0951-08 ",.01)
 ;;55289-0951-08
 ;;9002226.02101,"618,55289-0951-08 ",.02)
 ;;55289-0951-08
 ;;9002226.02101,"618,55499-1035-01 ",.01)
 ;;55499-1035-01
 ;;9002226.02101,"618,55499-1035-01 ",.02)
 ;;55499-1035-01
 ;;9002226.02101,"618,55654-0028-01 ",.01)
 ;;55654-0028-01
 ;;9002226.02101,"618,55654-0028-01 ",.02)
 ;;55654-0028-01
 ;;9002226.02101,"618,55887-0232-20 ",.01)
 ;;55887-0232-20
 ;;9002226.02101,"618,55887-0232-20 ",.02)
 ;;55887-0232-20
 ;;9002226.02101,"618,55887-0247-04 ",.01)
 ;;55887-0247-04
 ;;9002226.02101,"618,55887-0247-04 ",.02)
 ;;55887-0247-04
 ;;9002226.02101,"618,55887-0268-15 ",.01)
 ;;55887-0268-15
 ;;9002226.02101,"618,55887-0268-15 ",.02)
 ;;55887-0268-15
 ;;9002226.02101,"618,55887-0268-20 ",.01)
 ;;55887-0268-20
 ;;9002226.02101,"618,55887-0268-20 ",.02)
 ;;55887-0268-20
 ;;9002226.02101,"618,55887-0268-30 ",.01)
 ;;55887-0268-30
 ;;9002226.02101,"618,55887-0268-30 ",.02)
 ;;55887-0268-30
 ;;9002226.02101,"618,55887-0268-60 ",.01)
 ;;55887-0268-60
 ;;9002226.02101,"618,55887-0268-60 ",.02)
 ;;55887-0268-60
 ;;9002226.02101,"618,55887-0268-90 ",.01)
 ;;55887-0268-90
 ;;9002226.02101,"618,55887-0268-90 ",.02)
 ;;55887-0268-90
 ;;9002226.02101,"618,55887-0354-20 ",.01)
 ;;55887-0354-20
 ;;9002226.02101,"618,55887-0354-20 ",.02)
 ;;55887-0354-20
 ;;9002226.02101,"618,55887-0387-04 ",.01)
 ;;55887-0387-04
 ;;9002226.02101,"618,55887-0387-04 ",.02)
 ;;55887-0387-04
 ;;9002226.02101,"618,55887-0422-30 ",.01)
 ;;55887-0422-30
 ;;9002226.02101,"618,55887-0422-30 ",.02)
 ;;55887-0422-30
 ;;9002226.02101,"618,55887-0531-02 ",.01)
 ;;55887-0531-02
 ;;9002226.02101,"618,55887-0531-02 ",.02)
 ;;55887-0531-02
 ;;9002226.02101,"618,55887-0531-06 ",.01)
 ;;55887-0531-06
 ;;9002226.02101,"618,55887-0531-06 ",.02)
 ;;55887-0531-06
 ;;9002226.02101,"618,55887-0531-12 ",.01)
 ;;55887-0531-12
 ;;9002226.02101,"618,55887-0531-12 ",.02)
 ;;55887-0531-12
 ;;9002226.02101,"618,55887-0561-12 ",.01)
 ;;55887-0561-12
 ;;9002226.02101,"618,55887-0561-12 ",.02)
 ;;55887-0561-12
 ;;9002226.02101,"618,55887-0621-03 ",.01)
 ;;55887-0621-03
 ;;9002226.02101,"618,55887-0621-03 ",.02)
 ;;55887-0621-03
 ;;9002226.02101,"618,55887-0621-12 ",.01)
 ;;55887-0621-12
 ;;9002226.02101,"618,55887-0621-12 ",.02)
 ;;55887-0621-12
 ;;9002226.02101,"618,55887-0675-04 ",.01)
 ;;55887-0675-04
 ;;9002226.02101,"618,55887-0675-04 ",.02)
 ;;55887-0675-04
 ;;9002226.02101,"618,55887-0766-04 ",.01)
 ;;55887-0766-04
 ;;9002226.02101,"618,55887-0766-04 ",.02)
 ;;55887-0766-04
 ;;9002226.02101,"618,55887-0885-20 ",.01)
 ;;55887-0885-20
 ;;9002226.02101,"618,55887-0885-20 ",.02)
 ;;55887-0885-20
 ;;9002226.02101,"618,55887-0885-28 ",.01)
 ;;55887-0885-28
 ;;9002226.02101,"618,55887-0885-28 ",.02)
 ;;55887-0885-28
 ;;9002226.02101,"618,55887-0885-30 ",.01)
 ;;55887-0885-30
 ;;9002226.02101,"618,55887-0885-30 ",.02)
 ;;55887-0885-30
 ;;9002226.02101,"618,55887-0936-04 ",.01)
 ;;55887-0936-04
 ;;9002226.02101,"618,55887-0936-04 ",.02)
 ;;55887-0936-04
 ;;9002226.02101,"618,55887-0936-10 ",.01)
 ;;55887-0936-10
 ;;9002226.02101,"618,55887-0936-10 ",.02)
 ;;55887-0936-10
 ;;9002226.02101,"618,55887-0936-12 ",.01)
 ;;55887-0936-12
 ;;9002226.02101,"618,55887-0936-12 ",.02)
 ;;55887-0936-12
 ;;9002226.02101,"618,55887-0936-15 ",.01)
 ;;55887-0936-15
 ;;9002226.02101,"618,55887-0936-15 ",.02)
 ;;55887-0936-15
 ;;9002226.02101,"618,55887-0936-20 ",.01)
 ;;55887-0936-20
 ;;9002226.02101,"618,55887-0936-20 ",.02)
 ;;55887-0936-20
 ;;9002226.02101,"618,55887-0936-25 ",.01)
 ;;55887-0936-25
 ;;9002226.02101,"618,55887-0936-25 ",.02)
 ;;55887-0936-25
 ;;9002226.02101,"618,55887-0936-28 ",.01)
 ;;55887-0936-28
 ;;9002226.02101,"618,55887-0936-28 ",.02)
 ;;55887-0936-28
 ;;9002226.02101,"618,55887-0936-30 ",.01)
 ;;55887-0936-30
 ;;9002226.02101,"618,55887-0936-30 ",.02)
 ;;55887-0936-30
 ;;9002226.02101,"618,55887-0936-60 ",.01)
 ;;55887-0936-60
 ;;9002226.02101,"618,55887-0936-60 ",.02)
 ;;55887-0936-60
 ;;9002226.02101,"618,55887-0936-82 ",.01)
 ;;55887-0936-82
 ;;9002226.02101,"618,55887-0936-82 ",.02)
 ;;55887-0936-82
 ;;9002226.02101,"618,55887-0936-90 ",.01)
 ;;55887-0936-90
 ;;9002226.02101,"618,55887-0936-90 ",.02)
 ;;55887-0936-90
 ;;9002226.02101,"618,55887-0942-15 ",.01)
 ;;55887-0942-15
 ;;9002226.02101,"618,55887-0942-15 ",.02)
 ;;55887-0942-15
 ;;9002226.02101,"618,55887-0942-30 ",.01)
 ;;55887-0942-30
 ;;9002226.02101,"618,55887-0942-30 ",.02)
 ;;55887-0942-30
 ;;9002226.02101,"618,55887-0942-60 ",.01)
 ;;55887-0942-60
 ;;9002226.02101,"618,55887-0942-60 ",.02)
 ;;55887-0942-60
 ;;9002226.02101,"618,55887-0985-10 ",.01)
 ;;55887-0985-10
 ;;9002226.02101,"618,55887-0985-10 ",.02)
 ;;55887-0985-10
 ;;9002226.02101,"618,55887-0985-15 ",.01)
 ;;55887-0985-15
 ;;9002226.02101,"618,55887-0985-15 ",.02)
 ;;55887-0985-15
 ;;9002226.02101,"618,55887-0985-20 ",.01)
 ;;55887-0985-20
 ;;9002226.02101,"618,55887-0985-20 ",.02)
 ;;55887-0985-20
 ;;9002226.02101,"618,55887-0985-30 ",.01)
 ;;55887-0985-30
 ;;9002226.02101,"618,55887-0985-30 ",.02)
 ;;55887-0985-30
 ;;9002226.02101,"618,57664-0107-88 ",.01)
 ;;57664-0107-88
 ;;9002226.02101,"618,57664-0107-88 ",.02)
 ;;57664-0107-88
 ;;9002226.02101,"618,57664-0108-18 ",.01)
 ;;57664-0108-18
 ;;9002226.02101,"618,57664-0108-18 ",.02)
 ;;57664-0108-18
 ;;9002226.02101,"618,57664-0108-88 ",.01)
 ;;57664-0108-88
 ;;9002226.02101,"618,57664-0108-88 ",.02)
 ;;57664-0108-88
 ;;9002226.02101,"618,57664-0109-88 ",.01)
 ;;57664-0109-88
 ;;9002226.02101,"618,57664-0109-88 ",.02)
 ;;57664-0109-88
 ;;9002226.02101,"618,57664-0146-31 ",.01)
 ;;57664-0146-31
 ;;9002226.02101,"618,57664-0146-31 ",.02)
 ;;57664-0146-31
 ;;9002226.02101,"618,57664-0146-34 ",.01)
 ;;57664-0146-34
 ;;9002226.02101,"618,57664-0146-34 ",.02)
 ;;57664-0146-34
 ;;9002226.02101,"618,57664-0185-31 ",.01)
 ;;57664-0185-31
 ;;9002226.02101,"618,57664-0185-31 ",.02)
 ;;57664-0185-31
 ;;9002226.02101,"618,57664-0185-34 ",.01)
 ;;57664-0185-34
 ;;9002226.02101,"618,57664-0185-34 ",.02)
 ;;57664-0185-34
 ;;9002226.02101,"618,57866-0012-02 ",.01)
 ;;57866-0012-02
 ;;9002226.02101,"618,57866-0012-02 ",.02)
 ;;57866-0012-02
 ;;9002226.02101,"618,57866-0176-01 ",.01)
 ;;57866-0176-01
 ;;9002226.02101,"618,57866-0176-01 ",.02)
 ;;57866-0176-01
 ;;9002226.02101,"618,57866-0176-02 ",.01)
 ;;57866-0176-02
 ;;9002226.02101,"618,57866-0176-02 ",.02)
 ;;57866-0176-02
 ;;9002226.02101,"618,57866-0190-01 ",.01)
 ;;57866-0190-01
 ;;9002226.02101,"618,57866-0190-01 ",.02)
 ;;57866-0190-01
 ;;9002226.02101,"618,57866-0190-02 ",.01)
 ;;57866-0190-02
 ;;9002226.02101,"618,57866-0190-02 ",.02)
 ;;57866-0190-02
 ;;9002226.02101,"618,57866-0215-01 ",.01)
 ;;57866-0215-01
 ;;9002226.02101,"618,57866-0215-01 ",.02)
 ;;57866-0215-01
 ;;9002226.02101,"618,57866-0239-01 ",.01)
 ;;57866-0239-01
 ;;9002226.02101,"618,57866-0239-01 ",.02)
 ;;57866-0239-01
 ;;9002226.02101,"618,57866-0323-01 ",.01)
 ;;57866-0323-01
 ;;9002226.02101,"618,57866-0323-01 ",.02)
 ;;57866-0323-01
 ;;9002226.02101,"618,57866-0323-02 ",.01)
 ;;57866-0323-02
 ;;9002226.02101,"618,57866-0323-02 ",.02)
 ;;57866-0323-02
 ;;9002226.02101,"618,57866-0323-04 ",.01)
 ;;57866-0323-04
 ;;9002226.02101,"618,57866-0323-04 ",.02)
 ;;57866-0323-04
 ;;9002226.02101,"618,57866-0323-05 ",.01)
 ;;57866-0323-05
 ;;9002226.02101,"618,57866-0323-05 ",.02)
 ;;57866-0323-05
 ;;9002226.02101,"618,57866-0323-06 ",.01)
 ;;57866-0323-06
 ;;9002226.02101,"618,57866-0323-06 ",.02)
 ;;57866-0323-06
 ;;9002226.02101,"618,57866-0323-08 ",.01)
 ;;57866-0323-08
 ;;9002226.02101,"618,57866-0323-08 ",.02)
 ;;57866-0323-08
 ;;9002226.02101,"618,57866-3013-02 ",.01)
 ;;57866-3013-02
 ;;9002226.02101,"618,57866-3013-02 ",.02)
 ;;57866-3013-02
 ;;9002226.02101,"618,57866-3371-01 ",.01)
 ;;57866-3371-01
 ;;9002226.02101,"618,57866-3371-01 ",.02)
 ;;57866-3371-01
 ;;9002226.02101,"618,57866-3371-02 ",.01)
 ;;57866-3371-02
 ;;9002226.02101,"618,57866-3371-02 ",.02)
 ;;57866-3371-02