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

BGP47E57.m

Go to the documentation of this file.
BGP47E57 ;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,"798,68115-0124-90 ",.01)
 ;;68115-0124-90
 ;;9002226.02101,"798,68115-0124-90 ",.02)
 ;;68115-0124-90
 ;;9002226.02101,"798,68115-0143-30 ",.01)
 ;;68115-0143-30
 ;;9002226.02101,"798,68115-0143-30 ",.02)
 ;;68115-0143-30
 ;;9002226.02101,"798,68115-0143-60 ",.01)
 ;;68115-0143-60
 ;;9002226.02101,"798,68115-0143-60 ",.02)
 ;;68115-0143-60
 ;;9002226.02101,"798,68115-0143-90 ",.01)
 ;;68115-0143-90
 ;;9002226.02101,"798,68115-0143-90 ",.02)
 ;;68115-0143-90
 ;;9002226.02101,"798,68115-0144-00 ",.01)
 ;;68115-0144-00
 ;;9002226.02101,"798,68115-0144-00 ",.02)
 ;;68115-0144-00
 ;;9002226.02101,"798,68115-0144-30 ",.01)
 ;;68115-0144-30
 ;;9002226.02101,"798,68115-0144-30 ",.02)
 ;;68115-0144-30
 ;;9002226.02101,"798,68115-0144-60 ",.01)
 ;;68115-0144-60
 ;;9002226.02101,"798,68115-0144-60 ",.02)
 ;;68115-0144-60
 ;;9002226.02101,"798,68115-0144-90 ",.01)
 ;;68115-0144-90
 ;;9002226.02101,"798,68115-0144-90 ",.02)
 ;;68115-0144-90
 ;;9002226.02101,"798,68115-0145-30 ",.01)
 ;;68115-0145-30
 ;;9002226.02101,"798,68115-0145-30 ",.02)
 ;;68115-0145-30
 ;;9002226.02101,"798,68115-0145-60 ",.01)
 ;;68115-0145-60
 ;;9002226.02101,"798,68115-0145-60 ",.02)
 ;;68115-0145-60
 ;;9002226.02101,"798,68115-0145-90 ",.01)
 ;;68115-0145-90
 ;;9002226.02101,"798,68115-0145-90 ",.02)
 ;;68115-0145-90
 ;;9002226.02101,"798,68115-0261-00 ",.01)
 ;;68115-0261-00
 ;;9002226.02101,"798,68115-0261-00 ",.02)
 ;;68115-0261-00
 ;;9002226.02101,"798,68115-0261-30 ",.01)
 ;;68115-0261-30
 ;;9002226.02101,"798,68115-0261-30 ",.02)
 ;;68115-0261-30
 ;;9002226.02101,"798,68115-0261-45 ",.01)
 ;;68115-0261-45
 ;;9002226.02101,"798,68115-0261-45 ",.02)
 ;;68115-0261-45
 ;;9002226.02101,"798,68115-0261-60 ",.01)
 ;;68115-0261-60
 ;;9002226.02101,"798,68115-0261-60 ",.02)
 ;;68115-0261-60
 ;;9002226.02101,"798,68115-0261-98 ",.01)
 ;;68115-0261-98
 ;;9002226.02101,"798,68115-0261-98 ",.02)
 ;;68115-0261-98
 ;;9002226.02101,"798,68115-0262-00 ",.01)
 ;;68115-0262-00
 ;;9002226.02101,"798,68115-0262-00 ",.02)
 ;;68115-0262-00
 ;;9002226.02101,"798,68115-0262-30 ",.01)
 ;;68115-0262-30
 ;;9002226.02101,"798,68115-0262-30 ",.02)
 ;;68115-0262-30
 ;;9002226.02101,"798,68115-0262-60 ",.01)
 ;;68115-0262-60
 ;;9002226.02101,"798,68115-0262-60 ",.02)
 ;;68115-0262-60
 ;;9002226.02101,"798,68115-0262-90 ",.01)
 ;;68115-0262-90
 ;;9002226.02101,"798,68115-0262-90 ",.02)
 ;;68115-0262-90
 ;;9002226.02101,"798,68115-0267-30 ",.01)
 ;;68115-0267-30
 ;;9002226.02101,"798,68115-0267-30 ",.02)
 ;;68115-0267-30
 ;;9002226.02101,"798,68115-0293-30 ",.01)
 ;;68115-0293-30
 ;;9002226.02101,"798,68115-0293-30 ",.02)
 ;;68115-0293-30
 ;;9002226.02101,"798,68115-0296-00 ",.01)
 ;;68115-0296-00
 ;;9002226.02101,"798,68115-0296-00 ",.02)
 ;;68115-0296-00
 ;;9002226.02101,"798,68115-0296-15 ",.01)
 ;;68115-0296-15
 ;;9002226.02101,"798,68115-0296-15 ",.02)
 ;;68115-0296-15
 ;;9002226.02101,"798,68115-0296-30 ",.01)
 ;;68115-0296-30
 ;;9002226.02101,"798,68115-0296-30 ",.02)
 ;;68115-0296-30
 ;;9002226.02101,"798,68115-0296-60 ",.01)
 ;;68115-0296-60
 ;;9002226.02101,"798,68115-0296-60 ",.02)
 ;;68115-0296-60
 ;;9002226.02101,"798,68115-0296-90 ",.01)
 ;;68115-0296-90
 ;;9002226.02101,"798,68115-0296-90 ",.02)
 ;;68115-0296-90
 ;;9002226.02101,"798,68115-0297-30 ",.01)
 ;;68115-0297-30
 ;;9002226.02101,"798,68115-0297-30 ",.02)
 ;;68115-0297-30
 ;;9002226.02101,"798,68115-0331-30 ",.01)
 ;;68115-0331-30
 ;;9002226.02101,"798,68115-0331-30 ",.02)
 ;;68115-0331-30
 ;;9002226.02101,"798,68115-0331-60 ",.01)
 ;;68115-0331-60
 ;;9002226.02101,"798,68115-0331-60 ",.02)
 ;;68115-0331-60
 ;;9002226.02101,"798,68115-0331-90 ",.01)
 ;;68115-0331-90
 ;;9002226.02101,"798,68115-0331-90 ",.02)
 ;;68115-0331-90
 ;;9002226.02101,"798,68115-0332-30 ",.01)
 ;;68115-0332-30
 ;;9002226.02101,"798,68115-0332-30 ",.02)
 ;;68115-0332-30
 ;;9002226.02101,"798,68115-0332-60 ",.01)
 ;;68115-0332-60
 ;;9002226.02101,"798,68115-0332-60 ",.02)
 ;;68115-0332-60
 ;;9002226.02101,"798,68115-0332-90 ",.01)
 ;;68115-0332-90
 ;;9002226.02101,"798,68115-0332-90 ",.02)
 ;;68115-0332-90
 ;;9002226.02101,"798,68115-0333-30 ",.01)
 ;;68115-0333-30
 ;;9002226.02101,"798,68115-0333-30 ",.02)
 ;;68115-0333-30
 ;;9002226.02101,"798,68115-0333-60 ",.01)
 ;;68115-0333-60
 ;;9002226.02101,"798,68115-0333-60 ",.02)
 ;;68115-0333-60
 ;;9002226.02101,"798,68115-0333-90 ",.01)
 ;;68115-0333-90
 ;;9002226.02101,"798,68115-0333-90 ",.02)
 ;;68115-0333-90
 ;;9002226.02101,"798,68115-0365-00 ",.01)
 ;;68115-0365-00
 ;;9002226.02101,"798,68115-0365-00 ",.02)
 ;;68115-0365-00
 ;;9002226.02101,"798,68115-0365-15 ",.01)
 ;;68115-0365-15
 ;;9002226.02101,"798,68115-0365-15 ",.02)
 ;;68115-0365-15
 ;;9002226.02101,"798,68115-0365-30 ",.01)
 ;;68115-0365-30
 ;;9002226.02101,"798,68115-0365-30 ",.02)
 ;;68115-0365-30
 ;;9002226.02101,"798,68115-0365-45 ",.01)
 ;;68115-0365-45
 ;;9002226.02101,"798,68115-0365-45 ",.02)
 ;;68115-0365-45
 ;;9002226.02101,"798,68115-0365-60 ",.01)
 ;;68115-0365-60
 ;;9002226.02101,"798,68115-0365-60 ",.02)
 ;;68115-0365-60
 ;;9002226.02101,"798,68115-0366-00 ",.01)
 ;;68115-0366-00
 ;;9002226.02101,"798,68115-0366-00 ",.02)
 ;;68115-0366-00
 ;;9002226.02101,"798,68115-0366-15 ",.01)
 ;;68115-0366-15
 ;;9002226.02101,"798,68115-0366-15 ",.02)
 ;;68115-0366-15
 ;;9002226.02101,"798,68115-0366-30 ",.01)
 ;;68115-0366-30
 ;;9002226.02101,"798,68115-0366-30 ",.02)
 ;;68115-0366-30
 ;;9002226.02101,"798,68115-0366-60 ",.01)
 ;;68115-0366-60
 ;;9002226.02101,"798,68115-0366-60 ",.02)
 ;;68115-0366-60
 ;;9002226.02101,"798,68115-0371-15 ",.01)
 ;;68115-0371-15
 ;;9002226.02101,"798,68115-0371-15 ",.02)
 ;;68115-0371-15
 ;;9002226.02101,"798,68115-0371-30 ",.01)
 ;;68115-0371-30
 ;;9002226.02101,"798,68115-0371-30 ",.02)
 ;;68115-0371-30
 ;;9002226.02101,"798,68115-0372-30 ",.01)
 ;;68115-0372-30
 ;;9002226.02101,"798,68115-0372-30 ",.02)
 ;;68115-0372-30
 ;;9002226.02101,"798,68115-0372-60 ",.01)
 ;;68115-0372-60
 ;;9002226.02101,"798,68115-0372-60 ",.02)
 ;;68115-0372-60
 ;;9002226.02101,"798,68115-0384-30 ",.01)
 ;;68115-0384-30
 ;;9002226.02101,"798,68115-0384-30 ",.02)
 ;;68115-0384-30
 ;;9002226.02101,"798,68115-0384-60 ",.01)
 ;;68115-0384-60
 ;;9002226.02101,"798,68115-0384-60 ",.02)
 ;;68115-0384-60
 ;;9002226.02101,"798,68115-0391-00 ",.01)
 ;;68115-0391-00
 ;;9002226.02101,"798,68115-0391-00 ",.02)
 ;;68115-0391-00
 ;;9002226.02101,"798,68115-0391-15 ",.01)
 ;;68115-0391-15
 ;;9002226.02101,"798,68115-0391-15 ",.02)
 ;;68115-0391-15
 ;;9002226.02101,"798,68115-0391-30 ",.01)
 ;;68115-0391-30
 ;;9002226.02101,"798,68115-0391-30 ",.02)
 ;;68115-0391-30
 ;;9002226.02101,"798,68115-0391-60 ",.01)
 ;;68115-0391-60
 ;;9002226.02101,"798,68115-0391-60 ",.02)
 ;;68115-0391-60
 ;;9002226.02101,"798,68115-0402-30 ",.01)
 ;;68115-0402-30
 ;;9002226.02101,"798,68115-0402-30 ",.02)
 ;;68115-0402-30
 ;;9002226.02101,"798,68115-0402-60 ",.01)
 ;;68115-0402-60
 ;;9002226.02101,"798,68115-0402-60 ",.02)
 ;;68115-0402-60
 ;;9002226.02101,"798,68115-0412-00 ",.01)
 ;;68115-0412-00
 ;;9002226.02101,"798,68115-0412-00 ",.02)
 ;;68115-0412-00
 ;;9002226.02101,"798,68115-0412-30 ",.01)
 ;;68115-0412-30
 ;;9002226.02101,"798,68115-0412-30 ",.02)
 ;;68115-0412-30
 ;;9002226.02101,"798,68115-0412-60 ",.01)
 ;;68115-0412-60
 ;;9002226.02101,"798,68115-0412-60 ",.02)
 ;;68115-0412-60
 ;;9002226.02101,"798,68115-0412-90 ",.01)
 ;;68115-0412-90
 ;;9002226.02101,"798,68115-0412-90 ",.02)
 ;;68115-0412-90
 ;;9002226.02101,"798,68115-0418-00 ",.01)
 ;;68115-0418-00
 ;;9002226.02101,"798,68115-0418-00 ",.02)
 ;;68115-0418-00
 ;;9002226.02101,"798,68115-0418-30 ",.01)
 ;;68115-0418-30
 ;;9002226.02101,"798,68115-0418-30 ",.02)
 ;;68115-0418-30
 ;;9002226.02101,"798,68115-0418-60 ",.01)
 ;;68115-0418-60
 ;;9002226.02101,"798,68115-0418-60 ",.02)
 ;;68115-0418-60
 ;;9002226.02101,"798,68115-0430-30 ",.01)
 ;;68115-0430-30
 ;;9002226.02101,"798,68115-0430-30 ",.02)
 ;;68115-0430-30
 ;;9002226.02101,"798,68115-0439-30 ",.01)
 ;;68115-0439-30
 ;;9002226.02101,"798,68115-0439-30 ",.02)
 ;;68115-0439-30
 ;;9002226.02101,"798,68115-0445-30 ",.01)
 ;;68115-0445-30
 ;;9002226.02101,"798,68115-0445-30 ",.02)
 ;;68115-0445-30
 ;;9002226.02101,"798,68115-0445-60 ",.01)
 ;;68115-0445-60
 ;;9002226.02101,"798,68115-0445-60 ",.02)
 ;;68115-0445-60
 ;;9002226.02101,"798,68115-0447-30 ",.01)
 ;;68115-0447-30
 ;;9002226.02101,"798,68115-0447-30 ",.02)
 ;;68115-0447-30
 ;;9002226.02101,"798,68115-0447-60 ",.01)
 ;;68115-0447-60
 ;;9002226.02101,"798,68115-0447-60 ",.02)
 ;;68115-0447-60
 ;;9002226.02101,"798,68115-0477-30 ",.01)
 ;;68115-0477-30
 ;;9002226.02101,"798,68115-0477-30 ",.02)
 ;;68115-0477-30
 ;;9002226.02101,"798,68115-0477-60 ",.01)
 ;;68115-0477-60
 ;;9002226.02101,"798,68115-0477-60 ",.02)
 ;;68115-0477-60
 ;;9002226.02101,"798,68115-0477-90 ",.01)
 ;;68115-0477-90
 ;;9002226.02101,"798,68115-0477-90 ",.02)
 ;;68115-0477-90
 ;;9002226.02101,"798,68115-0478-00 ",.01)
 ;;68115-0478-00
 ;;9002226.02101,"798,68115-0478-00 ",.02)
 ;;68115-0478-00
 ;;9002226.02101,"798,68115-0478-15 ",.01)
 ;;68115-0478-15
 ;;9002226.02101,"798,68115-0478-15 ",.02)
 ;;68115-0478-15
 ;;9002226.02101,"798,68115-0478-30 ",.01)
 ;;68115-0478-30
 ;;9002226.02101,"798,68115-0478-30 ",.02)
 ;;68115-0478-30
 ;;9002226.02101,"798,68115-0478-60 ",.01)
 ;;68115-0478-60
 ;;9002226.02101,"798,68115-0478-60 ",.02)
 ;;68115-0478-60
 ;;9002226.02101,"798,68115-0478-90 ",.01)
 ;;68115-0478-90
 ;;9002226.02101,"798,68115-0478-90 ",.02)
 ;;68115-0478-90
 ;;9002226.02101,"798,68115-0482-30 ",.01)
 ;;68115-0482-30
 ;;9002226.02101,"798,68115-0482-30 ",.02)
 ;;68115-0482-30
 ;;9002226.02101,"798,68115-0482-60 ",.01)
 ;;68115-0482-60
 ;;9002226.02101,"798,68115-0482-60 ",.02)
 ;;68115-0482-60
 ;;9002226.02101,"798,68115-0483-60 ",.01)
 ;;68115-0483-60
 ;;9002226.02101,"798,68115-0483-60 ",.02)
 ;;68115-0483-60
 ;;9002226.02101,"798,68115-0489-30 ",.01)
 ;;68115-0489-30
 ;;9002226.02101,"798,68115-0489-30 ",.02)
 ;;68115-0489-30
 ;;9002226.02101,"798,68115-0493-30 ",.01)
 ;;68115-0493-30
 ;;9002226.02101,"798,68115-0493-30 ",.02)
 ;;68115-0493-30
 ;;9002226.02101,"798,68115-0493-60 ",.01)
 ;;68115-0493-60
 ;;9002226.02101,"798,68115-0493-60 ",.02)
 ;;68115-0493-60
 ;;9002226.02101,"798,68115-0505-00 ",.01)
 ;;68115-0505-00
 ;;9002226.02101,"798,68115-0505-00 ",.02)
 ;;68115-0505-00
 ;;9002226.02101,"798,68115-0505-15 ",.01)
 ;;68115-0505-15
 ;;9002226.02101,"798,68115-0505-15 ",.02)
 ;;68115-0505-15
 ;;9002226.02101,"798,68115-0505-30 ",.01)
 ;;68115-0505-30
 ;;9002226.02101,"798,68115-0505-30 ",.02)
 ;;68115-0505-30
 ;;9002226.02101,"798,68115-0505-60 ",.01)
 ;;68115-0505-60
 ;;9002226.02101,"798,68115-0505-60 ",.02)
 ;;68115-0505-60
 ;;9002226.02101,"798,68115-0505-90 ",.01)
 ;;68115-0505-90
 ;;9002226.02101,"798,68115-0505-90 ",.02)
 ;;68115-0505-90
 ;;9002226.02101,"798,68115-0506-15 ",.01)
 ;;68115-0506-15
 ;;9002226.02101,"798,68115-0506-15 ",.02)
 ;;68115-0506-15
 ;;9002226.02101,"798,68115-0506-30 ",.01)
 ;;68115-0506-30
 ;;9002226.02101,"798,68115-0506-30 ",.02)
 ;;68115-0506-30
 ;;9002226.02101,"798,68115-0509-30 ",.01)
 ;;68115-0509-30
 ;;9002226.02101,"798,68115-0509-30 ",.02)
 ;;68115-0509-30
 ;;9002226.02101,"798,68115-0544-30 ",.01)
 ;;68115-0544-30
 ;;9002226.02101,"798,68115-0544-30 ",.02)
 ;;68115-0544-30
 ;;9002226.02101,"798,68115-0591-00 ",.01)
 ;;68115-0591-00
 ;;9002226.02101,"798,68115-0591-00 ",.02)
 ;;68115-0591-00
 ;;9002226.02101,"798,68115-0624-00 ",.01)
 ;;68115-0624-00
 ;;9002226.02101,"798,68115-0624-00 ",.02)
 ;;68115-0624-00
 ;;9002226.02101,"798,68115-0641-60 ",.01)
 ;;68115-0641-60
 ;;9002226.02101,"798,68115-0641-60 ",.02)
 ;;68115-0641-60
 ;;9002226.02101,"798,68115-0656-30 ",.01)
 ;;68115-0656-30
 ;;9002226.02101,"798,68115-0656-30 ",.02)
 ;;68115-0656-30
 ;;9002226.02101,"798,68115-0676-00 ",.01)
 ;;68115-0676-00
 ;;9002226.02101,"798,68115-0676-00 ",.02)
 ;;68115-0676-00
 ;;9002226.02101,"798,68115-0676-60 ",.01)
 ;;68115-0676-60
 ;;9002226.02101,"798,68115-0676-60 ",.02)
 ;;68115-0676-60
 ;;9002226.02101,"798,68115-0679-00 ",.01)
 ;;68115-0679-00
 ;;9002226.02101,"798,68115-0679-00 ",.02)
 ;;68115-0679-00
 ;;9002226.02101,"798,68115-0689-00 ",.01)
 ;;68115-0689-00
 ;;9002226.02101,"798,68115-0689-00 ",.02)
 ;;68115-0689-00
 ;;9002226.02101,"798,68115-0695-30 ",.01)
 ;;68115-0695-30
 ;;9002226.02101,"798,68115-0695-30 ",.02)
 ;;68115-0695-30
 ;;9002226.02101,"798,68115-0695-60 ",.01)
 ;;68115-0695-60
 ;;9002226.02101,"798,68115-0695-60 ",.02)
 ;;68115-0695-60
 ;;9002226.02101,"798,68115-0695-90 ",.01)
 ;;68115-0695-90
 ;;9002226.02101,"798,68115-0695-90 ",.02)
 ;;68115-0695-90
 ;;9002226.02101,"798,68115-0697-60 ",.01)
 ;;68115-0697-60
 ;;9002226.02101,"798,68115-0697-60 ",.02)
 ;;68115-0697-60
 ;;9002226.02101,"798,68115-0716-00 ",.01)
 ;;68115-0716-00
 ;;9002226.02101,"798,68115-0716-00 ",.02)
 ;;68115-0716-00
 ;;9002226.02101,"798,68115-0719-00 ",.01)
 ;;68115-0719-00
 ;;9002226.02101,"798,68115-0719-00 ",.02)
 ;;68115-0719-00
 ;;9002226.02101,"798,68115-0719-30 ",.01)
 ;;68115-0719-30
 ;;9002226.02101,"798,68115-0719-30 ",.02)
 ;;68115-0719-30
 ;;9002226.02101,"798,68115-0732-30 ",.01)
 ;;68115-0732-30
 ;;9002226.02101,"798,68115-0732-30 ",.02)
 ;;68115-0732-30
 ;;9002226.02101,"798,68115-0738-00 ",.01)
 ;;68115-0738-00
 ;;9002226.02101,"798,68115-0738-00 ",.02)
 ;;68115-0738-00