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

BGP06A71.m

Go to the documentation of this file.
BGP06A71 ;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,"974,68115-0026-04 ",.01)
 ;;68115-0026-04
 ;;9002226.02101,"974,68115-0026-04 ",.02)
 ;;68115-0026-04
 ;;9002226.02101,"974,68115-0026-21 ",.01)
 ;;68115-0026-21
 ;;9002226.02101,"974,68115-0026-21 ",.02)
 ;;68115-0026-21
 ;;9002226.02101,"974,68115-0026-30 ",.01)
 ;;68115-0026-30
 ;;9002226.02101,"974,68115-0026-30 ",.02)
 ;;68115-0026-30
 ;;9002226.02101,"974,68115-0027-21 ",.01)
 ;;68115-0027-21
 ;;9002226.02101,"974,68115-0027-21 ",.02)
 ;;68115-0027-21
 ;;9002226.02101,"974,68115-0027-30 ",.01)
 ;;68115-0027-30
 ;;9002226.02101,"974,68115-0027-30 ",.02)
 ;;68115-0027-30
 ;;9002226.02101,"974,68115-0029-00 ",.01)
 ;;68115-0029-00
 ;;9002226.02101,"974,68115-0029-00 ",.02)
 ;;68115-0029-00
 ;;9002226.02101,"974,68115-0029-04 ",.01)
 ;;68115-0029-04
 ;;9002226.02101,"974,68115-0029-04 ",.02)
 ;;68115-0029-04
 ;;9002226.02101,"974,68115-0029-08 ",.01)
 ;;68115-0029-08
 ;;9002226.02101,"974,68115-0029-08 ",.02)
 ;;68115-0029-08
 ;;9002226.02101,"974,68115-0029-21 ",.01)
 ;;68115-0029-21
 ;;9002226.02101,"974,68115-0029-21 ",.02)
 ;;68115-0029-21
 ;;9002226.02101,"974,68115-0029-30 ",.01)
 ;;68115-0029-30
 ;;9002226.02101,"974,68115-0029-30 ",.02)
 ;;68115-0029-30
 ;;9002226.02101,"974,68115-0029-40 ",.01)
 ;;68115-0029-40
 ;;9002226.02101,"974,68115-0029-40 ",.02)
 ;;68115-0029-40
 ;;9002226.02101,"974,68115-0029-42 ",.01)
 ;;68115-0029-42
 ;;9002226.02101,"974,68115-0029-42 ",.02)
 ;;68115-0029-42
 ;;9002226.02101,"974,68115-0030-10 ",.01)
 ;;68115-0030-10
 ;;9002226.02101,"974,68115-0030-10 ",.02)
 ;;68115-0030-10
 ;;9002226.02101,"974,68115-0030-14 ",.01)
 ;;68115-0030-14
 ;;9002226.02101,"974,68115-0030-14 ",.02)
 ;;68115-0030-14
 ;;9002226.02101,"974,68115-0033-21 ",.01)
 ;;68115-0033-21
 ;;9002226.02101,"974,68115-0033-21 ",.02)
 ;;68115-0033-21
 ;;9002226.02101,"974,68115-0065-30 ",.01)
 ;;68115-0065-30
 ;;9002226.02101,"974,68115-0065-30 ",.02)
 ;;68115-0065-30
 ;;9002226.02101,"974,68115-0066-30 ",.01)
 ;;68115-0066-30
 ;;9002226.02101,"974,68115-0066-30 ",.02)
 ;;68115-0066-30
 ;;9002226.02101,"974,68115-0067-10 ",.01)
 ;;68115-0067-10
 ;;9002226.02101,"974,68115-0067-10 ",.02)
 ;;68115-0067-10
 ;;9002226.02101,"974,68115-0067-20 ",.01)
 ;;68115-0067-20
 ;;9002226.02101,"974,68115-0067-20 ",.02)
 ;;68115-0067-20
 ;;9002226.02101,"974,68115-0067-24 ",.01)
 ;;68115-0067-24
 ;;9002226.02101,"974,68115-0067-24 ",.02)
 ;;68115-0067-24
 ;;9002226.02101,"974,68115-0072-06 ",.01)
 ;;68115-0072-06
 ;;9002226.02101,"974,68115-0072-06 ",.02)
 ;;68115-0072-06
 ;;9002226.02101,"974,68115-0072-09 ",.01)
 ;;68115-0072-09
 ;;9002226.02101,"974,68115-0072-09 ",.02)
 ;;68115-0072-09
 ;;9002226.02101,"974,68115-0072-12 ",.01)
 ;;68115-0072-12
 ;;9002226.02101,"974,68115-0072-12 ",.02)
 ;;68115-0072-12
 ;;9002226.02101,"974,68115-0072-15 ",.01)
 ;;68115-0072-15
 ;;9002226.02101,"974,68115-0072-15 ",.02)
 ;;68115-0072-15
 ;;9002226.02101,"974,68115-0072-20 ",.01)
 ;;68115-0072-20
 ;;9002226.02101,"974,68115-0072-20 ",.02)
 ;;68115-0072-20
 ;;9002226.02101,"974,68115-0072-28 ",.01)
 ;;68115-0072-28
 ;;9002226.02101,"974,68115-0072-28 ",.02)
 ;;68115-0072-28
 ;;9002226.02101,"974,68115-0072-40 ",.01)
 ;;68115-0072-40
 ;;9002226.02101,"974,68115-0072-40 ",.02)
 ;;68115-0072-40
 ;;9002226.02101,"974,68115-0073-06 ",.01)
 ;;68115-0073-06
 ;;9002226.02101,"974,68115-0073-06 ",.02)
 ;;68115-0073-06
 ;;9002226.02101,"974,68115-0073-09 ",.01)
 ;;68115-0073-09
 ;;9002226.02101,"974,68115-0073-09 ",.02)
 ;;68115-0073-09
 ;;9002226.02101,"974,68115-0073-10 ",.01)
 ;;68115-0073-10
 ;;9002226.02101,"974,68115-0073-10 ",.02)
 ;;68115-0073-10
 ;;9002226.02101,"974,68115-0073-12 ",.01)
 ;;68115-0073-12
 ;;9002226.02101,"974,68115-0073-12 ",.02)
 ;;68115-0073-12
 ;;9002226.02101,"974,68115-0073-14 ",.01)
 ;;68115-0073-14
 ;;9002226.02101,"974,68115-0073-14 ",.02)
 ;;68115-0073-14
 ;;9002226.02101,"974,68115-0073-20 ",.01)
 ;;68115-0073-20
 ;;9002226.02101,"974,68115-0073-20 ",.02)
 ;;68115-0073-20
 ;;9002226.02101,"974,68115-0073-28 ",.01)
 ;;68115-0073-28
 ;;9002226.02101,"974,68115-0073-28 ",.02)
 ;;68115-0073-28
 ;;9002226.02101,"974,68115-0073-30 ",.01)
 ;;68115-0073-30
 ;;9002226.02101,"974,68115-0073-30 ",.02)
 ;;68115-0073-30
 ;;9002226.02101,"974,68115-0073-40 ",.01)
 ;;68115-0073-40
 ;;9002226.02101,"974,68115-0073-40 ",.02)
 ;;68115-0073-40
 ;;9002226.02101,"974,68115-0073-48 ",.01)
 ;;68115-0073-48
 ;;9002226.02101,"974,68115-0073-48 ",.02)
 ;;68115-0073-48
 ;;9002226.02101,"974,68115-0073-60 ",.01)
 ;;68115-0073-60
 ;;9002226.02101,"974,68115-0073-60 ",.02)
 ;;68115-0073-60
 ;;9002226.02101,"974,68115-0073-92 ",.01)
 ;;68115-0073-92
 ;;9002226.02101,"974,68115-0073-92 ",.02)
 ;;68115-0073-92
 ;;9002226.02101,"974,68115-0082-00 ",.01)
 ;;68115-0082-00
 ;;9002226.02101,"974,68115-0082-00 ",.02)
 ;;68115-0082-00
 ;;9002226.02101,"974,68115-0082-01 ",.01)
 ;;68115-0082-01
 ;;9002226.02101,"974,68115-0082-01 ",.02)
 ;;68115-0082-01
 ;;9002226.02101,"974,68115-0082-06 ",.01)
 ;;68115-0082-06
 ;;9002226.02101,"974,68115-0082-06 ",.02)
 ;;68115-0082-06
 ;;9002226.02101,"974,68115-0082-14 ",.01)
 ;;68115-0082-14
 ;;9002226.02101,"974,68115-0082-14 ",.02)
 ;;68115-0082-14
 ;;9002226.02101,"974,68115-0082-20 ",.01)
 ;;68115-0082-20
 ;;9002226.02101,"974,68115-0082-20 ",.02)
 ;;68115-0082-20
 ;;9002226.02101,"974,68115-0086-04 ",.01)
 ;;68115-0086-04
 ;;9002226.02101,"974,68115-0086-04 ",.02)
 ;;68115-0086-04
 ;;9002226.02101,"974,68115-0086-06 ",.01)
 ;;68115-0086-06
 ;;9002226.02101,"974,68115-0086-06 ",.02)
 ;;68115-0086-06
 ;;9002226.02101,"974,68115-0086-12 ",.01)
 ;;68115-0086-12
 ;;9002226.02101,"974,68115-0086-12 ",.02)
 ;;68115-0086-12
 ;;9002226.02101,"974,68115-0086-20 ",.01)
 ;;68115-0086-20
 ;;9002226.02101,"974,68115-0086-20 ",.02)
 ;;68115-0086-20
 ;;9002226.02101,"974,68115-0086-21 ",.01)
 ;;68115-0086-21
 ;;9002226.02101,"974,68115-0086-21 ",.02)
 ;;68115-0086-21
 ;;9002226.02101,"974,68115-0086-28 ",.01)
 ;;68115-0086-28
 ;;9002226.02101,"974,68115-0086-28 ",.02)
 ;;68115-0086-28
 ;;9002226.02101,"974,68115-0086-36 ",.01)
 ;;68115-0086-36
 ;;9002226.02101,"974,68115-0086-36 ",.02)
 ;;68115-0086-36
 ;;9002226.02101,"974,68115-0086-56 ",.01)
 ;;68115-0086-56
 ;;9002226.02101,"974,68115-0086-56 ",.02)
 ;;68115-0086-56
 ;;9002226.02101,"974,68115-0104-28 ",.01)
 ;;68115-0104-28
 ;;9002226.02101,"974,68115-0104-28 ",.02)
 ;;68115-0104-28
 ;;9002226.02101,"974,68115-0105-10 ",.01)
 ;;68115-0105-10
 ;;9002226.02101,"974,68115-0105-10 ",.02)
 ;;68115-0105-10
 ;;9002226.02101,"974,68115-0105-20 ",.01)
 ;;68115-0105-20
 ;;9002226.02101,"974,68115-0105-20 ",.02)
 ;;68115-0105-20
 ;;9002226.02101,"974,68115-0105-28 ",.01)
 ;;68115-0105-28
 ;;9002226.02101,"974,68115-0105-28 ",.02)
 ;;68115-0105-28
 ;;9002226.02101,"974,68115-0105-30 ",.01)
 ;;68115-0105-30
 ;;9002226.02101,"974,68115-0105-30 ",.02)
 ;;68115-0105-30
 ;;9002226.02101,"974,68115-0105-40 ",.01)
 ;;68115-0105-40
 ;;9002226.02101,"974,68115-0105-40 ",.02)
 ;;68115-0105-40
 ;;9002226.02101,"974,68115-0125-20 ",.01)
 ;;68115-0125-20
 ;;9002226.02101,"974,68115-0125-20 ",.02)
 ;;68115-0125-20
 ;;9002226.02101,"974,68115-0125-97 ",.01)
 ;;68115-0125-97
 ;;9002226.02101,"974,68115-0125-97 ",.02)
 ;;68115-0125-97
 ;;9002226.02101,"974,68115-0125-99 ",.01)
 ;;68115-0125-99
 ;;9002226.02101,"974,68115-0125-99 ",.02)
 ;;68115-0125-99
 ;;9002226.02101,"974,68115-0126-30 ",.01)
 ;;68115-0126-30
 ;;9002226.02101,"974,68115-0126-30 ",.02)
 ;;68115-0126-30
 ;;9002226.02101,"974,68115-0126-40 ",.01)
 ;;68115-0126-40
 ;;9002226.02101,"974,68115-0126-40 ",.02)
 ;;68115-0126-40
 ;;9002226.02101,"974,68115-0131-30 ",.01)
 ;;68115-0131-30
 ;;9002226.02101,"974,68115-0131-30 ",.02)
 ;;68115-0131-30
 ;;9002226.02101,"974,68115-0132-20 ",.01)
 ;;68115-0132-20
 ;;9002226.02101,"974,68115-0132-20 ",.02)
 ;;68115-0132-20
 ;;9002226.02101,"974,68115-0132-28 ",.01)
 ;;68115-0132-28
 ;;9002226.02101,"974,68115-0132-28 ",.02)
 ;;68115-0132-28
 ;;9002226.02101,"974,68115-0134-28 ",.01)
 ;;68115-0134-28
 ;;9002226.02101,"974,68115-0134-28 ",.02)
 ;;68115-0134-28
 ;;9002226.02101,"974,68115-0135-06 ",.01)
 ;;68115-0135-06
 ;;9002226.02101,"974,68115-0135-06 ",.02)
 ;;68115-0135-06
 ;;9002226.02101,"974,68115-0135-30 ",.01)
 ;;68115-0135-30
 ;;9002226.02101,"974,68115-0135-30 ",.02)
 ;;68115-0135-30
 ;;9002226.02101,"974,68115-0136-28 ",.01)
 ;;68115-0136-28
 ;;9002226.02101,"974,68115-0136-28 ",.02)
 ;;68115-0136-28
 ;;9002226.02101,"974,68115-0136-40 ",.01)
 ;;68115-0136-40
 ;;9002226.02101,"974,68115-0136-40 ",.02)
 ;;68115-0136-40
 ;;9002226.02101,"974,68115-0196-10 ",.01)
 ;;68115-0196-10
 ;;9002226.02101,"974,68115-0196-10 ",.02)
 ;;68115-0196-10
 ;;9002226.02101,"974,68115-0197-10 ",.01)
 ;;68115-0197-10
 ;;9002226.02101,"974,68115-0197-10 ",.02)
 ;;68115-0197-10
 ;;9002226.02101,"974,68115-0268-30 ",.01)
 ;;68115-0268-30
 ;;9002226.02101,"974,68115-0268-30 ",.02)
 ;;68115-0268-30
 ;;9002226.02101,"974,68115-0269-04 ",.01)
 ;;68115-0269-04
 ;;9002226.02101,"974,68115-0269-04 ",.02)
 ;;68115-0269-04
 ;;9002226.02101,"974,68115-0269-12 ",.01)
 ;;68115-0269-12
 ;;9002226.02101,"974,68115-0269-12 ",.02)
 ;;68115-0269-12
 ;;9002226.02101,"974,68115-0269-20 ",.01)
 ;;68115-0269-20
 ;;9002226.02101,"974,68115-0269-20 ",.02)
 ;;68115-0269-20
 ;;9002226.02101,"974,68115-0269-21 ",.01)
 ;;68115-0269-21
 ;;9002226.02101,"974,68115-0269-21 ",.02)
 ;;68115-0269-21
 ;;9002226.02101,"974,68115-0269-28 ",.01)
 ;;68115-0269-28
 ;;9002226.02101,"974,68115-0269-28 ",.02)
 ;;68115-0269-28
 ;;9002226.02101,"974,68115-0322-00 ",.01)
 ;;68115-0322-00
 ;;9002226.02101,"974,68115-0322-00 ",.02)
 ;;68115-0322-00
 ;;9002226.02101,"974,68115-0322-20 ",.01)
 ;;68115-0322-20
 ;;9002226.02101,"974,68115-0322-20 ",.02)
 ;;68115-0322-20
 ;;9002226.02101,"974,68115-0322-28 ",.01)
 ;;68115-0322-28
 ;;9002226.02101,"974,68115-0322-28 ",.02)
 ;;68115-0322-28
 ;;9002226.02101,"974,68115-0325-28 ",.01)
 ;;68115-0325-28
 ;;9002226.02101,"974,68115-0325-28 ",.02)
 ;;68115-0325-28
 ;;9002226.02101,"974,68115-0325-40 ",.01)
 ;;68115-0325-40
 ;;9002226.02101,"974,68115-0325-40 ",.02)
 ;;68115-0325-40
 ;;9002226.02101,"974,68115-0326-40 ",.01)
 ;;68115-0326-40
 ;;9002226.02101,"974,68115-0326-40 ",.02)
 ;;68115-0326-40
 ;;9002226.02101,"974,68115-0326-60 ",.01)
 ;;68115-0326-60
 ;;9002226.02101,"974,68115-0326-60 ",.02)
 ;;68115-0326-60
 ;;9002226.02101,"974,68115-0364-04 ",.01)
 ;;68115-0364-04
 ;;9002226.02101,"974,68115-0364-04 ",.02)
 ;;68115-0364-04
 ;;9002226.02101,"974,68115-0364-50 ",.01)
 ;;68115-0364-50
 ;;9002226.02101,"974,68115-0364-50 ",.02)
 ;;68115-0364-50
 ;;9002226.02101,"974,68115-0386-20 ",.01)
 ;;68115-0386-20
 ;;9002226.02101,"974,68115-0386-20 ",.02)
 ;;68115-0386-20
 ;;9002226.02101,"974,68115-0421-09 ",.01)
 ;;68115-0421-09
 ;;9002226.02101,"974,68115-0421-09 ",.02)
 ;;68115-0421-09
 ;;9002226.02101,"974,68115-0445-22 ",.01)
 ;;68115-0445-22
 ;;9002226.02101,"974,68115-0445-22 ",.02)
 ;;68115-0445-22
 ;;9002226.02101,"974,68115-0446-01 ",.01)
 ;;68115-0446-01
 ;;9002226.02101,"974,68115-0446-01 ",.02)
 ;;68115-0446-01
 ;;9002226.02101,"974,68115-0446-06 ",.01)
 ;;68115-0446-06
 ;;9002226.02101,"974,68115-0446-06 ",.02)
 ;;68115-0446-06
 ;;9002226.02101,"974,68115-0446-08 ",.01)
 ;;68115-0446-08
 ;;9002226.02101,"974,68115-0446-08 ",.02)
 ;;68115-0446-08
 ;;9002226.02101,"974,68115-0446-10 ",.01)
 ;;68115-0446-10
 ;;9002226.02101,"974,68115-0446-10 ",.02)
 ;;68115-0446-10
 ;;9002226.02101,"974,68115-0446-14 ",.01)
 ;;68115-0446-14
 ;;9002226.02101,"974,68115-0446-14 ",.02)
 ;;68115-0446-14
 ;;9002226.02101,"974,68115-0446-20 ",.01)
 ;;68115-0446-20
 ;;9002226.02101,"974,68115-0446-20 ",.02)
 ;;68115-0446-20
 ;;9002226.02101,"974,68115-0446-30 ",.01)
 ;;68115-0446-30
 ;;9002226.02101,"974,68115-0446-30 ",.02)
 ;;68115-0446-30
 ;;9002226.02101,"974,68115-0463-20 ",.01)
 ;;68115-0463-20
 ;;9002226.02101,"974,68115-0463-20 ",.02)
 ;;68115-0463-20
 ;;9002226.02101,"974,68115-0488-40 ",.01)
 ;;68115-0488-40
 ;;9002226.02101,"974,68115-0488-40 ",.02)
 ;;68115-0488-40
 ;;9002226.02101,"974,68115-0541-50 ",.01)
 ;;68115-0541-50
 ;;9002226.02101,"974,68115-0541-50 ",.02)
 ;;68115-0541-50
 ;;9002226.02101,"974,68115-0582-20 ",.01)
 ;;68115-0582-20
 ;;9002226.02101,"974,68115-0582-20 ",.02)
 ;;68115-0582-20
 ;;9002226.02101,"974,68115-0872-06 ",.01)
 ;;68115-0872-06
 ;;9002226.02101,"974,68115-0872-06 ",.02)
 ;;68115-0872-06
 ;;9002226.02101,"974,68115-0904-00 ",.01)
 ;;68115-0904-00
 ;;9002226.02101,"974,68115-0904-00 ",.02)
 ;;68115-0904-00
 ;;9002226.02101,"974,68115-0904-50 ",.01)
 ;;68115-0904-50
 ;;9002226.02101,"974,68115-0904-50 ",.02)
 ;;68115-0904-50
 ;;9002226.02101,"974,68115-0904-80 ",.01)
 ;;68115-0904-80
 ;;9002226.02101,"974,68115-0904-80 ",.02)
 ;;68115-0904-80
 ;;9002226.02101,"974,68115-0931-06 ",.01)
 ;;68115-0931-06
 ;;9002226.02101,"974,68115-0931-06 ",.02)
 ;;68115-0931-06
 ;;9002226.02101,"974,68115-0990-20 ",.01)
 ;;68115-0990-20
 ;;9002226.02101,"974,68115-0990-20 ",.02)
 ;;68115-0990-20
 ;;9002226.02101,"974,68115-0991-20 ",.01)
 ;;68115-0991-20
 ;;9002226.02101,"974,68115-0991-20 ",.02)
 ;;68115-0991-20
 ;;9002226.02101,"974,68115-0993-50 ",.01)
 ;;68115-0993-50
 ;;9002226.02101,"974,68115-0993-50 ",.02)
 ;;68115-0993-50
 ;;9002226.02101,"974,68115-0994-00 ",.01)
 ;;68115-0994-00
 ;;9002226.02101,"974,68115-0994-00 ",.02)
 ;;68115-0994-00