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

BGP8BXQD.m

Go to the documentation of this file.
BGP8BXQD ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 28, 2007 ;
 ;;8.0;IHS CLINICAL REPORTING;;MAR 12, 2008
 ;;;BGP6;;SEP 28, 2007
 ;
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,"469,00677-1633-01 ",.01)
 ;;00677-1633-01
 ;;9002226.02101,"469,00677-1633-01 ",.02)
 ;;00677-1633-01
 ;;9002226.02101,"469,00677-1701-01 ",.01)
 ;;00677-1701-01
 ;;9002226.02101,"469,00677-1701-01 ",.02)
 ;;00677-1701-01
 ;;9002226.02101,"469,00677-1701-05 ",.01)
 ;;00677-1701-05
 ;;9002226.02101,"469,00677-1701-05 ",.02)
 ;;00677-1701-05
 ;;9002226.02101,"469,00677-1702-01 ",.01)
 ;;00677-1702-01
 ;;9002226.02101,"469,00677-1702-01 ",.02)
 ;;00677-1702-01
 ;;9002226.02101,"469,00677-1702-05 ",.01)
 ;;00677-1702-05
 ;;9002226.02101,"469,00677-1702-05 ",.02)
 ;;00677-1702-05
 ;;9002226.02101,"469,00677-1703-01 ",.01)
 ;;00677-1703-01
 ;;9002226.02101,"469,00677-1703-01 ",.02)
 ;;00677-1703-01
 ;;9002226.02101,"469,00677-1709-01 ",.01)
 ;;00677-1709-01
 ;;9002226.02101,"469,00677-1709-01 ",.02)
 ;;00677-1709-01
 ;;9002226.02101,"469,00677-1709-06 ",.01)
 ;;00677-1709-06
 ;;9002226.02101,"469,00677-1709-06 ",.02)
 ;;00677-1709-06
 ;;9002226.02101,"469,00677-1709-07 ",.01)
 ;;00677-1709-07
 ;;9002226.02101,"469,00677-1709-07 ",.02)
 ;;00677-1709-07
 ;;9002226.02101,"469,00677-1710-06 ",.01)
 ;;00677-1710-06
 ;;9002226.02101,"469,00677-1710-06 ",.02)
 ;;00677-1710-06
 ;;9002226.02101,"469,00677-1711-06 ",.01)
 ;;00677-1711-06
 ;;9002226.02101,"469,00677-1711-06 ",.02)
 ;;00677-1711-06
 ;;9002226.02101,"469,00677-1712-07 ",.01)
 ;;00677-1712-07
 ;;9002226.02101,"469,00677-1712-07 ",.02)
 ;;00677-1712-07
 ;;9002226.02101,"469,00677-1893-01 ",.01)
 ;;00677-1893-01
 ;;9002226.02101,"469,00677-1893-01 ",.02)
 ;;00677-1893-01
 ;;9002226.02101,"469,00677-1894-01 ",.01)
 ;;00677-1894-01
 ;;9002226.02101,"469,00677-1894-01 ",.02)
 ;;00677-1894-01
 ;;9002226.02101,"469,00677-1894-06 ",.01)
 ;;00677-1894-06
 ;;9002226.02101,"469,00677-1894-06 ",.02)
 ;;00677-1894-06
 ;;9002226.02101,"469,00677-1895-01 ",.01)
 ;;00677-1895-01
 ;;9002226.02101,"469,00677-1895-01 ",.02)
 ;;00677-1895-01
 ;;9002226.02101,"469,00677-1895-06 ",.01)
 ;;00677-1895-06
 ;;9002226.02101,"469,00677-1895-06 ",.02)
 ;;00677-1895-06
 ;;9002226.02101,"469,00781-1078-01 ",.01)
 ;;00781-1078-01
 ;;9002226.02101,"469,00781-1078-01 ",.02)
 ;;00781-1078-01
 ;;9002226.02101,"469,00781-1506-01 ",.01)
 ;;00781-1506-01
 ;;9002226.02101,"469,00781-1506-01 ",.02)
 ;;00781-1506-01
 ;;9002226.02101,"469,00781-1506-10 ",.01)
 ;;00781-1506-10
 ;;9002226.02101,"469,00781-1506-10 ",.02)
 ;;00781-1506-10
 ;;9002226.02101,"469,00781-1507-01 ",.01)
 ;;00781-1507-01
 ;;9002226.02101,"469,00781-1507-01 ",.02)
 ;;00781-1507-01
 ;;9002226.02101,"469,00781-1507-10 ",.01)
 ;;00781-1507-10
 ;;9002226.02101,"469,00781-1507-10 ",.02)
 ;;00781-1507-10
 ;;9002226.02101,"469,00891-0605-01 ",.01)
 ;;00891-0605-01
 ;;9002226.02101,"469,00891-0605-01 ",.02)
 ;;00891-0605-01
 ;;9002226.02101,"469,00891-0605-05 ",.01)
 ;;00891-0605-05
 ;;9002226.02101,"469,00891-0605-05 ",.02)
 ;;00891-0605-05
 ;;9002226.02101,"469,00904-0411-61 ",.01)
 ;;00904-0411-61
 ;;9002226.02101,"469,00904-0411-61 ",.02)
 ;;00904-0411-61
 ;;9002226.02101,"469,00904-0411-80 ",.01)
 ;;00904-0411-80
 ;;9002226.02101,"469,00904-0411-80 ",.02)
 ;;00904-0411-80
 ;;9002226.02101,"469,00904-0412-60 ",.01)
 ;;00904-0412-60
 ;;9002226.02101,"469,00904-0412-60 ",.02)
 ;;00904-0412-60
 ;;9002226.02101,"469,00904-0412-61 ",.01)
 ;;00904-0412-61
 ;;9002226.02101,"469,00904-0412-61 ",.02)
 ;;00904-0412-61
 ;;9002226.02101,"469,00904-0412-80 ",.01)
 ;;00904-0412-80
 ;;9002226.02101,"469,00904-0412-80 ",.02)
 ;;00904-0412-80
 ;;9002226.02101,"469,00904-0414-60 ",.01)
 ;;00904-0414-60
 ;;9002226.02101,"469,00904-0414-60 ",.02)
 ;;00904-0414-60
 ;;9002226.02101,"469,00904-0418-60 ",.01)
 ;;00904-0418-60
 ;;9002226.02101,"469,00904-0418-60 ",.02)
 ;;00904-0418-60
 ;;9002226.02101,"469,00904-5248-05 ",.01)
 ;;00904-5248-05
 ;;9002226.02101,"469,00904-5248-05 ",.02)
 ;;00904-5248-05
 ;;9002226.02101,"469,00904-5248-10 ",.01)
 ;;00904-5248-10
 ;;9002226.02101,"469,00904-5248-10 ",.02)
 ;;00904-5248-10
 ;;9002226.02101,"469,00904-5392-60 ",.01)
 ;;00904-5392-60
 ;;9002226.02101,"469,00904-5392-60 ",.02)
 ;;00904-5392-60
 ;;9002226.02101,"469,00904-7772-61 ",.01)
 ;;00904-7772-61
 ;;9002226.02101,"469,00904-7772-61 ",.02)
 ;;00904-7772-61
 ;;9002226.02101,"469,00904-7773-61 ",.01)
 ;;00904-7773-61
 ;;9002226.02101,"469,00904-7773-61 ",.02)
 ;;00904-7773-61
 ;;9002226.02101,"469,00904-7946-60 ",.01)
 ;;00904-7946-60
 ;;9002226.02101,"469,00904-7946-60 ",.02)
 ;;00904-7946-60
 ;;9002226.02101,"469,00904-7946-80 ",.01)
 ;;00904-7946-80
 ;;9002226.02101,"469,00904-7946-80 ",.02)
 ;;00904-7946-80
 ;;9002226.02101,"469,00904-7947-80 ",.01)
 ;;00904-7947-80
 ;;9002226.02101,"469,00904-7947-80 ",.02)
 ;;00904-7947-80
 ;;9002226.02101,"469,00904-7987-60 ",.01)
 ;;00904-7987-60
 ;;9002226.02101,"469,00904-7987-60 ",.02)
 ;;00904-7987-60
 ;;9002226.02101,"469,009047-772-61 ",.01)
 ;;009047-772-61
 ;;9002226.02101,"469,009047-772-61 ",.02)
 ;;009047-772-61
 ;;9002226.02101,"469,17478-0288-10 ",.01)
 ;;17478-0288-10
 ;;9002226.02101,"469,17478-0288-10 ",.02)
 ;;17478-0288-10
 ;;9002226.02101,"469,17478-0288-11 ",.01)
 ;;17478-0288-11
 ;;9002226.02101,"469,17478-0288-11 ",.02)
 ;;17478-0288-11
 ;;9002226.02101,"469,17478-0710-10 ",.01)
 ;;17478-0710-10
 ;;9002226.02101,"469,17478-0710-10 ",.02)
 ;;17478-0710-10
 ;;9002226.02101,"469,17478-0710-11 ",.01)
 ;;17478-0710-11
 ;;9002226.02101,"469,17478-0710-11 ",.02)
 ;;17478-0710-11
 ;;9002226.02101,"469,20419-0105-11 ",.01)
 ;;20419-0105-11
 ;;9002226.02101,"469,20419-0105-11 ",.02)
 ;;20419-0105-11
 ;;9002226.02101,"469,24208-0324-10 ",.01)
 ;;24208-0324-10
 ;;9002226.02101,"469,24208-0324-10 ",.02)
 ;;24208-0324-10
 ;;9002226.02101,"469,24208-0330-05 ",.01)
 ;;24208-0330-05
 ;;9002226.02101,"469,24208-0330-05 ",.02)
 ;;24208-0330-05
 ;;9002226.02101,"469,24208-0330-10 ",.01)
 ;;24208-0330-10
 ;;9002226.02101,"469,24208-0330-10 ",.02)
 ;;24208-0330-10
 ;;9002226.02101,"469,24208-0357-15 ",.01)
 ;;24208-0357-15
 ;;9002226.02101,"469,24208-0357-15 ",.02)
 ;;24208-0357-15
 ;;9002226.02101,"469,24208-0367-05 ",.01)
 ;;24208-0367-05
 ;;9002226.02101,"469,24208-0367-05 ",.02)
 ;;24208-0367-05
 ;;9002226.02101,"469,24208-0367-10 ",.01)
 ;;24208-0367-10
 ;;9002226.02101,"469,24208-0367-10 ",.02)
 ;;24208-0367-10
 ;;9002226.02101,"469,38245-0724-10 ",.01)
 ;;38245-0724-10
 ;;9002226.02101,"469,38245-0724-10 ",.02)
 ;;38245-0724-10
 ;;9002226.02101,"469,38245-0731-10 ",.01)
 ;;38245-0731-10
 ;;9002226.02101,"469,38245-0731-10 ",.02)
 ;;38245-0731-10
 ;;9002226.02101,"469,49884-0555-01 ",.01)
 ;;49884-0555-01
 ;;9002226.02101,"469,49884-0555-01 ",.02)
 ;;49884-0555-01
 ;;9002226.02101,"469,49884-0582-01 ",.01)
 ;;49884-0582-01
 ;;9002226.02101,"469,49884-0582-01 ",.02)
 ;;49884-0582-01
 ;;9002226.02101,"469,49884-0582-10 ",.01)
 ;;49884-0582-10
 ;;9002226.02101,"469,49884-0582-10 ",.02)
 ;;49884-0582-10
 ;;9002226.02101,"469,49884-0583-01 ",.01)
 ;;49884-0583-01
 ;;9002226.02101,"469,49884-0583-01 ",.02)
 ;;49884-0583-01
 ;;9002226.02101,"469,49884-0583-10 ",.01)
 ;;49884-0583-10
 ;;9002226.02101,"469,49884-0583-10 ",.02)
 ;;49884-0583-10
 ;;9002226.02101,"469,49884-0584-01 ",.01)
 ;;49884-0584-01
 ;;9002226.02101,"469,49884-0584-01 ",.02)
 ;;49884-0584-01
 ;;9002226.02101,"469,49884-0584-10 ",.01)
 ;;49884-0584-10
 ;;9002226.02101,"469,49884-0584-10 ",.02)
 ;;49884-0584-10
 ;;9002226.02101,"469,49884-0585-01 ",.01)
 ;;49884-0585-01
 ;;9002226.02101,"469,49884-0585-01 ",.02)
 ;;49884-0585-01
 ;;9002226.02101,"469,49884-0585-10 ",.01)
 ;;49884-0585-10
 ;;9002226.02101,"469,49884-0585-10 ",.02)
 ;;49884-0585-10
 ;;9002226.02101,"469,49884-0587-01 ",.01)
 ;;49884-0587-01
 ;;9002226.02101,"469,49884-0587-01 ",.02)
 ;;49884-0587-01
 ;;9002226.02101,"469,50111-0467-01 ",.01)
 ;;50111-0467-01
 ;;9002226.02101,"469,50111-0467-01 ",.02)
 ;;50111-0467-01
 ;;9002226.02101,"469,50111-0467-03 ",.01)
 ;;50111-0467-03
 ;;9002226.02101,"469,50111-0467-03 ",.02)
 ;;50111-0467-03
 ;;9002226.02101,"469,50111-0468-01 ",.01)
 ;;50111-0468-01
 ;;9002226.02101,"469,50111-0468-01 ",.02)
 ;;50111-0468-01
 ;;9002226.02101,"469,50111-0468-03 ",.01)
 ;;50111-0468-03
 ;;9002226.02101,"469,50111-0468-03 ",.02)
 ;;50111-0468-03
 ;;9002226.02101,"469,50111-0470-01 ",.01)
 ;;50111-0470-01
 ;;9002226.02101,"469,50111-0470-01 ",.02)
 ;;50111-0470-01
 ;;9002226.02101,"469,50111-0471-01 ",.01)
 ;;50111-0471-01
 ;;9002226.02101,"469,50111-0471-01 ",.02)
 ;;50111-0471-01
 ;;9002226.02101,"469,50111-0471-02 ",.01)
 ;;50111-0471-02
 ;;9002226.02101,"469,50111-0471-02 ",.02)
 ;;50111-0471-02
 ;;9002226.02101,"469,50419-0105-10 ",.01)
 ;;50419-0105-10
 ;;9002226.02101,"469,50419-0105-10 ",.02)
 ;;50419-0105-10
 ;;9002226.02101,"469,50419-0106-10 ",.01)
 ;;50419-0106-10
 ;;9002226.02101,"469,50419-0106-10 ",.02)
 ;;50419-0106-10
 ;;9002226.02101,"469,50419-0106-11 ",.01)
 ;;50419-0106-11
 ;;9002226.02101,"469,50419-0106-11 ",.02)
 ;;50419-0106-11
 ;;9002226.02101,"469,50419-0107-10 ",.01)
 ;;50419-0107-10
 ;;9002226.02101,"469,50419-0107-10 ",.02)
 ;;50419-0107-10
 ;;9002226.02101,"469,50419-0107-11 ",.01)
 ;;50419-0107-11
 ;;9002226.02101,"469,50419-0107-11 ",.02)
 ;;50419-0107-11
 ;;9002226.02101,"469,50419-0109-10 ",.01)
 ;;50419-0109-10
 ;;9002226.02101,"469,50419-0109-10 ",.02)
 ;;50419-0109-10
 ;;9002226.02101,"469,50419-0109-11 ",.01)
 ;;50419-0109-11
 ;;9002226.02101,"469,50419-0109-11 ",.02)
 ;;50419-0109-11
 ;;9002226.02101,"469,50419-0115-06 ",.01)
 ;;50419-0115-06
 ;;9002226.02101,"469,50419-0115-06 ",.02)
 ;;50419-0115-06
 ;;9002226.02101,"469,50419-0115-11 ",.01)
 ;;50419-0115-11
 ;;9002226.02101,"469,50419-0115-11 ",.02)
 ;;50419-0115-11
 ;;9002226.02101,"469,50419-0116-06 ",.01)
 ;;50419-0116-06
 ;;9002226.02101,"469,50419-0116-06 ",.02)
 ;;50419-0116-06
 ;;9002226.02101,"469,50419-0116-11 ",.01)
 ;;50419-0116-11
 ;;9002226.02101,"469,50419-0116-11 ",.02)
 ;;50419-0116-11
 ;;9002226.02101,"469,50419-0119-06 ",.01)
 ;;50419-0119-06
 ;;9002226.02101,"469,50419-0119-06 ",.02)
 ;;50419-0119-06
 ;;9002226.02101,"469,50419-0119-11 ",.01)
 ;;50419-0119-11
 ;;9002226.02101,"469,50419-0119-11 ",.02)
 ;;50419-0119-11
 ;;9002226.02101,"469,51079-0277-19 ",.01)
 ;;51079-0277-19
 ;;9002226.02101,"469,51079-0277-19 ",.02)
 ;;51079-0277-19
 ;;9002226.02101,"469,51079-0277-20 ",.01)
 ;;51079-0277-20
 ;;9002226.02101,"469,51079-0277-20 ",.02)
 ;;51079-0277-20
 ;;9002226.02101,"469,51079-0278-20 ",.01)
 ;;51079-0278-20
 ;;9002226.02101,"469,51079-0278-20 ",.02)
 ;;51079-0278-20
 ;;9002226.02101,"469,51079-0279-20 ",.01)
 ;;51079-0279-20
 ;;9002226.02101,"469,51079-0279-20 ",.02)
 ;;51079-0279-20
 ;;9002226.02101,"469,51079-0280-20 ",.01)
 ;;51079-0280-20
 ;;9002226.02101,"469,51079-0280-20 ",.02)
 ;;51079-0280-20
 ;;9002226.02101,"469,51079-0684-19 ",.01)
 ;;51079-0684-19
 ;;9002226.02101,"469,51079-0684-19 ",.02)
 ;;51079-0684-19
 ;;9002226.02101,"469,51079-0684-20 ",.01)
 ;;51079-0684-20
 ;;9002226.02101,"469,51079-0684-20 ",.02)
 ;;51079-0684-20
 ;;9002226.02101,"469,51079-0685-20 ",.01)
 ;;51079-0685-20
 ;;9002226.02101,"469,51079-0685-20 ",.02)
 ;;51079-0685-20
 ;;9002226.02101,"469,51079-0759-19 ",.01)
 ;;51079-0759-19
 ;;9002226.02101,"469,51079-0759-19 ",.02)
 ;;51079-0759-19
 ;;9002226.02101,"469,51079-0801-19 ",.01)
 ;;51079-0801-19
 ;;9002226.02101,"469,51079-0801-19 ",.02)
 ;;51079-0801-19
 ;;9002226.02101,"469,51079-0801-20 ",.01)
 ;;51079-0801-20
 ;;9002226.02101,"469,51079-0801-20 ",.02)
 ;;51079-0801-20
 ;;9002226.02101,"469,51079-0801-24 ",.01)
 ;;51079-0801-24
 ;;9002226.02101,"469,51079-0801-24 ",.02)
 ;;51079-0801-24
 ;;9002226.02101,"469,51079-0802-19 ",.01)
 ;;51079-0802-19
 ;;9002226.02101,"469,51079-0802-19 ",.02)
 ;;51079-0802-19
 ;;9002226.02101,"469,51079-0802-20 ",.01)
 ;;51079-0802-20
 ;;9002226.02101,"469,51079-0802-20 ",.02)
 ;;51079-0802-20
 ;;9002226.02101,"469,51079-0812-20 ",.01)
 ;;51079-0812-20
 ;;9002226.02101,"469,51079-0812-20 ",.02)
 ;;51079-0812-20
 ;;9002226.02101,"469,51079-0813-20 ",.01)
 ;;51079-0813-20
 ;;9002226.02101,"469,51079-0813-20 ",.02)
 ;;51079-0813-20
 ;;9002226.02101,"469,51079-0814-20 ",.01)
 ;;51079-0814-20
 ;;9002226.02101,"469,51079-0814-20 ",.02)
 ;;51079-0814-20
 ;;9002226.02101,"469,51079-0815-57 ",.01)
 ;;51079-0815-57
 ;;9002226.02101,"469,51079-0815-57 ",.02)
 ;;51079-0815-57
 ;;9002226.02101,"469,51079-0928-20 ",.01)
 ;;51079-0928-20
 ;;9002226.02101,"469,51079-0928-20 ",.02)
 ;;51079-0928-20
 ;;9002226.02101,"469,51079-0929-20 ",.01)
 ;;51079-0929-20
 ;;9002226.02101,"469,51079-0929-20 ",.02)
 ;;51079-0929-20
 ;;9002226.02101,"469,51655-0349-24 ",.01)
 ;;51655-0349-24
 ;;9002226.02101,"469,51655-0349-24 ",.02)
 ;;51655-0349-24
 ;;9002226.02101,"469,51655-0532-24 ",.01)
 ;;51655-0532-24
 ;;9002226.02101,"469,51655-0532-24 ",.02)
 ;;51655-0532-24
 ;;9002226.02101,"469,52152-0179-02 ",.01)
 ;;52152-0179-02
 ;;9002226.02101,"469,52152-0179-02 ",.02)
 ;;52152-0179-02
 ;;9002226.02101,"469,52152-0180-02 ",.01)
 ;;52152-0180-02
 ;;9002226.02101,"469,52152-0180-02 ",.02)
 ;;52152-0180-02
 ;;9002226.02101,"469,52544-0305-01 ",.01)
 ;;52544-0305-01
 ;;9002226.02101,"469,52544-0305-01 ",.02)
 ;;52544-0305-01
 ;;9002226.02101,"469,52544-0305-10 ",.01)
 ;;52544-0305-10
 ;;9002226.02101,"469,52544-0305-10 ",.02)
 ;;52544-0305-10
 ;;9002226.02101,"469,52544-0306-01 ",.01)
 ;;52544-0306-01
 ;;9002226.02101,"469,52544-0306-01 ",.02)
 ;;52544-0306-01
 ;;9002226.02101,"469,52544-0307-01 ",.01)
 ;;52544-0307-01