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

BGP8FXID.m

Go to the documentation of this file.
BGP8FXID ; 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,"632,00406-1721-91 ",.02)
 ;;00406-1721-91
 ;;9002226.02101,"632,00406-1772-01 ",.01)
 ;;00406-1772-01
 ;;9002226.02101,"632,00406-1772-01 ",.02)
 ;;00406-1772-01
 ;;9002226.02101,"632,00406-1772-03 ",.01)
 ;;00406-1772-03
 ;;9002226.02101,"632,00406-1772-03 ",.02)
 ;;00406-1772-03
 ;;9002226.02101,"632,00406-1772-05 ",.01)
 ;;00406-1772-05
 ;;9002226.02101,"632,00406-1772-05 ",.02)
 ;;00406-1772-05
 ;;9002226.02101,"632,00406-1772-10 ",.01)
 ;;00406-1772-10
 ;;9002226.02101,"632,00406-1772-10 ",.02)
 ;;00406-1772-10
 ;;9002226.02101,"632,00406-1772-12 ",.01)
 ;;00406-1772-12
 ;;9002226.02101,"632,00406-1772-12 ",.02)
 ;;00406-1772-12
 ;;9002226.02101,"632,00406-1772-33 ",.01)
 ;;00406-1772-33
 ;;9002226.02101,"632,00406-1772-33 ",.02)
 ;;00406-1772-33
 ;;9002226.02101,"632,00406-1772-60 ",.01)
 ;;00406-1772-60
 ;;9002226.02101,"632,00406-1772-60 ",.02)
 ;;00406-1772-60
 ;;9002226.02101,"632,00406-1772-62 ",.01)
 ;;00406-1772-62
 ;;9002226.02101,"632,00406-1772-62 ",.02)
 ;;00406-1772-62
 ;;9002226.02101,"632,00406-1772-90 ",.01)
 ;;00406-1772-90
 ;;9002226.02101,"632,00406-1772-90 ",.02)
 ;;00406-1772-90
 ;;9002226.02101,"632,00406-1772-91 ",.01)
 ;;00406-1772-91
 ;;9002226.02101,"632,00406-1772-91 ",.02)
 ;;00406-1772-91
 ;;9002226.02101,"632,00406-3118-01 ",.01)
 ;;00406-3118-01
 ;;9002226.02101,"632,00406-3118-01 ",.02)
 ;;00406-3118-01
 ;;9002226.02101,"632,00406-7113-01 ",.01)
 ;;00406-7113-01
 ;;9002226.02101,"632,00406-7113-01 ",.02)
 ;;00406-7113-01
 ;;9002226.02101,"632,00406-7115-01 ",.01)
 ;;00406-7115-01
 ;;9002226.02101,"632,00406-7115-01 ",.02)
 ;;00406-7115-01
 ;;9002226.02101,"632,00409-1176-30 ",.01)
 ;;00409-1176-30
 ;;9002226.02101,"632,00409-1176-30 ",.02)
 ;;00409-1176-30
 ;;9002226.02101,"632,00409-1178-30 ",.01)
 ;;00409-1178-30
 ;;9002226.02101,"632,00409-1178-30 ",.02)
 ;;00409-1178-30
 ;;9002226.02101,"632,00409-1179-30 ",.01)
 ;;00409-1179-30
 ;;9002226.02101,"632,00409-1179-30 ",.02)
 ;;00409-1179-30
 ;;9002226.02101,"632,00409-1180-69 ",.01)
 ;;00409-1180-69
 ;;9002226.02101,"632,00409-1180-69 ",.02)
 ;;00409-1180-69
 ;;9002226.02101,"632,00409-1181-30 ",.01)
 ;;00409-1181-30
 ;;9002226.02101,"632,00409-1181-30 ",.02)
 ;;00409-1181-30
 ;;9002226.02101,"632,00409-1201-20 ",.01)
 ;;00409-1201-20
 ;;9002226.02101,"632,00409-1201-20 ",.02)
 ;;00409-1201-20
 ;;9002226.02101,"632,00409-1203-01 ",.01)
 ;;00409-1203-01
 ;;9002226.02101,"632,00409-1203-01 ",.02)
 ;;00409-1203-01
 ;;9002226.02101,"632,00409-1253-01 ",.01)
 ;;00409-1253-01
 ;;9002226.02101,"632,00409-1253-01 ",.02)
 ;;00409-1253-01
 ;;9002226.02101,"632,00409-1254-01 ",.01)
 ;;00409-1254-01
 ;;9002226.02101,"632,00409-1254-01 ",.02)
 ;;00409-1254-01
 ;;9002226.02101,"632,00409-1255-02 ",.01)
 ;;00409-1255-02
 ;;9002226.02101,"632,00409-1255-02 ",.02)
 ;;00409-1255-02
 ;;9002226.02101,"632,00409-1256-01 ",.01)
 ;;00409-1256-01
 ;;9002226.02101,"632,00409-1256-01 ",.02)
 ;;00409-1256-01
 ;;9002226.02101,"632,00409-1920-10 ",.01)
 ;;00409-1920-10
 ;;9002226.02101,"632,00409-1920-10 ",.02)
 ;;00409-1920-10
 ;;9002226.02101,"632,00409-1941-01 ",.01)
 ;;00409-1941-01
 ;;9002226.02101,"632,00409-1941-01 ",.02)
 ;;00409-1941-01
 ;;9002226.02101,"632,00555-0381-02 ",.01)
 ;;00555-0381-02
 ;;9002226.02101,"632,00555-0381-02 ",.02)
 ;;00555-0381-02
 ;;9002226.02101,"632,00555-0382-02 ",.01)
 ;;00555-0382-02
 ;;9002226.02101,"632,00555-0382-02 ",.02)
 ;;00555-0382-02
 ;;9002226.02101,"632,00591-0395-01 ",.01)
 ;;00591-0395-01
 ;;9002226.02101,"632,00591-0395-01 ",.02)
 ;;00591-0395-01
 ;;9002226.02101,"632,00591-0396-01 ",.01)
 ;;00591-0396-01
 ;;9002226.02101,"632,00591-0396-01 ",.02)
 ;;00591-0396-01
 ;;9002226.02101,"632,00591-0714-01 ",.01)
 ;;00591-0714-01
 ;;9002226.02101,"632,00591-0714-01 ",.02)
 ;;00591-0714-01
 ;;9002226.02101,"632,00591-0714-05 ",.01)
 ;;00591-0714-05
 ;;9002226.02101,"632,00591-0714-05 ",.02)
 ;;00591-0714-05
 ;;9002226.02101,"632,00591-0726-01 ",.01)
 ;;00591-0726-01
 ;;9002226.02101,"632,00591-0726-01 ",.02)
 ;;00591-0726-01
 ;;9002226.02101,"632,00591-0727-01 ",.01)
 ;;00591-0727-01
 ;;9002226.02101,"632,00591-0727-01 ",.02)
 ;;00591-0727-01
 ;;9002226.02101,"632,00603-4415-21 ",.01)
 ;;00603-4415-21
 ;;9002226.02101,"632,00603-4415-21 ",.02)
 ;;00603-4415-21
 ;;9002226.02101,"632,00603-4416-21 ",.01)
 ;;00603-4416-21
 ;;9002226.02101,"632,00603-4416-21 ",.02)
 ;;00603-4416-21
 ;;9002226.02101,"632,00603-4424-21 ",.01)
 ;;00603-4424-21
 ;;9002226.02101,"632,00603-4424-21 ",.02)
 ;;00603-4424-21
 ;;9002226.02101,"632,00603-5459-21 ",.01)
 ;;00603-5459-21
 ;;9002226.02101,"632,00603-5459-21 ",.02)
 ;;00603-5459-21
 ;;9002226.02101,"632,00603-5459-28 ",.01)
 ;;00603-5459-28
 ;;9002226.02101,"632,00603-5459-28 ",.02)
 ;;00603-5459-28
 ;;9002226.02101,"632,00603-5460-21 ",.01)
 ;;00603-5460-21
 ;;9002226.02101,"632,00603-5460-21 ",.02)
 ;;00603-5460-21
 ;;9002226.02101,"632,00603-5460-28 ",.01)
 ;;00603-5460-28
 ;;9002226.02101,"632,00603-5460-28 ",.02)
 ;;00603-5460-28
 ;;9002226.02101,"632,00603-5462-21 ",.01)
 ;;00603-5462-21
 ;;9002226.02101,"632,00603-5462-21 ",.02)
 ;;00603-5462-21
 ;;9002226.02101,"632,00603-5462-28 ",.01)
 ;;00603-5462-28
 ;;9002226.02101,"632,00603-5462-28 ",.02)
 ;;00603-5462-28
 ;;9002226.02101,"632,00603-5463-28 ",.01)
 ;;00603-5463-28
 ;;9002226.02101,"632,00603-5463-28 ",.02)
 ;;00603-5463-28
 ;;9002226.02101,"632,00603-5465-21 ",.01)
 ;;00603-5465-21
 ;;9002226.02101,"632,00603-5465-21 ",.02)
 ;;00603-5465-21
 ;;9002226.02101,"632,00603-5466-21 ",.01)
 ;;00603-5466-21
 ;;9002226.02101,"632,00603-5466-21 ",.02)
 ;;00603-5466-21
 ;;9002226.02101,"632,00603-5466-28 ",.01)
 ;;00603-5466-28
 ;;9002226.02101,"632,00603-5466-28 ",.02)
 ;;00603-5466-28
 ;;9002226.02101,"632,00603-5466-32 ",.01)
 ;;00603-5466-32
 ;;9002226.02101,"632,00603-5466-32 ",.02)
 ;;00603-5466-32
 ;;9002226.02101,"632,00603-5467-21 ",.01)
 ;;00603-5467-21
 ;;9002226.02101,"632,00603-5467-21 ",.02)
 ;;00603-5467-21
 ;;9002226.02101,"632,00603-5467-28 ",.01)
 ;;00603-5467-28
 ;;9002226.02101,"632,00603-5467-28 ",.02)
 ;;00603-5467-28
 ;;9002226.02101,"632,00603-5467-32 ",.01)
 ;;00603-5467-32
 ;;9002226.02101,"632,00603-5467-32 ",.02)
 ;;00603-5467-32
 ;;9002226.02101,"632,00603-5468-21 ",.01)
 ;;00603-5468-21
 ;;9002226.02101,"632,00603-5468-21 ",.02)
 ;;00603-5468-21
 ;;9002226.02101,"632,00603-5468-28 ",.01)
 ;;00603-5468-28
 ;;9002226.02101,"632,00603-5468-28 ",.02)
 ;;00603-5468-28
 ;;9002226.02101,"632,00603-5468-32 ",.01)
 ;;00603-5468-32
 ;;9002226.02101,"632,00603-5468-32 ",.02)
 ;;00603-5468-32
 ;;9002226.02101,"632,00615-0455-63 ",.01)
 ;;00615-0455-63
 ;;9002226.02101,"632,00615-0455-63 ",.02)
 ;;00615-0455-63
 ;;9002226.02101,"632,00641-0130-25 ",.01)
 ;;00641-0130-25
 ;;9002226.02101,"632,00641-0130-25 ",.02)
 ;;00641-0130-25
 ;;9002226.02101,"632,00641-0140-25 ",.01)
 ;;00641-0140-25
 ;;9002226.02101,"632,00641-0140-25 ",.02)
 ;;00641-0140-25
 ;;9002226.02101,"632,00641-0150-25 ",.01)
 ;;00641-0150-25
 ;;9002226.02101,"632,00641-0150-25 ",.02)
 ;;00641-0150-25
 ;;9002226.02101,"632,00641-0160-25 ",.01)
 ;;00641-0160-25
 ;;9002226.02101,"632,00641-0160-25 ",.02)
 ;;00641-0160-25
 ;;9002226.02101,"632,00641-1130-25 ",.01)
 ;;00641-1130-25
 ;;9002226.02101,"632,00641-1130-25 ",.02)
 ;;00641-1130-25
 ;;9002226.02101,"632,00641-1140-25 ",.01)
 ;;00641-1140-25
 ;;9002226.02101,"632,00641-1140-25 ",.02)
 ;;00641-1140-25
 ;;9002226.02101,"632,00677-0356-01 ",.01)
 ;;00677-0356-01
 ;;9002226.02101,"632,00677-0356-01 ",.02)
 ;;00677-0356-01
 ;;9002226.02101,"632,00677-0356-05 ",.01)
 ;;00677-0356-05
 ;;9002226.02101,"632,00677-0356-05 ",.02)
 ;;00677-0356-05
 ;;9002226.02101,"632,00781-1378-13 ",.01)
 ;;00781-1378-13
 ;;9002226.02101,"632,00781-1378-13 ",.02)
 ;;00781-1378-13
 ;;9002226.02101,"632,00781-2140-01 ",.01)
 ;;00781-2140-01
 ;;9002226.02101,"632,00781-2140-01 ",.02)
 ;;00781-2140-01
 ;;9002226.02101,"632,00781-2140-10 ",.01)
 ;;00781-2140-10
 ;;9002226.02101,"632,00781-2140-10 ",.02)
 ;;00781-2140-10
 ;;9002226.02101,"632,00781-2367-01 ",.01)
 ;;00781-2367-01
 ;;9002226.02101,"632,00781-2367-01 ",.02)
 ;;00781-2367-01
 ;;9002226.02101,"632,00781-2367-10 ",.01)
 ;;00781-2367-10
 ;;9002226.02101,"632,00781-2367-10 ",.02)
 ;;00781-2367-10
 ;;9002226.02101,"632,00839-1561-06 ",.01)
 ;;00839-1561-06
 ;;9002226.02101,"632,00839-1561-06 ",.02)
 ;;00839-1561-06
 ;;9002226.02101,"632,00839-1566-12 ",.01)
 ;;00839-1566-12
 ;;9002226.02101,"632,00839-1566-12 ",.02)
 ;;00839-1566-12
 ;;9002226.02101,"632,00839-5098-06 ",.01)
 ;;00839-5098-06
 ;;9002226.02101,"632,00839-5098-06 ",.02)
 ;;00839-5098-06
 ;;9002226.02101,"632,00839-5098-12 ",.01)
 ;;00839-5098-12
 ;;9002226.02101,"632,00839-5098-12 ",.02)
 ;;00839-5098-12
 ;;9002226.02101,"632,00839-5098-16 ",.01)
 ;;00839-5098-16
 ;;9002226.02101,"632,00839-5098-16 ",.02)
 ;;00839-5098-16
 ;;9002226.02101,"632,00839-7123-12 ",.01)
 ;;00839-7123-12
 ;;9002226.02101,"632,00839-7123-12 ",.02)
 ;;00839-7123-12
 ;;9002226.02101,"632,00839-7330-06 ",.01)
 ;;00839-7330-06
 ;;9002226.02101,"632,00839-7330-06 ",.02)
 ;;00839-7330-06
 ;;9002226.02101,"632,00839-7330-12 ",.01)
 ;;00839-7330-12
 ;;9002226.02101,"632,00839-7330-12 ",.02)
 ;;00839-7330-12
 ;;9002226.02101,"632,00904-1977-60 ",.01)
 ;;00904-1977-60
 ;;9002226.02101,"632,00904-1977-60 ",.02)
 ;;00904-1977-60
 ;;9002226.02101,"632,00904-1978-60 ",.01)
 ;;00904-1978-60
 ;;9002226.02101,"632,00904-1978-60 ",.02)
 ;;00904-1978-60
 ;;9002226.02101,"632,00904-2171-40 ",.01)
 ;;00904-2171-40
 ;;9002226.02101,"632,00904-2171-40 ",.02)
 ;;00904-2171-40
 ;;9002226.02101,"632,00904-2171-60 ",.01)
 ;;00904-2171-60
 ;;9002226.02101,"632,00904-2171-60 ",.02)
 ;;00904-2171-60
 ;;9002226.02101,"632,00904-2171-61 ",.01)
 ;;00904-2171-61
 ;;9002226.02101,"632,00904-2171-61 ",.02)
 ;;00904-2171-61
 ;;9002226.02101,"632,00904-2280-60 ",.01)
 ;;00904-2280-60
 ;;9002226.02101,"632,00904-2280-60 ",.02)
 ;;00904-2280-60
 ;;9002226.02101,"632,00904-2281-40 ",.01)
 ;;00904-2281-40
 ;;9002226.02101,"632,00904-2281-40 ",.02)
 ;;00904-2281-40
 ;;9002226.02101,"632,00904-2281-60 ",.01)
 ;;00904-2281-60
 ;;9002226.02101,"632,00904-2281-60 ",.02)
 ;;00904-2281-60
 ;;9002226.02101,"632,00904-7700-40 ",.01)
 ;;00904-7700-40
 ;;9002226.02101,"632,00904-7700-40 ",.02)
 ;;00904-7700-40
 ;;9002226.02101,"632,00904-7700-60 ",.01)
 ;;00904-7700-60
 ;;9002226.02101,"632,00904-7700-60 ",.02)
 ;;00904-7700-60
 ;;9002226.02101,"632,00904-7700-61 ",.01)
 ;;00904-7700-61
 ;;9002226.02101,"632,00904-7700-61 ",.02)
 ;;00904-7700-61
 ;;9002226.02101,"632,00904-7700-80 ",.01)
 ;;00904-7700-80
 ;;9002226.02101,"632,00904-7700-80 ",.02)
 ;;00904-7700-80
 ;;9002226.02101,"632,00904-7701-40 ",.01)
 ;;00904-7701-40
 ;;9002226.02101,"632,00904-7701-40 ",.02)
 ;;00904-7701-40
 ;;9002226.02101,"632,00904-7701-60 ",.01)
 ;;00904-7701-60
 ;;9002226.02101,"632,00904-7701-60 ",.02)
 ;;00904-7701-60
 ;;9002226.02101,"632,00904-7701-80 ",.01)
 ;;00904-7701-80
 ;;9002226.02101,"632,00904-7701-80 ",.02)
 ;;00904-7701-80
 ;;9002226.02101,"632,00904-7702-40 ",.01)
 ;;00904-7702-40
 ;;9002226.02101,"632,00904-7702-40 ",.02)
 ;;00904-7702-40
 ;;9002226.02101,"632,00904-7702-80 ",.01)
 ;;00904-7702-80
 ;;9002226.02101,"632,00904-7702-80 ",.02)
 ;;00904-7702-80
 ;;9002226.02101,"632,00904-7703-40 ",.01)
 ;;00904-7703-40
 ;;9002226.02101,"632,00904-7703-40 ",.02)
 ;;00904-7703-40
 ;;9002226.02101,"632,10019-0151-44 ",.01)
 ;;10019-0151-44
 ;;9002226.02101,"632,10019-0151-44 ",.02)
 ;;10019-0151-44
 ;;9002226.02101,"632,10019-0151-47 ",.01)
 ;;10019-0151-47
 ;;9002226.02101,"632,10019-0151-47 ",.02)
 ;;10019-0151-47
 ;;9002226.02101,"632,10019-0152-44 ",.01)
 ;;10019-0152-44
 ;;9002226.02101,"632,10019-0152-44 ",.02)
 ;;10019-0152-44
 ;;9002226.02101,"632,10019-0154-44 ",.01)
 ;;10019-0154-44
 ;;9002226.02101,"632,10019-0154-44 ",.02)
 ;;10019-0154-44
 ;;9002226.02101,"632,10019-0155-68 ",.01)
 ;;10019-0155-68
 ;;9002226.02101,"632,10019-0155-68 ",.02)
 ;;10019-0155-68
 ;;9002226.02101,"632,10019-0156-68 ",.01)
 ;;10019-0156-68
 ;;9002226.02101,"632,10019-0156-68 ",.02)
 ;;10019-0156-68
 ;;9002226.02101,"632,10019-0157-68 ",.01)
 ;;10019-0157-68
 ;;9002226.02101,"632,10019-0157-68 ",.02)
 ;;10019-0157-68
 ;;9002226.02101,"632,10019-0158-68 ",.01)
 ;;10019-0158-68
 ;;9002226.02101,"632,10019-0158-68 ",.02)
 ;;10019-0158-68
 ;;9002226.02101,"632,10019-0159-01 ",.01)
 ;;10019-0159-01
 ;;9002226.02101,"632,10019-0159-01 ",.02)
 ;;10019-0159-01
 ;;9002226.02101,"632,10019-0160-01 ",.01)
 ;;10019-0160-01
 ;;9002226.02101,"632,10019-0160-01 ",.02)
 ;;10019-0160-01
 ;;9002226.02101,"632,10019-0161-01 ",.01)
 ;;10019-0161-01
 ;;9002226.02101,"632,10019-0161-01 ",.02)
 ;;10019-0161-01
 ;;9002226.02101,"632,10019-0162-01 ",.01)
 ;;10019-0162-01
 ;;9002226.02101,"632,10019-0162-01 ",.02)
 ;;10019-0162-01
 ;;9002226.02101,"632,10122-0301-10 ",.01)
 ;;10122-0301-10
 ;;9002226.02101,"632,10122-0301-10 ",.02)
 ;;10122-0301-10
 ;;9002226.02101,"632,12280-0160-00 ",.01)
 ;;12280-0160-00
 ;;9002226.02101,"632,12280-0160-00 ",.02)
 ;;12280-0160-00
 ;;9002226.02101,"632,49884-0120-01 ",.01)
 ;;49884-0120-01
 ;;9002226.02101,"632,49884-0120-01 ",.02)
 ;;49884-0120-01
 ;;9002226.02101,"632,49884-0120-10 ",.01)
 ;;49884-0120-10
 ;;9002226.02101,"632,49884-0120-10 ",.02)
 ;;49884-0120-10
 ;;9002226.02101,"632,50111-0790-01 ",.01)
 ;;50111-0790-01
 ;;9002226.02101,"632,50111-0790-01 ",.02)
 ;;50111-0790-01