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

BGP31P11.m

Go to the documentation of this file.
BGP31P11 ;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,"730,00078-0103-05 ",.02)
 ;;00078-0103-05
 ;;9002226.02101,"730,00078-0103-08 ",.01)
 ;;00078-0103-08
 ;;9002226.02101,"730,00078-0103-08 ",.02)
 ;;00078-0103-08
 ;;9002226.02101,"730,00078-0107-05 ",.01)
 ;;00078-0107-05
 ;;9002226.02101,"730,00078-0107-05 ",.02)
 ;;00078-0107-05
 ;;9002226.02101,"730,00078-0243-05 ",.01)
 ;;00078-0243-05
 ;;9002226.02101,"730,00078-0243-05 ",.02)
 ;;00078-0243-05
 ;;9002226.02101,"730,00078-0316-06 ",.01)
 ;;00078-0316-06
 ;;9002226.02101,"730,00078-0316-06 ",.02)
 ;;00078-0316-06
 ;;9002226.02101,"730,00078-0317-05 ",.01)
 ;;00078-0317-05
 ;;9002226.02101,"730,00078-0317-05 ",.02)
 ;;00078-0317-05
 ;;9002226.02101,"730,00078-0317-06 ",.01)
 ;;00078-0317-06
 ;;9002226.02101,"730,00078-0317-06 ",.02)
 ;;00078-0317-06
 ;;9002226.02101,"730,00078-0318-05 ",.01)
 ;;00078-0318-05
 ;;9002226.02101,"730,00078-0318-05 ",.02)
 ;;00078-0318-05
 ;;9002226.02101,"730,00085-0287-04 ",.01)
 ;;00085-0287-04
 ;;9002226.02101,"730,00085-0287-04 ",.02)
 ;;00085-0287-04
 ;;9002226.02101,"730,00085-0287-08 ",.01)
 ;;00085-0287-08
 ;;9002226.02101,"730,00085-0287-08 ",.02)
 ;;00085-0287-08
 ;;9002226.02101,"730,00085-0598-04 ",.01)
 ;;00085-0598-04
 ;;9002226.02101,"730,00085-0598-04 ",.02)
 ;;00085-0598-04
 ;;9002226.02101,"730,00085-0598-08 ",.01)
 ;;00085-0598-08
 ;;9002226.02101,"730,00085-0598-08 ",.02)
 ;;00085-0598-08
 ;;9002226.02101,"730,00085-0720-04 ",.01)
 ;;00085-0720-04
 ;;9002226.02101,"730,00085-0720-04 ",.02)
 ;;00085-0720-04
 ;;9002226.02101,"730,00085-0720-08 ",.01)
 ;;00085-0720-08
 ;;9002226.02101,"730,00085-0720-08 ",.02)
 ;;00085-0720-08
 ;;9002226.02101,"730,00086-0925-81 ",.01)
 ;;00086-0925-81
 ;;9002226.02101,"730,00086-0925-81 ",.02)
 ;;00086-0925-81
 ;;9002226.02101,"730,00086-0926-81 ",.01)
 ;;00086-0926-81
 ;;9002226.02101,"730,00086-0926-81 ",.02)
 ;;00086-0926-81
 ;;9002226.02101,"730,00087-0543-01 ",.01)
 ;;00087-0543-01
 ;;9002226.02101,"730,00087-0543-01 ",.02)
 ;;00087-0543-01
 ;;9002226.02101,"730,00087-0544-01 ",.01)
 ;;00087-0544-01
 ;;9002226.02101,"730,00087-0544-01 ",.02)
 ;;00087-0544-01
 ;;9002226.02101,"730,00093-0073-01 ",.01)
 ;;00093-0073-01
 ;;9002226.02101,"730,00093-0073-01 ",.02)
 ;;00093-0073-01
 ;;9002226.02101,"730,00093-0074-01 ",.01)
 ;;00093-0074-01
 ;;9002226.02101,"730,00093-0074-01 ",.02)
 ;;00093-0074-01
 ;;9002226.02101,"730,00093-0854-01 ",.01)
 ;;00093-0854-01
 ;;9002226.02101,"730,00093-0854-01 ",.02)
 ;;00093-0854-01
 ;;9002226.02101,"730,00093-0956-01 ",.01)
 ;;00093-0956-01
 ;;9002226.02101,"730,00093-0956-01 ",.02)
 ;;00093-0956-01
 ;;9002226.02101,"730,00093-0958-01 ",.01)
 ;;00093-0958-01
 ;;9002226.02101,"730,00093-0958-01 ",.02)
 ;;00093-0958-01
 ;;9002226.02101,"730,00093-0960-01 ",.01)
 ;;00093-0960-01
 ;;9002226.02101,"730,00093-0960-01 ",.02)
 ;;00093-0960-01
 ;;9002226.02101,"730,00093-5268-01 ",.01)
 ;;00093-5268-01
 ;;9002226.02101,"730,00093-5268-01 ",.02)
 ;;00093-5268-01
 ;;9002226.02101,"730,00093-5269-01 ",.01)
 ;;00093-5269-01
 ;;9002226.02101,"730,00093-5269-01 ",.02)
 ;;00093-5269-01
 ;;9002226.02101,"730,00093-9612-12 ",.01)
 ;;00093-9612-12
 ;;9002226.02101,"730,00093-9612-12 ",.02)
 ;;00093-9612-12
 ;;9002226.02101,"730,00095-0240-01 ",.01)
 ;;00095-0240-01
 ;;9002226.02101,"730,00095-0240-01 ",.02)
 ;;00095-0240-01
 ;;9002226.02101,"730,00095-0240-05 ",.01)
 ;;00095-0240-05
 ;;9002226.02101,"730,00095-0240-05 ",.02)
 ;;00095-0240-05
 ;;9002226.02101,"730,00095-0950-05 ",.01)
 ;;00095-0950-05
 ;;9002226.02101,"730,00095-0950-05 ",.02)
 ;;00095-0950-05
 ;;9002226.02101,"730,00095-7075-01 ",.01)
 ;;00095-7075-01
 ;;9002226.02101,"730,00095-7075-01 ",.02)
 ;;00095-7075-01
 ;;9002226.02101,"730,00121-0531-05 ",.01)
 ;;00121-0531-05
 ;;9002226.02101,"730,00121-0531-05 ",.02)
 ;;00121-0531-05
 ;;9002226.02101,"730,00121-0531-07 ",.01)
 ;;00121-0531-07
 ;;9002226.02101,"730,00121-0531-07 ",.02)
 ;;00121-0531-07
 ;;9002226.02101,"730,00121-0531-15 ",.01)
 ;;00121-0531-15
 ;;9002226.02101,"730,00121-0531-15 ",.02)
 ;;00121-0531-15
 ;;9002226.02101,"730,00121-0531-16 ",.01)
 ;;00121-0531-16
 ;;9002226.02101,"730,00121-0531-16 ",.02)
 ;;00121-0531-16
 ;;9002226.02101,"730,00121-0532-04 ",.01)
 ;;00121-0532-04
 ;;9002226.02101,"730,00121-0532-04 ",.02)
 ;;00121-0532-04
 ;;9002226.02101,"730,00121-0532-05 ",.01)
 ;;00121-0532-05
 ;;9002226.02101,"730,00121-0532-05 ",.02)
 ;;00121-0532-05
 ;;9002226.02101,"730,00121-0532-16 ",.01)
 ;;00121-0532-16
 ;;9002226.02101,"730,00121-0532-16 ",.02)
 ;;00121-0532-16
 ;;9002226.02101,"730,00121-0661-04 ",.01)
 ;;00121-0661-04
 ;;9002226.02101,"730,00121-0661-04 ",.02)
 ;;00121-0661-04
 ;;9002226.02101,"730,00121-0662-04 ",.01)
 ;;00121-0662-04
 ;;9002226.02101,"730,00121-0662-04 ",.02)
 ;;00121-0662-04
 ;;9002226.02101,"730,00143-1115-01 ",.01)
 ;;00143-1115-01
 ;;9002226.02101,"730,00143-1115-01 ",.02)
 ;;00143-1115-01
 ;;9002226.02101,"730,00143-1115-05 ",.01)
 ;;00143-1115-05
 ;;9002226.02101,"730,00143-1115-05 ",.02)
 ;;00143-1115-05
 ;;9002226.02101,"730,00143-1140-10 ",.01)
 ;;00143-1140-10
 ;;9002226.02101,"730,00143-1140-10 ",.02)
 ;;00143-1140-10
 ;;9002226.02101,"730,00143-1140-51 ",.01)
 ;;00143-1140-51
 ;;9002226.02101,"730,00143-1140-51 ",.02)
 ;;00143-1140-51
 ;;9002226.02101,"730,00143-1445-05 ",.01)
 ;;00143-1445-05
 ;;9002226.02101,"730,00143-1445-05 ",.02)
 ;;00143-1445-05
 ;;9002226.02101,"730,00143-1445-10 ",.01)
 ;;00143-1445-10
 ;;9002226.02101,"730,00143-1445-10 ",.02)
 ;;00143-1445-10
 ;;9002226.02101,"730,00143-1450-05 ",.01)
 ;;00143-1450-05
 ;;9002226.02101,"730,00143-1450-05 ",.02)
 ;;00143-1450-05
 ;;9002226.02101,"730,00143-1450-10 ",.01)
 ;;00143-1450-10
 ;;9002226.02101,"730,00143-1450-10 ",.02)
 ;;00143-1450-10
 ;;9002226.02101,"730,00143-1455-05 ",.01)
 ;;00143-1455-05
 ;;9002226.02101,"730,00143-1455-05 ",.02)
 ;;00143-1455-05
 ;;9002226.02101,"730,00143-1455-10 ",.01)
 ;;00143-1455-10
 ;;9002226.02101,"730,00143-1455-10 ",.02)
 ;;00143-1455-10
 ;;9002226.02101,"730,00143-1458-01 ",.01)
 ;;00143-1458-01
 ;;9002226.02101,"730,00143-1458-01 ",.02)
 ;;00143-1458-01
 ;;9002226.02101,"730,00143-1458-05 ",.01)
 ;;00143-1458-05
 ;;9002226.02101,"730,00143-1458-05 ",.02)
 ;;00143-1458-05
 ;;9002226.02101,"730,00143-1458-10 ",.01)
 ;;00143-1458-10
 ;;9002226.02101,"730,00143-1458-10 ",.02)
 ;;00143-1458-10
 ;;9002226.02101,"730,00143-1785-01 ",.01)
 ;;00143-1785-01
 ;;9002226.02101,"730,00143-1785-01 ",.02)
 ;;00143-1785-01
 ;;9002226.02101,"730,00143-1785-10 ",.01)
 ;;00143-1785-10
 ;;9002226.02101,"730,00143-1785-10 ",.02)
 ;;00143-1785-10
 ;;9002226.02101,"730,00143-1785-30 ",.01)
 ;;00143-1785-30
 ;;9002226.02101,"730,00143-1785-30 ",.02)
 ;;00143-1785-30
 ;;9002226.02101,"730,00143-1787-01 ",.01)
 ;;00143-1787-01
 ;;9002226.02101,"730,00143-1787-01 ",.02)
 ;;00143-1787-01
 ;;9002226.02101,"730,00143-1787-05 ",.01)
 ;;00143-1787-05
 ;;9002226.02101,"730,00143-1787-05 ",.02)
 ;;00143-1787-05
 ;;9002226.02101,"730,00143-3000-01 ",.01)
 ;;00143-3000-01
 ;;9002226.02101,"730,00143-3000-01 ",.02)
 ;;00143-3000-01
 ;;9002226.02101,"730,00143-3909-01 ",.01)
 ;;00143-3909-01
 ;;9002226.02101,"730,00143-3909-01 ",.02)
 ;;00143-3909-01
 ;;9002226.02101,"730,00143-3910-01 ",.01)
 ;;00143-3910-01
 ;;9002226.02101,"730,00143-3910-01 ",.02)
 ;;00143-3910-01
 ;;9002226.02101,"730,00172-2959-60 ",.01)
 ;;00172-2959-60
 ;;9002226.02101,"730,00172-2959-60 ",.02)
 ;;00172-2959-60
 ;;9002226.02101,"730,00182-0314-40 ",.01)
 ;;00182-0314-40
 ;;9002226.02101,"730,00182-0314-40 ",.02)
 ;;00182-0314-40
 ;;9002226.02101,"730,00182-0686-40 ",.01)
 ;;00182-0686-40
 ;;9002226.02101,"730,00182-0686-40 ",.02)
 ;;00182-0686-40
 ;;9002226.02101,"730,00182-1018-89 ",.01)
 ;;00182-1018-89
 ;;9002226.02101,"730,00182-1018-89 ",.02)
 ;;00182-1018-89
 ;;9002226.02101,"730,00182-1019-10 ",.01)
 ;;00182-1019-10
 ;;9002226.02101,"730,00182-1019-10 ",.02)
 ;;00182-1019-10
 ;;9002226.02101,"730,00182-1019-89 ",.01)
 ;;00182-1019-89
 ;;9002226.02101,"730,00182-1019-89 ",.02)
 ;;00182-1019-89
 ;;9002226.02101,"730,00182-1020-89 ",.01)
 ;;00182-1020-89
 ;;9002226.02101,"730,00182-1020-89 ",.02)
 ;;00182-1020-89
 ;;9002226.02101,"730,00182-1021-89 ",.01)
 ;;00182-1021-89
 ;;9002226.02101,"730,00182-1021-89 ",.02)
 ;;00182-1021-89
 ;;9002226.02101,"730,00182-1063-89 ",.01)
 ;;00182-1063-89
 ;;9002226.02101,"730,00182-1063-89 ",.02)
 ;;00182-1063-89
 ;;9002226.02101,"730,00182-1631-01 ",.01)
 ;;00182-1631-01
 ;;9002226.02101,"730,00182-1631-01 ",.02)
 ;;00182-1631-01
 ;;9002226.02101,"730,00182-2659-01 ",.01)
 ;;00182-2659-01
 ;;9002226.02101,"730,00182-2659-01 ",.02)
 ;;00182-2659-01
 ;;9002226.02101,"730,00182-2659-05 ",.01)
 ;;00182-2659-05
 ;;9002226.02101,"730,00182-2659-05 ",.02)
 ;;00182-2659-05
 ;;9002226.02101,"730,00182-2693-01 ",.01)
 ;;00182-2693-01
 ;;9002226.02101,"730,00182-2693-01 ",.02)
 ;;00182-2693-01
 ;;9002226.02101,"730,00182-2694-01 ",.01)
 ;;00182-2694-01
 ;;9002226.02101,"730,00182-2694-01 ",.02)
 ;;00182-2694-01
 ;;9002226.02101,"730,00185-0716-10 ",.01)
 ;;00185-0716-10
 ;;9002226.02101,"730,00185-0716-10 ",.02)
 ;;00185-0716-10
 ;;9002226.02101,"730,00185-0717-01 ",.01)
 ;;00185-0717-01
 ;;9002226.02101,"730,00185-0717-01 ",.02)
 ;;00185-0717-01
 ;;9002226.02101,"730,00185-0717-10 ",.01)
 ;;00185-0717-10
 ;;9002226.02101,"730,00185-0717-10 ",.02)
 ;;00185-0717-10
 ;;9002226.02101,"730,00187-0842-01 ",.01)
 ;;00187-0842-01
 ;;9002226.02101,"730,00187-0842-01 ",.02)
 ;;00187-0842-01
 ;;9002226.02101,"730,00187-0843-01 ",.01)
 ;;00187-0843-01
 ;;9002226.02101,"730,00187-0843-01 ",.02)
 ;;00187-0843-01
 ;;9002226.02101,"730,00187-0844-01 ",.01)
 ;;00187-0844-01
 ;;9002226.02101,"730,00187-0844-01 ",.02)
 ;;00187-0844-01
 ;;9002226.02101,"730,00187-0844-02 ",.01)
 ;;00187-0844-02
 ;;9002226.02101,"730,00187-0844-02 ",.02)
 ;;00187-0844-02
 ;;9002226.02101,"730,00187-3805-10 ",.01)
 ;;00187-3805-10
 ;;9002226.02101,"730,00187-3805-10 ",.02)
 ;;00187-3805-10
 ;;9002226.02101,"730,00187-3806-10 ",.01)
 ;;00187-3806-10
 ;;9002226.02101,"730,00187-3806-10 ",.02)
 ;;00187-3806-10
 ;;9002226.02101,"730,00228-2023-10 ",.01)
 ;;00228-2023-10
 ;;9002226.02101,"730,00228-2023-10 ",.02)
 ;;00228-2023-10
 ;;9002226.02101,"730,00228-2023-96 ",.01)
 ;;00228-2023-96
 ;;9002226.02101,"730,00228-2023-96 ",.02)
 ;;00228-2023-96
 ;;9002226.02101,"730,00228-2026-96 ",.01)
 ;;00228-2026-96
 ;;9002226.02101,"730,00228-2026-96 ",.02)
 ;;00228-2026-96
 ;;9002226.02101,"730,00228-2028-96 ",.01)
 ;;00228-2028-96
 ;;9002226.02101,"730,00228-2028-96 ",.02)
 ;;00228-2028-96
 ;;9002226.02101,"730,00228-2888-10 ",.01)
 ;;00228-2888-10
 ;;9002226.02101,"730,00228-2888-10 ",.02)
 ;;00228-2888-10
 ;;9002226.02101,"730,00228-2888-50 ",.01)
 ;;00228-2888-50
 ;;9002226.02101,"730,00228-2888-50 ",.02)
 ;;00228-2888-50
 ;;9002226.02101,"730,00228-2889-10 ",.01)
 ;;00228-2889-10
 ;;9002226.02101,"730,00228-2889-10 ",.02)
 ;;00228-2889-10
 ;;9002226.02101,"730,00228-2889-50 ",.01)
 ;;00228-2889-50
 ;;9002226.02101,"730,00228-2889-50 ",.02)
 ;;00228-2889-50
 ;;9002226.02101,"730,00228-3481-11 ",.01)
 ;;00228-3481-11
 ;;9002226.02101,"730,00228-3481-11 ",.02)
 ;;00228-3481-11
 ;;9002226.02101,"730,00228-3481-50 ",.01)
 ;;00228-3481-50
 ;;9002226.02101,"730,00228-3481-50 ",.02)
 ;;00228-3481-50
 ;;9002226.02101,"730,00228-3482-11 ",.01)
 ;;00228-3482-11
 ;;9002226.02101,"730,00228-3482-11 ",.02)
 ;;00228-3482-11
 ;;9002226.02101,"730,00228-3482-50 ",.01)
 ;;00228-3482-50
 ;;9002226.02101,"730,00228-3482-50 ",.02)
 ;;00228-3482-50
 ;;9002226.02101,"730,00247-0138-04 ",.01)
 ;;00247-0138-04
 ;;9002226.02101,"730,00247-0138-04 ",.02)
 ;;00247-0138-04
 ;;9002226.02101,"730,00247-0138-08 ",.01)
 ;;00247-0138-08
 ;;9002226.02101,"730,00247-0138-08 ",.02)
 ;;00247-0138-08
 ;;9002226.02101,"730,00247-0138-10 ",.01)
 ;;00247-0138-10
 ;;9002226.02101,"730,00247-0138-10 ",.02)
 ;;00247-0138-10
 ;;9002226.02101,"730,00247-0138-12 ",.01)
 ;;00247-0138-12
 ;;9002226.02101,"730,00247-0138-12 ",.02)
 ;;00247-0138-12
 ;;9002226.02101,"730,00247-0138-15 ",.01)
 ;;00247-0138-15
 ;;9002226.02101,"730,00247-0138-15 ",.02)
 ;;00247-0138-15
 ;;9002226.02101,"730,00247-0138-16 ",.01)
 ;;00247-0138-16
 ;;9002226.02101,"730,00247-0138-16 ",.02)
 ;;00247-0138-16
 ;;9002226.02101,"730,00247-0138-20 ",.01)
 ;;00247-0138-20
 ;;9002226.02101,"730,00247-0138-20 ",.02)
 ;;00247-0138-20
 ;;9002226.02101,"730,00247-0138-24 ",.01)
 ;;00247-0138-24
 ;;9002226.02101,"730,00247-0138-24 ",.02)
 ;;00247-0138-24
 ;;9002226.02101,"730,00247-0138-28 ",.01)
 ;;00247-0138-28
 ;;9002226.02101,"730,00247-0138-28 ",.02)
 ;;00247-0138-28
 ;;9002226.02101,"730,00247-0138-30 ",.01)
 ;;00247-0138-30
 ;;9002226.02101,"730,00247-0138-30 ",.02)
 ;;00247-0138-30
 ;;9002226.02101,"730,00247-0138-40 ",.01)
 ;;00247-0138-40
 ;;9002226.02101,"730,00247-0138-40 ",.02)
 ;;00247-0138-40
 ;;9002226.02101,"730,00247-0185-05 ",.01)
 ;;00247-0185-05
 ;;9002226.02101,"730,00247-0185-05 ",.02)
 ;;00247-0185-05
 ;;9002226.02101,"730,00247-0185-10 ",.01)
 ;;00247-0185-10
 ;;9002226.02101,"730,00247-0185-10 ",.02)
 ;;00247-0185-10
 ;;9002226.02101,"730,00247-0185-12 ",.01)
 ;;00247-0185-12
 ;;9002226.02101,"730,00247-0185-12 ",.02)
 ;;00247-0185-12
 ;;9002226.02101,"730,00247-0185-20 ",.01)
 ;;00247-0185-20
 ;;9002226.02101,"730,00247-0185-20 ",.02)
 ;;00247-0185-20
 ;;9002226.02101,"730,00247-0185-24 ",.01)
 ;;00247-0185-24