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

BGP06B38.m

Go to the documentation of this file.
BGP06B38 ;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,"975,65862-0005-30 ",.01)
 ;;65862-0005-30
 ;;9002226.02101,"975,65862-0005-30 ",.02)
 ;;65862-0005-30
 ;;9002226.02101,"975,65862-0006-01 ",.01)
 ;;65862-0006-01
 ;;9002226.02101,"975,65862-0006-01 ",.02)
 ;;65862-0006-01
 ;;9002226.02101,"975,65862-0006-30 ",.01)
 ;;65862-0006-30
 ;;9002226.02101,"975,65862-0006-30 ",.02)
 ;;65862-0006-30
 ;;9002226.02101,"975,65862-0007-01 ",.01)
 ;;65862-0007-01
 ;;9002226.02101,"975,65862-0007-01 ",.02)
 ;;65862-0007-01
 ;;9002226.02101,"975,65862-0007-30 ",.01)
 ;;65862-0007-30
 ;;9002226.02101,"975,65862-0007-30 ",.02)
 ;;65862-0007-30
 ;;9002226.02101,"975,65862-0021-06 ",.01)
 ;;65862-0021-06
 ;;9002226.02101,"975,65862-0021-06 ",.02)
 ;;65862-0021-06
 ;;9002226.02101,"975,65862-0022-06 ",.01)
 ;;65862-0022-06
 ;;9002226.02101,"975,65862-0022-06 ",.02)
 ;;65862-0022-06
 ;;9002226.02101,"975,65862-0023-06 ",.01)
 ;;65862-0023-06
 ;;9002226.02101,"975,65862-0023-06 ",.02)
 ;;65862-0023-06
 ;;9002226.02101,"975,65862-0031-01 ",.01)
 ;;65862-0031-01
 ;;9002226.02101,"975,65862-0031-01 ",.02)
 ;;65862-0031-01
 ;;9002226.02101,"975,65862-0031-05 ",.01)
 ;;65862-0031-05
 ;;9002226.02101,"975,65862-0031-05 ",.02)
 ;;65862-0031-05
 ;;9002226.02101,"975,65862-0031-30 ",.01)
 ;;65862-0031-30
 ;;9002226.02101,"975,65862-0031-30 ",.02)
 ;;65862-0031-30
 ;;9002226.02101,"975,65862-0032-01 ",.01)
 ;;65862-0032-01
 ;;9002226.02101,"975,65862-0032-01 ",.02)
 ;;65862-0032-01
 ;;9002226.02101,"975,65862-0032-05 ",.01)
 ;;65862-0032-05
 ;;9002226.02101,"975,65862-0032-05 ",.02)
 ;;65862-0032-05
 ;;9002226.02101,"975,65862-0032-30 ",.01)
 ;;65862-0032-30
 ;;9002226.02101,"975,65862-0032-30 ",.02)
 ;;65862-0032-30
 ;;9002226.02101,"975,66267-0018-30 ",.01)
 ;;66267-0018-30
 ;;9002226.02101,"975,66267-0018-30 ",.02)
 ;;66267-0018-30
 ;;9002226.02101,"975,66267-0018-60 ",.01)
 ;;66267-0018-60
 ;;9002226.02101,"975,66267-0018-60 ",.02)
 ;;66267-0018-60
 ;;9002226.02101,"975,66267-0019-14 ",.01)
 ;;66267-0019-14
 ;;9002226.02101,"975,66267-0019-14 ",.02)
 ;;66267-0019-14
 ;;9002226.02101,"975,66267-0205-30 ",.01)
 ;;66267-0205-30
 ;;9002226.02101,"975,66267-0205-30 ",.02)
 ;;66267-0205-30
 ;;9002226.02101,"975,66267-0205-60 ",.01)
 ;;66267-0205-60
 ;;9002226.02101,"975,66267-0205-60 ",.02)
 ;;66267-0205-60
 ;;9002226.02101,"975,66267-0392-30 ",.01)
 ;;66267-0392-30
 ;;9002226.02101,"975,66267-0392-30 ",.02)
 ;;66267-0392-30
 ;;9002226.02101,"975,66267-0392-60 ",.01)
 ;;66267-0392-60
 ;;9002226.02101,"975,66267-0392-60 ",.02)
 ;;66267-0392-60
 ;;9002226.02101,"975,66267-0483-30 ",.01)
 ;;66267-0483-30
 ;;9002226.02101,"975,66267-0483-30 ",.02)
 ;;66267-0483-30
 ;;9002226.02101,"975,66267-0483-45 ",.01)
 ;;66267-0483-45
 ;;9002226.02101,"975,66267-0483-45 ",.02)
 ;;66267-0483-45
 ;;9002226.02101,"975,66267-0483-60 ",.01)
 ;;66267-0483-60
 ;;9002226.02101,"975,66267-0483-60 ",.02)
 ;;66267-0483-60
 ;;9002226.02101,"975,66267-0484-30 ",.01)
 ;;66267-0484-30
 ;;9002226.02101,"975,66267-0484-30 ",.02)
 ;;66267-0484-30
 ;;9002226.02101,"975,66267-0484-45 ",.01)
 ;;66267-0484-45
 ;;9002226.02101,"975,66267-0484-45 ",.02)
 ;;66267-0484-45
 ;;9002226.02101,"975,66267-0484-60 ",.01)
 ;;66267-0484-60
 ;;9002226.02101,"975,66267-0484-60 ",.02)
 ;;66267-0484-60
 ;;9002226.02101,"975,66267-0488-30 ",.01)
 ;;66267-0488-30
 ;;9002226.02101,"975,66267-0488-30 ",.02)
 ;;66267-0488-30
 ;;9002226.02101,"975,66267-0614-30 ",.01)
 ;;66267-0614-30
 ;;9002226.02101,"975,66267-0614-30 ",.02)
 ;;66267-0614-30
 ;;9002226.02101,"975,66267-0614-60 ",.01)
 ;;66267-0614-60
 ;;9002226.02101,"975,66267-0614-60 ",.02)
 ;;66267-0614-60
 ;;9002226.02101,"975,66267-0626-30 ",.01)
 ;;66267-0626-30
 ;;9002226.02101,"975,66267-0626-30 ",.02)
 ;;66267-0626-30
 ;;9002226.02101,"975,66267-0721-30 ",.01)
 ;;66267-0721-30
 ;;9002226.02101,"975,66267-0721-30 ",.02)
 ;;66267-0721-30
 ;;9002226.02101,"975,66267-1006-00 ",.01)
 ;;66267-1006-00
 ;;9002226.02101,"975,66267-1006-00 ",.02)
 ;;66267-1006-00
 ;;9002226.02101,"975,66336-0027-30 ",.01)
 ;;66336-0027-30
 ;;9002226.02101,"975,66336-0027-30 ",.02)
 ;;66336-0027-30
 ;;9002226.02101,"975,66336-0027-60 ",.01)
 ;;66336-0027-60
 ;;9002226.02101,"975,66336-0027-60 ",.02)
 ;;66336-0027-60
 ;;9002226.02101,"975,66336-0224-30 ",.01)
 ;;66336-0224-30
 ;;9002226.02101,"975,66336-0224-30 ",.02)
 ;;66336-0224-30
 ;;9002226.02101,"975,66336-0354-30 ",.01)
 ;;66336-0354-30
 ;;9002226.02101,"975,66336-0354-30 ",.02)
 ;;66336-0354-30
 ;;9002226.02101,"975,66336-0354-60 ",.01)
 ;;66336-0354-60
 ;;9002226.02101,"975,66336-0354-60 ",.02)
 ;;66336-0354-60
 ;;9002226.02101,"975,66336-0673-30 ",.01)
 ;;66336-0673-30
 ;;9002226.02101,"975,66336-0673-30 ",.02)
 ;;66336-0673-30
 ;;9002226.02101,"975,66336-0673-50 ",.01)
 ;;66336-0673-50
 ;;9002226.02101,"975,66336-0673-50 ",.02)
 ;;66336-0673-50
 ;;9002226.02101,"975,66336-0673-60 ",.01)
 ;;66336-0673-60
 ;;9002226.02101,"975,66336-0673-60 ",.02)
 ;;66336-0673-60
 ;;9002226.02101,"975,66993-0709-30 ",.01)
 ;;66993-0709-30
 ;;9002226.02101,"975,66993-0709-30 ",.02)
 ;;66993-0709-30
 ;;9002226.02101,"975,66993-0711-30 ",.01)
 ;;66993-0711-30
 ;;9002226.02101,"975,66993-0711-30 ",.02)
 ;;66993-0711-30
 ;;9002226.02101,"975,66993-0712-30 ",.01)
 ;;66993-0712-30
 ;;9002226.02101,"975,66993-0712-30 ",.02)
 ;;66993-0712-30
 ;;9002226.02101,"975,67046-0015-30 ",.01)
 ;;67046-0015-30
 ;;9002226.02101,"975,67046-0015-30 ",.02)
 ;;67046-0015-30
 ;;9002226.02101,"975,68071-0122-60 ",.01)
 ;;68071-0122-60
 ;;9002226.02101,"975,68071-0122-60 ",.02)
 ;;68071-0122-60
 ;;9002226.02101,"975,68071-0231-30 ",.01)
 ;;68071-0231-30
 ;;9002226.02101,"975,68071-0231-30 ",.02)
 ;;68071-0231-30
 ;;9002226.02101,"975,68071-0231-60 ",.01)
 ;;68071-0231-60
 ;;9002226.02101,"975,68071-0231-60 ",.02)
 ;;68071-0231-60
 ;;9002226.02101,"975,68071-0322-60 ",.01)
 ;;68071-0322-60
 ;;9002226.02101,"975,68071-0322-60 ",.02)
 ;;68071-0322-60
 ;;9002226.02101,"975,68071-0323-30 ",.01)
 ;;68071-0323-30
 ;;9002226.02101,"975,68071-0323-30 ",.02)
 ;;68071-0323-30
 ;;9002226.02101,"975,68071-0323-60 ",.01)
 ;;68071-0323-60
 ;;9002226.02101,"975,68071-0323-60 ",.02)
 ;;68071-0323-60
 ;;9002226.02101,"975,68071-0323-90 ",.01)
 ;;68071-0323-90
 ;;9002226.02101,"975,68071-0323-90 ",.02)
 ;;68071-0323-90
 ;;9002226.02101,"975,68084-0031-01 ",.01)
 ;;68084-0031-01
 ;;9002226.02101,"975,68084-0031-01 ",.02)
 ;;68084-0031-01
 ;;9002226.02101,"975,68084-0032-01 ",.01)
 ;;68084-0032-01
 ;;9002226.02101,"975,68084-0032-01 ",.02)
 ;;68084-0032-01
 ;;9002226.02101,"975,68084-0044-01 ",.01)
 ;;68084-0044-01
 ;;9002226.02101,"975,68084-0044-01 ",.02)
 ;;68084-0044-01
 ;;9002226.02101,"975,68084-0044-85 ",.01)
 ;;68084-0044-85
 ;;9002226.02101,"975,68084-0044-85 ",.02)
 ;;68084-0044-85
 ;;9002226.02101,"975,68084-0045-01 ",.01)
 ;;68084-0045-01
 ;;9002226.02101,"975,68084-0045-01 ",.02)
 ;;68084-0045-01
 ;;9002226.02101,"975,68084-0045-85 ",.01)
 ;;68084-0045-85
 ;;9002226.02101,"975,68084-0045-85 ",.02)
 ;;68084-0045-85
 ;;9002226.02101,"975,68084-0046-01 ",.01)
 ;;68084-0046-01
 ;;9002226.02101,"975,68084-0046-01 ",.02)
 ;;68084-0046-01
 ;;9002226.02101,"975,68084-0046-85 ",.01)
 ;;68084-0046-85
 ;;9002226.02101,"975,68084-0046-85 ",.02)
 ;;68084-0046-85
 ;;9002226.02101,"975,68084-0047-01 ",.01)
 ;;68084-0047-01
 ;;9002226.02101,"975,68084-0047-01 ",.02)
 ;;68084-0047-01
 ;;9002226.02101,"975,68084-0047-85 ",.01)
 ;;68084-0047-85
 ;;9002226.02101,"975,68084-0047-85 ",.02)
 ;;68084-0047-85
 ;;9002226.02101,"975,68115-0021-00 ",.01)
 ;;68115-0021-00
 ;;9002226.02101,"975,68115-0021-00 ",.02)
 ;;68115-0021-00
 ;;9002226.02101,"975,68115-0021-30 ",.01)
 ;;68115-0021-30
 ;;9002226.02101,"975,68115-0021-30 ",.02)
 ;;68115-0021-30
 ;;9002226.02101,"975,68115-0022-00 ",.01)
 ;;68115-0022-00
 ;;9002226.02101,"975,68115-0022-00 ",.02)
 ;;68115-0022-00
 ;;9002226.02101,"975,68115-0022-30 ",.01)
 ;;68115-0022-30
 ;;9002226.02101,"975,68115-0022-30 ",.02)
 ;;68115-0022-30
 ;;9002226.02101,"975,68115-0022-60 ",.01)
 ;;68115-0022-60
 ;;9002226.02101,"975,68115-0022-60 ",.02)
 ;;68115-0022-60
 ;;9002226.02101,"975,68115-0023-00 ",.01)
 ;;68115-0023-00
 ;;9002226.02101,"975,68115-0023-00 ",.02)
 ;;68115-0023-00
 ;;9002226.02101,"975,68115-0023-30 ",.01)
 ;;68115-0023-30
 ;;9002226.02101,"975,68115-0023-30 ",.02)
 ;;68115-0023-30
 ;;9002226.02101,"975,68115-0023-60 ",.01)
 ;;68115-0023-60
 ;;9002226.02101,"975,68115-0023-60 ",.02)
 ;;68115-0023-60
 ;;9002226.02101,"975,68115-0023-90 ",.01)
 ;;68115-0023-90
 ;;9002226.02101,"975,68115-0023-90 ",.02)
 ;;68115-0023-90
 ;;9002226.02101,"975,68115-0024-00 ",.01)
 ;;68115-0024-00
 ;;9002226.02101,"975,68115-0024-00 ",.02)
 ;;68115-0024-00
 ;;9002226.02101,"975,68115-0024-30 ",.01)
 ;;68115-0024-30
 ;;9002226.02101,"975,68115-0024-30 ",.02)
 ;;68115-0024-30
 ;;9002226.02101,"975,68115-0024-60 ",.01)
 ;;68115-0024-60
 ;;9002226.02101,"975,68115-0024-60 ",.02)
 ;;68115-0024-60
 ;;9002226.02101,"975,68115-0071-00 ",.01)
 ;;68115-0071-00
 ;;9002226.02101,"975,68115-0071-00 ",.02)
 ;;68115-0071-00
 ;;9002226.02101,"975,68115-0071-30 ",.01)
 ;;68115-0071-30
 ;;9002226.02101,"975,68115-0071-30 ",.02)
 ;;68115-0071-30
 ;;9002226.02101,"975,68115-0124-30 ",.01)
 ;;68115-0124-30
 ;;9002226.02101,"975,68115-0124-30 ",.02)
 ;;68115-0124-30
 ;;9002226.02101,"975,68115-0124-60 ",.01)
 ;;68115-0124-60
 ;;9002226.02101,"975,68115-0124-60 ",.02)
 ;;68115-0124-60
 ;;9002226.02101,"975,68115-0124-90 ",.01)
 ;;68115-0124-90
 ;;9002226.02101,"975,68115-0124-90 ",.02)
 ;;68115-0124-90
 ;;9002226.02101,"975,68115-0143-30 ",.01)
 ;;68115-0143-30
 ;;9002226.02101,"975,68115-0143-30 ",.02)
 ;;68115-0143-30
 ;;9002226.02101,"975,68115-0143-60 ",.01)
 ;;68115-0143-60
 ;;9002226.02101,"975,68115-0143-60 ",.02)
 ;;68115-0143-60
 ;;9002226.02101,"975,68115-0144-00 ",.01)
 ;;68115-0144-00
 ;;9002226.02101,"975,68115-0144-00 ",.02)
 ;;68115-0144-00
 ;;9002226.02101,"975,68115-0144-30 ",.01)
 ;;68115-0144-30
 ;;9002226.02101,"975,68115-0144-30 ",.02)
 ;;68115-0144-30
 ;;9002226.02101,"975,68115-0144-60 ",.01)
 ;;68115-0144-60
 ;;9002226.02101,"975,68115-0144-60 ",.02)
 ;;68115-0144-60
 ;;9002226.02101,"975,68115-0144-90 ",.01)
 ;;68115-0144-90
 ;;9002226.02101,"975,68115-0144-90 ",.02)
 ;;68115-0144-90
 ;;9002226.02101,"975,68115-0145-30 ",.01)
 ;;68115-0145-30
 ;;9002226.02101,"975,68115-0145-30 ",.02)
 ;;68115-0145-30
 ;;9002226.02101,"975,68115-0145-60 ",.01)
 ;;68115-0145-60
 ;;9002226.02101,"975,68115-0145-60 ",.02)
 ;;68115-0145-60
 ;;9002226.02101,"975,68115-0145-90 ",.01)
 ;;68115-0145-90
 ;;9002226.02101,"975,68115-0145-90 ",.02)
 ;;68115-0145-90
 ;;9002226.02101,"975,68115-0261-00 ",.01)
 ;;68115-0261-00
 ;;9002226.02101,"975,68115-0261-00 ",.02)
 ;;68115-0261-00
 ;;9002226.02101,"975,68115-0261-30 ",.01)
 ;;68115-0261-30
 ;;9002226.02101,"975,68115-0261-30 ",.02)
 ;;68115-0261-30
 ;;9002226.02101,"975,68115-0261-60 ",.01)
 ;;68115-0261-60
 ;;9002226.02101,"975,68115-0261-60 ",.02)
 ;;68115-0261-60
 ;;9002226.02101,"975,68115-0262-00 ",.01)
 ;;68115-0262-00
 ;;9002226.02101,"975,68115-0262-00 ",.02)
 ;;68115-0262-00
 ;;9002226.02101,"975,68115-0262-30 ",.01)
 ;;68115-0262-30
 ;;9002226.02101,"975,68115-0262-30 ",.02)
 ;;68115-0262-30
 ;;9002226.02101,"975,68115-0262-60 ",.01)
 ;;68115-0262-60
 ;;9002226.02101,"975,68115-0262-60 ",.02)
 ;;68115-0262-60
 ;;9002226.02101,"975,68115-0267-30 ",.01)
 ;;68115-0267-30
 ;;9002226.02101,"975,68115-0267-30 ",.02)
 ;;68115-0267-30
 ;;9002226.02101,"975,68115-0293-30 ",.01)
 ;;68115-0293-30
 ;;9002226.02101,"975,68115-0293-30 ",.02)
 ;;68115-0293-30
 ;;9002226.02101,"975,68115-0296-00 ",.01)
 ;;68115-0296-00
 ;;9002226.02101,"975,68115-0296-00 ",.02)
 ;;68115-0296-00
 ;;9002226.02101,"975,68115-0296-15 ",.01)
 ;;68115-0296-15
 ;;9002226.02101,"975,68115-0296-15 ",.02)
 ;;68115-0296-15
 ;;9002226.02101,"975,68115-0296-30 ",.01)
 ;;68115-0296-30
 ;;9002226.02101,"975,68115-0296-30 ",.02)
 ;;68115-0296-30
 ;;9002226.02101,"975,68115-0296-60 ",.01)
 ;;68115-0296-60
 ;;9002226.02101,"975,68115-0296-60 ",.02)
 ;;68115-0296-60
 ;;9002226.02101,"975,68115-0296-90 ",.01)
 ;;68115-0296-90
 ;;9002226.02101,"975,68115-0296-90 ",.02)
 ;;68115-0296-90
 ;;9002226.02101,"975,68115-0297-30 ",.01)
 ;;68115-0297-30
 ;;9002226.02101,"975,68115-0297-30 ",.02)
 ;;68115-0297-30
 ;;9002226.02101,"975,68115-0331-30 ",.01)
 ;;68115-0331-30
 ;;9002226.02101,"975,68115-0331-30 ",.02)
 ;;68115-0331-30
 ;;9002226.02101,"975,68115-0331-60 ",.01)
 ;;68115-0331-60
 ;;9002226.02101,"975,68115-0331-60 ",.02)
 ;;68115-0331-60
 ;;9002226.02101,"975,68115-0331-90 ",.01)
 ;;68115-0331-90
 ;;9002226.02101,"975,68115-0331-90 ",.02)
 ;;68115-0331-90
 ;;9002226.02101,"975,68115-0332-30 ",.01)
 ;;68115-0332-30
 ;;9002226.02101,"975,68115-0332-30 ",.02)
 ;;68115-0332-30
 ;;9002226.02101,"975,68115-0332-60 ",.01)
 ;;68115-0332-60
 ;;9002226.02101,"975,68115-0332-60 ",.02)
 ;;68115-0332-60
 ;;9002226.02101,"975,68115-0332-90 ",.01)
 ;;68115-0332-90
 ;;9002226.02101,"975,68115-0332-90 ",.02)
 ;;68115-0332-90
 ;;9002226.02101,"975,68115-0333-30 ",.01)
 ;;68115-0333-30
 ;;9002226.02101,"975,68115-0333-30 ",.02)
 ;;68115-0333-30
 ;;9002226.02101,"975,68115-0333-60 ",.01)
 ;;68115-0333-60
 ;;9002226.02101,"975,68115-0333-60 ",.02)
 ;;68115-0333-60
 ;;9002226.02101,"975,68115-0333-90 ",.01)
 ;;68115-0333-90
 ;;9002226.02101,"975,68115-0333-90 ",.02)
 ;;68115-0333-90