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

BGP48K7.m

Go to the documentation of this file.
BGP48K7 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 24, 2014;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,"1813,00409-7793-62 ",.02)
 ;;00409-7793-62
 ;;9002226.02101,"1813,00409-7794-62 ",.01)
 ;;00409-7794-62
 ;;9002226.02101,"1813,00409-7794-62 ",.02)
 ;;00409-7794-62
 ;;9002226.02101,"1813,00548-5601-00 ",.01)
 ;;00548-5601-00
 ;;9002226.02101,"1813,00548-5601-00 ",.02)
 ;;00548-5601-00
 ;;9002226.02101,"1813,00548-5602-00 ",.01)
 ;;00548-5602-00
 ;;9002226.02101,"1813,00548-5602-00 ",.02)
 ;;00548-5602-00
 ;;9002226.02101,"1813,00548-5603-00 ",.01)
 ;;00548-5603-00
 ;;9002226.02101,"1813,00548-5603-00 ",.02)
 ;;00548-5603-00
 ;;9002226.02101,"1813,00548-5604-00 ",.01)
 ;;00548-5604-00
 ;;9002226.02101,"1813,00548-5604-00 ",.02)
 ;;00548-5604-00
 ;;9002226.02101,"1813,00548-5605-00 ",.01)
 ;;00548-5605-00
 ;;9002226.02101,"1813,00548-5605-00 ",.02)
 ;;00548-5605-00
 ;;9002226.02101,"1813,00548-5606-00 ",.01)
 ;;00548-5606-00
 ;;9002226.02101,"1813,00548-5606-00 ",.02)
 ;;00548-5606-00
 ;;9002226.02101,"1813,00548-5607-00 ",.01)
 ;;00548-5607-00
 ;;9002226.02101,"1813,00548-5607-00 ",.02)
 ;;00548-5607-00
 ;;9002226.02101,"1813,00548-5631-00 ",.01)
 ;;00548-5631-00
 ;;9002226.02101,"1813,00548-5631-00 ",.02)
 ;;00548-5631-00
 ;;9002226.02101,"1813,00548-5632-00 ",.01)
 ;;00548-5632-00
 ;;9002226.02101,"1813,00548-5632-00 ",.02)
 ;;00548-5632-00
 ;;9002226.02101,"1813,00548-5633-00 ",.01)
 ;;00548-5633-00
 ;;9002226.02101,"1813,00548-5633-00 ",.02)
 ;;00548-5633-00
 ;;9002226.02101,"1813,00548-5634-00 ",.01)
 ;;00548-5634-00
 ;;9002226.02101,"1813,00548-5634-00 ",.02)
 ;;00548-5634-00
 ;;9002226.02101,"1813,00548-5635-00 ",.01)
 ;;00548-5635-00
 ;;9002226.02101,"1813,00548-5635-00 ",.02)
 ;;00548-5635-00
 ;;9002226.02101,"1813,00548-5636-00 ",.01)
 ;;00548-5636-00
 ;;9002226.02101,"1813,00548-5636-00 ",.02)
 ;;00548-5636-00
 ;;9002226.02101,"1813,00548-5637-00 ",.01)
 ;;00548-5637-00
 ;;9002226.02101,"1813,00548-5637-00 ",.02)
 ;;00548-5637-00
 ;;9002226.02101,"1813,00555-0831-02 ",.01)
 ;;00555-0831-02
 ;;9002226.02101,"1813,00555-0831-02 ",.02)
 ;;00555-0831-02
 ;;9002226.02101,"1813,00555-0831-05 ",.01)
 ;;00555-0831-05
 ;;9002226.02101,"1813,00555-0831-05 ",.02)
 ;;00555-0831-05
 ;;9002226.02101,"1813,00555-0832-02 ",.01)
 ;;00555-0832-02
 ;;9002226.02101,"1813,00555-0832-02 ",.02)
 ;;00555-0832-02
 ;;9002226.02101,"1813,00555-0832-05 ",.01)
 ;;00555-0832-05
 ;;9002226.02101,"1813,00555-0832-05 ",.02)
 ;;00555-0832-05
 ;;9002226.02101,"1813,00555-0833-02 ",.01)
 ;;00555-0833-02
 ;;9002226.02101,"1813,00555-0833-02 ",.02)
 ;;00555-0833-02
 ;;9002226.02101,"1813,00555-0833-05 ",.01)
 ;;00555-0833-05
 ;;9002226.02101,"1813,00555-0833-05 ",.02)
 ;;00555-0833-05
 ;;9002226.02101,"1813,00555-0834-02 ",.01)
 ;;00555-0834-02
 ;;9002226.02101,"1813,00555-0834-02 ",.02)
 ;;00555-0834-02
 ;;9002226.02101,"1813,00555-0834-05 ",.01)
 ;;00555-0834-05
 ;;9002226.02101,"1813,00555-0834-05 ",.02)
 ;;00555-0834-05
 ;;9002226.02101,"1813,00555-0835-02 ",.01)
 ;;00555-0835-02
 ;;9002226.02101,"1813,00555-0835-02 ",.02)
 ;;00555-0835-02
 ;;9002226.02101,"1813,00555-0835-04 ",.01)
 ;;00555-0835-04
 ;;9002226.02101,"1813,00555-0835-04 ",.02)
 ;;00555-0835-04
 ;;9002226.02101,"1813,00555-0869-02 ",.01)
 ;;00555-0869-02
 ;;9002226.02101,"1813,00555-0869-02 ",.02)
 ;;00555-0869-02
 ;;9002226.02101,"1813,00555-0869-05 ",.01)
 ;;00555-0869-05
 ;;9002226.02101,"1813,00555-0869-05 ",.02)
 ;;00555-0869-05
 ;;9002226.02101,"1813,00555-0874-02 ",.01)
 ;;00555-0874-02
 ;;9002226.02101,"1813,00555-0874-02 ",.02)
 ;;00555-0874-02
 ;;9002226.02101,"1813,00555-0874-05 ",.01)
 ;;00555-0874-05
 ;;9002226.02101,"1813,00555-0874-05 ",.02)
 ;;00555-0874-05
 ;;9002226.02101,"1813,00555-0925-02 ",.01)
 ;;00555-0925-02
 ;;9002226.02101,"1813,00555-0925-02 ",.02)
 ;;00555-0925-02
 ;;9002226.02101,"1813,00555-0926-02 ",.01)
 ;;00555-0926-02
 ;;9002226.02101,"1813,00555-0926-02 ",.02)
 ;;00555-0926-02
 ;;9002226.02101,"1813,00590-0324-35 ",.01)
 ;;00590-0324-35
 ;;9002226.02101,"1813,00590-0324-35 ",.02)
 ;;00590-0324-35
 ;;9002226.02101,"1813,00590-0324-96 ",.01)
 ;;00590-0324-96
 ;;9002226.02101,"1813,00590-0324-96 ",.02)
 ;;00590-0324-96
 ;;9002226.02101,"1813,00615-1509-29 ",.01)
 ;;00615-1509-29
 ;;9002226.02101,"1813,00615-1509-29 ",.02)
 ;;00615-1509-29
 ;;9002226.02101,"1813,00615-1510-29 ",.01)
 ;;00615-1510-29
 ;;9002226.02101,"1813,00615-1510-29 ",.02)
 ;;00615-1510-29
 ;;9002226.02101,"1813,00615-1512-29 ",.01)
 ;;00615-1512-29
 ;;9002226.02101,"1813,00615-1512-29 ",.02)
 ;;00615-1512-29
 ;;9002226.02101,"1813,00615-4547-29 ",.01)
 ;;00615-4547-29
 ;;9002226.02101,"1813,00615-4547-29 ",.02)
 ;;00615-4547-29
 ;;9002226.02101,"1813,00615-4548-29 ",.01)
 ;;00615-4548-29
 ;;9002226.02101,"1813,00615-4548-29 ",.02)
 ;;00615-4548-29
 ;;9002226.02101,"1813,00615-4549-29 ",.01)
 ;;00615-4549-29
 ;;9002226.02101,"1813,00615-4549-29 ",.02)
 ;;00615-4549-29
 ;;9002226.02101,"1813,00615-4550-29 ",.01)
 ;;00615-4550-29
 ;;9002226.02101,"1813,00615-4550-29 ",.02)
 ;;00615-4550-29
 ;;9002226.02101,"1813,00615-4551-29 ",.01)
 ;;00615-4551-29
 ;;9002226.02101,"1813,00615-4551-29 ",.02)
 ;;00615-4551-29
 ;;9002226.02101,"1813,00615-4557-29 ",.01)
 ;;00615-4557-29
 ;;9002226.02101,"1813,00615-4557-29 ",.02)
 ;;00615-4557-29
 ;;9002226.02101,"1813,00641-0272-21 ",.01)
 ;;00641-0272-21
 ;;9002226.02101,"1813,00641-0272-21 ",.02)
 ;;00641-0272-21
 ;;9002226.02101,"1813,00641-0272-25 ",.01)
 ;;00641-0272-25
 ;;9002226.02101,"1813,00641-0272-25 ",.02)
 ;;00641-0272-25
 ;;9002226.02101,"1813,00641-0273-21 ",.01)
 ;;00641-0273-21
 ;;9002226.02101,"1813,00641-0273-21 ",.02)
 ;;00641-0273-21
 ;;9002226.02101,"1813,00641-0273-25 ",.01)
 ;;00641-0273-25
 ;;9002226.02101,"1813,00641-0273-25 ",.02)
 ;;00641-0273-25
 ;;9002226.02101,"1813,00641-0387-21 ",.01)
 ;;00641-0387-21
 ;;9002226.02101,"1813,00641-0387-21 ",.02)
 ;;00641-0387-21
 ;;9002226.02101,"1813,00641-0387-25 ",.01)
 ;;00641-0387-25
 ;;9002226.02101,"1813,00641-0387-25 ",.02)
 ;;00641-0387-25
 ;;9002226.02101,"1813,00641-0389-21 ",.01)
 ;;00641-0389-21
 ;;9002226.02101,"1813,00641-0389-21 ",.02)
 ;;00641-0389-21
 ;;9002226.02101,"1813,00641-0389-25 ",.01)
 ;;00641-0389-25
 ;;9002226.02101,"1813,00641-0389-25 ",.02)
 ;;00641-0389-25
 ;;9002226.02101,"1813,00641-0391-02 ",.01)
 ;;00641-0391-02
 ;;9002226.02101,"1813,00641-0391-02 ",.02)
 ;;00641-0391-02
 ;;9002226.02101,"1813,00641-0391-12 ",.01)
 ;;00641-0391-12
 ;;9002226.02101,"1813,00641-0391-12 ",.02)
 ;;00641-0391-12
 ;;9002226.02101,"1813,00641-0391-21 ",.01)
 ;;00641-0391-21
 ;;9002226.02101,"1813,00641-0391-21 ",.02)
 ;;00641-0391-21
 ;;9002226.02101,"1813,00641-0391-25 ",.01)
 ;;00641-0391-25
 ;;9002226.02101,"1813,00641-0391-25 ",.02)
 ;;00641-0391-25
 ;;9002226.02101,"1813,00641-0391-37 ",.01)
 ;;00641-0391-37
 ;;9002226.02101,"1813,00641-0391-37 ",.02)
 ;;00641-0391-37
 ;;9002226.02101,"1813,00641-0391-64 ",.01)
 ;;00641-0391-64
 ;;9002226.02101,"1813,00641-0391-64 ",.02)
 ;;00641-0391-64
 ;;9002226.02101,"1813,00641-0392-21 ",.01)
 ;;00641-0392-21
 ;;9002226.02101,"1813,00641-0392-21 ",.02)
 ;;00641-0392-21
 ;;9002226.02101,"1813,00641-0392-25 ",.01)
 ;;00641-0392-25
 ;;9002226.02101,"1813,00641-0392-25 ",.02)
 ;;00641-0392-25
 ;;9002226.02101,"1813,00641-0393-21 ",.01)
 ;;00641-0393-21
 ;;9002226.02101,"1813,00641-0393-21 ",.02)
 ;;00641-0393-21
 ;;9002226.02101,"1813,00641-0393-25 ",.01)
 ;;00641-0393-25
 ;;9002226.02101,"1813,00641-0393-25 ",.02)
 ;;00641-0393-25
 ;;9002226.02101,"1813,00641-0400-02 ",.01)
 ;;00641-0400-02
 ;;9002226.02101,"1813,00641-0400-02 ",.02)
 ;;00641-0400-02
 ;;9002226.02101,"1813,00641-0400-12 ",.01)
 ;;00641-0400-12
 ;;9002226.02101,"1813,00641-0400-12 ",.02)
 ;;00641-0400-12
 ;;9002226.02101,"1813,00641-0400-21 ",.01)
 ;;00641-0400-21
 ;;9002226.02101,"1813,00641-0400-21 ",.02)
 ;;00641-0400-21
 ;;9002226.02101,"1813,00641-0400-25 ",.01)
 ;;00641-0400-25
 ;;9002226.02101,"1813,00641-0400-25 ",.02)
 ;;00641-0400-25
 ;;9002226.02101,"1813,00641-0400-37 ",.01)
 ;;00641-0400-37
 ;;9002226.02101,"1813,00641-0400-37 ",.02)
 ;;00641-0400-37
 ;;9002226.02101,"1813,00641-0400-64 ",.01)
 ;;00641-0400-64
 ;;9002226.02101,"1813,00641-0400-64 ",.02)
 ;;00641-0400-64
 ;;9002226.02101,"1813,00641-0410-02 ",.01)
 ;;00641-0410-02
 ;;9002226.02101,"1813,00641-0410-02 ",.02)
 ;;00641-0410-02
 ;;9002226.02101,"1813,00641-0410-12 ",.01)
 ;;00641-0410-12
 ;;9002226.02101,"1813,00641-0410-12 ",.02)
 ;;00641-0410-12
 ;;9002226.02101,"1813,00641-0410-21 ",.01)
 ;;00641-0410-21
 ;;9002226.02101,"1813,00641-0410-21 ",.02)
 ;;00641-0410-21
 ;;9002226.02101,"1813,00641-0410-25 ",.01)
 ;;00641-0410-25
 ;;9002226.02101,"1813,00641-0410-25 ",.02)
 ;;00641-0410-25
 ;;9002226.02101,"1813,00641-0410-37 ",.01)
 ;;00641-0410-37
 ;;9002226.02101,"1813,00641-0410-37 ",.02)
 ;;00641-0410-37
 ;;9002226.02101,"1813,00641-0410-64 ",.01)
 ;;00641-0410-64
 ;;9002226.02101,"1813,00641-0410-64 ",.02)
 ;;00641-0410-64
 ;;9002226.02101,"1813,00641-0411-25 ",.01)
 ;;00641-0411-25
 ;;9002226.02101,"1813,00641-0411-25 ",.02)
 ;;00641-0411-25
 ;;9002226.02101,"1813,00641-0414-25 ",.01)
 ;;00641-0414-25
 ;;9002226.02101,"1813,00641-0414-25 ",.02)
 ;;00641-0414-25
 ;;9002226.02101,"1813,00641-2436-41 ",.01)
 ;;00641-2436-41
 ;;9002226.02101,"1813,00641-2436-41 ",.02)
 ;;00641-2436-41
 ;;9002226.02101,"1813,00641-2436-45 ",.01)
 ;;00641-2436-45
 ;;9002226.02101,"1813,00641-2436-45 ",.02)
 ;;00641-2436-45
 ;;9002226.02101,"1813,00641-2438-41 ",.01)
 ;;00641-2438-41
 ;;9002226.02101,"1813,00641-2438-41 ",.02)
 ;;00641-2438-41
 ;;9002226.02101,"1813,00641-2438-45 ",.01)
 ;;00641-2438-45
 ;;9002226.02101,"1813,00641-2438-45 ",.02)
 ;;00641-2438-45
 ;;9002226.02101,"1813,00641-2440-41 ",.01)
 ;;00641-2440-41
 ;;9002226.02101,"1813,00641-2440-41 ",.02)
 ;;00641-2440-41
 ;;9002226.02101,"1813,00641-2440-45 ",.01)
 ;;00641-2440-45
 ;;9002226.02101,"1813,00641-2440-45 ",.02)
 ;;00641-2440-45
 ;;9002226.02101,"1813,00641-2442-41 ",.01)
 ;;00641-2442-41
 ;;9002226.02101,"1813,00641-2442-41 ",.02)
 ;;00641-2442-41
 ;;9002226.02101,"1813,00641-2442-45 ",.01)
 ;;00641-2442-45
 ;;9002226.02101,"1813,00641-2442-45 ",.02)
 ;;00641-2442-45
 ;;9002226.02101,"1813,00641-2443-41 ",.01)
 ;;00641-2443-41
 ;;9002226.02101,"1813,00641-2443-41 ",.02)
 ;;00641-2443-41
 ;;9002226.02101,"1813,00641-2443-45 ",.01)
 ;;00641-2443-45
 ;;9002226.02101,"1813,00641-2443-45 ",.02)
 ;;00641-2443-45
 ;;9002226.02101,"1813,00641-2450-30 ",.01)
 ;;00641-2450-30
 ;;9002226.02101,"1813,00641-2450-30 ",.02)
 ;;00641-2450-30
 ;;9002226.02101,"1813,00641-2450-41 ",.01)
 ;;00641-2450-41
 ;;9002226.02101,"1813,00641-2450-41 ",.02)
 ;;00641-2450-41
 ;;9002226.02101,"1813,00641-2450-45 ",.01)
 ;;00641-2450-45
 ;;9002226.02101,"1813,00641-2450-45 ",.02)
 ;;00641-2450-45
 ;;9002226.02101,"1813,00641-2450-55 ",.01)
 ;;00641-2450-55
 ;;9002226.02101,"1813,00641-2450-55 ",.02)
 ;;00641-2450-55
 ;;9002226.02101,"1813,00641-2460-30 ",.01)
 ;;00641-2460-30
 ;;9002226.02101,"1813,00641-2460-30 ",.02)
 ;;00641-2460-30
 ;;9002226.02101,"1813,00641-2460-41 ",.01)
 ;;00641-2460-41
 ;;9002226.02101,"1813,00641-2460-41 ",.02)
 ;;00641-2460-41
 ;;9002226.02101,"1813,00641-2460-45 ",.01)
 ;;00641-2460-45
 ;;9002226.02101,"1813,00641-2460-45 ",.02)
 ;;00641-2460-45
 ;;9002226.02101,"1813,00641-2460-55 ",.01)
 ;;00641-2460-55
 ;;9002226.02101,"1813,00641-2460-55 ",.02)
 ;;00641-2460-55
 ;;9002226.02101,"1813,00641-2470-41 ",.01)
 ;;00641-2470-41
 ;;9002226.02101,"1813,00641-2470-41 ",.02)
 ;;00641-2470-41
 ;;9002226.02101,"1813,00641-2470-45 ",.01)
 ;;00641-2470-45
 ;;9002226.02101,"1813,00641-2470-45 ",.02)
 ;;00641-2470-45
 ;;9002226.02101,"1813,00677-0275-21 ",.01)
 ;;00677-0275-21
 ;;9002226.02101,"1813,00677-0275-21 ",.02)
 ;;00677-0275-21
 ;;9002226.02101,"1813,00781-0352-07 ",.01)
 ;;00781-0352-07
 ;;9002226.02101,"1813,00781-0352-07 ",.02)
 ;;00781-0352-07
 ;;9002226.02101,"1813,00781-0363-07 ",.01)
 ;;00781-0363-07
 ;;9002226.02101,"1813,00781-0363-07 ",.02)
 ;;00781-0363-07
 ;;9002226.02101,"1813,00781-0364-07 ",.01)
 ;;00781-0364-07
 ;;9002226.02101,"1813,00781-0364-07 ",.02)
 ;;00781-0364-07
 ;;9002226.02101,"1813,00781-0366-07 ",.01)
 ;;00781-0366-07
 ;;9002226.02101,"1813,00781-0366-07 ",.02)
 ;;00781-0366-07
 ;;9002226.02101,"1813,00781-0369-07 ",.01)
 ;;00781-0369-07
 ;;9002226.02101,"1813,00781-0369-07 ",.02)
 ;;00781-0369-07
 ;;9002226.02101,"1813,00781-0377-07 ",.01)
 ;;00781-0377-07
 ;;9002226.02101,"1813,00781-0377-07 ",.02)
 ;;00781-0377-07
 ;;9002226.02101,"1813,00781-0381-07 ",.01)
 ;;00781-0381-07
 ;;9002226.02101,"1813,00781-0381-07 ",.02)
 ;;00781-0381-07
 ;;9002226.02101,"1813,00781-0386-07 ",.01)
 ;;00781-0386-07
 ;;9002226.02101,"1813,00781-0386-07 ",.02)
 ;;00781-0386-07
 ;;9002226.02101,"1813,00781-0387-07 ",.01)
 ;;00781-0387-07
 ;;9002226.02101,"1813,00781-0387-07 ",.02)
 ;;00781-0387-07
 ;;9002226.02101,"1813,00781-3119-01 ",.01)
 ;;00781-3119-01
 ;;9002226.02101,"1813,00781-3119-01 ",.02)
 ;;00781-3119-01
 ;;9002226.02101,"1813,00781-3119-02 ",.01)
 ;;00781-3119-02
 ;;9002226.02101,"1813,00781-3119-02 ",.02)
 ;;00781-3119-02
 ;;9002226.02101,"1813,00781-3119-03 ",.01)
 ;;00781-3119-03
 ;;9002226.02101,"1813,00781-3119-03 ",.02)
 ;;00781-3119-03
 ;;9002226.02101,"1813,00781-3119-04 ",.01)
 ;;00781-3119-04
 ;;9002226.02101,"1813,00781-3119-04 ",.02)
 ;;00781-3119-04
 ;;9002226.02101,"1813,00781-3119-05 ",.01)
 ;;00781-3119-05
 ;;9002226.02101,"1813,00781-3119-05 ",.02)
 ;;00781-3119-05