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

BGP63D14.m

Go to the documentation of this file.
BGP63D14 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 11, 2016;
 ;;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,"872,31722-0200-10 ",.02)
 ;;31722-0200-10
 ;;9002226.02101,"872,31722-0200-90 ",.01)
 ;;31722-0200-90
 ;;9002226.02101,"872,31722-0200-90 ",.02)
 ;;31722-0200-90
 ;;9002226.02101,"872,31722-0201-10 ",.01)
 ;;31722-0201-10
 ;;9002226.02101,"872,31722-0201-10 ",.02)
 ;;31722-0201-10
 ;;9002226.02101,"872,31722-0201-90 ",.01)
 ;;31722-0201-90
 ;;9002226.02101,"872,31722-0201-90 ",.02)
 ;;31722-0201-90
 ;;9002226.02101,"872,31722-0202-10 ",.01)
 ;;31722-0202-10
 ;;9002226.02101,"872,31722-0202-10 ",.02)
 ;;31722-0202-10
 ;;9002226.02101,"872,31722-0202-90 ",.01)
 ;;31722-0202-90
 ;;9002226.02101,"872,31722-0202-90 ",.02)
 ;;31722-0202-90
 ;;9002226.02101,"872,31722-0267-90 ",.01)
 ;;31722-0267-90
 ;;9002226.02101,"872,31722-0267-90 ",.02)
 ;;31722-0267-90
 ;;9002226.02101,"872,31722-0268-90 ",.01)
 ;;31722-0268-90
 ;;9002226.02101,"872,31722-0268-90 ",.02)
 ;;31722-0268-90
 ;;9002226.02101,"872,31722-0269-90 ",.01)
 ;;31722-0269-90
 ;;9002226.02101,"872,31722-0269-90 ",.02)
 ;;31722-0269-90
 ;;9002226.02101,"872,31722-0270-90 ",.01)
 ;;31722-0270-90
 ;;9002226.02101,"872,31722-0270-90 ",.02)
 ;;31722-0270-90
 ;;9002226.02101,"872,31722-0271-01 ",.01)
 ;;31722-0271-01
 ;;9002226.02101,"872,31722-0271-01 ",.02)
 ;;31722-0271-01
 ;;9002226.02101,"872,31722-0272-01 ",.01)
 ;;31722-0272-01
 ;;9002226.02101,"872,31722-0272-01 ",.02)
 ;;31722-0272-01
 ;;9002226.02101,"872,31722-0272-05 ",.01)
 ;;31722-0272-05
 ;;9002226.02101,"872,31722-0272-05 ",.02)
 ;;31722-0272-05
 ;;9002226.02101,"872,31722-0272-10 ",.01)
 ;;31722-0272-10
 ;;9002226.02101,"872,31722-0272-10 ",.02)
 ;;31722-0272-10
 ;;9002226.02101,"872,31722-0273-01 ",.01)
 ;;31722-0273-01
 ;;9002226.02101,"872,31722-0273-01 ",.02)
 ;;31722-0273-01
 ;;9002226.02101,"872,31722-0273-05 ",.01)
 ;;31722-0273-05
 ;;9002226.02101,"872,31722-0273-05 ",.02)
 ;;31722-0273-05
 ;;9002226.02101,"872,31722-0273-10 ",.01)
 ;;31722-0273-10
 ;;9002226.02101,"872,31722-0273-10 ",.02)
 ;;31722-0273-10
 ;;9002226.02101,"872,31722-0274-01 ",.01)
 ;;31722-0274-01
 ;;9002226.02101,"872,31722-0274-01 ",.02)
 ;;31722-0274-01
 ;;9002226.02101,"872,31722-0274-05 ",.01)
 ;;31722-0274-05
 ;;9002226.02101,"872,31722-0274-05 ",.02)
 ;;31722-0274-05
 ;;9002226.02101,"872,31722-0274-10 ",.01)
 ;;31722-0274-10
 ;;9002226.02101,"872,31722-0274-10 ",.02)
 ;;31722-0274-10
 ;;9002226.02101,"872,33358-0048-30 ",.01)
 ;;33358-0048-30
 ;;9002226.02101,"872,33358-0048-30 ",.02)
 ;;33358-0048-30
 ;;9002226.02101,"872,33358-0049-30 ",.01)
 ;;33358-0049-30
 ;;9002226.02101,"872,33358-0049-30 ",.02)
 ;;33358-0049-30
 ;;9002226.02101,"872,33358-0127-30 ",.01)
 ;;33358-0127-30
 ;;9002226.02101,"872,33358-0127-30 ",.02)
 ;;33358-0127-30
 ;;9002226.02101,"872,33358-0211-30 ",.01)
 ;;33358-0211-30
 ;;9002226.02101,"872,33358-0211-30 ",.02)
 ;;33358-0211-30
 ;;9002226.02101,"872,33358-0212-30 ",.01)
 ;;33358-0212-30
 ;;9002226.02101,"872,33358-0212-30 ",.02)
 ;;33358-0212-30
 ;;9002226.02101,"872,33358-0213-30 ",.01)
 ;;33358-0213-30
 ;;9002226.02101,"872,33358-0213-30 ",.02)
 ;;33358-0213-30
 ;;9002226.02101,"872,35356-0541-30 ",.01)
 ;;35356-0541-30
 ;;9002226.02101,"872,35356-0541-30 ",.02)
 ;;35356-0541-30
 ;;9002226.02101,"872,42291-0160-90 ",.01)
 ;;42291-0160-90
 ;;9002226.02101,"872,42291-0160-90 ",.02)
 ;;42291-0160-90
 ;;9002226.02101,"872,42291-0161-90 ",.01)
 ;;42291-0161-90
 ;;9002226.02101,"872,42291-0161-90 ",.02)
 ;;42291-0161-90
 ;;9002226.02101,"872,42291-0162-18 ",.01)
 ;;42291-0162-18
 ;;9002226.02101,"872,42291-0162-18 ",.02)
 ;;42291-0162-18
 ;;9002226.02101,"872,42291-0162-50 ",.01)
 ;;42291-0162-50
 ;;9002226.02101,"872,42291-0162-50 ",.02)
 ;;42291-0162-50
 ;;9002226.02101,"872,42291-0162-90 ",.01)
 ;;42291-0162-90
 ;;9002226.02101,"872,42291-0162-90 ",.02)
 ;;42291-0162-90
 ;;9002226.02101,"872,42291-0163-18 ",.01)
 ;;42291-0163-18
 ;;9002226.02101,"872,42291-0163-18 ",.02)
 ;;42291-0163-18
 ;;9002226.02101,"872,42291-0163-50 ",.01)
 ;;42291-0163-50
 ;;9002226.02101,"872,42291-0163-50 ",.02)
 ;;42291-0163-50
 ;;9002226.02101,"872,42291-0163-90 ",.01)
 ;;42291-0163-90
 ;;9002226.02101,"872,42291-0163-90 ",.02)
 ;;42291-0163-90
 ;;9002226.02101,"872,42291-0701-90 ",.01)
 ;;42291-0701-90
 ;;9002226.02101,"872,42291-0701-90 ",.02)
 ;;42291-0701-90
 ;;9002226.02101,"872,42291-0702-90 ",.01)
 ;;42291-0702-90
 ;;9002226.02101,"872,42291-0702-90 ",.02)
 ;;42291-0702-90
 ;;9002226.02101,"872,42291-0703-90 ",.01)
 ;;42291-0703-90
 ;;9002226.02101,"872,42291-0703-90 ",.02)
 ;;42291-0703-90
 ;;9002226.02101,"872,42291-0704-90 ",.01)
 ;;42291-0704-90
 ;;9002226.02101,"872,42291-0704-90 ",.02)
 ;;42291-0704-90
 ;;9002226.02101,"872,42806-0052-01 ",.01)
 ;;42806-0052-01
 ;;9002226.02101,"872,42806-0052-01 ",.02)
 ;;42806-0052-01
 ;;9002226.02101,"872,42806-0053-01 ",.01)
 ;;42806-0053-01
 ;;9002226.02101,"872,42806-0053-01 ",.02)
 ;;42806-0053-01
 ;;9002226.02101,"872,42806-0054-01 ",.01)
 ;;42806-0054-01
 ;;9002226.02101,"872,42806-0054-01 ",.02)
 ;;42806-0054-01
 ;;9002226.02101,"872,43063-0007-01 ",.01)
 ;;43063-0007-01
 ;;9002226.02101,"872,43063-0007-01 ",.02)
 ;;43063-0007-01
 ;;9002226.02101,"872,43063-0007-14 ",.01)
 ;;43063-0007-14
 ;;9002226.02101,"872,43063-0007-14 ",.02)
 ;;43063-0007-14
 ;;9002226.02101,"872,43063-0007-30 ",.01)
 ;;43063-0007-30
 ;;9002226.02101,"872,43063-0007-30 ",.02)
 ;;43063-0007-30
 ;;9002226.02101,"872,43063-0007-60 ",.01)
 ;;43063-0007-60
 ;;9002226.02101,"872,43063-0007-60 ",.02)
 ;;43063-0007-60
 ;;9002226.02101,"872,43063-0007-90 ",.01)
 ;;43063-0007-90
 ;;9002226.02101,"872,43063-0007-90 ",.02)
 ;;43063-0007-90
 ;;9002226.02101,"872,43063-0007-98 ",.01)
 ;;43063-0007-98
 ;;9002226.02101,"872,43063-0007-98 ",.02)
 ;;43063-0007-98
 ;;9002226.02101,"872,43063-0032-01 ",.01)
 ;;43063-0032-01
 ;;9002226.02101,"872,43063-0032-01 ",.02)
 ;;43063-0032-01
 ;;9002226.02101,"872,43063-0131-30 ",.01)
 ;;43063-0131-30
 ;;9002226.02101,"872,43063-0131-30 ",.02)
 ;;43063-0131-30
 ;;9002226.02101,"872,43063-0132-30 ",.01)
 ;;43063-0132-30
 ;;9002226.02101,"872,43063-0132-30 ",.02)
 ;;43063-0132-30
 ;;9002226.02101,"872,43063-0138-90 ",.01)
 ;;43063-0138-90
 ;;9002226.02101,"872,43063-0138-90 ",.02)
 ;;43063-0138-90
 ;;9002226.02101,"872,43063-0146-30 ",.01)
 ;;43063-0146-30
 ;;9002226.02101,"872,43063-0146-30 ",.02)
 ;;43063-0146-30
 ;;9002226.02101,"872,43063-0288-30 ",.01)
 ;;43063-0288-30
 ;;9002226.02101,"872,43063-0288-30 ",.02)
 ;;43063-0288-30
 ;;9002226.02101,"872,43063-0288-90 ",.01)
 ;;43063-0288-90
 ;;9002226.02101,"872,43063-0288-90 ",.02)
 ;;43063-0288-90
 ;;9002226.02101,"872,43063-0303-30 ",.01)
 ;;43063-0303-30
 ;;9002226.02101,"872,43063-0303-30 ",.02)
 ;;43063-0303-30
 ;;9002226.02101,"872,43063-0303-90 ",.01)
 ;;43063-0303-90
 ;;9002226.02101,"872,43063-0303-90 ",.02)
 ;;43063-0303-90
 ;;9002226.02101,"872,43063-0403-30 ",.01)
 ;;43063-0403-30
 ;;9002226.02101,"872,43063-0403-30 ",.02)
 ;;43063-0403-30
 ;;9002226.02101,"872,43063-0414-01 ",.01)
 ;;43063-0414-01
 ;;9002226.02101,"872,43063-0414-01 ",.02)
 ;;43063-0414-01
 ;;9002226.02101,"872,43063-0414-90 ",.01)
 ;;43063-0414-90
 ;;9002226.02101,"872,43063-0414-90 ",.02)
 ;;43063-0414-90
 ;;9002226.02101,"872,43063-0485-90 ",.01)
 ;;43063-0485-90
 ;;9002226.02101,"872,43063-0485-90 ",.02)
 ;;43063-0485-90
 ;;9002226.02101,"872,43063-0502-30 ",.01)
 ;;43063-0502-30
 ;;9002226.02101,"872,43063-0502-30 ",.02)
 ;;43063-0502-30
 ;;9002226.02101,"872,43063-0525-30 ",.01)
 ;;43063-0525-30
 ;;9002226.02101,"872,43063-0525-30 ",.02)
 ;;43063-0525-30
 ;;9002226.02101,"872,43063-0525-90 ",.01)
 ;;43063-0525-90
 ;;9002226.02101,"872,43063-0525-90 ",.02)
 ;;43063-0525-90
 ;;9002226.02101,"872,43353-0350-30 ",.01)
 ;;43353-0350-30
 ;;9002226.02101,"872,43353-0350-30 ",.02)
 ;;43353-0350-30
 ;;9002226.02101,"872,43353-0365-15 ",.01)
 ;;43353-0365-15
 ;;9002226.02101,"872,43353-0365-15 ",.02)
 ;;43353-0365-15
 ;;9002226.02101,"872,43353-0411-60 ",.01)
 ;;43353-0411-60
 ;;9002226.02101,"872,43353-0411-60 ",.02)
 ;;43353-0411-60
 ;;9002226.02101,"872,43353-0488-45 ",.01)
 ;;43353-0488-45
 ;;9002226.02101,"872,43353-0488-45 ",.02)
 ;;43353-0488-45
 ;;9002226.02101,"872,43547-0335-10 ",.01)
 ;;43547-0335-10
 ;;9002226.02101,"872,43547-0335-10 ",.02)
 ;;43547-0335-10
 ;;9002226.02101,"872,43547-0336-10 ",.01)
 ;;43547-0336-10
 ;;9002226.02101,"872,43547-0336-10 ",.02)
 ;;43547-0336-10
 ;;9002226.02101,"872,43547-0336-50 ",.01)
 ;;43547-0336-50
 ;;9002226.02101,"872,43547-0336-50 ",.02)
 ;;43547-0336-50
 ;;9002226.02101,"872,43547-0337-10 ",.01)
 ;;43547-0337-10
 ;;9002226.02101,"872,43547-0337-10 ",.02)
 ;;43547-0337-10
 ;;9002226.02101,"872,43547-0337-50 ",.01)
 ;;43547-0337-50
 ;;9002226.02101,"872,43547-0337-50 ",.02)
 ;;43547-0337-50
 ;;9002226.02101,"872,43547-0338-10 ",.01)
 ;;43547-0338-10
 ;;9002226.02101,"872,43547-0338-10 ",.02)
 ;;43547-0338-10
 ;;9002226.02101,"872,43547-0338-50 ",.01)
 ;;43547-0338-50
 ;;9002226.02101,"872,43547-0338-50 ",.02)
 ;;43547-0338-50
 ;;9002226.02101,"872,49158-0501-01 ",.01)
 ;;49158-0501-01
 ;;9002226.02101,"872,49158-0501-01 ",.02)
 ;;49158-0501-01
 ;;9002226.02101,"872,49158-0502-01 ",.01)
 ;;49158-0502-01
 ;;9002226.02101,"872,49158-0502-01 ",.02)
 ;;49158-0502-01
 ;;9002226.02101,"872,49158-0502-10 ",.01)
 ;;49158-0502-10
 ;;9002226.02101,"872,49158-0502-10 ",.02)
 ;;49158-0502-10
 ;;9002226.02101,"872,49158-0503-01 ",.01)
 ;;49158-0503-01
 ;;9002226.02101,"872,49158-0503-01 ",.02)
 ;;49158-0503-01
 ;;9002226.02101,"872,49349-0306-02 ",.01)
 ;;49349-0306-02
 ;;9002226.02101,"872,49349-0306-02 ",.02)
 ;;49349-0306-02
 ;;9002226.02101,"872,49884-0620-10 ",.01)
 ;;49884-0620-10
 ;;9002226.02101,"872,49884-0620-10 ",.02)
 ;;49884-0620-10
 ;;9002226.02101,"872,49999-0105-00 ",.01)
 ;;49999-0105-00
 ;;9002226.02101,"872,49999-0105-00 ",.02)
 ;;49999-0105-00
 ;;9002226.02101,"872,49999-0105-10 ",.01)
 ;;49999-0105-10
 ;;9002226.02101,"872,49999-0105-10 ",.02)
 ;;49999-0105-10
 ;;9002226.02101,"872,49999-0105-30 ",.01)
 ;;49999-0105-30
 ;;9002226.02101,"872,49999-0105-30 ",.02)
 ;;49999-0105-30
 ;;9002226.02101,"872,49999-0105-60 ",.01)
 ;;49999-0105-60
 ;;9002226.02101,"872,49999-0105-60 ",.02)
 ;;49999-0105-60
 ;;9002226.02101,"872,49999-0182-10 ",.01)
 ;;49999-0182-10
 ;;9002226.02101,"872,49999-0182-10 ",.02)
 ;;49999-0182-10
 ;;9002226.02101,"872,49999-0182-30 ",.01)
 ;;49999-0182-30
 ;;9002226.02101,"872,49999-0182-30 ",.02)
 ;;49999-0182-30
 ;;9002226.02101,"872,49999-0182-60 ",.01)
 ;;49999-0182-60
 ;;9002226.02101,"872,49999-0182-60 ",.02)
 ;;49999-0182-60
 ;;9002226.02101,"872,49999-0183-10 ",.01)
 ;;49999-0183-10
 ;;9002226.02101,"872,49999-0183-10 ",.02)
 ;;49999-0183-10
 ;;9002226.02101,"872,49999-0183-30 ",.01)
 ;;49999-0183-30
 ;;9002226.02101,"872,49999-0183-30 ",.02)
 ;;49999-0183-30
 ;;9002226.02101,"872,49999-0183-60 ",.01)
 ;;49999-0183-60
 ;;9002226.02101,"872,49999-0183-60 ",.02)
 ;;49999-0183-60
 ;;9002226.02101,"872,49999-0239-00 ",.01)
 ;;49999-0239-00
 ;;9002226.02101,"872,49999-0239-00 ",.02)
 ;;49999-0239-00
 ;;9002226.02101,"872,49999-0239-30 ",.01)
 ;;49999-0239-30
 ;;9002226.02101,"872,49999-0239-30 ",.02)
 ;;49999-0239-30
 ;;9002226.02101,"872,49999-0239-60 ",.01)
 ;;49999-0239-60
 ;;9002226.02101,"872,49999-0239-60 ",.02)
 ;;49999-0239-60
 ;;9002226.02101,"872,49999-0240-00 ",.01)
 ;;49999-0240-00
 ;;9002226.02101,"872,49999-0240-00 ",.02)
 ;;49999-0240-00
 ;;9002226.02101,"872,49999-0240-30 ",.01)
 ;;49999-0240-30
 ;;9002226.02101,"872,49999-0240-30 ",.02)
 ;;49999-0240-30
 ;;9002226.02101,"872,49999-0287-30 ",.01)
 ;;49999-0287-30