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

BGP8ZH22.m

Go to the documentation of this file.
BGP8ZH22 ;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,00247-0156-30 ",.02)
 ;;00247-0156-30
 ;;9002226.02101,"868,00247-0157-03 ",.01)
 ;;00247-0157-03
 ;;9002226.02101,"868,00247-0157-03 ",.02)
 ;;00247-0157-03
 ;;9002226.02101,"868,00247-0157-04 ",.01)
 ;;00247-0157-04
 ;;9002226.02101,"868,00247-0157-04 ",.02)
 ;;00247-0157-04
 ;;9002226.02101,"868,00247-0157-08 ",.01)
 ;;00247-0157-08
 ;;9002226.02101,"868,00247-0157-08 ",.02)
 ;;00247-0157-08
 ;;9002226.02101,"868,00247-0157-18 ",.01)
 ;;00247-0157-18
 ;;9002226.02101,"868,00247-0157-18 ",.02)
 ;;00247-0157-18
 ;;9002226.02101,"868,00247-0167-00 ",.01)
 ;;00247-0167-00
 ;;9002226.02101,"868,00247-0167-00 ",.02)
 ;;00247-0167-00
 ;;9002226.02101,"868,00247-0167-03 ",.01)
 ;;00247-0167-03
 ;;9002226.02101,"868,00247-0167-03 ",.02)
 ;;00247-0167-03
 ;;9002226.02101,"868,00247-0167-04 ",.01)
 ;;00247-0167-04
 ;;9002226.02101,"868,00247-0167-04 ",.02)
 ;;00247-0167-04
 ;;9002226.02101,"868,00247-0167-07 ",.01)
 ;;00247-0167-07
 ;;9002226.02101,"868,00247-0167-07 ",.02)
 ;;00247-0167-07
 ;;9002226.02101,"868,00247-0167-28 ",.01)
 ;;00247-0167-28
 ;;9002226.02101,"868,00247-0167-28 ",.02)
 ;;00247-0167-28
 ;;9002226.02101,"868,00247-0167-79 ",.01)
 ;;00247-0167-79
 ;;9002226.02101,"868,00247-0167-79 ",.02)
 ;;00247-0167-79
 ;;9002226.02101,"868,00247-0172-06 ",.01)
 ;;00247-0172-06
 ;;9002226.02101,"868,00247-0172-06 ",.02)
 ;;00247-0172-06
 ;;9002226.02101,"868,00247-0172-20 ",.01)
 ;;00247-0172-20
 ;;9002226.02101,"868,00247-0172-20 ",.02)
 ;;00247-0172-20
 ;;9002226.02101,"868,00247-0175-00 ",.01)
 ;;00247-0175-00
 ;;9002226.02101,"868,00247-0175-00 ",.02)
 ;;00247-0175-00
 ;;9002226.02101,"868,00247-0175-02 ",.01)
 ;;00247-0175-02
 ;;9002226.02101,"868,00247-0175-02 ",.02)
 ;;00247-0175-02
 ;;9002226.02101,"868,00247-0175-03 ",.01)
 ;;00247-0175-03
 ;;9002226.02101,"868,00247-0175-03 ",.02)
 ;;00247-0175-03
 ;;9002226.02101,"868,00247-0175-04 ",.01)
 ;;00247-0175-04
 ;;9002226.02101,"868,00247-0175-04 ",.02)
 ;;00247-0175-04
 ;;9002226.02101,"868,00247-0175-07 ",.01)
 ;;00247-0175-07
 ;;9002226.02101,"868,00247-0175-07 ",.02)
 ;;00247-0175-07
 ;;9002226.02101,"868,00247-0175-09 ",.01)
 ;;00247-0175-09
 ;;9002226.02101,"868,00247-0175-09 ",.02)
 ;;00247-0175-09
 ;;9002226.02101,"868,00247-0175-10 ",.01)
 ;;00247-0175-10
 ;;9002226.02101,"868,00247-0175-10 ",.02)
 ;;00247-0175-10
 ;;9002226.02101,"868,00247-0175-12 ",.01)
 ;;00247-0175-12
 ;;9002226.02101,"868,00247-0175-12 ",.02)
 ;;00247-0175-12
 ;;9002226.02101,"868,00247-0175-14 ",.01)
 ;;00247-0175-14
 ;;9002226.02101,"868,00247-0175-14 ",.02)
 ;;00247-0175-14
 ;;9002226.02101,"868,00247-0175-20 ",.01)
 ;;00247-0175-20
 ;;9002226.02101,"868,00247-0175-20 ",.02)
 ;;00247-0175-20
 ;;9002226.02101,"868,00247-0175-21 ",.01)
 ;;00247-0175-21
 ;;9002226.02101,"868,00247-0175-21 ",.02)
 ;;00247-0175-21
 ;;9002226.02101,"868,00247-0175-28 ",.01)
 ;;00247-0175-28
 ;;9002226.02101,"868,00247-0175-28 ",.02)
 ;;00247-0175-28
 ;;9002226.02101,"868,00247-0175-30 ",.01)
 ;;00247-0175-30
 ;;9002226.02101,"868,00247-0175-30 ",.02)
 ;;00247-0175-30
 ;;9002226.02101,"868,00247-0175-40 ",.01)
 ;;00247-0175-40
 ;;9002226.02101,"868,00247-0175-40 ",.02)
 ;;00247-0175-40
 ;;9002226.02101,"868,00247-0175-56 ",.01)
 ;;00247-0175-56
 ;;9002226.02101,"868,00247-0175-56 ",.02)
 ;;00247-0175-56
 ;;9002226.02101,"868,00247-0196-03 ",.01)
 ;;00247-0196-03
 ;;9002226.02101,"868,00247-0196-03 ",.02)
 ;;00247-0196-03
 ;;9002226.02101,"868,00247-0196-04 ",.01)
 ;;00247-0196-04
 ;;9002226.02101,"868,00247-0196-04 ",.02)
 ;;00247-0196-04
 ;;9002226.02101,"868,00247-0197-01 ",.01)
 ;;00247-0197-01
 ;;9002226.02101,"868,00247-0197-01 ",.02)
 ;;00247-0197-01
 ;;9002226.02101,"868,00247-0197-02 ",.01)
 ;;00247-0197-02
 ;;9002226.02101,"868,00247-0197-02 ",.02)
 ;;00247-0197-02
 ;;9002226.02101,"868,00247-0197-03 ",.01)
 ;;00247-0197-03
 ;;9002226.02101,"868,00247-0197-03 ",.02)
 ;;00247-0197-03
 ;;9002226.02101,"868,00247-0197-07 ",.01)
 ;;00247-0197-07
 ;;9002226.02101,"868,00247-0197-07 ",.02)
 ;;00247-0197-07
 ;;9002226.02101,"868,00247-0262-02 ",.01)
 ;;00247-0262-02
 ;;9002226.02101,"868,00247-0262-02 ",.02)
 ;;00247-0262-02
 ;;9002226.02101,"868,00247-0280-01 ",.01)
 ;;00247-0280-01
 ;;9002226.02101,"868,00247-0280-01 ",.02)
 ;;00247-0280-01
 ;;9002226.02101,"868,00247-0280-03 ",.01)
 ;;00247-0280-03
 ;;9002226.02101,"868,00247-0280-03 ",.02)
 ;;00247-0280-03
 ;;9002226.02101,"868,00247-0280-04 ",.01)
 ;;00247-0280-04
 ;;9002226.02101,"868,00247-0280-04 ",.02)
 ;;00247-0280-04
 ;;9002226.02101,"868,00247-0280-05 ",.01)
 ;;00247-0280-05
 ;;9002226.02101,"868,00247-0280-05 ",.02)
 ;;00247-0280-05
 ;;9002226.02101,"868,00247-0280-06 ",.01)
 ;;00247-0280-06
 ;;9002226.02101,"868,00247-0280-06 ",.02)
 ;;00247-0280-06
 ;;9002226.02101,"868,00247-0280-10 ",.01)
 ;;00247-0280-10
 ;;9002226.02101,"868,00247-0280-10 ",.02)
 ;;00247-0280-10
 ;;9002226.02101,"868,00247-0280-11 ",.01)
 ;;00247-0280-11
 ;;9002226.02101,"868,00247-0280-11 ",.02)
 ;;00247-0280-11
 ;;9002226.02101,"868,00247-0280-50 ",.01)
 ;;00247-0280-50
 ;;9002226.02101,"868,00247-0280-50 ",.02)
 ;;00247-0280-50
 ;;9002226.02101,"868,00247-0331-01 ",.01)
 ;;00247-0331-01
 ;;9002226.02101,"868,00247-0331-01 ",.02)
 ;;00247-0331-01
 ;;9002226.02101,"868,00247-0331-10 ",.01)
 ;;00247-0331-10
 ;;9002226.02101,"868,00247-0331-10 ",.02)
 ;;00247-0331-10
 ;;9002226.02101,"868,00247-0393-00 ",.01)
 ;;00247-0393-00
 ;;9002226.02101,"868,00247-0393-00 ",.02)
 ;;00247-0393-00
 ;;9002226.02101,"868,00247-0395-00 ",.01)
 ;;00247-0395-00
 ;;9002226.02101,"868,00247-0395-00 ",.02)
 ;;00247-0395-00
 ;;9002226.02101,"868,00247-0395-60 ",.01)
 ;;00247-0395-60
 ;;9002226.02101,"868,00247-0395-60 ",.02)
 ;;00247-0395-60
 ;;9002226.02101,"868,00247-0395-77 ",.01)
 ;;00247-0395-77
 ;;9002226.02101,"868,00247-0395-77 ",.02)
 ;;00247-0395-77
 ;;9002226.02101,"868,00247-0395-79 ",.01)
 ;;00247-0395-79
 ;;9002226.02101,"868,00247-0395-79 ",.02)
 ;;00247-0395-79
 ;;9002226.02101,"868,00247-0395-90 ",.01)
 ;;00247-0395-90
 ;;9002226.02101,"868,00247-0395-90 ",.02)
 ;;00247-0395-90
 ;;9002226.02101,"868,00247-0396-00 ",.01)
 ;;00247-0396-00
 ;;9002226.02101,"868,00247-0396-00 ",.02)
 ;;00247-0396-00
 ;;9002226.02101,"868,00247-0396-05 ",.01)
 ;;00247-0396-05
 ;;9002226.02101,"868,00247-0396-05 ",.02)
 ;;00247-0396-05
 ;;9002226.02101,"868,00247-0396-10 ",.01)
 ;;00247-0396-10
 ;;9002226.02101,"868,00247-0396-10 ",.02)
 ;;00247-0396-10
 ;;9002226.02101,"868,00247-0396-25 ",.01)
 ;;00247-0396-25
 ;;9002226.02101,"868,00247-0396-25 ",.02)
 ;;00247-0396-25
 ;;9002226.02101,"868,00247-0396-60 ",.01)
 ;;00247-0396-60
 ;;9002226.02101,"868,00247-0396-60 ",.02)
 ;;00247-0396-60
 ;;9002226.02101,"868,00247-0396-77 ",.01)
 ;;00247-0396-77
 ;;9002226.02101,"868,00247-0396-77 ",.02)
 ;;00247-0396-77
 ;;9002226.02101,"868,00247-0396-79 ",.01)
 ;;00247-0396-79
 ;;9002226.02101,"868,00247-0396-79 ",.02)
 ;;00247-0396-79
 ;;9002226.02101,"868,00247-0396-90 ",.01)
 ;;00247-0396-90
 ;;9002226.02101,"868,00247-0396-90 ",.02)
 ;;00247-0396-90
 ;;9002226.02101,"868,00247-0396-95 ",.01)
 ;;00247-0396-95
 ;;9002226.02101,"868,00247-0396-95 ",.02)
 ;;00247-0396-95
 ;;9002226.02101,"868,00247-0397-20 ",.01)
 ;;00247-0397-20
 ;;9002226.02101,"868,00247-0397-20 ",.02)
 ;;00247-0397-20
 ;;9002226.02101,"868,00247-0458-02 ",.01)
 ;;00247-0458-02
 ;;9002226.02101,"868,00247-0458-02 ",.02)
 ;;00247-0458-02
 ;;9002226.02101,"868,00247-0458-04 ",.01)
 ;;00247-0458-04
 ;;9002226.02101,"868,00247-0458-04 ",.02)
 ;;00247-0458-04
 ;;9002226.02101,"868,00247-0458-14 ",.01)
 ;;00247-0458-14
 ;;9002226.02101,"868,00247-0458-14 ",.02)
 ;;00247-0458-14
 ;;9002226.02101,"868,00247-0459-04 ",.01)
 ;;00247-0459-04
 ;;9002226.02101,"868,00247-0459-04 ",.02)
 ;;00247-0459-04
 ;;9002226.02101,"868,00247-0459-06 ",.01)
 ;;00247-0459-06
 ;;9002226.02101,"868,00247-0459-06 ",.02)
 ;;00247-0459-06
 ;;9002226.02101,"868,00247-0459-14 ",.01)
 ;;00247-0459-14
 ;;9002226.02101,"868,00247-0459-14 ",.02)
 ;;00247-0459-14
 ;;9002226.02101,"868,00247-0459-16 ",.01)
 ;;00247-0459-16
 ;;9002226.02101,"868,00247-0459-16 ",.02)
 ;;00247-0459-16
 ;;9002226.02101,"868,00247-0459-20 ",.01)
 ;;00247-0459-20
 ;;9002226.02101,"868,00247-0459-20 ",.02)
 ;;00247-0459-20
 ;;9002226.02101,"868,00247-0459-30 ",.01)
 ;;00247-0459-30
 ;;9002226.02101,"868,00247-0459-30 ",.02)
 ;;00247-0459-30
 ;;9002226.02101,"868,00247-0460-15 ",.01)
 ;;00247-0460-15
 ;;9002226.02101,"868,00247-0460-15 ",.02)
 ;;00247-0460-15
 ;;9002226.02101,"868,00247-0460-20 ",.01)
 ;;00247-0460-20
 ;;9002226.02101,"868,00247-0460-20 ",.02)
 ;;00247-0460-20
 ;;9002226.02101,"868,00247-0460-21 ",.01)
 ;;00247-0460-21
 ;;9002226.02101,"868,00247-0460-21 ",.02)
 ;;00247-0460-21
 ;;9002226.02101,"868,00247-0460-30 ",.01)
 ;;00247-0460-30
 ;;9002226.02101,"868,00247-0460-30 ",.02)
 ;;00247-0460-30
 ;;9002226.02101,"868,00247-0585-50 ",.01)
 ;;00247-0585-50
 ;;9002226.02101,"868,00247-0585-50 ",.02)
 ;;00247-0585-50
 ;;9002226.02101,"868,00247-0586-00 ",.01)
 ;;00247-0586-00
 ;;9002226.02101,"868,00247-0586-00 ",.02)
 ;;00247-0586-00
 ;;9002226.02101,"868,00247-0626-30 ",.01)
 ;;00247-0626-30
 ;;9002226.02101,"868,00247-0626-30 ",.02)
 ;;00247-0626-30
 ;;9002226.02101,"868,00247-0626-60 ",.01)
 ;;00247-0626-60
 ;;9002226.02101,"868,00247-0626-60 ",.02)
 ;;00247-0626-60
 ;;9002226.02101,"868,00247-0627-20 ",.01)
 ;;00247-0627-20
 ;;9002226.02101,"868,00247-0627-20 ",.02)
 ;;00247-0627-20
 ;;9002226.02101,"868,00247-0627-30 ",.01)
 ;;00247-0627-30
 ;;9002226.02101,"868,00247-0627-30 ",.02)
 ;;00247-0627-30
 ;;9002226.02101,"868,00247-0627-50 ",.01)
 ;;00247-0627-50
 ;;9002226.02101,"868,00247-0627-50 ",.02)
 ;;00247-0627-50
 ;;9002226.02101,"868,00247-0627-60 ",.01)
 ;;00247-0627-60
 ;;9002226.02101,"868,00247-0627-60 ",.02)
 ;;00247-0627-60
 ;;9002226.02101,"868,00247-0628-00 ",.01)
 ;;00247-0628-00
 ;;9002226.02101,"868,00247-0628-00 ",.02)
 ;;00247-0628-00
 ;;9002226.02101,"868,00247-0628-50 ",.01)
 ;;00247-0628-50
 ;;9002226.02101,"868,00247-0628-50 ",.02)
 ;;00247-0628-50
 ;;9002226.02101,"868,00247-0628-75 ",.01)
 ;;00247-0628-75
 ;;9002226.02101,"868,00247-0628-75 ",.02)
 ;;00247-0628-75
 ;;9002226.02101,"868,00247-0629-00 ",.01)
 ;;00247-0629-00
 ;;9002226.02101,"868,00247-0629-00 ",.02)
 ;;00247-0629-00
 ;;9002226.02101,"868,00247-0629-50 ",.01)
 ;;00247-0629-50
 ;;9002226.02101,"868,00247-0629-50 ",.02)
 ;;00247-0629-50
 ;;9002226.02101,"868,00247-0633-75 ",.01)
 ;;00247-0633-75
 ;;9002226.02101,"868,00247-0633-75 ",.02)
 ;;00247-0633-75
 ;;9002226.02101,"868,00247-0639-00 ",.01)
 ;;00247-0639-00
 ;;9002226.02101,"868,00247-0639-00 ",.02)
 ;;00247-0639-00
 ;;9002226.02101,"868,00247-0639-02 ",.01)
 ;;00247-0639-02
 ;;9002226.02101,"868,00247-0639-02 ",.02)
 ;;00247-0639-02
 ;;9002226.02101,"868,00247-0639-03 ",.01)
 ;;00247-0639-03
 ;;9002226.02101,"868,00247-0639-03 ",.02)
 ;;00247-0639-03
 ;;9002226.02101,"868,00247-0639-04 ",.01)
 ;;00247-0639-04
 ;;9002226.02101,"868,00247-0639-04 ",.02)
 ;;00247-0639-04
 ;;9002226.02101,"868,00247-0639-06 ",.01)
 ;;00247-0639-06
 ;;9002226.02101,"868,00247-0639-06 ",.02)
 ;;00247-0639-06
 ;;9002226.02101,"868,00247-0639-08 ",.01)
 ;;00247-0639-08
 ;;9002226.02101,"868,00247-0639-08 ",.02)
 ;;00247-0639-08
 ;;9002226.02101,"868,00247-0639-12 ",.01)
 ;;00247-0639-12
 ;;9002226.02101,"868,00247-0639-12 ",.02)
 ;;00247-0639-12
 ;;9002226.02101,"868,00247-0639-16 ",.01)
 ;;00247-0639-16
 ;;9002226.02101,"868,00247-0639-16 ",.02)
 ;;00247-0639-16
 ;;9002226.02101,"868,00247-0639-21 ",.01)
 ;;00247-0639-21