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

BGP06A36.m

Go to the documentation of this file.
BGP06A36 ;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,00781-3714-46 ",.01)
 ;;00781-3714-46
 ;;9002226.02101,"974,00781-3714-46 ",.02)
 ;;00781-3714-46
 ;;9002226.02101,"974,00781-3724-46 ",.01)
 ;;00781-3724-46
 ;;9002226.02101,"974,00781-3724-46 ",.02)
 ;;00781-3724-46
 ;;9002226.02101,"974,00781-3726-46 ",.01)
 ;;00781-3726-46
 ;;9002226.02101,"974,00781-3726-46 ",.02)
 ;;00781-3726-46
 ;;9002226.02101,"974,00781-3918-70 ",.01)
 ;;00781-3918-70
 ;;9002226.02101,"974,00781-3918-70 ",.02)
 ;;00781-3918-70
 ;;9002226.02101,"974,00781-3918-96 ",.01)
 ;;00781-3918-96
 ;;9002226.02101,"974,00781-3918-96 ",.02)
 ;;00781-3918-96
 ;;9002226.02101,"974,00781-3920-46 ",.01)
 ;;00781-3920-46
 ;;9002226.02101,"974,00781-3920-46 ",.02)
 ;;00781-3920-46
 ;;9002226.02101,"974,00781-3922-80 ",.01)
 ;;00781-3922-80
 ;;9002226.02101,"974,00781-3922-80 ",.02)
 ;;00781-3922-80
 ;;9002226.02101,"974,00781-3922-96 ",.01)
 ;;00781-3922-96
 ;;9002226.02101,"974,00781-3922-96 ",.02)
 ;;00781-3922-96
 ;;9002226.02101,"974,00781-3924-46 ",.01)
 ;;00781-3924-46
 ;;9002226.02101,"974,00781-3924-46 ",.02)
 ;;00781-3924-46
 ;;9002226.02101,"974,00781-3926-46 ",.01)
 ;;00781-3926-46
 ;;9002226.02101,"974,00781-3926-46 ",.02)
 ;;00781-3926-46
 ;;9002226.02101,"974,00781-3926-95 ",.01)
 ;;00781-3926-95
 ;;9002226.02101,"974,00781-3926-95 ",.02)
 ;;00781-3926-95
 ;;9002226.02101,"974,00781-5043-01 ",.01)
 ;;00781-5043-01
 ;;9002226.02101,"974,00781-5043-01 ",.02)
 ;;00781-5043-01
 ;;9002226.02101,"974,00781-5044-01 ",.01)
 ;;00781-5044-01
 ;;9002226.02101,"974,00781-5044-01 ",.02)
 ;;00781-5044-01
 ;;9002226.02101,"974,00781-5044-50 ",.01)
 ;;00781-5044-50
 ;;9002226.02101,"974,00781-5044-50 ",.02)
 ;;00781-5044-50
 ;;9002226.02101,"974,00781-5060-01 ",.01)
 ;;00781-5060-01
 ;;9002226.02101,"974,00781-5060-01 ",.02)
 ;;00781-5060-01
 ;;9002226.02101,"974,00781-5060-20 ",.01)
 ;;00781-5060-20
 ;;9002226.02101,"974,00781-5060-20 ",.02)
 ;;00781-5060-20
 ;;9002226.02101,"974,00781-5061-01 ",.01)
 ;;00781-5061-01
 ;;9002226.02101,"974,00781-5061-01 ",.02)
 ;;00781-5061-01
 ;;9002226.02101,"974,00781-5061-20 ",.01)
 ;;00781-5061-20
 ;;9002226.02101,"974,00781-5061-20 ",.02)
 ;;00781-5061-20
 ;;9002226.02101,"974,00781-5065-20 ",.01)
 ;;00781-5065-20
 ;;9002226.02101,"974,00781-5065-20 ",.02)
 ;;00781-5065-20
 ;;9002226.02101,"974,00781-5066-20 ",.01)
 ;;00781-5066-20
 ;;9002226.02101,"974,00781-5066-20 ",.02)
 ;;00781-5066-20
 ;;9002226.02101,"974,00781-6039-46 ",.01)
 ;;00781-6039-46
 ;;9002226.02101,"974,00781-6039-46 ",.02)
 ;;00781-6039-46
 ;;9002226.02101,"974,00781-6039-55 ",.01)
 ;;00781-6039-55
 ;;9002226.02101,"974,00781-6039-55 ",.02)
 ;;00781-6039-55
 ;;9002226.02101,"974,00781-6039-58 ",.01)
 ;;00781-6039-58
 ;;9002226.02101,"974,00781-6039-58 ",.02)
 ;;00781-6039-58
 ;;9002226.02101,"974,00781-6041-46 ",.01)
 ;;00781-6041-46
 ;;9002226.02101,"974,00781-6041-46 ",.02)
 ;;00781-6041-46
 ;;9002226.02101,"974,00781-6041-55 ",.01)
 ;;00781-6041-55
 ;;9002226.02101,"974,00781-6041-55 ",.02)
 ;;00781-6041-55
 ;;9002226.02101,"974,00781-6041-58 ",.01)
 ;;00781-6041-58
 ;;9002226.02101,"974,00781-6041-58 ",.02)
 ;;00781-6041-58
 ;;9002226.02101,"974,00781-6062-16 ",.01)
 ;;00781-6062-16
 ;;9002226.02101,"974,00781-6062-16 ",.02)
 ;;00781-6062-16
 ;;9002226.02101,"974,00781-6063-16 ",.01)
 ;;00781-6063-16
 ;;9002226.02101,"974,00781-6063-16 ",.02)
 ;;00781-6063-16
 ;;9002226.02101,"974,00781-6102-46 ",.01)
 ;;00781-6102-46
 ;;9002226.02101,"974,00781-6102-46 ",.02)
 ;;00781-6102-46
 ;;9002226.02101,"974,00781-6104-46 ",.01)
 ;;00781-6104-46
 ;;9002226.02101,"974,00781-6104-46 ",.02)
 ;;00781-6104-46
 ;;9002226.02101,"974,00781-6120-46 ",.01)
 ;;00781-6120-46
 ;;9002226.02101,"974,00781-6120-46 ",.02)
 ;;00781-6120-46
 ;;9002226.02101,"974,00781-6120-48 ",.01)
 ;;00781-6120-48
 ;;9002226.02101,"974,00781-6120-48 ",.02)
 ;;00781-6120-48
 ;;9002226.02101,"974,00781-6121-46 ",.01)
 ;;00781-6121-46
 ;;9002226.02101,"974,00781-6121-46 ",.02)
 ;;00781-6121-46
 ;;9002226.02101,"974,00781-6121-48 ",.01)
 ;;00781-6121-48
 ;;9002226.02101,"974,00781-6121-48 ",.02)
 ;;00781-6121-48
 ;;9002226.02101,"974,00781-6135-95 ",.01)
 ;;00781-6135-95
 ;;9002226.02101,"974,00781-6135-95 ",.02)
 ;;00781-6135-95
 ;;9002226.02101,"974,00781-6136-94 ",.01)
 ;;00781-6136-94
 ;;9002226.02101,"974,00781-6136-94 ",.02)
 ;;00781-6136-94
 ;;9002226.02101,"974,00781-6153-95 ",.01)
 ;;00781-6153-95
 ;;9002226.02101,"974,00781-6153-95 ",.02)
 ;;00781-6153-95
 ;;9002226.02101,"974,00781-6153-97 ",.01)
 ;;00781-6153-97
 ;;9002226.02101,"974,00781-6153-97 ",.02)
 ;;00781-6153-97
 ;;9002226.02101,"974,00781-6191-46 ",.01)
 ;;00781-6191-46
 ;;9002226.02101,"974,00781-6191-46 ",.02)
 ;;00781-6191-46
 ;;9002226.02101,"974,00781-6191-55 ",.01)
 ;;00781-6191-55
 ;;9002226.02101,"974,00781-6191-55 ",.02)
 ;;00781-6191-55
 ;;9002226.02101,"974,00781-6195-46 ",.01)
 ;;00781-6195-46
 ;;9002226.02101,"974,00781-6195-46 ",.02)
 ;;00781-6195-46
 ;;9002226.02101,"974,00781-6195-55 ",.01)
 ;;00781-6195-55
 ;;9002226.02101,"974,00781-6195-55 ",.02)
 ;;00781-6195-55
 ;;9002226.02101,"974,00781-6202-46 ",.01)
 ;;00781-6202-46
 ;;9002226.02101,"974,00781-6202-46 ",.02)
 ;;00781-6202-46
 ;;9002226.02101,"974,00781-6202-57 ",.01)
 ;;00781-6202-57
 ;;9002226.02101,"974,00781-6202-57 ",.02)
 ;;00781-6202-57
 ;;9002226.02101,"974,00781-6202-91 ",.01)
 ;;00781-6202-91
 ;;9002226.02101,"974,00781-6202-91 ",.02)
 ;;00781-6202-91
 ;;9002226.02101,"974,00781-6203-46 ",.01)
 ;;00781-6203-46
 ;;9002226.02101,"974,00781-6203-46 ",.02)
 ;;00781-6203-46
 ;;9002226.02101,"974,00781-6203-57 ",.01)
 ;;00781-6203-57
 ;;9002226.02101,"974,00781-6203-57 ",.02)
 ;;00781-6203-57
 ;;9002226.02101,"974,00781-6203-91 ",.01)
 ;;00781-6203-91
 ;;9002226.02101,"974,00781-6203-91 ",.02)
 ;;00781-6203-91
 ;;9002226.02101,"974,00781-7028-46 ",.01)
 ;;00781-7028-46
 ;;9002226.02101,"974,00781-7028-46 ",.02)
 ;;00781-7028-46
 ;;9002226.02101,"974,00781-7028-48 ",.01)
 ;;00781-7028-48
 ;;9002226.02101,"974,00781-7028-48 ",.02)
 ;;00781-7028-48
 ;;9002226.02101,"974,00781-7029-46 ",.01)
 ;;00781-7029-46
 ;;9002226.02101,"974,00781-7029-46 ",.02)
 ;;00781-7029-46
 ;;9002226.02101,"974,00781-7029-48 ",.01)
 ;;00781-7029-48
 ;;9002226.02101,"974,00781-7029-48 ",.02)
 ;;00781-7029-48
 ;;9002226.02101,"974,00781-7043-46 ",.01)
 ;;00781-7043-46
 ;;9002226.02101,"974,00781-7043-46 ",.02)
 ;;00781-7043-46
 ;;9002226.02101,"974,00781-7043-48 ",.01)
 ;;00781-7043-48
 ;;9002226.02101,"974,00781-7043-48 ",.02)
 ;;00781-7043-48
 ;;9002226.02101,"974,00781-7043-55 ",.01)
 ;;00781-7043-55
 ;;9002226.02101,"974,00781-7043-55 ",.02)
 ;;00781-7043-55
 ;;9002226.02101,"974,00781-7338-99 ",.01)
 ;;00781-7338-99
 ;;9002226.02101,"974,00781-7338-99 ",.02)
 ;;00781-7338-99
 ;;9002226.02101,"974,00781-9205-70 ",.01)
 ;;00781-9205-70
 ;;9002226.02101,"974,00781-9205-70 ",.02)
 ;;00781-9205-70
 ;;9002226.02101,"974,00781-9205-96 ",.01)
 ;;00781-9205-96
 ;;9002226.02101,"974,00781-9205-96 ",.02)
 ;;00781-9205-96
 ;;9002226.02101,"974,00781-9206-80 ",.01)
 ;;00781-9206-80
 ;;9002226.02101,"974,00781-9206-80 ",.02)
 ;;00781-9206-80
 ;;9002226.02101,"974,00781-9206-96 ",.01)
 ;;00781-9206-96
 ;;9002226.02101,"974,00781-9206-96 ",.02)
 ;;00781-9206-96
 ;;9002226.02101,"974,00781-9207-46 ",.01)
 ;;00781-9207-46
 ;;9002226.02101,"974,00781-9207-46 ",.02)
 ;;00781-9207-46
 ;;9002226.02101,"974,00781-9207-95 ",.01)
 ;;00781-9207-95
 ;;9002226.02101,"974,00781-9207-95 ",.02)
 ;;00781-9207-95
 ;;9002226.02101,"974,00781-9326-95 ",.01)
 ;;00781-9326-95
 ;;9002226.02101,"974,00781-9326-95 ",.02)
 ;;00781-9326-95
 ;;9002226.02101,"974,00781-9327-95 ",.01)
 ;;00781-9327-95
 ;;9002226.02101,"974,00781-9327-95 ",.02)
 ;;00781-9327-95
 ;;9002226.02101,"974,00781-9401-95 ",.01)
 ;;00781-9401-95
 ;;9002226.02101,"974,00781-9401-95 ",.02)
 ;;00781-9401-95
 ;;9002226.02101,"974,00781-9402-95 ",.01)
 ;;00781-9402-95
 ;;9002226.02101,"974,00781-9402-95 ",.02)
 ;;00781-9402-95
 ;;9002226.02101,"974,00781-9404-95 ",.01)
 ;;00781-9404-95
 ;;9002226.02101,"974,00781-9404-95 ",.02)
 ;;00781-9404-95
 ;;9002226.02101,"974,00781-9407-95 ",.01)
 ;;00781-9407-95
 ;;9002226.02101,"974,00781-9407-95 ",.02)
 ;;00781-9407-95
 ;;9002226.02101,"974,00781-9408-95 ",.01)
 ;;00781-9408-95
 ;;9002226.02101,"974,00781-9408-95 ",.02)
 ;;00781-9408-95
 ;;9002226.02101,"974,00781-9409-95 ",.01)
 ;;00781-9409-95
 ;;9002226.02101,"974,00781-9409-95 ",.02)
 ;;00781-9409-95
 ;;9002226.02101,"974,00839-1288-04 ",.01)
 ;;00839-1288-04
 ;;9002226.02101,"974,00839-1288-04 ",.02)
 ;;00839-1288-04
 ;;9002226.02101,"974,00839-1289-04 ",.01)
 ;;00839-1289-04
 ;;9002226.02101,"974,00839-1289-04 ",.02)
 ;;00839-1289-04
 ;;9002226.02101,"974,00839-1289-12 ",.01)
 ;;00839-1289-12
 ;;9002226.02101,"974,00839-1289-12 ",.02)
 ;;00839-1289-12
 ;;9002226.02101,"974,00839-1649-06 ",.01)
 ;;00839-1649-06
 ;;9002226.02101,"974,00839-1649-06 ",.02)
 ;;00839-1649-06
 ;;9002226.02101,"974,00839-1656-06 ",.01)
 ;;00839-1656-06
 ;;9002226.02101,"974,00839-1656-06 ",.02)
 ;;00839-1656-06
 ;;9002226.02101,"974,00839-1656-16 ",.01)
 ;;00839-1656-16
 ;;9002226.02101,"974,00839-1656-16 ",.02)
 ;;00839-1656-16
 ;;9002226.02101,"974,00839-1766-06 ",.01)
 ;;00839-1766-06
 ;;9002226.02101,"974,00839-1766-06 ",.02)
 ;;00839-1766-06
 ;;9002226.02101,"974,00839-1766-16 ",.01)
 ;;00839-1766-16
 ;;9002226.02101,"974,00839-1766-16 ",.02)
 ;;00839-1766-16
 ;;9002226.02101,"974,00839-5075-06 ",.01)
 ;;00839-5075-06
 ;;9002226.02101,"974,00839-5075-06 ",.02)
 ;;00839-5075-06
 ;;9002226.02101,"974,00839-5075-16 ",.01)
 ;;00839-5075-16
 ;;9002226.02101,"974,00839-5075-16 ",.02)
 ;;00839-5075-16
 ;;9002226.02101,"974,00839-5079-06 ",.01)
 ;;00839-5079-06
 ;;9002226.02101,"974,00839-5079-06 ",.02)
 ;;00839-5079-06
 ;;9002226.02101,"974,00839-5079-16 ",.01)
 ;;00839-5079-16
 ;;9002226.02101,"974,00839-5079-16 ",.02)
 ;;00839-5079-16
 ;;9002226.02101,"974,00839-5087-06 ",.01)
 ;;00839-5087-06
 ;;9002226.02101,"974,00839-5087-06 ",.02)
 ;;00839-5087-06
 ;;9002226.02101,"974,00839-5087-12 ",.01)
 ;;00839-5087-12
 ;;9002226.02101,"974,00839-5087-12 ",.02)
 ;;00839-5087-12
 ;;9002226.02101,"974,00839-5130-06 ",.01)
 ;;00839-5130-06
 ;;9002226.02101,"974,00839-5130-06 ",.02)
 ;;00839-5130-06
 ;;9002226.02101,"974,00839-5130-12 ",.01)
 ;;00839-5130-12
 ;;9002226.02101,"974,00839-5130-12 ",.02)
 ;;00839-5130-12
 ;;9002226.02101,"974,00839-5185-06 ",.01)
 ;;00839-5185-06
 ;;9002226.02101,"974,00839-5185-06 ",.02)
 ;;00839-5185-06
 ;;9002226.02101,"974,00839-5187-06 ",.01)
 ;;00839-5187-06
 ;;9002226.02101,"974,00839-5187-06 ",.02)
 ;;00839-5187-06
 ;;9002226.02101,"974,00839-5187-16 ",.01)
 ;;00839-5187-16
 ;;9002226.02101,"974,00839-5187-16 ",.02)
 ;;00839-5187-16
 ;;9002226.02101,"974,00839-5188-06 ",.01)
 ;;00839-5188-06
 ;;9002226.02101,"974,00839-5188-06 ",.02)
 ;;00839-5188-06
 ;;9002226.02101,"974,00839-5188-16 ",.01)
 ;;00839-5188-16
 ;;9002226.02101,"974,00839-5188-16 ",.02)
 ;;00839-5188-16
 ;;9002226.02101,"974,00839-5189-73 ",.01)
 ;;00839-5189-73
 ;;9002226.02101,"974,00839-5189-73 ",.02)
 ;;00839-5189-73
 ;;9002226.02101,"974,00839-5190-73 ",.01)
 ;;00839-5190-73
 ;;9002226.02101,"974,00839-5190-73 ",.02)
 ;;00839-5190-73
 ;;9002226.02101,"974,00839-5190-78 ",.01)
 ;;00839-5190-78
 ;;9002226.02101,"974,00839-5190-78 ",.02)
 ;;00839-5190-78
 ;;9002226.02101,"974,00839-6037-06 ",.01)
 ;;00839-6037-06
 ;;9002226.02101,"974,00839-6037-06 ",.02)
 ;;00839-6037-06
 ;;9002226.02101,"974,00839-6037-12 ",.01)
 ;;00839-6037-12
 ;;9002226.02101,"974,00839-6037-12 ",.02)
 ;;00839-6037-12
 ;;9002226.02101,"974,00839-6038-04 ",.01)
 ;;00839-6038-04
 ;;9002226.02101,"974,00839-6038-04 ",.02)
 ;;00839-6038-04
 ;;9002226.02101,"974,00839-6038-12 ",.01)
 ;;00839-6038-12
 ;;9002226.02101,"974,00839-6038-12 ",.02)
 ;;00839-6038-12
 ;;9002226.02101,"974,00839-6115-71 ",.01)
 ;;00839-6115-71
 ;;9002226.02101,"974,00839-6115-71 ",.02)
 ;;00839-6115-71
 ;;9002226.02101,"974,00839-6115-73 ",.01)
 ;;00839-6115-73
 ;;9002226.02101,"974,00839-6115-73 ",.02)
 ;;00839-6115-73
 ;;9002226.02101,"974,00839-6115-75 ",.01)
 ;;00839-6115-75
 ;;9002226.02101,"974,00839-6115-75 ",.02)
 ;;00839-6115-75
 ;;9002226.02101,"974,00839-6116-71 ",.01)
 ;;00839-6116-71
 ;;9002226.02101,"974,00839-6116-71 ",.02)
 ;;00839-6116-71
 ;;9002226.02101,"974,00839-6116-73 ",.01)
 ;;00839-6116-73
 ;;9002226.02101,"974,00839-6116-73 ",.02)
 ;;00839-6116-73
 ;;9002226.02101,"974,00839-6116-75 ",.01)
 ;;00839-6116-75
 ;;9002226.02101,"974,00839-6116-75 ",.02)
 ;;00839-6116-75
 ;;9002226.02101,"974,00839-6178-06 ",.01)
 ;;00839-6178-06
 ;;9002226.02101,"974,00839-6178-06 ",.02)
 ;;00839-6178-06
 ;;9002226.02101,"974,00839-6362-73 ",.01)
 ;;00839-6362-73
 ;;9002226.02101,"974,00839-6362-73 ",.02)
 ;;00839-6362-73
 ;;9002226.02101,"974,00839-6362-78 ",.01)
 ;;00839-6362-78
 ;;9002226.02101,"974,00839-6362-78 ",.02)
 ;;00839-6362-78
 ;;9002226.02101,"974,00839-6393-06 ",.01)
 ;;00839-6393-06
 ;;9002226.02101,"974,00839-6393-06 ",.02)
 ;;00839-6393-06
 ;;9002226.02101,"974,00839-6406-06 ",.01)
 ;;00839-6406-06
 ;;9002226.02101,"974,00839-6406-06 ",.02)
 ;;00839-6406-06
 ;;9002226.02101,"974,00839-6406-12 ",.01)
 ;;00839-6406-12
 ;;9002226.02101,"974,00839-6406-12 ",.02)
 ;;00839-6406-12
 ;;9002226.02101,"974,00839-6445-78 ",.01)
 ;;00839-6445-78
 ;;9002226.02101,"974,00839-6445-78 ",.02)
 ;;00839-6445-78