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

BGP6FXUD.m

Go to the documentation of this file.
BGP6FXUD ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON DEC 12, 2005 ;
 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
 ;;;BGP6;;DEC 12, 2005
 ;
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,"563,00339-5985-12 ",.02)
 ;;00339-5985-12
 ;;9002226.02101,"563,00339-6073-12 ",.01)
 ;;00339-6073-12
 ;;9002226.02101,"563,00339-6073-12 ",.02)
 ;;00339-6073-12
 ;;9002226.02101,"563,00339-6074-12 ",.01)
 ;;00339-6074-12
 ;;9002226.02101,"563,00339-6074-12 ",.02)
 ;;00339-6074-12
 ;;9002226.02101,"563,00339-6075-12 ",.01)
 ;;00339-6075-12
 ;;9002226.02101,"563,00339-6075-12 ",.02)
 ;;00339-6075-12
 ;;9002226.02101,"563,00364-2600-01 ",.01)
 ;;00364-2600-01
 ;;9002226.02101,"563,00364-2600-01 ",.02)
 ;;00364-2600-01
 ;;9002226.02101,"563,00364-2601-01 ",.01)
 ;;00364-2601-01
 ;;9002226.02101,"563,00364-2601-01 ",.02)
 ;;00364-2601-01
 ;;9002226.02101,"563,00378-1452-01 ",.01)
 ;;00378-1452-01
 ;;9002226.02101,"563,00378-1452-01 ",.02)
 ;;00378-1452-01
 ;;9002226.02101,"563,00378-1452-05 ",.01)
 ;;00378-1452-05
 ;;9002226.02101,"563,00378-1452-05 ",.02)
 ;;00378-1452-05
 ;;9002226.02101,"563,00378-1454-01 ",.01)
 ;;00378-1454-01
 ;;9002226.02101,"563,00378-1454-01 ",.02)
 ;;00378-1454-01
 ;;9002226.02101,"563,00378-1454-05 ",.01)
 ;;00378-1454-05
 ;;9002226.02101,"563,00378-1454-05 ",.02)
 ;;00378-1454-05
 ;;9002226.02101,"563,00378-1458-01 ",.01)
 ;;00378-1458-01
 ;;9002226.02101,"563,00378-1458-01 ",.02)
 ;;00378-1458-01
 ;;9002226.02101,"563,00378-1458-05 ",.01)
 ;;00378-1458-05
 ;;9002226.02101,"563,00378-1458-05 ",.02)
 ;;00378-1458-05
 ;;9002226.02101,"563,00378-2252-99 ",.01)
 ;;00378-2252-99
 ;;9002226.02101,"563,00378-2252-99 ",.02)
 ;;00378-2252-99
 ;;9002226.02101,"563,00378-3349-99 ",.01)
 ;;00378-3349-99
 ;;9002226.02101,"563,00378-3349-99 ",.02)
 ;;00378-3349-99
 ;;9002226.02101,"563,00378-3350-99 ",.01)
 ;;00378-3350-99
 ;;9002226.02101,"563,00378-3350-99 ",.02)
 ;;00378-3350-99
 ;;9002226.02101,"563,00378-3351-99 ",.01)
 ;;00378-3351-99
 ;;9002226.02101,"563,00378-3351-99 ",.02)
 ;;00378-3351-99
 ;;9002226.02101,"563,00378-3352-99 ",.01)
 ;;00378-3352-99
 ;;9002226.02101,"563,00378-3352-99 ",.02)
 ;;00378-3352-99
 ;;9002226.02101,"563,00378-4551-01 ",.01)
 ;;00378-4551-01
 ;;9002226.02101,"563,00378-4551-01 ",.02)
 ;;00378-4551-01
 ;;9002226.02101,"563,00378-4553-01 ",.01)
 ;;00378-4553-01
 ;;9002226.02101,"563,00378-4553-01 ",.02)
 ;;00378-4553-01
 ;;9002226.02101,"563,00378-4555-01 ",.01)
 ;;00378-4555-01
 ;;9002226.02101,"563,00378-4555-01 ",.02)
 ;;00378-4555-01
 ;;9002226.02101,"563,00405-4413-01 ",.01)
 ;;00405-4413-01
 ;;9002226.02101,"563,00405-4413-01 ",.02)
 ;;00405-4413-01
 ;;9002226.02101,"563,00405-4414-01 ",.01)
 ;;00405-4414-01
 ;;9002226.02101,"563,00405-4414-01 ",.02)
 ;;00405-4414-01
 ;;9002226.02101,"563,00421-0158-01 ",.01)
 ;;00421-0158-01
 ;;9002226.02101,"563,00421-0158-01 ",.02)
 ;;00421-0158-01
 ;;9002226.02101,"563,00421-0748-01 ",.01)
 ;;00421-0748-01
 ;;9002226.02101,"563,00421-0748-01 ",.02)
 ;;00421-0748-01
 ;;9002226.02101,"563,00421-0768-01 ",.01)
 ;;00421-0768-01
 ;;9002226.02101,"563,00421-0768-01 ",.02)
 ;;00421-0768-01
 ;;9002226.02101,"563,00421-1259-01 ",.01)
 ;;00421-1259-01
 ;;9002226.02101,"563,00421-1259-01 ",.02)
 ;;00421-1259-01
 ;;9002226.02101,"563,00430-0021-24 ",.01)
 ;;00430-0021-24
 ;;9002226.02101,"563,00430-0021-24 ",.02)
 ;;00430-0021-24
 ;;9002226.02101,"563,00430-0023-24 ",.01)
 ;;00430-0023-24
 ;;9002226.02101,"563,00430-0023-24 ",.02)
 ;;00430-0023-24
 ;;9002226.02101,"563,00430-0023-30 ",.01)
 ;;00430-0023-30
 ;;9002226.02101,"563,00430-0023-30 ",.02)
 ;;00430-0023-30
 ;;9002226.02101,"563,00430-0024-24 ",.01)
 ;;00430-0024-24
 ;;9002226.02101,"563,00430-0024-24 ",.02)
 ;;00430-0024-24
 ;;9002226.02101,"563,00430-0024-30 ",.01)
 ;;00430-0024-30
 ;;9002226.02101,"563,00430-0024-30 ",.02)
 ;;00430-0024-30
 ;;9002226.02101,"563,00430-0544-14 ",.01)
 ;;00430-0544-14
 ;;9002226.02101,"563,00430-0544-14 ",.02)
 ;;00430-0544-14
 ;;9002226.02101,"563,00430-0544-23 ",.01)
 ;;00430-0544-23
 ;;9002226.02101,"563,00430-0544-23 ",.02)
 ;;00430-0544-23
 ;;9002226.02101,"563,00440-8170-30 ",.01)
 ;;00440-8170-30
 ;;9002226.02101,"563,00440-8170-30 ",.02)
 ;;00440-8170-30
 ;;9002226.02101,"563,00440-8170-60 ",.01)
 ;;00440-8170-60
 ;;9002226.02101,"563,00440-8170-60 ",.02)
 ;;00440-8170-60
 ;;9002226.02101,"563,00440-8170-90 ",.01)
 ;;00440-8170-90
 ;;9002226.02101,"563,00440-8170-90 ",.02)
 ;;00440-8170-90
 ;;9002226.02101,"563,00440-8171-30 ",.01)
 ;;00440-8171-30
 ;;9002226.02101,"563,00440-8171-30 ",.02)
 ;;00440-8171-30
 ;;9002226.02101,"563,00440-8171-60 ",.01)
 ;;00440-8171-60
 ;;9002226.02101,"563,00440-8171-60 ",.02)
 ;;00440-8171-60
 ;;9002226.02101,"563,00440-8171-90 ",.01)
 ;;00440-8171-90
 ;;9002226.02101,"563,00440-8171-90 ",.02)
 ;;00440-8171-90
 ;;9002226.02101,"563,00440-8172-30 ",.01)
 ;;00440-8172-30
 ;;9002226.02101,"563,00440-8172-30 ",.02)
 ;;00440-8172-30
 ;;9002226.02101,"563,00440-8172-60 ",.01)
 ;;00440-8172-60
 ;;9002226.02101,"563,00440-8172-60 ",.02)
 ;;00440-8172-60
 ;;9002226.02101,"563,00440-8172-90 ",.01)
 ;;00440-8172-90
 ;;9002226.02101,"563,00440-8172-90 ",.02)
 ;;00440-8172-90
 ;;9002226.02101,"563,00555-0727-02 ",.01)
 ;;00555-0727-02
 ;;9002226.02101,"563,00555-0727-02 ",.02)
 ;;00555-0727-02
 ;;9002226.02101,"563,00555-0728-02 ",.01)
 ;;00555-0728-02
 ;;9002226.02101,"563,00555-0728-02 ",.02)
 ;;00555-0728-02
 ;;9002226.02101,"563,00555-0729-02 ",.01)
 ;;00555-0729-02
 ;;9002226.02101,"563,00555-0729-02 ",.02)
 ;;00555-0729-02
 ;;9002226.02101,"563,00555-0886-02 ",.01)
 ;;00555-0886-02
 ;;9002226.02101,"563,00555-0886-02 ",.02)
 ;;00555-0886-02
 ;;9002226.02101,"563,00555-0886-04 ",.01)
 ;;00555-0886-04
 ;;9002226.02101,"563,00555-0886-04 ",.02)
 ;;00555-0886-04
 ;;9002226.02101,"563,00555-0887-02 ",.01)
 ;;00555-0887-02
 ;;9002226.02101,"563,00555-0887-02 ",.02)
 ;;00555-0887-02
 ;;9002226.02101,"563,00555-0887-04 ",.01)
 ;;00555-0887-04
 ;;9002226.02101,"563,00555-0887-04 ",.02)
 ;;00555-0887-04
 ;;9002226.02101,"563,00555-0899-02 ",.01)
 ;;00555-0899-02
 ;;9002226.02101,"563,00555-0899-02 ",.02)
 ;;00555-0899-02
 ;;9002226.02101,"563,00591-0414-01 ",.01)
 ;;00591-0414-01
 ;;9002226.02101,"563,00591-0414-01 ",.02)
 ;;00591-0414-01
 ;;9002226.02101,"563,00591-0415-01 ",.01)
 ;;00591-0415-01
 ;;9002226.02101,"563,00591-0415-01 ",.02)
 ;;00591-0415-01
 ;;9002226.02101,"563,00591-0416-01 ",.01)
 ;;00591-0416-01
 ;;9002226.02101,"563,00591-0416-01 ",.02)
 ;;00591-0416-01
 ;;9002226.02101,"563,00591-0487-01 ",.01)
 ;;00591-0487-01
 ;;9002226.02101,"563,00591-0487-01 ",.02)
 ;;00591-0487-01
 ;;9002226.02101,"563,00591-0487-05 ",.01)
 ;;00591-0487-05
 ;;9002226.02101,"563,00591-0487-05 ",.02)
 ;;00591-0487-05
 ;;9002226.02101,"563,00591-0488-01 ",.01)
 ;;00591-0488-01
 ;;9002226.02101,"563,00591-0488-01 ",.02)
 ;;00591-0488-01
 ;;9002226.02101,"563,00591-0488-05 ",.01)
 ;;00591-0488-05
 ;;9002226.02101,"563,00591-0488-05 ",.02)
 ;;00591-0488-05
 ;;9002226.02101,"563,00591-0528-01 ",.01)
 ;;00591-0528-01
 ;;9002226.02101,"563,00591-0528-01 ",.02)
 ;;00591-0528-01
 ;;9002226.02101,"563,00603-3556-21 ",.01)
 ;;00603-3556-21
 ;;9002226.02101,"563,00603-3556-21 ",.02)
 ;;00603-3556-21
 ;;9002226.02101,"563,00603-3557-21 ",.01)
 ;;00603-3557-21
 ;;9002226.02101,"563,00603-3557-21 ",.02)
 ;;00603-3557-21
 ;;9002226.02101,"563,00603-3558-21 ",.01)
 ;;00603-3558-21
 ;;9002226.02101,"563,00603-3558-21 ",.02)
 ;;00603-3558-21
 ;;9002226.02101,"563,00603-3559-21 ",.01)
 ;;00603-3559-21
 ;;9002226.02101,"563,00603-3559-21 ",.02)
 ;;00603-3559-21
 ;;9002226.02101,"563,00603-3560-21 ",.01)
 ;;00603-3560-21
 ;;9002226.02101,"563,00603-3560-21 ",.02)
 ;;00603-3560-21
 ;;9002226.02101,"563,00603-3561-21 ",.01)
 ;;00603-3561-21
 ;;9002226.02101,"563,00603-3561-21 ",.02)
 ;;00603-3561-21
 ;;9002226.02101,"563,00677-1508-01 ",.01)
 ;;00677-1508-01
 ;;9002226.02101,"563,00677-1508-01 ",.02)
 ;;00677-1508-01
 ;;9002226.02101,"563,00677-1509-01 ",.01)
 ;;00677-1509-01
 ;;9002226.02101,"563,00677-1509-01 ",.02)
 ;;00677-1509-01
 ;;9002226.02101,"563,00781-1543-01 ",.01)
 ;;00781-1543-01
 ;;9002226.02101,"563,00781-1543-01 ",.02)
 ;;00781-1543-01
 ;;9002226.02101,"563,00781-1553-01 ",.01)
 ;;00781-1553-01
 ;;9002226.02101,"563,00781-1553-01 ",.02)
 ;;00781-1553-01
 ;;9002226.02101,"563,00781-1563-01 ",.01)
 ;;00781-1563-01
 ;;9002226.02101,"563,00781-1563-01 ",.02)
 ;;00781-1563-01
 ;;9002226.02101,"563,00781-1897-01 ",.01)
 ;;00781-1897-01
 ;;9002226.02101,"563,00781-1897-01 ",.02)
 ;;00781-1897-01
 ;;9002226.02101,"563,00781-1898-01 ",.01)
 ;;00781-1898-01
 ;;9002226.02101,"563,00781-1898-01 ",.02)
 ;;00781-1898-01
 ;;9002226.02101,"563,00781-1899-01 ",.01)
 ;;00781-1899-01
 ;;9002226.02101,"563,00781-1899-01 ",.02)
 ;;00781-1899-01
 ;;9002226.02101,"563,00839-8076-06 ",.01)
 ;;00839-8076-06
 ;;9002226.02101,"563,00839-8076-06 ",.02)
 ;;00839-8076-06
 ;;9002226.02101,"563,00839-8077-06 ",.01)
 ;;00839-8077-06
 ;;9002226.02101,"563,00839-8077-06 ",.02)
 ;;00839-8077-06
 ;;9002226.02101,"563,00839-8078-06 ",.01)
 ;;00839-8078-06
 ;;9002226.02101,"563,00839-8078-06 ",.02)
 ;;00839-8078-06
 ;;9002226.02101,"563,00904-5177-60 ",.01)
 ;;00904-5177-60
 ;;9002226.02101,"563,00904-5177-60 ",.02)
 ;;00904-5177-60
 ;;9002226.02101,"563,00904-5178-60 ",.01)
 ;;00904-5178-60
 ;;9002226.02101,"563,00904-5178-60 ",.02)
 ;;00904-5178-60
 ;;9002226.02101,"563,00904-5179-60 ",.01)
 ;;00904-5179-60
 ;;9002226.02101,"563,00904-5179-60 ",.02)
 ;;00904-5179-60
 ;;9002226.02101,"563,12280-0039-00 ",.01)
 ;;12280-0039-00
 ;;9002226.02101,"563,12280-0039-00 ",.02)
 ;;12280-0039-00
 ;;9002226.02101,"563,12280-0110-00 ",.01)
 ;;12280-0110-00
 ;;9002226.02101,"563,12280-0110-00 ",.02)
 ;;12280-0110-00
 ;;9002226.02101,"563,22222-2000-01 ",.01)
 ;;22222-2000-01
 ;;9002226.02101,"563,22222-2000-01 ",.02)
 ;;22222-2000-01
 ;;9002226.02101,"563,44514-0493-18 ",.01)
 ;;44514-0493-18
 ;;9002226.02101,"563,44514-0493-18 ",.02)
 ;;44514-0493-18
 ;;9002226.02101,"563,49999-0083-30 ",.01)
 ;;49999-0083-30
 ;;9002226.02101,"563,49999-0083-30 ",.02)
 ;;49999-0083-30
 ;;9002226.02101,"563,49999-0109-30 ",.01)
 ;;49999-0109-30
 ;;9002226.02101,"563,49999-0109-30 ",.02)
 ;;49999-0109-30
 ;;9002226.02101,"563,49999-0109-90 ",.01)
 ;;49999-0109-90
 ;;9002226.02101,"563,49999-0109-90 ",.02)
 ;;49999-0109-90
 ;;9002226.02101,"563,50419-0451-04 ",.01)
 ;;50419-0451-04
 ;;9002226.02101,"563,50419-0451-04 ",.02)
 ;;50419-0451-04
 ;;9002226.02101,"563,50419-0452-04 ",.01)
 ;;50419-0452-04
 ;;9002226.02101,"563,50419-0452-04 ",.02)
 ;;50419-0452-04
 ;;9002226.02101,"563,50419-0453-04 ",.01)
 ;;50419-0453-04
 ;;9002226.02101,"563,50419-0453-04 ",.02)
 ;;50419-0453-04
 ;;9002226.02101,"563,50419-0454-04 ",.01)
 ;;50419-0454-04
 ;;9002226.02101,"563,50419-0454-04 ",.02)
 ;;50419-0454-04
 ;;9002226.02101,"563,50419-0455-04 ",.01)
 ;;50419-0455-04
 ;;9002226.02101,"563,50419-0455-04 ",.02)
 ;;50419-0455-04
 ;;9002226.02101,"563,50419-0456-04 ",.01)
 ;;50419-0456-04
 ;;9002226.02101,"563,50419-0456-04 ",.02)
 ;;50419-0456-04
 ;;9002226.02101,"563,50419-0459-04 ",.01)
 ;;50419-0459-04
 ;;9002226.02101,"563,50419-0459-04 ",.02)
 ;;50419-0459-04
 ;;9002226.02101,"563,51285-0010-01 ",.01)
 ;;51285-0010-01
 ;;9002226.02101,"563,51285-0010-01 ",.02)
 ;;51285-0010-01
 ;;9002226.02101,"563,51285-0010-02 ",.01)
 ;;51285-0010-02
 ;;9002226.02101,"563,51285-0010-02 ",.02)
 ;;51285-0010-02
 ;;9002226.02101,"563,51285-0011-02 ",.01)
 ;;51285-0011-02
 ;;9002226.02101,"563,51285-0011-02 ",.02)
 ;;51285-0011-02
 ;;9002226.02101,"563,51285-0088-90 ",.01)
 ;;51285-0088-90
 ;;9002226.02101,"563,51285-0088-90 ",.02)
 ;;51285-0088-90
 ;;9002226.02101,"563,51285-0441-02 ",.01)
 ;;51285-0441-02
 ;;9002226.02101,"563,51285-0441-02 ",.02)
 ;;51285-0441-02
 ;;9002226.02101,"563,51285-0441-05 ",.01)
 ;;51285-0441-05
 ;;9002226.02101,"563,51285-0441-05 ",.02)
 ;;51285-0441-05
 ;;9002226.02101,"563,51285-0441-30 ",.01)
 ;;51285-0441-30
 ;;9002226.02101,"563,51285-0441-30 ",.02)
 ;;51285-0441-30
 ;;9002226.02101,"563,51285-0442-02 ",.01)
 ;;51285-0442-02
 ;;9002226.02101,"563,51285-0442-02 ",.02)
 ;;51285-0442-02
 ;;9002226.02101,"563,51285-0442-05 ",.01)
 ;;51285-0442-05
 ;;9002226.02101,"563,51285-0442-05 ",.02)
 ;;51285-0442-05
 ;;9002226.02101,"563,51285-0442-30 ",.01)
 ;;51285-0442-30
 ;;9002226.02101,"563,51285-0442-30 ",.02)
 ;;51285-0442-30
 ;;9002226.02101,"563,51285-0443-02 ",.01)
 ;;51285-0443-02
 ;;9002226.02101,"563,51285-0443-02 ",.02)
 ;;51285-0443-02
 ;;9002226.02101,"563,51285-0443-05 ",.01)
 ;;51285-0443-05
 ;;9002226.02101,"563,51285-0443-05 ",.02)
 ;;51285-0443-05
 ;;9002226.02101,"563,51285-0443-30 ",.01)
 ;;51285-0443-30
 ;;9002226.02101,"563,51285-0443-30 ",.02)
 ;;51285-0443-30
 ;;9002226.02101,"563,51285-0444-02 ",.01)
 ;;51285-0444-02
 ;;9002226.02101,"563,51285-0444-02 ",.02)
 ;;51285-0444-02
 ;;9002226.02101,"563,51285-0444-05 ",.01)
 ;;51285-0444-05
 ;;9002226.02101,"563,51285-0444-05 ",.02)
 ;;51285-0444-05
 ;;9002226.02101,"563,51285-0444-30 ",.01)
 ;;51285-0444-30
 ;;9002226.02101,"563,51285-0444-30 ",.02)
 ;;51285-0444-30
 ;;9002226.02101,"563,51285-0446-02 ",.01)
 ;;51285-0446-02
 ;;9002226.02101,"563,51285-0446-02 ",.02)
 ;;51285-0446-02
 ;;9002226.02101,"563,51285-0501-02 ",.01)
 ;;51285-0501-02
 ;;9002226.02101,"563,51285-0501-02 ",.02)
 ;;51285-0501-02
 ;;9002226.02101,"563,51285-0502-02 ",.01)
 ;;51285-0502-02
 ;;9002226.02101,"563,51285-0502-02 ",.02)
 ;;51285-0502-02
 ;;9002226.02101,"563,51285-0502-04 ",.01)
 ;;51285-0502-04
 ;;9002226.02101,"563,51285-0502-04 ",.02)
 ;;51285-0502-04