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

BGP47J24.m

Go to the documentation of this file.
BGP47J24 ;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,"618,54569-4122-00 ",.02)
 ;;54569-4122-00
 ;;9002226.02101,"618,54569-4168-00 ",.01)
 ;;54569-4168-00
 ;;9002226.02101,"618,54569-4168-00 ",.02)
 ;;54569-4168-00
 ;;9002226.02101,"618,54569-4168-03 ",.01)
 ;;54569-4168-03
 ;;9002226.02101,"618,54569-4168-03 ",.02)
 ;;54569-4168-03
 ;;9002226.02101,"618,54569-4510-00 ",.01)
 ;;54569-4510-00
 ;;9002226.02101,"618,54569-4510-00 ",.02)
 ;;54569-4510-00
 ;;9002226.02101,"618,54569-4510-01 ",.01)
 ;;54569-4510-01
 ;;9002226.02101,"618,54569-4510-01 ",.02)
 ;;54569-4510-01
 ;;9002226.02101,"618,54569-4510-02 ",.01)
 ;;54569-4510-02
 ;;9002226.02101,"618,54569-4510-02 ",.02)
 ;;54569-4510-02
 ;;9002226.02101,"618,54569-4531-00 ",.01)
 ;;54569-4531-00
 ;;9002226.02101,"618,54569-4531-00 ",.02)
 ;;54569-4531-00
 ;;9002226.02101,"618,54569-4668-00 ",.01)
 ;;54569-4668-00
 ;;9002226.02101,"618,54569-4668-00 ",.02)
 ;;54569-4668-00
 ;;9002226.02101,"618,54569-4699-00 ",.01)
 ;;54569-4699-00
 ;;9002226.02101,"618,54569-4699-00 ",.02)
 ;;54569-4699-00
 ;;9002226.02101,"618,54569-4825-00 ",.01)
 ;;54569-4825-00
 ;;9002226.02101,"618,54569-4825-00 ",.02)
 ;;54569-4825-00
 ;;9002226.02101,"618,54569-4825-01 ",.01)
 ;;54569-4825-01
 ;;9002226.02101,"618,54569-4825-01 ",.02)
 ;;54569-4825-01
 ;;9002226.02101,"618,54569-4911-00 ",.01)
 ;;54569-4911-00
 ;;9002226.02101,"618,54569-4911-00 ",.02)
 ;;54569-4911-00
 ;;9002226.02101,"618,54569-5159-00 ",.01)
 ;;54569-5159-00
 ;;9002226.02101,"618,54569-5159-00 ",.02)
 ;;54569-5159-00
 ;;9002226.02101,"618,54569-5194-00 ",.01)
 ;;54569-5194-00
 ;;9002226.02101,"618,54569-5194-00 ",.02)
 ;;54569-5194-00
 ;;9002226.02101,"618,54569-5406-00 ",.01)
 ;;54569-5406-00
 ;;9002226.02101,"618,54569-5406-00 ",.02)
 ;;54569-5406-00
 ;;9002226.02101,"618,54569-5411-00 ",.01)
 ;;54569-5411-00
 ;;9002226.02101,"618,54569-5411-00 ",.02)
 ;;54569-5411-00
 ;;9002226.02101,"618,54569-5442-00 ",.01)
 ;;54569-5442-00
 ;;9002226.02101,"618,54569-5442-00 ",.02)
 ;;54569-5442-00
 ;;9002226.02101,"618,54569-5490-00 ",.01)
 ;;54569-5490-00
 ;;9002226.02101,"618,54569-5490-00 ",.02)
 ;;54569-5490-00
 ;;9002226.02101,"618,54569-5609-00 ",.01)
 ;;54569-5609-00
 ;;9002226.02101,"618,54569-5609-00 ",.02)
 ;;54569-5609-00
 ;;9002226.02101,"618,54569-5609-01 ",.01)
 ;;54569-5609-01
 ;;9002226.02101,"618,54569-5609-01 ",.02)
 ;;54569-5609-01
 ;;9002226.02101,"618,54569-5736-00 ",.01)
 ;;54569-5736-00
 ;;9002226.02101,"618,54569-5736-00 ",.02)
 ;;54569-5736-00
 ;;9002226.02101,"618,54569-5744-00 ",.01)
 ;;54569-5744-00
 ;;9002226.02101,"618,54569-5744-00 ",.02)
 ;;54569-5744-00
 ;;9002226.02101,"618,54569-5744-01 ",.01)
 ;;54569-5744-01
 ;;9002226.02101,"618,54569-5744-01 ",.02)
 ;;54569-5744-01
 ;;9002226.02101,"618,54569-5745-00 ",.01)
 ;;54569-5745-00
 ;;9002226.02101,"618,54569-5745-00 ",.02)
 ;;54569-5745-00
 ;;9002226.02101,"618,54569-5745-01 ",.01)
 ;;54569-5745-01
 ;;9002226.02101,"618,54569-5745-01 ",.02)
 ;;54569-5745-01
 ;;9002226.02101,"618,54569-5745-02 ",.01)
 ;;54569-5745-02
 ;;9002226.02101,"618,54569-5745-02 ",.02)
 ;;54569-5745-02
 ;;9002226.02101,"618,54569-5747-00 ",.01)
 ;;54569-5747-00
 ;;9002226.02101,"618,54569-5747-00 ",.02)
 ;;54569-5747-00
 ;;9002226.02101,"618,54569-5761-00 ",.01)
 ;;54569-5761-00
 ;;9002226.02101,"618,54569-5761-00 ",.02)
 ;;54569-5761-00
 ;;9002226.02101,"618,54569-6379-00 ",.01)
 ;;54569-6379-00
 ;;9002226.02101,"618,54569-6379-00 ",.02)
 ;;54569-6379-00
 ;;9002226.02101,"618,54569-8321-00 ",.01)
 ;;54569-8321-00
 ;;9002226.02101,"618,54569-8321-00 ",.02)
 ;;54569-8321-00
 ;;9002226.02101,"618,54569-8329-00 ",.01)
 ;;54569-8329-00
 ;;9002226.02101,"618,54569-8329-00 ",.02)
 ;;54569-8329-00
 ;;9002226.02101,"618,54738-0105-01 ",.01)
 ;;54738-0105-01
 ;;9002226.02101,"618,54738-0105-01 ",.02)
 ;;54738-0105-01
 ;;9002226.02101,"618,54738-0106-01 ",.01)
 ;;54738-0106-01
 ;;9002226.02101,"618,54738-0106-01 ",.02)
 ;;54738-0106-01
 ;;9002226.02101,"618,54738-0106-03 ",.01)
 ;;54738-0106-03
 ;;9002226.02101,"618,54738-0106-03 ",.02)
 ;;54738-0106-03
 ;;9002226.02101,"618,54738-0106-13 ",.01)
 ;;54738-0106-13
 ;;9002226.02101,"618,54738-0106-13 ",.02)
 ;;54738-0106-13
 ;;9002226.02101,"618,54738-0112-01 ",.01)
 ;;54738-0112-01
 ;;9002226.02101,"618,54738-0112-01 ",.02)
 ;;54738-0112-01
 ;;9002226.02101,"618,54738-0112-03 ",.01)
 ;;54738-0112-03
 ;;9002226.02101,"618,54738-0112-03 ",.02)
 ;;54738-0112-03
 ;;9002226.02101,"618,54738-0112-13 ",.01)
 ;;54738-0112-13
 ;;9002226.02101,"618,54738-0112-13 ",.02)
 ;;54738-0112-13
 ;;9002226.02101,"618,54738-0116-01 ",.01)
 ;;54738-0116-01
 ;;9002226.02101,"618,54738-0116-01 ",.02)
 ;;54738-0116-01
 ;;9002226.02101,"618,54738-0116-03 ",.01)
 ;;54738-0116-03
 ;;9002226.02101,"618,54738-0116-03 ",.02)
 ;;54738-0116-03
 ;;9002226.02101,"618,54738-0116-13 ",.01)
 ;;54738-0116-13
 ;;9002226.02101,"618,54738-0116-13 ",.02)
 ;;54738-0116-13
 ;;9002226.02101,"618,54738-0308-01 ",.01)
 ;;54738-0308-01
 ;;9002226.02101,"618,54738-0308-01 ",.02)
 ;;54738-0308-01
 ;;9002226.02101,"618,54738-0308-03 ",.01)
 ;;54738-0308-03
 ;;9002226.02101,"618,54738-0308-03 ",.02)
 ;;54738-0308-03
 ;;9002226.02101,"618,54738-0309-01 ",.01)
 ;;54738-0309-01
 ;;9002226.02101,"618,54738-0309-01 ",.02)
 ;;54738-0309-01
 ;;9002226.02101,"618,54738-0309-03 ",.01)
 ;;54738-0309-03
 ;;9002226.02101,"618,54738-0309-03 ",.02)
 ;;54738-0309-03
 ;;9002226.02101,"618,54738-0317-01 ",.01)
 ;;54738-0317-01
 ;;9002226.02101,"618,54738-0317-01 ",.02)
 ;;54738-0317-01
 ;;9002226.02101,"618,54738-0317-03 ",.01)
 ;;54738-0317-03
 ;;9002226.02101,"618,54738-0317-03 ",.02)
 ;;54738-0317-03
 ;;9002226.02101,"618,54738-0554-01 ",.01)
 ;;54738-0554-01
 ;;9002226.02101,"618,54738-0554-01 ",.02)
 ;;54738-0554-01
 ;;9002226.02101,"618,54738-0554-03 ",.01)
 ;;54738-0554-03
 ;;9002226.02101,"618,54738-0554-03 ",.02)
 ;;54738-0554-03
 ;;9002226.02101,"618,54738-0555-01 ",.01)
 ;;54738-0555-01
 ;;9002226.02101,"618,54738-0555-01 ",.02)
 ;;54738-0555-01
 ;;9002226.02101,"618,54738-0555-03 ",.01)
 ;;54738-0555-03
 ;;9002226.02101,"618,54738-0555-03 ",.02)
 ;;54738-0555-03
 ;;9002226.02101,"618,54738-0580-01 ",.01)
 ;;54738-0580-01
 ;;9002226.02101,"618,54738-0580-01 ",.02)
 ;;54738-0580-01
 ;;9002226.02101,"618,54738-0580-03 ",.01)
 ;;54738-0580-03
 ;;9002226.02101,"618,54738-0580-03 ",.02)
 ;;54738-0580-03
 ;;9002226.02101,"618,54738-0939-01 ",.01)
 ;;54738-0939-01
 ;;9002226.02101,"618,54738-0939-01 ",.02)
 ;;54738-0939-01
 ;;9002226.02101,"618,54738-0939-03 ",.01)
 ;;54738-0939-03
 ;;9002226.02101,"618,54738-0939-03 ",.02)
 ;;54738-0939-03
 ;;9002226.02101,"618,54738-0940-01 ",.01)
 ;;54738-0940-01
 ;;9002226.02101,"618,54738-0940-01 ",.02)
 ;;54738-0940-01
 ;;9002226.02101,"618,54838-0514-40 ",.01)
 ;;54838-0514-40
 ;;9002226.02101,"618,54838-0514-40 ",.02)
 ;;54838-0514-40
 ;;9002226.02101,"618,54838-0534-80 ",.01)
 ;;54838-0534-80
 ;;9002226.02101,"618,54838-0534-80 ",.02)
 ;;54838-0534-80
 ;;9002226.02101,"618,54838-0535-30 ",.01)
 ;;54838-0535-30
 ;;9002226.02101,"618,54838-0535-30 ",.02)
 ;;54838-0535-30
 ;;9002226.02101,"618,54838-0537-30 ",.01)
 ;;54838-0537-30
 ;;9002226.02101,"618,54838-0537-30 ",.02)
 ;;54838-0537-30
 ;;9002226.02101,"618,54838-0541-30 ",.01)
 ;;54838-0541-30
 ;;9002226.02101,"618,54838-0541-30 ",.02)
 ;;54838-0541-30
 ;;9002226.02101,"618,54859-0502-06 ",.01)
 ;;54859-0502-06
 ;;9002226.02101,"618,54859-0502-06 ",.02)
 ;;54859-0502-06
 ;;9002226.02101,"618,54859-0502-10 ",.01)
 ;;54859-0502-10
 ;;9002226.02101,"618,54859-0502-10 ",.02)
 ;;54859-0502-10
 ;;9002226.02101,"618,54859-0558-06 ",.01)
 ;;54859-0558-06
 ;;9002226.02101,"618,54859-0558-06 ",.02)
 ;;54859-0558-06
 ;;9002226.02101,"618,54859-0801-60 ",.01)
 ;;54859-0801-60
 ;;9002226.02101,"618,54859-0801-60 ",.02)
 ;;54859-0801-60
 ;;9002226.02101,"618,54868-0063-00 ",.01)
 ;;54868-0063-00
 ;;9002226.02101,"618,54868-0063-00 ",.02)
 ;;54868-0063-00
 ;;9002226.02101,"618,54868-0063-01 ",.01)
 ;;54868-0063-01
 ;;9002226.02101,"618,54868-0063-01 ",.02)
 ;;54868-0063-01
 ;;9002226.02101,"618,54868-0063-02 ",.01)
 ;;54868-0063-02
 ;;9002226.02101,"618,54868-0063-02 ",.02)
 ;;54868-0063-02
 ;;9002226.02101,"618,54868-0063-03 ",.01)
 ;;54868-0063-03
 ;;9002226.02101,"618,54868-0063-03 ",.02)
 ;;54868-0063-03
 ;;9002226.02101,"618,54868-0063-04 ",.01)
 ;;54868-0063-04
 ;;9002226.02101,"618,54868-0063-04 ",.02)
 ;;54868-0063-04
 ;;9002226.02101,"618,54868-0063-05 ",.01)
 ;;54868-0063-05
 ;;9002226.02101,"618,54868-0063-05 ",.02)
 ;;54868-0063-05
 ;;9002226.02101,"618,54868-0063-06 ",.01)
 ;;54868-0063-06
 ;;9002226.02101,"618,54868-0063-06 ",.02)
 ;;54868-0063-06
 ;;9002226.02101,"618,54868-0063-07 ",.01)
 ;;54868-0063-07
 ;;9002226.02101,"618,54868-0063-07 ",.02)
 ;;54868-0063-07
 ;;9002226.02101,"618,54868-0063-08 ",.01)
 ;;54868-0063-08
 ;;9002226.02101,"618,54868-0063-08 ",.02)
 ;;54868-0063-08
 ;;9002226.02101,"618,54868-0063-09 ",.01)
 ;;54868-0063-09
 ;;9002226.02101,"618,54868-0063-09 ",.02)
 ;;54868-0063-09
 ;;9002226.02101,"618,54868-0229-00 ",.01)
 ;;54868-0229-00
 ;;9002226.02101,"618,54868-0229-00 ",.02)
 ;;54868-0229-00
 ;;9002226.02101,"618,54868-0229-01 ",.01)
 ;;54868-0229-01
 ;;9002226.02101,"618,54868-0229-01 ",.02)
 ;;54868-0229-01
 ;;9002226.02101,"618,54868-0229-02 ",.01)
 ;;54868-0229-02
 ;;9002226.02101,"618,54868-0229-02 ",.02)
 ;;54868-0229-02
 ;;9002226.02101,"618,54868-0229-03 ",.01)
 ;;54868-0229-03
 ;;9002226.02101,"618,54868-0229-03 ",.02)
 ;;54868-0229-03
 ;;9002226.02101,"618,54868-0229-04 ",.01)
 ;;54868-0229-04
 ;;9002226.02101,"618,54868-0229-04 ",.02)
 ;;54868-0229-04
 ;;9002226.02101,"618,54868-0262-00 ",.01)
 ;;54868-0262-00
 ;;9002226.02101,"618,54868-0262-00 ",.02)
 ;;54868-0262-00
 ;;9002226.02101,"618,54868-0263-00 ",.01)
 ;;54868-0263-00
 ;;9002226.02101,"618,54868-0263-00 ",.02)
 ;;54868-0263-00
 ;;9002226.02101,"618,54868-0263-01 ",.01)
 ;;54868-0263-01
 ;;9002226.02101,"618,54868-0263-01 ",.02)
 ;;54868-0263-01
 ;;9002226.02101,"618,54868-0534-02 ",.01)
 ;;54868-0534-02
 ;;9002226.02101,"618,54868-0534-02 ",.02)
 ;;54868-0534-02
 ;;9002226.02101,"618,54868-0601-00 ",.01)
 ;;54868-0601-00
 ;;9002226.02101,"618,54868-0601-00 ",.02)
 ;;54868-0601-00
 ;;9002226.02101,"618,54868-0601-01 ",.01)
 ;;54868-0601-01
 ;;9002226.02101,"618,54868-0601-01 ",.02)
 ;;54868-0601-01
 ;;9002226.02101,"618,54868-0601-02 ",.01)
 ;;54868-0601-02
 ;;9002226.02101,"618,54868-0601-02 ",.02)
 ;;54868-0601-02
 ;;9002226.02101,"618,54868-0601-03 ",.01)
 ;;54868-0601-03
 ;;9002226.02101,"618,54868-0601-03 ",.02)
 ;;54868-0601-03
 ;;9002226.02101,"618,54868-0721-00 ",.01)
 ;;54868-0721-00
 ;;9002226.02101,"618,54868-0721-00 ",.02)
 ;;54868-0721-00
 ;;9002226.02101,"618,54868-0724-00 ",.01)
 ;;54868-0724-00
 ;;9002226.02101,"618,54868-0724-00 ",.02)
 ;;54868-0724-00
 ;;9002226.02101,"618,54868-0858-00 ",.01)
 ;;54868-0858-00
 ;;9002226.02101,"618,54868-0858-00 ",.02)
 ;;54868-0858-00
 ;;9002226.02101,"618,54868-1014-00 ",.01)
 ;;54868-1014-00
 ;;9002226.02101,"618,54868-1014-00 ",.02)
 ;;54868-1014-00
 ;;9002226.02101,"618,54868-1022-00 ",.01)
 ;;54868-1022-00
 ;;9002226.02101,"618,54868-1022-00 ",.02)
 ;;54868-1022-00
 ;;9002226.02101,"618,54868-1022-01 ",.01)
 ;;54868-1022-01
 ;;9002226.02101,"618,54868-1022-01 ",.02)
 ;;54868-1022-01
 ;;9002226.02101,"618,54868-1022-03 ",.01)
 ;;54868-1022-03
 ;;9002226.02101,"618,54868-1022-03 ",.02)
 ;;54868-1022-03
 ;;9002226.02101,"618,54868-1022-04 ",.01)
 ;;54868-1022-04
 ;;9002226.02101,"618,54868-1022-04 ",.02)
 ;;54868-1022-04
 ;;9002226.02101,"618,54868-1028-01 ",.01)
 ;;54868-1028-01
 ;;9002226.02101,"618,54868-1028-01 ",.02)
 ;;54868-1028-01
 ;;9002226.02101,"618,54868-1029-00 ",.01)
 ;;54868-1029-00
 ;;9002226.02101,"618,54868-1029-00 ",.02)
 ;;54868-1029-00
 ;;9002226.02101,"618,54868-1029-01 ",.01)
 ;;54868-1029-01
 ;;9002226.02101,"618,54868-1029-01 ",.02)
 ;;54868-1029-01
 ;;9002226.02101,"618,54868-1029-02 ",.01)
 ;;54868-1029-02
 ;;9002226.02101,"618,54868-1029-02 ",.02)
 ;;54868-1029-02
 ;;9002226.02101,"618,54868-1210-01 ",.01)
 ;;54868-1210-01
 ;;9002226.02101,"618,54868-1210-01 ",.02)
 ;;54868-1210-01
 ;;9002226.02101,"618,54868-1211-01 ",.01)
 ;;54868-1211-01
 ;;9002226.02101,"618,54868-1211-01 ",.02)
 ;;54868-1211-01
 ;;9002226.02101,"618,54868-1285-00 ",.01)
 ;;54868-1285-00
 ;;9002226.02101,"618,54868-1285-00 ",.02)
 ;;54868-1285-00
 ;;9002226.02101,"618,54868-1285-01 ",.01)
 ;;54868-1285-01
 ;;9002226.02101,"618,54868-1285-01 ",.02)
 ;;54868-1285-01
 ;;9002226.02101,"618,54868-1323-00 ",.01)
 ;;54868-1323-00
 ;;9002226.02101,"618,54868-1323-00 ",.02)
 ;;54868-1323-00
 ;;9002226.02101,"618,54868-1323-01 ",.01)
 ;;54868-1323-01
 ;;9002226.02101,"618,54868-1323-01 ",.02)
 ;;54868-1323-01
 ;;9002226.02101,"618,54868-1323-02 ",.01)
 ;;54868-1323-02
 ;;9002226.02101,"618,54868-1323-02 ",.02)
 ;;54868-1323-02
 ;;9002226.02101,"618,54868-1323-04 ",.01)
 ;;54868-1323-04
 ;;9002226.02101,"618,54868-1323-04 ",.02)
 ;;54868-1323-04
 ;;9002226.02101,"618,54868-1323-05 ",.01)
 ;;54868-1323-05
 ;;9002226.02101,"618,54868-1323-05 ",.02)
 ;;54868-1323-05
 ;;9002226.02101,"618,54868-1323-06 ",.01)
 ;;54868-1323-06
 ;;9002226.02101,"618,54868-1323-06 ",.02)
 ;;54868-1323-06
 ;;9002226.02101,"618,54868-1323-07 ",.01)
 ;;54868-1323-07
 ;;9002226.02101,"618,54868-1323-07 ",.02)
 ;;54868-1323-07
 ;;9002226.02101,"618,54868-1323-08 ",.01)
 ;;54868-1323-08