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

BGP7GXQC.m

Go to the documentation of this file.
BGP7GXQC ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 27, 2006 ;
 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 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,"630,00430-0023-24 ",.02)
 ;;00430-0023-24
 ;;9002226.02101,"630,00430-0023-30 ",.01)
 ;;00430-0023-30
 ;;9002226.02101,"630,00430-0023-30 ",.02)
 ;;00430-0023-30
 ;;9002226.02101,"630,00430-0024-24 ",.01)
 ;;00430-0024-24
 ;;9002226.02101,"630,00430-0024-24 ",.02)
 ;;00430-0024-24
 ;;9002226.02101,"630,00430-0024-30 ",.01)
 ;;00430-0024-30
 ;;9002226.02101,"630,00430-0024-30 ",.02)
 ;;00430-0024-30
 ;;9002226.02101,"630,00440-7866-14 ",.01)
 ;;00440-7866-14
 ;;9002226.02101,"630,00440-7866-14 ",.02)
 ;;00440-7866-14
 ;;9002226.02101,"630,00555-0727-02 ",.01)
 ;;00555-0727-02
 ;;9002226.02101,"630,00555-0727-02 ",.02)
 ;;00555-0727-02
 ;;9002226.02101,"630,00555-0728-02 ",.01)
 ;;00555-0728-02
 ;;9002226.02101,"630,00555-0728-02 ",.02)
 ;;00555-0728-02
 ;;9002226.02101,"630,00555-0729-02 ",.01)
 ;;00555-0729-02
 ;;9002226.02101,"630,00555-0729-02 ",.02)
 ;;00555-0729-02
 ;;9002226.02101,"630,00555-0886-02 ",.01)
 ;;00555-0886-02
 ;;9002226.02101,"630,00555-0886-02 ",.02)
 ;;00555-0886-02
 ;;9002226.02101,"630,00555-0886-04 ",.01)
 ;;00555-0886-04
 ;;9002226.02101,"630,00555-0886-04 ",.02)
 ;;00555-0886-04
 ;;9002226.02101,"630,00555-0887-02 ",.01)
 ;;00555-0887-02
 ;;9002226.02101,"630,00555-0887-02 ",.02)
 ;;00555-0887-02
 ;;9002226.02101,"630,00555-0887-04 ",.01)
 ;;00555-0887-04
 ;;9002226.02101,"630,00555-0887-04 ",.02)
 ;;00555-0887-04
 ;;9002226.02101,"630,00555-0899-02 ",.01)
 ;;00555-0899-02
 ;;9002226.02101,"630,00555-0899-02 ",.02)
 ;;00555-0899-02
 ;;9002226.02101,"630,00591-0414-01 ",.01)
 ;;00591-0414-01
 ;;9002226.02101,"630,00591-0414-01 ",.02)
 ;;00591-0414-01
 ;;9002226.02101,"630,00591-0415-01 ",.01)
 ;;00591-0415-01
 ;;9002226.02101,"630,00591-0415-01 ",.02)
 ;;00591-0415-01
 ;;9002226.02101,"630,00591-0416-01 ",.01)
 ;;00591-0416-01
 ;;9002226.02101,"630,00591-0416-01 ",.02)
 ;;00591-0416-01
 ;;9002226.02101,"630,00591-0487-01 ",.01)
 ;;00591-0487-01
 ;;9002226.02101,"630,00591-0487-01 ",.02)
 ;;00591-0487-01
 ;;9002226.02101,"630,00591-0487-05 ",.01)
 ;;00591-0487-05
 ;;9002226.02101,"630,00591-0487-05 ",.02)
 ;;00591-0487-05
 ;;9002226.02101,"630,00591-0488-01 ",.01)
 ;;00591-0488-01
 ;;9002226.02101,"630,00591-0488-01 ",.02)
 ;;00591-0488-01
 ;;9002226.02101,"630,00591-0488-05 ",.01)
 ;;00591-0488-05
 ;;9002226.02101,"630,00591-0488-05 ",.02)
 ;;00591-0488-05
 ;;9002226.02101,"630,00591-0528-01 ",.01)
 ;;00591-0528-01
 ;;9002226.02101,"630,00591-0528-01 ",.02)
 ;;00591-0528-01
 ;;9002226.02101,"630,00603-3556-21 ",.01)
 ;;00603-3556-21
 ;;9002226.02101,"630,00603-3556-21 ",.02)
 ;;00603-3556-21
 ;;9002226.02101,"630,00603-3557-21 ",.01)
 ;;00603-3557-21
 ;;9002226.02101,"630,00603-3557-21 ",.02)
 ;;00603-3557-21
 ;;9002226.02101,"630,00603-3558-21 ",.01)
 ;;00603-3558-21
 ;;9002226.02101,"630,00603-3558-21 ",.02)
 ;;00603-3558-21
 ;;9002226.02101,"630,00603-3559-21 ",.01)
 ;;00603-3559-21
 ;;9002226.02101,"630,00603-3559-21 ",.02)
 ;;00603-3559-21
 ;;9002226.02101,"630,00603-3560-21 ",.01)
 ;;00603-3560-21
 ;;9002226.02101,"630,00603-3560-21 ",.02)
 ;;00603-3560-21
 ;;9002226.02101,"630,00603-3561-21 ",.01)
 ;;00603-3561-21
 ;;9002226.02101,"630,00603-3561-21 ",.02)
 ;;00603-3561-21
 ;;9002226.02101,"630,00615-1308-43 ",.01)
 ;;00615-1308-43
 ;;9002226.02101,"630,00615-1308-43 ",.02)
 ;;00615-1308-43
 ;;9002226.02101,"630,00615-1308-53 ",.01)
 ;;00615-1308-53
 ;;9002226.02101,"630,00615-1308-53 ",.02)
 ;;00615-1308-53
 ;;9002226.02101,"630,00615-1308-63 ",.01)
 ;;00615-1308-63
 ;;9002226.02101,"630,00615-1308-63 ",.02)
 ;;00615-1308-63
 ;;9002226.02101,"630,00615-1309-43 ",.01)
 ;;00615-1309-43
 ;;9002226.02101,"630,00615-1309-43 ",.02)
 ;;00615-1309-43
 ;;9002226.02101,"630,00615-1309-53 ",.01)
 ;;00615-1309-53
 ;;9002226.02101,"630,00615-1309-53 ",.02)
 ;;00615-1309-53
 ;;9002226.02101,"630,00615-1309-63 ",.01)
 ;;00615-1309-63
 ;;9002226.02101,"630,00615-1309-63 ",.02)
 ;;00615-1309-63
 ;;9002226.02101,"630,00677-1508-01 ",.01)
 ;;00677-1508-01
 ;;9002226.02101,"630,00677-1508-01 ",.02)
 ;;00677-1508-01
 ;;9002226.02101,"630,00677-1509-01 ",.01)
 ;;00677-1509-01
 ;;9002226.02101,"630,00677-1509-01 ",.02)
 ;;00677-1509-01
 ;;9002226.02101,"630,00781-1543-01 ",.01)
 ;;00781-1543-01
 ;;9002226.02101,"630,00781-1543-01 ",.02)
 ;;00781-1543-01
 ;;9002226.02101,"630,00781-1553-01 ",.01)
 ;;00781-1553-01
 ;;9002226.02101,"630,00781-1553-01 ",.02)
 ;;00781-1553-01
 ;;9002226.02101,"630,00781-1563-01 ",.01)
 ;;00781-1563-01
 ;;9002226.02101,"630,00781-1563-01 ",.02)
 ;;00781-1563-01
 ;;9002226.02101,"630,00781-1897-01 ",.01)
 ;;00781-1897-01
 ;;9002226.02101,"630,00781-1897-01 ",.02)
 ;;00781-1897-01
 ;;9002226.02101,"630,00781-1898-01 ",.01)
 ;;00781-1898-01
 ;;9002226.02101,"630,00781-1898-01 ",.02)
 ;;00781-1898-01
 ;;9002226.02101,"630,00781-1899-01 ",.01)
 ;;00781-1899-01
 ;;9002226.02101,"630,00781-1899-01 ",.02)
 ;;00781-1899-01
 ;;9002226.02101,"630,00839-8076-06 ",.01)
 ;;00839-8076-06
 ;;9002226.02101,"630,00839-8076-06 ",.02)
 ;;00839-8076-06
 ;;9002226.02101,"630,00839-8077-06 ",.01)
 ;;00839-8077-06
 ;;9002226.02101,"630,00839-8077-06 ",.02)
 ;;00839-8077-06
 ;;9002226.02101,"630,00839-8078-06 ",.01)
 ;;00839-8078-06
 ;;9002226.02101,"630,00839-8078-06 ",.02)
 ;;00839-8078-06
 ;;9002226.02101,"630,00904-5177-60 ",.01)
 ;;00904-5177-60
 ;;9002226.02101,"630,00904-5177-60 ",.02)
 ;;00904-5177-60
 ;;9002226.02101,"630,00904-5178-60 ",.01)
 ;;00904-5178-60
 ;;9002226.02101,"630,00904-5178-60 ",.02)
 ;;00904-5178-60
 ;;9002226.02101,"630,00904-5179-60 ",.01)
 ;;00904-5179-60
 ;;9002226.02101,"630,00904-5179-60 ",.02)
 ;;00904-5179-60
 ;;9002226.02101,"630,12280-0039-00 ",.01)
 ;;12280-0039-00
 ;;9002226.02101,"630,12280-0039-00 ",.02)
 ;;12280-0039-00
 ;;9002226.02101,"630,12280-0110-00 ",.01)
 ;;12280-0110-00
 ;;9002226.02101,"630,12280-0110-00 ",.02)
 ;;12280-0110-00
 ;;9002226.02101,"630,17236-0663-01 ",.01)
 ;;17236-0663-01
 ;;9002226.02101,"630,17236-0663-01 ",.02)
 ;;17236-0663-01
 ;;9002226.02101,"630,49999-0210-14 ",.01)
 ;;49999-0210-14
 ;;9002226.02101,"630,49999-0210-14 ",.02)
 ;;49999-0210-14
 ;;9002226.02101,"630,49999-0210-28 ",.01)
 ;;49999-0210-28
 ;;9002226.02101,"630,49999-0210-28 ",.02)
 ;;49999-0210-28
 ;;9002226.02101,"630,51079-0584-01 ",.01)
 ;;51079-0584-01
 ;;9002226.02101,"630,51079-0584-01 ",.02)
 ;;51079-0584-01
 ;;9002226.02101,"630,51079-0585-01 ",.01)
 ;;51079-0585-01
 ;;9002226.02101,"630,51079-0585-01 ",.02)
 ;;51079-0585-01
 ;;9002226.02101,"630,51285-0010-01 ",.01)
 ;;51285-0010-01
 ;;9002226.02101,"630,51285-0010-01 ",.02)
 ;;51285-0010-01
 ;;9002226.02101,"630,51285-0010-02 ",.01)
 ;;51285-0010-02
 ;;9002226.02101,"630,51285-0010-02 ",.02)
 ;;51285-0010-02
 ;;9002226.02101,"630,51285-0011-02 ",.01)
 ;;51285-0011-02
 ;;9002226.02101,"630,51285-0011-02 ",.02)
 ;;51285-0011-02
 ;;9002226.02101,"630,51285-0441-02 ",.01)
 ;;51285-0441-02
 ;;9002226.02101,"630,51285-0441-02 ",.02)
 ;;51285-0441-02
 ;;9002226.02101,"630,51285-0442-02 ",.01)
 ;;51285-0442-02
 ;;9002226.02101,"630,51285-0442-02 ",.02)
 ;;51285-0442-02
 ;;9002226.02101,"630,51285-0442-05 ",.01)
 ;;51285-0442-05
 ;;9002226.02101,"630,51285-0442-05 ",.02)
 ;;51285-0442-05
 ;;9002226.02101,"630,51285-0443-02 ",.01)
 ;;51285-0443-02
 ;;9002226.02101,"630,51285-0443-02 ",.02)
 ;;51285-0443-02
 ;;9002226.02101,"630,51285-0443-05 ",.01)
 ;;51285-0443-05
 ;;9002226.02101,"630,51285-0443-05 ",.02)
 ;;51285-0443-05
 ;;9002226.02101,"630,51285-0444-02 ",.01)
 ;;51285-0444-02
 ;;9002226.02101,"630,51285-0444-02 ",.02)
 ;;51285-0444-02
 ;;9002226.02101,"630,51285-0444-05 ",.01)
 ;;51285-0444-05
 ;;9002226.02101,"630,51285-0444-05 ",.02)
 ;;51285-0444-05
 ;;9002226.02101,"630,51285-0446-02 ",.01)
 ;;51285-0446-02
 ;;9002226.02101,"630,51285-0446-02 ",.02)
 ;;51285-0446-02
 ;;9002226.02101,"630,51285-0501-02 ",.01)
 ;;51285-0501-02
 ;;9002226.02101,"630,51285-0501-02 ",.02)
 ;;51285-0501-02
 ;;9002226.02101,"630,51285-0502-02 ",.01)
 ;;51285-0502-02
 ;;9002226.02101,"630,51285-0502-02 ",.02)
 ;;51285-0502-02
 ;;9002226.02101,"630,51285-0502-04 ",.01)
 ;;51285-0502-04
 ;;9002226.02101,"630,51285-0502-04 ",.02)
 ;;51285-0502-04
 ;;9002226.02101,"630,51285-0504-02 ",.01)
 ;;51285-0504-02
 ;;9002226.02101,"630,51285-0504-02 ",.02)
 ;;51285-0504-02
 ;;9002226.02101,"630,51285-0504-04 ",.01)
 ;;51285-0504-04
 ;;9002226.02101,"630,51285-0504-04 ",.02)
 ;;51285-0504-04
 ;;9002226.02101,"630,51285-0875-02 ",.01)
 ;;51285-0875-02
 ;;9002226.02101,"630,51285-0875-02 ",.02)
 ;;51285-0875-02
 ;;9002226.02101,"630,51285-0876-02 ",.01)
 ;;51285-0876-02
 ;;9002226.02101,"630,51285-0876-02 ",.02)
 ;;51285-0876-02
 ;;9002226.02101,"630,51432-0683-03 ",.01)
 ;;51432-0683-03
 ;;9002226.02101,"630,51432-0683-03 ",.02)
 ;;51432-0683-03
 ;;9002226.02101,"630,51432-0741-03 ",.01)
 ;;51432-0741-03
 ;;9002226.02101,"630,51432-0741-03 ",.02)
 ;;51432-0741-03
 ;;9002226.02101,"630,51655-0452-25 ",.01)
 ;;51655-0452-25
 ;;9002226.02101,"630,51655-0452-25 ",.02)
 ;;51655-0452-25
 ;;9002226.02101,"630,51991-0078-01 ",.01)
 ;;51991-0078-01
 ;;9002226.02101,"630,51991-0078-01 ",.02)
 ;;51991-0078-01
 ;;9002226.02101,"630,51991-0079-01 ",.01)
 ;;51991-0079-01
 ;;9002226.02101,"630,51991-0079-01 ",.02)
 ;;51991-0079-01
 ;;9002226.02101,"630,52544-0414-01 ",.01)
 ;;52544-0414-01
 ;;9002226.02101,"630,52544-0414-01 ",.02)
 ;;52544-0414-01
 ;;9002226.02101,"630,52544-0415-01 ",.01)
 ;;52544-0415-01
 ;;9002226.02101,"630,52544-0415-01 ",.02)
 ;;52544-0415-01
 ;;9002226.02101,"630,52544-0416-01 ",.01)
 ;;52544-0416-01
 ;;9002226.02101,"630,52544-0416-01 ",.02)
 ;;52544-0416-01
 ;;9002226.02101,"630,52544-0487-01 ",.01)
 ;;52544-0487-01
 ;;9002226.02101,"630,52544-0487-01 ",.02)
 ;;52544-0487-01
 ;;9002226.02101,"630,52544-0487-05 ",.01)
 ;;52544-0487-05
 ;;9002226.02101,"630,52544-0487-05 ",.02)
 ;;52544-0487-05
 ;;9002226.02101,"630,52544-0488-01 ",.01)
 ;;52544-0488-01
 ;;9002226.02101,"630,52544-0488-01 ",.02)
 ;;52544-0488-01
 ;;9002226.02101,"630,52544-0488-05 ",.01)
 ;;52544-0488-05
 ;;9002226.02101,"630,52544-0488-05 ",.02)
 ;;52544-0488-05
 ;;9002226.02101,"630,52544-0528-01 ",.01)
 ;;52544-0528-01
 ;;9002226.02101,"630,52544-0528-01 ",.02)
 ;;52544-0528-01
 ;;9002226.02101,"630,52555-0651-01 ",.01)
 ;;52555-0651-01
 ;;9002226.02101,"630,52555-0651-01 ",.02)
 ;;52555-0651-01
 ;;9002226.02101,"630,52555-0717-01 ",.01)
 ;;52555-0717-01
 ;;9002226.02101,"630,52555-0717-01 ",.02)
 ;;52555-0717-01
 ;;9002226.02101,"630,52765-1076-00 ",.01)
 ;;52765-1076-00
 ;;9002226.02101,"630,52765-1076-00 ",.02)
 ;;52765-1076-00
 ;;9002226.02101,"630,52959-0222-00 ",.01)
 ;;52959-0222-00
 ;;9002226.02101,"630,52959-0222-00 ",.02)
 ;;52959-0222-00
 ;;9002226.02101,"630,52959-0223-00 ",.01)
 ;;52959-0223-00
 ;;9002226.02101,"630,52959-0223-00 ",.02)
 ;;52959-0223-00
 ;;9002226.02101,"630,52959-0223-30 ",.01)
 ;;52959-0223-30
 ;;9002226.02101,"630,52959-0223-30 ",.02)
 ;;52959-0223-30
 ;;9002226.02101,"630,52959-0229-04 ",.01)
 ;;52959-0229-04
 ;;9002226.02101,"630,52959-0229-04 ",.02)
 ;;52959-0229-04
 ;;9002226.02101,"630,52959-0323-00 ",.01)
 ;;52959-0323-00
 ;;9002226.02101,"630,52959-0323-00 ",.02)
 ;;52959-0323-00
 ;;9002226.02101,"630,52959-0326-00 ",.01)
 ;;52959-0326-00
 ;;9002226.02101,"630,52959-0326-00 ",.02)
 ;;52959-0326-00
 ;;9002226.02101,"630,52959-0326-10 ",.01)
 ;;52959-0326-10
 ;;9002226.02101,"630,52959-0326-10 ",.02)
 ;;52959-0326-10
 ;;9002226.02101,"630,52959-0405-00 ",.01)
 ;;52959-0405-00
 ;;9002226.02101,"630,52959-0405-00 ",.02)
 ;;52959-0405-00
 ;;9002226.02101,"630,52959-0405-10 ",.01)
 ;;52959-0405-10
 ;;9002226.02101,"630,52959-0405-10 ",.02)
 ;;52959-0405-10
 ;;9002226.02101,"630,52959-0405-15 ",.01)
 ;;52959-0405-15
 ;;9002226.02101,"630,52959-0405-15 ",.02)
 ;;52959-0405-15
 ;;9002226.02101,"630,52959-1410-03 ",.01)
 ;;52959-1410-03
 ;;9002226.02101,"630,52959-1410-03 ",.02)
 ;;52959-1410-03
 ;;9002226.02101,"630,52959-1410-05 ",.01)
 ;;52959-1410-05
 ;;9002226.02101,"630,52959-1410-05 ",.02)
 ;;52959-1410-05
 ;;9002226.02101,"630,52959-1410-06 ",.01)
 ;;52959-1410-06
 ;;9002226.02101,"630,52959-1410-06 ",.02)
 ;;52959-1410-06
 ;;9002226.02101,"630,52959-1451-04 ",.01)
 ;;52959-1451-04
 ;;9002226.02101,"630,52959-1451-04 ",.02)
 ;;52959-1451-04
 ;;9002226.02101,"630,54348-0714-30 ",.01)
 ;;54348-0714-30
 ;;9002226.02101,"630,54348-0714-30 ",.02)
 ;;54348-0714-30
 ;;9002226.02101,"630,54348-0715-25 ",.01)
 ;;54348-0715-25
 ;;9002226.02101,"630,54348-0715-25 ",.02)
 ;;54348-0715-25
 ;;9002226.02101,"630,54348-0715-28 ",.01)
 ;;54348-0715-28
 ;;9002226.02101,"630,54348-0715-28 ",.02)
 ;;54348-0715-28
 ;;9002226.02101,"630,54348-0715-30 ",.01)
 ;;54348-0715-30
 ;;9002226.02101,"630,54348-0715-30 ",.02)
 ;;54348-0715-30
 ;;9002226.02101,"630,54348-0718-30 ",.01)
 ;;54348-0718-30
 ;;9002226.02101,"630,54348-0718-30 ",.02)
 ;;54348-0718-30
 ;;9002226.02101,"630,54348-0720-25 ",.01)
 ;;54348-0720-25
 ;;9002226.02101,"630,54348-0720-25 ",.02)
 ;;54348-0720-25
 ;;9002226.02101,"630,54348-0720-30 ",.01)
 ;;54348-0720-30
 ;;9002226.02101,"630,54348-0720-30 ",.02)
 ;;54348-0720-30
 ;;9002226.02101,"630,54348-0721-25 ",.01)
 ;;54348-0721-25
 ;;9002226.02101,"630,54348-0721-25 ",.02)
 ;;54348-0721-25
 ;;9002226.02101,"630,54569-0181-07 ",.01)
 ;;54569-0181-07
 ;;9002226.02101,"630,54569-0181-07 ",.02)
 ;;54569-0181-07
 ;;9002226.02101,"630,54569-0707-00 ",.01)
 ;;54569-0707-00