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

BGP8ZH38.m

Go to the documentation of this file.
BGP8ZH38 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 22, 2018;
 ;;18.0;IHS CLINICAL REPORTING;**1**;NOV 21, 2017;Build 62
 ;
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,"868,42043-0251-38 ",.02)
 ;;42043-0251-38
 ;;9002226.02101,"868,42043-0251-67 ",.01)
 ;;42043-0251-67
 ;;9002226.02101,"868,42043-0251-67 ",.02)
 ;;42043-0251-67
 ;;9002226.02101,"868,42043-0252-38 ",.01)
 ;;42043-0252-38
 ;;9002226.02101,"868,42043-0252-38 ",.02)
 ;;42043-0252-38
 ;;9002226.02101,"868,42043-0252-67 ",.01)
 ;;42043-0252-67
 ;;9002226.02101,"868,42043-0252-67 ",.02)
 ;;42043-0252-67
 ;;9002226.02101,"868,42043-0262-38 ",.01)
 ;;42043-0262-38
 ;;9002226.02101,"868,42043-0262-38 ",.02)
 ;;42043-0262-38
 ;;9002226.02101,"868,42043-0262-57 ",.01)
 ;;42043-0262-57
 ;;9002226.02101,"868,42043-0262-57 ",.02)
 ;;42043-0262-57
 ;;9002226.02101,"868,42043-0262-77 ",.01)
 ;;42043-0262-77
 ;;9002226.02101,"868,42043-0262-77 ",.02)
 ;;42043-0262-77
 ;;9002226.02101,"868,42043-0263-38 ",.01)
 ;;42043-0263-38
 ;;9002226.02101,"868,42043-0263-38 ",.02)
 ;;42043-0263-38
 ;;9002226.02101,"868,42043-0263-57 ",.01)
 ;;42043-0263-57
 ;;9002226.02101,"868,42043-0263-57 ",.02)
 ;;42043-0263-57
 ;;9002226.02101,"868,42043-0263-77 ",.01)
 ;;42043-0263-77
 ;;9002226.02101,"868,42043-0263-77 ",.02)
 ;;42043-0263-77
 ;;9002226.02101,"868,42291-0120-50 ",.01)
 ;;42291-0120-50
 ;;9002226.02101,"868,42291-0120-50 ",.02)
 ;;42291-0120-50
 ;;9002226.02101,"868,42291-0121-50 ",.01)
 ;;42291-0121-50
 ;;9002226.02101,"868,42291-0121-50 ",.02)
 ;;42291-0121-50
 ;;9002226.02101,"868,42291-0208-50 ",.01)
 ;;42291-0208-50
 ;;9002226.02101,"868,42291-0208-50 ",.02)
 ;;42291-0208-50
 ;;9002226.02101,"868,42291-0209-50 ",.01)
 ;;42291-0209-50
 ;;9002226.02101,"868,42291-0209-50 ",.02)
 ;;42291-0209-50
 ;;9002226.02101,"868,42291-0216-01 ",.01)
 ;;42291-0216-01
 ;;9002226.02101,"868,42291-0216-01 ",.02)
 ;;42291-0216-01
 ;;9002226.02101,"868,42291-0219-01 ",.01)
 ;;42291-0219-01
 ;;9002226.02101,"868,42291-0219-01 ",.02)
 ;;42291-0219-01
 ;;9002226.02101,"868,42291-0248-30 ",.01)
 ;;42291-0248-30
 ;;9002226.02101,"868,42291-0248-30 ",.02)
 ;;42291-0248-30
 ;;9002226.02101,"868,42291-0248-31 ",.01)
 ;;42291-0248-31
 ;;9002226.02101,"868,42291-0248-31 ",.02)
 ;;42291-0248-31
 ;;9002226.02101,"868,42291-0263-60 ",.01)
 ;;42291-0263-60
 ;;9002226.02101,"868,42291-0263-60 ",.02)
 ;;42291-0263-60
 ;;9002226.02101,"868,42291-0589-90 ",.01)
 ;;42291-0589-90
 ;;9002226.02101,"868,42291-0589-90 ",.02)
 ;;42291-0589-90
 ;;9002226.02101,"868,42291-0591-60 ",.01)
 ;;42291-0591-60
 ;;9002226.02101,"868,42291-0591-60 ",.02)
 ;;42291-0591-60
 ;;9002226.02101,"868,42291-0620-05 ",.01)
 ;;42291-0620-05
 ;;9002226.02101,"868,42291-0620-05 ",.02)
 ;;42291-0620-05
 ;;9002226.02101,"868,42291-0620-50 ",.01)
 ;;42291-0620-50
 ;;9002226.02101,"868,42291-0620-50 ",.02)
 ;;42291-0620-50
 ;;9002226.02101,"868,42291-0758-01 ",.01)
 ;;42291-0758-01
 ;;9002226.02101,"868,42291-0758-01 ",.02)
 ;;42291-0758-01
 ;;9002226.02101,"868,42291-0758-50 ",.01)
 ;;42291-0758-50
 ;;9002226.02101,"868,42291-0758-50 ",.02)
 ;;42291-0758-50
 ;;9002226.02101,"868,42291-0759-01 ",.01)
 ;;42291-0759-01
 ;;9002226.02101,"868,42291-0759-01 ",.02)
 ;;42291-0759-01
 ;;9002226.02101,"868,42291-0759-12 ",.01)
 ;;42291-0759-12
 ;;9002226.02101,"868,42291-0759-12 ",.02)
 ;;42291-0759-12
 ;;9002226.02101,"868,42291-0759-50 ",.01)
 ;;42291-0759-50
 ;;9002226.02101,"868,42291-0759-50 ",.02)
 ;;42291-0759-50
 ;;9002226.02101,"868,42291-0845-90 ",.01)
 ;;42291-0845-90
 ;;9002226.02101,"868,42291-0845-90 ",.02)
 ;;42291-0845-90
 ;;9002226.02101,"868,42292-0018-01 ",.01)
 ;;42292-0018-01
 ;;9002226.02101,"868,42292-0018-01 ",.02)
 ;;42292-0018-01
 ;;9002226.02101,"868,42292-0018-20 ",.01)
 ;;42292-0018-20
 ;;9002226.02101,"868,42292-0018-20 ",.02)
 ;;42292-0018-20
 ;;9002226.02101,"868,42292-0028-08 ",.01)
 ;;42292-0028-08
 ;;9002226.02101,"868,42292-0028-08 ",.02)
 ;;42292-0028-08
 ;;9002226.02101,"868,42546-0771-30 ",.01)
 ;;42546-0771-30
 ;;9002226.02101,"868,42546-0771-30 ",.02)
 ;;42546-0771-30
 ;;9002226.02101,"868,42546-0774-30 ",.01)
 ;;42546-0774-30
 ;;9002226.02101,"868,42546-0774-30 ",.02)
 ;;42546-0774-30
 ;;9002226.02101,"868,42546-0777-30 ",.01)
 ;;42546-0777-30
 ;;9002226.02101,"868,42546-0777-30 ",.02)
 ;;42546-0777-30
 ;;9002226.02101,"868,42582-0211-10 ",.01)
 ;;42582-0211-10
 ;;9002226.02101,"868,42582-0211-10 ",.02)
 ;;42582-0211-10
 ;;9002226.02101,"868,42582-0211-18 ",.01)
 ;;42582-0211-18
 ;;9002226.02101,"868,42582-0211-18 ",.02)
 ;;42582-0211-18
 ;;9002226.02101,"868,42582-0212-10 ",.01)
 ;;42582-0212-10
 ;;9002226.02101,"868,42582-0212-10 ",.02)
 ;;42582-0212-10
 ;;9002226.02101,"868,42582-0212-18 ",.01)
 ;;42582-0212-18
 ;;9002226.02101,"868,42582-0212-18 ",.02)
 ;;42582-0212-18
 ;;9002226.02101,"868,42582-0213-10 ",.01)
 ;;42582-0213-10
 ;;9002226.02101,"868,42582-0213-10 ",.02)
 ;;42582-0213-10
 ;;9002226.02101,"868,42582-0213-18 ",.01)
 ;;42582-0213-18
 ;;9002226.02101,"868,42582-0213-18 ",.02)
 ;;42582-0213-18
 ;;9002226.02101,"868,42582-0214-10 ",.01)
 ;;42582-0214-10
 ;;9002226.02101,"868,42582-0214-10 ",.02)
 ;;42582-0214-10
 ;;9002226.02101,"868,42582-0214-18 ",.01)
 ;;42582-0214-18
 ;;9002226.02101,"868,42582-0214-18 ",.02)
 ;;42582-0214-18
 ;;9002226.02101,"868,42783-0610-30 ",.01)
 ;;42783-0610-30
 ;;9002226.02101,"868,42783-0610-30 ",.02)
 ;;42783-0610-30
 ;;9002226.02101,"868,42783-0610-60 ",.01)
 ;;42783-0610-60
 ;;9002226.02101,"868,42783-0610-60 ",.02)
 ;;42783-0610-60
 ;;9002226.02101,"868,42806-0312-05 ",.01)
 ;;42806-0312-05
 ;;9002226.02101,"868,42806-0312-05 ",.02)
 ;;42806-0312-05
 ;;9002226.02101,"868,42806-0312-50 ",.01)
 ;;42806-0312-50
 ;;9002226.02101,"868,42806-0312-50 ",.02)
 ;;42806-0312-50
 ;;9002226.02101,"868,43063-0002-10 ",.01)
 ;;43063-0002-10
 ;;9002226.02101,"868,43063-0002-10 ",.02)
 ;;43063-0002-10
 ;;9002226.02101,"868,43063-0015-04 ",.01)
 ;;43063-0015-04
 ;;9002226.02101,"868,43063-0015-04 ",.02)
 ;;43063-0015-04
 ;;9002226.02101,"868,43063-0015-06 ",.01)
 ;;43063-0015-06
 ;;9002226.02101,"868,43063-0015-06 ",.02)
 ;;43063-0015-06
 ;;9002226.02101,"868,43063-0015-15 ",.01)
 ;;43063-0015-15
 ;;9002226.02101,"868,43063-0015-15 ",.02)
 ;;43063-0015-15
 ;;9002226.02101,"868,43063-0015-21 ",.01)
 ;;43063-0015-21
 ;;9002226.02101,"868,43063-0015-21 ",.02)
 ;;43063-0015-21
 ;;9002226.02101,"868,43063-0015-24 ",.01)
 ;;43063-0015-24
 ;;9002226.02101,"868,43063-0015-24 ",.02)
 ;;43063-0015-24
 ;;9002226.02101,"868,43063-0015-30 ",.01)
 ;;43063-0015-30
 ;;9002226.02101,"868,43063-0015-30 ",.02)
 ;;43063-0015-30
 ;;9002226.02101,"868,43063-0015-40 ",.01)
 ;;43063-0015-40
 ;;9002226.02101,"868,43063-0015-40 ",.02)
 ;;43063-0015-40
 ;;9002226.02101,"868,43063-0015-60 ",.01)
 ;;43063-0015-60
 ;;9002226.02101,"868,43063-0015-60 ",.02)
 ;;43063-0015-60
 ;;9002226.02101,"868,43063-0016-06 ",.01)
 ;;43063-0016-06
 ;;9002226.02101,"868,43063-0016-06 ",.02)
 ;;43063-0016-06
 ;;9002226.02101,"868,43063-0016-09 ",.01)
 ;;43063-0016-09
 ;;9002226.02101,"868,43063-0016-09 ",.02)
 ;;43063-0016-09
 ;;9002226.02101,"868,43063-0016-10 ",.01)
 ;;43063-0016-10
 ;;9002226.02101,"868,43063-0016-10 ",.02)
 ;;43063-0016-10
 ;;9002226.02101,"868,43063-0016-15 ",.01)
 ;;43063-0016-15
 ;;9002226.02101,"868,43063-0016-15 ",.02)
 ;;43063-0016-15
 ;;9002226.02101,"868,43063-0016-20 ",.01)
 ;;43063-0016-20
 ;;9002226.02101,"868,43063-0016-20 ",.02)
 ;;43063-0016-20
 ;;9002226.02101,"868,43063-0016-24 ",.01)
 ;;43063-0016-24
 ;;9002226.02101,"868,43063-0016-24 ",.02)
 ;;43063-0016-24
 ;;9002226.02101,"868,43063-0016-28 ",.01)
 ;;43063-0016-28
 ;;9002226.02101,"868,43063-0016-28 ",.02)
 ;;43063-0016-28
 ;;9002226.02101,"868,43063-0016-30 ",.01)
 ;;43063-0016-30
 ;;9002226.02101,"868,43063-0016-30 ",.02)
 ;;43063-0016-30
 ;;9002226.02101,"868,43063-0016-40 ",.01)
 ;;43063-0016-40
 ;;9002226.02101,"868,43063-0016-40 ",.02)
 ;;43063-0016-40
 ;;9002226.02101,"868,43063-0017-06 ",.01)
 ;;43063-0017-06
 ;;9002226.02101,"868,43063-0017-06 ",.02)
 ;;43063-0017-06
 ;;9002226.02101,"868,43063-0017-09 ",.01)
 ;;43063-0017-09
 ;;9002226.02101,"868,43063-0017-09 ",.02)
 ;;43063-0017-09
 ;;9002226.02101,"868,43063-0017-14 ",.01)
 ;;43063-0017-14
 ;;9002226.02101,"868,43063-0017-14 ",.02)
 ;;43063-0017-14
 ;;9002226.02101,"868,43063-0017-15 ",.01)
 ;;43063-0017-15
 ;;9002226.02101,"868,43063-0017-15 ",.02)
 ;;43063-0017-15
 ;;9002226.02101,"868,43063-0017-21 ",.01)
 ;;43063-0017-21
 ;;9002226.02101,"868,43063-0017-21 ",.02)
 ;;43063-0017-21
 ;;9002226.02101,"868,43063-0017-24 ",.01)
 ;;43063-0017-24
 ;;9002226.02101,"868,43063-0017-24 ",.02)
 ;;43063-0017-24
 ;;9002226.02101,"868,43063-0017-28 ",.01)
 ;;43063-0017-28
 ;;9002226.02101,"868,43063-0017-28 ",.02)
 ;;43063-0017-28
 ;;9002226.02101,"868,43063-0017-30 ",.01)
 ;;43063-0017-30
 ;;9002226.02101,"868,43063-0017-30 ",.02)
 ;;43063-0017-30
 ;;9002226.02101,"868,43063-0017-40 ",.01)
 ;;43063-0017-40
 ;;9002226.02101,"868,43063-0017-40 ",.02)
 ;;43063-0017-40
 ;;9002226.02101,"868,43063-0017-42 ",.01)
 ;;43063-0017-42
 ;;9002226.02101,"868,43063-0017-42 ",.02)
 ;;43063-0017-42
 ;;9002226.02101,"868,43063-0017-50 ",.01)
 ;;43063-0017-50
 ;;9002226.02101,"868,43063-0017-50 ",.02)
 ;;43063-0017-50
 ;;9002226.02101,"868,43063-0017-56 ",.01)
 ;;43063-0017-56
 ;;9002226.02101,"868,43063-0017-56 ",.02)
 ;;43063-0017-56
 ;;9002226.02101,"868,43063-0017-60 ",.01)
 ;;43063-0017-60
 ;;9002226.02101,"868,43063-0017-60 ",.02)
 ;;43063-0017-60
 ;;9002226.02101,"868,43063-0017-63 ",.01)
 ;;43063-0017-63
 ;;9002226.02101,"868,43063-0017-63 ",.02)
 ;;43063-0017-63
 ;;9002226.02101,"868,43063-0019-06 ",.01)
 ;;43063-0019-06
 ;;9002226.02101,"868,43063-0019-06 ",.02)
 ;;43063-0019-06
 ;;9002226.02101,"868,43063-0024-02 ",.01)
 ;;43063-0024-02
 ;;9002226.02101,"868,43063-0024-02 ",.02)
 ;;43063-0024-02
 ;;9002226.02101,"868,43063-0024-04 ",.01)
 ;;43063-0024-04
 ;;9002226.02101,"868,43063-0024-04 ",.02)
 ;;43063-0024-04
 ;;9002226.02101,"868,43063-0024-06 ",.01)
 ;;43063-0024-06
 ;;9002226.02101,"868,43063-0024-06 ",.02)
 ;;43063-0024-06
 ;;9002226.02101,"868,43063-0047-04 ",.01)
 ;;43063-0047-04
 ;;9002226.02101,"868,43063-0047-04 ",.02)
 ;;43063-0047-04
 ;;9002226.02101,"868,43063-0047-06 ",.01)
 ;;43063-0047-06
 ;;9002226.02101,"868,43063-0047-06 ",.02)
 ;;43063-0047-06
 ;;9002226.02101,"868,43063-0047-08 ",.01)
 ;;43063-0047-08
 ;;9002226.02101,"868,43063-0047-08 ",.02)
 ;;43063-0047-08
 ;;9002226.02101,"868,43063-0047-09 ",.01)
 ;;43063-0047-09
 ;;9002226.02101,"868,43063-0047-09 ",.02)
 ;;43063-0047-09
 ;;9002226.02101,"868,43063-0047-10 ",.01)
 ;;43063-0047-10
 ;;9002226.02101,"868,43063-0047-10 ",.02)
 ;;43063-0047-10
 ;;9002226.02101,"868,43063-0047-14 ",.01)
 ;;43063-0047-14
 ;;9002226.02101,"868,43063-0047-14 ",.02)
 ;;43063-0047-14
 ;;9002226.02101,"868,43063-0047-20 ",.01)
 ;;43063-0047-20
 ;;9002226.02101,"868,43063-0047-20 ",.02)
 ;;43063-0047-20
 ;;9002226.02101,"868,43063-0047-21 ",.01)
 ;;43063-0047-21
 ;;9002226.02101,"868,43063-0047-21 ",.02)
 ;;43063-0047-21
 ;;9002226.02101,"868,43063-0047-24 ",.01)
 ;;43063-0047-24
 ;;9002226.02101,"868,43063-0047-24 ",.02)
 ;;43063-0047-24
 ;;9002226.02101,"868,43063-0047-28 ",.01)
 ;;43063-0047-28
 ;;9002226.02101,"868,43063-0047-28 ",.02)
 ;;43063-0047-28
 ;;9002226.02101,"868,43063-0047-30 ",.01)
 ;;43063-0047-30
 ;;9002226.02101,"868,43063-0047-30 ",.02)
 ;;43063-0047-30
 ;;9002226.02101,"868,43063-0047-40 ",.01)
 ;;43063-0047-40
 ;;9002226.02101,"868,43063-0047-40 ",.02)
 ;;43063-0047-40
 ;;9002226.02101,"868,43063-0047-56 ",.01)
 ;;43063-0047-56
 ;;9002226.02101,"868,43063-0047-56 ",.02)
 ;;43063-0047-56
 ;;9002226.02101,"868,43063-0053-04 ",.01)
 ;;43063-0053-04