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

BGP47P14.m

Go to the documentation of this file.
BGP47P14 ;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,"806,54569-5618-01 ",.01)
 ;;54569-5618-01
 ;;9002226.02101,"806,54569-5618-01 ",.02)
 ;;54569-5618-01
 ;;9002226.02101,"806,54569-5618-02 ",.01)
 ;;54569-5618-02
 ;;9002226.02101,"806,54569-5618-02 ",.02)
 ;;54569-5618-02
 ;;9002226.02101,"806,54569-5618-03 ",.01)
 ;;54569-5618-03
 ;;9002226.02101,"806,54569-5618-03 ",.02)
 ;;54569-5618-03
 ;;9002226.02101,"806,54569-5619-00 ",.01)
 ;;54569-5619-00
 ;;9002226.02101,"806,54569-5619-00 ",.02)
 ;;54569-5619-00
 ;;9002226.02101,"806,54569-5619-01 ",.01)
 ;;54569-5619-01
 ;;9002226.02101,"806,54569-5619-01 ",.02)
 ;;54569-5619-01
 ;;9002226.02101,"806,54569-5619-02 ",.01)
 ;;54569-5619-02
 ;;9002226.02101,"806,54569-5619-02 ",.02)
 ;;54569-5619-02
 ;;9002226.02101,"806,54569-5619-03 ",.01)
 ;;54569-5619-03
 ;;9002226.02101,"806,54569-5619-03 ",.02)
 ;;54569-5619-03
 ;;9002226.02101,"806,54569-5619-04 ",.01)
 ;;54569-5619-04
 ;;9002226.02101,"806,54569-5619-04 ",.02)
 ;;54569-5619-04
 ;;9002226.02101,"806,54569-5623-00 ",.01)
 ;;54569-5623-00
 ;;9002226.02101,"806,54569-5623-00 ",.02)
 ;;54569-5623-00
 ;;9002226.02101,"806,54569-5636-00 ",.01)
 ;;54569-5636-00
 ;;9002226.02101,"806,54569-5636-00 ",.02)
 ;;54569-5636-00
 ;;9002226.02101,"806,54569-5636-01 ",.01)
 ;;54569-5636-01
 ;;9002226.02101,"806,54569-5636-01 ",.02)
 ;;54569-5636-01
 ;;9002226.02101,"806,54569-5858-00 ",.01)
 ;;54569-5858-00
 ;;9002226.02101,"806,54569-5858-00 ",.02)
 ;;54569-5858-00
 ;;9002226.02101,"806,54569-6391-00 ",.01)
 ;;54569-6391-00
 ;;9002226.02101,"806,54569-6391-00 ",.02)
 ;;54569-6391-00
 ;;9002226.02101,"806,54807-0891-01 ",.01)
 ;;54807-0891-01
 ;;9002226.02101,"806,54807-0891-01 ",.02)
 ;;54807-0891-01
 ;;9002226.02101,"806,54868-0036-00 ",.01)
 ;;54868-0036-00
 ;;9002226.02101,"806,54868-0036-00 ",.02)
 ;;54868-0036-00
 ;;9002226.02101,"806,54868-0036-02 ",.01)
 ;;54868-0036-02
 ;;9002226.02101,"806,54868-0036-02 ",.02)
 ;;54868-0036-02
 ;;9002226.02101,"806,54868-0036-04 ",.01)
 ;;54868-0036-04
 ;;9002226.02101,"806,54868-0036-04 ",.02)
 ;;54868-0036-04
 ;;9002226.02101,"806,54868-0041-00 ",.01)
 ;;54868-0041-00
 ;;9002226.02101,"806,54868-0041-00 ",.02)
 ;;54868-0041-00
 ;;9002226.02101,"806,54868-0083-00 ",.01)
 ;;54868-0083-00
 ;;9002226.02101,"806,54868-0083-00 ",.02)
 ;;54868-0083-00
 ;;9002226.02101,"806,54868-0084-00 ",.01)
 ;;54868-0084-00
 ;;9002226.02101,"806,54868-0084-00 ",.02)
 ;;54868-0084-00
 ;;9002226.02101,"806,54868-0084-01 ",.01)
 ;;54868-0084-01
 ;;9002226.02101,"806,54868-0084-01 ",.02)
 ;;54868-0084-01
 ;;9002226.02101,"806,54868-0084-02 ",.01)
 ;;54868-0084-02
 ;;9002226.02101,"806,54868-0084-02 ",.02)
 ;;54868-0084-02
 ;;9002226.02101,"806,54868-0365-00 ",.01)
 ;;54868-0365-00
 ;;9002226.02101,"806,54868-0365-00 ",.02)
 ;;54868-0365-00
 ;;9002226.02101,"806,54868-0365-01 ",.01)
 ;;54868-0365-01
 ;;9002226.02101,"806,54868-0365-01 ",.02)
 ;;54868-0365-01
 ;;9002226.02101,"806,54868-0365-02 ",.01)
 ;;54868-0365-02
 ;;9002226.02101,"806,54868-0365-02 ",.02)
 ;;54868-0365-02
 ;;9002226.02101,"806,54868-0365-03 ",.01)
 ;;54868-0365-03
 ;;9002226.02101,"806,54868-0365-03 ",.02)
 ;;54868-0365-03
 ;;9002226.02101,"806,54868-0451-00 ",.01)
 ;;54868-0451-00
 ;;9002226.02101,"806,54868-0451-00 ",.02)
 ;;54868-0451-00
 ;;9002226.02101,"806,54868-0451-01 ",.01)
 ;;54868-0451-01
 ;;9002226.02101,"806,54868-0451-01 ",.02)
 ;;54868-0451-01
 ;;9002226.02101,"806,54868-0451-02 ",.01)
 ;;54868-0451-02
 ;;9002226.02101,"806,54868-0451-02 ",.02)
 ;;54868-0451-02
 ;;9002226.02101,"806,54868-0451-03 ",.01)
 ;;54868-0451-03
 ;;9002226.02101,"806,54868-0451-03 ",.02)
 ;;54868-0451-03
 ;;9002226.02101,"806,54868-0451-04 ",.01)
 ;;54868-0451-04
 ;;9002226.02101,"806,54868-0451-04 ",.02)
 ;;54868-0451-04
 ;;9002226.02101,"806,54868-0451-05 ",.01)
 ;;54868-0451-05
 ;;9002226.02101,"806,54868-0451-05 ",.02)
 ;;54868-0451-05
 ;;9002226.02101,"806,54868-0451-06 ",.01)
 ;;54868-0451-06
 ;;9002226.02101,"806,54868-0451-06 ",.02)
 ;;54868-0451-06
 ;;9002226.02101,"806,54868-0451-07 ",.01)
 ;;54868-0451-07
 ;;9002226.02101,"806,54868-0451-07 ",.02)
 ;;54868-0451-07
 ;;9002226.02101,"806,54868-0452-03 ",.01)
 ;;54868-0452-03
 ;;9002226.02101,"806,54868-0452-03 ",.02)
 ;;54868-0452-03
 ;;9002226.02101,"806,54868-0453-00 ",.01)
 ;;54868-0453-00
 ;;9002226.02101,"806,54868-0453-00 ",.02)
 ;;54868-0453-00
 ;;9002226.02101,"806,54868-0453-01 ",.01)
 ;;54868-0453-01
 ;;9002226.02101,"806,54868-0453-01 ",.02)
 ;;54868-0453-01
 ;;9002226.02101,"806,54868-0453-02 ",.01)
 ;;54868-0453-02
 ;;9002226.02101,"806,54868-0453-02 ",.02)
 ;;54868-0453-02
 ;;9002226.02101,"806,54868-0453-03 ",.01)
 ;;54868-0453-03
 ;;9002226.02101,"806,54868-0453-03 ",.02)
 ;;54868-0453-03
 ;;9002226.02101,"806,54868-0453-04 ",.01)
 ;;54868-0453-04
 ;;9002226.02101,"806,54868-0453-04 ",.02)
 ;;54868-0453-04
 ;;9002226.02101,"806,54868-0453-05 ",.01)
 ;;54868-0453-05
 ;;9002226.02101,"806,54868-0453-05 ",.02)
 ;;54868-0453-05
 ;;9002226.02101,"806,54868-0453-06 ",.01)
 ;;54868-0453-06
 ;;9002226.02101,"806,54868-0453-06 ",.02)
 ;;54868-0453-06
 ;;9002226.02101,"806,54868-0494-01 ",.01)
 ;;54868-0494-01
 ;;9002226.02101,"806,54868-0494-01 ",.02)
 ;;54868-0494-01
 ;;9002226.02101,"806,54868-0794-00 ",.01)
 ;;54868-0794-00
 ;;9002226.02101,"806,54868-0794-00 ",.02)
 ;;54868-0794-00
 ;;9002226.02101,"806,54868-0794-01 ",.01)
 ;;54868-0794-01
 ;;9002226.02101,"806,54868-0794-01 ",.02)
 ;;54868-0794-01
 ;;9002226.02101,"806,54868-0877-01 ",.01)
 ;;54868-0877-01
 ;;9002226.02101,"806,54868-0877-01 ",.02)
 ;;54868-0877-01
 ;;9002226.02101,"806,54868-1244-01 ",.01)
 ;;54868-1244-01
 ;;9002226.02101,"806,54868-1244-01 ",.02)
 ;;54868-1244-01
 ;;9002226.02101,"806,54868-1244-02 ",.01)
 ;;54868-1244-02
 ;;9002226.02101,"806,54868-1244-02 ",.02)
 ;;54868-1244-02
 ;;9002226.02101,"806,54868-1244-03 ",.01)
 ;;54868-1244-03
 ;;9002226.02101,"806,54868-1244-03 ",.02)
 ;;54868-1244-03
 ;;9002226.02101,"806,54868-1244-04 ",.01)
 ;;54868-1244-04
 ;;9002226.02101,"806,54868-1244-04 ",.02)
 ;;54868-1244-04
 ;;9002226.02101,"806,54868-1245-01 ",.01)
 ;;54868-1245-01
 ;;9002226.02101,"806,54868-1245-01 ",.02)
 ;;54868-1245-01
 ;;9002226.02101,"806,54868-1245-02 ",.01)
 ;;54868-1245-02
 ;;9002226.02101,"806,54868-1245-02 ",.02)
 ;;54868-1245-02
 ;;9002226.02101,"806,54868-1245-05 ",.01)
 ;;54868-1245-05
 ;;9002226.02101,"806,54868-1245-05 ",.02)
 ;;54868-1245-05
 ;;9002226.02101,"806,54868-1261-00 ",.01)
 ;;54868-1261-00
 ;;9002226.02101,"806,54868-1261-00 ",.02)
 ;;54868-1261-00
 ;;9002226.02101,"806,54868-1262-00 ",.01)
 ;;54868-1262-00
 ;;9002226.02101,"806,54868-1262-00 ",.02)
 ;;54868-1262-00
 ;;9002226.02101,"806,54868-1262-01 ",.01)
 ;;54868-1262-01
 ;;9002226.02101,"806,54868-1262-01 ",.02)
 ;;54868-1262-01
 ;;9002226.02101,"806,54868-1262-02 ",.01)
 ;;54868-1262-02
 ;;9002226.02101,"806,54868-1262-02 ",.02)
 ;;54868-1262-02
 ;;9002226.02101,"806,54868-1432-00 ",.01)
 ;;54868-1432-00
 ;;9002226.02101,"806,54868-1432-00 ",.02)
 ;;54868-1432-00
 ;;9002226.02101,"806,54868-1432-01 ",.01)
 ;;54868-1432-01
 ;;9002226.02101,"806,54868-1432-01 ",.02)
 ;;54868-1432-01
 ;;9002226.02101,"806,54868-1629-00 ",.01)
 ;;54868-1629-00
 ;;9002226.02101,"806,54868-1629-00 ",.02)
 ;;54868-1629-00
 ;;9002226.02101,"806,54868-1629-01 ",.01)
 ;;54868-1629-01
 ;;9002226.02101,"806,54868-1629-01 ",.02)
 ;;54868-1629-01
 ;;9002226.02101,"806,54868-1629-02 ",.01)
 ;;54868-1629-02
 ;;9002226.02101,"806,54868-1629-02 ",.02)
 ;;54868-1629-02
 ;;9002226.02101,"806,54868-1629-03 ",.01)
 ;;54868-1629-03
 ;;9002226.02101,"806,54868-1629-03 ",.02)
 ;;54868-1629-03
 ;;9002226.02101,"806,54868-1688-01 ",.01)
 ;;54868-1688-01
 ;;9002226.02101,"806,54868-1688-01 ",.02)
 ;;54868-1688-01
 ;;9002226.02101,"806,54868-2702-00 ",.01)
 ;;54868-2702-00
 ;;9002226.02101,"806,54868-2702-00 ",.02)
 ;;54868-2702-00
 ;;9002226.02101,"806,54868-2702-01 ",.01)
 ;;54868-2702-01
 ;;9002226.02101,"806,54868-2702-01 ",.02)
 ;;54868-2702-01
 ;;9002226.02101,"806,54868-2702-02 ",.01)
 ;;54868-2702-02
 ;;9002226.02101,"806,54868-2702-02 ",.02)
 ;;54868-2702-02
 ;;9002226.02101,"806,54868-2702-03 ",.01)
 ;;54868-2702-03
 ;;9002226.02101,"806,54868-2702-03 ",.02)
 ;;54868-2702-03
 ;;9002226.02101,"806,54868-2702-04 ",.01)
 ;;54868-2702-04
 ;;9002226.02101,"806,54868-2702-04 ",.02)
 ;;54868-2702-04
 ;;9002226.02101,"806,54868-3017-00 ",.01)
 ;;54868-3017-00
 ;;9002226.02101,"806,54868-3017-00 ",.02)
 ;;54868-3017-00
 ;;9002226.02101,"806,54868-3114-00 ",.01)
 ;;54868-3114-00
 ;;9002226.02101,"806,54868-3114-00 ",.02)
 ;;54868-3114-00
 ;;9002226.02101,"806,54868-3114-01 ",.01)
 ;;54868-3114-01
 ;;9002226.02101,"806,54868-3114-01 ",.02)
 ;;54868-3114-01
 ;;9002226.02101,"806,54868-3247-00 ",.01)
 ;;54868-3247-00
 ;;9002226.02101,"806,54868-3247-00 ",.02)
 ;;54868-3247-00
 ;;9002226.02101,"806,54868-3247-01 ",.01)
 ;;54868-3247-01
 ;;9002226.02101,"806,54868-3247-01 ",.02)
 ;;54868-3247-01
 ;;9002226.02101,"806,54868-3265-00 ",.01)
 ;;54868-3265-00
 ;;9002226.02101,"806,54868-3265-00 ",.02)
 ;;54868-3265-00
 ;;9002226.02101,"806,54868-3265-01 ",.01)
 ;;54868-3265-01
 ;;9002226.02101,"806,54868-3265-01 ",.02)
 ;;54868-3265-01
 ;;9002226.02101,"806,54868-3265-02 ",.01)
 ;;54868-3265-02
 ;;9002226.02101,"806,54868-3265-02 ",.02)
 ;;54868-3265-02
 ;;9002226.02101,"806,54868-3265-03 ",.01)
 ;;54868-3265-03
 ;;9002226.02101,"806,54868-3265-03 ",.02)
 ;;54868-3265-03
 ;;9002226.02101,"806,54868-3265-04 ",.01)
 ;;54868-3265-04
 ;;9002226.02101,"806,54868-3265-04 ",.02)
 ;;54868-3265-04
 ;;9002226.02101,"806,54868-3265-05 ",.01)
 ;;54868-3265-05
 ;;9002226.02101,"806,54868-3265-05 ",.02)
 ;;54868-3265-05
 ;;9002226.02101,"806,54868-3265-06 ",.01)
 ;;54868-3265-06
 ;;9002226.02101,"806,54868-3265-06 ",.02)
 ;;54868-3265-06
 ;;9002226.02101,"806,54868-3266-00 ",.01)
 ;;54868-3266-00
 ;;9002226.02101,"806,54868-3266-00 ",.02)
 ;;54868-3266-00
 ;;9002226.02101,"806,54868-3266-01 ",.01)
 ;;54868-3266-01
 ;;9002226.02101,"806,54868-3266-01 ",.02)
 ;;54868-3266-01
 ;;9002226.02101,"806,54868-3266-02 ",.01)
 ;;54868-3266-02
 ;;9002226.02101,"806,54868-3266-02 ",.02)
 ;;54868-3266-02
 ;;9002226.02101,"806,54868-3266-03 ",.01)
 ;;54868-3266-03
 ;;9002226.02101,"806,54868-3266-03 ",.02)
 ;;54868-3266-03
 ;;9002226.02101,"806,54868-3266-04 ",.01)
 ;;54868-3266-04
 ;;9002226.02101,"806,54868-3266-04 ",.02)
 ;;54868-3266-04
 ;;9002226.02101,"806,54868-3426-00 ",.01)
 ;;54868-3426-00
 ;;9002226.02101,"806,54868-3426-00 ",.02)
 ;;54868-3426-00
 ;;9002226.02101,"806,54868-3426-01 ",.01)
 ;;54868-3426-01
 ;;9002226.02101,"806,54868-3426-01 ",.02)
 ;;54868-3426-01
 ;;9002226.02101,"806,54868-3564-00 ",.01)
 ;;54868-3564-00
 ;;9002226.02101,"806,54868-3564-00 ",.02)
 ;;54868-3564-00
 ;;9002226.02101,"806,54868-3564-01 ",.01)
 ;;54868-3564-01
 ;;9002226.02101,"806,54868-3564-01 ",.02)
 ;;54868-3564-01
 ;;9002226.02101,"806,54868-3564-02 ",.01)
 ;;54868-3564-02
 ;;9002226.02101,"806,54868-3564-02 ",.02)
 ;;54868-3564-02
 ;;9002226.02101,"806,54868-3565-00 ",.01)
 ;;54868-3565-00
 ;;9002226.02101,"806,54868-3565-00 ",.02)
 ;;54868-3565-00
 ;;9002226.02101,"806,54868-3565-01 ",.01)
 ;;54868-3565-01
 ;;9002226.02101,"806,54868-3565-01 ",.02)
 ;;54868-3565-01
 ;;9002226.02101,"806,54868-3565-02 ",.01)
 ;;54868-3565-02
 ;;9002226.02101,"806,54868-3565-02 ",.02)
 ;;54868-3565-02
 ;;9002226.02101,"806,54868-3653-00 ",.01)
 ;;54868-3653-00
 ;;9002226.02101,"806,54868-3653-00 ",.02)
 ;;54868-3653-00
 ;;9002226.02101,"806,54868-3672-00 ",.01)
 ;;54868-3672-00
 ;;9002226.02101,"806,54868-3672-00 ",.02)
 ;;54868-3672-00
 ;;9002226.02101,"806,54868-3672-01 ",.01)
 ;;54868-3672-01
 ;;9002226.02101,"806,54868-3672-01 ",.02)
 ;;54868-3672-01
 ;;9002226.02101,"806,54868-3673-00 ",.01)
 ;;54868-3673-00
 ;;9002226.02101,"806,54868-3673-00 ",.02)
 ;;54868-3673-00
 ;;9002226.02101,"806,54868-3673-01 ",.01)
 ;;54868-3673-01
 ;;9002226.02101,"806,54868-3673-01 ",.02)
 ;;54868-3673-01
 ;;9002226.02101,"806,54868-3711-00 ",.01)
 ;;54868-3711-00
 ;;9002226.02101,"806,54868-3711-00 ",.02)
 ;;54868-3711-00
 ;;9002226.02101,"806,54868-3711-01 ",.01)
 ;;54868-3711-01
 ;;9002226.02101,"806,54868-3711-01 ",.02)
 ;;54868-3711-01
 ;;9002226.02101,"806,54868-3795-00 ",.01)
 ;;54868-3795-00
 ;;9002226.02101,"806,54868-3795-00 ",.02)
 ;;54868-3795-00
 ;;9002226.02101,"806,54868-3796-00 ",.01)
 ;;54868-3796-00
 ;;9002226.02101,"806,54868-3796-00 ",.02)
 ;;54868-3796-00
 ;;9002226.02101,"806,54868-3797-00 ",.01)
 ;;54868-3797-00
 ;;9002226.02101,"806,54868-3797-00 ",.02)
 ;;54868-3797-00
 ;;9002226.02101,"806,54868-3799-00 ",.01)
 ;;54868-3799-00
 ;;9002226.02101,"806,54868-3799-00 ",.02)
 ;;54868-3799-00
 ;;9002226.02101,"806,54868-3800-00 ",.01)
 ;;54868-3800-00
 ;;9002226.02101,"806,54868-3800-00 ",.02)
 ;;54868-3800-00
 ;;9002226.02101,"806,54868-4030-00 ",.01)
 ;;54868-4030-00
 ;;9002226.02101,"806,54868-4030-00 ",.02)
 ;;54868-4030-00
 ;;9002226.02101,"806,54868-4030-01 ",.01)
 ;;54868-4030-01
 ;;9002226.02101,"806,54868-4030-01 ",.02)
 ;;54868-4030-01
 ;;9002226.02101,"806,54868-4030-02 ",.01)
 ;;54868-4030-02
 ;;9002226.02101,"806,54868-4030-02 ",.02)
 ;;54868-4030-02
 ;;9002226.02101,"806,54868-4031-00 ",.01)
 ;;54868-4031-00
 ;;9002226.02101,"806,54868-4031-00 ",.02)
 ;;54868-4031-00
 ;;9002226.02101,"806,54868-4031-01 ",.01)
 ;;54868-4031-01
 ;;9002226.02101,"806,54868-4031-01 ",.02)
 ;;54868-4031-01