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

BGP31L21.m

Go to the documentation of this file.
BGP31L21 ;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,54569-3200-00 ",.01)
 ;;54569-3200-00
 ;;9002226.02101,"618,54569-3200-00 ",.02)
 ;;54569-3200-00
 ;;9002226.02101,"618,54569-3465-00 ",.01)
 ;;54569-3465-00
 ;;9002226.02101,"618,54569-3465-00 ",.02)
 ;;54569-3465-00
 ;;9002226.02101,"618,54569-3540-00 ",.01)
 ;;54569-3540-00
 ;;9002226.02101,"618,54569-3540-00 ",.02)
 ;;54569-3540-00
 ;;9002226.02101,"618,54569-3540-01 ",.01)
 ;;54569-3540-01
 ;;9002226.02101,"618,54569-3540-01 ",.02)
 ;;54569-3540-01
 ;;9002226.02101,"618,54569-3540-02 ",.01)
 ;;54569-3540-02
 ;;9002226.02101,"618,54569-3540-02 ",.02)
 ;;54569-3540-02
 ;;9002226.02101,"618,54569-3709-00 ",.01)
 ;;54569-3709-00
 ;;9002226.02101,"618,54569-3709-00 ",.02)
 ;;54569-3709-00
 ;;9002226.02101,"618,54569-3737-00 ",.01)
 ;;54569-3737-00
 ;;9002226.02101,"618,54569-3737-00 ",.02)
 ;;54569-3737-00
 ;;9002226.02101,"618,54569-3793-00 ",.01)
 ;;54569-3793-00
 ;;9002226.02101,"618,54569-3793-00 ",.02)
 ;;54569-3793-00
 ;;9002226.02101,"618,54569-3836-00 ",.01)
 ;;54569-3836-00
 ;;9002226.02101,"618,54569-3836-00 ",.02)
 ;;54569-3836-00
 ;;9002226.02101,"618,54569-3836-01 ",.01)
 ;;54569-3836-01
 ;;9002226.02101,"618,54569-3836-01 ",.02)
 ;;54569-3836-01
 ;;9002226.02101,"618,54569-3882-00 ",.01)
 ;;54569-3882-00
 ;;9002226.02101,"618,54569-3882-00 ",.02)
 ;;54569-3882-00
 ;;9002226.02101,"618,54569-4011-01 ",.01)
 ;;54569-4011-01
 ;;9002226.02101,"618,54569-4011-01 ",.02)
 ;;54569-4011-01
 ;;9002226.02101,"618,54569-4011-03 ",.01)
 ;;54569-4011-03
 ;;9002226.02101,"618,54569-4011-03 ",.02)
 ;;54569-4011-03
 ;;9002226.02101,"618,54569-4122-00 ",.01)
 ;;54569-4122-00
 ;;9002226.02101,"618,54569-4122-00 ",.02)
 ;;54569-4122-00
 ;;9002226.02101,"618,54569-4168-00 ",.01)
 ;;54569-4168-00
 ;;9002226.02101,"618,54569-4168-00 ",.02)
 ;;54569-4168-00
 ;;9002226.02101,"618,54569-4510-00 ",.01)
 ;;54569-4510-00
 ;;9002226.02101,"618,54569-4510-00 ",.02)
 ;;54569-4510-00
 ;;9002226.02101,"618,54569-4510-01 ",.01)
 ;;54569-4510-01
 ;;9002226.02101,"618,54569-4510-01 ",.02)
 ;;54569-4510-01
 ;;9002226.02101,"618,54569-4510-02 ",.01)
 ;;54569-4510-02
 ;;9002226.02101,"618,54569-4510-02 ",.02)
 ;;54569-4510-02
 ;;9002226.02101,"618,54569-4531-00 ",.01)
 ;;54569-4531-00
 ;;9002226.02101,"618,54569-4531-00 ",.02)
 ;;54569-4531-00
 ;;9002226.02101,"618,54569-4668-00 ",.01)
 ;;54569-4668-00
 ;;9002226.02101,"618,54569-4668-00 ",.02)
 ;;54569-4668-00
 ;;9002226.02101,"618,54569-4699-00 ",.01)
 ;;54569-4699-00
 ;;9002226.02101,"618,54569-4699-00 ",.02)
 ;;54569-4699-00
 ;;9002226.02101,"618,54569-4825-00 ",.01)
 ;;54569-4825-00
 ;;9002226.02101,"618,54569-4825-00 ",.02)
 ;;54569-4825-00
 ;;9002226.02101,"618,54569-4825-01 ",.01)
 ;;54569-4825-01
 ;;9002226.02101,"618,54569-4825-01 ",.02)
 ;;54569-4825-01
 ;;9002226.02101,"618,54569-4911-00 ",.01)
 ;;54569-4911-00
 ;;9002226.02101,"618,54569-4911-00 ",.02)
 ;;54569-4911-00
 ;;9002226.02101,"618,54569-5159-00 ",.01)
 ;;54569-5159-00
 ;;9002226.02101,"618,54569-5159-00 ",.02)
 ;;54569-5159-00
 ;;9002226.02101,"618,54569-5194-00 ",.01)
 ;;54569-5194-00
 ;;9002226.02101,"618,54569-5194-00 ",.02)
 ;;54569-5194-00
 ;;9002226.02101,"618,54569-5406-00 ",.01)
 ;;54569-5406-00
 ;;9002226.02101,"618,54569-5406-00 ",.02)
 ;;54569-5406-00
 ;;9002226.02101,"618,54569-5411-00 ",.01)
 ;;54569-5411-00
 ;;9002226.02101,"618,54569-5411-00 ",.02)
 ;;54569-5411-00
 ;;9002226.02101,"618,54569-5442-00 ",.01)
 ;;54569-5442-00
 ;;9002226.02101,"618,54569-5442-00 ",.02)
 ;;54569-5442-00
 ;;9002226.02101,"618,54569-5490-00 ",.01)
 ;;54569-5490-00
 ;;9002226.02101,"618,54569-5490-00 ",.02)
 ;;54569-5490-00
 ;;9002226.02101,"618,54569-5609-00 ",.01)
 ;;54569-5609-00
 ;;9002226.02101,"618,54569-5609-00 ",.02)
 ;;54569-5609-00
 ;;9002226.02101,"618,54569-5609-01 ",.01)
 ;;54569-5609-01
 ;;9002226.02101,"618,54569-5609-01 ",.02)
 ;;54569-5609-01
 ;;9002226.02101,"618,54569-5736-00 ",.01)
 ;;54569-5736-00
 ;;9002226.02101,"618,54569-5736-00 ",.02)
 ;;54569-5736-00
 ;;9002226.02101,"618,54569-5744-00 ",.01)
 ;;54569-5744-00
 ;;9002226.02101,"618,54569-5744-00 ",.02)
 ;;54569-5744-00
 ;;9002226.02101,"618,54569-5744-01 ",.01)
 ;;54569-5744-01
 ;;9002226.02101,"618,54569-5744-01 ",.02)
 ;;54569-5744-01
 ;;9002226.02101,"618,54569-5745-00 ",.01)
 ;;54569-5745-00
 ;;9002226.02101,"618,54569-5745-00 ",.02)
 ;;54569-5745-00
 ;;9002226.02101,"618,54569-5745-01 ",.01)
 ;;54569-5745-01
 ;;9002226.02101,"618,54569-5745-01 ",.02)
 ;;54569-5745-01
 ;;9002226.02101,"618,54569-5745-02 ",.01)
 ;;54569-5745-02
 ;;9002226.02101,"618,54569-5745-02 ",.02)
 ;;54569-5745-02
 ;;9002226.02101,"618,54569-5747-00 ",.01)
 ;;54569-5747-00
 ;;9002226.02101,"618,54569-5747-00 ",.02)
 ;;54569-5747-00
 ;;9002226.02101,"618,54569-5761-00 ",.01)
 ;;54569-5761-00
 ;;9002226.02101,"618,54569-5761-00 ",.02)
 ;;54569-5761-00
 ;;9002226.02101,"618,54738-0105-01 ",.01)
 ;;54738-0105-01
 ;;9002226.02101,"618,54738-0105-01 ",.02)
 ;;54738-0105-01
 ;;9002226.02101,"618,54738-0106-01 ",.01)
 ;;54738-0106-01
 ;;9002226.02101,"618,54738-0106-01 ",.02)
 ;;54738-0106-01
 ;;9002226.02101,"618,54738-0106-03 ",.01)
 ;;54738-0106-03
 ;;9002226.02101,"618,54738-0106-03 ",.02)
 ;;54738-0106-03
 ;;9002226.02101,"618,54738-0106-13 ",.01)
 ;;54738-0106-13
 ;;9002226.02101,"618,54738-0106-13 ",.02)
 ;;54738-0106-13
 ;;9002226.02101,"618,54738-0112-01 ",.01)
 ;;54738-0112-01
 ;;9002226.02101,"618,54738-0112-01 ",.02)
 ;;54738-0112-01
 ;;9002226.02101,"618,54738-0112-03 ",.01)
 ;;54738-0112-03
 ;;9002226.02101,"618,54738-0112-03 ",.02)
 ;;54738-0112-03
 ;;9002226.02101,"618,54738-0112-13 ",.01)
 ;;54738-0112-13
 ;;9002226.02101,"618,54738-0112-13 ",.02)
 ;;54738-0112-13
 ;;9002226.02101,"618,54738-0116-01 ",.01)
 ;;54738-0116-01
 ;;9002226.02101,"618,54738-0116-01 ",.02)
 ;;54738-0116-01
 ;;9002226.02101,"618,54738-0116-03 ",.01)
 ;;54738-0116-03
 ;;9002226.02101,"618,54738-0116-03 ",.02)
 ;;54738-0116-03
 ;;9002226.02101,"618,54738-0116-13 ",.01)
 ;;54738-0116-13
 ;;9002226.02101,"618,54738-0116-13 ",.02)
 ;;54738-0116-13
 ;;9002226.02101,"618,54738-0308-01 ",.01)
 ;;54738-0308-01
 ;;9002226.02101,"618,54738-0308-01 ",.02)
 ;;54738-0308-01
 ;;9002226.02101,"618,54738-0308-03 ",.01)
 ;;54738-0308-03
 ;;9002226.02101,"618,54738-0308-03 ",.02)
 ;;54738-0308-03
 ;;9002226.02101,"618,54738-0309-01 ",.01)
 ;;54738-0309-01
 ;;9002226.02101,"618,54738-0309-01 ",.02)
 ;;54738-0309-01
 ;;9002226.02101,"618,54738-0309-03 ",.01)
 ;;54738-0309-03
 ;;9002226.02101,"618,54738-0309-03 ",.02)
 ;;54738-0309-03
 ;;9002226.02101,"618,54738-0317-01 ",.01)
 ;;54738-0317-01
 ;;9002226.02101,"618,54738-0317-01 ",.02)
 ;;54738-0317-01
 ;;9002226.02101,"618,54738-0317-03 ",.01)
 ;;54738-0317-03
 ;;9002226.02101,"618,54738-0317-03 ",.02)
 ;;54738-0317-03
 ;;9002226.02101,"618,54738-0554-01 ",.01)
 ;;54738-0554-01
 ;;9002226.02101,"618,54738-0554-01 ",.02)
 ;;54738-0554-01
 ;;9002226.02101,"618,54738-0554-03 ",.01)
 ;;54738-0554-03
 ;;9002226.02101,"618,54738-0554-03 ",.02)
 ;;54738-0554-03
 ;;9002226.02101,"618,54738-0555-01 ",.01)
 ;;54738-0555-01
 ;;9002226.02101,"618,54738-0555-01 ",.02)
 ;;54738-0555-01
 ;;9002226.02101,"618,54738-0555-03 ",.01)
 ;;54738-0555-03
 ;;9002226.02101,"618,54738-0555-03 ",.02)
 ;;54738-0555-03
 ;;9002226.02101,"618,54738-0580-01 ",.01)
 ;;54738-0580-01
 ;;9002226.02101,"618,54738-0580-01 ",.02)
 ;;54738-0580-01
 ;;9002226.02101,"618,54738-0580-03 ",.01)
 ;;54738-0580-03
 ;;9002226.02101,"618,54738-0580-03 ",.02)
 ;;54738-0580-03
 ;;9002226.02101,"618,54738-0939-01 ",.01)
 ;;54738-0939-01
 ;;9002226.02101,"618,54738-0939-01 ",.02)
 ;;54738-0939-01
 ;;9002226.02101,"618,54738-0939-03 ",.01)
 ;;54738-0939-03
 ;;9002226.02101,"618,54738-0939-03 ",.02)
 ;;54738-0939-03
 ;;9002226.02101,"618,54738-0940-01 ",.01)
 ;;54738-0940-01
 ;;9002226.02101,"618,54738-0940-01 ",.02)
 ;;54738-0940-01
 ;;9002226.02101,"618,54838-0514-40 ",.01)
 ;;54838-0514-40
 ;;9002226.02101,"618,54838-0514-40 ",.02)
 ;;54838-0514-40
 ;;9002226.02101,"618,54838-0534-80 ",.01)
 ;;54838-0534-80
 ;;9002226.02101,"618,54838-0534-80 ",.02)
 ;;54838-0534-80
 ;;9002226.02101,"618,54838-0535-30 ",.01)
 ;;54838-0535-30
 ;;9002226.02101,"618,54838-0535-30 ",.02)
 ;;54838-0535-30
 ;;9002226.02101,"618,54838-0537-30 ",.01)
 ;;54838-0537-30
 ;;9002226.02101,"618,54838-0537-30 ",.02)
 ;;54838-0537-30
 ;;9002226.02101,"618,54838-0541-30 ",.01)
 ;;54838-0541-30
 ;;9002226.02101,"618,54838-0541-30 ",.02)
 ;;54838-0541-30
 ;;9002226.02101,"618,54838-0542-80 ",.01)
 ;;54838-0542-80
 ;;9002226.02101,"618,54838-0542-80 ",.02)
 ;;54838-0542-80
 ;;9002226.02101,"618,54859-0502-06 ",.01)
 ;;54859-0502-06
 ;;9002226.02101,"618,54859-0502-06 ",.02)
 ;;54859-0502-06
 ;;9002226.02101,"618,54859-0502-10 ",.01)
 ;;54859-0502-10
 ;;9002226.02101,"618,54859-0502-10 ",.02)
 ;;54859-0502-10
 ;;9002226.02101,"618,54859-0558-06 ",.01)
 ;;54859-0558-06
 ;;9002226.02101,"618,54859-0558-06 ",.02)
 ;;54859-0558-06
 ;;9002226.02101,"618,54859-0801-60 ",.01)
 ;;54859-0801-60
 ;;9002226.02101,"618,54859-0801-60 ",.02)
 ;;54859-0801-60
 ;;9002226.02101,"618,54868-0063-00 ",.01)
 ;;54868-0063-00
 ;;9002226.02101,"618,54868-0063-00 ",.02)
 ;;54868-0063-00
 ;;9002226.02101,"618,54868-0063-01 ",.01)
 ;;54868-0063-01
 ;;9002226.02101,"618,54868-0063-01 ",.02)
 ;;54868-0063-01
 ;;9002226.02101,"618,54868-0063-02 ",.01)
 ;;54868-0063-02
 ;;9002226.02101,"618,54868-0063-02 ",.02)
 ;;54868-0063-02
 ;;9002226.02101,"618,54868-0063-03 ",.01)
 ;;54868-0063-03
 ;;9002226.02101,"618,54868-0063-03 ",.02)
 ;;54868-0063-03
 ;;9002226.02101,"618,54868-0063-04 ",.01)
 ;;54868-0063-04
 ;;9002226.02101,"618,54868-0063-04 ",.02)
 ;;54868-0063-04
 ;;9002226.02101,"618,54868-0063-05 ",.01)
 ;;54868-0063-05
 ;;9002226.02101,"618,54868-0063-05 ",.02)
 ;;54868-0063-05
 ;;9002226.02101,"618,54868-0063-06 ",.01)
 ;;54868-0063-06
 ;;9002226.02101,"618,54868-0063-06 ",.02)
 ;;54868-0063-06
 ;;9002226.02101,"618,54868-0063-07 ",.01)
 ;;54868-0063-07
 ;;9002226.02101,"618,54868-0063-07 ",.02)
 ;;54868-0063-07
 ;;9002226.02101,"618,54868-0063-08 ",.01)
 ;;54868-0063-08
 ;;9002226.02101,"618,54868-0063-08 ",.02)
 ;;54868-0063-08
 ;;9002226.02101,"618,54868-0063-09 ",.01)
 ;;54868-0063-09
 ;;9002226.02101,"618,54868-0063-09 ",.02)
 ;;54868-0063-09
 ;;9002226.02101,"618,54868-0169-01 ",.01)
 ;;54868-0169-01
 ;;9002226.02101,"618,54868-0169-01 ",.02)
 ;;54868-0169-01
 ;;9002226.02101,"618,54868-0229-00 ",.01)
 ;;54868-0229-00
 ;;9002226.02101,"618,54868-0229-00 ",.02)
 ;;54868-0229-00
 ;;9002226.02101,"618,54868-0229-01 ",.01)
 ;;54868-0229-01
 ;;9002226.02101,"618,54868-0229-01 ",.02)
 ;;54868-0229-01
 ;;9002226.02101,"618,54868-0229-02 ",.01)
 ;;54868-0229-02
 ;;9002226.02101,"618,54868-0229-02 ",.02)
 ;;54868-0229-02
 ;;9002226.02101,"618,54868-0229-03 ",.01)
 ;;54868-0229-03
 ;;9002226.02101,"618,54868-0229-03 ",.02)
 ;;54868-0229-03
 ;;9002226.02101,"618,54868-0229-04 ",.01)
 ;;54868-0229-04
 ;;9002226.02101,"618,54868-0229-04 ",.02)
 ;;54868-0229-04
 ;;9002226.02101,"618,54868-0231-00 ",.01)
 ;;54868-0231-00
 ;;9002226.02101,"618,54868-0231-00 ",.02)
 ;;54868-0231-00
 ;;9002226.02101,"618,54868-0262-00 ",.01)
 ;;54868-0262-00
 ;;9002226.02101,"618,54868-0262-00 ",.02)
 ;;54868-0262-00
 ;;9002226.02101,"618,54868-0263-00 ",.01)
 ;;54868-0263-00
 ;;9002226.02101,"618,54868-0263-00 ",.02)
 ;;54868-0263-00
 ;;9002226.02101,"618,54868-0263-01 ",.01)
 ;;54868-0263-01
 ;;9002226.02101,"618,54868-0263-01 ",.02)
 ;;54868-0263-01
 ;;9002226.02101,"618,54868-0534-02 ",.01)
 ;;54868-0534-02
 ;;9002226.02101,"618,54868-0534-02 ",.02)
 ;;54868-0534-02
 ;;9002226.02101,"618,54868-0597-00 ",.01)
 ;;54868-0597-00
 ;;9002226.02101,"618,54868-0597-00 ",.02)
 ;;54868-0597-00
 ;;9002226.02101,"618,54868-0601-00 ",.01)
 ;;54868-0601-00
 ;;9002226.02101,"618,54868-0601-00 ",.02)
 ;;54868-0601-00
 ;;9002226.02101,"618,54868-0601-01 ",.01)
 ;;54868-0601-01
 ;;9002226.02101,"618,54868-0601-01 ",.02)
 ;;54868-0601-01
 ;;9002226.02101,"618,54868-0601-02 ",.01)
 ;;54868-0601-02
 ;;9002226.02101,"618,54868-0601-02 ",.02)
 ;;54868-0601-02
 ;;9002226.02101,"618,54868-0601-03 ",.01)
 ;;54868-0601-03
 ;;9002226.02101,"618,54868-0601-03 ",.02)
 ;;54868-0601-03
 ;;9002226.02101,"618,54868-0721-00 ",.01)
 ;;54868-0721-00
 ;;9002226.02101,"618,54868-0721-00 ",.02)
 ;;54868-0721-00
 ;;9002226.02101,"618,54868-0724-00 ",.01)
 ;;54868-0724-00
 ;;9002226.02101,"618,54868-0724-00 ",.02)
 ;;54868-0724-00
 ;;9002226.02101,"618,54868-0858-00 ",.01)
 ;;54868-0858-00
 ;;9002226.02101,"618,54868-0858-00 ",.02)
 ;;54868-0858-00
 ;;9002226.02101,"618,54868-1014-00 ",.01)
 ;;54868-1014-00
 ;;9002226.02101,"618,54868-1014-00 ",.02)
 ;;54868-1014-00
 ;;9002226.02101,"618,54868-1022-00 ",.01)
 ;;54868-1022-00
 ;;9002226.02101,"618,54868-1022-00 ",.02)
 ;;54868-1022-00
 ;;9002226.02101,"618,54868-1022-01 ",.01)
 ;;54868-1022-01
 ;;9002226.02101,"618,54868-1022-01 ",.02)
 ;;54868-1022-01
 ;;9002226.02101,"618,54868-1022-03 ",.01)
 ;;54868-1022-03
 ;;9002226.02101,"618,54868-1022-03 ",.02)
 ;;54868-1022-03
 ;;9002226.02101,"618,54868-1022-04 ",.01)
 ;;54868-1022-04
 ;;9002226.02101,"618,54868-1022-04 ",.02)
 ;;54868-1022-04
 ;;9002226.02101,"618,54868-1028-01 ",.01)
 ;;54868-1028-01
 ;;9002226.02101,"618,54868-1028-01 ",.02)
 ;;54868-1028-01
 ;;9002226.02101,"618,54868-1029-00 ",.01)
 ;;54868-1029-00
 ;;9002226.02101,"618,54868-1029-00 ",.02)
 ;;54868-1029-00