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

BGP06B10.m

Go to the documentation of this file.
BGP06B10 ;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,00008-0704-01 ",.01)
 ;;00008-0704-01
 ;;9002226.02101,"975,00008-0704-01 ",.02)
 ;;00008-0704-01
 ;;9002226.02101,"975,00008-0704-02 ",.01)
 ;;00008-0704-02
 ;;9002226.02101,"975,00008-0704-02 ",.02)
 ;;00008-0704-02
 ;;9002226.02101,"975,00008-0704-07 ",.01)
 ;;00008-0704-07
 ;;9002226.02101,"975,00008-0704-07 ",.02)
 ;;00008-0704-07
 ;;9002226.02101,"975,00008-0704-08 ",.01)
 ;;00008-0704-08
 ;;9002226.02101,"975,00008-0704-08 ",.02)
 ;;00008-0704-08
 ;;9002226.02101,"975,00008-0705-01 ",.01)
 ;;00008-0705-01
 ;;9002226.02101,"975,00008-0705-01 ",.02)
 ;;00008-0705-01
 ;;9002226.02101,"975,00008-0705-02 ",.01)
 ;;00008-0705-02
 ;;9002226.02101,"975,00008-0705-02 ",.02)
 ;;00008-0705-02
 ;;9002226.02101,"975,00008-0705-07 ",.01)
 ;;00008-0705-07
 ;;9002226.02101,"975,00008-0705-07 ",.02)
 ;;00008-0705-07
 ;;9002226.02101,"975,00008-0705-08 ",.01)
 ;;00008-0705-08
 ;;9002226.02101,"975,00008-0705-08 ",.02)
 ;;00008-0705-08
 ;;9002226.02101,"975,00008-0781-01 ",.01)
 ;;00008-0781-01
 ;;9002226.02101,"975,00008-0781-01 ",.02)
 ;;00008-0781-01
 ;;9002226.02101,"975,00008-0781-02 ",.01)
 ;;00008-0781-02
 ;;9002226.02101,"975,00008-0781-02 ",.02)
 ;;00008-0781-02
 ;;9002226.02101,"975,00008-0781-07 ",.01)
 ;;00008-0781-07
 ;;9002226.02101,"975,00008-0781-07 ",.02)
 ;;00008-0781-07
 ;;9002226.02101,"975,00008-0781-08 ",.01)
 ;;00008-0781-08
 ;;9002226.02101,"975,00008-0781-08 ",.02)
 ;;00008-0781-08
 ;;9002226.02101,"975,00008-0833-01 ",.01)
 ;;00008-0833-01
 ;;9002226.02101,"975,00008-0833-01 ",.02)
 ;;00008-0833-01
 ;;9002226.02101,"975,00008-0833-03 ",.01)
 ;;00008-0833-03
 ;;9002226.02101,"975,00008-0833-03 ",.02)
 ;;00008-0833-03
 ;;9002226.02101,"975,00008-0833-20 ",.01)
 ;;00008-0833-20
 ;;9002226.02101,"975,00008-0833-20 ",.02)
 ;;00008-0833-20
 ;;9002226.02101,"975,00008-0833-21 ",.01)
 ;;00008-0833-21
 ;;9002226.02101,"975,00008-0833-21 ",.02)
 ;;00008-0833-21
 ;;9002226.02101,"975,00008-0833-22 ",.01)
 ;;00008-0833-22
 ;;9002226.02101,"975,00008-0833-22 ",.02)
 ;;00008-0833-22
 ;;9002226.02101,"975,00008-0836-01 ",.01)
 ;;00008-0836-01
 ;;9002226.02101,"975,00008-0836-01 ",.02)
 ;;00008-0836-01
 ;;9002226.02101,"975,00008-0836-03 ",.01)
 ;;00008-0836-03
 ;;9002226.02101,"975,00008-0836-03 ",.02)
 ;;00008-0836-03
 ;;9002226.02101,"975,00008-0836-20 ",.01)
 ;;00008-0836-20
 ;;9002226.02101,"975,00008-0836-20 ",.02)
 ;;00008-0836-20
 ;;9002226.02101,"975,00008-0836-21 ",.01)
 ;;00008-0836-21
 ;;9002226.02101,"975,00008-0836-21 ",.02)
 ;;00008-0836-21
 ;;9002226.02101,"975,00008-0836-22 ",.01)
 ;;00008-0836-22
 ;;9002226.02101,"975,00008-0836-22 ",.02)
 ;;00008-0836-22
 ;;9002226.02101,"975,00008-0837-01 ",.01)
 ;;00008-0837-01
 ;;9002226.02101,"975,00008-0837-01 ",.02)
 ;;00008-0837-01
 ;;9002226.02101,"975,00008-0837-03 ",.01)
 ;;00008-0837-03
 ;;9002226.02101,"975,00008-0837-03 ",.02)
 ;;00008-0837-03
 ;;9002226.02101,"975,00008-0837-20 ",.01)
 ;;00008-0837-20
 ;;9002226.02101,"975,00008-0837-20 ",.02)
 ;;00008-0837-20
 ;;9002226.02101,"975,00008-0837-21 ",.01)
 ;;00008-0837-21
 ;;9002226.02101,"975,00008-0837-21 ",.02)
 ;;00008-0837-21
 ;;9002226.02101,"975,00008-0837-22 ",.01)
 ;;00008-0837-22
 ;;9002226.02101,"975,00008-0837-22 ",.02)
 ;;00008-0837-22
 ;;9002226.02101,"975,00008-2702-11 ",.01)
 ;;00008-2702-11
 ;;9002226.02101,"975,00008-2702-11 ",.02)
 ;;00008-2702-11
 ;;9002226.02101,"975,00008-4132-01 ",.01)
 ;;00008-4132-01
 ;;9002226.02101,"975,00008-4132-01 ",.02)
 ;;00008-4132-01
 ;;9002226.02101,"975,00008-4133-01 ",.01)
 ;;00008-4133-01
 ;;9002226.02101,"975,00008-4133-01 ",.02)
 ;;00008-4133-01
 ;;9002226.02101,"975,00008-4158-01 ",.01)
 ;;00008-4158-01
 ;;9002226.02101,"975,00008-4158-01 ",.02)
 ;;00008-4158-01
 ;;9002226.02101,"975,00028-0020-01 ",.01)
 ;;00028-0020-01
 ;;9002226.02101,"975,00028-0020-01 ",.02)
 ;;00028-0020-01
 ;;9002226.02101,"975,00028-0020-26 ",.01)
 ;;00028-0020-26
 ;;9002226.02101,"975,00028-0020-26 ",.02)
 ;;00028-0020-26
 ;;9002226.02101,"975,00028-0022-01 ",.01)
 ;;00028-0022-01
 ;;9002226.02101,"975,00028-0022-01 ",.02)
 ;;00028-0022-01
 ;;9002226.02101,"975,00028-0022-26 ",.01)
 ;;00028-0022-26
 ;;9002226.02101,"975,00028-0022-26 ",.02)
 ;;00028-0022-26
 ;;9002226.02101,"975,00028-0032-01 ",.01)
 ;;00028-0032-01
 ;;9002226.02101,"975,00028-0032-01 ",.02)
 ;;00028-0032-01
 ;;9002226.02101,"975,00028-0040-01 ",.01)
 ;;00028-0040-01
 ;;9002226.02101,"975,00028-0040-01 ",.02)
 ;;00028-0040-01
 ;;9002226.02101,"975,00028-0040-26 ",.01)
 ;;00028-0040-26
 ;;9002226.02101,"975,00028-0040-26 ",.02)
 ;;00028-0040-26
 ;;9002226.02101,"975,00028-0045-01 ",.01)
 ;;00028-0045-01
 ;;9002226.02101,"975,00028-0045-01 ",.02)
 ;;00028-0045-01
 ;;9002226.02101,"975,00028-0045-26 ",.01)
 ;;00028-0045-26
 ;;9002226.02101,"975,00028-0045-26 ",.02)
 ;;00028-0045-26
 ;;9002226.02101,"975,00028-0136-01 ",.01)
 ;;00028-0136-01
 ;;9002226.02101,"975,00028-0136-01 ",.02)
 ;;00028-0136-01
 ;;9002226.02101,"975,00028-0136-10 ",.01)
 ;;00028-0136-10
 ;;9002226.02101,"975,00028-0136-10 ",.02)
 ;;00028-0136-10
 ;;9002226.02101,"975,00028-0136-65 ",.01)
 ;;00028-0136-65
 ;;9002226.02101,"975,00028-0136-65 ",.02)
 ;;00028-0136-65
 ;;9002226.02101,"975,00028-0140-01 ",.01)
 ;;00028-0140-01
 ;;9002226.02101,"975,00028-0140-01 ",.02)
 ;;00028-0140-01
 ;;9002226.02101,"975,00028-0140-10 ",.01)
 ;;00028-0140-10
 ;;9002226.02101,"975,00028-0140-10 ",.02)
 ;;00028-0140-10
 ;;9002226.02101,"975,00029-3206-13 ",.01)
 ;;00029-3206-13
 ;;9002226.02101,"975,00029-3206-13 ",.02)
 ;;00029-3206-13
 ;;9002226.02101,"975,00029-3207-13 ",.01)
 ;;00029-3207-13
 ;;9002226.02101,"975,00029-3207-13 ",.02)
 ;;00029-3207-13
 ;;9002226.02101,"975,00029-3208-13 ",.01)
 ;;00029-3208-13
 ;;9002226.02101,"975,00029-3208-13 ",.02)
 ;;00029-3208-13
 ;;9002226.02101,"975,00029-3210-13 ",.01)
 ;;00029-3210-13
 ;;9002226.02101,"975,00029-3210-13 ",.02)
 ;;00029-3210-13
 ;;9002226.02101,"975,00029-3211-13 ",.01)
 ;;00029-3211-13
 ;;9002226.02101,"975,00029-3211-13 ",.02)
 ;;00029-3211-13
 ;;9002226.02101,"975,00029-3211-20 ",.01)
 ;;00029-3211-20
 ;;9002226.02101,"975,00029-3211-20 ",.02)
 ;;00029-3211-20
 ;;9002226.02101,"975,00029-3211-21 ",.01)
 ;;00029-3211-21
 ;;9002226.02101,"975,00029-3211-21 ",.02)
 ;;00029-3211-21
 ;;9002226.02101,"975,00029-3211-59 ",.01)
 ;;00029-3211-59
 ;;9002226.02101,"975,00029-3211-59 ",.02)
 ;;00029-3211-59
 ;;9002226.02101,"975,00029-3212-13 ",.01)
 ;;00029-3212-13
 ;;9002226.02101,"975,00029-3212-13 ",.02)
 ;;00029-3212-13
 ;;9002226.02101,"975,00029-3213-13 ",.01)
 ;;00029-3213-13
 ;;9002226.02101,"975,00029-3213-13 ",.02)
 ;;00029-3213-13
 ;;9002226.02101,"975,00029-3213-25 ",.01)
 ;;00029-3213-25
 ;;9002226.02101,"975,00029-3213-25 ",.02)
 ;;00029-3213-25
 ;;9002226.02101,"975,00029-3215-48 ",.01)
 ;;00029-3215-48
 ;;9002226.02101,"975,00029-3215-48 ",.02)
 ;;00029-3215-48
 ;;9002226.02101,"975,00032-4202-01 ",.01)
 ;;00032-4202-01
 ;;9002226.02101,"975,00032-4202-01 ",.02)
 ;;00032-4202-01
 ;;9002226.02101,"975,00032-4202-11 ",.01)
 ;;00032-4202-11
 ;;9002226.02101,"975,00032-4202-11 ",.02)
 ;;00032-4202-11
 ;;9002226.02101,"975,00032-4205-01 ",.01)
 ;;00032-4205-01
 ;;9002226.02101,"975,00032-4205-01 ",.02)
 ;;00032-4205-01
 ;;9002226.02101,"975,00032-4205-11 ",.01)
 ;;00032-4205-11
 ;;9002226.02101,"975,00032-4205-11 ",.02)
 ;;00032-4205-11
 ;;9002226.02101,"975,00032-4210-01 ",.01)
 ;;00032-4210-01
 ;;9002226.02101,"975,00032-4210-01 ",.02)
 ;;00032-4210-01
 ;;9002226.02101,"975,00032-4210-11 ",.01)
 ;;00032-4210-11
 ;;9002226.02101,"975,00032-4210-11 ",.02)
 ;;00032-4210-11
 ;;9002226.02101,"975,00038-0041-10 ",.01)
 ;;00038-0041-10
 ;;9002226.02101,"975,00038-0041-10 ",.02)
 ;;00038-0041-10
 ;;9002226.02101,"975,00038-0041-34 ",.01)
 ;;00038-0041-34
 ;;9002226.02101,"975,00038-0041-34 ",.02)
 ;;00038-0041-34
 ;;9002226.02101,"975,00038-0041-39 ",.01)
 ;;00038-0041-39
 ;;9002226.02101,"975,00038-0041-39 ",.02)
 ;;00038-0041-39
 ;;9002226.02101,"975,00049-4900-30 ",.01)
 ;;00049-4900-30
 ;;9002226.02101,"975,00049-4900-30 ",.02)
 ;;00049-4900-30
 ;;9002226.02101,"975,00049-4900-41 ",.01)
 ;;00049-4900-41
 ;;9002226.02101,"975,00049-4900-41 ",.02)
 ;;00049-4900-41
 ;;9002226.02101,"975,00049-4900-66 ",.01)
 ;;00049-4900-66
 ;;9002226.02101,"975,00049-4900-66 ",.02)
 ;;00049-4900-66
 ;;9002226.02101,"975,00049-4900-73 ",.01)
 ;;00049-4900-73
 ;;9002226.02101,"975,00049-4900-73 ",.02)
 ;;00049-4900-73
 ;;9002226.02101,"975,00049-4900-94 ",.01)
 ;;00049-4900-94
 ;;9002226.02101,"975,00049-4900-94 ",.02)
 ;;00049-4900-94
 ;;9002226.02101,"975,00049-4910-30 ",.01)
 ;;00049-4910-30
 ;;9002226.02101,"975,00049-4910-30 ",.02)
 ;;00049-4910-30
 ;;9002226.02101,"975,00049-4910-41 ",.01)
 ;;00049-4910-41
 ;;9002226.02101,"975,00049-4910-41 ",.02)
 ;;00049-4910-41
 ;;9002226.02101,"975,00049-4910-66 ",.01)
 ;;00049-4910-66
 ;;9002226.02101,"975,00049-4910-66 ",.02)
 ;;00049-4910-66
 ;;9002226.02101,"975,00049-4910-73 ",.01)
 ;;00049-4910-73
 ;;9002226.02101,"975,00049-4910-73 ",.02)
 ;;00049-4910-73
 ;;9002226.02101,"975,00049-4910-94 ",.01)
 ;;00049-4910-94
 ;;9002226.02101,"975,00049-4910-94 ",.02)
 ;;00049-4910-94
 ;;9002226.02101,"975,00049-4940-23 ",.01)
 ;;00049-4940-23
 ;;9002226.02101,"975,00049-4940-23 ",.02)
 ;;00049-4940-23
 ;;9002226.02101,"975,00049-4960-30 ",.01)
 ;;00049-4960-30
 ;;9002226.02101,"975,00049-4960-30 ",.02)
 ;;00049-4960-30
 ;;9002226.02101,"975,00049-4960-50 ",.01)
 ;;00049-4960-50
 ;;9002226.02101,"975,00049-4960-50 ",.02)
 ;;00049-4960-50
 ;;9002226.02101,"975,00049-5100-47 ",.01)
 ;;00049-5100-47
 ;;9002226.02101,"975,00049-5100-47 ",.02)
 ;;00049-5100-47
 ;;9002226.02101,"975,00049-5340-66 ",.01)
 ;;00049-5340-66
 ;;9002226.02101,"975,00049-5340-66 ",.02)
 ;;00049-5340-66
 ;;9002226.02101,"975,00049-5350-66 ",.01)
 ;;00049-5350-66
 ;;9002226.02101,"975,00049-5350-66 ",.02)
 ;;00049-5350-66
 ;;9002226.02101,"975,00049-5360-66 ",.01)
 ;;00049-5360-66
 ;;9002226.02101,"975,00049-5360-66 ",.02)
 ;;00049-5360-66
 ;;9002226.02101,"975,00049-5360-94 ",.01)
 ;;00049-5360-94
 ;;9002226.02101,"975,00049-5360-94 ",.02)
 ;;00049-5360-94
 ;;9002226.02101,"975,00049-5370-50 ",.01)
 ;;00049-5370-50
 ;;9002226.02101,"975,00049-5370-50 ",.02)
 ;;00049-5370-50
 ;;9002226.02101,"975,00049-5380-66 ",.01)
 ;;00049-5380-66
 ;;9002226.02101,"975,00049-5380-66 ",.02)
 ;;00049-5380-66
 ;;9002226.02101,"975,00049-5390-66 ",.01)
 ;;00049-5390-66
 ;;9002226.02101,"975,00049-5390-66 ",.02)
 ;;00049-5390-66
 ;;9002226.02101,"975,00052-0105-30 ",.01)
 ;;00052-0105-30
 ;;9002226.02101,"975,00052-0105-30 ",.02)
 ;;00052-0105-30
 ;;9002226.02101,"975,00052-0105-90 ",.01)
 ;;00052-0105-90
 ;;9002226.02101,"975,00052-0105-90 ",.02)
 ;;00052-0105-90
 ;;9002226.02101,"975,00052-0106-30 ",.01)
 ;;00052-0106-30
 ;;9002226.02101,"975,00052-0106-30 ",.02)
 ;;00052-0106-30
 ;;9002226.02101,"975,00052-0106-90 ",.01)
 ;;00052-0106-90
 ;;9002226.02101,"975,00052-0106-90 ",.02)
 ;;00052-0106-90
 ;;9002226.02101,"975,00052-0106-93 ",.01)
 ;;00052-0106-93
 ;;9002226.02101,"975,00052-0106-93 ",.02)
 ;;00052-0106-93
 ;;9002226.02101,"975,00052-0107-30 ",.01)
 ;;00052-0107-30
 ;;9002226.02101,"975,00052-0107-30 ",.02)
 ;;00052-0107-30
 ;;9002226.02101,"975,00052-0107-90 ",.01)
 ;;00052-0107-90
 ;;9002226.02101,"975,00052-0107-90 ",.02)
 ;;00052-0107-90
 ;;9002226.02101,"975,00052-0108-30 ",.01)
 ;;00052-0108-30
 ;;9002226.02101,"975,00052-0108-30 ",.02)
 ;;00052-0108-30
 ;;9002226.02101,"975,00052-0108-90 ",.01)
 ;;00052-0108-90
 ;;9002226.02101,"975,00052-0108-90 ",.02)
 ;;00052-0108-90
 ;;9002226.02101,"975,00052-0108-93 ",.01)
 ;;00052-0108-93
 ;;9002226.02101,"975,00052-0108-93 ",.02)
 ;;00052-0108-93
 ;;9002226.02101,"975,00052-0109-30 ",.01)
 ;;00052-0109-30
 ;;9002226.02101,"975,00052-0109-30 ",.02)
 ;;00052-0109-30
 ;;9002226.02101,"975,00052-0110-30 ",.01)
 ;;00052-0110-30
 ;;9002226.02101,"975,00052-0110-30 ",.02)
 ;;00052-0110-30
 ;;9002226.02101,"975,00052-0110-90 ",.01)
 ;;00052-0110-90
 ;;9002226.02101,"975,00052-0110-90 ",.02)
 ;;00052-0110-90
 ;;9002226.02101,"975,00054-0062-58 ",.01)
 ;;00054-0062-58
 ;;9002226.02101,"975,00054-0062-58 ",.02)
 ;;00054-0062-58
 ;;9002226.02101,"975,00054-4672-21 ",.01)
 ;;00054-4672-21
 ;;9002226.02101,"975,00054-4672-21 ",.02)
 ;;00054-4672-21
 ;;9002226.02101,"975,00054-4673-21 ",.01)
 ;;00054-4673-21
 ;;9002226.02101,"975,00054-4673-21 ",.02)
 ;;00054-4673-21
 ;;9002226.02101,"975,00054-4674-21 ",.01)
 ;;00054-4674-21
 ;;9002226.02101,"975,00054-4674-21 ",.02)
 ;;00054-4674-21
 ;;9002226.02101,"975,00054-4676-13 ",.01)
 ;;00054-4676-13
 ;;9002226.02101,"975,00054-4676-13 ",.02)
 ;;00054-4676-13
 ;;9002226.02101,"975,00054-4677-13 ",.01)
 ;;00054-4677-13
 ;;9002226.02101,"975,00054-4677-13 ",.02)
 ;;00054-4677-13
 ;;9002226.02101,"975,00054-4678-13 ",.01)
 ;;00054-4678-13
 ;;9002226.02101,"975,00054-4678-13 ",.02)
 ;;00054-4678-13
 ;;9002226.02101,"975,00054-8676-25 ",.01)
 ;;00054-8676-25
 ;;9002226.02101,"975,00054-8676-25 ",.02)
 ;;00054-8676-25
 ;;9002226.02101,"975,00054-8677-25 ",.01)
 ;;00054-8677-25
 ;;9002226.02101,"975,00054-8677-25 ",.02)
 ;;00054-8677-25
 ;;9002226.02101,"975,00068-0007-01 ",.01)
 ;;00068-0007-01
 ;;9002226.02101,"975,00068-0007-01 ",.02)
 ;;00068-0007-01
 ;;9002226.02101,"975,00068-0011-01 ",.01)
 ;;00068-0011-01
 ;;9002226.02101,"975,00068-0011-01 ",.02)
 ;;00068-0011-01