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

BGP06T4.m

Go to the documentation of this file.
BGP06T4 ;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,"368,00378-1454-05 ",.01)
 ;;00378-1454-05
 ;;9002226.02101,"368,00378-1454-05 ",.02)
 ;;00378-1454-05
 ;;9002226.02101,"368,00378-1458-01 ",.01)
 ;;00378-1458-01
 ;;9002226.02101,"368,00378-1458-01 ",.02)
 ;;00378-1458-01
 ;;9002226.02101,"368,00378-1458-05 ",.01)
 ;;00378-1458-05
 ;;9002226.02101,"368,00378-1458-05 ",.02)
 ;;00378-1458-05
 ;;9002226.02101,"368,00378-3349-99 ",.01)
 ;;00378-3349-99
 ;;9002226.02101,"368,00378-3349-99 ",.02)
 ;;00378-3349-99
 ;;9002226.02101,"368,00378-3350-99 ",.01)
 ;;00378-3350-99
 ;;9002226.02101,"368,00378-3350-99 ",.02)
 ;;00378-3350-99
 ;;9002226.02101,"368,00378-3351-99 ",.01)
 ;;00378-3351-99
 ;;9002226.02101,"368,00378-3351-99 ",.02)
 ;;00378-3351-99
 ;;9002226.02101,"368,00378-3352-99 ",.01)
 ;;00378-3352-99
 ;;9002226.02101,"368,00378-3352-99 ",.02)
 ;;00378-3352-99
 ;;9002226.02101,"368,00378-3360-99 ",.01)
 ;;00378-3360-99
 ;;9002226.02101,"368,00378-3360-99 ",.02)
 ;;00378-3360-99
 ;;9002226.02101,"368,00378-3361-99 ",.01)
 ;;00378-3361-99
 ;;9002226.02101,"368,00378-3361-99 ",.02)
 ;;00378-3361-99
 ;;9002226.02101,"368,00378-4551-01 ",.01)
 ;;00378-4551-01
 ;;9002226.02101,"368,00378-4551-01 ",.02)
 ;;00378-4551-01
 ;;9002226.02101,"368,00378-4553-01 ",.01)
 ;;00378-4553-01
 ;;9002226.02101,"368,00378-4553-01 ",.02)
 ;;00378-4553-01
 ;;9002226.02101,"368,00378-4555-01 ",.01)
 ;;00378-4555-01
 ;;9002226.02101,"368,00378-4555-01 ",.02)
 ;;00378-4555-01
 ;;9002226.02101,"368,00403-0651-18 ",.01)
 ;;00403-0651-18
 ;;9002226.02101,"368,00403-0651-18 ",.02)
 ;;00403-0651-18
 ;;9002226.02101,"368,00403-2862-18 ",.01)
 ;;00403-2862-18
 ;;9002226.02101,"368,00403-2862-18 ",.02)
 ;;00403-2862-18
 ;;9002226.02101,"368,00405-4413-01 ",.01)
 ;;00405-4413-01
 ;;9002226.02101,"368,00405-4413-01 ",.02)
 ;;00405-4413-01
 ;;9002226.02101,"368,00405-4414-01 ",.01)
 ;;00405-4414-01
 ;;9002226.02101,"368,00405-4414-01 ",.02)
 ;;00405-4414-01
 ;;9002226.02101,"368,00421-0158-01 ",.01)
 ;;00421-0158-01
 ;;9002226.02101,"368,00421-0158-01 ",.02)
 ;;00421-0158-01
 ;;9002226.02101,"368,00421-0748-01 ",.01)
 ;;00421-0748-01
 ;;9002226.02101,"368,00421-0748-01 ",.02)
 ;;00421-0748-01
 ;;9002226.02101,"368,00421-0768-01 ",.01)
 ;;00421-0768-01
 ;;9002226.02101,"368,00421-0768-01 ",.02)
 ;;00421-0768-01
 ;;9002226.02101,"368,00421-1259-01 ",.01)
 ;;00421-1259-01
 ;;9002226.02101,"368,00421-1259-01 ",.02)
 ;;00421-1259-01
 ;;9002226.02101,"368,00430-0021-24 ",.01)
 ;;00430-0021-24
 ;;9002226.02101,"368,00430-0021-24 ",.02)
 ;;00430-0021-24
 ;;9002226.02101,"368,00430-0023-24 ",.01)
 ;;00430-0023-24
 ;;9002226.02101,"368,00430-0023-24 ",.02)
 ;;00430-0023-24
 ;;9002226.02101,"368,00430-0023-30 ",.01)
 ;;00430-0023-30
 ;;9002226.02101,"368,00430-0023-30 ",.02)
 ;;00430-0023-30
 ;;9002226.02101,"368,00430-0024-24 ",.01)
 ;;00430-0024-24
 ;;9002226.02101,"368,00430-0024-24 ",.02)
 ;;00430-0024-24
 ;;9002226.02101,"368,00430-0024-30 ",.01)
 ;;00430-0024-30
 ;;9002226.02101,"368,00430-0024-30 ",.02)
 ;;00430-0024-30
 ;;9002226.02101,"368,00430-0389-24 ",.01)
 ;;00430-0389-24
 ;;9002226.02101,"368,00430-0389-24 ",.02)
 ;;00430-0389-24
 ;;9002226.02101,"368,00430-0390-24 ",.01)
 ;;00430-0390-24
 ;;9002226.02101,"368,00430-0390-24 ",.02)
 ;;00430-0390-24
 ;;9002226.02101,"368,00430-0391-24 ",.01)
 ;;00430-0391-24
 ;;9002226.02101,"368,00430-0391-24 ",.02)
 ;;00430-0391-24
 ;;9002226.02101,"368,00430-0544-14 ",.01)
 ;;00430-0544-14
 ;;9002226.02101,"368,00430-0544-14 ",.02)
 ;;00430-0544-14
 ;;9002226.02101,"368,00430-0544-23 ",.01)
 ;;00430-0544-23
 ;;9002226.02101,"368,00430-0544-23 ",.02)
 ;;00430-0544-23
 ;;9002226.02101,"368,00430-0720-24 ",.01)
 ;;00430-0720-24
 ;;9002226.02101,"368,00430-0720-24 ",.02)
 ;;00430-0720-24
 ;;9002226.02101,"368,00430-6201-40 ",.01)
 ;;00430-6201-40
 ;;9002226.02101,"368,00430-6201-40 ",.02)
 ;;00430-6201-40
 ;;9002226.02101,"368,00430-6202-40 ",.01)
 ;;00430-6202-40
 ;;9002226.02101,"368,00430-6202-40 ",.02)
 ;;00430-6202-40
 ;;9002226.02101,"368,00456-0784-10 ",.01)
 ;;00456-0784-10
 ;;9002226.02101,"368,00456-0784-10 ",.02)
 ;;00456-0784-10
 ;;9002226.02101,"368,00456-1021-10 ",.01)
 ;;00456-1021-10
 ;;9002226.02101,"368,00456-1021-10 ",.02)
 ;;00456-1021-10
 ;;9002226.02101,"368,00555-0727-02 ",.01)
 ;;00555-0727-02
 ;;9002226.02101,"368,00555-0727-02 ",.02)
 ;;00555-0727-02
 ;;9002226.02101,"368,00555-0728-02 ",.01)
 ;;00555-0728-02
 ;;9002226.02101,"368,00555-0728-02 ",.02)
 ;;00555-0728-02
 ;;9002226.02101,"368,00555-0729-02 ",.01)
 ;;00555-0729-02
 ;;9002226.02101,"368,00555-0729-02 ",.02)
 ;;00555-0729-02
 ;;9002226.02101,"368,00555-0886-02 ",.01)
 ;;00555-0886-02
 ;;9002226.02101,"368,00555-0886-02 ",.02)
 ;;00555-0886-02
 ;;9002226.02101,"368,00555-0886-04 ",.01)
 ;;00555-0886-04
 ;;9002226.02101,"368,00555-0886-04 ",.02)
 ;;00555-0886-04
 ;;9002226.02101,"368,00555-0887-02 ",.01)
 ;;00555-0887-02
 ;;9002226.02101,"368,00555-0887-02 ",.02)
 ;;00555-0887-02
 ;;9002226.02101,"368,00555-0887-04 ",.01)
 ;;00555-0887-04
 ;;9002226.02101,"368,00555-0887-04 ",.02)
 ;;00555-0887-04
 ;;9002226.02101,"368,00555-0899-02 ",.01)
 ;;00555-0899-02
 ;;9002226.02101,"368,00555-0899-02 ",.02)
 ;;00555-0899-02
 ;;9002226.02101,"368,00588-5017-70 ",.01)
 ;;00588-5017-70
 ;;9002226.02101,"368,00588-5017-70 ",.02)
 ;;00588-5017-70
 ;;9002226.02101,"368,00591-0414-01 ",.01)
 ;;00591-0414-01
 ;;9002226.02101,"368,00591-0414-01 ",.02)
 ;;00591-0414-01
 ;;9002226.02101,"368,00591-0415-01 ",.01)
 ;;00591-0415-01
 ;;9002226.02101,"368,00591-0415-01 ",.02)
 ;;00591-0415-01
 ;;9002226.02101,"368,00591-0416-01 ",.01)
 ;;00591-0416-01
 ;;9002226.02101,"368,00591-0416-01 ",.02)
 ;;00591-0416-01
 ;;9002226.02101,"368,00591-0487-01 ",.01)
 ;;00591-0487-01
 ;;9002226.02101,"368,00591-0487-01 ",.02)
 ;;00591-0487-01
 ;;9002226.02101,"368,00591-0487-05 ",.01)
 ;;00591-0487-05
 ;;9002226.02101,"368,00591-0487-05 ",.02)
 ;;00591-0487-05
 ;;9002226.02101,"368,00591-0488-01 ",.01)
 ;;00591-0488-01
 ;;9002226.02101,"368,00591-0488-01 ",.02)
 ;;00591-0488-01
 ;;9002226.02101,"368,00591-0488-05 ",.01)
 ;;00591-0488-05
 ;;9002226.02101,"368,00591-0488-05 ",.02)
 ;;00591-0488-05
 ;;9002226.02101,"368,00591-0528-01 ",.01)
 ;;00591-0528-01
 ;;9002226.02101,"368,00591-0528-01 ",.02)
 ;;00591-0528-01
 ;;9002226.02101,"368,00603-3556-21 ",.01)
 ;;00603-3556-21
 ;;9002226.02101,"368,00603-3556-21 ",.02)
 ;;00603-3556-21
 ;;9002226.02101,"368,00603-3557-21 ",.01)
 ;;00603-3557-21
 ;;9002226.02101,"368,00603-3557-21 ",.02)
 ;;00603-3557-21
 ;;9002226.02101,"368,00603-3558-21 ",.01)
 ;;00603-3558-21
 ;;9002226.02101,"368,00603-3558-21 ",.02)
 ;;00603-3558-21
 ;;9002226.02101,"368,00603-3559-21 ",.01)
 ;;00603-3559-21
 ;;9002226.02101,"368,00603-3559-21 ",.02)
 ;;00603-3559-21
 ;;9002226.02101,"368,00603-3560-21 ",.01)
 ;;00603-3560-21
 ;;9002226.02101,"368,00603-3560-21 ",.02)
 ;;00603-3560-21
 ;;9002226.02101,"368,00603-3561-21 ",.01)
 ;;00603-3561-21
 ;;9002226.02101,"368,00603-3561-21 ",.02)
 ;;00603-3561-21
 ;;9002226.02101,"368,00677-1508-01 ",.01)
 ;;00677-1508-01
 ;;9002226.02101,"368,00677-1508-01 ",.02)
 ;;00677-1508-01
 ;;9002226.02101,"368,00677-1509-01 ",.01)
 ;;00677-1509-01
 ;;9002226.02101,"368,00677-1509-01 ",.02)
 ;;00677-1509-01
 ;;9002226.02101,"368,00781-1543-01 ",.01)
 ;;00781-1543-01
 ;;9002226.02101,"368,00781-1543-01 ",.02)
 ;;00781-1543-01
 ;;9002226.02101,"368,00781-1553-01 ",.01)
 ;;00781-1553-01
 ;;9002226.02101,"368,00781-1553-01 ",.02)
 ;;00781-1553-01
 ;;9002226.02101,"368,00781-1563-01 ",.01)
 ;;00781-1563-01
 ;;9002226.02101,"368,00781-1563-01 ",.02)
 ;;00781-1563-01
 ;;9002226.02101,"368,00781-1897-01 ",.01)
 ;;00781-1897-01
 ;;9002226.02101,"368,00781-1897-01 ",.02)
 ;;00781-1897-01
 ;;9002226.02101,"368,00781-1898-01 ",.01)
 ;;00781-1898-01
 ;;9002226.02101,"368,00781-1898-01 ",.02)
 ;;00781-1898-01
 ;;9002226.02101,"368,00781-1899-01 ",.01)
 ;;00781-1899-01
 ;;9002226.02101,"368,00781-1899-01 ",.02)
 ;;00781-1899-01
 ;;9002226.02101,"368,00839-5575-30 ",.01)
 ;;00839-5575-30
 ;;9002226.02101,"368,00839-5575-30 ",.02)
 ;;00839-5575-30
 ;;9002226.02101,"368,00839-8076-06 ",.01)
 ;;00839-8076-06
 ;;9002226.02101,"368,00839-8076-06 ",.02)
 ;;00839-8076-06
 ;;9002226.02101,"368,00839-8077-06 ",.01)
 ;;00839-8077-06
 ;;9002226.02101,"368,00839-8077-06 ",.02)
 ;;00839-8077-06
 ;;9002226.02101,"368,00839-8078-06 ",.01)
 ;;00839-8078-06
 ;;9002226.02101,"368,00839-8078-06 ",.02)
 ;;00839-8078-06
 ;;9002226.02101,"368,00904-2909-10 ",.01)
 ;;00904-2909-10
 ;;9002226.02101,"368,00904-2909-10 ",.02)
 ;;00904-2909-10
 ;;9002226.02101,"368,00904-2910-10 ",.01)
 ;;00904-2910-10
 ;;9002226.02101,"368,00904-2910-10 ",.02)
 ;;00904-2910-10
 ;;9002226.02101,"368,00904-2911-10 ",.01)
 ;;00904-2911-10
 ;;9002226.02101,"368,00904-2911-10 ",.02)
 ;;00904-2911-10
 ;;9002226.02101,"368,00904-5177-60 ",.01)
 ;;00904-5177-60
 ;;9002226.02101,"368,00904-5177-60 ",.02)
 ;;00904-5177-60
 ;;9002226.02101,"368,00904-5178-60 ",.01)
 ;;00904-5178-60
 ;;9002226.02101,"368,00904-5178-60 ",.02)
 ;;00904-5178-60
 ;;9002226.02101,"368,00904-5179-60 ",.01)
 ;;00904-5179-60
 ;;9002226.02101,"368,00904-5179-60 ",.02)
 ;;00904-5179-60
 ;;9002226.02101,"368,12280-0039-00 ",.01)
 ;;12280-0039-00
 ;;9002226.02101,"368,12280-0039-00 ",.02)
 ;;12280-0039-00
 ;;9002226.02101,"368,12280-0110-00 ",.01)
 ;;12280-0110-00
 ;;9002226.02101,"368,12280-0110-00 ",.02)
 ;;12280-0110-00
 ;;9002226.02101,"368,25332-0117-10 ",.01)
 ;;25332-0117-10
 ;;9002226.02101,"368,25332-0117-10 ",.02)
 ;;25332-0117-10
 ;;9002226.02101,"368,50419-0451-04 ",.01)
 ;;50419-0451-04
 ;;9002226.02101,"368,50419-0451-04 ",.02)
 ;;50419-0451-04
 ;;9002226.02101,"368,50419-0452-04 ",.01)
 ;;50419-0452-04
 ;;9002226.02101,"368,50419-0452-04 ",.02)
 ;;50419-0452-04
 ;;9002226.02101,"368,50419-0453-04 ",.01)
 ;;50419-0453-04
 ;;9002226.02101,"368,50419-0453-04 ",.02)
 ;;50419-0453-04
 ;;9002226.02101,"368,50419-0454-04 ",.01)
 ;;50419-0454-04
 ;;9002226.02101,"368,50419-0454-04 ",.02)
 ;;50419-0454-04
 ;;9002226.02101,"368,50419-0455-04 ",.01)
 ;;50419-0455-04
 ;;9002226.02101,"368,50419-0455-04 ",.02)
 ;;50419-0455-04
 ;;9002226.02101,"368,50419-0456-04 ",.01)
 ;;50419-0456-04
 ;;9002226.02101,"368,50419-0456-04 ",.02)
 ;;50419-0456-04
 ;;9002226.02101,"368,50419-0459-04 ",.01)
 ;;50419-0459-04
 ;;9002226.02101,"368,50419-0459-04 ",.02)
 ;;50419-0459-04
 ;;9002226.02101,"368,51285-0010-01 ",.01)
 ;;51285-0010-01
 ;;9002226.02101,"368,51285-0010-01 ",.02)
 ;;51285-0010-01
 ;;9002226.02101,"368,51285-0010-02 ",.01)
 ;;51285-0010-02
 ;;9002226.02101,"368,51285-0010-02 ",.02)
 ;;51285-0010-02
 ;;9002226.02101,"368,51285-0011-02 ",.01)
 ;;51285-0011-02
 ;;9002226.02101,"368,51285-0011-02 ",.02)
 ;;51285-0011-02
 ;;9002226.02101,"368,51285-0063-90 ",.01)
 ;;51285-0063-90
 ;;9002226.02101,"368,51285-0063-90 ",.02)
 ;;51285-0063-90
 ;;9002226.02101,"368,51285-0088-90 ",.01)
 ;;51285-0088-90
 ;;9002226.02101,"368,51285-0088-90 ",.02)
 ;;51285-0088-90
 ;;9002226.02101,"368,51285-0406-02 ",.01)
 ;;51285-0406-02
 ;;9002226.02101,"368,51285-0406-02 ",.02)
 ;;51285-0406-02
 ;;9002226.02101,"368,51285-0407-02 ",.01)
 ;;51285-0407-02
 ;;9002226.02101,"368,51285-0407-02 ",.02)
 ;;51285-0407-02
 ;;9002226.02101,"368,51285-0408-02 ",.01)
 ;;51285-0408-02
 ;;9002226.02101,"368,51285-0408-02 ",.02)
 ;;51285-0408-02
 ;;9002226.02101,"368,51285-0410-02 ",.01)
 ;;51285-0410-02
 ;;9002226.02101,"368,51285-0410-02 ",.02)
 ;;51285-0410-02
 ;;9002226.02101,"368,51285-0441-02 ",.01)
 ;;51285-0441-02
 ;;9002226.02101,"368,51285-0441-02 ",.02)
 ;;51285-0441-02
 ;;9002226.02101,"368,51285-0442-02 ",.01)
 ;;51285-0442-02
 ;;9002226.02101,"368,51285-0442-02 ",.02)
 ;;51285-0442-02
 ;;9002226.02101,"368,51285-0442-05 ",.01)
 ;;51285-0442-05
 ;;9002226.02101,"368,51285-0442-05 ",.02)
 ;;51285-0442-05
 ;;9002226.02101,"368,51285-0443-02 ",.01)
 ;;51285-0443-02
 ;;9002226.02101,"368,51285-0443-02 ",.02)
 ;;51285-0443-02
 ;;9002226.02101,"368,51285-0443-05 ",.01)
 ;;51285-0443-05
 ;;9002226.02101,"368,51285-0443-05 ",.02)
 ;;51285-0443-05
 ;;9002226.02101,"368,51285-0444-02 ",.01)
 ;;51285-0444-02
 ;;9002226.02101,"368,51285-0444-02 ",.02)
 ;;51285-0444-02
 ;;9002226.02101,"368,51285-0444-05 ",.01)
 ;;51285-0444-05
 ;;9002226.02101,"368,51285-0444-05 ",.02)
 ;;51285-0444-05
 ;;9002226.02101,"368,51285-0446-02 ",.01)
 ;;51285-0446-02
 ;;9002226.02101,"368,51285-0446-02 ",.02)
 ;;51285-0446-02
 ;;9002226.02101,"368,51285-0501-02 ",.01)
 ;;51285-0501-02
 ;;9002226.02101,"368,51285-0501-02 ",.02)
 ;;51285-0501-02
 ;;9002226.02101,"368,51285-0502-02 ",.01)
 ;;51285-0502-02
 ;;9002226.02101,"368,51285-0502-02 ",.02)
 ;;51285-0502-02
 ;;9002226.02101,"368,51285-0502-04 ",.01)
 ;;51285-0502-04
 ;;9002226.02101,"368,51285-0502-04 ",.02)
 ;;51285-0502-04
 ;;9002226.02101,"368,51285-0504-02 ",.01)
 ;;51285-0504-02
 ;;9002226.02101,"368,51285-0504-02 ",.02)
 ;;51285-0504-02
 ;;9002226.02101,"368,51285-0504-04 ",.01)
 ;;51285-0504-04
 ;;9002226.02101,"368,51285-0504-04 ",.02)
 ;;51285-0504-04
 ;;9002226.02101,"368,51285-0875-02 ",.01)
 ;;51285-0875-02
 ;;9002226.02101,"368,51285-0875-02 ",.02)
 ;;51285-0875-02
 ;;9002226.02101,"368,51285-0876-02 ",.01)
 ;;51285-0876-02
 ;;9002226.02101,"368,51285-0876-02 ",.02)
 ;;51285-0876-02
 ;;9002226.02101,"368,51655-0452-25 ",.01)
 ;;51655-0452-25
 ;;9002226.02101,"368,51655-0452-25 ",.02)
 ;;51655-0452-25