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

BGP0ZD24.m

Go to the documentation of this file.
BGP0ZD24 ;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,55045-2440-08 ",.02)
 ;;55045-2440-08
 ;;9002226.02101,"976,55045-2490-00 ",.01)
 ;;55045-2490-00
 ;;9002226.02101,"976,55045-2490-00 ",.02)
 ;;55045-2490-00
 ;;9002226.02101,"976,55045-2490-01 ",.01)
 ;;55045-2490-01
 ;;9002226.02101,"976,55045-2490-01 ",.02)
 ;;55045-2490-01
 ;;9002226.02101,"976,55045-2490-02 ",.01)
 ;;55045-2490-02
 ;;9002226.02101,"976,55045-2490-02 ",.02)
 ;;55045-2490-02
 ;;9002226.02101,"976,55045-2490-03 ",.01)
 ;;55045-2490-03
 ;;9002226.02101,"976,55045-2490-03 ",.02)
 ;;55045-2490-03
 ;;9002226.02101,"976,55045-2490-04 ",.01)
 ;;55045-2490-04
 ;;9002226.02101,"976,55045-2490-04 ",.02)
 ;;55045-2490-04
 ;;9002226.02101,"976,55045-2490-05 ",.01)
 ;;55045-2490-05
 ;;9002226.02101,"976,55045-2490-05 ",.02)
 ;;55045-2490-05
 ;;9002226.02101,"976,55045-2490-06 ",.01)
 ;;55045-2490-06
 ;;9002226.02101,"976,55045-2490-06 ",.02)
 ;;55045-2490-06
 ;;9002226.02101,"976,55045-2490-08 ",.01)
 ;;55045-2490-08
 ;;9002226.02101,"976,55045-2490-08 ",.02)
 ;;55045-2490-08
 ;;9002226.02101,"976,55045-2516-07 ",.01)
 ;;55045-2516-07
 ;;9002226.02101,"976,55045-2516-07 ",.02)
 ;;55045-2516-07
 ;;9002226.02101,"976,55045-2516-08 ",.01)
 ;;55045-2516-08
 ;;9002226.02101,"976,55045-2516-08 ",.02)
 ;;55045-2516-08
 ;;9002226.02101,"976,55045-2530-03 ",.01)
 ;;55045-2530-03
 ;;9002226.02101,"976,55045-2530-03 ",.02)
 ;;55045-2530-03
 ;;9002226.02101,"976,55045-2530-04 ",.01)
 ;;55045-2530-04
 ;;9002226.02101,"976,55045-2530-04 ",.02)
 ;;55045-2530-04
 ;;9002226.02101,"976,55045-2530-05 ",.01)
 ;;55045-2530-05
 ;;9002226.02101,"976,55045-2530-05 ",.02)
 ;;55045-2530-05
 ;;9002226.02101,"976,55045-2548-06 ",.01)
 ;;55045-2548-06
 ;;9002226.02101,"976,55045-2548-06 ",.02)
 ;;55045-2548-06
 ;;9002226.02101,"976,55045-2548-08 ",.01)
 ;;55045-2548-08
 ;;9002226.02101,"976,55045-2548-08 ",.02)
 ;;55045-2548-08
 ;;9002226.02101,"976,55045-2592-01 ",.01)
 ;;55045-2592-01
 ;;9002226.02101,"976,55045-2592-01 ",.02)
 ;;55045-2592-01
 ;;9002226.02101,"976,55045-2592-02 ",.01)
 ;;55045-2592-02
 ;;9002226.02101,"976,55045-2592-02 ",.02)
 ;;55045-2592-02
 ;;9002226.02101,"976,55045-2592-06 ",.01)
 ;;55045-2592-06
 ;;9002226.02101,"976,55045-2592-06 ",.02)
 ;;55045-2592-06
 ;;9002226.02101,"976,55045-2592-07 ",.01)
 ;;55045-2592-07
 ;;9002226.02101,"976,55045-2592-07 ",.02)
 ;;55045-2592-07
 ;;9002226.02101,"976,55045-2592-08 ",.01)
 ;;55045-2592-08
 ;;9002226.02101,"976,55045-2592-08 ",.02)
 ;;55045-2592-08
 ;;9002226.02101,"976,55045-2592-09 ",.01)
 ;;55045-2592-09
 ;;9002226.02101,"976,55045-2592-09 ",.02)
 ;;55045-2592-09
 ;;9002226.02101,"976,55045-2628-01 ",.01)
 ;;55045-2628-01
 ;;9002226.02101,"976,55045-2628-01 ",.02)
 ;;55045-2628-01
 ;;9002226.02101,"976,55045-2628-07 ",.01)
 ;;55045-2628-07
 ;;9002226.02101,"976,55045-2628-07 ",.02)
 ;;55045-2628-07
 ;;9002226.02101,"976,55045-2628-08 ",.01)
 ;;55045-2628-08
 ;;9002226.02101,"976,55045-2628-08 ",.02)
 ;;55045-2628-08
 ;;9002226.02101,"976,55045-2671-01 ",.01)
 ;;55045-2671-01
 ;;9002226.02101,"976,55045-2671-01 ",.02)
 ;;55045-2671-01
 ;;9002226.02101,"976,55045-2671-07 ",.01)
 ;;55045-2671-07
 ;;9002226.02101,"976,55045-2671-07 ",.02)
 ;;55045-2671-07
 ;;9002226.02101,"976,55045-2671-08 ",.01)
 ;;55045-2671-08
 ;;9002226.02101,"976,55045-2671-08 ",.02)
 ;;55045-2671-08
 ;;9002226.02101,"976,55045-2680-01 ",.01)
 ;;55045-2680-01
 ;;9002226.02101,"976,55045-2680-01 ",.02)
 ;;55045-2680-01
 ;;9002226.02101,"976,55045-2680-02 ",.01)
 ;;55045-2680-02
 ;;9002226.02101,"976,55045-2680-02 ",.02)
 ;;55045-2680-02
 ;;9002226.02101,"976,55045-2680-06 ",.01)
 ;;55045-2680-06
 ;;9002226.02101,"976,55045-2680-06 ",.02)
 ;;55045-2680-06
 ;;9002226.02101,"976,55045-2680-07 ",.01)
 ;;55045-2680-07
 ;;9002226.02101,"976,55045-2680-07 ",.02)
 ;;55045-2680-07
 ;;9002226.02101,"976,55045-2680-08 ",.01)
 ;;55045-2680-08
 ;;9002226.02101,"976,55045-2680-08 ",.02)
 ;;55045-2680-08
 ;;9002226.02101,"976,55045-2680-09 ",.01)
 ;;55045-2680-09
 ;;9002226.02101,"976,55045-2680-09 ",.02)
 ;;55045-2680-09
 ;;9002226.02101,"976,55045-2894-01 ",.01)
 ;;55045-2894-01
 ;;9002226.02101,"976,55045-2894-01 ",.02)
 ;;55045-2894-01
 ;;9002226.02101,"976,55045-2894-02 ",.01)
 ;;55045-2894-02
 ;;9002226.02101,"976,55045-2894-02 ",.02)
 ;;55045-2894-02
 ;;9002226.02101,"976,55045-2894-03 ",.01)
 ;;55045-2894-03
 ;;9002226.02101,"976,55045-2894-03 ",.02)
 ;;55045-2894-03
 ;;9002226.02101,"976,55045-2894-04 ",.01)
 ;;55045-2894-04
 ;;9002226.02101,"976,55045-2894-04 ",.02)
 ;;55045-2894-04
 ;;9002226.02101,"976,55045-2894-05 ",.01)
 ;;55045-2894-05
 ;;9002226.02101,"976,55045-2894-05 ",.02)
 ;;55045-2894-05
 ;;9002226.02101,"976,55045-2894-06 ",.01)
 ;;55045-2894-06
 ;;9002226.02101,"976,55045-2894-06 ",.02)
 ;;55045-2894-06
 ;;9002226.02101,"976,55045-2894-08 ",.01)
 ;;55045-2894-08
 ;;9002226.02101,"976,55045-2894-08 ",.02)
 ;;55045-2894-08
 ;;9002226.02101,"976,55045-2894-09 ",.01)
 ;;55045-2894-09
 ;;9002226.02101,"976,55045-2894-09 ",.02)
 ;;55045-2894-09
 ;;9002226.02101,"976,55045-2900-06 ",.01)
 ;;55045-2900-06
 ;;9002226.02101,"976,55045-2900-06 ",.02)
 ;;55045-2900-06
 ;;9002226.02101,"976,55045-2916-01 ",.01)
 ;;55045-2916-01
 ;;9002226.02101,"976,55045-2916-01 ",.02)
 ;;55045-2916-01
 ;;9002226.02101,"976,55045-2916-04 ",.01)
 ;;55045-2916-04
 ;;9002226.02101,"976,55045-2916-04 ",.02)
 ;;55045-2916-04
 ;;9002226.02101,"976,55045-2916-06 ",.01)
 ;;55045-2916-06
 ;;9002226.02101,"976,55045-2916-06 ",.02)
 ;;55045-2916-06
 ;;9002226.02101,"976,55045-2916-07 ",.01)
 ;;55045-2916-07
 ;;9002226.02101,"976,55045-2916-07 ",.02)
 ;;55045-2916-07
 ;;9002226.02101,"976,55045-2916-08 ",.01)
 ;;55045-2916-08
 ;;9002226.02101,"976,55045-2916-08 ",.02)
 ;;55045-2916-08
 ;;9002226.02101,"976,55045-2916-09 ",.01)
 ;;55045-2916-09
 ;;9002226.02101,"976,55045-2916-09 ",.02)
 ;;55045-2916-09
 ;;9002226.02101,"976,55045-2950-08 ",.01)
 ;;55045-2950-08
 ;;9002226.02101,"976,55045-2950-08 ",.02)
 ;;55045-2950-08
 ;;9002226.02101,"976,55045-3007-01 ",.01)
 ;;55045-3007-01
 ;;9002226.02101,"976,55045-3007-01 ",.02)
 ;;55045-3007-01
 ;;9002226.02101,"976,55045-3007-02 ",.01)
 ;;55045-3007-02
 ;;9002226.02101,"976,55045-3007-02 ",.02)
 ;;55045-3007-02
 ;;9002226.02101,"976,55045-3007-03 ",.01)
 ;;55045-3007-03
 ;;9002226.02101,"976,55045-3007-03 ",.02)
 ;;55045-3007-03
 ;;9002226.02101,"976,55045-3007-07 ",.01)
 ;;55045-3007-07
 ;;9002226.02101,"976,55045-3007-07 ",.02)
 ;;55045-3007-07
 ;;9002226.02101,"976,55045-3007-08 ",.01)
 ;;55045-3007-08
 ;;9002226.02101,"976,55045-3007-08 ",.02)
 ;;55045-3007-08
 ;;9002226.02101,"976,55045-3047-09 ",.01)
 ;;55045-3047-09
 ;;9002226.02101,"976,55045-3047-09 ",.02)
 ;;55045-3047-09
 ;;9002226.02101,"976,55045-3056-00 ",.01)
 ;;55045-3056-00
 ;;9002226.02101,"976,55045-3056-00 ",.02)
 ;;55045-3056-00
 ;;9002226.02101,"976,55045-3056-01 ",.01)
 ;;55045-3056-01
 ;;9002226.02101,"976,55045-3056-01 ",.02)
 ;;55045-3056-01
 ;;9002226.02101,"976,55045-3056-06 ",.01)
 ;;55045-3056-06
 ;;9002226.02101,"976,55045-3056-06 ",.02)
 ;;55045-3056-06
 ;;9002226.02101,"976,55045-3056-08 ",.01)
 ;;55045-3056-08
 ;;9002226.02101,"976,55045-3056-08 ",.02)
 ;;55045-3056-08
 ;;9002226.02101,"976,55045-3082-06 ",.01)
 ;;55045-3082-06
 ;;9002226.02101,"976,55045-3082-06 ",.02)
 ;;55045-3082-06
 ;;9002226.02101,"976,55045-3082-08 ",.01)
 ;;55045-3082-08
 ;;9002226.02101,"976,55045-3082-08 ",.02)
 ;;55045-3082-08
 ;;9002226.02101,"976,55045-3193-01 ",.01)
 ;;55045-3193-01
 ;;9002226.02101,"976,55045-3193-01 ",.02)
 ;;55045-3193-01
 ;;9002226.02101,"976,55045-3193-05 ",.01)
 ;;55045-3193-05
 ;;9002226.02101,"976,55045-3193-05 ",.02)
 ;;55045-3193-05
 ;;9002226.02101,"976,55045-3266-08 ",.01)
 ;;55045-3266-08
 ;;9002226.02101,"976,55045-3266-08 ",.02)
 ;;55045-3266-08
 ;;9002226.02101,"976,55045-3269-01 ",.01)
 ;;55045-3269-01
 ;;9002226.02101,"976,55045-3269-01 ",.02)
 ;;55045-3269-01
 ;;9002226.02101,"976,55045-3283-08 ",.01)
 ;;55045-3283-08
 ;;9002226.02101,"976,55045-3283-08 ",.02)
 ;;55045-3283-08
 ;;9002226.02101,"976,55111-0101-01 ",.01)
 ;;55111-0101-01
 ;;9002226.02101,"976,55111-0101-01 ",.02)
 ;;55111-0101-01
 ;;9002226.02101,"976,55111-0101-05 ",.01)
 ;;55111-0101-05
 ;;9002226.02101,"976,55111-0101-05 ",.02)
 ;;55111-0101-05
 ;;9002226.02101,"976,55111-0102-01 ",.01)
 ;;55111-0102-01
 ;;9002226.02101,"976,55111-0102-01 ",.02)
 ;;55111-0102-01
 ;;9002226.02101,"976,55111-0102-05 ",.01)
 ;;55111-0102-05
 ;;9002226.02101,"976,55111-0102-05 ",.02)
 ;;55111-0102-05
 ;;9002226.02101,"976,55111-0103-01 ",.01)
 ;;55111-0103-01
 ;;9002226.02101,"976,55111-0103-01 ",.02)
 ;;55111-0103-01
 ;;9002226.02101,"976,55111-0103-05 ",.01)
 ;;55111-0103-05
 ;;9002226.02101,"976,55111-0103-05 ",.02)
 ;;55111-0103-05
 ;;9002226.02101,"976,55111-0170-01 ",.01)
 ;;55111-0170-01
 ;;9002226.02101,"976,55111-0170-01 ",.02)
 ;;55111-0170-01
 ;;9002226.02101,"976,55111-0173-05 ",.01)
 ;;55111-0173-05
 ;;9002226.02101,"976,55111-0173-05 ",.02)
 ;;55111-0173-05
 ;;9002226.02101,"976,55111-0366-01 ",.01)
 ;;55111-0366-01
 ;;9002226.02101,"976,55111-0366-01 ",.02)
 ;;55111-0366-01
 ;;9002226.02101,"976,55111-0366-05 ",.01)
 ;;55111-0366-05
 ;;9002226.02101,"976,55111-0366-05 ",.02)
 ;;55111-0366-05
 ;;9002226.02101,"976,55111-0367-01 ",.01)
 ;;55111-0367-01
 ;;9002226.02101,"976,55111-0367-01 ",.02)
 ;;55111-0367-01
 ;;9002226.02101,"976,55111-0367-05 ",.01)
 ;;55111-0367-05
 ;;9002226.02101,"976,55111-0367-05 ",.02)
 ;;55111-0367-05
 ;;9002226.02101,"976,55111-0368-01 ",.01)
 ;;55111-0368-01
 ;;9002226.02101,"976,55111-0368-01 ",.02)
 ;;55111-0368-01
 ;;9002226.02101,"976,55111-0368-05 ",.01)
 ;;55111-0368-05
 ;;9002226.02101,"976,55111-0368-05 ",.02)
 ;;55111-0368-05
 ;;9002226.02101,"976,55289-0015-10 ",.01)
 ;;55289-0015-10
 ;;9002226.02101,"976,55289-0015-10 ",.02)
 ;;55289-0015-10
 ;;9002226.02101,"976,55289-0015-14 ",.01)
 ;;55289-0015-14
 ;;9002226.02101,"976,55289-0015-14 ",.02)
 ;;55289-0015-14
 ;;9002226.02101,"976,55289-0015-20 ",.01)
 ;;55289-0015-20
 ;;9002226.02101,"976,55289-0015-20 ",.02)
 ;;55289-0015-20
 ;;9002226.02101,"976,55289-0015-28 ",.01)
 ;;55289-0015-28
 ;;9002226.02101,"976,55289-0015-28 ",.02)
 ;;55289-0015-28
 ;;9002226.02101,"976,55289-0015-30 ",.01)
 ;;55289-0015-30
 ;;9002226.02101,"976,55289-0015-30 ",.02)
 ;;55289-0015-30
 ;;9002226.02101,"976,55289-0015-40 ",.01)
 ;;55289-0015-40
 ;;9002226.02101,"976,55289-0015-40 ",.02)
 ;;55289-0015-40
 ;;9002226.02101,"976,55289-0015-60 ",.01)
 ;;55289-0015-60
 ;;9002226.02101,"976,55289-0015-60 ",.02)
 ;;55289-0015-60
 ;;9002226.02101,"976,55289-0041-21 ",.01)
 ;;55289-0041-21
 ;;9002226.02101,"976,55289-0041-21 ",.02)
 ;;55289-0041-21
 ;;9002226.02101,"976,55289-0041-30 ",.01)
 ;;55289-0041-30
 ;;9002226.02101,"976,55289-0041-30 ",.02)
 ;;55289-0041-30
 ;;9002226.02101,"976,55289-0052-07 ",.01)
 ;;55289-0052-07
 ;;9002226.02101,"976,55289-0052-07 ",.02)
 ;;55289-0052-07
 ;;9002226.02101,"976,55289-0052-10 ",.01)
 ;;55289-0052-10
 ;;9002226.02101,"976,55289-0052-10 ",.02)
 ;;55289-0052-10
 ;;9002226.02101,"976,55289-0052-14 ",.01)
 ;;55289-0052-14
 ;;9002226.02101,"976,55289-0052-14 ",.02)
 ;;55289-0052-14
 ;;9002226.02101,"976,55289-0052-20 ",.01)
 ;;55289-0052-20
 ;;9002226.02101,"976,55289-0052-20 ",.02)
 ;;55289-0052-20
 ;;9002226.02101,"976,55289-0052-21 ",.01)
 ;;55289-0052-21
 ;;9002226.02101,"976,55289-0052-21 ",.02)
 ;;55289-0052-21
 ;;9002226.02101,"976,55289-0052-30 ",.01)
 ;;55289-0052-30
 ;;9002226.02101,"976,55289-0052-30 ",.02)
 ;;55289-0052-30
 ;;9002226.02101,"976,55289-0140-01 ",.01)
 ;;55289-0140-01
 ;;9002226.02101,"976,55289-0140-01 ",.02)
 ;;55289-0140-01
 ;;9002226.02101,"976,55289-0140-10 ",.01)
 ;;55289-0140-10
 ;;9002226.02101,"976,55289-0140-10 ",.02)
 ;;55289-0140-10
 ;;9002226.02101,"976,55289-0140-15 ",.01)
 ;;55289-0140-15
 ;;9002226.02101,"976,55289-0140-15 ",.02)
 ;;55289-0140-15
 ;;9002226.02101,"976,55289-0140-20 ",.01)
 ;;55289-0140-20
 ;;9002226.02101,"976,55289-0140-20 ",.02)
 ;;55289-0140-20
 ;;9002226.02101,"976,55289-0140-21 ",.01)
 ;;55289-0140-21
 ;;9002226.02101,"976,55289-0140-21 ",.02)
 ;;55289-0140-21
 ;;9002226.02101,"976,55289-0140-30 ",.01)
 ;;55289-0140-30
 ;;9002226.02101,"976,55289-0140-30 ",.02)
 ;;55289-0140-30
 ;;9002226.02101,"976,55289-0140-40 ",.01)
 ;;55289-0140-40
 ;;9002226.02101,"976,55289-0140-40 ",.02)
 ;;55289-0140-40
 ;;9002226.02101,"976,55289-0140-42 ",.01)
 ;;55289-0140-42
 ;;9002226.02101,"976,55289-0140-42 ",.02)
 ;;55289-0140-42
 ;;9002226.02101,"976,55289-0140-50 ",.01)
 ;;55289-0140-50
 ;;9002226.02101,"976,55289-0140-50 ",.02)
 ;;55289-0140-50
 ;;9002226.02101,"976,55289-0140-60 ",.01)
 ;;55289-0140-60
 ;;9002226.02101,"976,55289-0140-60 ",.02)
 ;;55289-0140-60
 ;;9002226.02101,"976,55289-0142-01 ",.01)
 ;;55289-0142-01
 ;;9002226.02101,"976,55289-0142-01 ",.02)
 ;;55289-0142-01
 ;;9002226.02101,"976,55289-0142-06 ",.01)
 ;;55289-0142-06
 ;;9002226.02101,"976,55289-0142-06 ",.02)
 ;;55289-0142-06
 ;;9002226.02101,"976,55289-0142-10 ",.01)
 ;;55289-0142-10
 ;;9002226.02101,"976,55289-0142-10 ",.02)
 ;;55289-0142-10
 ;;9002226.02101,"976,55289-0142-12 ",.01)
 ;;55289-0142-12
 ;;9002226.02101,"976,55289-0142-12 ",.02)
 ;;55289-0142-12
 ;;9002226.02101,"976,55289-0142-14 ",.01)
 ;;55289-0142-14
 ;;9002226.02101,"976,55289-0142-14 ",.02)
 ;;55289-0142-14
 ;;9002226.02101,"976,55289-0142-15 ",.01)
 ;;55289-0142-15