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

BGP33I57.m

Go to the documentation of this file.
BGP33I57 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 23, 2013;
 ;;13.0;IHS CLINICAL REPORTING;**1**;NOV 20, 2012;Build 7
 ;
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-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
 ;;9002226.02101,"798,68115-0738-30 ",.01)
 ;;68115-0738-30
 ;;9002226.02101,"798,68115-0738-30 ",.02)
 ;;68115-0738-30
 ;;9002226.02101,"798,68115-0740-00 ",.01)
 ;;68115-0740-00
 ;;9002226.02101,"798,68115-0740-00 ",.02)
 ;;68115-0740-00
 ;;9002226.02101,"798,68115-0740-30 ",.01)
 ;;68115-0740-30
 ;;9002226.02101,"798,68115-0740-30 ",.02)
 ;;68115-0740-30
 ;;9002226.02101,"798,68115-0751-30 ",.01)
 ;;68115-0751-30
 ;;9002226.02101,"798,68115-0751-30 ",.02)
 ;;68115-0751-30
 ;;9002226.02101,"798,68115-0764-00 ",.01)
 ;;68115-0764-00
 ;;9002226.02101,"798,68115-0764-00 ",.02)
 ;;68115-0764-00
 ;;9002226.02101,"798,68115-0765-30 ",.01)
 ;;68115-0765-30
 ;;9002226.02101,"798,68115-0765-30 ",.02)
 ;;68115-0765-30
 ;;9002226.02101,"798,68115-0765-50 ",.01)
 ;;68115-0765-50
 ;;9002226.02101,"798,68115-0765-50 ",.02)
 ;;68115-0765-50
 ;;9002226.02101,"798,68115-0767-00 ",.01)
 ;;68115-0767-00
 ;;9002226.02101,"798,68115-0767-00 ",.02)
 ;;68115-0767-00
 ;;9002226.02101,"798,68115-0797-00 ",.01)
 ;;68115-0797-00
 ;;9002226.02101,"798,68115-0797-00 ",.02)
 ;;68115-0797-00
 ;;9002226.02101,"798,68115-0798-60 ",.01)
 ;;68115-0798-60
 ;;9002226.02101,"798,68115-0798-60 ",.02)
 ;;68115-0798-60
 ;;9002226.02101,"798,68115-0801-30 ",.01)
 ;;68115-0801-30
 ;;9002226.02101,"798,68115-0801-30 ",.02)
 ;;68115-0801-30
 ;;9002226.02101,"798,68115-0810-15 ",.01)
 ;;68115-0810-15
 ;;9002226.02101,"798,68115-0810-15 ",.02)
 ;;68115-0810-15
 ;;9002226.02101,"798,68115-0810-30 ",.01)
 ;;68115-0810-30
 ;;9002226.02101,"798,68115-0810-30 ",.02)
 ;;68115-0810-30
 ;;9002226.02101,"798,68115-0825-15 ",.01)
 ;;68115-0825-15
 ;;9002226.02101,"798,68115-0825-15 ",.02)
 ;;68115-0825-15
 ;;9002226.02101,"798,68115-0825-30 ",.01)
 ;;68115-0825-30
 ;;9002226.02101,"798,68115-0825-30 ",.02)
 ;;68115-0825-30
 ;;9002226.02101,"798,68115-0831-00 ",.01)
 ;;68115-0831-00
 ;;9002226.02101,"798,68115-0831-00 ",.02)
 ;;68115-0831-00
 ;;9002226.02101,"798,68115-0835-60 ",.01)
 ;;68115-0835-60
 ;;9002226.02101,"798,68115-0835-60 ",.02)
 ;;68115-0835-60
 ;;9002226.02101,"798,68115-0844-00 ",.01)
 ;;68115-0844-00
 ;;9002226.02101,"798,68115-0844-00 ",.02)
 ;;68115-0844-00
 ;;9002226.02101,"798,68115-0847-30 ",.01)
 ;;68115-0847-30
 ;;9002226.02101,"798,68115-0847-30 ",.02)
 ;;68115-0847-30
 ;;9002226.02101,"798,68115-0848-00 ",.01)
 ;;68115-0848-00
 ;;9002226.02101,"798,68115-0848-00 ",.02)
 ;;68115-0848-00
 ;;9002226.02101,"798,68115-0857-00 ",.01)
 ;;68115-0857-00
 ;;9002226.02101,"798,68115-0857-00 ",.02)
 ;;68115-0857-00
 ;;9002226.02101,"798,68115-0859-00 ",.01)
 ;;68115-0859-00
 ;;9002226.02101,"798,68115-0859-00 ",.02)
 ;;68115-0859-00
 ;;9002226.02101,"798,68115-0866-00 ",.01)
 ;;68115-0866-00