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

BGP02E6.m

Go to the documentation of this file.
BGP02E6 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
 ;
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,"352,58016-0333-60 ",.01)
 ;;58016-0333-60
 ;;9002226.02101,"352,58016-0333-60 ",.02)
 ;;58016-0333-60
 ;;9002226.02101,"352,58016-0467-30 ",.01)
 ;;58016-0467-30
 ;;9002226.02101,"352,58016-0467-30 ",.02)
 ;;58016-0467-30
 ;;9002226.02101,"352,58016-0528-00 ",.01)
 ;;58016-0528-00
 ;;9002226.02101,"352,58016-0528-00 ",.02)
 ;;58016-0528-00
 ;;9002226.02101,"352,58016-0528-15- ",.01)
 ;;58016-0528-15-
 ;;9002226.02101,"352,58016-0528-15- ",.02)
 ;;58016-0528-15-
 ;;9002226.02101,"352,58016-0528-30 ",.01)
 ;;58016-0528-30
 ;;9002226.02101,"352,58016-0528-30 ",.02)
 ;;58016-0528-30
 ;;9002226.02101,"352,58016-0528-60 ",.01)
 ;;58016-0528-60
 ;;9002226.02101,"352,58016-0528-60 ",.02)
 ;;58016-0528-60
 ;;9002226.02101,"352,58016-0529-00 ",.01)
 ;;58016-0529-00
 ;;9002226.02101,"352,58016-0529-00 ",.02)
 ;;58016-0529-00
 ;;9002226.02101,"352,58016-0529-15 ",.01)
 ;;58016-0529-15
 ;;9002226.02101,"352,58016-0529-15 ",.02)
 ;;58016-0529-15
 ;;9002226.02101,"352,58016-0529-20 ",.01)
 ;;58016-0529-20
 ;;9002226.02101,"352,58016-0529-20 ",.02)
 ;;58016-0529-20
 ;;9002226.02101,"352,58016-0529-30 ",.01)
 ;;58016-0529-30
 ;;9002226.02101,"352,58016-0529-30 ",.02)
 ;;58016-0529-30
 ;;9002226.02101,"352,58016-0531-00 ",.01)
 ;;58016-0531-00
 ;;9002226.02101,"352,58016-0531-00 ",.02)
 ;;58016-0531-00
 ;;9002226.02101,"352,58016-0531-15 ",.01)
 ;;58016-0531-15
 ;;9002226.02101,"352,58016-0531-15 ",.02)
 ;;58016-0531-15
 ;;9002226.02101,"352,58016-0531-30 ",.01)
 ;;58016-0531-30
 ;;9002226.02101,"352,58016-0531-30 ",.02)
 ;;58016-0531-30
 ;;9002226.02101,"352,58016-0532-00 ",.01)
 ;;58016-0532-00
 ;;9002226.02101,"352,58016-0532-00 ",.02)
 ;;58016-0532-00
 ;;9002226.02101,"352,58016-0532-30 ",.01)
 ;;58016-0532-30
 ;;9002226.02101,"352,58016-0532-30 ",.02)
 ;;58016-0532-30
 ;;9002226.02101,"352,58016-0582-00 ",.01)
 ;;58016-0582-00
 ;;9002226.02101,"352,58016-0582-00 ",.02)
 ;;58016-0582-00
 ;;9002226.02101,"352,58016-0582-15 ",.01)
 ;;58016-0582-15
 ;;9002226.02101,"352,58016-0582-15 ",.02)
 ;;58016-0582-15
 ;;9002226.02101,"352,58016-0582-20 ",.01)
 ;;58016-0582-20
 ;;9002226.02101,"352,58016-0582-20 ",.02)
 ;;58016-0582-20
 ;;9002226.02101,"352,58016-0582-30 ",.01)
 ;;58016-0582-30
 ;;9002226.02101,"352,58016-0582-30 ",.02)
 ;;58016-0582-30
 ;;9002226.02101,"352,58016-0582-60 ",.01)
 ;;58016-0582-60
 ;;9002226.02101,"352,58016-0582-60 ",.02)
 ;;58016-0582-60
 ;;9002226.02101,"352,58016-0771-00 ",.01)
 ;;58016-0771-00
 ;;9002226.02101,"352,58016-0771-00 ",.02)
 ;;58016-0771-00
 ;;9002226.02101,"352,58016-0771-12 ",.01)
 ;;58016-0771-12
 ;;9002226.02101,"352,58016-0771-12 ",.02)
 ;;58016-0771-12
 ;;9002226.02101,"352,58016-0771-15 ",.01)
 ;;58016-0771-15
 ;;9002226.02101,"352,58016-0771-15 ",.02)
 ;;58016-0771-15
 ;;9002226.02101,"352,58016-0771-20 ",.01)
 ;;58016-0771-20
 ;;9002226.02101,"352,58016-0771-20 ",.02)
 ;;58016-0771-20
 ;;9002226.02101,"352,58016-0771-30 ",.01)
 ;;58016-0771-30
 ;;9002226.02101,"352,58016-0771-30 ",.02)
 ;;58016-0771-30
 ;;9002226.02101,"352,58019-0532-15 ",.01)
 ;;58019-0532-15
 ;;9002226.02101,"352,58019-0532-15 ",.02)
 ;;58019-0532-15
 ;;9002226.02101,"352,59591-0767-10 ",.01)
 ;;59591-0767-10
 ;;9002226.02101,"352,59591-0767-10 ",.02)
 ;;59591-0767-10
 ;;9002226.02101,"352,59591-0768-03 ",.01)
 ;;59591-0768-03
 ;;9002226.02101,"352,59591-0768-03 ",.02)
 ;;59591-0768-03
 ;;9002226.02101,"352,59591-0768-10 ",.01)
 ;;59591-0768-10
 ;;9002226.02101,"352,59591-0768-10 ",.02)
 ;;59591-0768-10
 ;;9002226.02101,"352,59772-2461-01 ",.01)
 ;;59772-2461-01
 ;;9002226.02101,"352,59772-2461-01 ",.02)
 ;;59772-2461-01
 ;;9002226.02101,"352,59772-2462-01 ",.01)
 ;;59772-2462-01
 ;;9002226.02101,"352,59772-2462-01 ",.02)
 ;;59772-2462-01
 ;;9002226.02101,"352,59772-2462-03 ",.01)
 ;;59772-2462-03
 ;;9002226.02101,"352,59772-2462-03 ",.02)
 ;;59772-2462-03
 ;;9002226.02101,"352,59772-2464-01 ",.01)
 ;;59772-2464-01
 ;;9002226.02101,"352,59772-2464-01 ",.02)
 ;;59772-2464-01
 ;;9002226.02101,"352,59772-2465-01 ",.01)
 ;;59772-2465-01
 ;;9002226.02101,"352,59772-2465-01 ",.02)
 ;;59772-2465-01
 ;;9002226.02101,"352,59930-1602-01 ",.01)
 ;;59930-1602-01
 ;;9002226.02101,"352,59930-1602-01 ",.02)
 ;;59930-1602-01
 ;;9002226.02101,"352,59930-1602-02 ",.01)
 ;;59930-1602-02
 ;;9002226.02101,"352,59930-1602-02 ",.02)
 ;;59930-1602-02
 ;;9002226.02101,"352,59930-1653-01 ",.01)
 ;;59930-1653-01
 ;;9002226.02101,"352,59930-1653-01 ",.02)
 ;;59930-1653-01
 ;;9002226.02101,"352,59930-1653-02 ",.01)
 ;;59930-1653-02
 ;;9002226.02101,"352,59930-1653-02 ",.02)
 ;;59930-1653-02
 ;;9002226.02101,"352,60429-0025-30 ",.01)
 ;;60429-0025-30
 ;;9002226.02101,"352,60429-0025-30 ",.02)
 ;;60429-0025-30
 ;;9002226.02101,"352,60429-0025-90 ",.01)
 ;;60429-0025-90
 ;;9002226.02101,"352,60429-0025-90 ",.02)
 ;;60429-0025-90
 ;;9002226.02101,"352,60429-0026-30 ",.01)
 ;;60429-0026-30
 ;;9002226.02101,"352,60429-0026-30 ",.02)
 ;;60429-0026-30
 ;;9002226.02101,"352,60429-0126-30 ",.01)
 ;;60429-0126-30
 ;;9002226.02101,"352,60429-0126-30 ",.02)
 ;;60429-0126-30
 ;;9002226.02101,"352,60429-0126-60 ",.01)
 ;;60429-0126-60
 ;;9002226.02101,"352,60429-0126-60 ",.02)
 ;;60429-0126-60
 ;;9002226.02101,"352,60429-0127-30 ",.01)
 ;;60429-0127-30
 ;;9002226.02101,"352,60429-0127-30 ",.02)
 ;;60429-0127-30
 ;;9002226.02101,"352,60505-0159-00 ",.01)
 ;;60505-0159-00
 ;;9002226.02101,"352,60505-0159-00 ",.02)
 ;;60505-0159-00
 ;;9002226.02101,"352,60505-0222-01 ",.01)
 ;;60505-0222-01
 ;;9002226.02101,"352,60505-0222-01 ",.02)
 ;;60505-0222-01
 ;;9002226.02101,"352,60505-0224-01 ",.01)
 ;;60505-0224-01
 ;;9002226.02101,"352,60505-0224-01 ",.02)
 ;;60505-0224-01
 ;;9002226.02101,"352,60505-0551-03 ",.01)
 ;;60505-0551-03
 ;;9002226.02101,"352,60505-0551-03 ",.02)
 ;;60505-0551-03
 ;;9002226.02101,"352,60505-0552-03 ",.01)
 ;;60505-0552-03
 ;;9002226.02101,"352,60505-0552-03 ",.02)
 ;;60505-0552-03
 ;;9002226.02101,"352,60505-0553-01 ",.01)
 ;;60505-0553-01
 ;;9002226.02101,"352,60505-0553-01 ",.02)
 ;;60505-0553-01
 ;;9002226.02101,"352,60758-0801-05 ",.01)
 ;;60758-0801-05
 ;;9002226.02101,"352,60758-0801-05 ",.02)
 ;;60758-0801-05
 ;;9002226.02101,"352,60758-0801-10 ",.01)
 ;;60758-0801-10
 ;;9002226.02101,"352,60758-0801-10 ",.02)
 ;;60758-0801-10
 ;;9002226.02101,"352,60758-0802-10 ",.01)
 ;;60758-0802-10
 ;;9002226.02101,"352,60758-0802-10 ",.02)
 ;;60758-0802-10
 ;;9002226.02101,"352,60976-0347-44 ",.01)
 ;;60976-0347-44
 ;;9002226.02101,"352,60976-0347-44 ",.02)
 ;;60976-0347-44
 ;;9002226.02101,"352,60976-0348-43 ",.01)
 ;;60976-0348-43
 ;;9002226.02101,"352,60976-0348-43 ",.02)
 ;;60976-0348-43
 ;;9002226.02101,"352,61314-0224-05 ",.01)
 ;;61314-0224-05
 ;;9002226.02101,"352,61314-0224-05 ",.02)
 ;;61314-0224-05
 ;;9002226.02101,"352,61314-0226-05 ",.01)
 ;;61314-0226-05
 ;;9002226.02101,"352,61314-0226-05 ",.02)
 ;;61314-0226-05
 ;;9002226.02101,"352,61314-0226-10 ",.01)
 ;;61314-0226-10
 ;;9002226.02101,"352,61314-0226-10 ",.02)
 ;;61314-0226-10
 ;;9002226.02101,"352,61314-0227-05 ",.01)
 ;;61314-0227-05
 ;;9002226.02101,"352,61314-0227-05 ",.02)
 ;;61314-0227-05
 ;;9002226.02101,"352,61314-0227-10 ",.01)
 ;;61314-0227-10
 ;;9002226.02101,"352,61314-0227-10 ",.02)
 ;;61314-0227-10
 ;;9002226.02101,"352,61314-0238-05 ",.01)
 ;;61314-0238-05
 ;;9002226.02101,"352,61314-0238-05 ",.02)
 ;;61314-0238-05
 ;;9002226.02101,"352,61314-0238-10 ",.01)
 ;;61314-0238-10
 ;;9002226.02101,"352,61314-0238-10 ",.02)
 ;;61314-0238-10
 ;;9002226.02101,"352,61392-0018-30 ",.01)
 ;;61392-0018-30
 ;;9002226.02101,"352,61392-0018-30 ",.02)
 ;;61392-0018-30
 ;;9002226.02101,"352,61392-0018-31 ",.01)
 ;;61392-0018-31
 ;;9002226.02101,"352,61392-0018-31 ",.02)
 ;;61392-0018-31
 ;;9002226.02101,"352,61392-0018-32 ",.01)
 ;;61392-0018-32
 ;;9002226.02101,"352,61392-0018-32 ",.02)
 ;;61392-0018-32
 ;;9002226.02101,"352,61392-0018-39 ",.01)
 ;;61392-0018-39
 ;;9002226.02101,"352,61392-0018-39 ",.02)
 ;;61392-0018-39
 ;;9002226.02101,"352,61392-0018-45 ",.01)
 ;;61392-0018-45
 ;;9002226.02101,"352,61392-0018-45 ",.02)
 ;;61392-0018-45
 ;;9002226.02101,"352,61392-0018-51 ",.01)
 ;;61392-0018-51
 ;;9002226.02101,"352,61392-0018-51 ",.02)
 ;;61392-0018-51
 ;;9002226.02101,"352,61392-0018-54 ",.01)
 ;;61392-0018-54
 ;;9002226.02101,"352,61392-0018-54 ",.02)
 ;;61392-0018-54
 ;;9002226.02101,"352,61392-0018-56 ",.01)
 ;;61392-0018-56
 ;;9002226.02101,"352,61392-0018-56 ",.02)
 ;;61392-0018-56
 ;;9002226.02101,"352,61392-0018-60 ",.01)
 ;;61392-0018-60
 ;;9002226.02101,"352,61392-0018-60 ",.02)
 ;;61392-0018-60
 ;;9002226.02101,"352,61392-0018-90 ",.01)
 ;;61392-0018-90
 ;;9002226.02101,"352,61392-0018-90 ",.02)
 ;;61392-0018-90
 ;;9002226.02101,"352,61392-0018-91 ",.01)
 ;;61392-0018-91
 ;;9002226.02101,"352,61392-0018-91 ",.02)
 ;;61392-0018-91
 ;;9002226.02101,"352,61392-0069-31 ",.01)
 ;;61392-0069-31
 ;;9002226.02101,"352,61392-0069-31 ",.02)
 ;;61392-0069-31
 ;;9002226.02101,"352,61392-0069-32 ",.01)
 ;;61392-0069-32
 ;;9002226.02101,"352,61392-0069-32 ",.02)
 ;;61392-0069-32
 ;;9002226.02101,"352,61392-0069-39 ",.01)
 ;;61392-0069-39
 ;;9002226.02101,"352,61392-0069-39 ",.02)
 ;;61392-0069-39
 ;;9002226.02101,"352,61392-0069-45 ",.01)
 ;;61392-0069-45
 ;;9002226.02101,"352,61392-0069-45 ",.02)
 ;;61392-0069-45
 ;;9002226.02101,"352,61392-0069-51 ",.01)
 ;;61392-0069-51
 ;;9002226.02101,"352,61392-0069-51 ",.02)
 ;;61392-0069-51
 ;;9002226.02101,"352,61392-0069-54 ",.01)
 ;;61392-0069-54
 ;;9002226.02101,"352,61392-0069-54 ",.02)
 ;;61392-0069-54
 ;;9002226.02101,"352,61392-0069-60 ",.01)
 ;;61392-0069-60
 ;;9002226.02101,"352,61392-0069-60 ",.02)
 ;;61392-0069-60
 ;;9002226.02101,"352,61392-0069-90 ",.01)
 ;;61392-0069-90
 ;;9002226.02101,"352,61392-0069-90 ",.02)
 ;;61392-0069-90
 ;;9002226.02101,"352,61392-0069-91 ",.01)
 ;;61392-0069-91
 ;;9002226.02101,"352,61392-0069-91 ",.02)
 ;;61392-0069-91
 ;;9002226.02101,"352,61392-0280-30 ",.01)
 ;;61392-0280-30
 ;;9002226.02101,"352,61392-0280-30 ",.02)
 ;;61392-0280-30
 ;;9002226.02101,"352,61392-0280-31 ",.01)
 ;;61392-0280-31
 ;;9002226.02101,"352,61392-0280-31 ",.02)
 ;;61392-0280-31
 ;;9002226.02101,"352,61392-0280-32 ",.01)
 ;;61392-0280-32
 ;;9002226.02101,"352,61392-0280-32 ",.02)
 ;;61392-0280-32
 ;;9002226.02101,"352,61392-0280-39 ",.01)
 ;;61392-0280-39
 ;;9002226.02101,"352,61392-0280-39 ",.02)
 ;;61392-0280-39
 ;;9002226.02101,"352,61392-0280-45 ",.01)
 ;;61392-0280-45
 ;;9002226.02101,"352,61392-0280-45 ",.02)
 ;;61392-0280-45
 ;;9002226.02101,"352,61392-0280-51 ",.01)
 ;;61392-0280-51
 ;;9002226.02101,"352,61392-0280-51 ",.02)
 ;;61392-0280-51
 ;;9002226.02101,"352,61392-0280-54 ",.01)
 ;;61392-0280-54
 ;;9002226.02101,"352,61392-0280-54 ",.02)
 ;;61392-0280-54
 ;;9002226.02101,"352,61392-0280-56 ",.01)
 ;;61392-0280-56
 ;;9002226.02101,"352,61392-0280-56 ",.02)
 ;;61392-0280-56
 ;;9002226.02101,"352,61392-0280-60 ",.01)
 ;;61392-0280-60
 ;;9002226.02101,"352,61392-0280-60 ",.02)
 ;;61392-0280-60
 ;;9002226.02101,"352,61392-0280-90 ",.01)
 ;;61392-0280-90
 ;;9002226.02101,"352,61392-0280-90 ",.02)
 ;;61392-0280-90
 ;;9002226.02101,"352,61392-0280-91 ",.01)
 ;;61392-0280-91
 ;;9002226.02101,"352,61392-0280-91 ",.02)
 ;;61392-0280-91
 ;;9002226.02101,"352,61392-0286-31 ",.01)
 ;;61392-0286-31
 ;;9002226.02101,"352,61392-0286-31 ",.02)
 ;;61392-0286-31
 ;;9002226.02101,"352,61392-0286-32 ",.01)
 ;;61392-0286-32
 ;;9002226.02101,"352,61392-0286-32 ",.02)
 ;;61392-0286-32
 ;;9002226.02101,"352,61392-0286-39 ",.01)
 ;;61392-0286-39
 ;;9002226.02101,"352,61392-0286-39 ",.02)
 ;;61392-0286-39
 ;;9002226.02101,"352,61392-0286-45 ",.01)
 ;;61392-0286-45
 ;;9002226.02101,"352,61392-0286-45 ",.02)
 ;;61392-0286-45
 ;;9002226.02101,"352,61392-0286-51 ",.01)
 ;;61392-0286-51
 ;;9002226.02101,"352,61392-0286-51 ",.02)
 ;;61392-0286-51
 ;;9002226.02101,"352,61392-0286-54 ",.01)
 ;;61392-0286-54
 ;;9002226.02101,"352,61392-0286-54 ",.02)
 ;;61392-0286-54
 ;;9002226.02101,"352,61392-0286-56 ",.01)
 ;;61392-0286-56
 ;;9002226.02101,"352,61392-0286-56 ",.02)
 ;;61392-0286-56
 ;;9002226.02101,"352,61392-0286-60 ",.01)
 ;;61392-0286-60
 ;;9002226.02101,"352,61392-0286-60 ",.02)
 ;;61392-0286-60
 ;;9002226.02101,"352,61392-0286-90 ",.01)
 ;;61392-0286-90
 ;;9002226.02101,"352,61392-0286-90 ",.02)
 ;;61392-0286-90
 ;;9002226.02101,"352,61392-0286-91 ",.01)
 ;;61392-0286-91
 ;;9002226.02101,"352,61392-0286-91 ",.02)
 ;;61392-0286-91
 ;;9002226.02101,"352,61392-0392-30 ",.01)
 ;;61392-0392-30
 ;;9002226.02101,"352,61392-0392-30 ",.02)
 ;;61392-0392-30
 ;;9002226.02101,"352,61392-0392-31 ",.01)
 ;;61392-0392-31
 ;;9002226.02101,"352,61392-0392-31 ",.02)
 ;;61392-0392-31
 ;;9002226.02101,"352,61392-0392-32 ",.01)
 ;;61392-0392-32
 ;;9002226.02101,"352,61392-0392-32 ",.02)
 ;;61392-0392-32
 ;;9002226.02101,"352,61392-0392-39 ",.01)
 ;;61392-0392-39
 ;;9002226.02101,"352,61392-0392-39 ",.02)
 ;;61392-0392-39
 ;;9002226.02101,"352,61392-0392-45 ",.01)
 ;;61392-0392-45
 ;;9002226.02101,"352,61392-0392-45 ",.02)
 ;;61392-0392-45
 ;;9002226.02101,"352,61392-0392-51 ",.01)
 ;;61392-0392-51
 ;;9002226.02101,"352,61392-0392-51 ",.02)
 ;;61392-0392-51
 ;;9002226.02101,"352,61392-0392-54 ",.01)
 ;;61392-0392-54
 ;;9002226.02101,"352,61392-0392-54 ",.02)
 ;;61392-0392-54
 ;;9002226.02101,"352,61392-0392-56 ",.01)
 ;;61392-0392-56
 ;;9002226.02101,"352,61392-0392-56 ",.02)
 ;;61392-0392-56