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

BGP31L27.m

Go to the documentation of this file.
BGP31L27 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 29, 2012;
 ;;13.0;IHS CLINICAL REPORTING;;NOV 20, 2012;Build 81
 ;
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,"618,60258-0445-30 ",.01)
 ;;60258-0445-30
 ;;9002226.02101,"618,60258-0445-30 ",.02)
 ;;60258-0445-30
 ;;9002226.02101,"618,60258-0470-01 ",.01)
 ;;60258-0470-01
 ;;9002226.02101,"618,60258-0470-01 ",.02)
 ;;60258-0470-01
 ;;9002226.02101,"618,60258-0471-01 ",.01)
 ;;60258-0471-01
 ;;9002226.02101,"618,60258-0471-01 ",.02)
 ;;60258-0471-01
 ;;9002226.02101,"618,60258-0683-16 ",.01)
 ;;60258-0683-16
 ;;9002226.02101,"618,60258-0683-16 ",.02)
 ;;60258-0683-16
 ;;9002226.02101,"618,60258-0850-01 ",.01)
 ;;60258-0850-01
 ;;9002226.02101,"618,60258-0850-01 ",.02)
 ;;60258-0850-01
 ;;9002226.02101,"618,60258-0850-10 ",.01)
 ;;60258-0850-10
 ;;9002226.02101,"618,60258-0850-10 ",.02)
 ;;60258-0850-10
 ;;9002226.02101,"618,60346-0045-06 ",.01)
 ;;60346-0045-06
 ;;9002226.02101,"618,60346-0045-06 ",.02)
 ;;60346-0045-06
 ;;9002226.02101,"618,60346-0045-12 ",.01)
 ;;60346-0045-12
 ;;9002226.02101,"618,60346-0045-12 ",.02)
 ;;60346-0045-12
 ;;9002226.02101,"618,60346-0045-15 ",.01)
 ;;60346-0045-15
 ;;9002226.02101,"618,60346-0045-15 ",.02)
 ;;60346-0045-15
 ;;9002226.02101,"618,60346-0045-20 ",.01)
 ;;60346-0045-20
 ;;9002226.02101,"618,60346-0045-20 ",.02)
 ;;60346-0045-20
 ;;9002226.02101,"618,60346-0045-30 ",.01)
 ;;60346-0045-30
 ;;9002226.02101,"618,60346-0045-30 ",.02)
 ;;60346-0045-30
 ;;9002226.02101,"618,60346-0045-44 ",.01)
 ;;60346-0045-44
 ;;9002226.02101,"618,60346-0045-44 ",.02)
 ;;60346-0045-44
 ;;9002226.02101,"618,60346-0045-60 ",.01)
 ;;60346-0045-60
 ;;9002226.02101,"618,60346-0045-60 ",.02)
 ;;60346-0045-60
 ;;9002226.02101,"618,60346-0045-94 ",.01)
 ;;60346-0045-94
 ;;9002226.02101,"618,60346-0045-94 ",.02)
 ;;60346-0045-94
 ;;9002226.02101,"618,60346-0062-04 ",.01)
 ;;60346-0062-04
 ;;9002226.02101,"618,60346-0062-04 ",.02)
 ;;60346-0062-04
 ;;9002226.02101,"618,60346-0085-10 ",.01)
 ;;60346-0085-10
 ;;9002226.02101,"618,60346-0085-10 ",.02)
 ;;60346-0085-10
 ;;9002226.02101,"618,60346-0085-12 ",.01)
 ;;60346-0085-12
 ;;9002226.02101,"618,60346-0085-12 ",.02)
 ;;60346-0085-12
 ;;9002226.02101,"618,60346-0085-20 ",.01)
 ;;60346-0085-20
 ;;9002226.02101,"618,60346-0085-20 ",.02)
 ;;60346-0085-20
 ;;9002226.02101,"618,60346-0085-30 ",.01)
 ;;60346-0085-30
 ;;9002226.02101,"618,60346-0085-30 ",.02)
 ;;60346-0085-30
 ;;9002226.02101,"618,60346-0085-60 ",.01)
 ;;60346-0085-60
 ;;9002226.02101,"618,60346-0085-60 ",.02)
 ;;60346-0085-60
 ;;9002226.02101,"618,60346-0086-03 ",.01)
 ;;60346-0086-03
 ;;9002226.02101,"618,60346-0086-03 ",.02)
 ;;60346-0086-03
 ;;9002226.02101,"618,60346-0086-06 ",.01)
 ;;60346-0086-06
 ;;9002226.02101,"618,60346-0086-06 ",.02)
 ;;60346-0086-06
 ;;9002226.02101,"618,60346-0086-15 ",.01)
 ;;60346-0086-15
 ;;9002226.02101,"618,60346-0086-15 ",.02)
 ;;60346-0086-15
 ;;9002226.02101,"618,60346-0086-20 ",.01)
 ;;60346-0086-20
 ;;9002226.02101,"618,60346-0086-20 ",.02)
 ;;60346-0086-20
 ;;9002226.02101,"618,60346-0086-21 ",.01)
 ;;60346-0086-21
 ;;9002226.02101,"618,60346-0086-21 ",.02)
 ;;60346-0086-21
 ;;9002226.02101,"618,60346-0086-24 ",.01)
 ;;60346-0086-24
 ;;9002226.02101,"618,60346-0086-24 ",.02)
 ;;60346-0086-24
 ;;9002226.02101,"618,60346-0086-25 ",.01)
 ;;60346-0086-25
 ;;9002226.02101,"618,60346-0086-25 ",.02)
 ;;60346-0086-25
 ;;9002226.02101,"618,60346-0086-30 ",.01)
 ;;60346-0086-30
 ;;9002226.02101,"618,60346-0086-30 ",.02)
 ;;60346-0086-30
 ;;9002226.02101,"618,60346-0086-40 ",.01)
 ;;60346-0086-40
 ;;9002226.02101,"618,60346-0086-40 ",.02)
 ;;60346-0086-40
 ;;9002226.02101,"618,60346-0086-60 ",.01)
 ;;60346-0086-60
 ;;9002226.02101,"618,60346-0086-60 ",.02)
 ;;60346-0086-60
 ;;9002226.02101,"618,60346-0086-90 ",.01)
 ;;60346-0086-90
 ;;9002226.02101,"618,60346-0086-90 ",.02)
 ;;60346-0086-90
 ;;9002226.02101,"618,60346-0086-94 ",.01)
 ;;60346-0086-94
 ;;9002226.02101,"618,60346-0086-94 ",.02)
 ;;60346-0086-94
 ;;9002226.02101,"618,60346-0208-10 ",.01)
 ;;60346-0208-10
 ;;9002226.02101,"618,60346-0208-10 ",.02)
 ;;60346-0208-10
 ;;9002226.02101,"618,60346-0208-20 ",.01)
 ;;60346-0208-20
 ;;9002226.02101,"618,60346-0208-20 ",.02)
 ;;60346-0208-20
 ;;9002226.02101,"618,60346-0208-30 ",.01)
 ;;60346-0208-30
 ;;9002226.02101,"618,60346-0208-30 ",.02)
 ;;60346-0208-30
 ;;9002226.02101,"618,60346-0208-44 ",.01)
 ;;60346-0208-44
 ;;9002226.02101,"618,60346-0208-44 ",.02)
 ;;60346-0208-44
 ;;9002226.02101,"618,60346-0246-04 ",.01)
 ;;60346-0246-04
 ;;9002226.02101,"618,60346-0246-04 ",.02)
 ;;60346-0246-04
 ;;9002226.02101,"618,60346-0322-12 ",.01)
 ;;60346-0322-12
 ;;9002226.02101,"618,60346-0322-12 ",.02)
 ;;60346-0322-12
 ;;9002226.02101,"618,60346-0322-44 ",.01)
 ;;60346-0322-44
 ;;9002226.02101,"618,60346-0322-44 ",.02)
 ;;60346-0322-44
 ;;9002226.02101,"618,60346-0423-04 ",.01)
 ;;60346-0423-04
 ;;9002226.02101,"618,60346-0423-04 ",.02)
 ;;60346-0423-04
 ;;9002226.02101,"618,60346-0488-30 ",.01)
 ;;60346-0488-30
 ;;9002226.02101,"618,60346-0488-30 ",.02)
 ;;60346-0488-30
 ;;9002226.02101,"618,60346-0492-06 ",.01)
 ;;60346-0492-06
 ;;9002226.02101,"618,60346-0492-06 ",.02)
 ;;60346-0492-06
 ;;9002226.02101,"618,60346-0492-12 ",.01)
 ;;60346-0492-12
 ;;9002226.02101,"618,60346-0492-12 ",.02)
 ;;60346-0492-12
 ;;9002226.02101,"618,60346-0492-44 ",.01)
 ;;60346-0492-44
 ;;9002226.02101,"618,60346-0492-44 ",.02)
 ;;60346-0492-44
 ;;9002226.02101,"618,60346-0574-20 ",.01)
 ;;60346-0574-20
 ;;9002226.02101,"618,60346-0574-20 ",.02)
 ;;60346-0574-20
 ;;9002226.02101,"618,60346-0574-30 ",.01)
 ;;60346-0574-30
 ;;9002226.02101,"618,60346-0574-30 ",.02)
 ;;60346-0574-30
 ;;9002226.02101,"618,60346-0574-44 ",.01)
 ;;60346-0574-44
 ;;9002226.02101,"618,60346-0574-44 ",.02)
 ;;60346-0574-44
 ;;9002226.02101,"618,60346-0575-44 ",.01)
 ;;60346-0575-44
 ;;9002226.02101,"618,60346-0575-44 ",.02)
 ;;60346-0575-44
 ;;9002226.02101,"618,60346-0659-69 ",.01)
 ;;60346-0659-69
 ;;9002226.02101,"618,60346-0659-69 ",.02)
 ;;60346-0659-69
 ;;9002226.02101,"618,60346-0698-06 ",.01)
 ;;60346-0698-06
 ;;9002226.02101,"618,60346-0698-06 ",.02)
 ;;60346-0698-06
 ;;9002226.02101,"618,60346-0698-12 ",.01)
 ;;60346-0698-12
 ;;9002226.02101,"618,60346-0698-12 ",.02)
 ;;60346-0698-12
 ;;9002226.02101,"618,60346-0698-20 ",.01)
 ;;60346-0698-20
 ;;9002226.02101,"618,60346-0698-20 ",.02)
 ;;60346-0698-20
 ;;9002226.02101,"618,60346-0699-30 ",.01)
 ;;60346-0699-30
 ;;9002226.02101,"618,60346-0699-30 ",.02)
 ;;60346-0699-30
 ;;9002226.02101,"618,60346-0699-60 ",.01)
 ;;60346-0699-60
 ;;9002226.02101,"618,60346-0699-60 ",.02)
 ;;60346-0699-60
 ;;9002226.02101,"618,60346-0699-90 ",.01)
 ;;60346-0699-90
 ;;9002226.02101,"618,60346-0699-90 ",.02)
 ;;60346-0699-90
 ;;9002226.02101,"618,60346-0708-04 ",.01)
 ;;60346-0708-04
 ;;9002226.02101,"618,60346-0708-04 ",.02)
 ;;60346-0708-04
 ;;9002226.02101,"618,60346-0712-06 ",.01)
 ;;60346-0712-06
 ;;9002226.02101,"618,60346-0712-06 ",.02)
 ;;60346-0712-06
 ;;9002226.02101,"618,60346-0712-12 ",.01)
 ;;60346-0712-12
 ;;9002226.02101,"618,60346-0712-12 ",.02)
 ;;60346-0712-12
 ;;9002226.02101,"618,60346-0712-44 ",.01)
 ;;60346-0712-44
 ;;9002226.02101,"618,60346-0712-44 ",.02)
 ;;60346-0712-44
 ;;9002226.02101,"618,60346-0776-30 ",.01)
 ;;60346-0776-30
 ;;9002226.02101,"618,60346-0776-30 ",.02)
 ;;60346-0776-30
 ;;9002226.02101,"618,60346-0776-60 ",.01)
 ;;60346-0776-60
 ;;9002226.02101,"618,60346-0776-60 ",.02)
 ;;60346-0776-60
 ;;9002226.02101,"618,60346-0776-90 ",.01)
 ;;60346-0776-90
 ;;9002226.02101,"618,60346-0776-90 ",.02)
 ;;60346-0776-90
 ;;9002226.02101,"618,60346-0782-20 ",.01)
 ;;60346-0782-20
 ;;9002226.02101,"618,60346-0782-20 ",.02)
 ;;60346-0782-20
 ;;9002226.02101,"618,60346-0782-30 ",.01)
 ;;60346-0782-30
 ;;9002226.02101,"618,60346-0782-30 ",.02)
 ;;60346-0782-30
 ;;9002226.02101,"618,60346-0788-30 ",.01)
 ;;60346-0788-30
 ;;9002226.02101,"618,60346-0788-30 ",.02)
 ;;60346-0788-30
 ;;9002226.02101,"618,60346-0788-44 ",.01)
 ;;60346-0788-44
 ;;9002226.02101,"618,60346-0788-44 ",.02)
 ;;60346-0788-44
 ;;9002226.02101,"618,60346-0795-06 ",.01)
 ;;60346-0795-06
 ;;9002226.02101,"618,60346-0795-06 ",.02)
 ;;60346-0795-06
 ;;9002226.02101,"618,60346-0795-10 ",.01)
 ;;60346-0795-10
 ;;9002226.02101,"618,60346-0795-10 ",.02)
 ;;60346-0795-10
 ;;9002226.02101,"618,60346-0795-15 ",.01)
 ;;60346-0795-15
 ;;9002226.02101,"618,60346-0795-15 ",.02)
 ;;60346-0795-15
 ;;9002226.02101,"618,60346-0795-20 ",.01)
 ;;60346-0795-20
 ;;9002226.02101,"618,60346-0795-20 ",.02)
 ;;60346-0795-20
 ;;9002226.02101,"618,60346-0795-30 ",.01)
 ;;60346-0795-30
 ;;9002226.02101,"618,60346-0795-30 ",.02)
 ;;60346-0795-30
 ;;9002226.02101,"618,60346-0796-20 ",.01)
 ;;60346-0796-20
 ;;9002226.02101,"618,60346-0796-20 ",.02)
 ;;60346-0796-20
 ;;9002226.02101,"618,60346-0796-30 ",.01)
 ;;60346-0796-30
 ;;9002226.02101,"618,60346-0796-30 ",.02)
 ;;60346-0796-30
 ;;9002226.02101,"618,60346-0797-10 ",.01)
 ;;60346-0797-10
 ;;9002226.02101,"618,60346-0797-10 ",.02)
 ;;60346-0797-10
 ;;9002226.02101,"618,60346-0797-20 ",.01)
 ;;60346-0797-20
 ;;9002226.02101,"618,60346-0797-20 ",.02)
 ;;60346-0797-20
 ;;9002226.02101,"618,60346-0797-30 ",.01)
 ;;60346-0797-30
 ;;9002226.02101,"618,60346-0797-30 ",.02)
 ;;60346-0797-30
 ;;9002226.02101,"618,60346-0844-30 ",.01)
 ;;60346-0844-30
 ;;9002226.02101,"618,60346-0844-30 ",.02)
 ;;60346-0844-30
 ;;9002226.02101,"618,60346-0899-30 ",.01)
 ;;60346-0899-30
 ;;9002226.02101,"618,60346-0899-30 ",.02)
 ;;60346-0899-30
 ;;9002226.02101,"618,60346-0908-04 ",.01)
 ;;60346-0908-04
 ;;9002226.02101,"618,60346-0908-04 ",.02)
 ;;60346-0908-04
 ;;9002226.02101,"618,60346-0929-20 ",.01)
 ;;60346-0929-20
 ;;9002226.02101,"618,60346-0929-20 ",.02)
 ;;60346-0929-20
 ;;9002226.02101,"618,60346-0976-20 ",.01)
 ;;60346-0976-20
 ;;9002226.02101,"618,60346-0976-20 ",.02)
 ;;60346-0976-20
 ;;9002226.02101,"618,60429-0149-01 ",.01)
 ;;60429-0149-01
 ;;9002226.02101,"618,60429-0149-01 ",.02)
 ;;60429-0149-01
 ;;9002226.02101,"618,60429-0150-01 ",.01)
 ;;60429-0150-01
 ;;9002226.02101,"618,60429-0150-01 ",.02)
 ;;60429-0150-01
 ;;9002226.02101,"618,60429-0150-10 ",.01)
 ;;60429-0150-10
 ;;9002226.02101,"618,60429-0150-10 ",.02)
 ;;60429-0150-10
 ;;9002226.02101,"618,60429-0150-12 ",.01)
 ;;60429-0150-12
 ;;9002226.02101,"618,60429-0150-12 ",.02)
 ;;60429-0150-12
 ;;9002226.02101,"618,60429-0150-30 ",.01)
 ;;60429-0150-30
 ;;9002226.02101,"618,60429-0150-30 ",.02)
 ;;60429-0150-30
 ;;9002226.02101,"618,60429-0150-60 ",.01)
 ;;60429-0150-60
 ;;9002226.02101,"618,60429-0150-60 ",.02)
 ;;60429-0150-60
 ;;9002226.02101,"618,60429-0150-90 ",.01)
 ;;60429-0150-90
 ;;9002226.02101,"618,60429-0150-90 ",.02)
 ;;60429-0150-90
 ;;9002226.02101,"618,60429-0151-01 ",.01)
 ;;60429-0151-01
 ;;9002226.02101,"618,60429-0151-01 ",.02)
 ;;60429-0151-01
 ;;9002226.02101,"618,60429-0231-01 ",.01)
 ;;60429-0231-01
 ;;9002226.02101,"618,60429-0231-01 ",.02)
 ;;60429-0231-01
 ;;9002226.02101,"618,60429-0231-10 ",.01)
 ;;60429-0231-10
 ;;9002226.02101,"618,60429-0231-10 ",.02)
 ;;60429-0231-10
 ;;9002226.02101,"618,60429-0276-01 ",.01)
 ;;60429-0276-01
 ;;9002226.02101,"618,60429-0276-01 ",.02)
 ;;60429-0276-01
 ;;9002226.02101,"618,60429-0276-10 ",.01)
 ;;60429-0276-10
 ;;9002226.02101,"618,60429-0276-10 ",.02)
 ;;60429-0276-10
 ;;9002226.02101,"618,60432-0039-04 ",.01)
 ;;60432-0039-04
 ;;9002226.02101,"618,60432-0039-04 ",.02)
 ;;60432-0039-04
 ;;9002226.02101,"618,60432-0039-16 ",.01)
 ;;60432-0039-16
 ;;9002226.02101,"618,60432-0039-16 ",.02)
 ;;60432-0039-16
 ;;9002226.02101,"618,60432-0041-30 ",.01)
 ;;60432-0041-30
 ;;9002226.02101,"618,60432-0041-30 ",.02)
 ;;60432-0041-30
 ;;9002226.02101,"618,60432-0101-30 ",.01)
 ;;60432-0101-30
 ;;9002226.02101,"618,60432-0101-30 ",.02)
 ;;60432-0101-30
 ;;9002226.02101,"618,60432-0102-04 ",.01)
 ;;60432-0102-04
 ;;9002226.02101,"618,60432-0102-04 ",.02)
 ;;60432-0102-04
 ;;9002226.02101,"618,60432-0102-16 ",.01)
 ;;60432-0102-16
 ;;9002226.02101,"618,60432-0102-16 ",.02)
 ;;60432-0102-16
 ;;9002226.02101,"618,60432-0150-04 ",.01)
 ;;60432-0150-04
 ;;9002226.02101,"618,60432-0150-04 ",.02)
 ;;60432-0150-04
 ;;9002226.02101,"618,60432-0150-16 ",.01)
 ;;60432-0150-16
 ;;9002226.02101,"618,60432-0150-16 ",.02)
 ;;60432-0150-16
 ;;9002226.02101,"618,60432-0202-04 ",.01)
 ;;60432-0202-04
 ;;9002226.02101,"618,60432-0202-04 ",.02)
 ;;60432-0202-04
 ;;9002226.02101,"618,60432-0202-08 ",.01)
 ;;60432-0202-08
 ;;9002226.02101,"618,60432-0202-08 ",.02)
 ;;60432-0202-08
 ;;9002226.02101,"618,60432-0202-16 ",.01)
 ;;60432-0202-16
 ;;9002226.02101,"618,60432-0202-16 ",.02)
 ;;60432-0202-16
 ;;9002226.02101,"618,60432-0234-30 ",.01)
 ;;60432-0234-30
 ;;9002226.02101,"618,60432-0234-30 ",.02)
 ;;60432-0234-30
 ;;9002226.02101,"618,60432-0235-04 ",.01)
 ;;60432-0235-04
 ;;9002226.02101,"618,60432-0235-04 ",.02)
 ;;60432-0235-04
 ;;9002226.02101,"618,60432-0235-16 ",.01)
 ;;60432-0235-16
 ;;9002226.02101,"618,60432-0235-16 ",.02)
 ;;60432-0235-16
 ;;9002226.02101,"618,60432-0237-30 ",.01)
 ;;60432-0237-30
 ;;9002226.02101,"618,60432-0237-30 ",.02)
 ;;60432-0237-30
 ;;9002226.02101,"618,60432-0345-04 ",.01)
 ;;60432-0345-04
 ;;9002226.02101,"618,60432-0345-04 ",.02)
 ;;60432-0345-04
 ;;9002226.02101,"618,60432-0345-16 ",.01)
 ;;60432-0345-16
 ;;9002226.02101,"618,60432-0345-16 ",.02)
 ;;60432-0345-16
 ;;9002226.02101,"618,60432-0462-16 ",.01)
 ;;60432-0462-16
 ;;9002226.02101,"618,60432-0462-16 ",.02)
 ;;60432-0462-16