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

BGP61F17.m

Go to the documentation of this file.
BGP61F17 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 18, 2015 ;
 ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
 ;
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,"1733,00143-9715-01 ",.02)
 ;;00143-9715-01
 ;;9002226.02101,"1733,00143-9715-10 ",.01)
 ;;00143-9715-10
 ;;9002226.02101,"1733,00143-9715-10 ",.02)
 ;;00143-9715-10
 ;;9002226.02101,"1733,00172-3757-00 ",.01)
 ;;00172-3757-00
 ;;9002226.02101,"1733,00172-3757-00 ",.02)
 ;;00172-3757-00
 ;;9002226.02101,"1733,00172-3757-10 ",.01)
 ;;00172-3757-10
 ;;9002226.02101,"1733,00172-3757-10 ",.02)
 ;;00172-3757-10
 ;;9002226.02101,"1733,00172-3757-60 ",.01)
 ;;00172-3757-60
 ;;9002226.02101,"1733,00172-3757-60 ",.02)
 ;;00172-3757-60
 ;;9002226.02101,"1733,00172-3757-70 ",.01)
 ;;00172-3757-70
 ;;9002226.02101,"1733,00172-3757-70 ",.02)
 ;;00172-3757-70
 ;;9002226.02101,"1733,00172-3758-00 ",.01)
 ;;00172-3758-00
 ;;9002226.02101,"1733,00172-3758-00 ",.02)
 ;;00172-3758-00
 ;;9002226.02101,"1733,00172-3758-10 ",.01)
 ;;00172-3758-10
 ;;9002226.02101,"1733,00172-3758-10 ",.02)
 ;;00172-3758-10
 ;;9002226.02101,"1733,00172-3758-60 ",.01)
 ;;00172-3758-60
 ;;9002226.02101,"1733,00172-3758-60 ",.02)
 ;;00172-3758-60
 ;;9002226.02101,"1733,00172-3758-70 ",.01)
 ;;00172-3758-70
 ;;9002226.02101,"1733,00172-3758-70 ",.02)
 ;;00172-3758-70
 ;;9002226.02101,"1733,00172-3758-80 ",.01)
 ;;00172-3758-80
 ;;9002226.02101,"1733,00172-3758-80 ",.02)
 ;;00172-3758-80
 ;;9002226.02101,"1733,00172-3759-00 ",.01)
 ;;00172-3759-00
 ;;9002226.02101,"1733,00172-3759-00 ",.02)
 ;;00172-3759-00
 ;;9002226.02101,"1733,00172-3759-10 ",.01)
 ;;00172-3759-10
 ;;9002226.02101,"1733,00172-3759-10 ",.02)
 ;;00172-3759-10
 ;;9002226.02101,"1733,00172-3759-60 ",.01)
 ;;00172-3759-60
 ;;9002226.02101,"1733,00172-3759-60 ",.02)
 ;;00172-3759-60
 ;;9002226.02101,"1733,00172-3759-70 ",.01)
 ;;00172-3759-70
 ;;9002226.02101,"1733,00172-3759-70 ",.02)
 ;;00172-3759-70
 ;;9002226.02101,"1733,00172-3759-80 ",.01)
 ;;00172-3759-80
 ;;9002226.02101,"1733,00172-3759-80 ",.02)
 ;;00172-3759-80
 ;;9002226.02101,"1733,00172-3760-00 ",.01)
 ;;00172-3760-00
 ;;9002226.02101,"1733,00172-3760-00 ",.02)
 ;;00172-3760-00
 ;;9002226.02101,"1733,00172-3760-10 ",.01)
 ;;00172-3760-10
 ;;9002226.02101,"1733,00172-3760-10 ",.02)
 ;;00172-3760-10
 ;;9002226.02101,"1733,00172-3760-60 ",.01)
 ;;00172-3760-60
 ;;9002226.02101,"1733,00172-3760-60 ",.02)
 ;;00172-3760-60
 ;;9002226.02101,"1733,00172-3760-70 ",.01)
 ;;00172-3760-70
 ;;9002226.02101,"1733,00172-3760-70 ",.02)
 ;;00172-3760-70
 ;;9002226.02101,"1733,00172-3760-80 ",.01)
 ;;00172-3760-80
 ;;9002226.02101,"1733,00172-3760-80 ",.02)
 ;;00172-3760-80
 ;;9002226.02101,"1733,00172-3761-00 ",.01)
 ;;00172-3761-00
 ;;9002226.02101,"1733,00172-3761-00 ",.02)
 ;;00172-3761-00
 ;;9002226.02101,"1733,00172-3761-10 ",.01)
 ;;00172-3761-10
 ;;9002226.02101,"1733,00172-3761-10 ",.02)
 ;;00172-3761-10
 ;;9002226.02101,"1733,00172-3761-60 ",.01)
 ;;00172-3761-60
 ;;9002226.02101,"1733,00172-3761-60 ",.02)
 ;;00172-3761-60
 ;;9002226.02101,"1733,00172-3761-70 ",.01)
 ;;00172-3761-70
 ;;9002226.02101,"1733,00172-3761-70 ",.02)
 ;;00172-3761-70
 ;;9002226.02101,"1733,00172-3762-00 ",.01)
 ;;00172-3762-00
 ;;9002226.02101,"1733,00172-3762-00 ",.02)
 ;;00172-3762-00
 ;;9002226.02101,"1733,00172-3762-10 ",.01)
 ;;00172-3762-10
 ;;9002226.02101,"1733,00172-3762-10 ",.02)
 ;;00172-3762-10
 ;;9002226.02101,"1733,00172-3762-60 ",.01)
 ;;00172-3762-60
 ;;9002226.02101,"1733,00172-3762-60 ",.02)
 ;;00172-3762-60
 ;;9002226.02101,"1733,00172-3762-70 ",.01)
 ;;00172-3762-70
 ;;9002226.02101,"1733,00172-3762-70 ",.02)
 ;;00172-3762-70
 ;;9002226.02101,"1733,00172-5032-60 ",.01)
 ;;00172-5032-60
 ;;9002226.02101,"1733,00172-5032-60 ",.02)
 ;;00172-5032-60
 ;;9002226.02101,"1733,00172-5032-70 ",.01)
 ;;00172-5032-70
 ;;9002226.02101,"1733,00172-5032-70 ",.02)
 ;;00172-5032-70
 ;;9002226.02101,"1733,00172-5033-00 ",.01)
 ;;00172-5033-00
 ;;9002226.02101,"1733,00172-5033-00 ",.02)
 ;;00172-5033-00
 ;;9002226.02101,"1733,00172-5033-10 ",.01)
 ;;00172-5033-10
 ;;9002226.02101,"1733,00172-5033-10 ",.02)
 ;;00172-5033-10
 ;;9002226.02101,"1733,00172-5033-60 ",.01)
 ;;00172-5033-60
 ;;9002226.02101,"1733,00172-5033-60 ",.02)
 ;;00172-5033-60
 ;;9002226.02101,"1733,00172-5033-70 ",.01)
 ;;00172-5033-70
 ;;9002226.02101,"1733,00172-5033-70 ",.02)
 ;;00172-5033-70
 ;;9002226.02101,"1733,00172-5034-60 ",.01)
 ;;00172-5034-60
 ;;9002226.02101,"1733,00172-5034-60 ",.02)
 ;;00172-5034-60
 ;;9002226.02101,"1733,00172-5034-70 ",.01)
 ;;00172-5034-70
 ;;9002226.02101,"1733,00172-5034-70 ",.02)
 ;;00172-5034-70
 ;;9002226.02101,"1733,00179-0135-44 ",.01)
 ;;00179-0135-44
 ;;9002226.02101,"1733,00179-0135-44 ",.02)
 ;;00179-0135-44
 ;;9002226.02101,"1733,00179-1984-30 ",.01)
 ;;00179-1984-30
 ;;9002226.02101,"1733,00179-1984-30 ",.02)
 ;;00179-1984-30
 ;;9002226.02101,"1733,00179-1985-30 ",.01)
 ;;00179-1985-30
 ;;9002226.02101,"1733,00179-1985-30 ",.02)
 ;;00179-1985-30
 ;;9002226.02101,"1733,00179-1988-30 ",.01)
 ;;00179-1988-30
 ;;9002226.02101,"1733,00179-1988-30 ",.02)
 ;;00179-1988-30
 ;;9002226.02101,"1733,00185-0025-01 ",.01)
 ;;00185-0025-01
 ;;9002226.02101,"1733,00185-0025-01 ",.02)
 ;;00185-0025-01
 ;;9002226.02101,"1733,00185-0025-10 ",.01)
 ;;00185-0025-10
 ;;9002226.02101,"1733,00185-0025-10 ",.02)
 ;;00185-0025-10
 ;;9002226.02101,"1733,00185-0041-09 ",.01)
 ;;00185-0041-09
 ;;9002226.02101,"1733,00185-0041-09 ",.02)
 ;;00185-0041-09
 ;;9002226.02101,"1733,00185-0041-10 ",.01)
 ;;00185-0041-10
 ;;9002226.02101,"1733,00185-0041-10 ",.02)
 ;;00185-0041-10
 ;;9002226.02101,"1733,00185-0042-09 ",.01)
 ;;00185-0042-09
 ;;9002226.02101,"1733,00185-0042-09 ",.02)
 ;;00185-0042-09
 ;;9002226.02101,"1733,00185-0042-10 ",.01)
 ;;00185-0042-10
 ;;9002226.02101,"1733,00185-0042-10 ",.02)
 ;;00185-0042-10
 ;;9002226.02101,"1733,00185-0047-09 ",.01)
 ;;00185-0047-09
 ;;9002226.02101,"1733,00185-0047-09 ",.02)
 ;;00185-0047-09
 ;;9002226.02101,"1733,00185-0047-10 ",.01)
 ;;00185-0047-10
 ;;9002226.02101,"1733,00185-0047-10 ",.02)
 ;;00185-0047-10
 ;;9002226.02101,"1733,00185-0048-01 ",.01)
 ;;00185-0048-01
 ;;9002226.02101,"1733,00185-0048-01 ",.02)
 ;;00185-0048-01
 ;;9002226.02101,"1733,00185-0048-05 ",.01)
 ;;00185-0048-05
 ;;9002226.02101,"1733,00185-0048-05 ",.02)
 ;;00185-0048-05
 ;;9002226.02101,"1733,00185-0053-01 ",.01)
 ;;00185-0053-01
 ;;9002226.02101,"1733,00185-0053-01 ",.02)
 ;;00185-0053-01
 ;;9002226.02101,"1733,00185-0053-05 ",.01)
 ;;00185-0053-05
 ;;9002226.02101,"1733,00185-0053-05 ",.02)
 ;;00185-0053-05
 ;;9002226.02101,"1733,00185-0101-01 ",.01)
 ;;00185-0101-01
 ;;9002226.02101,"1733,00185-0101-01 ",.02)
 ;;00185-0101-01
 ;;9002226.02101,"1733,00185-0101-10 ",.01)
 ;;00185-0101-10
 ;;9002226.02101,"1733,00185-0101-10 ",.02)
 ;;00185-0101-10
 ;;9002226.02101,"1733,00185-0102-01 ",.01)
 ;;00185-0102-01
 ;;9002226.02101,"1733,00185-0102-01 ",.02)
 ;;00185-0102-01
 ;;9002226.02101,"1733,00185-0102-10 ",.01)
 ;;00185-0102-10
 ;;9002226.02101,"1733,00185-0102-10 ",.02)
 ;;00185-0102-10
 ;;9002226.02101,"1733,00185-0102-33 ",.01)
 ;;00185-0102-33
 ;;9002226.02101,"1733,00185-0102-33 ",.02)
 ;;00185-0102-33
 ;;9002226.02101,"1733,00185-0103-01 ",.01)
 ;;00185-0103-01
 ;;9002226.02101,"1733,00185-0103-01 ",.02)
 ;;00185-0103-01
 ;;9002226.02101,"1733,00185-0103-10 ",.01)
 ;;00185-0103-10
 ;;9002226.02101,"1733,00185-0103-10 ",.02)
 ;;00185-0103-10
 ;;9002226.02101,"1733,00185-0104-01 ",.01)
 ;;00185-0104-01
 ;;9002226.02101,"1733,00185-0104-01 ",.02)
 ;;00185-0104-01
 ;;9002226.02101,"1733,00185-0104-10 ",.01)
 ;;00185-0104-10
 ;;9002226.02101,"1733,00185-0104-10 ",.02)
 ;;00185-0104-10
 ;;9002226.02101,"1733,00185-0124-01 ",.01)
 ;;00185-0124-01
 ;;9002226.02101,"1733,00185-0124-01 ",.02)
 ;;00185-0124-01
 ;;9002226.02101,"1733,00185-0152-01 ",.01)
 ;;00185-0152-01
 ;;9002226.02101,"1733,00185-0152-01 ",.02)
 ;;00185-0152-01
 ;;9002226.02101,"1733,00185-0152-10 ",.01)
 ;;00185-0152-10
 ;;9002226.02101,"1733,00185-0152-10 ",.02)
 ;;00185-0152-10
 ;;9002226.02101,"1733,00185-0173-01 ",.01)
 ;;00185-0173-01
 ;;9002226.02101,"1733,00185-0173-01 ",.02)
 ;;00185-0173-01
 ;;9002226.02101,"1733,00185-0173-10 ",.01)
 ;;00185-0173-10
 ;;9002226.02101,"1733,00185-0173-10 ",.02)
 ;;00185-0173-10
 ;;9002226.02101,"1733,00185-0204-01 ",.01)
 ;;00185-0204-01
 ;;9002226.02101,"1733,00185-0204-01 ",.02)
 ;;00185-0204-01
 ;;9002226.02101,"1733,00185-0211-01 ",.01)
 ;;00185-0211-01
 ;;9002226.02101,"1733,00185-0211-01 ",.02)
 ;;00185-0211-01
 ;;9002226.02101,"1733,00185-0236-01 ",.01)
 ;;00185-0236-01
 ;;9002226.02101,"1733,00185-0236-01 ",.02)
 ;;00185-0236-01
 ;;9002226.02101,"1733,00185-0277-01 ",.01)
 ;;00185-0277-01
 ;;9002226.02101,"1733,00185-0277-01 ",.02)
 ;;00185-0277-01
 ;;9002226.02101,"1733,00185-0325-01 ",.01)
 ;;00185-0325-01
 ;;9002226.02101,"1733,00185-0325-01 ",.02)
 ;;00185-0325-01
 ;;9002226.02101,"1733,00185-0341-01 ",.01)
 ;;00185-0341-01
 ;;9002226.02101,"1733,00185-0341-01 ",.02)
 ;;00185-0341-01
 ;;9002226.02101,"1733,00185-0342-01 ",.01)
 ;;00185-0342-01
 ;;9002226.02101,"1733,00185-0342-01 ",.02)
 ;;00185-0342-01
 ;;9002226.02101,"1733,00185-0505-01 ",.01)
 ;;00185-0505-01
 ;;9002226.02101,"1733,00185-0505-01 ",.02)
 ;;00185-0505-01
 ;;9002226.02101,"1733,00185-0505-05 ",.01)
 ;;00185-0505-05
 ;;9002226.02101,"1733,00185-0505-05 ",.02)
 ;;00185-0505-05
 ;;9002226.02101,"1733,00185-0610-01 ",.01)
 ;;00185-0610-01
 ;;9002226.02101,"1733,00185-0610-01 ",.02)
 ;;00185-0610-01
 ;;9002226.02101,"1733,00185-0610-10 ",.01)
 ;;00185-0610-10
 ;;9002226.02101,"1733,00185-0610-10 ",.02)
 ;;00185-0610-10
 ;;9002226.02101,"1733,00185-0620-01 ",.01)
 ;;00185-0620-01
 ;;9002226.02101,"1733,00185-0620-01 ",.02)
 ;;00185-0620-01
 ;;9002226.02101,"1733,00185-0620-10 ",.01)
 ;;00185-0620-10
 ;;9002226.02101,"1733,00185-0620-10 ",.02)
 ;;00185-0620-10
 ;;9002226.02101,"1733,00185-0640-01 ",.01)
 ;;00185-0640-01
 ;;9002226.02101,"1733,00185-0640-01 ",.02)
 ;;00185-0640-01
 ;;9002226.02101,"1733,00185-0820-01 ",.01)
 ;;00185-0820-01
 ;;9002226.02101,"1733,00185-0820-01 ",.02)
 ;;00185-0820-01
 ;;9002226.02101,"1733,00185-0820-05 ",.01)
 ;;00185-0820-05
 ;;9002226.02101,"1733,00185-0820-05 ",.02)
 ;;00185-0820-05
 ;;9002226.02101,"1733,00185-5400-01 ",.01)
 ;;00185-5400-01
 ;;9002226.02101,"1733,00185-5400-01 ",.02)
 ;;00185-5400-01
 ;;9002226.02101,"1733,00185-5400-10 ",.01)
 ;;00185-5400-10
 ;;9002226.02101,"1733,00185-5400-10 ",.02)
 ;;00185-5400-10
 ;;9002226.02101,"1733,00185-7100-01 ",.01)
 ;;00185-7100-01
 ;;9002226.02101,"1733,00185-7100-01 ",.02)
 ;;00185-7100-01
 ;;9002226.02101,"1733,00185-7100-10 ",.01)
 ;;00185-7100-10
 ;;9002226.02101,"1733,00185-7100-10 ",.02)
 ;;00185-7100-10
 ;;9002226.02101,"1733,00186-0004-31 ",.01)
 ;;00186-0004-31
 ;;9002226.02101,"1733,00186-0004-31 ",.02)
 ;;00186-0004-31
 ;;9002226.02101,"1733,00186-0008-31 ",.01)
 ;;00186-0008-31
 ;;9002226.02101,"1733,00186-0008-31 ",.02)
 ;;00186-0008-31
 ;;9002226.02101,"1733,00186-0016-28 ",.01)
 ;;00186-0016-28
 ;;9002226.02101,"1733,00186-0016-28 ",.02)
 ;;00186-0016-28
 ;;9002226.02101,"1733,00186-0016-31 ",.01)
 ;;00186-0016-31
 ;;9002226.02101,"1733,00186-0016-31 ",.02)
 ;;00186-0016-31
 ;;9002226.02101,"1733,00186-0016-54 ",.01)
 ;;00186-0016-54
 ;;9002226.02101,"1733,00186-0016-54 ",.02)
 ;;00186-0016-54
 ;;9002226.02101,"1733,00186-0032-28 ",.01)
 ;;00186-0032-28
 ;;9002226.02101,"1733,00186-0032-28 ",.02)
 ;;00186-0032-28
 ;;9002226.02101,"1733,00186-0032-31 ",.01)
 ;;00186-0032-31
 ;;9002226.02101,"1733,00186-0032-31 ",.02)
 ;;00186-0032-31
 ;;9002226.02101,"1733,00186-0032-54 ",.01)
 ;;00186-0032-54
 ;;9002226.02101,"1733,00186-0032-54 ",.02)
 ;;00186-0032-54
 ;;9002226.02101,"1733,00186-0162-28 ",.01)
 ;;00186-0162-28
 ;;9002226.02101,"1733,00186-0162-28 ",.02)
 ;;00186-0162-28
 ;;9002226.02101,"1733,00186-0162-54 ",.01)
 ;;00186-0162-54
 ;;9002226.02101,"1733,00186-0162-54 ",.02)
 ;;00186-0162-54
 ;;9002226.02101,"1733,00186-0322-28 ",.01)
 ;;00186-0322-28
 ;;9002226.02101,"1733,00186-0322-28 ",.02)
 ;;00186-0322-28
 ;;9002226.02101,"1733,00186-0322-54 ",.01)
 ;;00186-0322-54
 ;;9002226.02101,"1733,00186-0322-54 ",.02)
 ;;00186-0322-54
 ;;9002226.02101,"1733,00186-0324-54 ",.01)
 ;;00186-0324-54
 ;;9002226.02101,"1733,00186-0324-54 ",.02)
 ;;00186-0324-54
 ;;9002226.02101,"1733,00187-0140-30 ",.01)
 ;;00187-0140-30
 ;;9002226.02101,"1733,00187-0140-30 ",.02)
 ;;00187-0140-30
 ;;9002226.02101,"1733,00187-0140-90 ",.01)
 ;;00187-0140-90
 ;;9002226.02101,"1733,00187-0140-90 ",.02)
 ;;00187-0140-90
 ;;9002226.02101,"1733,00187-0141-30 ",.01)
 ;;00187-0141-30