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

BGP31L33.m

Go to the documentation of this file.
BGP31L33 ;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,68115-0177-99 ",.01)
 ;;68115-0177-99
 ;;9002226.02101,"618,68115-0177-99 ",.02)
 ;;68115-0177-99
 ;;9002226.02101,"618,68115-0178-20 ",.01)
 ;;68115-0178-20
 ;;9002226.02101,"618,68115-0178-20 ",.02)
 ;;68115-0178-20
 ;;9002226.02101,"618,68115-0178-60 ",.01)
 ;;68115-0178-60
 ;;9002226.02101,"618,68115-0178-60 ",.02)
 ;;68115-0178-60
 ;;9002226.02101,"618,68115-0302-00 ",.01)
 ;;68115-0302-00
 ;;9002226.02101,"618,68115-0302-00 ",.02)
 ;;68115-0302-00
 ;;9002226.02101,"618,68115-0302-04 ",.01)
 ;;68115-0302-04
 ;;9002226.02101,"618,68115-0302-04 ",.02)
 ;;68115-0302-04
 ;;9002226.02101,"618,68115-0302-10 ",.01)
 ;;68115-0302-10
 ;;9002226.02101,"618,68115-0302-10 ",.02)
 ;;68115-0302-10
 ;;9002226.02101,"618,68115-0302-20 ",.01)
 ;;68115-0302-20
 ;;9002226.02101,"618,68115-0302-20 ",.02)
 ;;68115-0302-20
 ;;9002226.02101,"618,68115-0302-30 ",.01)
 ;;68115-0302-30
 ;;9002226.02101,"618,68115-0302-30 ",.02)
 ;;68115-0302-30
 ;;9002226.02101,"618,68115-0302-60 ",.01)
 ;;68115-0302-60
 ;;9002226.02101,"618,68115-0302-60 ",.02)
 ;;68115-0302-60
 ;;9002226.02101,"618,68115-0302-90 ",.01)
 ;;68115-0302-90
 ;;9002226.02101,"618,68115-0302-90 ",.02)
 ;;68115-0302-90
 ;;9002226.02101,"618,68115-0311-20 ",.01)
 ;;68115-0311-20
 ;;9002226.02101,"618,68115-0311-20 ",.02)
 ;;68115-0311-20
 ;;9002226.02101,"618,68115-0598-04 ",.01)
 ;;68115-0598-04
 ;;9002226.02101,"618,68115-0598-04 ",.02)
 ;;68115-0598-04
 ;;9002226.02101,"618,68115-0826-00 ",.01)
 ;;68115-0826-00
 ;;9002226.02101,"618,68115-0826-00 ",.02)
 ;;68115-0826-00
 ;;9002226.02101,"618,68115-0900-04 ",.01)
 ;;68115-0900-04
 ;;9002226.02101,"618,68115-0900-04 ",.02)
 ;;68115-0900-04
 ;;9002226.02101,"618,68115-0915-04 ",.01)
 ;;68115-0915-04
 ;;9002226.02101,"618,68115-0915-04 ",.02)
 ;;68115-0915-04
 ;;9002226.02101,"618,68134-0101-01 ",.01)
 ;;68134-0101-01
 ;;9002226.02101,"618,68134-0101-01 ",.02)
 ;;68134-0101-01
 ;;9002226.02101,"618,68134-0152-01 ",.01)
 ;;68134-0152-01
 ;;9002226.02101,"618,68134-0152-01 ",.02)
 ;;68134-0152-01
 ;;9002226.02101,"618,68134-0328-01 ",.01)
 ;;68134-0328-01
 ;;9002226.02101,"618,68134-0328-01 ",.02)
 ;;68134-0328-01
 ;;9002226.02101,"618,68134-0553-01 ",.01)
 ;;68134-0553-01
 ;;9002226.02101,"618,68134-0553-01 ",.02)
 ;;68134-0553-01
 ;;9002226.02101,"618,68134-0613-30 ",.01)
 ;;68134-0613-30
 ;;9002226.02101,"618,68134-0613-30 ",.02)
 ;;68134-0613-30
 ;;9002226.02101,"618,68188-0060-03 ",.01)
 ;;68188-0060-03
 ;;9002226.02101,"618,68188-0060-03 ",.02)
 ;;68188-0060-03
 ;;9002226.02101,"618,68188-0061-04 ",.01)
 ;;68188-0061-04
 ;;9002226.02101,"618,68188-0061-04 ",.02)
 ;;68188-0061-04
 ;;9002226.02101,"618,68188-0061-16 ",.01)
 ;;68188-0061-16
 ;;9002226.02101,"618,68188-0061-16 ",.02)
 ;;68188-0061-16
 ;;9002226.02101,"618,68220-0027-10 ",.01)
 ;;68220-0027-10
 ;;9002226.02101,"618,68220-0027-10 ",.02)
 ;;68220-0027-10
 ;;9002226.02101,"618,68220-0036-10 ",.01)
 ;;68220-0036-10
 ;;9002226.02101,"618,68220-0036-10 ",.02)
 ;;68220-0036-10
 ;;9002226.02101,"618,68258-1068-01 ",.01)
 ;;68258-1068-01
 ;;9002226.02101,"618,68258-1068-01 ",.02)
 ;;68258-1068-01
 ;;9002226.02101,"618,68258-3011-01 ",.01)
 ;;68258-3011-01
 ;;9002226.02101,"618,68258-3011-01 ",.02)
 ;;68258-3011-01
 ;;9002226.02101,"618,68258-3011-04 ",.01)
 ;;68258-3011-04
 ;;9002226.02101,"618,68258-3011-04 ",.02)
 ;;68258-3011-04
 ;;9002226.02101,"618,68258-3011-06 ",.01)
 ;;68258-3011-06
 ;;9002226.02101,"618,68258-3011-06 ",.02)
 ;;68258-3011-06
 ;;9002226.02101,"618,68258-3028-01 ",.01)
 ;;68258-3028-01
 ;;9002226.02101,"618,68258-3028-01 ",.02)
 ;;68258-3028-01
 ;;9002226.02101,"618,68258-8945-01 ",.01)
 ;;68258-8945-01
 ;;9002226.02101,"618,68258-8945-01 ",.02)
 ;;68258-8945-01
 ;;9002226.02101,"618,68258-9048-01 ",.01)
 ;;68258-9048-01
 ;;9002226.02101,"618,68258-9048-01 ",.02)
 ;;68258-9048-01
 ;;9002226.02101,"618,68258-9065-01 ",.01)
 ;;68258-9065-01
 ;;9002226.02101,"618,68258-9065-01 ",.02)
 ;;68258-9065-01
 ;;9002226.02101,"618,68258-9066-01 ",.01)
 ;;68258-9066-01
 ;;9002226.02101,"618,68258-9066-01 ",.02)
 ;;68258-9066-01
 ;;9002226.02101,"618,68258-9078-01 ",.01)
 ;;68258-9078-01
 ;;9002226.02101,"618,68258-9078-01 ",.02)
 ;;68258-9078-01
 ;;9002226.02101,"618,68258-9136-01 ",.01)
 ;;68258-9136-01
 ;;9002226.02101,"618,68258-9136-01 ",.02)
 ;;68258-9136-01
 ;;9002226.02101,"618,68308-0122-04 ",.01)
 ;;68308-0122-04
 ;;9002226.02101,"618,68308-0122-04 ",.02)
 ;;68308-0122-04
 ;;9002226.02101,"618,68308-0126-04 ",.01)
 ;;68308-0126-04
 ;;9002226.02101,"618,68308-0126-04 ",.02)
 ;;68308-0126-04
 ;;9002226.02101,"618,68308-0136-04 ",.01)
 ;;68308-0136-04
 ;;9002226.02101,"618,68308-0136-04 ",.02)
 ;;68308-0136-04
 ;;9002226.02101,"618,68308-0410-16 ",.01)
 ;;68308-0410-16
 ;;9002226.02101,"618,68308-0410-16 ",.02)
 ;;68308-0410-16
 ;;9002226.02101,"618,68308-0412-16 ",.01)
 ;;68308-0412-16
 ;;9002226.02101,"618,68308-0412-16 ",.02)
 ;;68308-0412-16
 ;;9002226.02101,"618,68308-0430-30 ",.01)
 ;;68308-0430-30
 ;;9002226.02101,"618,68308-0430-30 ",.02)
 ;;68308-0430-30
 ;;9002226.02101,"618,68308-0431-30 ",.01)
 ;;68308-0431-30
 ;;9002226.02101,"618,68308-0431-30 ",.02)
 ;;68308-0431-30
 ;;9002226.02101,"618,68308-0526-60 ",.01)
 ;;68308-0526-60
 ;;9002226.02101,"618,68308-0526-60 ",.02)
 ;;68308-0526-60
 ;;9002226.02101,"618,68308-0922-04 ",.01)
 ;;68308-0922-04
 ;;9002226.02101,"618,68308-0922-04 ",.02)
 ;;68308-0922-04
 ;;9002226.02101,"618,68308-0926-04 ",.01)
 ;;68308-0926-04
 ;;9002226.02101,"618,68308-0926-04 ",.02)
 ;;68308-0926-04
 ;;9002226.02101,"618,68308-0930-16 ",.01)
 ;;68308-0930-16
 ;;9002226.02101,"618,68308-0930-16 ",.02)
 ;;68308-0930-16
 ;;9002226.02101,"618,68382-0040-01 ",.01)
 ;;68382-0040-01
 ;;9002226.02101,"618,68382-0040-01 ",.02)
 ;;68382-0040-01
 ;;9002226.02101,"618,68382-0040-10 ",.01)
 ;;68382-0040-10
 ;;9002226.02101,"618,68382-0040-10 ",.02)
 ;;68382-0040-10
 ;;9002226.02101,"618,68382-0041-01 ",.01)
 ;;68382-0041-01
 ;;9002226.02101,"618,68382-0041-01 ",.02)
 ;;68382-0041-01
 ;;9002226.02101,"618,68382-0041-10 ",.01)
 ;;68382-0041-10
 ;;9002226.02101,"618,68382-0041-10 ",.02)
 ;;68382-0041-10
 ;;9002226.02101,"618,68382-0042-01 ",.01)
 ;;68382-0042-01
 ;;9002226.02101,"618,68382-0042-01 ",.02)
 ;;68382-0042-01
 ;;9002226.02101,"618,68382-0042-10 ",.01)
 ;;68382-0042-10
 ;;9002226.02101,"618,68382-0042-10 ",.02)
 ;;68382-0042-10
 ;;9002226.02101,"618,68387-0468-30 ",.01)
 ;;68387-0468-30
 ;;9002226.02101,"618,68387-0468-30 ",.02)
 ;;68387-0468-30
 ;;9002226.02101,"618,68387-0469-30 ",.01)
 ;;68387-0469-30
 ;;9002226.02101,"618,68387-0469-30 ",.02)
 ;;68387-0469-30
 ;;9002226.02101,"618,68387-0536-12 ",.01)
 ;;68387-0536-12
 ;;9002226.02101,"618,68387-0536-12 ",.02)
 ;;68387-0536-12
 ;;9002226.02101,"618,68387-0536-30 ",.01)
 ;;68387-0536-30
 ;;9002226.02101,"618,68387-0536-30 ",.02)
 ;;68387-0536-30
 ;;9002226.02101,"618,68387-0536-60 ",.01)
 ;;68387-0536-60
 ;;9002226.02101,"618,68387-0536-60 ",.02)
 ;;68387-0536-60
 ;;9002226.02101,"618,68387-0536-90 ",.01)
 ;;68387-0536-90
 ;;9002226.02101,"618,68387-0536-90 ",.02)
 ;;68387-0536-90
 ;;9002226.02101,"618,68453-0145-04 ",.01)
 ;;68453-0145-04
 ;;9002226.02101,"618,68453-0145-04 ",.02)
 ;;68453-0145-04
 ;;9002226.02101,"618,68453-0145-16 ",.01)
 ;;68453-0145-16
 ;;9002226.02101,"618,68453-0145-16 ",.02)
 ;;68453-0145-16
 ;;9002226.02101,"618,68453-0200-10 ",.01)
 ;;68453-0200-10
 ;;9002226.02101,"618,68453-0200-10 ",.02)
 ;;68453-0200-10
 ;;9002226.02101,"618,68453-0201-10 ",.01)
 ;;68453-0201-10
 ;;9002226.02101,"618,68453-0201-10 ",.02)
 ;;68453-0201-10
 ;;9002226.02101,"618,68453-0795-10 ",.01)
 ;;68453-0795-10
 ;;9002226.02101,"618,68453-0795-10 ",.02)
 ;;68453-0795-10
 ;;9002226.02101,"618,68462-0360-01 ",.01)
 ;;68462-0360-01
 ;;9002226.02101,"618,68462-0360-01 ",.02)
 ;;68462-0360-01
 ;;9002226.02101,"618,68462-0360-05 ",.01)
 ;;68462-0360-05
 ;;9002226.02101,"618,68462-0360-05 ",.02)
 ;;68462-0360-05
 ;;9002226.02101,"618,68462-0361-01 ",.01)
 ;;68462-0361-01
 ;;9002226.02101,"618,68462-0361-01 ",.02)
 ;;68462-0361-01
 ;;9002226.02101,"618,68462-0361-05 ",.01)
 ;;68462-0361-05
 ;;9002226.02101,"618,68462-0361-05 ",.02)
 ;;68462-0361-05
 ;;9002226.02101,"618,68462-0362-01 ",.01)
 ;;68462-0362-01
 ;;9002226.02101,"618,68462-0362-01 ",.02)
 ;;68462-0362-01
 ;;9002226.02101,"618,68462-0362-05 ",.01)
 ;;68462-0362-05
 ;;9002226.02101,"618,68462-0362-05 ",.02)
 ;;68462-0362-05
 ;;9002226.02101,"618,68716-0107-01 ",.01)
 ;;68716-0107-01
 ;;9002226.02101,"618,68716-0107-01 ",.02)
 ;;68716-0107-01
 ;;9002226.02101,"618,68716-0107-03 ",.01)
 ;;68716-0107-03
 ;;9002226.02101,"618,68716-0107-03 ",.02)
 ;;68716-0107-03