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

BGP8FXPC.m

Go to the documentation of this file.
BGP8FXPC ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 28, 2007 ;
 ;;8.0;IHS CLINICAL REPORTING;;MAR 12, 2008
 ;;;BGP6;;SEP 28, 2007
 ;
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,"657,00085-0806-81 ",.01)
 ;;00085-0806-81
 ;;9002226.02101,"657,00085-0806-81 ",.02)
 ;;00085-0806-81
 ;;9002226.02101,"657,00085-0814-01 ",.01)
 ;;00085-0814-01
 ;;9002226.02101,"657,00085-0814-01 ",.02)
 ;;00085-0814-01
 ;;9002226.02101,"657,00085-0933-01 ",.01)
 ;;00085-0933-01
 ;;9002226.02101,"657,00085-0933-01 ",.02)
 ;;00085-0933-01
 ;;9002226.02101,"657,00085-0933-05 ",.01)
 ;;00085-0933-05
 ;;9002226.02101,"657,00085-0933-05 ",.02)
 ;;00085-0933-05
 ;;9002226.02101,"657,00085-0933-10 ",.01)
 ;;00085-0933-10
 ;;9002226.02101,"657,00085-0933-10 ",.02)
 ;;00085-0933-10
 ;;9002226.02101,"657,00085-0933-50 ",.01)
 ;;00085-0933-50
 ;;9002226.02101,"657,00085-0933-50 ",.02)
 ;;00085-0933-50
 ;;9002226.02101,"657,00085-0933-81 ",.01)
 ;;00085-0933-81
 ;;9002226.02101,"657,00085-0933-81 ",.02)
 ;;00085-0933-81
 ;;9002226.02101,"657,00085-1112-01 ",.01)
 ;;00085-1112-01
 ;;9002226.02101,"657,00085-1112-01 ",.02)
 ;;00085-1112-01
 ;;9002226.02101,"657,00085-1112-03 ",.01)
 ;;00085-1112-03
 ;;9002226.02101,"657,00085-1112-03 ",.02)
 ;;00085-1112-03
 ;;9002226.02101,"657,00085-1341-01 ",.01)
 ;;00085-1341-01
 ;;9002226.02101,"657,00085-1341-01 ",.02)
 ;;00085-1341-01
 ;;9002226.02101,"657,00085-1341-02 ",.01)
 ;;00085-1341-02
 ;;9002226.02101,"657,00085-1341-02 ",.02)
 ;;00085-1341-02
 ;;9002226.02101,"657,00085-1341-03 ",.01)
 ;;00085-1341-03
 ;;9002226.02101,"657,00085-1341-03 ",.02)
 ;;00085-1341-03
 ;;9002226.02101,"657,00085-1341-04 ",.01)
 ;;00085-1341-04
 ;;9002226.02101,"657,00085-1341-04 ",.02)
 ;;00085-1341-04
 ;;9002226.02101,"657,00086-0031-10 ",.01)
 ;;00086-0031-10
 ;;9002226.02101,"657,00086-0031-10 ",.02)
 ;;00086-0031-10
 ;;9002226.02101,"657,00086-0031-50 ",.01)
 ;;00086-0031-50
 ;;9002226.02101,"657,00086-0031-50 ",.02)
 ;;00086-0031-50
 ;;9002226.02101,"657,00086-0032-10 ",.01)
 ;;00086-0032-10
 ;;9002226.02101,"657,00086-0032-10 ",.02)
 ;;00086-0032-10
 ;;9002226.02101,"657,00086-0032-50 ",.01)
 ;;00086-0032-50
 ;;9002226.02101,"657,00086-0032-50 ",.02)
 ;;00086-0032-50
 ;;9002226.02101,"657,00086-0032-90 ",.01)
 ;;00086-0032-90
 ;;9002226.02101,"657,00086-0032-90 ",.02)
 ;;00086-0032-90
 ;;9002226.02101,"657,00086-0033-10 ",.01)
 ;;00086-0033-10
 ;;9002226.02101,"657,00086-0033-10 ",.02)
 ;;00086-0033-10
 ;;9002226.02101,"657,00086-0033-50 ",.01)
 ;;00086-0033-50
 ;;9002226.02101,"657,00086-0033-50 ",.02)
 ;;00086-0033-50
 ;;9002226.02101,"657,00086-0033-90 ",.01)
 ;;00086-0033-90
 ;;9002226.02101,"657,00086-0033-90 ",.02)
 ;;00086-0033-90
 ;;9002226.02101,"657,00089-0175-40 ",.01)
 ;;00089-0175-40
 ;;9002226.02101,"657,00089-0175-40 ",.02)
 ;;00089-0175-40
 ;;9002226.02101,"657,00089-0177-80 ",.01)
 ;;00089-0177-80
 ;;9002226.02101,"657,00089-0177-80 ",.02)
 ;;00089-0177-80
 ;;9002226.02101,"657,00089-0341-80 ",.01)
 ;;00089-0341-80
 ;;9002226.02101,"657,00089-0341-80 ",.02)
 ;;00089-0341-80
 ;;9002226.02101,"657,00089-0342-10 ",.01)
 ;;00089-0342-10
 ;;9002226.02101,"657,00089-0342-10 ",.02)
 ;;00089-0342-10
 ;;9002226.02101,"657,00089-0343-10 ",.01)
 ;;00089-0343-10
 ;;9002226.02101,"657,00089-0343-10 ",.02)
 ;;00089-0343-10
 ;;9002226.02101,"657,00089-0344-10 ",.01)
 ;;00089-0344-10
 ;;9002226.02101,"657,00089-0344-10 ",.02)
 ;;00089-0344-10
 ;;9002226.02101,"657,00089-0347-10 ",.01)
 ;;00089-0347-10
 ;;9002226.02101,"657,00089-0347-10 ",.02)
 ;;00089-0347-10
 ;;9002226.02101,"657,00089-0740-21 ",.01)
 ;;00089-0740-21
 ;;9002226.02101,"657,00089-0740-21 ",.02)
 ;;00089-0740-21
 ;;9002226.02101,"657,00089-0741-21 ",.01)
 ;;00089-0741-21
 ;;9002226.02101,"657,00089-0741-21 ",.02)
 ;;00089-0741-21
 ;;9002226.02101,"657,00093-0934-01 ",.01)
 ;;00093-0934-01
 ;;9002226.02101,"657,00093-0934-01 ",.02)
 ;;00093-0934-01
 ;;9002226.02101,"657,00093-0936-01 ",.01)
 ;;00093-0936-01
 ;;9002226.02101,"657,00093-0936-01 ",.02)
 ;;00093-0936-01
 ;;9002226.02101,"657,00115-2150-01 ",.01)
 ;;00115-2150-01
 ;;9002226.02101,"657,00115-2150-01 ",.02)
 ;;00115-2150-01
 ;;9002226.02101,"657,00115-2150-03 ",.01)
 ;;00115-2150-03
 ;;9002226.02101,"657,00115-2150-03 ",.02)
 ;;00115-2150-03
 ;;9002226.02101,"657,00143-1020-01 ",.01)
 ;;00143-1020-01
 ;;9002226.02101,"657,00143-1020-01 ",.02)
 ;;00143-1020-01
 ;;9002226.02101,"657,00143-1020-10 ",.01)
 ;;00143-1020-10
 ;;9002226.02101,"657,00143-1020-10 ",.02)
 ;;00143-1020-10
 ;;9002226.02101,"657,00143-1025-01 ",.01)
 ;;00143-1025-01
 ;;9002226.02101,"657,00143-1025-01 ",.02)
 ;;00143-1025-01
 ;;9002226.02101,"657,00143-1025-10 ",.01)
 ;;00143-1025-10
 ;;9002226.02101,"657,00143-1025-10 ",.02)
 ;;00143-1025-10
 ;;9002226.02101,"657,00172-6406-49 ",.01)
 ;;00172-6406-49
 ;;9002226.02101,"657,00172-6406-49 ",.02)
 ;;00172-6406-49
 ;;9002226.02101,"657,00172-6406-59 ",.01)
 ;;00172-6406-59
 ;;9002226.02101,"657,00172-6406-59 ",.02)
 ;;00172-6406-59
 ;;9002226.02101,"657,00173-0312-88 ",.01)
 ;;00173-0312-88
 ;;9002226.02101,"657,00173-0312-88 ",.02)
 ;;00173-0312-88
 ;;9002226.02101,"657,00173-0469-00 ",.01)
 ;;00173-0469-00
 ;;9002226.02101,"657,00173-0469-00 ",.02)
 ;;00173-0469-00
 ;;9002226.02101,"657,00173-0491-00 ",.01)
 ;;00173-0491-00
 ;;9002226.02101,"657,00173-0491-00 ",.02)
 ;;00173-0491-00
 ;;9002226.02101,"657,00173-0494-00 ",.01)
 ;;00173-0494-00
 ;;9002226.02101,"657,00173-0494-00 ",.02)
 ;;00173-0494-00
 ;;9002226.02101,"657,00173-0495-00 ",.01)
 ;;00173-0495-00
 ;;9002226.02101,"657,00173-0495-00 ",.02)
 ;;00173-0495-00
 ;;9002226.02101,"657,00173-0497-00 ",.01)
 ;;00173-0497-00
 ;;9002226.02101,"657,00173-0497-00 ",.02)
 ;;00173-0497-00
 ;;9002226.02101,"657,00173-0498-00 ",.01)
 ;;00173-0498-00
 ;;9002226.02101,"657,00173-0498-00 ",.02)
 ;;00173-0498-00
 ;;9002226.02101,"657,00173-0499-00 ",.01)
 ;;00173-0499-00
 ;;9002226.02101,"657,00173-0499-00 ",.02)
 ;;00173-0499-00
 ;;9002226.02101,"657,00173-0504-00 ",.01)
 ;;00173-0504-00
 ;;9002226.02101,"657,00173-0504-00 ",.02)
 ;;00173-0504-00
 ;;9002226.02101,"657,00173-0509-00 ",.01)
 ;;00173-0509-00
 ;;9002226.02101,"657,00173-0509-00 ",.02)
 ;;00173-0509-00
 ;;9002226.02101,"657,00173-0511-00 ",.01)
 ;;00173-0511-00
 ;;9002226.02101,"657,00173-0511-00 ",.02)
 ;;00173-0511-00
 ;;9002226.02101,"657,00173-0695-00 ",.01)
 ;;00173-0695-00
 ;;9002226.02101,"657,00173-0695-00 ",.02)
 ;;00173-0695-00
 ;;9002226.02101,"657,00173-0695-02 ",.01)
 ;;00173-0695-02
 ;;9002226.02101,"657,00173-0695-02 ",.02)
 ;;00173-0695-02
 ;;9002226.02101,"657,00173-0696-00 ",.01)
 ;;00173-0696-00
 ;;9002226.02101,"657,00173-0696-00 ",.02)
 ;;00173-0696-00
 ;;9002226.02101,"657,00173-0696-02 ",.01)
 ;;00173-0696-02
 ;;9002226.02101,"657,00173-0696-02 ",.02)
 ;;00173-0696-02
 ;;9002226.02101,"657,00173-0697-00 ",.01)
 ;;00173-0697-00
 ;;9002226.02101,"657,00173-0697-00 ",.02)
 ;;00173-0697-00
 ;;9002226.02101,"657,00173-0697-02 ",.01)
 ;;00173-0697-02
 ;;9002226.02101,"657,00173-0697-02 ",.02)
 ;;00173-0697-02
 ;;9002226.02101,"657,00173-0718-00 ",.01)
 ;;00173-0718-00
 ;;9002226.02101,"657,00173-0718-00 ",.02)
 ;;00173-0718-00
 ;;9002226.02101,"657,00173-0719-00 ",.01)
 ;;00173-0719-00
 ;;9002226.02101,"657,00173-0719-00 ",.02)
 ;;00173-0719-00
 ;;9002226.02101,"657,00173-0720-00 ",.01)
 ;;00173-0720-00
 ;;9002226.02101,"657,00173-0720-00 ",.02)
 ;;00173-0720-00
 ;;9002226.02101,"657,00182-0226-41 ",.01)
 ;;00182-0226-41
 ;;9002226.02101,"657,00182-0226-41 ",.02)
 ;;00182-0226-41
 ;;9002226.02101,"657,00182-1400-05 ",.01)
 ;;00182-1400-05
 ;;9002226.02101,"657,00182-1400-05 ",.02)
 ;;00182-1400-05
 ;;9002226.02101,"657,00182-1400-10 ",.01)
 ;;00182-1400-10
 ;;9002226.02101,"657,00182-1400-10 ",.02)
 ;;00182-1400-10
 ;;9002226.02101,"657,00182-1400-89 ",.01)
 ;;00182-1400-89
 ;;9002226.02101,"657,00182-1400-89 ",.02)
 ;;00182-1400-89
 ;;9002226.02101,"657,00182-1589-01 ",.01)
 ;;00182-1589-01
 ;;9002226.02101,"657,00182-1589-01 ",.02)
 ;;00182-1589-01
 ;;9002226.02101,"657,00182-1589-89 ",.01)
 ;;00182-1589-89
 ;;9002226.02101,"657,00182-1589-89 ",.02)
 ;;00182-1589-89
 ;;9002226.02101,"657,00182-1590-01 ",.01)
 ;;00182-1590-01
 ;;9002226.02101,"657,00182-1590-01 ",.02)
 ;;00182-1590-01
 ;;9002226.02101,"657,00182-1590-10 ",.01)
 ;;00182-1590-10
 ;;9002226.02101,"657,00182-1590-10 ",.02)
 ;;00182-1590-10
 ;;9002226.02101,"657,00182-1590-89 ",.01)
 ;;00182-1590-89
 ;;9002226.02101,"657,00182-1590-89 ",.02)
 ;;00182-1590-89
 ;;9002226.02101,"657,00186-0915-42 ",.01)
 ;;00186-0915-42
 ;;9002226.02101,"657,00186-0915-42 ",.02)
 ;;00186-0915-42
 ;;9002226.02101,"657,00186-1988-04 ",.01)
 ;;00186-1988-04
 ;;9002226.02101,"657,00186-1988-04 ",.02)
 ;;00186-1988-04
 ;;9002226.02101,"657,00186-1989-04 ",.01)
 ;;00186-1989-04
 ;;9002226.02101,"657,00186-1989-04 ",.02)
 ;;00186-1989-04
 ;;9002226.02101,"657,00223-0100-01 ",.01)
 ;;00223-0100-01
 ;;9002226.02101,"657,00223-0100-01 ",.02)
 ;;00223-0100-01
 ;;9002226.02101,"657,00223-0100-02 ",.01)
 ;;00223-0100-02
 ;;9002226.02101,"657,00223-0100-02 ",.02)
 ;;00223-0100-02
 ;;9002226.02101,"657,00223-0102-01 ",.01)
 ;;00223-0102-01
 ;;9002226.02101,"657,00223-0102-01 ",.02)
 ;;00223-0102-01
 ;;9002226.02101,"657,00223-0102-02 ",.01)
 ;;00223-0102-02
 ;;9002226.02101,"657,00223-0102-02 ",.02)
 ;;00223-0102-02
 ;;9002226.02101,"657,00223-6205-08 ",.01)
 ;;00223-6205-08
 ;;9002226.02101,"657,00223-6205-08 ",.02)
 ;;00223-6205-08
 ;;9002226.02101,"657,00223-6623-01 ",.01)
 ;;00223-6623-01
 ;;9002226.02101,"657,00223-6623-01 ",.02)
 ;;00223-6623-01
 ;;9002226.02101,"657,00247-0061-02 ",.01)
 ;;00247-0061-02
 ;;9002226.02101,"657,00247-0061-02 ",.02)
 ;;00247-0061-02
 ;;9002226.02101,"657,00247-0061-08 ",.01)
 ;;00247-0061-08
 ;;9002226.02101,"657,00247-0061-08 ",.02)
 ;;00247-0061-08
 ;;9002226.02101,"657,00247-0061-20 ",.01)
 ;;00247-0061-20
 ;;9002226.02101,"657,00247-0061-20 ",.02)
 ;;00247-0061-20
 ;;9002226.02101,"657,00247-0061-30 ",.01)
 ;;00247-0061-30
 ;;9002226.02101,"657,00247-0061-30 ",.02)
 ;;00247-0061-30
 ;;9002226.02101,"657,00247-0061-50 ",.01)
 ;;00247-0061-50
 ;;9002226.02101,"657,00247-0061-50 ",.02)
 ;;00247-0061-50
 ;;9002226.02101,"657,00247-0061-60 ",.01)
 ;;00247-0061-60
 ;;9002226.02101,"657,00247-0061-60 ",.02)
 ;;00247-0061-60
 ;;9002226.02101,"657,00247-0061-90 ",.01)
 ;;00247-0061-90
 ;;9002226.02101,"657,00247-0061-90 ",.02)
 ;;00247-0061-90
 ;;9002226.02101,"657,00247-0070-00 ",.01)
 ;;00247-0070-00
 ;;9002226.02101,"657,00247-0070-00 ",.02)
 ;;00247-0070-00
 ;;9002226.02101,"657,00247-0070-02 ",.01)
 ;;00247-0070-02
 ;;9002226.02101,"657,00247-0070-02 ",.02)
 ;;00247-0070-02
 ;;9002226.02101,"657,00247-0070-09 ",.01)
 ;;00247-0070-09
 ;;9002226.02101,"657,00247-0070-09 ",.02)
 ;;00247-0070-09
 ;;9002226.02101,"657,00247-0070-10 ",.01)
 ;;00247-0070-10
 ;;9002226.02101,"657,00247-0070-10 ",.02)
 ;;00247-0070-10
 ;;9002226.02101,"657,00247-0070-12 ",.01)
 ;;00247-0070-12
 ;;9002226.02101,"657,00247-0070-12 ",.02)
 ;;00247-0070-12
 ;;9002226.02101,"657,00247-0070-20 ",.01)
 ;;00247-0070-20
 ;;9002226.02101,"657,00247-0070-20 ",.02)
 ;;00247-0070-20
 ;;9002226.02101,"657,00247-0070-30 ",.01)
 ;;00247-0070-30
 ;;9002226.02101,"657,00247-0070-30 ",.02)
 ;;00247-0070-30
 ;;9002226.02101,"657,00247-0070-50 ",.01)
 ;;00247-0070-50
 ;;9002226.02101,"657,00247-0070-50 ",.02)
 ;;00247-0070-50
 ;;9002226.02101,"657,00247-0070-52 ",.01)
 ;;00247-0070-52
 ;;9002226.02101,"657,00247-0070-52 ",.02)
 ;;00247-0070-52
 ;;9002226.02101,"657,00247-0070-60 ",.01)
 ;;00247-0070-60
 ;;9002226.02101,"657,00247-0070-60 ",.02)
 ;;00247-0070-60
 ;;9002226.02101,"657,00247-0070-90 ",.01)
 ;;00247-0070-90
 ;;9002226.02101,"657,00247-0070-90 ",.02)
 ;;00247-0070-90
 ;;9002226.02101,"657,00247-0177-00 ",.01)
 ;;00247-0177-00
 ;;9002226.02101,"657,00247-0177-00 ",.02)
 ;;00247-0177-00
 ;;9002226.02101,"657,00247-0177-02 ",.01)
 ;;00247-0177-02
 ;;9002226.02101,"657,00247-0177-02 ",.02)
 ;;00247-0177-02
 ;;9002226.02101,"657,00247-0177-03 ",.01)
 ;;00247-0177-03
 ;;9002226.02101,"657,00247-0177-03 ",.02)
 ;;00247-0177-03
 ;;9002226.02101,"657,00247-0177-04 ",.01)
 ;;00247-0177-04
 ;;9002226.02101,"657,00247-0177-04 ",.02)
 ;;00247-0177-04
 ;;9002226.02101,"657,00247-0177-06 ",.01)
 ;;00247-0177-06
 ;;9002226.02101,"657,00247-0177-06 ",.02)
 ;;00247-0177-06
 ;;9002226.02101,"657,00247-0177-10 ",.01)
 ;;00247-0177-10
 ;;9002226.02101,"657,00247-0177-10 ",.02)
 ;;00247-0177-10
 ;;9002226.02101,"657,00247-0177-14 ",.01)
 ;;00247-0177-14
 ;;9002226.02101,"657,00247-0177-14 ",.02)
 ;;00247-0177-14
 ;;9002226.02101,"657,00247-0177-20 ",.01)
 ;;00247-0177-20
 ;;9002226.02101,"657,00247-0177-20 ",.02)
 ;;00247-0177-20
 ;;9002226.02101,"657,00247-0177-30 ",.01)
 ;;00247-0177-30
 ;;9002226.02101,"657,00247-0177-30 ",.02)
 ;;00247-0177-30
 ;;9002226.02101,"657,00247-0177-60 ",.01)
 ;;00247-0177-60
 ;;9002226.02101,"657,00247-0177-60 ",.02)
 ;;00247-0177-60
 ;;9002226.02101,"657,00247-0190-20 ",.01)
 ;;00247-0190-20
 ;;9002226.02101,"657,00247-0190-20 ",.02)
 ;;00247-0190-20
 ;;9002226.02101,"657,00247-0308-52 ",.01)
 ;;00247-0308-52
 ;;9002226.02101,"657,00247-0308-52 ",.02)
 ;;00247-0308-52
 ;;9002226.02101,"657,00247-0667-08 ",.01)
 ;;00247-0667-08
 ;;9002226.02101,"657,00247-0667-08 ",.02)
 ;;00247-0667-08
 ;;9002226.02101,"657,00247-0674-41 ",.01)
 ;;00247-0674-41
 ;;9002226.02101,"657,00247-0674-41 ",.02)
 ;;00247-0674-41
 ;;9002226.02101,"657,00256-0150-01 ",.01)
 ;;00256-0150-01
 ;;9002226.02101,"657,00256-0150-01 ",.02)
 ;;00256-0150-01
 ;;9002226.02101,"657,00258-3581-01 ",.01)
 ;;00258-3581-01