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

BGP0ZD23.m

Go to the documentation of this file.
BGP0ZD23 ;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,"976,54868-4107-02 ",.02)
 ;;54868-4107-02
 ;;9002226.02101,"976,54868-4107-03 ",.01)
 ;;54868-4107-03
 ;;9002226.02101,"976,54868-4107-03 ",.02)
 ;;54868-4107-03
 ;;9002226.02101,"976,54868-4165-00 ",.01)
 ;;54868-4165-00
 ;;9002226.02101,"976,54868-4165-00 ",.02)
 ;;54868-4165-00
 ;;9002226.02101,"976,54868-4171-00 ",.01)
 ;;54868-4171-00
 ;;9002226.02101,"976,54868-4171-00 ",.02)
 ;;54868-4171-00
 ;;9002226.02101,"976,54868-4342-00 ",.01)
 ;;54868-4342-00
 ;;9002226.02101,"976,54868-4342-00 ",.02)
 ;;54868-4342-00
 ;;9002226.02101,"976,54868-4419-00 ",.01)
 ;;54868-4419-00
 ;;9002226.02101,"976,54868-4419-00 ",.02)
 ;;54868-4419-00
 ;;9002226.02101,"976,54868-4490-00 ",.01)
 ;;54868-4490-00
 ;;9002226.02101,"976,54868-4490-00 ",.02)
 ;;54868-4490-00
 ;;9002226.02101,"976,54868-4490-01 ",.01)
 ;;54868-4490-01
 ;;9002226.02101,"976,54868-4490-01 ",.02)
 ;;54868-4490-01
 ;;9002226.02101,"976,54868-4490-02 ",.01)
 ;;54868-4490-02
 ;;9002226.02101,"976,54868-4490-02 ",.02)
 ;;54868-4490-02
 ;;9002226.02101,"976,54868-4548-00 ",.01)
 ;;54868-4548-00
 ;;9002226.02101,"976,54868-4548-00 ",.02)
 ;;54868-4548-00
 ;;9002226.02101,"976,54868-4548-01 ",.01)
 ;;54868-4548-01
 ;;9002226.02101,"976,54868-4548-01 ",.02)
 ;;54868-4548-01
 ;;9002226.02101,"976,54868-4548-02 ",.01)
 ;;54868-4548-02
 ;;9002226.02101,"976,54868-4548-02 ",.02)
 ;;54868-4548-02
 ;;9002226.02101,"976,54868-4556-00 ",.01)
 ;;54868-4556-00
 ;;9002226.02101,"976,54868-4556-00 ",.02)
 ;;54868-4556-00
 ;;9002226.02101,"976,54868-4556-01 ",.01)
 ;;54868-4556-01
 ;;9002226.02101,"976,54868-4556-01 ",.02)
 ;;54868-4556-01
 ;;9002226.02101,"976,54868-4556-02 ",.01)
 ;;54868-4556-02
 ;;9002226.02101,"976,54868-4556-02 ",.02)
 ;;54868-4556-02
 ;;9002226.02101,"976,54868-4556-03 ",.01)
 ;;54868-4556-03
 ;;9002226.02101,"976,54868-4556-03 ",.02)
 ;;54868-4556-03
 ;;9002226.02101,"976,54868-4558-00 ",.01)
 ;;54868-4558-00
 ;;9002226.02101,"976,54868-4558-00 ",.02)
 ;;54868-4558-00
 ;;9002226.02101,"976,54868-4558-01 ",.01)
 ;;54868-4558-01
 ;;9002226.02101,"976,54868-4558-01 ",.02)
 ;;54868-4558-01
 ;;9002226.02101,"976,54868-4558-02 ",.01)
 ;;54868-4558-02
 ;;9002226.02101,"976,54868-4558-02 ",.02)
 ;;54868-4558-02
 ;;9002226.02101,"976,54868-4826-00 ",.01)
 ;;54868-4826-00
 ;;9002226.02101,"976,54868-4826-00 ",.02)
 ;;54868-4826-00
 ;;9002226.02101,"976,54868-4826-01 ",.01)
 ;;54868-4826-01
 ;;9002226.02101,"976,54868-4826-01 ",.02)
 ;;54868-4826-01
 ;;9002226.02101,"976,54868-4826-02 ",.01)
 ;;54868-4826-02
 ;;9002226.02101,"976,54868-4826-02 ",.02)
 ;;54868-4826-02
 ;;9002226.02101,"976,54868-5011-00 ",.01)
 ;;54868-5011-00
 ;;9002226.02101,"976,54868-5011-00 ",.02)
 ;;54868-5011-00
 ;;9002226.02101,"976,54868-5011-01 ",.01)
 ;;54868-5011-01
 ;;9002226.02101,"976,54868-5011-01 ",.02)
 ;;54868-5011-01
 ;;9002226.02101,"976,54868-5158-00 ",.01)
 ;;54868-5158-00
 ;;9002226.02101,"976,54868-5158-00 ",.02)
 ;;54868-5158-00
 ;;9002226.02101,"976,54868-5158-01 ",.01)
 ;;54868-5158-01
 ;;9002226.02101,"976,54868-5158-01 ",.02)
 ;;54868-5158-01
 ;;9002226.02101,"976,55045-1163-01 ",.01)
 ;;55045-1163-01
 ;;9002226.02101,"976,55045-1163-01 ",.02)
 ;;55045-1163-01
 ;;9002226.02101,"976,55045-1163-02 ",.01)
 ;;55045-1163-02
 ;;9002226.02101,"976,55045-1163-02 ",.02)
 ;;55045-1163-02
 ;;9002226.02101,"976,55045-1163-04 ",.01)
 ;;55045-1163-04
 ;;9002226.02101,"976,55045-1163-04 ",.02)
 ;;55045-1163-04
 ;;9002226.02101,"976,55045-1163-08 ",.01)
 ;;55045-1163-08
 ;;9002226.02101,"976,55045-1163-08 ",.02)
 ;;55045-1163-08
 ;;9002226.02101,"976,55045-1163-09 ",.01)
 ;;55045-1163-09
 ;;9002226.02101,"976,55045-1163-09 ",.02)
 ;;55045-1163-09
 ;;9002226.02101,"976,55045-1173-00 ",.01)
 ;;55045-1173-00
 ;;9002226.02101,"976,55045-1173-00 ",.02)
 ;;55045-1173-00
 ;;9002226.02101,"976,55045-1173-01 ",.01)
 ;;55045-1173-01
 ;;9002226.02101,"976,55045-1173-01 ",.02)
 ;;55045-1173-01
 ;;9002226.02101,"976,55045-1173-02 ",.01)
 ;;55045-1173-02
 ;;9002226.02101,"976,55045-1173-02 ",.02)
 ;;55045-1173-02
 ;;9002226.02101,"976,55045-1173-03 ",.01)
 ;;55045-1173-03
 ;;9002226.02101,"976,55045-1173-03 ",.02)
 ;;55045-1173-03
 ;;9002226.02101,"976,55045-1173-05 ",.01)
 ;;55045-1173-05
 ;;9002226.02101,"976,55045-1173-05 ",.02)
 ;;55045-1173-05
 ;;9002226.02101,"976,55045-1173-06 ",.01)
 ;;55045-1173-06
 ;;9002226.02101,"976,55045-1173-06 ",.02)
 ;;55045-1173-06
 ;;9002226.02101,"976,55045-1173-07 ",.01)
 ;;55045-1173-07
 ;;9002226.02101,"976,55045-1173-07 ",.02)
 ;;55045-1173-07
 ;;9002226.02101,"976,55045-1173-08 ",.01)
 ;;55045-1173-08
 ;;9002226.02101,"976,55045-1173-08 ",.02)
 ;;55045-1173-08
 ;;9002226.02101,"976,55045-1173-09 ",.01)
 ;;55045-1173-09
 ;;9002226.02101,"976,55045-1173-09 ",.02)
 ;;55045-1173-09
 ;;9002226.02101,"976,55045-1257-01 ",.01)
 ;;55045-1257-01
 ;;9002226.02101,"976,55045-1257-01 ",.02)
 ;;55045-1257-01
 ;;9002226.02101,"976,55045-1257-02 ",.01)
 ;;55045-1257-02
 ;;9002226.02101,"976,55045-1257-02 ",.02)
 ;;55045-1257-02
 ;;9002226.02101,"976,55045-1257-03 ",.01)
 ;;55045-1257-03
 ;;9002226.02101,"976,55045-1257-03 ",.02)
 ;;55045-1257-03
 ;;9002226.02101,"976,55045-1257-04 ",.01)
 ;;55045-1257-04
 ;;9002226.02101,"976,55045-1257-04 ",.02)
 ;;55045-1257-04
 ;;9002226.02101,"976,55045-1257-05 ",.01)
 ;;55045-1257-05
 ;;9002226.02101,"976,55045-1257-05 ",.02)
 ;;55045-1257-05
 ;;9002226.02101,"976,55045-1257-06 ",.01)
 ;;55045-1257-06
 ;;9002226.02101,"976,55045-1257-06 ",.02)
 ;;55045-1257-06
 ;;9002226.02101,"976,55045-1257-07 ",.01)
 ;;55045-1257-07
 ;;9002226.02101,"976,55045-1257-07 ",.02)
 ;;55045-1257-07
 ;;9002226.02101,"976,55045-1257-08 ",.01)
 ;;55045-1257-08
 ;;9002226.02101,"976,55045-1257-08 ",.02)
 ;;55045-1257-08
 ;;9002226.02101,"976,55045-1257-09 ",.01)
 ;;55045-1257-09
 ;;9002226.02101,"976,55045-1257-09 ",.02)
 ;;55045-1257-09
 ;;9002226.02101,"976,55045-1385-02 ",.01)
 ;;55045-1385-02
 ;;9002226.02101,"976,55045-1385-02 ",.02)
 ;;55045-1385-02
 ;;9002226.02101,"976,55045-1385-07 ",.01)
 ;;55045-1385-07
 ;;9002226.02101,"976,55045-1385-07 ",.02)
 ;;55045-1385-07
 ;;9002226.02101,"976,55045-1385-08 ",.01)
 ;;55045-1385-08
 ;;9002226.02101,"976,55045-1385-08 ",.02)
 ;;55045-1385-08
 ;;9002226.02101,"976,55045-1421-02 ",.01)
 ;;55045-1421-02
 ;;9002226.02101,"976,55045-1421-02 ",.02)
 ;;55045-1421-02
 ;;9002226.02101,"976,55045-1421-04 ",.01)
 ;;55045-1421-04
 ;;9002226.02101,"976,55045-1421-04 ",.02)
 ;;55045-1421-04
 ;;9002226.02101,"976,55045-1421-07 ",.01)
 ;;55045-1421-07
 ;;9002226.02101,"976,55045-1421-07 ",.02)
 ;;55045-1421-07
 ;;9002226.02101,"976,55045-1421-08 ",.01)
 ;;55045-1421-08
 ;;9002226.02101,"976,55045-1421-08 ",.02)
 ;;55045-1421-08
 ;;9002226.02101,"976,55045-1421-09 ",.01)
 ;;55045-1421-09
 ;;9002226.02101,"976,55045-1421-09 ",.02)
 ;;55045-1421-09
 ;;9002226.02101,"976,55045-1437-06 ",.01)
 ;;55045-1437-06
 ;;9002226.02101,"976,55045-1437-06 ",.02)
 ;;55045-1437-06
 ;;9002226.02101,"976,55045-1437-08 ",.01)
 ;;55045-1437-08
 ;;9002226.02101,"976,55045-1437-08 ",.02)
 ;;55045-1437-08
 ;;9002226.02101,"976,55045-1571-08 ",.01)
 ;;55045-1571-08
 ;;9002226.02101,"976,55045-1571-08 ",.02)
 ;;55045-1571-08
 ;;9002226.02101,"976,55045-1676-09 ",.01)
 ;;55045-1676-09
 ;;9002226.02101,"976,55045-1676-09 ",.02)
 ;;55045-1676-09
 ;;9002226.02101,"976,55045-1908-05 ",.01)
 ;;55045-1908-05
 ;;9002226.02101,"976,55045-1908-05 ",.02)
 ;;55045-1908-05
 ;;9002226.02101,"976,55045-1908-07 ",.01)
 ;;55045-1908-07
 ;;9002226.02101,"976,55045-1908-07 ",.02)
 ;;55045-1908-07
 ;;9002226.02101,"976,55045-1908-08 ",.01)
 ;;55045-1908-08
 ;;9002226.02101,"976,55045-1908-08 ",.02)
 ;;55045-1908-08
 ;;9002226.02101,"976,55045-1924-00 ",.01)
 ;;55045-1924-00
 ;;9002226.02101,"976,55045-1924-00 ",.02)
 ;;55045-1924-00
 ;;9002226.02101,"976,55045-1924-01 ",.01)
 ;;55045-1924-01
 ;;9002226.02101,"976,55045-1924-01 ",.02)
 ;;55045-1924-01
 ;;9002226.02101,"976,55045-1924-03 ",.01)
 ;;55045-1924-03
 ;;9002226.02101,"976,55045-1924-03 ",.02)
 ;;55045-1924-03
 ;;9002226.02101,"976,55045-1924-05 ",.01)
 ;;55045-1924-05
 ;;9002226.02101,"976,55045-1924-05 ",.02)
 ;;55045-1924-05
 ;;9002226.02101,"976,55045-1924-08 ",.01)
 ;;55045-1924-08
 ;;9002226.02101,"976,55045-1924-08 ",.02)
 ;;55045-1924-08
 ;;9002226.02101,"976,55045-1924-09 ",.01)
 ;;55045-1924-09
 ;;9002226.02101,"976,55045-1924-09 ",.02)
 ;;55045-1924-09
 ;;9002226.02101,"976,55045-1926-06 ",.01)
 ;;55045-1926-06
 ;;9002226.02101,"976,55045-1926-06 ",.02)
 ;;55045-1926-06
 ;;9002226.02101,"976,55045-2005-06 ",.01)
 ;;55045-2005-06
 ;;9002226.02101,"976,55045-2005-06 ",.02)
 ;;55045-2005-06
 ;;9002226.02101,"976,55045-2005-07 ",.01)
 ;;55045-2005-07
 ;;9002226.02101,"976,55045-2005-07 ",.02)
 ;;55045-2005-07
 ;;9002226.02101,"976,55045-2005-08 ",.01)
 ;;55045-2005-08
 ;;9002226.02101,"976,55045-2005-08 ",.02)
 ;;55045-2005-08
 ;;9002226.02101,"976,55045-2065-00 ",.01)
 ;;55045-2065-00
 ;;9002226.02101,"976,55045-2065-00 ",.02)
 ;;55045-2065-00
 ;;9002226.02101,"976,55045-2065-02 ",.01)
 ;;55045-2065-02
 ;;9002226.02101,"976,55045-2065-02 ",.02)
 ;;55045-2065-02
 ;;9002226.02101,"976,55045-2065-04 ",.01)
 ;;55045-2065-04
 ;;9002226.02101,"976,55045-2065-04 ",.02)
 ;;55045-2065-04
 ;;9002226.02101,"976,55045-2065-05 ",.01)
 ;;55045-2065-05
 ;;9002226.02101,"976,55045-2065-05 ",.02)
 ;;55045-2065-05
 ;;9002226.02101,"976,55045-2065-07 ",.01)
 ;;55045-2065-07
 ;;9002226.02101,"976,55045-2065-07 ",.02)
 ;;55045-2065-07
 ;;9002226.02101,"976,55045-2065-08 ",.01)
 ;;55045-2065-08
 ;;9002226.02101,"976,55045-2065-08 ",.02)
 ;;55045-2065-08
 ;;9002226.02101,"976,55045-2065-09 ",.01)
 ;;55045-2065-09
 ;;9002226.02101,"976,55045-2065-09 ",.02)
 ;;55045-2065-09
 ;;9002226.02101,"976,55045-2066-01 ",.01)
 ;;55045-2066-01
 ;;9002226.02101,"976,55045-2066-01 ",.02)
 ;;55045-2066-01
 ;;9002226.02101,"976,55045-2066-02 ",.01)
 ;;55045-2066-02
 ;;9002226.02101,"976,55045-2066-02 ",.02)
 ;;55045-2066-02
 ;;9002226.02101,"976,55045-2066-03 ",.01)
 ;;55045-2066-03
 ;;9002226.02101,"976,55045-2066-03 ",.02)
 ;;55045-2066-03
 ;;9002226.02101,"976,55045-2066-04 ",.01)
 ;;55045-2066-04
 ;;9002226.02101,"976,55045-2066-04 ",.02)
 ;;55045-2066-04
 ;;9002226.02101,"976,55045-2066-05 ",.01)
 ;;55045-2066-05
 ;;9002226.02101,"976,55045-2066-05 ",.02)
 ;;55045-2066-05
 ;;9002226.02101,"976,55045-2066-06 ",.01)
 ;;55045-2066-06
 ;;9002226.02101,"976,55045-2066-06 ",.02)
 ;;55045-2066-06
 ;;9002226.02101,"976,55045-2066-07 ",.01)
 ;;55045-2066-07
 ;;9002226.02101,"976,55045-2066-07 ",.02)
 ;;55045-2066-07
 ;;9002226.02101,"976,55045-2066-08 ",.01)
 ;;55045-2066-08
 ;;9002226.02101,"976,55045-2066-08 ",.02)
 ;;55045-2066-08
 ;;9002226.02101,"976,55045-2066-09 ",.01)
 ;;55045-2066-09
 ;;9002226.02101,"976,55045-2066-09 ",.02)
 ;;55045-2066-09
 ;;9002226.02101,"976,55045-2068-01 ",.01)
 ;;55045-2068-01
 ;;9002226.02101,"976,55045-2068-01 ",.02)
 ;;55045-2068-01
 ;;9002226.02101,"976,55045-2068-07 ",.01)
 ;;55045-2068-07
 ;;9002226.02101,"976,55045-2068-07 ",.02)
 ;;55045-2068-07
 ;;9002226.02101,"976,55045-2068-08 ",.01)
 ;;55045-2068-08
 ;;9002226.02101,"976,55045-2068-08 ",.02)
 ;;55045-2068-08
 ;;9002226.02101,"976,55045-2068-09 ",.01)
 ;;55045-2068-09
 ;;9002226.02101,"976,55045-2068-09 ",.02)
 ;;55045-2068-09
 ;;9002226.02101,"976,55045-2073-02 ",.01)
 ;;55045-2073-02
 ;;9002226.02101,"976,55045-2073-02 ",.02)
 ;;55045-2073-02
 ;;9002226.02101,"976,55045-2073-05 ",.01)
 ;;55045-2073-05
 ;;9002226.02101,"976,55045-2073-05 ",.02)
 ;;55045-2073-05
 ;;9002226.02101,"976,55045-2109-08 ",.01)
 ;;55045-2109-08
 ;;9002226.02101,"976,55045-2109-08 ",.02)
 ;;55045-2109-08
 ;;9002226.02101,"976,55045-2120-05 ",.01)
 ;;55045-2120-05
 ;;9002226.02101,"976,55045-2120-05 ",.02)
 ;;55045-2120-05
 ;;9002226.02101,"976,55045-2120-06 ",.01)
 ;;55045-2120-06
 ;;9002226.02101,"976,55045-2120-06 ",.02)
 ;;55045-2120-06
 ;;9002226.02101,"976,55045-2142-01 ",.01)
 ;;55045-2142-01
 ;;9002226.02101,"976,55045-2142-01 ",.02)
 ;;55045-2142-01
 ;;9002226.02101,"976,55045-2142-07 ",.01)
 ;;55045-2142-07
 ;;9002226.02101,"976,55045-2142-07 ",.02)
 ;;55045-2142-07
 ;;9002226.02101,"976,55045-2247-00 ",.01)
 ;;55045-2247-00
 ;;9002226.02101,"976,55045-2247-00 ",.02)
 ;;55045-2247-00
 ;;9002226.02101,"976,55045-2247-01 ",.01)
 ;;55045-2247-01
 ;;9002226.02101,"976,55045-2247-01 ",.02)
 ;;55045-2247-01
 ;;9002226.02101,"976,55045-2247-04 ",.01)
 ;;55045-2247-04
 ;;9002226.02101,"976,55045-2247-04 ",.02)
 ;;55045-2247-04
 ;;9002226.02101,"976,55045-2247-08 ",.01)
 ;;55045-2247-08
 ;;9002226.02101,"976,55045-2247-08 ",.02)
 ;;55045-2247-08
 ;;9002226.02101,"976,55045-2247-09 ",.01)
 ;;55045-2247-09
 ;;9002226.02101,"976,55045-2247-09 ",.02)
 ;;55045-2247-09
 ;;9002226.02101,"976,55045-2249-07 ",.01)
 ;;55045-2249-07
 ;;9002226.02101,"976,55045-2249-07 ",.02)
 ;;55045-2249-07
 ;;9002226.02101,"976,55045-2275-00 ",.01)
 ;;55045-2275-00
 ;;9002226.02101,"976,55045-2275-00 ",.02)
 ;;55045-2275-00
 ;;9002226.02101,"976,55045-2275-06 ",.01)
 ;;55045-2275-06
 ;;9002226.02101,"976,55045-2275-06 ",.02)
 ;;55045-2275-06
 ;;9002226.02101,"976,55045-2275-08 ",.01)
 ;;55045-2275-08
 ;;9002226.02101,"976,55045-2275-08 ",.02)
 ;;55045-2275-08
 ;;9002226.02101,"976,55045-2281-07 ",.01)
 ;;55045-2281-07
 ;;9002226.02101,"976,55045-2281-07 ",.02)
 ;;55045-2281-07
 ;;9002226.02101,"976,55045-2440-08 ",.01)
 ;;55045-2440-08