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

BGP31T4.m

Go to the documentation of this file.
BGP31T4 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 29, 2012;
 ;;13.0;IHS CLINICAL REPORTING;;NOV 20, 2012;Build 81
 ;
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,"1737,00074-1178-02 ",.01)
 ;;00074-1178-02
 ;;9002226.02101,"1737,00074-1178-02 ",.02)
 ;;00074-1178-02
 ;;9002226.02101,"1737,00074-1178-11 ",.01)
 ;;00074-1178-11
 ;;9002226.02101,"1737,00074-1178-11 ",.02)
 ;;00074-1178-11
 ;;9002226.02101,"1737,00074-1178-21 ",.01)
 ;;00074-1178-21
 ;;9002226.02101,"1737,00074-1178-21 ",.02)
 ;;00074-1178-21
 ;;9002226.02101,"1737,00074-1178-30 ",.01)
 ;;00074-1178-30
 ;;9002226.02101,"1737,00074-1178-30 ",.02)
 ;;00074-1178-30
 ;;9002226.02101,"1737,00074-1178-31 ",.01)
 ;;00074-1178-31
 ;;9002226.02101,"1737,00074-1178-31 ",.02)
 ;;00074-1178-31
 ;;9002226.02101,"1737,00074-1179-01 ",.01)
 ;;00074-1179-01
 ;;9002226.02101,"1737,00074-1179-01 ",.02)
 ;;00074-1179-01
 ;;9002226.02101,"1737,00074-1179-02 ",.01)
 ;;00074-1179-02
 ;;9002226.02101,"1737,00074-1179-02 ",.02)
 ;;00074-1179-02
 ;;9002226.02101,"1737,00074-1179-11 ",.01)
 ;;00074-1179-11
 ;;9002226.02101,"1737,00074-1179-11 ",.02)
 ;;00074-1179-11
 ;;9002226.02101,"1737,00074-1179-21 ",.01)
 ;;00074-1179-21
 ;;9002226.02101,"1737,00074-1179-21 ",.02)
 ;;00074-1179-21
 ;;9002226.02101,"1737,00074-1179-30 ",.01)
 ;;00074-1179-30
 ;;9002226.02101,"1737,00074-1179-30 ",.02)
 ;;00074-1179-30
 ;;9002226.02101,"1737,00074-1179-31 ",.01)
 ;;00074-1179-31
 ;;9002226.02101,"1737,00074-1179-31 ",.02)
 ;;00074-1179-31
 ;;9002226.02101,"1737,00074-1180-01 ",.01)
 ;;00074-1180-01
 ;;9002226.02101,"1737,00074-1180-01 ",.02)
 ;;00074-1180-01
 ;;9002226.02101,"1737,00074-1180-02 ",.01)
 ;;00074-1180-02
 ;;9002226.02101,"1737,00074-1180-02 ",.02)
 ;;00074-1180-02
 ;;9002226.02101,"1737,00074-1180-11 ",.01)
 ;;00074-1180-11
 ;;9002226.02101,"1737,00074-1180-11 ",.02)
 ;;00074-1180-11
 ;;9002226.02101,"1737,00074-1180-21 ",.01)
 ;;00074-1180-21
 ;;9002226.02101,"1737,00074-1180-21 ",.02)
 ;;00074-1180-21
 ;;9002226.02101,"1737,00074-1180-31 ",.01)
 ;;00074-1180-31
 ;;9002226.02101,"1737,00074-1180-31 ",.02)
 ;;00074-1180-31
 ;;9002226.02101,"1737,00074-1180-69 ",.01)
 ;;00074-1180-69
 ;;9002226.02101,"1737,00074-1180-69 ",.02)
 ;;00074-1180-69
 ;;9002226.02101,"1737,00074-1181-30 ",.01)
 ;;00074-1181-30
 ;;9002226.02101,"1737,00074-1181-30 ",.02)
 ;;00074-1181-30
 ;;9002226.02101,"1737,00074-1201-20 ",.01)
 ;;00074-1201-20
 ;;9002226.02101,"1737,00074-1201-20 ",.02)
 ;;00074-1201-20
 ;;9002226.02101,"1737,00074-1203-01 ",.01)
 ;;00074-1203-01
 ;;9002226.02101,"1737,00074-1203-01 ",.02)
 ;;00074-1203-01
 ;;9002226.02101,"1737,00074-1253-01 ",.01)
 ;;00074-1253-01
 ;;9002226.02101,"1737,00074-1253-01 ",.02)
 ;;00074-1253-01
 ;;9002226.02101,"1737,00074-1254-01 ",.01)
 ;;00074-1254-01
 ;;9002226.02101,"1737,00074-1254-01 ",.02)
 ;;00074-1254-01
 ;;9002226.02101,"1737,00074-1255-02 ",.01)
 ;;00074-1255-02
 ;;9002226.02101,"1737,00074-1255-02 ",.02)
 ;;00074-1255-02
 ;;9002226.02101,"1737,00074-1256-01 ",.01)
 ;;00074-1256-01
 ;;9002226.02101,"1737,00074-1256-01 ",.02)
 ;;00074-1256-01
 ;;9002226.02101,"1737,00074-1266-01 ",.01)
 ;;00074-1266-01
 ;;9002226.02101,"1737,00074-1266-01 ",.02)
 ;;00074-1266-01
 ;;9002226.02101,"1737,00074-1267-01 ",.01)
 ;;00074-1267-01
 ;;9002226.02101,"1737,00074-1267-01 ",.02)
 ;;00074-1267-01
 ;;9002226.02101,"1737,00074-1271-02 ",.01)
 ;;00074-1271-02
 ;;9002226.02101,"1737,00074-1271-02 ",.02)
 ;;00074-1271-02
 ;;9002226.02101,"1737,00074-1920-10 ",.01)
 ;;00074-1920-10
 ;;9002226.02101,"1737,00074-1920-10 ",.02)
 ;;00074-1920-10
 ;;9002226.02101,"1737,00074-1937-01 ",.01)
 ;;00074-1937-01
 ;;9002226.02101,"1737,00074-1937-01 ",.02)
 ;;00074-1937-01
 ;;9002226.02101,"1737,00074-1937-31 ",.01)
 ;;00074-1937-31
 ;;9002226.02101,"1737,00074-1937-31 ",.02)
 ;;00074-1937-31
 ;;9002226.02101,"1737,00074-1938-02 ",.01)
 ;;00074-1938-02
 ;;9002226.02101,"1737,00074-1938-02 ",.02)
 ;;00074-1938-02
 ;;9002226.02101,"1737,00074-1941-01 ",.01)
 ;;00074-1941-01
 ;;9002226.02101,"1737,00074-1941-01 ",.02)
 ;;00074-1941-01
 ;;9002226.02101,"1737,00074-1941-11 ",.01)
 ;;00074-1941-11
 ;;9002226.02101,"1737,00074-1941-11 ",.02)
 ;;00074-1941-11
 ;;9002226.02101,"1737,00074-2023-02 ",.01)
 ;;00074-2023-02
 ;;9002226.02101,"1737,00074-2023-02 ",.02)
 ;;00074-2023-02
 ;;9002226.02101,"1737,00074-2023-49 ",.01)
 ;;00074-2023-49
 ;;9002226.02101,"1737,00074-2023-49 ",.02)
 ;;00074-2023-49
 ;;9002226.02101,"1737,00074-2036-02 ",.01)
 ;;00074-2036-02
 ;;9002226.02101,"1737,00074-2036-02 ",.02)
 ;;00074-2036-02
 ;;9002226.02101,"1737,00074-2039-02 ",.01)
 ;;00074-2039-02
 ;;9002226.02101,"1737,00074-2039-02 ",.02)
 ;;00074-2039-02
 ;;9002226.02101,"1737,00074-2042-02 ",.01)
 ;;00074-2042-02
 ;;9002226.02101,"1737,00074-2042-02 ",.02)
 ;;00074-2042-02
 ;;9002226.02101,"1737,00074-2046-01 ",.01)
 ;;00074-2046-01
 ;;9002226.02101,"1737,00074-2046-01 ",.02)
 ;;00074-2046-01
 ;;9002226.02101,"1737,00074-2287-01 ",.01)
 ;;00074-2287-01
 ;;9002226.02101,"1737,00074-2287-01 ",.02)
 ;;00074-2287-01
 ;;9002226.02101,"1737,00074-2287-02 ",.01)
 ;;00074-2287-02
 ;;9002226.02101,"1737,00074-2287-02 ",.02)
 ;;00074-2287-02
 ;;9002226.02101,"1737,00074-2287-11 ",.01)
 ;;00074-2287-11
 ;;9002226.02101,"1737,00074-2287-11 ",.02)
 ;;00074-2287-11
 ;;9002226.02101,"1737,00074-2287-31 ",.01)
 ;;00074-2287-31
 ;;9002226.02101,"1737,00074-2287-31 ",.02)
 ;;00074-2287-31
 ;;9002226.02101,"1737,00074-2287-49 ",.01)
 ;;00074-2287-49
 ;;9002226.02101,"1737,00074-2287-49 ",.02)
 ;;00074-2287-49
 ;;9002226.02101,"1737,00074-2287-51 ",.01)
 ;;00074-2287-51
 ;;9002226.02101,"1737,00074-2287-51 ",.02)
 ;;00074-2287-51
 ;;9002226.02101,"1737,00074-2287-54 ",.01)
 ;;00074-2287-54
 ;;9002226.02101,"1737,00074-2287-54 ",.02)
 ;;00074-2287-54
 ;;9002226.02101,"1737,00074-2287-55 ",.01)
 ;;00074-2287-55
 ;;9002226.02101,"1737,00074-2287-55 ",.02)
 ;;00074-2287-55
 ;;9002226.02101,"1737,00074-2287-61 ",.01)
 ;;00074-2287-61
 ;;9002226.02101,"1737,00074-2287-61 ",.02)
 ;;00074-2287-61
 ;;9002226.02101,"1737,00074-2288-01 ",.01)
 ;;00074-2288-01
 ;;9002226.02101,"1737,00074-2288-01 ",.02)
 ;;00074-2288-01
 ;;9002226.02101,"1737,00074-2288-11 ",.01)
 ;;00074-2288-11
 ;;9002226.02101,"1737,00074-2288-11 ",.02)
 ;;00074-2288-11
 ;;9002226.02101,"1737,00074-2288-31 ",.01)
 ;;00074-2288-31
 ;;9002226.02101,"1737,00074-2288-31 ",.02)
 ;;00074-2288-31
 ;;9002226.02101,"1737,00074-2288-49 ",.01)
 ;;00074-2288-49
 ;;9002226.02101,"1737,00074-2288-49 ",.02)
 ;;00074-2288-49
 ;;9002226.02101,"1737,00074-2288-54 ",.01)
 ;;00074-2288-54
 ;;9002226.02101,"1737,00074-2288-54 ",.02)
 ;;00074-2288-54
 ;;9002226.02101,"1737,00074-3793-01 ",.01)
 ;;00074-3793-01
 ;;9002226.02101,"1737,00074-3793-01 ",.02)
 ;;00074-3793-01
 ;;9002226.02101,"1737,00074-3793-49 ",.01)
 ;;00074-3793-49
 ;;9002226.02101,"1737,00074-3793-49 ",.02)
 ;;00074-3793-49
 ;;9002226.02101,"1737,00074-3795-01 ",.01)
 ;;00074-3795-01
 ;;9002226.02101,"1737,00074-3795-01 ",.02)
 ;;00074-3795-01
 ;;9002226.02101,"1737,00074-3795-49 ",.01)
 ;;00074-3795-49
 ;;9002226.02101,"1737,00074-3795-49 ",.02)
 ;;00074-3795-49
 ;;9002226.02101,"1737,00074-3795-61 ",.01)
 ;;00074-3795-61
 ;;9002226.02101,"1737,00074-3795-61 ",.02)
 ;;00074-3795-61
 ;;9002226.02101,"1737,00074-3796-01 ",.01)
 ;;00074-3796-01
 ;;9002226.02101,"1737,00074-3796-01 ",.02)
 ;;00074-3796-01
 ;;9002226.02101,"1737,00074-3796-49 ",.01)
 ;;00074-3796-49
 ;;9002226.02101,"1737,00074-3796-49 ",.02)
 ;;00074-3796-49
 ;;9002226.02101,"1737,00074-3796-61 ",.01)
 ;;00074-3796-61
 ;;9002226.02101,"1737,00074-3796-61 ",.02)
 ;;00074-3796-61
 ;;9002226.02101,"1737,00074-6030-04 ",.01)
 ;;00074-6030-04
 ;;9002226.02101,"1737,00074-6030-04 ",.02)
 ;;00074-6030-04
 ;;9002226.02101,"1737,00093-0314-01 ",.01)
 ;;00093-0314-01
 ;;9002226.02101,"1737,00093-0314-01 ",.02)
 ;;00093-0314-01
 ;;9002226.02101,"1737,00093-4029-01 ",.01)
 ;;00093-4029-01
 ;;9002226.02101,"1737,00093-4029-01 ",.02)
 ;;00093-4029-01
 ;;9002226.02101,"1737,00093-4029-10 ",.01)
 ;;00093-4029-10
 ;;9002226.02101,"1737,00093-4029-10 ",.02)
 ;;00093-4029-10
 ;;9002226.02101,"1737,00093-4029-19 ",.01)
 ;;00093-4029-19
 ;;9002226.02101,"1737,00093-4029-19 ",.02)
 ;;00093-4029-19
 ;;9002226.02101,"1737,00093-4029-93 ",.01)
 ;;00093-4029-93
 ;;9002226.02101,"1737,00093-4029-93 ",.02)
 ;;00093-4029-93
 ;;9002226.02101,"1737,00093-4030-01 ",.01)
 ;;00093-4030-01
 ;;9002226.02101,"1737,00093-4030-01 ",.02)
 ;;00093-4030-01
 ;;9002226.02101,"1737,00093-4030-05 ",.01)
 ;;00093-4030-05
 ;;9002226.02101,"1737,00093-4030-05 ",.02)
 ;;00093-4030-05
 ;;9002226.02101,"1737,00093-4030-19 ",.01)
 ;;00093-4030-19
 ;;9002226.02101,"1737,00093-4030-19 ",.02)
 ;;00093-4030-19
 ;;9002226.02101,"1737,00093-4030-93 ",.01)
 ;;00093-4030-93
 ;;9002226.02101,"1737,00093-4030-93 ",.02)
 ;;00093-4030-93
 ;;9002226.02101,"1737,00172-4029-60 ",.01)
 ;;00172-4029-60
 ;;9002226.02101,"1737,00172-4029-60 ",.02)
 ;;00172-4029-60
 ;;9002226.02101,"1737,00172-4029-80 ",.01)
 ;;00172-4029-80
 ;;9002226.02101,"1737,00172-4029-80 ",.02)
 ;;00172-4029-80
 ;;9002226.02101,"1737,00172-4030-60 ",.01)
 ;;00172-4030-60
 ;;9002226.02101,"1737,00172-4030-60 ",.02)
 ;;00172-4030-60
 ;;9002226.02101,"1737,00172-4030-70 ",.01)
 ;;00172-4030-70
 ;;9002226.02101,"1737,00172-4030-70 ",.02)
 ;;00172-4030-70
 ;;9002226.02101,"1737,00182-1681-89 ",.01)
 ;;00182-1681-89
 ;;9002226.02101,"1737,00182-1681-89 ",.02)
 ;;00182-1681-89
 ;;9002226.02101,"1737,00182-1682-89 ",.01)
 ;;00182-1682-89
 ;;9002226.02101,"1737,00182-1682-89 ",.02)
 ;;00182-1682-89
 ;;9002226.02101,"1737,00185-0720-01 ",.01)
 ;;00185-0720-01
 ;;9002226.02101,"1737,00185-0720-01 ",.02)
 ;;00185-0720-01
 ;;9002226.02101,"1737,00185-0720-05 ",.01)
 ;;00185-0720-05
 ;;9002226.02101,"1737,00185-0720-05 ",.02)
 ;;00185-0720-05
 ;;9002226.02101,"1737,00185-0720-60 ",.01)
 ;;00185-0720-60
 ;;9002226.02101,"1737,00185-0720-60 ",.02)
 ;;00185-0720-60
 ;;9002226.02101,"1737,00247-0121-00 ",.01)
 ;;00247-0121-00
 ;;9002226.02101,"1737,00247-0121-00 ",.02)
 ;;00247-0121-00
 ;;9002226.02101,"1737,00247-0121-01 ",.01)
 ;;00247-0121-01
 ;;9002226.02101,"1737,00247-0121-01 ",.02)
 ;;00247-0121-01
 ;;9002226.02101,"1737,00247-0121-02 ",.01)
 ;;00247-0121-02
 ;;9002226.02101,"1737,00247-0121-02 ",.02)
 ;;00247-0121-02
 ;;9002226.02101,"1737,00247-0121-03 ",.01)
 ;;00247-0121-03
 ;;9002226.02101,"1737,00247-0121-03 ",.02)
 ;;00247-0121-03
 ;;9002226.02101,"1737,00247-0121-04 ",.01)
 ;;00247-0121-04
 ;;9002226.02101,"1737,00247-0121-04 ",.02)
 ;;00247-0121-04
 ;;9002226.02101,"1737,00247-0121-06 ",.01)
 ;;00247-0121-06
 ;;9002226.02101,"1737,00247-0121-06 ",.02)
 ;;00247-0121-06
 ;;9002226.02101,"1737,00247-0121-08 ",.01)
 ;;00247-0121-08
 ;;9002226.02101,"1737,00247-0121-08 ",.02)
 ;;00247-0121-08
 ;;9002226.02101,"1737,00247-0121-10 ",.01)
 ;;00247-0121-10
 ;;9002226.02101,"1737,00247-0121-10 ",.02)
 ;;00247-0121-10
 ;;9002226.02101,"1737,00247-0121-12 ",.01)
 ;;00247-0121-12
 ;;9002226.02101,"1737,00247-0121-12 ",.02)
 ;;00247-0121-12
 ;;9002226.02101,"1737,00247-0121-15 ",.01)
 ;;00247-0121-15
 ;;9002226.02101,"1737,00247-0121-15 ",.02)
 ;;00247-0121-15
 ;;9002226.02101,"1737,00247-0121-16 ",.01)
 ;;00247-0121-16
 ;;9002226.02101,"1737,00247-0121-16 ",.02)
 ;;00247-0121-16
 ;;9002226.02101,"1737,00247-0121-20 ",.01)
 ;;00247-0121-20
 ;;9002226.02101,"1737,00247-0121-20 ",.02)
 ;;00247-0121-20
 ;;9002226.02101,"1737,00247-0121-21 ",.01)
 ;;00247-0121-21
 ;;9002226.02101,"1737,00247-0121-21 ",.02)
 ;;00247-0121-21
 ;;9002226.02101,"1737,00247-0121-28 ",.01)
 ;;00247-0121-28
 ;;9002226.02101,"1737,00247-0121-28 ",.02)
 ;;00247-0121-28
 ;;9002226.02101,"1737,00247-0121-30 ",.01)
 ;;00247-0121-30
 ;;9002226.02101,"1737,00247-0121-30 ",.02)
 ;;00247-0121-30
 ;;9002226.02101,"1737,00247-0121-40 ",.01)
 ;;00247-0121-40
 ;;9002226.02101,"1737,00247-0121-40 ",.02)
 ;;00247-0121-40
 ;;9002226.02101,"1737,00247-0124-02 ",.01)
 ;;00247-0124-02
 ;;9002226.02101,"1737,00247-0124-02 ",.02)
 ;;00247-0124-02
 ;;9002226.02101,"1737,00247-0124-20 ",.01)
 ;;00247-0124-20
 ;;9002226.02101,"1737,00247-0124-20 ",.02)
 ;;00247-0124-20
 ;;9002226.02101,"1737,00247-0202-04 ",.01)
 ;;00247-0202-04
 ;;9002226.02101,"1737,00247-0202-04 ",.02)
 ;;00247-0202-04
 ;;9002226.02101,"1737,00247-0202-05 ",.01)
 ;;00247-0202-05
 ;;9002226.02101,"1737,00247-0202-05 ",.02)
 ;;00247-0202-05
 ;;9002226.02101,"1737,00247-0202-10 ",.01)
 ;;00247-0202-10
 ;;9002226.02101,"1737,00247-0202-10 ",.02)
 ;;00247-0202-10
 ;;9002226.02101,"1737,00247-0202-12 ",.01)
 ;;00247-0202-12
 ;;9002226.02101,"1737,00247-0202-12 ",.02)
 ;;00247-0202-12
 ;;9002226.02101,"1737,00247-0202-15 ",.01)
 ;;00247-0202-15
 ;;9002226.02101,"1737,00247-0202-15 ",.02)
 ;;00247-0202-15
 ;;9002226.02101,"1737,00247-0202-20 ",.01)
 ;;00247-0202-20
 ;;9002226.02101,"1737,00247-0202-20 ",.02)
 ;;00247-0202-20
 ;;9002226.02101,"1737,00247-0202-21 ",.01)
 ;;00247-0202-21
 ;;9002226.02101,"1737,00247-0202-21 ",.02)
 ;;00247-0202-21
 ;;9002226.02101,"1737,00247-0202-28 ",.01)
 ;;00247-0202-28
 ;;9002226.02101,"1737,00247-0202-28 ",.02)
 ;;00247-0202-28
 ;;9002226.02101,"1737,00247-0202-30 ",.01)
 ;;00247-0202-30
 ;;9002226.02101,"1737,00247-0202-30 ",.02)
 ;;00247-0202-30
 ;;9002226.02101,"1737,00247-0202-40 ",.01)
 ;;00247-0202-40
 ;;9002226.02101,"1737,00247-0202-40 ",.02)
 ;;00247-0202-40
 ;;9002226.02101,"1737,00247-0202-60 ",.01)
 ;;00247-0202-60
 ;;9002226.02101,"1737,00247-0202-60 ",.02)
 ;;00247-0202-60
 ;;9002226.02101,"1737,00247-0203-04 ",.01)
 ;;00247-0203-04