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

BGP2TI18.m

Go to the documentation of this file.
BGP2TI18 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 12, 2012;
 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
 ;
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,"1201,63739-0420-10 ",.01)
 ;;63739-0420-10
 ;;9002226.02101,"1201,63739-0420-10 ",.02)
 ;;63739-0420-10
 ;;9002226.02101,"1201,63739-0421-10 ",.01)
 ;;63739-0421-10
 ;;9002226.02101,"1201,63739-0421-10 ",.02)
 ;;63739-0421-10
 ;;9002226.02101,"1201,63739-0422-10 ",.01)
 ;;63739-0422-10
 ;;9002226.02101,"1201,63739-0422-10 ",.02)
 ;;63739-0422-10
 ;;9002226.02101,"1201,63739-0435-10 ",.01)
 ;;63739-0435-10
 ;;9002226.02101,"1201,63739-0435-10 ",.02)
 ;;63739-0435-10
 ;;9002226.02101,"1201,63739-0436-10 ",.01)
 ;;63739-0436-10
 ;;9002226.02101,"1201,63739-0436-10 ",.02)
 ;;63739-0436-10
 ;;9002226.02101,"1201,63739-0437-10 ",.01)
 ;;63739-0437-10
 ;;9002226.02101,"1201,63739-0437-10 ",.02)
 ;;63739-0437-10
 ;;9002226.02101,"1201,63739-0438-10 ",.01)
 ;;63739-0438-10
 ;;9002226.02101,"1201,63739-0438-10 ",.02)
 ;;63739-0438-10
 ;;9002226.02101,"1201,63874-0319-10 ",.01)
 ;;63874-0319-10
 ;;9002226.02101,"1201,63874-0319-10 ",.02)
 ;;63874-0319-10
 ;;9002226.02101,"1201,63874-0319-15 ",.01)
 ;;63874-0319-15
 ;;9002226.02101,"1201,63874-0319-15 ",.02)
 ;;63874-0319-15
 ;;9002226.02101,"1201,63874-0319-30 ",.01)
 ;;63874-0319-30
 ;;9002226.02101,"1201,63874-0319-30 ",.02)
 ;;63874-0319-30
 ;;9002226.02101,"1201,63874-0319-90 ",.01)
 ;;63874-0319-90
 ;;9002226.02101,"1201,63874-0319-90 ",.02)
 ;;63874-0319-90
 ;;9002226.02101,"1201,63874-0589-01 ",.01)
 ;;63874-0589-01
 ;;9002226.02101,"1201,63874-0589-01 ",.02)
 ;;63874-0589-01
 ;;9002226.02101,"1201,63874-0589-10 ",.01)
 ;;63874-0589-10
 ;;9002226.02101,"1201,63874-0589-10 ",.02)
 ;;63874-0589-10
 ;;9002226.02101,"1201,63874-0589-30 ",.01)
 ;;63874-0589-30
 ;;9002226.02101,"1201,63874-0589-30 ",.02)
 ;;63874-0589-30
 ;;9002226.02101,"1201,63874-0589-90 ",.01)
 ;;63874-0589-90
 ;;9002226.02101,"1201,63874-0589-90 ",.02)
 ;;63874-0589-90
 ;;9002226.02101,"1201,63874-0590-01 ",.01)
 ;;63874-0590-01
 ;;9002226.02101,"1201,63874-0590-01 ",.02)
 ;;63874-0590-01
 ;;9002226.02101,"1201,63874-0590-10 ",.01)
 ;;63874-0590-10
 ;;9002226.02101,"1201,63874-0590-10 ",.02)
 ;;63874-0590-10
 ;;9002226.02101,"1201,63874-0590-15 ",.01)
 ;;63874-0590-15
 ;;9002226.02101,"1201,63874-0590-15 ",.02)
 ;;63874-0590-15
 ;;9002226.02101,"1201,63874-0590-30 ",.01)
 ;;63874-0590-30
 ;;9002226.02101,"1201,63874-0590-30 ",.02)
 ;;63874-0590-30
 ;;9002226.02101,"1201,63874-0590-90 ",.01)
 ;;63874-0590-90
 ;;9002226.02101,"1201,63874-0590-90 ",.02)
 ;;63874-0590-90
 ;;9002226.02101,"1201,65243-0065-15 ",.01)
 ;;65243-0065-15
 ;;9002226.02101,"1201,65243-0065-15 ",.02)
 ;;65243-0065-15
 ;;9002226.02101,"1201,65243-0065-45 ",.01)
 ;;65243-0065-45
 ;;9002226.02101,"1201,65243-0065-45 ",.02)
 ;;65243-0065-45
 ;;9002226.02101,"1201,65243-0082-15 ",.01)
 ;;65243-0082-15
 ;;9002226.02101,"1201,65243-0082-15 ",.02)
 ;;65243-0082-15
 ;;9002226.02101,"1201,65243-0082-45 ",.01)
 ;;65243-0082-45
 ;;9002226.02101,"1201,65243-0082-45 ",.02)
 ;;65243-0082-45
 ;;9002226.02101,"1201,65243-0127-45 ",.01)
 ;;65243-0127-45
 ;;9002226.02101,"1201,65243-0127-45 ",.02)
 ;;65243-0127-45
 ;;9002226.02101,"1201,65243-0348-15 ",.01)
 ;;65243-0348-15
 ;;9002226.02101,"1201,65243-0348-15 ",.02)
 ;;65243-0348-15
 ;;9002226.02101,"1201,65243-0348-45 ",.01)
 ;;65243-0348-45
 ;;9002226.02101,"1201,65243-0348-45 ",.02)
 ;;65243-0348-45
 ;;9002226.02101,"1201,65243-0349-15 ",.01)
 ;;65243-0349-15
 ;;9002226.02101,"1201,65243-0349-15 ",.02)
 ;;65243-0349-15
 ;;9002226.02101,"1201,65243-0349-45 ",.01)
 ;;65243-0349-45
 ;;9002226.02101,"1201,65243-0349-45 ",.02)
 ;;65243-0349-45
 ;;9002226.02101,"1201,65243-0350-45 ",.01)
 ;;65243-0350-45
 ;;9002226.02101,"1201,65243-0350-45 ",.02)
 ;;65243-0350-45
 ;;9002226.02101,"1201,65243-0352-03 ",.01)
 ;;65243-0352-03
 ;;9002226.02101,"1201,65243-0352-03 ",.02)
 ;;65243-0352-03
 ;;9002226.02101,"1201,65243-0352-09 ",.01)
 ;;65243-0352-09
 ;;9002226.02101,"1201,65243-0352-09 ",.02)
 ;;65243-0352-09
 ;;9002226.02101,"1201,65243-0352-45 ",.01)
 ;;65243-0352-45
 ;;9002226.02101,"1201,65243-0352-45 ",.02)
 ;;65243-0352-45
 ;;9002226.02101,"1201,65243-0360-09 ",.01)
 ;;65243-0360-09
 ;;9002226.02101,"1201,65243-0360-09 ",.02)
 ;;65243-0360-09
 ;;9002226.02101,"1201,65243-0360-45 ",.01)
 ;;65243-0360-45
 ;;9002226.02101,"1201,65243-0360-45 ",.02)
 ;;65243-0360-45
 ;;9002226.02101,"1201,65243-0361-45 ",.01)
 ;;65243-0361-45
 ;;9002226.02101,"1201,65243-0361-45 ",.02)
 ;;65243-0361-45
 ;;9002226.02101,"1201,65243-0365-45 ",.01)
 ;;65243-0365-45
 ;;9002226.02101,"1201,65243-0365-45 ",.02)
 ;;65243-0365-45
 ;;9002226.02101,"1201,65243-0367-03 ",.01)
 ;;65243-0367-03
 ;;9002226.02101,"1201,65243-0367-03 ",.02)
 ;;65243-0367-03
 ;;9002226.02101,"1201,65243-0367-09 ",.01)
 ;;65243-0367-09
 ;;9002226.02101,"1201,65243-0367-09 ",.02)
 ;;65243-0367-09
 ;;9002226.02101,"1201,65243-0367-45 ",.01)
 ;;65243-0367-45
 ;;9002226.02101,"1201,65243-0367-45 ",.02)
 ;;65243-0367-45
 ;;9002226.02101,"1201,65862-0050-30 ",.01)
 ;;65862-0050-30
 ;;9002226.02101,"1201,65862-0050-30 ",.02)
 ;;65862-0050-30
 ;;9002226.02101,"1201,65862-0050-90 ",.01)
 ;;65862-0050-90
 ;;9002226.02101,"1201,65862-0050-90 ",.02)
 ;;65862-0050-90
 ;;9002226.02101,"1201,65862-0050-99 ",.01)
 ;;65862-0050-99
 ;;9002226.02101,"1201,65862-0050-99 ",.02)
 ;;65862-0050-99
 ;;9002226.02101,"1201,65862-0051-26 ",.01)
 ;;65862-0051-26
 ;;9002226.02101,"1201,65862-0051-26 ",.02)
 ;;65862-0051-26
 ;;9002226.02101,"1201,65862-0051-30 ",.01)
 ;;65862-0051-30
 ;;9002226.02101,"1201,65862-0051-30 ",.02)
 ;;65862-0051-30
 ;;9002226.02101,"1201,65862-0051-90 ",.01)
 ;;65862-0051-90
 ;;9002226.02101,"1201,65862-0051-90 ",.02)
 ;;65862-0051-90
 ;;9002226.02101,"1201,65862-0051-99 ",.01)
 ;;65862-0051-99
 ;;9002226.02101,"1201,65862-0051-99 ",.02)
 ;;65862-0051-99
 ;;9002226.02101,"1201,65862-0052-26 ",.01)
 ;;65862-0052-26
 ;;9002226.02101,"1201,65862-0052-26 ",.02)
 ;;65862-0052-26
 ;;9002226.02101,"1201,65862-0052-30 ",.01)
 ;;65862-0052-30
 ;;9002226.02101,"1201,65862-0052-30 ",.02)
 ;;65862-0052-30
 ;;9002226.02101,"1201,65862-0052-90 ",.01)
 ;;65862-0052-90
 ;;9002226.02101,"1201,65862-0052-90 ",.02)
 ;;65862-0052-90
 ;;9002226.02101,"1201,65862-0052-99 ",.01)
 ;;65862-0052-99
 ;;9002226.02101,"1201,65862-0052-99 ",.02)
 ;;65862-0052-99
 ;;9002226.02101,"1201,65862-0053-22 ",.01)
 ;;65862-0053-22
 ;;9002226.02101,"1201,65862-0053-22 ",.02)
 ;;65862-0053-22
 ;;9002226.02101,"1201,65862-0053-30 ",.01)
 ;;65862-0053-30
 ;;9002226.02101,"1201,65862-0053-30 ",.02)
 ;;65862-0053-30
 ;;9002226.02101,"1201,65862-0053-90 ",.01)
 ;;65862-0053-90
 ;;9002226.02101,"1201,65862-0053-90 ",.02)
 ;;65862-0053-90
 ;;9002226.02101,"1201,65862-0053-99 ",.01)
 ;;65862-0053-99
 ;;9002226.02101,"1201,65862-0053-99 ",.02)
 ;;65862-0053-99
 ;;9002226.02101,"1201,65862-0054-30 ",.01)
 ;;65862-0054-30
 ;;9002226.02101,"1201,65862-0054-30 ",.02)
 ;;65862-0054-30
 ;;9002226.02101,"1201,65862-0054-39 ",.01)
 ;;65862-0054-39
 ;;9002226.02101,"1201,65862-0054-39 ",.02)
 ;;65862-0054-39
 ;;9002226.02101,"1201,65862-0054-90 ",.01)
 ;;65862-0054-90
 ;;9002226.02101,"1201,65862-0054-90 ",.02)
 ;;65862-0054-90
 ;;9002226.02101,"1201,65862-0054-99 ",.01)
 ;;65862-0054-99
 ;;9002226.02101,"1201,65862-0054-99 ",.02)
 ;;65862-0054-99
 ;;9002226.02101,"1201,66105-0120-01 ",.01)
 ;;66105-0120-01
 ;;9002226.02101,"1201,66105-0120-01 ",.02)
 ;;66105-0120-01
 ;;9002226.02101,"1201,66105-0120-03 ",.01)
 ;;66105-0120-03
 ;;9002226.02101,"1201,66105-0120-03 ",.02)
 ;;66105-0120-03
 ;;9002226.02101,"1201,66105-0120-06 ",.01)
 ;;66105-0120-06
 ;;9002226.02101,"1201,66105-0120-06 ",.02)
 ;;66105-0120-06
 ;;9002226.02101,"1201,66105-0120-09 ",.01)
 ;;66105-0120-09
 ;;9002226.02101,"1201,66105-0120-09 ",.02)
 ;;66105-0120-09
 ;;9002226.02101,"1201,66105-0120-15 ",.01)
 ;;66105-0120-15
 ;;9002226.02101,"1201,66105-0120-15 ",.02)
 ;;66105-0120-15
 ;;9002226.02101,"1201,66105-0121-01 ",.01)
 ;;66105-0121-01
 ;;9002226.02101,"1201,66105-0121-01 ",.02)
 ;;66105-0121-01
 ;;9002226.02101,"1201,66105-0121-03 ",.01)
 ;;66105-0121-03
 ;;9002226.02101,"1201,66105-0121-03 ",.02)
 ;;66105-0121-03
 ;;9002226.02101,"1201,66105-0121-06 ",.01)
 ;;66105-0121-06
 ;;9002226.02101,"1201,66105-0121-06 ",.02)
 ;;66105-0121-06
 ;;9002226.02101,"1201,66105-0121-09 ",.01)
 ;;66105-0121-09
 ;;9002226.02101,"1201,66105-0121-09 ",.02)
 ;;66105-0121-09
 ;;9002226.02101,"1201,66105-0121-15 ",.01)
 ;;66105-0121-15
 ;;9002226.02101,"1201,66105-0121-15 ",.02)
 ;;66105-0121-15
 ;;9002226.02101,"1201,66105-0122-01 ",.01)
 ;;66105-0122-01
 ;;9002226.02101,"1201,66105-0122-01 ",.02)
 ;;66105-0122-01
 ;;9002226.02101,"1201,66105-0122-03 ",.01)
 ;;66105-0122-03
 ;;9002226.02101,"1201,66105-0122-03 ",.02)
 ;;66105-0122-03
 ;;9002226.02101,"1201,66105-0122-06 ",.01)
 ;;66105-0122-06
 ;;9002226.02101,"1201,66105-0122-06 ",.02)
 ;;66105-0122-06
 ;;9002226.02101,"1201,66105-0122-09 ",.01)
 ;;66105-0122-09
 ;;9002226.02101,"1201,66105-0122-09 ",.02)
 ;;66105-0122-09
 ;;9002226.02101,"1201,66105-0122-15 ",.01)
 ;;66105-0122-15
 ;;9002226.02101,"1201,66105-0122-15 ",.02)
 ;;66105-0122-15
 ;;9002226.02101,"1201,66105-0147-01 ",.01)
 ;;66105-0147-01
 ;;9002226.02101,"1201,66105-0147-01 ",.02)
 ;;66105-0147-01
 ;;9002226.02101,"1201,66105-0147-03 ",.01)
 ;;66105-0147-03
 ;;9002226.02101,"1201,66105-0147-03 ",.02)
 ;;66105-0147-03
 ;;9002226.02101,"1201,66105-0147-06 ",.01)
 ;;66105-0147-06
 ;;9002226.02101,"1201,66105-0147-06 ",.02)
 ;;66105-0147-06
 ;;9002226.02101,"1201,66105-0147-09 ",.01)
 ;;66105-0147-09
 ;;9002226.02101,"1201,66105-0147-09 ",.02)
 ;;66105-0147-09
 ;;9002226.02101,"1201,66105-0147-10 ",.01)
 ;;66105-0147-10
 ;;9002226.02101,"1201,66105-0147-10 ",.02)
 ;;66105-0147-10
 ;;9002226.02101,"1201,66105-0506-01 ",.01)
 ;;66105-0506-01
 ;;9002226.02101,"1201,66105-0506-01 ",.02)
 ;;66105-0506-01
 ;;9002226.02101,"1201,66105-0506-03 ",.01)
 ;;66105-0506-03
 ;;9002226.02101,"1201,66105-0506-03 ",.02)
 ;;66105-0506-03
 ;;9002226.02101,"1201,66105-0506-06 ",.01)
 ;;66105-0506-06
 ;;9002226.02101,"1201,66105-0506-06 ",.02)
 ;;66105-0506-06
 ;;9002226.02101,"1201,66105-0506-09 ",.01)
 ;;66105-0506-09
 ;;9002226.02101,"1201,66105-0506-09 ",.02)
 ;;66105-0506-09
 ;;9002226.02101,"1201,66105-0506-10 ",.01)
 ;;66105-0506-10
 ;;9002226.02101,"1201,66105-0506-10 ",.02)
 ;;66105-0506-10
 ;;9002226.02101,"1201,66105-0988-03 ",.01)
 ;;66105-0988-03
 ;;9002226.02101,"1201,66105-0988-03 ",.02)
 ;;66105-0988-03
 ;;9002226.02101,"1201,66116-0238-30 ",.01)
 ;;66116-0238-30
 ;;9002226.02101,"1201,66116-0238-30 ",.02)
 ;;66116-0238-30
 ;;9002226.02101,"1201,66116-0276-30 ",.01)
 ;;66116-0276-30
 ;;9002226.02101,"1201,66116-0276-30 ",.02)
 ;;66116-0276-30
 ;;9002226.02101,"1201,66116-0277-30 ",.01)
 ;;66116-0277-30
 ;;9002226.02101,"1201,66116-0277-30 ",.02)
 ;;66116-0277-30
 ;;9002226.02101,"1201,66267-0561-30 ",.01)
 ;;66267-0561-30
 ;;9002226.02101,"1201,66267-0561-30 ",.02)
 ;;66267-0561-30
 ;;9002226.02101,"1201,66267-0561-60 ",.01)
 ;;66267-0561-60
 ;;9002226.02101,"1201,66267-0561-60 ",.02)
 ;;66267-0561-60
 ;;9002226.02101,"1201,66267-0561-90 ",.01)
 ;;66267-0561-90
 ;;9002226.02101,"1201,66267-0561-90 ",.02)
 ;;66267-0561-90
 ;;9002226.02101,"1201,66336-0310-05 ",.01)
 ;;66336-0310-05
 ;;9002226.02101,"1201,66336-0310-05 ",.02)
 ;;66336-0310-05
 ;;9002226.02101,"1201,66336-0310-30 ",.01)
 ;;66336-0310-30
 ;;9002226.02101,"1201,66336-0310-30 ",.02)
 ;;66336-0310-30
 ;;9002226.02101,"1201,66336-0310-60 ",.01)
 ;;66336-0310-60
 ;;9002226.02101,"1201,66336-0310-60 ",.02)
 ;;66336-0310-60
 ;;9002226.02101,"1201,66336-0310-90 ",.01)
 ;;66336-0310-90
 ;;9002226.02101,"1201,66336-0310-90 ",.02)
 ;;66336-0310-90
 ;;9002226.02101,"1201,66336-0412-05 ",.01)
 ;;66336-0412-05
 ;;9002226.02101,"1201,66336-0412-05 ",.02)
 ;;66336-0412-05
 ;;9002226.02101,"1201,66336-0412-30 ",.01)
 ;;66336-0412-30
 ;;9002226.02101,"1201,66336-0412-30 ",.02)
 ;;66336-0412-30
 ;;9002226.02101,"1201,66336-0412-90 ",.01)
 ;;66336-0412-90
 ;;9002226.02101,"1201,66336-0412-90 ",.02)
 ;;66336-0412-90
 ;;9002226.02101,"1201,66336-0602-05 ",.01)
 ;;66336-0602-05
 ;;9002226.02101,"1201,66336-0602-05 ",.02)
 ;;66336-0602-05
 ;;9002226.02101,"1201,66336-0602-30 ",.01)
 ;;66336-0602-30
 ;;9002226.02101,"1201,66336-0602-30 ",.02)
 ;;66336-0602-30
 ;;9002226.02101,"1201,66336-0602-90 ",.01)
 ;;66336-0602-90
 ;;9002226.02101,"1201,66336-0602-90 ",.02)
 ;;66336-0602-90
 ;;9002226.02101,"1201,66336-0674-30 ",.01)
 ;;66336-0674-30
 ;;9002226.02101,"1201,66336-0674-30 ",.02)
 ;;66336-0674-30
 ;;9002226.02101,"1201,66336-0685-30 ",.01)
 ;;66336-0685-30
 ;;9002226.02101,"1201,66336-0685-30 ",.02)
 ;;66336-0685-30
 ;;9002226.02101,"1201,66336-0685-90 ",.01)
 ;;66336-0685-90
 ;;9002226.02101,"1201,66336-0685-90 ",.02)
 ;;66336-0685-90
 ;;9002226.02101,"1201,66336-0813-30 ",.01)
 ;;66336-0813-30
 ;;9002226.02101,"1201,66336-0813-30 ",.02)
 ;;66336-0813-30
 ;;9002226.02101,"1201,66336-0813-90 ",.01)
 ;;66336-0813-90
 ;;9002226.02101,"1201,66336-0813-90 ",.02)
 ;;66336-0813-90
 ;;9002226.02101,"1201,66336-0953-30 ",.01)
 ;;66336-0953-30
 ;;9002226.02101,"1201,66336-0953-30 ",.02)
 ;;66336-0953-30
 ;;9002226.02101,"1201,66336-0953-90 ",.01)
 ;;66336-0953-90
 ;;9002226.02101,"1201,66336-0953-90 ",.02)
 ;;66336-0953-90
 ;;9002226.02101,"1201,66336-0954-30 ",.01)
 ;;66336-0954-30
 ;;9002226.02101,"1201,66336-0954-30 ",.02)
 ;;66336-0954-30
 ;;9002226.02101,"1201,66336-0954-90 ",.01)
 ;;66336-0954-90