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

BGP51J23.m

Go to the documentation of this file.
BGP51J23 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 19, 2014;
 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
 ;
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,"730,55289-0399-02 ",.02)
 ;;55289-0399-02
 ;;9002226.02101,"730,55289-0399-03 ",.01)
 ;;55289-0399-03
 ;;9002226.02101,"730,55289-0399-03 ",.02)
 ;;55289-0399-03
 ;;9002226.02101,"730,55289-0399-10 ",.01)
 ;;55289-0399-10
 ;;9002226.02101,"730,55289-0399-10 ",.02)
 ;;55289-0399-10
 ;;9002226.02101,"730,55289-0399-14 ",.01)
 ;;55289-0399-14
 ;;9002226.02101,"730,55289-0399-14 ",.02)
 ;;55289-0399-14
 ;;9002226.02101,"730,55289-0399-30 ",.01)
 ;;55289-0399-30
 ;;9002226.02101,"730,55289-0399-30 ",.02)
 ;;55289-0399-30
 ;;9002226.02101,"730,55289-0399-60 ",.01)
 ;;55289-0399-60
 ;;9002226.02101,"730,55289-0399-60 ",.02)
 ;;55289-0399-60
 ;;9002226.02101,"730,55289-0399-79 ",.01)
 ;;55289-0399-79
 ;;9002226.02101,"730,55289-0399-79 ",.02)
 ;;55289-0399-79
 ;;9002226.02101,"730,55289-0399-90 ",.01)
 ;;55289-0399-90
 ;;9002226.02101,"730,55289-0399-90 ",.02)
 ;;55289-0399-90
 ;;9002226.02101,"730,55289-0419-01 ",.01)
 ;;55289-0419-01
 ;;9002226.02101,"730,55289-0419-01 ",.02)
 ;;55289-0419-01
 ;;9002226.02101,"730,55289-0419-06 ",.01)
 ;;55289-0419-06
 ;;9002226.02101,"730,55289-0419-06 ",.02)
 ;;55289-0419-06
 ;;9002226.02101,"730,55289-0419-10 ",.01)
 ;;55289-0419-10
 ;;9002226.02101,"730,55289-0419-10 ",.02)
 ;;55289-0419-10
 ;;9002226.02101,"730,55289-0419-14 ",.01)
 ;;55289-0419-14
 ;;9002226.02101,"730,55289-0419-14 ",.02)
 ;;55289-0419-14
 ;;9002226.02101,"730,55289-0419-15 ",.01)
 ;;55289-0419-15
 ;;9002226.02101,"730,55289-0419-15 ",.02)
 ;;55289-0419-15
 ;;9002226.02101,"730,55289-0419-21 ",.01)
 ;;55289-0419-21
 ;;9002226.02101,"730,55289-0419-21 ",.02)
 ;;55289-0419-21
 ;;9002226.02101,"730,55289-0419-30 ",.01)
 ;;55289-0419-30
 ;;9002226.02101,"730,55289-0419-30 ",.02)
 ;;55289-0419-30
 ;;9002226.02101,"730,55289-0419-60 ",.01)
 ;;55289-0419-60
 ;;9002226.02101,"730,55289-0419-60 ",.02)
 ;;55289-0419-60
 ;;9002226.02101,"730,55289-0439-12 ",.01)
 ;;55289-0439-12
 ;;9002226.02101,"730,55289-0439-12 ",.02)
 ;;55289-0439-12
 ;;9002226.02101,"730,55289-0535-01 ",.01)
 ;;55289-0535-01
 ;;9002226.02101,"730,55289-0535-01 ",.02)
 ;;55289-0535-01
 ;;9002226.02101,"730,55289-0535-30 ",.01)
 ;;55289-0535-30
 ;;9002226.02101,"730,55289-0535-30 ",.02)
 ;;55289-0535-30
 ;;9002226.02101,"730,55289-0572-30 ",.01)
 ;;55289-0572-30
 ;;9002226.02101,"730,55289-0572-30 ",.02)
 ;;55289-0572-30
 ;;9002226.02101,"730,55289-0690-12 ",.01)
 ;;55289-0690-12
 ;;9002226.02101,"730,55289-0690-12 ",.02)
 ;;55289-0690-12
 ;;9002226.02101,"730,55289-0729-06 ",.01)
 ;;55289-0729-06
 ;;9002226.02101,"730,55289-0729-06 ",.02)
 ;;55289-0729-06
 ;;9002226.02101,"730,55289-0729-12 ",.01)
 ;;55289-0729-12
 ;;9002226.02101,"730,55289-0729-12 ",.02)
 ;;55289-0729-12
 ;;9002226.02101,"730,55289-0729-30 ",.01)
 ;;55289-0729-30
 ;;9002226.02101,"730,55289-0729-30 ",.02)
 ;;55289-0729-30
 ;;9002226.02101,"730,55289-0730-01 ",.01)
 ;;55289-0730-01
 ;;9002226.02101,"730,55289-0730-01 ",.02)
 ;;55289-0730-01
 ;;9002226.02101,"730,55289-0730-12 ",.01)
 ;;55289-0730-12
 ;;9002226.02101,"730,55289-0730-12 ",.02)
 ;;55289-0730-12
 ;;9002226.02101,"730,55289-0730-25 ",.01)
 ;;55289-0730-25
 ;;9002226.02101,"730,55289-0730-25 ",.02)
 ;;55289-0730-25
 ;;9002226.02101,"730,55289-0730-30 ",.01)
 ;;55289-0730-30
 ;;9002226.02101,"730,55289-0730-30 ",.02)
 ;;55289-0730-30
 ;;9002226.02101,"730,55289-0730-60 ",.01)
 ;;55289-0730-60
 ;;9002226.02101,"730,55289-0730-60 ",.02)
 ;;55289-0730-60
 ;;9002226.02101,"730,55289-0730-90 ",.01)
 ;;55289-0730-90
 ;;9002226.02101,"730,55289-0730-90 ",.02)
 ;;55289-0730-90
 ;;9002226.02101,"730,55289-0792-06 ",.01)
 ;;55289-0792-06
 ;;9002226.02101,"730,55289-0792-06 ",.02)
 ;;55289-0792-06
 ;;9002226.02101,"730,55289-0792-10 ",.01)
 ;;55289-0792-10
 ;;9002226.02101,"730,55289-0792-10 ",.02)
 ;;55289-0792-10
 ;;9002226.02101,"730,55289-0792-12 ",.01)
 ;;55289-0792-12
 ;;9002226.02101,"730,55289-0792-12 ",.02)
 ;;55289-0792-12
 ;;9002226.02101,"730,55289-0792-20 ",.01)
 ;;55289-0792-20
 ;;9002226.02101,"730,55289-0792-20 ",.02)
 ;;55289-0792-20
 ;;9002226.02101,"730,55289-0792-30 ",.01)
 ;;55289-0792-30
 ;;9002226.02101,"730,55289-0792-30 ",.02)
 ;;55289-0792-30
 ;;9002226.02101,"730,55289-0839-30 ",.01)
 ;;55289-0839-30
 ;;9002226.02101,"730,55289-0839-30 ",.02)
 ;;55289-0839-30
 ;;9002226.02101,"730,55289-0879-10 ",.01)
 ;;55289-0879-10
 ;;9002226.02101,"730,55289-0879-10 ",.02)
 ;;55289-0879-10
 ;;9002226.02101,"730,55289-0879-15 ",.01)
 ;;55289-0879-15
 ;;9002226.02101,"730,55289-0879-15 ",.02)
 ;;55289-0879-15
 ;;9002226.02101,"730,55289-0879-20 ",.01)
 ;;55289-0879-20
 ;;9002226.02101,"730,55289-0879-20 ",.02)
 ;;55289-0879-20
 ;;9002226.02101,"730,55289-0879-30 ",.01)
 ;;55289-0879-30
 ;;9002226.02101,"730,55289-0879-30 ",.02)
 ;;55289-0879-30
 ;;9002226.02101,"730,55289-0879-60 ",.01)
 ;;55289-0879-60
 ;;9002226.02101,"730,55289-0879-60 ",.02)
 ;;55289-0879-60
 ;;9002226.02101,"730,55289-0983-30 ",.01)
 ;;55289-0983-30
 ;;9002226.02101,"730,55289-0983-30 ",.02)
 ;;55289-0983-30
 ;;9002226.02101,"730,55700-0047-08 ",.01)
 ;;55700-0047-08
 ;;9002226.02101,"730,55700-0047-08 ",.02)
 ;;55700-0047-08
 ;;9002226.02101,"730,55700-0129-60 ",.01)
 ;;55700-0129-60
 ;;9002226.02101,"730,55700-0129-60 ",.02)
 ;;55700-0129-60
 ;;9002226.02101,"730,55700-0132-30 ",.01)
 ;;55700-0132-30
 ;;9002226.02101,"730,55700-0132-30 ",.02)
 ;;55700-0132-30
 ;;9002226.02101,"730,55700-0133-30 ",.01)
 ;;55700-0133-30
 ;;9002226.02101,"730,55700-0133-30 ",.02)
 ;;55700-0133-30
 ;;9002226.02101,"730,55700-0135-30 ",.01)
 ;;55700-0135-30
 ;;9002226.02101,"730,55700-0135-30 ",.02)
 ;;55700-0135-30
 ;;9002226.02101,"730,57664-0515-13 ",.01)
 ;;57664-0515-13
 ;;9002226.02101,"730,57664-0515-13 ",.02)
 ;;57664-0515-13
 ;;9002226.02101,"730,57664-0515-18 ",.01)
 ;;57664-0515-18
 ;;9002226.02101,"730,57664-0515-18 ",.02)
 ;;57664-0515-18
 ;;9002226.02101,"730,57664-0515-88 ",.01)
 ;;57664-0515-88
 ;;9002226.02101,"730,57664-0515-88 ",.02)
 ;;57664-0515-88
 ;;9002226.02101,"730,57664-0516-13 ",.01)
 ;;57664-0516-13
 ;;9002226.02101,"730,57664-0516-13 ",.02)
 ;;57664-0516-13
 ;;9002226.02101,"730,57664-0516-18 ",.01)
 ;;57664-0516-18
 ;;9002226.02101,"730,57664-0516-18 ",.02)
 ;;57664-0516-18
 ;;9002226.02101,"730,57664-0516-88 ",.01)
 ;;57664-0516-88
 ;;9002226.02101,"730,57664-0516-88 ",.02)
 ;;57664-0516-88
 ;;9002226.02101,"730,58016-0002-00 ",.01)
 ;;58016-0002-00
 ;;9002226.02101,"730,58016-0002-00 ",.02)
 ;;58016-0002-00
 ;;9002226.02101,"730,58016-0002-30 ",.01)
 ;;58016-0002-30
 ;;9002226.02101,"730,58016-0002-30 ",.02)
 ;;58016-0002-30
 ;;9002226.02101,"730,58016-0002-60 ",.01)
 ;;58016-0002-60
 ;;9002226.02101,"730,58016-0002-60 ",.02)
 ;;58016-0002-60
 ;;9002226.02101,"730,58016-0002-90 ",.01)
 ;;58016-0002-90
 ;;9002226.02101,"730,58016-0002-90 ",.02)
 ;;58016-0002-90
 ;;9002226.02101,"730,58016-0040-00 ",.01)
 ;;58016-0040-00
 ;;9002226.02101,"730,58016-0040-00 ",.02)
 ;;58016-0040-00
 ;;9002226.02101,"730,58016-0040-30 ",.01)
 ;;58016-0040-30
 ;;9002226.02101,"730,58016-0040-30 ",.02)
 ;;58016-0040-30
 ;;9002226.02101,"730,58016-0040-60 ",.01)
 ;;58016-0040-60
 ;;9002226.02101,"730,58016-0040-60 ",.02)
 ;;58016-0040-60
 ;;9002226.02101,"730,58016-0040-90 ",.01)
 ;;58016-0040-90
 ;;9002226.02101,"730,58016-0040-90 ",.02)
 ;;58016-0040-90
 ;;9002226.02101,"730,58016-0073-00 ",.01)
 ;;58016-0073-00
 ;;9002226.02101,"730,58016-0073-00 ",.02)
 ;;58016-0073-00
 ;;9002226.02101,"730,58016-0073-30 ",.01)
 ;;58016-0073-30
 ;;9002226.02101,"730,58016-0073-30 ",.02)
 ;;58016-0073-30
 ;;9002226.02101,"730,58016-0073-60 ",.01)
 ;;58016-0073-60
 ;;9002226.02101,"730,58016-0073-60 ",.02)
 ;;58016-0073-60
 ;;9002226.02101,"730,58016-0073-90 ",.01)
 ;;58016-0073-90
 ;;9002226.02101,"730,58016-0073-90 ",.02)
 ;;58016-0073-90
 ;;9002226.02101,"730,58016-0089-00 ",.01)
 ;;58016-0089-00
 ;;9002226.02101,"730,58016-0089-00 ",.02)
 ;;58016-0089-00
 ;;9002226.02101,"730,58016-0089-30 ",.01)
 ;;58016-0089-30
 ;;9002226.02101,"730,58016-0089-30 ",.02)
 ;;58016-0089-30
 ;;9002226.02101,"730,58016-0089-60 ",.01)
 ;;58016-0089-60
 ;;9002226.02101,"730,58016-0089-60 ",.02)
 ;;58016-0089-60
 ;;9002226.02101,"730,58016-0089-90 ",.01)
 ;;58016-0089-90
 ;;9002226.02101,"730,58016-0089-90 ",.02)
 ;;58016-0089-90
 ;;9002226.02101,"730,58016-0091-00 ",.01)
 ;;58016-0091-00
 ;;9002226.02101,"730,58016-0091-00 ",.02)
 ;;58016-0091-00
 ;;9002226.02101,"730,58016-0091-30 ",.01)
 ;;58016-0091-30
 ;;9002226.02101,"730,58016-0091-30 ",.02)
 ;;58016-0091-30
 ;;9002226.02101,"730,58016-0091-60 ",.01)
 ;;58016-0091-60
 ;;9002226.02101,"730,58016-0091-60 ",.02)
 ;;58016-0091-60
 ;;9002226.02101,"730,58016-0091-90 ",.01)
 ;;58016-0091-90
 ;;9002226.02101,"730,58016-0091-90 ",.02)
 ;;58016-0091-90
 ;;9002226.02101,"730,58016-0092-00 ",.01)
 ;;58016-0092-00
 ;;9002226.02101,"730,58016-0092-00 ",.02)
 ;;58016-0092-00
 ;;9002226.02101,"730,58016-0092-30 ",.01)
 ;;58016-0092-30
 ;;9002226.02101,"730,58016-0092-30 ",.02)
 ;;58016-0092-30
 ;;9002226.02101,"730,58016-0092-60 ",.01)
 ;;58016-0092-60
 ;;9002226.02101,"730,58016-0092-60 ",.02)
 ;;58016-0092-60
 ;;9002226.02101,"730,58016-0092-90 ",.01)
 ;;58016-0092-90
 ;;9002226.02101,"730,58016-0092-90 ",.02)
 ;;58016-0092-90
 ;;9002226.02101,"730,58016-0093-00 ",.01)
 ;;58016-0093-00
 ;;9002226.02101,"730,58016-0093-00 ",.02)
 ;;58016-0093-00
 ;;9002226.02101,"730,58016-0093-30 ",.01)
 ;;58016-0093-30
 ;;9002226.02101,"730,58016-0093-30 ",.02)
 ;;58016-0093-30
 ;;9002226.02101,"730,58016-0093-60 ",.01)
 ;;58016-0093-60
 ;;9002226.02101,"730,58016-0093-60 ",.02)
 ;;58016-0093-60
 ;;9002226.02101,"730,58016-0093-90 ",.01)
 ;;58016-0093-90
 ;;9002226.02101,"730,58016-0093-90 ",.02)
 ;;58016-0093-90
 ;;9002226.02101,"730,58016-0233-00 ",.01)
 ;;58016-0233-00
 ;;9002226.02101,"730,58016-0233-00 ",.02)
 ;;58016-0233-00
 ;;9002226.02101,"730,58016-0233-02 ",.01)
 ;;58016-0233-02
 ;;9002226.02101,"730,58016-0233-02 ",.02)
 ;;58016-0233-02
 ;;9002226.02101,"730,58016-0233-10 ",.01)
 ;;58016-0233-10
 ;;9002226.02101,"730,58016-0233-10 ",.02)
 ;;58016-0233-10
 ;;9002226.02101,"730,58016-0233-12 ",.01)
 ;;58016-0233-12
 ;;9002226.02101,"730,58016-0233-12 ",.02)
 ;;58016-0233-12
 ;;9002226.02101,"730,58016-0233-14 ",.01)
 ;;58016-0233-14
 ;;9002226.02101,"730,58016-0233-14 ",.02)
 ;;58016-0233-14
 ;;9002226.02101,"730,58016-0233-15 ",.01)
 ;;58016-0233-15
 ;;9002226.02101,"730,58016-0233-15 ",.02)
 ;;58016-0233-15
 ;;9002226.02101,"730,58016-0233-20 ",.01)
 ;;58016-0233-20
 ;;9002226.02101,"730,58016-0233-20 ",.02)
 ;;58016-0233-20
 ;;9002226.02101,"730,58016-0233-21 ",.01)
 ;;58016-0233-21
 ;;9002226.02101,"730,58016-0233-21 ",.02)
 ;;58016-0233-21
 ;;9002226.02101,"730,58016-0233-24 ",.01)
 ;;58016-0233-24
 ;;9002226.02101,"730,58016-0233-24 ",.02)
 ;;58016-0233-24
 ;;9002226.02101,"730,58016-0233-25 ",.01)
 ;;58016-0233-25
 ;;9002226.02101,"730,58016-0233-25 ",.02)
 ;;58016-0233-25
 ;;9002226.02101,"730,58016-0233-28 ",.01)
 ;;58016-0233-28
 ;;9002226.02101,"730,58016-0233-28 ",.02)
 ;;58016-0233-28
 ;;9002226.02101,"730,58016-0233-30 ",.01)
 ;;58016-0233-30
 ;;9002226.02101,"730,58016-0233-30 ",.02)
 ;;58016-0233-30
 ;;9002226.02101,"730,58016-0233-40 ",.01)
 ;;58016-0233-40
 ;;9002226.02101,"730,58016-0233-40 ",.02)
 ;;58016-0233-40
 ;;9002226.02101,"730,58016-0233-50 ",.01)
 ;;58016-0233-50
 ;;9002226.02101,"730,58016-0233-50 ",.02)
 ;;58016-0233-50
 ;;9002226.02101,"730,58016-0233-60 ",.01)
 ;;58016-0233-60
 ;;9002226.02101,"730,58016-0233-60 ",.02)
 ;;58016-0233-60
 ;;9002226.02101,"730,58016-0233-90 ",.01)
 ;;58016-0233-90
 ;;9002226.02101,"730,58016-0233-90 ",.02)
 ;;58016-0233-90
 ;;9002226.02101,"730,58016-0292-00 ",.01)
 ;;58016-0292-00
 ;;9002226.02101,"730,58016-0292-00 ",.02)
 ;;58016-0292-00
 ;;9002226.02101,"730,58016-0292-30 ",.01)
 ;;58016-0292-30
 ;;9002226.02101,"730,58016-0292-30 ",.02)
 ;;58016-0292-30
 ;;9002226.02101,"730,58016-0292-60 ",.01)
 ;;58016-0292-60
 ;;9002226.02101,"730,58016-0292-60 ",.02)
 ;;58016-0292-60
 ;;9002226.02101,"730,58016-0292-90 ",.01)
 ;;58016-0292-90
 ;;9002226.02101,"730,58016-0292-90 ",.02)
 ;;58016-0292-90
 ;;9002226.02101,"730,58016-0322-00 ",.01)
 ;;58016-0322-00
 ;;9002226.02101,"730,58016-0322-00 ",.02)
 ;;58016-0322-00
 ;;9002226.02101,"730,58016-0322-02 ",.01)
 ;;58016-0322-02
 ;;9002226.02101,"730,58016-0322-02 ",.02)
 ;;58016-0322-02
 ;;9002226.02101,"730,58016-0322-30 ",.01)
 ;;58016-0322-30
 ;;9002226.02101,"730,58016-0322-30 ",.02)
 ;;58016-0322-30
 ;;9002226.02101,"730,58016-0322-60 ",.01)
 ;;58016-0322-60
 ;;9002226.02101,"730,58016-0322-60 ",.02)
 ;;58016-0322-60
 ;;9002226.02101,"730,58016-0322-90 ",.01)
 ;;58016-0322-90
 ;;9002226.02101,"730,58016-0322-90 ",.02)
 ;;58016-0322-90
 ;;9002226.02101,"730,58016-0341-00 ",.01)
 ;;58016-0341-00
 ;;9002226.02101,"730,58016-0341-00 ",.02)
 ;;58016-0341-00
 ;;9002226.02101,"730,58016-0341-10 ",.01)
 ;;58016-0341-10
 ;;9002226.02101,"730,58016-0341-10 ",.02)
 ;;58016-0341-10
 ;;9002226.02101,"730,58016-0341-20 ",.01)
 ;;58016-0341-20
 ;;9002226.02101,"730,58016-0341-20 ",.02)
 ;;58016-0341-20
 ;;9002226.02101,"730,58016-0341-30 ",.01)
 ;;58016-0341-30
 ;;9002226.02101,"730,58016-0341-30 ",.02)
 ;;58016-0341-30
 ;;9002226.02101,"730,58016-0341-40 ",.01)
 ;;58016-0341-40
 ;;9002226.02101,"730,58016-0341-40 ",.02)
 ;;58016-0341-40
 ;;9002226.02101,"730,58016-0341-60 ",.01)
 ;;58016-0341-60