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

BGP31L30.m

Go to the documentation of this file.
BGP31L30 ;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,63874-0711-18 ",.01)
 ;;63874-0711-18
 ;;9002226.02101,"618,63874-0711-18 ",.02)
 ;;63874-0711-18
 ;;9002226.02101,"618,63874-0757-01 ",.01)
 ;;63874-0757-01
 ;;9002226.02101,"618,63874-0757-01 ",.02)
 ;;63874-0757-01
 ;;9002226.02101,"618,63874-0757-04 ",.01)
 ;;63874-0757-04
 ;;9002226.02101,"618,63874-0757-04 ",.02)
 ;;63874-0757-04
 ;;9002226.02101,"618,63874-0757-10 ",.01)
 ;;63874-0757-10
 ;;9002226.02101,"618,63874-0757-10 ",.02)
 ;;63874-0757-10
 ;;9002226.02101,"618,63874-0757-15 ",.01)
 ;;63874-0757-15
 ;;9002226.02101,"618,63874-0757-15 ",.02)
 ;;63874-0757-15
 ;;9002226.02101,"618,63874-0757-20 ",.01)
 ;;63874-0757-20
 ;;9002226.02101,"618,63874-0757-20 ",.02)
 ;;63874-0757-20
 ;;9002226.02101,"618,63874-0757-21 ",.01)
 ;;63874-0757-21
 ;;9002226.02101,"618,63874-0757-21 ",.02)
 ;;63874-0757-21
 ;;9002226.02101,"618,63874-0757-24 ",.01)
 ;;63874-0757-24
 ;;9002226.02101,"618,63874-0757-24 ",.02)
 ;;63874-0757-24
 ;;9002226.02101,"618,63874-0757-28 ",.01)
 ;;63874-0757-28
 ;;9002226.02101,"618,63874-0757-28 ",.02)
 ;;63874-0757-28
 ;;9002226.02101,"618,63874-0757-30 ",.01)
 ;;63874-0757-30
 ;;9002226.02101,"618,63874-0757-30 ",.02)
 ;;63874-0757-30
 ;;9002226.02101,"618,63874-0757-60 ",.01)
 ;;63874-0757-60
 ;;9002226.02101,"618,63874-0757-60 ",.02)
 ;;63874-0757-60
 ;;9002226.02101,"618,63874-0757-90 ",.01)
 ;;63874-0757-90
 ;;9002226.02101,"618,63874-0757-90 ",.02)
 ;;63874-0757-90
 ;;9002226.02101,"618,64376-0401-40 ",.01)
 ;;64376-0401-40
 ;;9002226.02101,"618,64376-0401-40 ",.02)
 ;;64376-0401-40
 ;;9002226.02101,"618,64376-0432-16 ",.01)
 ;;64376-0432-16
 ;;9002226.02101,"618,64376-0432-16 ",.02)
 ;;64376-0432-16
 ;;9002226.02101,"618,64376-0432-40 ",.01)
 ;;64376-0432-40
 ;;9002226.02101,"618,64376-0432-40 ",.02)
 ;;64376-0432-40
 ;;9002226.02101,"618,64376-0530-01 ",.01)
 ;;64376-0530-01
 ;;9002226.02101,"618,64376-0530-01 ",.02)
 ;;64376-0530-01
 ;;9002226.02101,"618,64376-0532-01 ",.01)
 ;;64376-0532-01
 ;;9002226.02101,"618,64376-0532-01 ",.02)
 ;;64376-0532-01
 ;;9002226.02101,"618,64376-0543-01 ",.01)
 ;;64376-0543-01
 ;;9002226.02101,"618,64376-0543-01 ",.02)
 ;;64376-0543-01
 ;;9002226.02101,"618,64376-0543-31 ",.01)
 ;;64376-0543-31
 ;;9002226.02101,"618,64376-0543-31 ",.02)
 ;;64376-0543-31
 ;;9002226.02101,"618,64376-0544-01 ",.01)
 ;;64376-0544-01
 ;;9002226.02101,"618,64376-0544-01 ",.02)
 ;;64376-0544-01
 ;;9002226.02101,"618,64376-0544-31 ",.01)
 ;;64376-0544-31
 ;;9002226.02101,"618,64376-0544-31 ",.02)
 ;;64376-0544-31
 ;;9002226.02101,"618,64376-0605-01 ",.01)
 ;;64376-0605-01
 ;;9002226.02101,"618,64376-0605-01 ",.02)
 ;;64376-0605-01
 ;;9002226.02101,"618,64376-0612-16 ",.01)
 ;;64376-0612-16
 ;;9002226.02101,"618,64376-0612-16 ",.02)
 ;;64376-0612-16
 ;;9002226.02101,"618,64376-0612-40 ",.01)
 ;;64376-0612-40
 ;;9002226.02101,"618,64376-0612-40 ",.02)
 ;;64376-0612-40
 ;;9002226.02101,"618,64376-0701-40 ",.01)
 ;;64376-0701-40
 ;;9002226.02101,"618,64376-0701-40 ",.02)
 ;;64376-0701-40
 ;;9002226.02101,"618,64376-0703-16 ",.01)
 ;;64376-0703-16
 ;;9002226.02101,"618,64376-0703-16 ",.02)
 ;;64376-0703-16
 ;;9002226.02101,"618,64376-0704-16 ",.01)
 ;;64376-0704-16
 ;;9002226.02101,"618,64376-0704-16 ",.02)
 ;;64376-0704-16
 ;;9002226.02101,"618,64376-0705-16 ",.01)
 ;;64376-0705-16
 ;;9002226.02101,"618,64376-0705-16 ",.02)
 ;;64376-0705-16
 ;;9002226.02101,"618,64376-0709-16 ",.01)
 ;;64376-0709-16
 ;;9002226.02101,"618,64376-0709-16 ",.02)
 ;;64376-0709-16
 ;;9002226.02101,"618,64376-0713-16 ",.01)
 ;;64376-0713-16
 ;;9002226.02101,"618,64376-0713-16 ",.02)
 ;;64376-0713-16
 ;;9002226.02101,"618,64376-0714-16 ",.01)
 ;;64376-0714-16
 ;;9002226.02101,"618,64376-0714-16 ",.02)
 ;;64376-0714-16
 ;;9002226.02101,"618,64376-0718-16 ",.01)
 ;;64376-0718-16
 ;;9002226.02101,"618,64376-0718-16 ",.02)
 ;;64376-0718-16
 ;;9002226.02101,"618,64376-0719-40 ",.01)
 ;;64376-0719-40
 ;;9002226.02101,"618,64376-0719-40 ",.02)
 ;;64376-0719-40
 ;;9002226.02101,"618,64376-0721-16 ",.01)
 ;;64376-0721-16
 ;;9002226.02101,"618,64376-0721-16 ",.02)
 ;;64376-0721-16
 ;;9002226.02101,"618,64376-0724-16 ",.01)
 ;;64376-0724-16
 ;;9002226.02101,"618,64376-0724-16 ",.02)
 ;;64376-0724-16
 ;;9002226.02101,"618,64376-0724-40 ",.01)
 ;;64376-0724-40
 ;;9002226.02101,"618,64376-0724-40 ",.02)
 ;;64376-0724-40
 ;;9002226.02101,"618,64376-0725-16 ",.01)
 ;;64376-0725-16
 ;;9002226.02101,"618,64376-0725-16 ",.02)
 ;;64376-0725-16
 ;;9002226.02101,"618,64376-0725-40 ",.01)
 ;;64376-0725-40
 ;;9002226.02101,"618,64376-0725-40 ",.02)
 ;;64376-0725-40
 ;;9002226.02101,"618,64376-0728-30 ",.01)
 ;;64376-0728-30
 ;;9002226.02101,"618,64376-0728-30 ",.02)
 ;;64376-0728-30
 ;;9002226.02101,"618,64376-0729-16 ",.01)
 ;;64376-0729-16
 ;;9002226.02101,"618,64376-0729-16 ",.02)
 ;;64376-0729-16
 ;;9002226.02101,"618,64376-0729-40 ",.01)
 ;;64376-0729-40
 ;;9002226.02101,"618,64376-0729-40 ",.02)
 ;;64376-0729-40
 ;;9002226.02101,"618,64376-0730-30 ",.01)
 ;;64376-0730-30
 ;;9002226.02101,"618,64376-0730-30 ",.02)
 ;;64376-0730-30
 ;;9002226.02101,"618,64376-0731-16 ",.01)
 ;;64376-0731-16
 ;;9002226.02101,"618,64376-0731-16 ",.02)
 ;;64376-0731-16
 ;;9002226.02101,"618,64376-0731-40 ",.01)
 ;;64376-0731-40
 ;;9002226.02101,"618,64376-0731-40 ",.02)
 ;;64376-0731-40
 ;;9002226.02101,"618,64376-0732-16 ",.01)
 ;;64376-0732-16
 ;;9002226.02101,"618,64376-0732-16 ",.02)
 ;;64376-0732-16
 ;;9002226.02101,"618,64376-0732-40 ",.01)
 ;;64376-0732-40
 ;;9002226.02101,"618,64376-0732-40 ",.02)
 ;;64376-0732-40
 ;;9002226.02101,"618,64376-0736-16 ",.01)
 ;;64376-0736-16
 ;;9002226.02101,"618,64376-0736-16 ",.02)
 ;;64376-0736-16
 ;;9002226.02101,"618,64455-0013-01 ",.01)
 ;;64455-0013-01
 ;;9002226.02101,"618,64455-0013-01 ",.02)
 ;;64455-0013-01
 ;;9002226.02101,"618,64455-0022-01 ",.01)
 ;;64455-0022-01
 ;;9002226.02101,"618,64455-0022-01 ",.02)
 ;;64455-0022-01
 ;;9002226.02101,"618,64455-0025-01 ",.01)
 ;;64455-0025-01
 ;;9002226.02101,"618,64455-0025-01 ",.02)
 ;;64455-0025-01
 ;;9002226.02101,"618,64455-0070-03 ",.01)
 ;;64455-0070-03
 ;;9002226.02101,"618,64455-0070-03 ",.02)
 ;;64455-0070-03
 ;;9002226.02101,"618,64455-0080-03 ",.01)
 ;;64455-0080-03
 ;;9002226.02101,"618,64455-0080-03 ",.02)
 ;;64455-0080-03
 ;;9002226.02101,"618,64455-0081-12 ",.01)
 ;;64455-0081-12
 ;;9002226.02101,"618,64455-0081-12 ",.02)
 ;;64455-0081-12
 ;;9002226.02101,"618,64455-0081-48 ",.01)
 ;;64455-0081-48
 ;;9002226.02101,"618,64455-0081-48 ",.02)
 ;;64455-0081-48
 ;;9002226.02101,"618,64543-0025-90 ",.01)
 ;;64543-0025-90
 ;;9002226.02101,"618,64543-0025-90 ",.02)
 ;;64543-0025-90
 ;;9002226.02101,"618,64543-0082-01 ",.01)
 ;;64543-0082-01
 ;;9002226.02101,"618,64543-0082-01 ",.02)
 ;;64543-0082-01
 ;;9002226.02101,"618,64543-0084-90 ",.01)
 ;;64543-0084-90
 ;;9002226.02101,"618,64543-0084-90 ",.02)
 ;;64543-0084-90
 ;;9002226.02101,"618,64543-0085-01 ",.01)
 ;;64543-0085-01
 ;;9002226.02101,"618,64543-0085-01 ",.02)
 ;;64543-0085-01
 ;;9002226.02101,"618,64543-0087-01 ",.01)
 ;;64543-0087-01
 ;;9002226.02101,"618,64543-0087-01 ",.02)
 ;;64543-0087-01
 ;;9002226.02101,"618,64543-0091-90 ",.01)
 ;;64543-0091-90
 ;;9002226.02101,"618,64543-0091-90 ",.02)
 ;;64543-0091-90
 ;;9002226.02101,"618,64661-0020-16 ",.01)
 ;;64661-0020-16
 ;;9002226.02101,"618,64661-0020-16 ",.02)
 ;;64661-0020-16
 ;;9002226.02101,"618,64661-0022-16 ",.01)
 ;;64661-0022-16
 ;;9002226.02101,"618,64661-0022-16 ",.02)
 ;;64661-0022-16
 ;;9002226.02101,"618,64661-0031-30 ",.01)
 ;;64661-0031-30
 ;;9002226.02101,"618,64661-0031-30 ",.02)
 ;;64661-0031-30
 ;;9002226.02101,"618,64661-0032-30 ",.01)
 ;;64661-0032-30
 ;;9002226.02101,"618,64661-0032-30 ",.02)
 ;;64661-0032-30
 ;;9002226.02101,"618,64661-0050-01 ",.01)
 ;;64661-0050-01
 ;;9002226.02101,"618,64661-0050-01 ",.02)
 ;;64661-0050-01
 ;;9002226.02101,"618,64720-0143-10 ",.01)
 ;;64720-0143-10
 ;;9002226.02101,"618,64720-0143-10 ",.02)
 ;;64720-0143-10
 ;;9002226.02101,"618,64720-0143-11 ",.01)
 ;;64720-0143-11
 ;;9002226.02101,"618,64720-0143-11 ",.02)
 ;;64720-0143-11
 ;;9002226.02101,"618,64720-0144-10 ",.01)
 ;;64720-0144-10
 ;;9002226.02101,"618,64720-0144-10 ",.02)
 ;;64720-0144-10
 ;;9002226.02101,"618,64720-0144-11 ",.01)
 ;;64720-0144-11
 ;;9002226.02101,"618,64720-0144-11 ",.02)
 ;;64720-0144-11
 ;;9002226.02101,"618,64720-0145-10 ",.01)
 ;;64720-0145-10
 ;;9002226.02101,"618,64720-0145-10 ",.02)
 ;;64720-0145-10
 ;;9002226.02101,"618,64720-0145-11 ",.01)
 ;;64720-0145-11
 ;;9002226.02101,"618,64720-0145-11 ",.02)
 ;;64720-0145-11
 ;;9002226.02101,"618,64759-0005-01 ",.01)
 ;;64759-0005-01
 ;;9002226.02101,"618,64759-0005-01 ",.02)
 ;;64759-0005-01
 ;;9002226.02101,"618,64899-0097-24 ",.01)
 ;;64899-0097-24
 ;;9002226.02101,"618,64899-0097-24 ",.02)
 ;;64899-0097-24
 ;;9002226.02101,"618,64980-0111-01 ",.01)
 ;;64980-0111-01
 ;;9002226.02101,"618,64980-0111-01 ",.02)
 ;;64980-0111-01
 ;;9002226.02101,"618,64980-0111-10 ",.01)
 ;;64980-0111-10
 ;;9002226.02101,"618,64980-0111-10 ",.02)
 ;;64980-0111-10
 ;;9002226.02101,"618,64980-0112-01 ",.01)
 ;;64980-0112-01
 ;;9002226.02101,"618,64980-0112-01 ",.02)
 ;;64980-0112-01
 ;;9002226.02101,"618,64980-0112-10 ",.01)
 ;;64980-0112-10
 ;;9002226.02101,"618,64980-0112-10 ",.02)
 ;;64980-0112-10
 ;;9002226.02101,"618,64980-0113-01 ",.01)
 ;;64980-0113-01
 ;;9002226.02101,"618,64980-0113-01 ",.02)
 ;;64980-0113-01
 ;;9002226.02101,"618,64980-0113-10 ",.01)
 ;;64980-0113-10
 ;;9002226.02101,"618,64980-0113-10 ",.02)
 ;;64980-0113-10
 ;;9002226.02101,"618,64980-0123-01 ",.01)
 ;;64980-0123-01
 ;;9002226.02101,"618,64980-0123-01 ",.02)
 ;;64980-0123-01
 ;;9002226.02101,"618,64980-0123-10 ",.01)
 ;;64980-0123-10
 ;;9002226.02101,"618,64980-0123-10 ",.02)
 ;;64980-0123-10
 ;;9002226.02101,"618,64980-0504-48 ",.01)
 ;;64980-0504-48
 ;;9002226.02101,"618,64980-0504-48 ",.02)
 ;;64980-0504-48
 ;;9002226.02101,"618,65162-0012-10 ",.01)
 ;;65162-0012-10
 ;;9002226.02101,"618,65162-0012-10 ",.02)
 ;;65162-0012-10
 ;;9002226.02101,"618,65162-0012-11 ",.01)
 ;;65162-0012-11
 ;;9002226.02101,"618,65162-0012-11 ",.02)
 ;;65162-0012-11
 ;;9002226.02101,"618,65162-0016-10 ",.01)
 ;;65162-0016-10
 ;;9002226.02101,"618,65162-0016-10 ",.02)
 ;;65162-0016-10
 ;;9002226.02101,"618,65162-0016-11 ",.01)
 ;;65162-0016-11
 ;;9002226.02101,"618,65162-0016-11 ",.02)
 ;;65162-0016-11
 ;;9002226.02101,"618,65162-0521-10 ",.01)
 ;;65162-0521-10
 ;;9002226.02101,"618,65162-0521-10 ",.02)
 ;;65162-0521-10
 ;;9002226.02101,"618,65162-0521-11 ",.01)
 ;;65162-0521-11
 ;;9002226.02101,"618,65162-0521-11 ",.02)
 ;;65162-0521-11
 ;;9002226.02101,"618,65162-0522-10 ",.01)
 ;;65162-0522-10
 ;;9002226.02101,"618,65162-0522-10 ",.02)
 ;;65162-0522-10
 ;;9002226.02101,"618,65162-0662-86 ",.01)
 ;;65162-0662-86
 ;;9002226.02101,"618,65162-0662-86 ",.02)
 ;;65162-0662-86
 ;;9002226.02101,"618,65162-0662-90 ",.01)
 ;;65162-0662-90
 ;;9002226.02101,"618,65162-0662-90 ",.02)
 ;;65162-0662-90
 ;;9002226.02101,"618,65162-0745-10 ",.01)
 ;;65162-0745-10
 ;;9002226.02101,"618,65162-0745-10 ",.02)
 ;;65162-0745-10
 ;;9002226.02101,"618,65162-0756-86 ",.01)
 ;;65162-0756-86
 ;;9002226.02101,"618,65162-0756-86 ",.02)
 ;;65162-0756-86
 ;;9002226.02101,"618,65162-0756-90 ",.01)
 ;;65162-0756-90
 ;;9002226.02101,"618,65162-0756-90 ",.02)
 ;;65162-0756-90
 ;;9002226.02101,"618,65224-0123-16 ",.01)
 ;;65224-0123-16
 ;;9002226.02101,"618,65224-0123-16 ",.02)
 ;;65224-0123-16
 ;;9002226.02101,"618,65224-0148-16 ",.01)
 ;;65224-0148-16
 ;;9002226.02101,"618,65224-0148-16 ",.02)
 ;;65224-0148-16
 ;;9002226.02101,"618,65224-0150-16 ",.01)
 ;;65224-0150-16
 ;;9002226.02101,"618,65224-0150-16 ",.02)
 ;;65224-0150-16
 ;;9002226.02101,"618,65224-0175-16 ",.01)
 ;;65224-0175-16
 ;;9002226.02101,"618,65224-0175-16 ",.02)
 ;;65224-0175-16
 ;;9002226.02101,"618,65224-0225-16 ",.01)
 ;;65224-0225-16
 ;;9002226.02101,"618,65224-0225-16 ",.02)
 ;;65224-0225-16
 ;;9002226.02101,"618,65224-0293-16 ",.01)
 ;;65224-0293-16
 ;;9002226.02101,"618,65224-0293-16 ",.02)
 ;;65224-0293-16
 ;;9002226.02101,"618,65224-0295-16 ",.01)
 ;;65224-0295-16
 ;;9002226.02101,"618,65224-0295-16 ",.02)
 ;;65224-0295-16
 ;;9002226.02101,"618,65224-0300-16 ",.01)
 ;;65224-0300-16
 ;;9002226.02101,"618,65224-0300-16 ",.02)
 ;;65224-0300-16
 ;;9002226.02101,"618,65224-0321-16 ",.01)
 ;;65224-0321-16
 ;;9002226.02101,"618,65224-0321-16 ",.02)
 ;;65224-0321-16
 ;;9002226.02101,"618,65224-0443-16 ",.01)
 ;;65224-0443-16
 ;;9002226.02101,"618,65224-0443-16 ",.02)
 ;;65224-0443-16
 ;;9002226.02101,"618,65224-0445-16 ",.01)
 ;;65224-0445-16
 ;;9002226.02101,"618,65224-0445-16 ",.02)
 ;;65224-0445-16
 ;;9002226.02101,"618,65224-0450-16 ",.01)
 ;;65224-0450-16
 ;;9002226.02101,"618,65224-0450-16 ",.02)
 ;;65224-0450-16
 ;;9002226.02101,"618,65224-0457-16 ",.01)
 ;;65224-0457-16
 ;;9002226.02101,"618,65224-0457-16 ",.02)
 ;;65224-0457-16
 ;;9002226.02101,"618,65224-0501-16 ",.01)
 ;;65224-0501-16
 ;;9002226.02101,"618,65224-0501-16 ",.02)
 ;;65224-0501-16
 ;;9002226.02101,"618,65224-0503-16 ",.01)
 ;;65224-0503-16
 ;;9002226.02101,"618,65224-0503-16 ",.02)
 ;;65224-0503-16
 ;;9002226.02101,"618,65224-0537-30 ",.01)
 ;;65224-0537-30
 ;;9002226.02101,"618,65224-0537-30 ",.02)
 ;;65224-0537-30
 ;;9002226.02101,"618,65224-0539-30 ",.01)
 ;;65224-0539-30
 ;;9002226.02101,"618,65224-0539-30 ",.02)
 ;;65224-0539-30