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

BGP0ZD15.m

Go to the documentation of this file.
BGP0ZD15 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
 ;
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,"976,51079-0597-19 ",.02)
 ;;51079-0597-19
 ;;9002226.02101,"976,51079-0597-20 ",.01)
 ;;51079-0597-20
 ;;9002226.02101,"976,51079-0597-20 ",.02)
 ;;51079-0597-20
 ;;9002226.02101,"976,51079-0666-20 ",.01)
 ;;51079-0666-20
 ;;9002226.02101,"976,51079-0666-20 ",.02)
 ;;51079-0666-20
 ;;9002226.02101,"976,51079-0667-20 ",.01)
 ;;51079-0667-20
 ;;9002226.02101,"976,51079-0667-20 ",.02)
 ;;51079-0667-20
 ;;9002226.02101,"976,51079-0742-20 ",.01)
 ;;51079-0742-20
 ;;9002226.02101,"976,51079-0742-20 ",.02)
 ;;51079-0742-20
 ;;9002226.02101,"976,51079-0743-20 ",.01)
 ;;51079-0743-20
 ;;9002226.02101,"976,51079-0743-20 ",.02)
 ;;51079-0743-20
 ;;9002226.02101,"976,51079-0793-19 ",.01)
 ;;51079-0793-19
 ;;9002226.02101,"976,51079-0793-19 ",.02)
 ;;51079-0793-19
 ;;9002226.02101,"976,51079-0793-20 ",.01)
 ;;51079-0793-20
 ;;9002226.02101,"976,51079-0793-20 ",.02)
 ;;51079-0793-20
 ;;9002226.02101,"976,51079-0794-20 ",.01)
 ;;51079-0794-20
 ;;9002226.02101,"976,51079-0794-20 ",.02)
 ;;51079-0794-20
 ;;9002226.02101,"976,51079-0795-20 ",.01)
 ;;51079-0795-20
 ;;9002226.02101,"976,51079-0795-20 ",.02)
 ;;51079-0795-20
 ;;9002226.02101,"976,51079-0815-20 ",.01)
 ;;51079-0815-20
 ;;9002226.02101,"976,51079-0815-20 ",.02)
 ;;51079-0815-20
 ;;9002226.02101,"976,51079-0989-20 ",.01)
 ;;51079-0989-20
 ;;9002226.02101,"976,51079-0989-20 ",.02)
 ;;51079-0989-20
 ;;9002226.02101,"976,51552-0198-03 ",.01)
 ;;51552-0198-03
 ;;9002226.02101,"976,51552-0198-03 ",.02)
 ;;51552-0198-03
 ;;9002226.02101,"976,51552-0198-09 ",.01)
 ;;51552-0198-09
 ;;9002226.02101,"976,51552-0198-09 ",.02)
 ;;51552-0198-09
 ;;9002226.02101,"976,51552-0262-02 ",.01)
 ;;51552-0262-02
 ;;9002226.02101,"976,51552-0262-02 ",.02)
 ;;51552-0262-02
 ;;9002226.02101,"976,51552-0262-04 ",.01)
 ;;51552-0262-04
 ;;9002226.02101,"976,51552-0262-04 ",.02)
 ;;51552-0262-04
 ;;9002226.02101,"976,51552-0262-05 ",.01)
 ;;51552-0262-05
 ;;9002226.02101,"976,51552-0262-05 ",.02)
 ;;51552-0262-05
 ;;9002226.02101,"976,51552-0307-04 ",.01)
 ;;51552-0307-04
 ;;9002226.02101,"976,51552-0307-04 ",.02)
 ;;51552-0307-04
 ;;9002226.02101,"976,51552-0307-05 ",.01)
 ;;51552-0307-05
 ;;9002226.02101,"976,51552-0307-05 ",.02)
 ;;51552-0307-05
 ;;9002226.02101,"976,51552-0307-06 ",.01)
 ;;51552-0307-06
 ;;9002226.02101,"976,51552-0307-06 ",.02)
 ;;51552-0307-06
 ;;9002226.02101,"976,51552-0307-07 ",.01)
 ;;51552-0307-07
 ;;9002226.02101,"976,51552-0307-07 ",.02)
 ;;51552-0307-07
 ;;9002226.02101,"976,51552-0378-04 ",.01)
 ;;51552-0378-04
 ;;9002226.02101,"976,51552-0378-04 ",.02)
 ;;51552-0378-04
 ;;9002226.02101,"976,51552-0378-05 ",.01)
 ;;51552-0378-05
 ;;9002226.02101,"976,51552-0378-05 ",.02)
 ;;51552-0378-05
 ;;9002226.02101,"976,51552-0378-07 ",.01)
 ;;51552-0378-07
 ;;9002226.02101,"976,51552-0378-07 ",.02)
 ;;51552-0378-07
 ;;9002226.02101,"976,51552-0401-04 ",.01)
 ;;51552-0401-04
 ;;9002226.02101,"976,51552-0401-04 ",.02)
 ;;51552-0401-04
 ;;9002226.02101,"976,51552-0401-05 ",.01)
 ;;51552-0401-05
 ;;9002226.02101,"976,51552-0401-05 ",.02)
 ;;51552-0401-05
 ;;9002226.02101,"976,51552-0450-04 ",.01)
 ;;51552-0450-04
 ;;9002226.02101,"976,51552-0450-04 ",.02)
 ;;51552-0450-04
 ;;9002226.02101,"976,51552-0457-02 ",.01)
 ;;51552-0457-02
 ;;9002226.02101,"976,51552-0457-02 ",.02)
 ;;51552-0457-02
 ;;9002226.02101,"976,51552-0457-04 ",.01)
 ;;51552-0457-04
 ;;9002226.02101,"976,51552-0457-04 ",.02)
 ;;51552-0457-04
 ;;9002226.02101,"976,51552-0482-04 ",.01)
 ;;51552-0482-04
 ;;9002226.02101,"976,51552-0482-04 ",.02)
 ;;51552-0482-04
 ;;9002226.02101,"976,51552-0818-02 ",.01)
 ;;51552-0818-02
 ;;9002226.02101,"976,51552-0818-02 ",.02)
 ;;51552-0818-02
 ;;9002226.02101,"976,51641-0212-01 ",.01)
 ;;51641-0212-01
 ;;9002226.02101,"976,51641-0212-01 ",.02)
 ;;51641-0212-01
 ;;9002226.02101,"976,51641-0212-05 ",.01)
 ;;51641-0212-05
 ;;9002226.02101,"976,51641-0212-05 ",.02)
 ;;51641-0212-05
 ;;9002226.02101,"976,51641-0212-10 ",.01)
 ;;51641-0212-10
 ;;9002226.02101,"976,51641-0212-10 ",.02)
 ;;51641-0212-10
 ;;9002226.02101,"976,51641-0212-11 ",.01)
 ;;51641-0212-11
 ;;9002226.02101,"976,51641-0212-11 ",.02)
 ;;51641-0212-11
 ;;9002226.02101,"976,51641-0213-01 ",.01)
 ;;51641-0213-01
 ;;9002226.02101,"976,51641-0213-01 ",.02)
 ;;51641-0213-01
 ;;9002226.02101,"976,51641-0213-05 ",.01)
 ;;51641-0213-05
 ;;9002226.02101,"976,51641-0213-05 ",.02)
 ;;51641-0213-05
 ;;9002226.02101,"976,51641-0213-10 ",.01)
 ;;51641-0213-10
 ;;9002226.02101,"976,51641-0213-10 ",.02)
 ;;51641-0213-10
 ;;9002226.02101,"976,51641-0213-11 ",.01)
 ;;51641-0213-11
 ;;9002226.02101,"976,51641-0213-11 ",.02)
 ;;51641-0213-11
 ;;9002226.02101,"976,51641-0214-01 ",.01)
 ;;51641-0214-01
 ;;9002226.02101,"976,51641-0214-01 ",.02)
 ;;51641-0214-01
 ;;9002226.02101,"976,51641-0214-05 ",.01)
 ;;51641-0214-05
 ;;9002226.02101,"976,51641-0214-05 ",.02)
 ;;51641-0214-05
 ;;9002226.02101,"976,51641-0214-10 ",.01)
 ;;51641-0214-10
 ;;9002226.02101,"976,51641-0214-10 ",.02)
 ;;51641-0214-10
 ;;9002226.02101,"976,51641-0214-11 ",.01)
 ;;51641-0214-11
 ;;9002226.02101,"976,51641-0214-11 ",.02)
 ;;51641-0214-11
 ;;9002226.02101,"976,51655-0049-24 ",.01)
 ;;51655-0049-24
 ;;9002226.02101,"976,51655-0049-24 ",.02)
 ;;51655-0049-24
 ;;9002226.02101,"976,51655-0049-25 ",.01)
 ;;51655-0049-25
 ;;9002226.02101,"976,51655-0049-25 ",.02)
 ;;51655-0049-25
 ;;9002226.02101,"976,51655-0049-26 ",.01)
 ;;51655-0049-26
 ;;9002226.02101,"976,51655-0049-26 ",.02)
 ;;51655-0049-26
 ;;9002226.02101,"976,51655-0049-51 ",.01)
 ;;51655-0049-51
 ;;9002226.02101,"976,51655-0049-51 ",.02)
 ;;51655-0049-51
 ;;9002226.02101,"976,51655-0049-52 ",.01)
 ;;51655-0049-52
 ;;9002226.02101,"976,51655-0049-52 ",.02)
 ;;51655-0049-52
 ;;9002226.02101,"976,51655-0049-82 ",.01)
 ;;51655-0049-82
 ;;9002226.02101,"976,51655-0049-82 ",.02)
 ;;51655-0049-82
 ;;9002226.02101,"976,51655-0050-24 ",.01)
 ;;51655-0050-24
 ;;9002226.02101,"976,51655-0050-24 ",.02)
 ;;51655-0050-24
 ;;9002226.02101,"976,51655-0050-25 ",.01)
 ;;51655-0050-25
 ;;9002226.02101,"976,51655-0050-25 ",.02)
 ;;51655-0050-25
 ;;9002226.02101,"976,51655-0050-26 ",.01)
 ;;51655-0050-26
 ;;9002226.02101,"976,51655-0050-26 ",.02)
 ;;51655-0050-26
 ;;9002226.02101,"976,51655-0050-82 ",.01)
 ;;51655-0050-82
 ;;9002226.02101,"976,51655-0050-82 ",.02)
 ;;51655-0050-82
 ;;9002226.02101,"976,51655-0050-83 ",.01)
 ;;51655-0050-83
 ;;9002226.02101,"976,51655-0050-83 ",.02)
 ;;51655-0050-83
 ;;9002226.02101,"976,51655-0050-92 ",.01)
 ;;51655-0050-92
 ;;9002226.02101,"976,51655-0050-92 ",.02)
 ;;51655-0050-92
 ;;9002226.02101,"976,51655-0051-24 ",.01)
 ;;51655-0051-24
 ;;9002226.02101,"976,51655-0051-24 ",.02)
 ;;51655-0051-24
 ;;9002226.02101,"976,51655-0051-25 ",.01)
 ;;51655-0051-25
 ;;9002226.02101,"976,51655-0051-25 ",.02)
 ;;51655-0051-25
 ;;9002226.02101,"976,51655-0051-26 ",.01)
 ;;51655-0051-26
 ;;9002226.02101,"976,51655-0051-26 ",.02)
 ;;51655-0051-26
 ;;9002226.02101,"976,51655-0051-54 ",.01)
 ;;51655-0051-54
 ;;9002226.02101,"976,51655-0051-54 ",.02)
 ;;51655-0051-54
 ;;9002226.02101,"976,51655-0051-83 ",.01)
 ;;51655-0051-83
 ;;9002226.02101,"976,51655-0051-83 ",.02)
 ;;51655-0051-83
 ;;9002226.02101,"976,51655-0051-92 ",.01)
 ;;51655-0051-92
 ;;9002226.02101,"976,51655-0051-92 ",.02)
 ;;51655-0051-92
 ;;9002226.02101,"976,51655-0128-26 ",.01)
 ;;51655-0128-26
 ;;9002226.02101,"976,51655-0128-26 ",.02)
 ;;51655-0128-26
 ;;9002226.02101,"976,51655-0128-54 ",.01)
 ;;51655-0128-54
 ;;9002226.02101,"976,51655-0128-54 ",.02)
 ;;51655-0128-54
 ;;9002226.02101,"976,51655-0562-30 ",.01)
 ;;51655-0562-30
 ;;9002226.02101,"976,51655-0562-30 ",.02)
 ;;51655-0562-30
 ;;9002226.02101,"976,51655-0567-84 ",.01)
 ;;51655-0567-84
 ;;9002226.02101,"976,51655-0567-84 ",.02)
 ;;51655-0567-84
 ;;9002226.02101,"976,51655-0625-25 ",.01)
 ;;51655-0625-25
 ;;9002226.02101,"976,51655-0625-25 ",.02)
 ;;51655-0625-25
 ;;9002226.02101,"976,51655-0625-52 ",.01)
 ;;51655-0625-52
 ;;9002226.02101,"976,51655-0625-52 ",.02)
 ;;51655-0625-52
 ;;9002226.02101,"976,51655-0626-25 ",.01)
 ;;51655-0626-25
 ;;9002226.02101,"976,51655-0626-25 ",.02)
 ;;51655-0626-25
 ;;9002226.02101,"976,51655-0626-52 ",.01)
 ;;51655-0626-52
 ;;9002226.02101,"976,51655-0626-52 ",.02)
 ;;51655-0626-52
 ;;9002226.02101,"976,51655-0626-53 ",.01)
 ;;51655-0626-53
 ;;9002226.02101,"976,51655-0626-53 ",.02)
 ;;51655-0626-53
 ;;9002226.02101,"976,51655-0627-52 ",.01)
 ;;51655-0627-52
 ;;9002226.02101,"976,51655-0627-52 ",.02)
 ;;51655-0627-52
 ;;9002226.02101,"976,51655-0629-52 ",.01)
 ;;51655-0629-52
 ;;9002226.02101,"976,51655-0629-52 ",.02)
 ;;51655-0629-52
 ;;9002226.02101,"976,51655-0685-24 ",.01)
 ;;51655-0685-24
 ;;9002226.02101,"976,51655-0685-24 ",.02)
 ;;51655-0685-24
 ;;9002226.02101,"976,51672-4016-01 ",.01)
 ;;51672-4016-01
 ;;9002226.02101,"976,51672-4016-01 ",.02)
 ;;51672-4016-01
 ;;9002226.02101,"976,51672-4017-01 ",.01)
 ;;51672-4017-01
 ;;9002226.02101,"976,51672-4017-01 ",.02)
 ;;51672-4017-01
 ;;9002226.02101,"976,51672-4018-01 ",.01)
 ;;51672-4018-01
 ;;9002226.02101,"976,51672-4018-01 ",.02)
 ;;51672-4018-01
 ;;9002226.02101,"976,51672-4036-01 ",.01)
 ;;51672-4036-01
 ;;9002226.02101,"976,51672-4036-01 ",.02)
 ;;51672-4036-01
 ;;9002226.02101,"976,51672-4051-01 ",.01)
 ;;51672-4051-01
 ;;9002226.02101,"976,51672-4051-01 ",.02)
 ;;51672-4051-01
 ;;9002226.02101,"976,51672-4051-04 ",.01)
 ;;51672-4051-04
 ;;9002226.02101,"976,51672-4051-04 ",.02)
 ;;51672-4051-04
 ;;9002226.02101,"976,51672-4052-01 ",.01)
 ;;51672-4052-01
 ;;9002226.02101,"976,51672-4052-01 ",.02)
 ;;51672-4052-01
 ;;9002226.02101,"976,51672-4052-04 ",.01)
 ;;51672-4052-04
 ;;9002226.02101,"976,51672-4052-04 ",.02)
 ;;51672-4052-04
 ;;9002226.02101,"976,51672-4053-01 ",.01)
 ;;51672-4053-01
 ;;9002226.02101,"976,51672-4053-01 ",.02)
 ;;51672-4053-01
 ;;9002226.02101,"976,51672-4053-04 ",.01)
 ;;51672-4053-04
 ;;9002226.02101,"976,51672-4053-04 ",.02)
 ;;51672-4053-04
 ;;9002226.02101,"976,51927-1083-00 ",.01)
 ;;51927-1083-00
 ;;9002226.02101,"976,51927-1083-00 ",.02)
 ;;51927-1083-00
 ;;9002226.02101,"976,51927-1192-00 ",.01)
 ;;51927-1192-00
 ;;9002226.02101,"976,51927-1192-00 ",.02)
 ;;51927-1192-00
 ;;9002226.02101,"976,51927-1574-00 ",.01)
 ;;51927-1574-00
 ;;9002226.02101,"976,51927-1574-00 ",.02)
 ;;51927-1574-00
 ;;9002226.02101,"976,51927-1699-00 ",.01)
 ;;51927-1699-00
 ;;9002226.02101,"976,51927-1699-00 ",.02)
 ;;51927-1699-00
 ;;9002226.02101,"976,51927-1853-00 ",.01)
 ;;51927-1853-00
 ;;9002226.02101,"976,51927-1853-00 ",.02)
 ;;51927-1853-00
 ;;9002226.02101,"976,51927-1859-00 ",.01)
 ;;51927-1859-00
 ;;9002226.02101,"976,51927-1859-00 ",.02)
 ;;51927-1859-00
 ;;9002226.02101,"976,51927-1866-00 ",.01)
 ;;51927-1866-00
 ;;9002226.02101,"976,51927-1866-00 ",.02)
 ;;51927-1866-00
 ;;9002226.02101,"976,51927-2082-00 ",.01)
 ;;51927-2082-00
 ;;9002226.02101,"976,51927-2082-00 ",.02)
 ;;51927-2082-00
 ;;9002226.02101,"976,51927-2125-00 ",.01)
 ;;51927-2125-00
 ;;9002226.02101,"976,51927-2125-00 ",.02)
 ;;51927-2125-00
 ;;9002226.02101,"976,51927-2352-00 ",.01)
 ;;51927-2352-00
 ;;9002226.02101,"976,51927-2352-00 ",.02)
 ;;51927-2352-00
 ;;9002226.02101,"976,51927-2399-00 ",.01)
 ;;51927-2399-00
 ;;9002226.02101,"976,51927-2399-00 ",.02)
 ;;51927-2399-00
 ;;9002226.02101,"976,51927-2618-00 ",.01)
 ;;51927-2618-00
 ;;9002226.02101,"976,51927-2618-00 ",.02)
 ;;51927-2618-00
 ;;9002226.02101,"976,51927-2701-00 ",.01)
 ;;51927-2701-00
 ;;9002226.02101,"976,51927-2701-00 ",.02)
 ;;51927-2701-00
 ;;9002226.02101,"976,51927-2715-00 ",.01)
 ;;51927-2715-00
 ;;9002226.02101,"976,51927-2715-00 ",.02)
 ;;51927-2715-00
 ;;9002226.02101,"976,51927-2771-00 ",.01)
 ;;51927-2771-00
 ;;9002226.02101,"976,51927-2771-00 ",.02)
 ;;51927-2771-00
 ;;9002226.02101,"976,51927-2796-00 ",.01)
 ;;51927-2796-00
 ;;9002226.02101,"976,51927-2796-00 ",.02)
 ;;51927-2796-00
 ;;9002226.02101,"976,51927-3010-00 ",.01)
 ;;51927-3010-00
 ;;9002226.02101,"976,51927-3010-00 ",.02)
 ;;51927-3010-00
 ;;9002226.02101,"976,51927-3443-00 ",.01)
 ;;51927-3443-00
 ;;9002226.02101,"976,51927-3443-00 ",.02)
 ;;51927-3443-00
 ;;9002226.02101,"976,51991-0720-01 ",.01)
 ;;51991-0720-01
 ;;9002226.02101,"976,51991-0720-01 ",.02)
 ;;51991-0720-01
 ;;9002226.02101,"976,51991-0720-05 ",.01)
 ;;51991-0720-05
 ;;9002226.02101,"976,51991-0720-05 ",.02)
 ;;51991-0720-05
 ;;9002226.02101,"976,51991-0730-01 ",.01)
 ;;51991-0730-01
 ;;9002226.02101,"976,51991-0730-01 ",.02)
 ;;51991-0730-01
 ;;9002226.02101,"976,51991-0730-05 ",.01)
 ;;51991-0730-05
 ;;9002226.02101,"976,51991-0730-05 ",.02)
 ;;51991-0730-05
 ;;9002226.02101,"976,51991-0740-01 ",.01)
 ;;51991-0740-01
 ;;9002226.02101,"976,51991-0740-01 ",.02)
 ;;51991-0740-01
 ;;9002226.02101,"976,51991-0740-05 ",.01)
 ;;51991-0740-05
 ;;9002226.02101,"976,51991-0740-05 ",.02)
 ;;51991-0740-05
 ;;9002226.02101,"976,52152-0084-02 ",.01)
 ;;52152-0084-02
 ;;9002226.02101,"976,52152-0084-02 ",.02)
 ;;52152-0084-02
 ;;9002226.02101,"976,52152-0085-02 ",.01)
 ;;52152-0085-02
 ;;9002226.02101,"976,52152-0085-02 ",.02)
 ;;52152-0085-02
 ;;9002226.02101,"976,52152-0086-02 ",.01)
 ;;52152-0086-02
 ;;9002226.02101,"976,52152-0086-02 ",.02)
 ;;52152-0086-02
 ;;9002226.02101,"976,52555-0205-01 ",.01)
 ;;52555-0205-01
 ;;9002226.02101,"976,52555-0205-01 ",.02)
 ;;52555-0205-01
 ;;9002226.02101,"976,52555-0205-10 ",.01)
 ;;52555-0205-10