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

BGP47P8.m

Go to the documentation of this file.
BGP47P8 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 16, 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,"806,00378-1125-10 ",.01)
 ;;00378-1125-10
 ;;9002226.02101,"806,00378-1125-10 ",.02)
 ;;00378-1125-10
 ;;9002226.02101,"806,00378-1142-01 ",.01)
 ;;00378-1142-01
 ;;9002226.02101,"806,00378-1142-01 ",.02)
 ;;00378-1142-01
 ;;9002226.02101,"806,00378-1452-01 ",.01)
 ;;00378-1452-01
 ;;9002226.02101,"806,00378-1452-01 ",.02)
 ;;00378-1452-01
 ;;9002226.02101,"806,00378-1452-05 ",.01)
 ;;00378-1452-05
 ;;9002226.02101,"806,00378-1452-05 ",.02)
 ;;00378-1452-05
 ;;9002226.02101,"806,00378-1454-01 ",.01)
 ;;00378-1454-01
 ;;9002226.02101,"806,00378-1454-01 ",.02)
 ;;00378-1454-01
 ;;9002226.02101,"806,00378-1454-05 ",.01)
 ;;00378-1454-05
 ;;9002226.02101,"806,00378-1454-05 ",.02)
 ;;00378-1454-05
 ;;9002226.02101,"806,00378-1458-01 ",.01)
 ;;00378-1458-01
 ;;9002226.02101,"806,00378-1458-01 ",.02)
 ;;00378-1458-01
 ;;9002226.02101,"806,00378-1458-05 ",.01)
 ;;00378-1458-05
 ;;9002226.02101,"806,00378-1458-05 ",.02)
 ;;00378-1458-05
 ;;9002226.02101,"806,00378-1458-77 ",.01)
 ;;00378-1458-77
 ;;9002226.02101,"806,00378-1458-77 ",.02)
 ;;00378-1458-77
 ;;9002226.02101,"806,00378-3349-16 ",.01)
 ;;00378-3349-16
 ;;9002226.02101,"806,00378-3349-16 ",.02)
 ;;00378-3349-16
 ;;9002226.02101,"806,00378-3349-99 ",.01)
 ;;00378-3349-99
 ;;9002226.02101,"806,00378-3349-99 ",.02)
 ;;00378-3349-99
 ;;9002226.02101,"806,00378-3350-16 ",.01)
 ;;00378-3350-16
 ;;9002226.02101,"806,00378-3350-16 ",.02)
 ;;00378-3350-16
 ;;9002226.02101,"806,00378-3350-99 ",.01)
 ;;00378-3350-99
 ;;9002226.02101,"806,00378-3350-99 ",.02)
 ;;00378-3350-99
 ;;9002226.02101,"806,00378-3351-16 ",.01)
 ;;00378-3351-16
 ;;9002226.02101,"806,00378-3351-16 ",.02)
 ;;00378-3351-16
 ;;9002226.02101,"806,00378-3351-99 ",.01)
 ;;00378-3351-99
 ;;9002226.02101,"806,00378-3351-99 ",.02)
 ;;00378-3351-99
 ;;9002226.02101,"806,00378-3352-16 ",.01)
 ;;00378-3352-16
 ;;9002226.02101,"806,00378-3352-16 ",.02)
 ;;00378-3352-16
 ;;9002226.02101,"806,00378-3352-99 ",.01)
 ;;00378-3352-99
 ;;9002226.02101,"806,00378-3352-99 ",.02)
 ;;00378-3352-99
 ;;9002226.02101,"806,00378-3360-99 ",.01)
 ;;00378-3360-99
 ;;9002226.02101,"806,00378-3360-99 ",.02)
 ;;00378-3360-99
 ;;9002226.02101,"806,00378-3361-16 ",.01)
 ;;00378-3361-16
 ;;9002226.02101,"806,00378-3361-16 ",.02)
 ;;00378-3361-16
 ;;9002226.02101,"806,00378-3361-99 ",.01)
 ;;00378-3361-99
 ;;9002226.02101,"806,00378-3361-99 ",.02)
 ;;00378-3361-99
 ;;9002226.02101,"806,00378-4551-01 ",.01)
 ;;00378-4551-01
 ;;9002226.02101,"806,00378-4551-01 ",.02)
 ;;00378-4551-01
 ;;9002226.02101,"806,00378-4553-01 ",.01)
 ;;00378-4553-01
 ;;9002226.02101,"806,00378-4553-01 ",.02)
 ;;00378-4553-01
 ;;9002226.02101,"806,00378-4555-01 ",.01)
 ;;00378-4555-01
 ;;9002226.02101,"806,00378-4555-01 ",.02)
 ;;00378-4555-01
 ;;9002226.02101,"806,00421-0158-01 ",.01)
 ;;00421-0158-01
 ;;9002226.02101,"806,00421-0158-01 ",.02)
 ;;00421-0158-01
 ;;9002226.02101,"806,00421-0748-01 ",.01)
 ;;00421-0748-01
 ;;9002226.02101,"806,00421-0748-01 ",.02)
 ;;00421-0748-01
 ;;9002226.02101,"806,00421-0768-01 ",.01)
 ;;00421-0768-01
 ;;9002226.02101,"806,00421-0768-01 ",.02)
 ;;00421-0768-01
 ;;9002226.02101,"806,00421-1259-01 ",.01)
 ;;00421-1259-01
 ;;9002226.02101,"806,00421-1259-01 ",.02)
 ;;00421-1259-01
 ;;9002226.02101,"806,00430-0021-24 ",.01)
 ;;00430-0021-24
 ;;9002226.02101,"806,00430-0021-24 ",.02)
 ;;00430-0021-24
 ;;9002226.02101,"806,00430-0023-24 ",.01)
 ;;00430-0023-24
 ;;9002226.02101,"806,00430-0023-24 ",.02)
 ;;00430-0023-24
 ;;9002226.02101,"806,00430-0023-30 ",.01)
 ;;00430-0023-30
 ;;9002226.02101,"806,00430-0023-30 ",.02)
 ;;00430-0023-30
 ;;9002226.02101,"806,00430-0024-24 ",.01)
 ;;00430-0024-24
 ;;9002226.02101,"806,00430-0024-24 ",.02)
 ;;00430-0024-24
 ;;9002226.02101,"806,00430-0024-30 ",.01)
 ;;00430-0024-30
 ;;9002226.02101,"806,00430-0024-30 ",.02)
 ;;00430-0024-30
 ;;9002226.02101,"806,00430-0145-14 ",.01)
 ;;00430-0145-14
 ;;9002226.02101,"806,00430-0145-14 ",.02)
 ;;00430-0145-14
 ;;9002226.02101,"806,00430-0145-23 ",.01)
 ;;00430-0145-23
 ;;9002226.02101,"806,00430-0145-23 ",.02)
 ;;00430-0145-23
 ;;9002226.02101,"806,00430-0389-24 ",.01)
 ;;00430-0389-24
 ;;9002226.02101,"806,00430-0389-24 ",.02)
 ;;00430-0389-24
 ;;9002226.02101,"806,00430-0390-24 ",.01)
 ;;00430-0390-24
 ;;9002226.02101,"806,00430-0390-24 ",.02)
 ;;00430-0390-24
 ;;9002226.02101,"806,00430-0544-14 ",.01)
 ;;00430-0544-14
 ;;9002226.02101,"806,00430-0544-14 ",.02)
 ;;00430-0544-14
 ;;9002226.02101,"806,00430-0544-23 ",.01)
 ;;00430-0544-23
 ;;9002226.02101,"806,00430-0544-23 ",.02)
 ;;00430-0544-23
 ;;9002226.02101,"806,00430-0720-24 ",.01)
 ;;00430-0720-24
 ;;9002226.02101,"806,00430-0720-24 ",.02)
 ;;00430-0720-24
 ;;9002226.02101,"806,00430-0721-24 ",.01)
 ;;00430-0721-24
 ;;9002226.02101,"806,00430-0721-24 ",.02)
 ;;00430-0721-24
 ;;9002226.02101,"806,00430-0722-24 ",.01)
 ;;00430-0722-24
 ;;9002226.02101,"806,00430-0722-24 ",.02)
 ;;00430-0722-24
 ;;9002226.02101,"806,00440-7570-20 ",.01)
 ;;00440-7570-20
 ;;9002226.02101,"806,00440-7570-20 ",.02)
 ;;00440-7570-20
 ;;9002226.02101,"806,00440-7571-14 ",.01)
 ;;00440-7571-14
 ;;9002226.02101,"806,00440-7571-14 ",.02)
 ;;00440-7571-14
 ;;9002226.02101,"806,00440-7571-30 ",.01)
 ;;00440-7571-30
 ;;9002226.02101,"806,00440-7571-30 ",.02)
 ;;00440-7571-30
 ;;9002226.02101,"806,00440-7571-60 ",.01)
 ;;00440-7571-60
 ;;9002226.02101,"806,00440-7571-60 ",.02)
 ;;00440-7571-60
 ;;9002226.02101,"806,00440-7571-90 ",.01)
 ;;00440-7571-90
 ;;9002226.02101,"806,00440-7571-90 ",.02)
 ;;00440-7571-90
 ;;9002226.02101,"806,00440-7571-91 ",.01)
 ;;00440-7571-91
 ;;9002226.02101,"806,00440-7571-91 ",.02)
 ;;00440-7571-91
 ;;9002226.02101,"806,00440-7571-92 ",.01)
 ;;00440-7571-92
 ;;9002226.02101,"806,00440-7571-92 ",.02)
 ;;00440-7571-92
 ;;9002226.02101,"806,00440-7571-94 ",.01)
 ;;00440-7571-94
 ;;9002226.02101,"806,00440-7571-94 ",.02)
 ;;00440-7571-94
 ;;9002226.02101,"806,00440-7571-95 ",.01)
 ;;00440-7571-95
 ;;9002226.02101,"806,00440-7571-95 ",.02)
 ;;00440-7571-95
 ;;9002226.02101,"806,00440-7585-90 ",.01)
 ;;00440-7585-90
 ;;9002226.02101,"806,00440-7585-90 ",.02)
 ;;00440-7585-90
 ;;9002226.02101,"806,00440-7587-90 ",.01)
 ;;00440-7587-90
 ;;9002226.02101,"806,00440-7587-90 ",.02)
 ;;00440-7587-90
 ;;9002226.02101,"806,00440-7589-90 ",.01)
 ;;00440-7589-90
 ;;9002226.02101,"806,00440-7589-90 ",.02)
 ;;00440-7589-90
 ;;9002226.02101,"806,00440-7589-95 ",.01)
 ;;00440-7589-95
 ;;9002226.02101,"806,00440-7589-95 ",.02)
 ;;00440-7589-95
 ;;9002226.02101,"806,00440-7749-10 ",.01)
 ;;00440-7749-10
 ;;9002226.02101,"806,00440-7749-10 ",.02)
 ;;00440-7749-10
 ;;9002226.02101,"806,00440-7749-20 ",.01)
 ;;00440-7749-20
 ;;9002226.02101,"806,00440-7749-20 ",.02)
 ;;00440-7749-20
 ;;9002226.02101,"806,00440-7749-30 ",.01)
 ;;00440-7749-30
 ;;9002226.02101,"806,00440-7749-30 ",.02)
 ;;00440-7749-30
 ;;9002226.02101,"806,00440-7749-60 ",.01)
 ;;00440-7749-60
 ;;9002226.02101,"806,00440-7749-60 ",.02)
 ;;00440-7749-60
 ;;9002226.02101,"806,00440-8170-30 ",.01)
 ;;00440-8170-30
 ;;9002226.02101,"806,00440-8170-30 ",.02)
 ;;00440-8170-30
 ;;9002226.02101,"806,00440-8170-60 ",.01)
 ;;00440-8170-60
 ;;9002226.02101,"806,00440-8170-60 ",.02)
 ;;00440-8170-60
 ;;9002226.02101,"806,00440-8170-90 ",.01)
 ;;00440-8170-90
 ;;9002226.02101,"806,00440-8170-90 ",.02)
 ;;00440-8170-90
 ;;9002226.02101,"806,00440-8171-30 ",.01)
 ;;00440-8171-30
 ;;9002226.02101,"806,00440-8171-30 ",.02)
 ;;00440-8171-30
 ;;9002226.02101,"806,00440-8171-60 ",.01)
 ;;00440-8171-60
 ;;9002226.02101,"806,00440-8171-60 ",.02)
 ;;00440-8171-60
 ;;9002226.02101,"806,00440-8171-90 ",.01)
 ;;00440-8171-90
 ;;9002226.02101,"806,00440-8171-90 ",.02)
 ;;00440-8171-90
 ;;9002226.02101,"806,00440-8172-30 ",.01)
 ;;00440-8172-30
 ;;9002226.02101,"806,00440-8172-30 ",.02)
 ;;00440-8172-30
 ;;9002226.02101,"806,00440-8172-60 ",.01)
 ;;00440-8172-60
 ;;9002226.02101,"806,00440-8172-60 ",.02)
 ;;00440-8172-60
 ;;9002226.02101,"806,00440-8172-90 ",.01)
 ;;00440-8172-90
 ;;9002226.02101,"806,00440-8172-90 ",.02)
 ;;00440-8172-90
 ;;9002226.02101,"806,00456-0457-01 ",.01)
 ;;00456-0457-01
 ;;9002226.02101,"806,00456-0457-01 ",.02)
 ;;00456-0457-01
 ;;9002226.02101,"806,00456-0458-00 ",.01)
 ;;00456-0458-00
 ;;9002226.02101,"806,00456-0458-00 ",.02)
 ;;00456-0458-00
 ;;9002226.02101,"806,00456-0458-01 ",.01)
 ;;00456-0458-01
 ;;9002226.02101,"806,00456-0458-01 ",.02)
 ;;00456-0458-01
 ;;9002226.02101,"806,00456-0458-11 ",.01)
 ;;00456-0458-11
 ;;9002226.02101,"806,00456-0458-11 ",.02)
 ;;00456-0458-11
 ;;9002226.02101,"806,00456-0458-63 ",.01)
 ;;00456-0458-63
 ;;9002226.02101,"806,00456-0458-63 ",.02)
 ;;00456-0458-63
 ;;9002226.02101,"806,00456-0458-69 ",.01)
 ;;00456-0458-69
 ;;9002226.02101,"806,00456-0458-69 ",.02)
 ;;00456-0458-69
 ;;9002226.02101,"806,00456-0459-00 ",.01)
 ;;00456-0459-00
 ;;9002226.02101,"806,00456-0459-00 ",.02)
 ;;00456-0459-00
 ;;9002226.02101,"806,00456-0459-01 ",.01)
 ;;00456-0459-01
 ;;9002226.02101,"806,00456-0459-01 ",.02)
 ;;00456-0459-01
 ;;9002226.02101,"806,00456-0459-11 ",.01)
 ;;00456-0459-11
 ;;9002226.02101,"806,00456-0459-11 ",.02)
 ;;00456-0459-11
 ;;9002226.02101,"806,00456-0459-51 ",.01)
 ;;00456-0459-51
 ;;9002226.02101,"806,00456-0459-51 ",.02)
 ;;00456-0459-51
 ;;9002226.02101,"806,00456-0459-63 ",.01)
 ;;00456-0459-63
 ;;9002226.02101,"806,00456-0459-63 ",.02)
 ;;00456-0459-63
 ;;9002226.02101,"806,00456-0459-69 ",.01)
 ;;00456-0459-69
 ;;9002226.02101,"806,00456-0459-69 ",.02)
 ;;00456-0459-69
 ;;9002226.02101,"806,00456-0460-01 ",.01)
 ;;00456-0460-01
 ;;9002226.02101,"806,00456-0460-01 ",.02)
 ;;00456-0460-01
 ;;9002226.02101,"806,00456-0461-00 ",.01)
 ;;00456-0461-00
 ;;9002226.02101,"806,00456-0461-00 ",.02)
 ;;00456-0461-00
 ;;9002226.02101,"806,00456-0461-01 ",.01)
 ;;00456-0461-01
 ;;9002226.02101,"806,00456-0461-01 ",.02)
 ;;00456-0461-01
 ;;9002226.02101,"806,00456-0461-63 ",.01)
 ;;00456-0461-63
 ;;9002226.02101,"806,00456-0461-63 ",.02)
 ;;00456-0461-63
 ;;9002226.02101,"806,00456-0461-69 ",.01)
 ;;00456-0461-69
 ;;9002226.02101,"806,00456-0461-69 ",.02)
 ;;00456-0461-69
 ;;9002226.02101,"806,00456-0462-00 ",.01)
 ;;00456-0462-00
 ;;9002226.02101,"806,00456-0462-00 ",.02)
 ;;00456-0462-00
 ;;9002226.02101,"806,00456-0462-01 ",.01)
 ;;00456-0462-01
 ;;9002226.02101,"806,00456-0462-01 ",.02)
 ;;00456-0462-01
 ;;9002226.02101,"806,00456-0463-01 ",.01)
 ;;00456-0463-01
 ;;9002226.02101,"806,00456-0463-01 ",.02)
 ;;00456-0463-01
 ;;9002226.02101,"806,00456-0464-01 ",.01)
 ;;00456-0464-01
 ;;9002226.02101,"806,00456-0464-01 ",.02)
 ;;00456-0464-01
 ;;9002226.02101,"806,00482-4900-02 ",.01)
 ;;00482-4900-02
 ;;9002226.02101,"806,00482-4900-02 ",.02)
 ;;00482-4900-02
 ;;9002226.02101,"806,00527-1409-01 ",.01)
 ;;00527-1409-01
 ;;9002226.02101,"806,00527-1409-01 ",.02)
 ;;00527-1409-01
 ;;9002226.02101,"806,00527-1409-10 ",.01)
 ;;00527-1409-10
 ;;9002226.02101,"806,00527-1409-10 ",.02)
 ;;00527-1409-10
 ;;9002226.02101,"806,00527-1410-01 ",.01)
 ;;00527-1410-01
 ;;9002226.02101,"806,00527-1410-01 ",.02)
 ;;00527-1410-01
 ;;9002226.02101,"806,00527-1410-10 ",.01)
 ;;00527-1410-10
 ;;9002226.02101,"806,00527-1410-10 ",.02)
 ;;00527-1410-10
 ;;9002226.02101,"806,00555-0606-02 ",.01)
 ;;00555-0606-02
 ;;9002226.02101,"806,00555-0606-02 ",.02)
 ;;00555-0606-02
 ;;9002226.02101,"806,00555-0607-02 ",.01)
 ;;00555-0607-02
 ;;9002226.02101,"806,00555-0607-02 ",.02)
 ;;00555-0607-02
 ;;9002226.02101,"806,00555-0607-03 ",.01)
 ;;00555-0607-03
 ;;9002226.02101,"806,00555-0607-03 ",.02)
 ;;00555-0607-03
 ;;9002226.02101,"806,00555-0607-04 ",.01)
 ;;00555-0607-04
 ;;9002226.02101,"806,00555-0607-04 ",.02)
 ;;00555-0607-04
 ;;9002226.02101,"806,00555-0727-02 ",.01)
 ;;00555-0727-02
 ;;9002226.02101,"806,00555-0727-02 ",.02)
 ;;00555-0727-02
 ;;9002226.02101,"806,00555-0728-02 ",.01)
 ;;00555-0728-02
 ;;9002226.02101,"806,00555-0728-02 ",.02)
 ;;00555-0728-02
 ;;9002226.02101,"806,00555-0729-02 ",.01)
 ;;00555-0729-02
 ;;9002226.02101,"806,00555-0729-02 ",.02)
 ;;00555-0729-02
 ;;9002226.02101,"806,00555-0886-02 ",.01)
 ;;00555-0886-02
 ;;9002226.02101,"806,00555-0886-02 ",.02)
 ;;00555-0886-02
 ;;9002226.02101,"806,00555-0886-04 ",.01)
 ;;00555-0886-04
 ;;9002226.02101,"806,00555-0886-04 ",.02)
 ;;00555-0886-04
 ;;9002226.02101,"806,00555-0887-02 ",.01)
 ;;00555-0887-02
 ;;9002226.02101,"806,00555-0887-02 ",.02)
 ;;00555-0887-02
 ;;9002226.02101,"806,00555-0887-04 ",.01)
 ;;00555-0887-04
 ;;9002226.02101,"806,00555-0887-04 ",.02)
 ;;00555-0887-04
 ;;9002226.02101,"806,00555-0899-02 ",.01)
 ;;00555-0899-02
 ;;9002226.02101,"806,00555-0899-02 ",.02)
 ;;00555-0899-02
 ;;9002226.02101,"806,00574-0870-05 ",.01)
 ;;00574-0870-05
 ;;9002226.02101,"806,00574-0870-05 ",.02)
 ;;00574-0870-05
 ;;9002226.02101,"806,00574-0872-05 ",.01)
 ;;00574-0872-05
 ;;9002226.02101,"806,00574-0872-05 ",.02)
 ;;00574-0872-05
 ;;9002226.02101,"806,00591-0414-01 ",.01)
 ;;00591-0414-01
 ;;9002226.02101,"806,00591-0414-01 ",.02)
 ;;00591-0414-01
 ;;9002226.02101,"806,00591-0415-01 ",.01)
 ;;00591-0415-01
 ;;9002226.02101,"806,00591-0415-01 ",.02)
 ;;00591-0415-01
 ;;9002226.02101,"806,00591-0416-01 ",.01)
 ;;00591-0416-01
 ;;9002226.02101,"806,00591-0416-01 ",.02)
 ;;00591-0416-01
 ;;9002226.02101,"806,00591-0487-01 ",.01)
 ;;00591-0487-01
 ;;9002226.02101,"806,00591-0487-01 ",.02)
 ;;00591-0487-01