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

BGP2TD18.m

Go to the documentation of this file.
BGP2TD18 ;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,"1729,00185-5400-01 ",.02)
 ;;00185-5400-01
 ;;9002226.02101,"1729,00185-5400-10 ",.01)
 ;;00185-5400-10
 ;;9002226.02101,"1729,00185-5400-10 ",.02)
 ;;00185-5400-10
 ;;9002226.02101,"1729,00185-5400-33 ",.01)
 ;;00185-5400-33
 ;;9002226.02101,"1729,00185-5400-33 ",.02)
 ;;00185-5400-33
 ;;9002226.02101,"1729,00185-7100-01 ",.01)
 ;;00185-7100-01
 ;;9002226.02101,"1729,00185-7100-01 ",.02)
 ;;00185-7100-01
 ;;9002226.02101,"1729,00185-7100-10 ",.01)
 ;;00185-7100-10
 ;;9002226.02101,"1729,00185-7100-10 ",.02)
 ;;00185-7100-10
 ;;9002226.02101,"1729,00186-0001-31 ",.01)
 ;;00186-0001-31
 ;;9002226.02101,"1729,00186-0001-31 ",.02)
 ;;00186-0001-31
 ;;9002226.02101,"1729,00186-0001-68 ",.01)
 ;;00186-0001-68
 ;;9002226.02101,"1729,00186-0001-68 ",.02)
 ;;00186-0001-68
 ;;9002226.02101,"1729,00186-0002-31 ",.01)
 ;;00186-0002-31
 ;;9002226.02101,"1729,00186-0002-31 ",.02)
 ;;00186-0002-31
 ;;9002226.02101,"1729,00186-0004-31 ",.01)
 ;;00186-0004-31
 ;;9002226.02101,"1729,00186-0004-31 ",.02)
 ;;00186-0004-31
 ;;9002226.02101,"1729,00186-0008-31 ",.01)
 ;;00186-0008-31
 ;;9002226.02101,"1729,00186-0008-31 ",.02)
 ;;00186-0008-31
 ;;9002226.02101,"1729,00186-0016-28 ",.01)
 ;;00186-0016-28
 ;;9002226.02101,"1729,00186-0016-28 ",.02)
 ;;00186-0016-28
 ;;9002226.02101,"1729,00186-0016-31 ",.01)
 ;;00186-0016-31
 ;;9002226.02101,"1729,00186-0016-31 ",.02)
 ;;00186-0016-31
 ;;9002226.02101,"1729,00186-0016-54 ",.01)
 ;;00186-0016-54
 ;;9002226.02101,"1729,00186-0016-54 ",.02)
 ;;00186-0016-54
 ;;9002226.02101,"1729,00186-0032-28 ",.01)
 ;;00186-0032-28
 ;;9002226.02101,"1729,00186-0032-28 ",.02)
 ;;00186-0032-28
 ;;9002226.02101,"1729,00186-0032-31 ",.01)
 ;;00186-0032-31
 ;;9002226.02101,"1729,00186-0032-31 ",.02)
 ;;00186-0032-31
 ;;9002226.02101,"1729,00186-0032-54 ",.01)
 ;;00186-0032-54
 ;;9002226.02101,"1729,00186-0032-54 ",.02)
 ;;00186-0032-54
 ;;9002226.02101,"1729,00186-0162-28 ",.01)
 ;;00186-0162-28
 ;;9002226.02101,"1729,00186-0162-28 ",.02)
 ;;00186-0162-28
 ;;9002226.02101,"1729,00186-0162-54 ",.01)
 ;;00186-0162-54
 ;;9002226.02101,"1729,00186-0162-54 ",.02)
 ;;00186-0162-54
 ;;9002226.02101,"1729,00186-0322-28 ",.01)
 ;;00186-0322-28
 ;;9002226.02101,"1729,00186-0322-28 ",.02)
 ;;00186-0322-28
 ;;9002226.02101,"1729,00186-0322-54 ",.01)
 ;;00186-0322-54
 ;;9002226.02101,"1729,00186-0322-54 ",.02)
 ;;00186-0322-54
 ;;9002226.02101,"1729,00186-0324-54 ",.01)
 ;;00186-0324-54
 ;;9002226.02101,"1729,00186-0324-54 ",.02)
 ;;00186-0324-54
 ;;9002226.02101,"1729,00228-2658-11 ",.01)
 ;;00228-2658-11
 ;;9002226.02101,"1729,00228-2658-11 ",.02)
 ;;00228-2658-11
 ;;9002226.02101,"1729,00228-2658-96 ",.01)
 ;;00228-2658-96
 ;;9002226.02101,"1729,00228-2658-96 ",.02)
 ;;00228-2658-96
 ;;9002226.02101,"1729,00228-2659-11 ",.01)
 ;;00228-2659-11
 ;;9002226.02101,"1729,00228-2659-11 ",.02)
 ;;00228-2659-11
 ;;9002226.02101,"1729,00228-2659-96 ",.01)
 ;;00228-2659-96
 ;;9002226.02101,"1729,00228-2659-96 ",.02)
 ;;00228-2659-96
 ;;9002226.02101,"1729,00228-2660-11 ",.01)
 ;;00228-2660-11
 ;;9002226.02101,"1729,00228-2660-11 ",.02)
 ;;00228-2660-11
 ;;9002226.02101,"1729,00228-2660-96 ",.01)
 ;;00228-2660-96
 ;;9002226.02101,"1729,00228-2660-96 ",.02)
 ;;00228-2660-96
 ;;9002226.02101,"1729,00228-2661-11 ",.01)
 ;;00228-2661-11
 ;;9002226.02101,"1729,00228-2661-11 ",.02)
 ;;00228-2661-11
 ;;9002226.02101,"1729,00228-2661-96 ",.01)
 ;;00228-2661-96
 ;;9002226.02101,"1729,00228-2661-96 ",.02)
 ;;00228-2661-96
 ;;9002226.02101,"1729,00228-2695-11 ",.01)
 ;;00228-2695-11
 ;;9002226.02101,"1729,00228-2695-11 ",.02)
 ;;00228-2695-11
 ;;9002226.02101,"1729,00228-2695-50 ",.01)
 ;;00228-2695-50
 ;;9002226.02101,"1729,00228-2695-50 ",.02)
 ;;00228-2695-50
 ;;9002226.02101,"1729,00228-2696-11 ",.01)
 ;;00228-2696-11
 ;;9002226.02101,"1729,00228-2696-11 ",.02)
 ;;00228-2696-11
 ;;9002226.02101,"1729,00228-2696-50 ",.01)
 ;;00228-2696-50
 ;;9002226.02101,"1729,00228-2696-50 ",.02)
 ;;00228-2696-50
 ;;9002226.02101,"1729,00228-2697-11 ",.01)
 ;;00228-2697-11
 ;;9002226.02101,"1729,00228-2697-11 ",.02)
 ;;00228-2697-11
 ;;9002226.02101,"1729,00228-2697-50 ",.01)
 ;;00228-2697-50
 ;;9002226.02101,"1729,00228-2697-50 ",.02)
 ;;00228-2697-50
 ;;9002226.02101,"1729,00228-2706-03 ",.01)
 ;;00228-2706-03
 ;;9002226.02101,"1729,00228-2706-03 ",.02)
 ;;00228-2706-03
 ;;9002226.02101,"1729,00228-2706-11 ",.01)
 ;;00228-2706-11
 ;;9002226.02101,"1729,00228-2706-11 ",.02)
 ;;00228-2706-11
 ;;9002226.02101,"1729,00228-2707-03 ",.01)
 ;;00228-2707-03
 ;;9002226.02101,"1729,00228-2707-03 ",.02)
 ;;00228-2707-03
 ;;9002226.02101,"1729,00228-2707-11 ",.01)
 ;;00228-2707-11
 ;;9002226.02101,"1729,00228-2707-11 ",.02)
 ;;00228-2707-11
 ;;9002226.02101,"1729,00228-2708-03 ",.01)
 ;;00228-2708-03
 ;;9002226.02101,"1729,00228-2708-03 ",.02)
 ;;00228-2708-03
 ;;9002226.02101,"1729,00228-2708-11 ",.01)
 ;;00228-2708-11
 ;;9002226.02101,"1729,00228-2708-11 ",.02)
 ;;00228-2708-11
 ;;9002226.02101,"1729,00245-0193-01 ",.01)
 ;;00245-0193-01
 ;;9002226.02101,"1729,00245-0193-01 ",.02)
 ;;00245-0193-01
 ;;9002226.02101,"1729,00245-0193-10 ",.01)
 ;;00245-0193-10
 ;;9002226.02101,"1729,00245-0193-10 ",.02)
 ;;00245-0193-10
 ;;9002226.02101,"1729,00245-0193-30 ",.01)
 ;;00245-0193-30
 ;;9002226.02101,"1729,00245-0193-30 ",.02)
 ;;00245-0193-30
 ;;9002226.02101,"1729,00245-0193-90 ",.01)
 ;;00245-0193-90
 ;;9002226.02101,"1729,00245-0193-90 ",.02)
 ;;00245-0193-90
 ;;9002226.02101,"1729,00245-0194-01 ",.01)
 ;;00245-0194-01
 ;;9002226.02101,"1729,00245-0194-01 ",.02)
 ;;00245-0194-01
 ;;9002226.02101,"1729,00245-0194-10 ",.01)
 ;;00245-0194-10
 ;;9002226.02101,"1729,00245-0194-10 ",.02)
 ;;00245-0194-10
 ;;9002226.02101,"1729,00245-0194-30 ",.01)
 ;;00245-0194-30
 ;;9002226.02101,"1729,00245-0194-30 ",.02)
 ;;00245-0194-30
 ;;9002226.02101,"1729,00245-0194-90 ",.01)
 ;;00245-0194-90
 ;;9002226.02101,"1729,00245-0194-90 ",.02)
 ;;00245-0194-90
 ;;9002226.02101,"1729,00245-0195-01 ",.01)
 ;;00245-0195-01
 ;;9002226.02101,"1729,00245-0195-01 ",.02)
 ;;00245-0195-01
 ;;9002226.02101,"1729,00245-0195-10 ",.01)
 ;;00245-0195-10
 ;;9002226.02101,"1729,00245-0195-10 ",.02)
 ;;00245-0195-10
 ;;9002226.02101,"1729,00245-0195-30 ",.01)
 ;;00245-0195-30
 ;;9002226.02101,"1729,00245-0195-30 ",.02)
 ;;00245-0195-30
 ;;9002226.02101,"1729,00245-0195-90 ",.01)
 ;;00245-0195-90
 ;;9002226.02101,"1729,00245-0195-90 ",.02)
 ;;00245-0195-90
 ;;9002226.02101,"1729,00247-1023-00 ",.01)
 ;;00247-1023-00
 ;;9002226.02101,"1729,00247-1023-00 ",.02)
 ;;00247-1023-00
 ;;9002226.02101,"1729,00247-1023-30 ",.01)
 ;;00247-1023-30
 ;;9002226.02101,"1729,00247-1023-30 ",.02)
 ;;00247-1023-30
 ;;9002226.02101,"1729,00247-1023-60 ",.01)
 ;;00247-1023-60
 ;;9002226.02101,"1729,00247-1023-60 ",.02)
 ;;00247-1023-60
 ;;9002226.02101,"1729,00247-1090-30 ",.01)
 ;;00247-1090-30
 ;;9002226.02101,"1729,00247-1090-30 ",.02)
 ;;00247-1090-30
 ;;9002226.02101,"1729,00247-1090-60 ",.01)
 ;;00247-1090-60
 ;;9002226.02101,"1729,00247-1090-60 ",.02)
 ;;00247-1090-60
 ;;9002226.02101,"1729,00247-1091-30 ",.01)
 ;;00247-1091-30
 ;;9002226.02101,"1729,00247-1091-30 ",.02)
 ;;00247-1091-30
 ;;9002226.02101,"1729,00247-1091-60 ",.01)
 ;;00247-1091-60
 ;;9002226.02101,"1729,00247-1091-60 ",.02)
 ;;00247-1091-60
 ;;9002226.02101,"1729,00247-1147-10 ",.01)
 ;;00247-1147-10
 ;;9002226.02101,"1729,00247-1147-10 ",.02)
 ;;00247-1147-10
 ;;9002226.02101,"1729,00247-1147-30 ",.01)
 ;;00247-1147-30
 ;;9002226.02101,"1729,00247-1147-30 ",.02)
 ;;00247-1147-30
 ;;9002226.02101,"1729,00247-1147-60 ",.01)
 ;;00247-1147-60
 ;;9002226.02101,"1729,00247-1147-60 ",.02)
 ;;00247-1147-60
 ;;9002226.02101,"1729,00247-1149-30 ",.01)
 ;;00247-1149-30
 ;;9002226.02101,"1729,00247-1149-30 ",.02)
 ;;00247-1149-30
 ;;9002226.02101,"1729,00247-1149-60 ",.01)
 ;;00247-1149-60
 ;;9002226.02101,"1729,00247-1149-60 ",.02)
 ;;00247-1149-60
 ;;9002226.02101,"1729,00247-1150-30 ",.01)
 ;;00247-1150-30
 ;;9002226.02101,"1729,00247-1150-30 ",.02)
 ;;00247-1150-30
 ;;9002226.02101,"1729,00247-1150-60 ",.01)
 ;;00247-1150-60
 ;;9002226.02101,"1729,00247-1150-60 ",.02)
 ;;00247-1150-60
 ;;9002226.02101,"1729,00247-1222-00 ",.01)
 ;;00247-1222-00
 ;;9002226.02101,"1729,00247-1222-00 ",.02)
 ;;00247-1222-00
 ;;9002226.02101,"1729,00247-1396-30 ",.01)
 ;;00247-1396-30
 ;;9002226.02101,"1729,00247-1396-30 ",.02)
 ;;00247-1396-30
 ;;9002226.02101,"1729,00310-0130-10 ",.01)
 ;;00310-0130-10
 ;;9002226.02101,"1729,00310-0130-10 ",.02)
 ;;00310-0130-10
 ;;9002226.02101,"1729,00310-0130-11 ",.01)
 ;;00310-0130-11
 ;;9002226.02101,"1729,00310-0130-11 ",.02)
 ;;00310-0130-11
 ;;9002226.02101,"1729,00310-0130-34 ",.01)
 ;;00310-0130-34
 ;;9002226.02101,"1729,00310-0130-34 ",.02)
 ;;00310-0130-34
 ;;9002226.02101,"1729,00310-0130-39 ",.01)
 ;;00310-0130-39
 ;;9002226.02101,"1729,00310-0130-39 ",.02)
 ;;00310-0130-39
 ;;9002226.02101,"1729,00310-0131-10 ",.01)
 ;;00310-0131-10
 ;;9002226.02101,"1729,00310-0131-10 ",.02)
 ;;00310-0131-10
 ;;9002226.02101,"1729,00310-0131-11 ",.01)
 ;;00310-0131-11
 ;;9002226.02101,"1729,00310-0131-11 ",.02)
 ;;00310-0131-11
 ;;9002226.02101,"1729,00310-0131-34 ",.01)
 ;;00310-0131-34
 ;;9002226.02101,"1729,00310-0131-34 ",.02)
 ;;00310-0131-34
 ;;9002226.02101,"1729,00310-0131-39 ",.01)
 ;;00310-0131-39
 ;;9002226.02101,"1729,00310-0131-39 ",.02)
 ;;00310-0131-39
 ;;9002226.02101,"1729,00310-0131-73 ",.01)
 ;;00310-0131-73
 ;;9002226.02101,"1729,00310-0131-73 ",.02)
 ;;00310-0131-73
 ;;9002226.02101,"1729,00310-0132-10 ",.01)
 ;;00310-0132-10
 ;;9002226.02101,"1729,00310-0132-10 ",.02)
 ;;00310-0132-10
 ;;9002226.02101,"1729,00310-0132-11 ",.01)
 ;;00310-0132-11
 ;;9002226.02101,"1729,00310-0132-11 ",.02)
 ;;00310-0132-11
 ;;9002226.02101,"1729,00310-0132-34 ",.01)
 ;;00310-0132-34
 ;;9002226.02101,"1729,00310-0132-34 ",.02)
 ;;00310-0132-34
 ;;9002226.02101,"1729,00310-0132-39 ",.01)
 ;;00310-0132-39
 ;;9002226.02101,"1729,00310-0132-39 ",.02)
 ;;00310-0132-39
 ;;9002226.02101,"1729,00310-0132-73 ",.01)
 ;;00310-0132-73
 ;;9002226.02101,"1729,00310-0132-73 ",.02)
 ;;00310-0132-73
 ;;9002226.02101,"1729,00310-0133-10 ",.01)
 ;;00310-0133-10
 ;;9002226.02101,"1729,00310-0133-10 ",.02)
 ;;00310-0133-10
 ;;9002226.02101,"1729,00310-0133-11 ",.01)
 ;;00310-0133-11
 ;;9002226.02101,"1729,00310-0133-11 ",.02)
 ;;00310-0133-11
 ;;9002226.02101,"1729,00310-0134-10 ",.01)
 ;;00310-0134-10
 ;;9002226.02101,"1729,00310-0134-10 ",.02)
 ;;00310-0134-10
 ;;9002226.02101,"1729,00310-0134-11 ",.01)
 ;;00310-0134-11
 ;;9002226.02101,"1729,00310-0134-11 ",.02)
 ;;00310-0134-11
 ;;9002226.02101,"1729,00310-0135-10 ",.01)
 ;;00310-0135-10
 ;;9002226.02101,"1729,00310-0135-10 ",.02)
 ;;00310-0135-10
 ;;9002226.02101,"1729,00310-0135-11 ",.01)
 ;;00310-0135-11
 ;;9002226.02101,"1729,00310-0135-11 ",.02)
 ;;00310-0135-11
 ;;9002226.02101,"1729,00310-0141-10 ",.01)
 ;;00310-0141-10
 ;;9002226.02101,"1729,00310-0141-10 ",.02)
 ;;00310-0141-10
 ;;9002226.02101,"1729,00310-0141-11 ",.01)
 ;;00310-0141-11
 ;;9002226.02101,"1729,00310-0141-11 ",.02)
 ;;00310-0141-11
 ;;9002226.02101,"1729,00310-0142-10 ",.01)
 ;;00310-0142-10
 ;;9002226.02101,"1729,00310-0142-10 ",.02)
 ;;00310-0142-10
 ;;9002226.02101,"1729,00310-0142-11 ",.01)
 ;;00310-0142-11
 ;;9002226.02101,"1729,00310-0142-11 ",.02)
 ;;00310-0142-11
 ;;9002226.02101,"1729,00310-0145-10 ",.01)
 ;;00310-0145-10
 ;;9002226.02101,"1729,00310-0145-10 ",.02)
 ;;00310-0145-10
 ;;9002226.02101,"1729,00310-0145-11 ",.01)
 ;;00310-0145-11
 ;;9002226.02101,"1729,00310-0145-11 ",.02)
 ;;00310-0145-11
 ;;9002226.02101,"1729,00378-0081-01 ",.01)
 ;;00378-0081-01
 ;;9002226.02101,"1729,00378-0081-01 ",.02)
 ;;00378-0081-01
 ;;9002226.02101,"1729,00378-0083-01 ",.01)
 ;;00378-0083-01
 ;;9002226.02101,"1729,00378-0083-01 ",.02)
 ;;00378-0083-01
 ;;9002226.02101,"1729,00378-0084-01 ",.01)
 ;;00378-0084-01
 ;;9002226.02101,"1729,00378-0084-01 ",.02)
 ;;00378-0084-01
 ;;9002226.02101,"1729,00378-0086-01 ",.01)
 ;;00378-0086-01
 ;;9002226.02101,"1729,00378-0086-01 ",.02)
 ;;00378-0086-01
 ;;9002226.02101,"1729,00378-0226-77 ",.01)
 ;;00378-0226-77
 ;;9002226.02101,"1729,00378-0226-77 ",.02)
 ;;00378-0226-77
 ;;9002226.02101,"1729,00378-0254-77 ",.01)
 ;;00378-0254-77
 ;;9002226.02101,"1729,00378-0254-77 ",.02)
 ;;00378-0254-77
 ;;9002226.02101,"1729,00378-0272-77 ",.01)
 ;;00378-0272-77
 ;;9002226.02101,"1729,00378-0272-77 ",.02)
 ;;00378-0272-77
 ;;9002226.02101,"1729,00378-0441-01 ",.01)
 ;;00378-0441-01
 ;;9002226.02101,"1729,00378-0441-01 ",.02)
 ;;00378-0441-01
 ;;9002226.02101,"1729,00378-0443-01 ",.01)
 ;;00378-0443-01
 ;;9002226.02101,"1729,00378-0443-01 ",.02)
 ;;00378-0443-01
 ;;9002226.02101,"1729,00378-0444-01 ",.01)
 ;;00378-0444-01
 ;;9002226.02101,"1729,00378-0444-01 ",.02)
 ;;00378-0444-01
 ;;9002226.02101,"1729,00378-0447-01 ",.01)
 ;;00378-0447-01
 ;;9002226.02101,"1729,00378-0447-01 ",.02)
 ;;00378-0447-01
 ;;9002226.02101,"1729,00378-0542-77 ",.01)
 ;;00378-0542-77
 ;;9002226.02101,"1729,00378-0542-77 ",.02)
 ;;00378-0542-77
 ;;9002226.02101,"1729,00378-0543-77 ",.01)
 ;;00378-0543-77
 ;;9002226.02101,"1729,00378-0543-77 ",.02)
 ;;00378-0543-77
 ;;9002226.02101,"1729,00378-0544-77 ",.01)
 ;;00378-0544-77
 ;;9002226.02101,"1729,00378-0544-77 ",.02)
 ;;00378-0544-77
 ;;9002226.02101,"1729,00378-0712-01 ",.01)
 ;;00378-0712-01
 ;;9002226.02101,"1729,00378-0712-01 ",.02)
 ;;00378-0712-01