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

BGP7LXLT.m

Go to the documentation of this file.
BGP7LXLT ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 29, 2006 ;
 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
 ;
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,"629,60429-0119-90 ",.01)
 ;;60429-0119-90
 ;;9002226.02101,"629,60429-0119-90 ",.02)
 ;;60429-0119-90
 ;;9002226.02101,"629,60760-0062-30 ",.01)
 ;;60760-0062-30
 ;;9002226.02101,"629,60760-0062-30 ",.02)
 ;;60760-0062-30
 ;;9002226.02101,"629,60760-0062-45 ",.01)
 ;;60760-0062-45
 ;;9002226.02101,"629,60760-0062-45 ",.02)
 ;;60760-0062-45
 ;;9002226.02101,"629,60760-0062-90 ",.01)
 ;;60760-0062-90
 ;;9002226.02101,"629,60760-0062-90 ",.02)
 ;;60760-0062-90
 ;;9002226.02101,"629,60760-0110-20 ",.01)
 ;;60760-0110-20
 ;;9002226.02101,"629,60760-0110-20 ",.02)
 ;;60760-0110-20
 ;;9002226.02101,"629,60760-0110-30 ",.01)
 ;;60760-0110-30
 ;;9002226.02101,"629,60760-0110-30 ",.02)
 ;;60760-0110-30
 ;;9002226.02101,"629,60760-0110-40 ",.01)
 ;;60760-0110-40
 ;;9002226.02101,"629,60760-0110-40 ",.02)
 ;;60760-0110-40
 ;;9002226.02101,"629,60760-0110-60 ",.01)
 ;;60760-0110-60
 ;;9002226.02101,"629,60760-0110-60 ",.02)
 ;;60760-0110-60
 ;;9002226.02101,"629,60760-0110-90 ",.01)
 ;;60760-0110-90
 ;;9002226.02101,"629,60760-0110-90 ",.02)
 ;;60760-0110-90
 ;;9002226.02101,"629,60760-0110-92 ",.01)
 ;;60760-0110-92
 ;;9002226.02101,"629,60760-0110-92 ",.02)
 ;;60760-0110-92
 ;;9002226.02101,"629,60760-0136-30 ",.01)
 ;;60760-0136-30
 ;;9002226.02101,"629,60760-0136-30 ",.02)
 ;;60760-0136-30
 ;;9002226.02101,"629,60760-0290-30 ",.01)
 ;;60760-0290-30
 ;;9002226.02101,"629,60760-0290-30 ",.02)
 ;;60760-0290-30
 ;;9002226.02101,"629,60760-0347-40 ",.01)
 ;;60760-0347-40
 ;;9002226.02101,"629,60760-0347-40 ",.02)
 ;;60760-0347-40
 ;;9002226.02101,"629,60760-0418-20 ",.01)
 ;;60760-0418-20
 ;;9002226.02101,"629,60760-0418-20 ",.02)
 ;;60760-0418-20
 ;;9002226.02101,"629,60760-0418-30 ",.01)
 ;;60760-0418-30
 ;;9002226.02101,"629,60760-0418-30 ",.02)
 ;;60760-0418-30
 ;;9002226.02101,"629,60760-0418-60 ",.01)
 ;;60760-0418-60
 ;;9002226.02101,"629,60760-0418-60 ",.02)
 ;;60760-0418-60
 ;;9002226.02101,"629,60760-0810-30 ",.01)
 ;;60760-0810-30
 ;;9002226.02101,"629,60760-0810-30 ",.02)
 ;;60760-0810-30
 ;;9002226.02101,"629,60793-0135-01 ",.01)
 ;;60793-0135-01
 ;;9002226.02101,"629,60793-0135-01 ",.02)
 ;;60793-0135-01
 ;;9002226.02101,"629,60793-0136-01 ",.01)
 ;;60793-0136-01
 ;;9002226.02101,"629,60793-0136-01 ",.02)
 ;;60793-0136-01
 ;;9002226.02101,"629,60793-0136-05 ",.01)
 ;;60793-0136-05
 ;;9002226.02101,"629,60793-0136-05 ",.02)
 ;;60793-0136-05
 ;;9002226.02101,"629,60951-0767-70 ",.01)
 ;;60951-0767-70
 ;;9002226.02101,"629,60951-0767-70 ",.02)
 ;;60951-0767-70
 ;;9002226.02101,"629,60951-0767-90 ",.01)
 ;;60951-0767-90
 ;;9002226.02101,"629,60951-0767-90 ",.02)
 ;;60951-0767-90
 ;;9002226.02101,"629,60977-0150-01 ",.01)
 ;;60977-0150-01
 ;;9002226.02101,"629,60977-0150-01 ",.02)
 ;;60977-0150-01
 ;;9002226.02101,"629,61392-0711-30 ",.01)
 ;;61392-0711-30
 ;;9002226.02101,"629,61392-0711-30 ",.02)
 ;;61392-0711-30
 ;;9002226.02101,"629,61392-0711-31 ",.01)
 ;;61392-0711-31
 ;;9002226.02101,"629,61392-0711-31 ",.02)
 ;;61392-0711-31
 ;;9002226.02101,"629,61392-0711-32 ",.01)
 ;;61392-0711-32
 ;;9002226.02101,"629,61392-0711-32 ",.02)
 ;;61392-0711-32
 ;;9002226.02101,"629,61392-0711-39 ",.01)
 ;;61392-0711-39
 ;;9002226.02101,"629,61392-0711-39 ",.02)
 ;;61392-0711-39
 ;;9002226.02101,"629,61392-0711-45 ",.01)
 ;;61392-0711-45
 ;;9002226.02101,"629,61392-0711-45 ",.02)
 ;;61392-0711-45
 ;;9002226.02101,"629,61392-0711-51 ",.01)
 ;;61392-0711-51
 ;;9002226.02101,"629,61392-0711-51 ",.02)
 ;;61392-0711-51
 ;;9002226.02101,"629,61392-0711-54 ",.01)
 ;;61392-0711-54
 ;;9002226.02101,"629,61392-0711-54 ",.02)
 ;;61392-0711-54
 ;;9002226.02101,"629,61392-0711-60 ",.01)
 ;;61392-0711-60
 ;;9002226.02101,"629,61392-0711-60 ",.02)
 ;;61392-0711-60
 ;;9002226.02101,"629,61392-0711-90 ",.01)
 ;;61392-0711-90
 ;;9002226.02101,"629,61392-0711-90 ",.02)
 ;;61392-0711-90
 ;;9002226.02101,"629,61392-0711-91 ",.01)
 ;;61392-0711-91
 ;;9002226.02101,"629,61392-0711-91 ",.02)
 ;;61392-0711-91
 ;;9002226.02101,"629,61392-0716-30 ",.01)
 ;;61392-0716-30
 ;;9002226.02101,"629,61392-0716-30 ",.02)
 ;;61392-0716-30
 ;;9002226.02101,"629,61392-0716-31 ",.01)
 ;;61392-0716-31
 ;;9002226.02101,"629,61392-0716-31 ",.02)
 ;;61392-0716-31
 ;;9002226.02101,"629,61392-0716-32 ",.01)
 ;;61392-0716-32
 ;;9002226.02101,"629,61392-0716-32 ",.02)
 ;;61392-0716-32
 ;;9002226.02101,"629,61392-0716-39 ",.01)
 ;;61392-0716-39
 ;;9002226.02101,"629,61392-0716-39 ",.02)
 ;;61392-0716-39
 ;;9002226.02101,"629,61392-0716-45 ",.01)
 ;;61392-0716-45
 ;;9002226.02101,"629,61392-0716-45 ",.02)
 ;;61392-0716-45
 ;;9002226.02101,"629,61392-0716-51 ",.01)
 ;;61392-0716-51
 ;;9002226.02101,"629,61392-0716-51 ",.02)
 ;;61392-0716-51
 ;;9002226.02101,"629,61392-0716-54 ",.01)
 ;;61392-0716-54
 ;;9002226.02101,"629,61392-0716-54 ",.02)
 ;;61392-0716-54
 ;;9002226.02101,"629,61392-0716-60 ",.01)
 ;;61392-0716-60
 ;;9002226.02101,"629,61392-0716-60 ",.02)
 ;;61392-0716-60
 ;;9002226.02101,"629,61392-0716-90 ",.01)
 ;;61392-0716-90
 ;;9002226.02101,"629,61392-0716-90 ",.02)
 ;;61392-0716-90
 ;;9002226.02101,"629,61392-0716-91 ",.01)
 ;;61392-0716-91
 ;;9002226.02101,"629,61392-0716-91 ",.02)
 ;;61392-0716-91
 ;;9002226.02101,"629,61392-0739-30 ",.01)
 ;;61392-0739-30
 ;;9002226.02101,"629,61392-0739-30 ",.02)
 ;;61392-0739-30
 ;;9002226.02101,"629,61392-0739-31 ",.01)
 ;;61392-0739-31
 ;;9002226.02101,"629,61392-0739-31 ",.02)
 ;;61392-0739-31
 ;;9002226.02101,"629,61392-0739-32 ",.01)
 ;;61392-0739-32
 ;;9002226.02101,"629,61392-0739-32 ",.02)
 ;;61392-0739-32
 ;;9002226.02101,"629,61392-0739-39 ",.01)
 ;;61392-0739-39
 ;;9002226.02101,"629,61392-0739-39 ",.02)
 ;;61392-0739-39
 ;;9002226.02101,"629,61392-0739-45 ",.01)
 ;;61392-0739-45
 ;;9002226.02101,"629,61392-0739-45 ",.02)
 ;;61392-0739-45
 ;;9002226.02101,"629,61392-0739-51 ",.01)
 ;;61392-0739-51
 ;;9002226.02101,"629,61392-0739-51 ",.02)
 ;;61392-0739-51
 ;;9002226.02101,"629,61392-0739-54 ",.01)
 ;;61392-0739-54
 ;;9002226.02101,"629,61392-0739-54 ",.02)
 ;;61392-0739-54
 ;;9002226.02101,"629,61392-0739-60 ",.01)
 ;;61392-0739-60
 ;;9002226.02101,"629,61392-0739-60 ",.02)
 ;;61392-0739-60
 ;;9002226.02101,"629,61392-0739-90 ",.01)
 ;;61392-0739-90
 ;;9002226.02101,"629,61392-0739-90 ",.02)
 ;;61392-0739-90
 ;;9002226.02101,"629,61392-0739-91 ",.01)
 ;;61392-0739-91
 ;;9002226.02101,"629,61392-0739-91 ",.02)
 ;;61392-0739-91
 ;;9002226.02101,"629,61392-0740-30 ",.01)
 ;;61392-0740-30
 ;;9002226.02101,"629,61392-0740-30 ",.02)
 ;;61392-0740-30
 ;;9002226.02101,"629,61392-0740-31 ",.01)
 ;;61392-0740-31
 ;;9002226.02101,"629,61392-0740-31 ",.02)
 ;;61392-0740-31
 ;;9002226.02101,"629,61392-0740-32 ",.01)
 ;;61392-0740-32
 ;;9002226.02101,"629,61392-0740-32 ",.02)
 ;;61392-0740-32
 ;;9002226.02101,"629,61392-0740-39 ",.01)
 ;;61392-0740-39
 ;;9002226.02101,"629,61392-0740-39 ",.02)
 ;;61392-0740-39
 ;;9002226.02101,"629,61392-0740-45 ",.01)
 ;;61392-0740-45
 ;;9002226.02101,"629,61392-0740-45 ",.02)
 ;;61392-0740-45
 ;;9002226.02101,"629,61392-0740-51 ",.01)
 ;;61392-0740-51
 ;;9002226.02101,"629,61392-0740-51 ",.02)
 ;;61392-0740-51
 ;;9002226.02101,"629,61392-0740-54 ",.01)
 ;;61392-0740-54
 ;;9002226.02101,"629,61392-0740-54 ",.02)
 ;;61392-0740-54
 ;;9002226.02101,"629,61392-0740-60 ",.01)
 ;;61392-0740-60
 ;;9002226.02101,"629,61392-0740-60 ",.02)
 ;;61392-0740-60
 ;;9002226.02101,"629,61392-0740-90 ",.01)
 ;;61392-0740-90
 ;;9002226.02101,"629,61392-0740-90 ",.02)
 ;;61392-0740-90
 ;;9002226.02101,"629,61392-0740-91 ",.01)
 ;;61392-0740-91
 ;;9002226.02101,"629,61392-0740-91 ",.02)
 ;;61392-0740-91
 ;;9002226.02101,"629,62269-0265-24 ",.01)
 ;;62269-0265-24
 ;;9002226.02101,"629,62269-0265-24 ",.02)
 ;;62269-0265-24
 ;;9002226.02101,"629,62269-0266-24 ",.01)
 ;;62269-0266-24
 ;;9002226.02101,"629,62269-0266-24 ",.02)
 ;;62269-0266-24
 ;;9002226.02101,"629,62269-0266-29 ",.01)
 ;;62269-0266-29
 ;;9002226.02101,"629,62269-0266-29 ",.02)
 ;;62269-0266-29
 ;;9002226.02101,"629,62269-0336-24 ",.01)
 ;;62269-0336-24
 ;;9002226.02101,"629,62269-0336-24 ",.02)
 ;;62269-0336-24
 ;;9002226.02101,"629,62584-0354-01 ",.01)
 ;;62584-0354-01
 ;;9002226.02101,"629,62584-0354-01 ",.02)
 ;;62584-0354-01
 ;;9002226.02101,"629,62584-0354-33 ",.01)
 ;;62584-0354-33
 ;;9002226.02101,"629,62584-0354-33 ",.02)
 ;;62584-0354-33
 ;;9002226.02101,"629,62584-0644-01 ",.01)
 ;;62584-0644-01
 ;;9002226.02101,"629,62584-0644-01 ",.02)
 ;;62584-0644-01
 ;;9002226.02101,"629,62584-0780-01 ",.01)
 ;;62584-0780-01
 ;;9002226.02101,"629,62584-0780-01 ",.02)
 ;;62584-0780-01
 ;;9002226.02101,"629,62584-0781-01 ",.01)
 ;;62584-0781-01
 ;;9002226.02101,"629,62584-0781-01 ",.02)
 ;;62584-0781-01
 ;;9002226.02101,"629,63304-0788-05 ",.01)
 ;;63304-0788-05
 ;;9002226.02101,"629,63304-0788-05 ",.02)
 ;;63304-0788-05
 ;;9002226.02101,"629,63304-0788-10 ",.01)
 ;;63304-0788-10
 ;;9002226.02101,"629,63304-0788-10 ",.02)
 ;;63304-0788-10
 ;;9002226.02101,"629,63739-0049-15 ",.01)
 ;;63739-0049-15
 ;;9002226.02101,"629,63739-0049-15 ",.02)
 ;;63739-0049-15
 ;;9002226.02101,"629,63739-0066-01 ",.01)
 ;;63739-0066-01
 ;;9002226.02101,"629,63739-0066-01 ",.02)
 ;;63739-0066-01
 ;;9002226.02101,"629,63739-0066-02 ",.01)
 ;;63739-0066-02
 ;;9002226.02101,"629,63739-0066-02 ",.02)
 ;;63739-0066-02
 ;;9002226.02101,"629,63739-0066-03 ",.01)
 ;;63739-0066-03
 ;;9002226.02101,"629,63739-0066-03 ",.02)
 ;;63739-0066-03
 ;;9002226.02101,"629,63739-0066-15 ",.01)
 ;;63739-0066-15
 ;;9002226.02101,"629,63739-0066-15 ",.02)
 ;;63739-0066-15
 ;;9002226.02101,"629,63739-0166-15 ",.01)
 ;;63739-0166-15
 ;;9002226.02101,"629,63739-0166-15 ",.02)
 ;;63739-0166-15
 ;;9002226.02101,"629,63739-0167-15 ",.01)
 ;;63739-0167-15
 ;;9002226.02101,"629,63739-0167-15 ",.02)
 ;;63739-0167-15
 ;;9002226.02101,"629,63874-0315-01 ",.01)
 ;;63874-0315-01
 ;;9002226.02101,"629,63874-0315-01 ",.02)
 ;;63874-0315-01
 ;;9002226.02101,"629,63874-0315-02 ",.01)
 ;;63874-0315-02
 ;;9002226.02101,"629,63874-0315-02 ",.02)
 ;;63874-0315-02
 ;;9002226.02101,"629,63874-0315-04 ",.01)
 ;;63874-0315-04
 ;;9002226.02101,"629,63874-0315-04 ",.02)
 ;;63874-0315-04
 ;;9002226.02101,"629,63874-0315-05 ",.01)
 ;;63874-0315-05
 ;;9002226.02101,"629,63874-0315-05 ",.02)
 ;;63874-0315-05
 ;;9002226.02101,"629,63874-0315-07 ",.01)
 ;;63874-0315-07
 ;;9002226.02101,"629,63874-0315-07 ",.02)
 ;;63874-0315-07
 ;;9002226.02101,"629,63874-0315-10 ",.01)
 ;;63874-0315-10
 ;;9002226.02101,"629,63874-0315-10 ",.02)
 ;;63874-0315-10
 ;;9002226.02101,"629,63874-0315-12 ",.01)
 ;;63874-0315-12
 ;;9002226.02101,"629,63874-0315-12 ",.02)
 ;;63874-0315-12
 ;;9002226.02101,"629,63874-0315-14 ",.01)
 ;;63874-0315-14
 ;;9002226.02101,"629,63874-0315-14 ",.02)
 ;;63874-0315-14
 ;;9002226.02101,"629,63874-0315-15 ",.01)
 ;;63874-0315-15
 ;;9002226.02101,"629,63874-0315-15 ",.02)
 ;;63874-0315-15
 ;;9002226.02101,"629,63874-0315-18 ",.01)
 ;;63874-0315-18
 ;;9002226.02101,"629,63874-0315-18 ",.02)
 ;;63874-0315-18
 ;;9002226.02101,"629,63874-0315-20 ",.01)
 ;;63874-0315-20
 ;;9002226.02101,"629,63874-0315-20 ",.02)
 ;;63874-0315-20
 ;;9002226.02101,"629,63874-0315-21 ",.01)
 ;;63874-0315-21
 ;;9002226.02101,"629,63874-0315-21 ",.02)
 ;;63874-0315-21
 ;;9002226.02101,"629,63874-0315-24 ",.01)
 ;;63874-0315-24
 ;;9002226.02101,"629,63874-0315-24 ",.02)
 ;;63874-0315-24
 ;;9002226.02101,"629,63874-0315-25 ",.01)
 ;;63874-0315-25
 ;;9002226.02101,"629,63874-0315-25 ",.02)
 ;;63874-0315-25
 ;;9002226.02101,"629,63874-0315-28 ",.01)
 ;;63874-0315-28
 ;;9002226.02101,"629,63874-0315-28 ",.02)
 ;;63874-0315-28
 ;;9002226.02101,"629,63874-0315-30 ",.01)
 ;;63874-0315-30
 ;;9002226.02101,"629,63874-0315-30 ",.02)
 ;;63874-0315-30
 ;;9002226.02101,"629,63874-0315-35 ",.01)
 ;;63874-0315-35
 ;;9002226.02101,"629,63874-0315-35 ",.02)
 ;;63874-0315-35
 ;;9002226.02101,"629,63874-0315-40 ",.01)
 ;;63874-0315-40
 ;;9002226.02101,"629,63874-0315-40 ",.02)
 ;;63874-0315-40
 ;;9002226.02101,"629,63874-0315-42 ",.01)
 ;;63874-0315-42
 ;;9002226.02101,"629,63874-0315-42 ",.02)
 ;;63874-0315-42
 ;;9002226.02101,"629,63874-0315-45 ",.01)
 ;;63874-0315-45
 ;;9002226.02101,"629,63874-0315-45 ",.02)
 ;;63874-0315-45
 ;;9002226.02101,"629,63874-0315-50 ",.01)
 ;;63874-0315-50
 ;;9002226.02101,"629,63874-0315-50 ",.02)
 ;;63874-0315-50
 ;;9002226.02101,"629,63874-0315-56 ",.01)
 ;;63874-0315-56
 ;;9002226.02101,"629,63874-0315-56 ",.02)
 ;;63874-0315-56
 ;;9002226.02101,"629,63874-0315-60 ",.01)
 ;;63874-0315-60
 ;;9002226.02101,"629,63874-0315-60 ",.02)
 ;;63874-0315-60
 ;;9002226.02101,"629,63874-0315-75 ",.01)
 ;;63874-0315-75
 ;;9002226.02101,"629,63874-0315-75 ",.02)
 ;;63874-0315-75
 ;;9002226.02101,"629,63874-0315-76 ",.01)
 ;;63874-0315-76
 ;;9002226.02101,"629,63874-0315-76 ",.02)
 ;;63874-0315-76
 ;;9002226.02101,"629,63874-0315-80 ",.01)
 ;;63874-0315-80
 ;;9002226.02101,"629,63874-0315-80 ",.02)
 ;;63874-0315-80
 ;;9002226.02101,"629,63874-0315-90 ",.01)
 ;;63874-0315-90
 ;;9002226.02101,"629,63874-0315-90 ",.02)
 ;;63874-0315-90
 ;;9002226.02101,"629,63874-0330-01 ",.01)
 ;;63874-0330-01
 ;;9002226.02101,"629,63874-0330-01 ",.02)
 ;;63874-0330-01
 ;;9002226.02101,"629,63874-0330-02 ",.01)
 ;;63874-0330-02
 ;;9002226.02101,"629,63874-0330-02 ",.02)
 ;;63874-0330-02
 ;;9002226.02101,"629,63874-0330-03 ",.01)
 ;;63874-0330-03
 ;;9002226.02101,"629,63874-0330-03 ",.02)
 ;;63874-0330-03