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

BGP47D27.m

Go to the documentation of this file.
BGP47D27 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 16, 2014;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,"734,00247-0167-00 ",.02)
 ;;00247-0167-00
 ;;9002226.02101,"734,00247-0167-01 ",.01)
 ;;00247-0167-01
 ;;9002226.02101,"734,00247-0167-01 ",.02)
 ;;00247-0167-01
 ;;9002226.02101,"734,00247-0167-02 ",.01)
 ;;00247-0167-02
 ;;9002226.02101,"734,00247-0167-02 ",.02)
 ;;00247-0167-02
 ;;9002226.02101,"734,00247-0167-03 ",.01)
 ;;00247-0167-03
 ;;9002226.02101,"734,00247-0167-03 ",.02)
 ;;00247-0167-03
 ;;9002226.02101,"734,00247-0167-04 ",.01)
 ;;00247-0167-04
 ;;9002226.02101,"734,00247-0167-04 ",.02)
 ;;00247-0167-04
 ;;9002226.02101,"734,00247-0167-06 ",.01)
 ;;00247-0167-06
 ;;9002226.02101,"734,00247-0167-06 ",.02)
 ;;00247-0167-06
 ;;9002226.02101,"734,00247-0167-07 ",.01)
 ;;00247-0167-07
 ;;9002226.02101,"734,00247-0167-07 ",.02)
 ;;00247-0167-07
 ;;9002226.02101,"734,00247-0167-08 ",.01)
 ;;00247-0167-08
 ;;9002226.02101,"734,00247-0167-08 ",.02)
 ;;00247-0167-08
 ;;9002226.02101,"734,00247-0167-10 ",.01)
 ;;00247-0167-10
 ;;9002226.02101,"734,00247-0167-10 ",.02)
 ;;00247-0167-10
 ;;9002226.02101,"734,00247-0167-12 ",.01)
 ;;00247-0167-12
 ;;9002226.02101,"734,00247-0167-12 ",.02)
 ;;00247-0167-12
 ;;9002226.02101,"734,00247-0167-14 ",.01)
 ;;00247-0167-14
 ;;9002226.02101,"734,00247-0167-14 ",.02)
 ;;00247-0167-14
 ;;9002226.02101,"734,00247-0167-15 ",.01)
 ;;00247-0167-15
 ;;9002226.02101,"734,00247-0167-15 ",.02)
 ;;00247-0167-15
 ;;9002226.02101,"734,00247-0167-20 ",.01)
 ;;00247-0167-20
 ;;9002226.02101,"734,00247-0167-20 ",.02)
 ;;00247-0167-20
 ;;9002226.02101,"734,00247-0167-28 ",.01)
 ;;00247-0167-28
 ;;9002226.02101,"734,00247-0167-28 ",.02)
 ;;00247-0167-28
 ;;9002226.02101,"734,00247-0167-30 ",.01)
 ;;00247-0167-30
 ;;9002226.02101,"734,00247-0167-30 ",.02)
 ;;00247-0167-30
 ;;9002226.02101,"734,00247-0167-79 ",.01)
 ;;00247-0167-79
 ;;9002226.02101,"734,00247-0167-79 ",.02)
 ;;00247-0167-79
 ;;9002226.02101,"734,00247-0172-06 ",.01)
 ;;00247-0172-06
 ;;9002226.02101,"734,00247-0172-06 ",.02)
 ;;00247-0172-06
 ;;9002226.02101,"734,00247-0172-20 ",.01)
 ;;00247-0172-20
 ;;9002226.02101,"734,00247-0172-20 ",.02)
 ;;00247-0172-20
 ;;9002226.02101,"734,00247-0175-00 ",.01)
 ;;00247-0175-00
 ;;9002226.02101,"734,00247-0175-00 ",.02)
 ;;00247-0175-00
 ;;9002226.02101,"734,00247-0175-02 ",.01)
 ;;00247-0175-02
 ;;9002226.02101,"734,00247-0175-02 ",.02)
 ;;00247-0175-02
 ;;9002226.02101,"734,00247-0175-03 ",.01)
 ;;00247-0175-03
 ;;9002226.02101,"734,00247-0175-03 ",.02)
 ;;00247-0175-03
 ;;9002226.02101,"734,00247-0175-04 ",.01)
 ;;00247-0175-04
 ;;9002226.02101,"734,00247-0175-04 ",.02)
 ;;00247-0175-04
 ;;9002226.02101,"734,00247-0175-07 ",.01)
 ;;00247-0175-07
 ;;9002226.02101,"734,00247-0175-07 ",.02)
 ;;00247-0175-07
 ;;9002226.02101,"734,00247-0175-09 ",.01)
 ;;00247-0175-09
 ;;9002226.02101,"734,00247-0175-09 ",.02)
 ;;00247-0175-09
 ;;9002226.02101,"734,00247-0175-10 ",.01)
 ;;00247-0175-10
 ;;9002226.02101,"734,00247-0175-10 ",.02)
 ;;00247-0175-10
 ;;9002226.02101,"734,00247-0175-12 ",.01)
 ;;00247-0175-12
 ;;9002226.02101,"734,00247-0175-12 ",.02)
 ;;00247-0175-12
 ;;9002226.02101,"734,00247-0175-14 ",.01)
 ;;00247-0175-14
 ;;9002226.02101,"734,00247-0175-14 ",.02)
 ;;00247-0175-14
 ;;9002226.02101,"734,00247-0175-20 ",.01)
 ;;00247-0175-20
 ;;9002226.02101,"734,00247-0175-20 ",.02)
 ;;00247-0175-20
 ;;9002226.02101,"734,00247-0175-21 ",.01)
 ;;00247-0175-21
 ;;9002226.02101,"734,00247-0175-21 ",.02)
 ;;00247-0175-21
 ;;9002226.02101,"734,00247-0175-28 ",.01)
 ;;00247-0175-28
 ;;9002226.02101,"734,00247-0175-28 ",.02)
 ;;00247-0175-28
 ;;9002226.02101,"734,00247-0175-30 ",.01)
 ;;00247-0175-30
 ;;9002226.02101,"734,00247-0175-30 ",.02)
 ;;00247-0175-30
 ;;9002226.02101,"734,00247-0175-40 ",.01)
 ;;00247-0175-40
 ;;9002226.02101,"734,00247-0175-40 ",.02)
 ;;00247-0175-40
 ;;9002226.02101,"734,00247-0175-56 ",.01)
 ;;00247-0175-56
 ;;9002226.02101,"734,00247-0175-56 ",.02)
 ;;00247-0175-56
 ;;9002226.02101,"734,00247-0196-03 ",.01)
 ;;00247-0196-03
 ;;9002226.02101,"734,00247-0196-03 ",.02)
 ;;00247-0196-03
 ;;9002226.02101,"734,00247-0196-04 ",.01)
 ;;00247-0196-04
 ;;9002226.02101,"734,00247-0196-04 ",.02)
 ;;00247-0196-04
 ;;9002226.02101,"734,00247-0196-15 ",.01)
 ;;00247-0196-15
 ;;9002226.02101,"734,00247-0196-15 ",.02)
 ;;00247-0196-15
 ;;9002226.02101,"734,00247-0196-30 ",.01)
 ;;00247-0196-30
 ;;9002226.02101,"734,00247-0196-30 ",.02)
 ;;00247-0196-30
 ;;9002226.02101,"734,00247-0197-01 ",.01)
 ;;00247-0197-01
 ;;9002226.02101,"734,00247-0197-01 ",.02)
 ;;00247-0197-01
 ;;9002226.02101,"734,00247-0197-02 ",.01)
 ;;00247-0197-02
 ;;9002226.02101,"734,00247-0197-02 ",.02)
 ;;00247-0197-02
 ;;9002226.02101,"734,00247-0197-03 ",.01)
 ;;00247-0197-03
 ;;9002226.02101,"734,00247-0197-03 ",.02)
 ;;00247-0197-03
 ;;9002226.02101,"734,00247-0197-04 ",.01)
 ;;00247-0197-04
 ;;9002226.02101,"734,00247-0197-04 ",.02)
 ;;00247-0197-04
 ;;9002226.02101,"734,00247-0197-06 ",.01)
 ;;00247-0197-06
 ;;9002226.02101,"734,00247-0197-06 ",.02)
 ;;00247-0197-06
 ;;9002226.02101,"734,00247-0197-07 ",.01)
 ;;00247-0197-07
 ;;9002226.02101,"734,00247-0197-07 ",.02)
 ;;00247-0197-07
 ;;9002226.02101,"734,00247-0197-10 ",.01)
 ;;00247-0197-10
 ;;9002226.02101,"734,00247-0197-10 ",.02)
 ;;00247-0197-10
 ;;9002226.02101,"734,00247-0197-12 ",.01)
 ;;00247-0197-12
 ;;9002226.02101,"734,00247-0197-12 ",.02)
 ;;00247-0197-12
 ;;9002226.02101,"734,00247-0197-14 ",.01)
 ;;00247-0197-14
 ;;9002226.02101,"734,00247-0197-14 ",.02)
 ;;00247-0197-14
 ;;9002226.02101,"734,00247-0197-20 ",.01)
 ;;00247-0197-20
 ;;9002226.02101,"734,00247-0197-20 ",.02)
 ;;00247-0197-20
 ;;9002226.02101,"734,00247-0197-28 ",.01)
 ;;00247-0197-28
 ;;9002226.02101,"734,00247-0197-28 ",.02)
 ;;00247-0197-28
 ;;9002226.02101,"734,00247-0197-30 ",.01)
 ;;00247-0197-30
 ;;9002226.02101,"734,00247-0197-30 ",.02)
 ;;00247-0197-30
 ;;9002226.02101,"734,00247-0197-60 ",.01)
 ;;00247-0197-60
 ;;9002226.02101,"734,00247-0197-60 ",.02)
 ;;00247-0197-60
 ;;9002226.02101,"734,00247-0262-02 ",.01)
 ;;00247-0262-02
 ;;9002226.02101,"734,00247-0262-02 ",.02)
 ;;00247-0262-02
 ;;9002226.02101,"734,00247-0262-04 ",.01)
 ;;00247-0262-04
 ;;9002226.02101,"734,00247-0262-04 ",.02)
 ;;00247-0262-04
 ;;9002226.02101,"734,00247-0262-08 ",.01)
 ;;00247-0262-08
 ;;9002226.02101,"734,00247-0262-08 ",.02)
 ;;00247-0262-08
 ;;9002226.02101,"734,00247-0262-10 ",.01)
 ;;00247-0262-10
 ;;9002226.02101,"734,00247-0262-10 ",.02)
 ;;00247-0262-10
 ;;9002226.02101,"734,00247-0262-14 ",.01)
 ;;00247-0262-14
 ;;9002226.02101,"734,00247-0262-14 ",.02)
 ;;00247-0262-14
 ;;9002226.02101,"734,00247-0262-16 ",.01)
 ;;00247-0262-16
 ;;9002226.02101,"734,00247-0262-16 ",.02)
 ;;00247-0262-16
 ;;9002226.02101,"734,00247-0262-20 ",.01)
 ;;00247-0262-20
 ;;9002226.02101,"734,00247-0262-20 ",.02)
 ;;00247-0262-20
 ;;9002226.02101,"734,00247-0280-01 ",.01)
 ;;00247-0280-01
 ;;9002226.02101,"734,00247-0280-01 ",.02)
 ;;00247-0280-01
 ;;9002226.02101,"734,00247-0280-02 ",.01)
 ;;00247-0280-02
 ;;9002226.02101,"734,00247-0280-02 ",.02)
 ;;00247-0280-02
 ;;9002226.02101,"734,00247-0280-03 ",.01)
 ;;00247-0280-03
 ;;9002226.02101,"734,00247-0280-03 ",.02)
 ;;00247-0280-03
 ;;9002226.02101,"734,00247-0280-04 ",.01)
 ;;00247-0280-04
 ;;9002226.02101,"734,00247-0280-04 ",.02)
 ;;00247-0280-04
 ;;9002226.02101,"734,00247-0280-05 ",.01)
 ;;00247-0280-05
 ;;9002226.02101,"734,00247-0280-05 ",.02)
 ;;00247-0280-05
 ;;9002226.02101,"734,00247-0280-06 ",.01)
 ;;00247-0280-06
 ;;9002226.02101,"734,00247-0280-06 ",.02)
 ;;00247-0280-06
 ;;9002226.02101,"734,00247-0280-10 ",.01)
 ;;00247-0280-10
 ;;9002226.02101,"734,00247-0280-10 ",.02)
 ;;00247-0280-10
 ;;9002226.02101,"734,00247-0280-11 ",.01)
 ;;00247-0280-11
 ;;9002226.02101,"734,00247-0280-11 ",.02)
 ;;00247-0280-11
 ;;9002226.02101,"734,00247-0280-50 ",.01)
 ;;00247-0280-50
 ;;9002226.02101,"734,00247-0280-50 ",.02)
 ;;00247-0280-50
 ;;9002226.02101,"734,00247-0331-01 ",.01)
 ;;00247-0331-01
 ;;9002226.02101,"734,00247-0331-01 ",.02)
 ;;00247-0331-01
 ;;9002226.02101,"734,00247-0331-10 ",.01)
 ;;00247-0331-10
 ;;9002226.02101,"734,00247-0331-10 ",.02)
 ;;00247-0331-10
 ;;9002226.02101,"734,00247-0339-20 ",.01)
 ;;00247-0339-20
 ;;9002226.02101,"734,00247-0339-20 ",.02)
 ;;00247-0339-20
 ;;9002226.02101,"734,00247-0360-01 ",.01)
 ;;00247-0360-01
 ;;9002226.02101,"734,00247-0360-01 ",.02)
 ;;00247-0360-01
 ;;9002226.02101,"734,00247-0360-10 ",.01)
 ;;00247-0360-10
 ;;9002226.02101,"734,00247-0360-10 ",.02)
 ;;00247-0360-10
 ;;9002226.02101,"734,00247-0360-14 ",.01)
 ;;00247-0360-14
 ;;9002226.02101,"734,00247-0360-14 ",.02)
 ;;00247-0360-14
 ;;9002226.02101,"734,00247-0360-20 ",.01)
 ;;00247-0360-20
 ;;9002226.02101,"734,00247-0360-20 ",.02)
 ;;00247-0360-20
 ;;9002226.02101,"734,00247-0393-00 ",.01)
 ;;00247-0393-00
 ;;9002226.02101,"734,00247-0393-00 ",.02)
 ;;00247-0393-00
 ;;9002226.02101,"734,00247-0393-79 ",.01)
 ;;00247-0393-79
 ;;9002226.02101,"734,00247-0393-79 ",.02)
 ;;00247-0393-79
 ;;9002226.02101,"734,00247-0395-00 ",.01)
 ;;00247-0395-00
 ;;9002226.02101,"734,00247-0395-00 ",.02)
 ;;00247-0395-00
 ;;9002226.02101,"734,00247-0395-60 ",.01)
 ;;00247-0395-60
 ;;9002226.02101,"734,00247-0395-60 ",.02)
 ;;00247-0395-60
 ;;9002226.02101,"734,00247-0395-77 ",.01)
 ;;00247-0395-77
 ;;9002226.02101,"734,00247-0395-77 ",.02)
 ;;00247-0395-77
 ;;9002226.02101,"734,00247-0395-79 ",.01)
 ;;00247-0395-79
 ;;9002226.02101,"734,00247-0395-79 ",.02)
 ;;00247-0395-79
 ;;9002226.02101,"734,00247-0395-90 ",.01)
 ;;00247-0395-90
 ;;9002226.02101,"734,00247-0395-90 ",.02)
 ;;00247-0395-90
 ;;9002226.02101,"734,00247-0396-00 ",.01)
 ;;00247-0396-00
 ;;9002226.02101,"734,00247-0396-00 ",.02)
 ;;00247-0396-00
 ;;9002226.02101,"734,00247-0396-05 ",.01)
 ;;00247-0396-05
 ;;9002226.02101,"734,00247-0396-05 ",.02)
 ;;00247-0396-05
 ;;9002226.02101,"734,00247-0396-10 ",.01)
 ;;00247-0396-10
 ;;9002226.02101,"734,00247-0396-10 ",.02)
 ;;00247-0396-10
 ;;9002226.02101,"734,00247-0396-25 ",.01)
 ;;00247-0396-25
 ;;9002226.02101,"734,00247-0396-25 ",.02)
 ;;00247-0396-25
 ;;9002226.02101,"734,00247-0396-60 ",.01)
 ;;00247-0396-60
 ;;9002226.02101,"734,00247-0396-60 ",.02)
 ;;00247-0396-60
 ;;9002226.02101,"734,00247-0396-77 ",.01)
 ;;00247-0396-77
 ;;9002226.02101,"734,00247-0396-77 ",.02)
 ;;00247-0396-77
 ;;9002226.02101,"734,00247-0396-79 ",.01)
 ;;00247-0396-79
 ;;9002226.02101,"734,00247-0396-79 ",.02)
 ;;00247-0396-79
 ;;9002226.02101,"734,00247-0396-90 ",.01)
 ;;00247-0396-90
 ;;9002226.02101,"734,00247-0396-90 ",.02)
 ;;00247-0396-90
 ;;9002226.02101,"734,00247-0396-95 ",.01)
 ;;00247-0396-95
 ;;9002226.02101,"734,00247-0396-95 ",.02)
 ;;00247-0396-95
 ;;9002226.02101,"734,00247-0397-20 ",.01)
 ;;00247-0397-20
 ;;9002226.02101,"734,00247-0397-20 ",.02)
 ;;00247-0397-20
 ;;9002226.02101,"734,00247-0433-10 ",.01)
 ;;00247-0433-10
 ;;9002226.02101,"734,00247-0433-10 ",.02)
 ;;00247-0433-10
 ;;9002226.02101,"734,00247-0433-20 ",.01)
 ;;00247-0433-20
 ;;9002226.02101,"734,00247-0433-20 ",.02)
 ;;00247-0433-20
 ;;9002226.02101,"734,00247-0458-02 ",.01)
 ;;00247-0458-02
 ;;9002226.02101,"734,00247-0458-02 ",.02)
 ;;00247-0458-02
 ;;9002226.02101,"734,00247-0458-04 ",.01)
 ;;00247-0458-04
 ;;9002226.02101,"734,00247-0458-04 ",.02)
 ;;00247-0458-04
 ;;9002226.02101,"734,00247-0458-10 ",.01)
 ;;00247-0458-10
 ;;9002226.02101,"734,00247-0458-10 ",.02)
 ;;00247-0458-10
 ;;9002226.02101,"734,00247-0458-14 ",.01)
 ;;00247-0458-14
 ;;9002226.02101,"734,00247-0458-14 ",.02)
 ;;00247-0458-14
 ;;9002226.02101,"734,00247-0458-20 ",.01)
 ;;00247-0458-20
 ;;9002226.02101,"734,00247-0458-20 ",.02)
 ;;00247-0458-20
 ;;9002226.02101,"734,00247-0459-04 ",.01)
 ;;00247-0459-04
 ;;9002226.02101,"734,00247-0459-04 ",.02)
 ;;00247-0459-04
 ;;9002226.02101,"734,00247-0459-06 ",.01)
 ;;00247-0459-06
 ;;9002226.02101,"734,00247-0459-06 ",.02)
 ;;00247-0459-06
 ;;9002226.02101,"734,00247-0459-14 ",.01)
 ;;00247-0459-14
 ;;9002226.02101,"734,00247-0459-14 ",.02)
 ;;00247-0459-14
 ;;9002226.02101,"734,00247-0459-16 ",.01)
 ;;00247-0459-16
 ;;9002226.02101,"734,00247-0459-16 ",.02)
 ;;00247-0459-16
 ;;9002226.02101,"734,00247-0459-20 ",.01)
 ;;00247-0459-20
 ;;9002226.02101,"734,00247-0459-20 ",.02)
 ;;00247-0459-20
 ;;9002226.02101,"734,00247-0459-30 ",.01)
 ;;00247-0459-30
 ;;9002226.02101,"734,00247-0459-30 ",.02)
 ;;00247-0459-30
 ;;9002226.02101,"734,00247-0460-15 ",.01)
 ;;00247-0460-15
 ;;9002226.02101,"734,00247-0460-15 ",.02)
 ;;00247-0460-15
 ;;9002226.02101,"734,00247-0460-20 ",.01)
 ;;00247-0460-20
 ;;9002226.02101,"734,00247-0460-20 ",.02)
 ;;00247-0460-20
 ;;9002226.02101,"734,00247-0460-21 ",.01)
 ;;00247-0460-21
 ;;9002226.02101,"734,00247-0460-21 ",.02)
 ;;00247-0460-21
 ;;9002226.02101,"734,00247-0460-30 ",.01)
 ;;00247-0460-30
 ;;9002226.02101,"734,00247-0460-30 ",.02)
 ;;00247-0460-30
 ;;9002226.02101,"734,00247-0563-06 ",.01)
 ;;00247-0563-06
 ;;9002226.02101,"734,00247-0563-06 ",.02)
 ;;00247-0563-06
 ;;9002226.02101,"734,00247-0563-20 ",.01)
 ;;00247-0563-20
 ;;9002226.02101,"734,00247-0563-20 ",.02)
 ;;00247-0563-20
 ;;9002226.02101,"734,00247-0563-21 ",.01)
 ;;00247-0563-21
 ;;9002226.02101,"734,00247-0563-21 ",.02)
 ;;00247-0563-21
 ;;9002226.02101,"734,00247-0563-30 ",.01)
 ;;00247-0563-30
 ;;9002226.02101,"734,00247-0563-30 ",.02)
 ;;00247-0563-30
 ;;9002226.02101,"734,00247-0585-50 ",.01)
 ;;00247-0585-50