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

BGP8FXEB.m

Go to the documentation of this file.
BGP8FXEB ; 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,"623,00074-3778-05 ",.02)
 ;;00074-3778-05
 ;;9002226.02101,"623,00074-6899-04 ",.01)
 ;;00074-6899-04
 ;;9002226.02101,"623,00074-6899-04 ",.02)
 ;;00074-6899-04
 ;;9002226.02101,"623,00115-4211-03 ",.01)
 ;;00115-4211-03
 ;;9002226.02101,"623,00115-4211-03 ",.02)
 ;;00115-4211-03
 ;;9002226.02101,"623,00115-4212-01 ",.01)
 ;;00115-4212-01
 ;;9002226.02101,"623,00115-4212-01 ",.02)
 ;;00115-4212-01
 ;;9002226.02101,"623,00115-4212-03 ",.01)
 ;;00115-4212-03
 ;;9002226.02101,"623,00115-4212-03 ",.02)
 ;;00115-4212-03
 ;;9002226.02101,"623,00115-4214-01 ",.01)
 ;;00115-4214-01
 ;;9002226.02101,"623,00115-4214-01 ",.02)
 ;;00115-4214-01
 ;;9002226.02101,"623,00115-4214-03 ",.01)
 ;;00115-4214-03
 ;;9002226.02101,"623,00115-4214-03 ",.02)
 ;;00115-4214-03
 ;;9002226.02101,"623,00115-4229-01 ",.01)
 ;;00115-4229-01
 ;;9002226.02101,"623,00115-4229-01 ",.02)
 ;;00115-4229-01
 ;;9002226.02101,"623,00115-4229-03 ",.01)
 ;;00115-4229-03
 ;;9002226.02101,"623,00115-4229-03 ",.02)
 ;;00115-4229-03
 ;;9002226.02101,"623,00115-4231-01 ",.01)
 ;;00115-4231-01
 ;;9002226.02101,"623,00115-4231-01 ",.02)
 ;;00115-4231-01
 ;;9002226.02101,"623,00115-4231-03 ",.01)
 ;;00115-4231-03
 ;;9002226.02101,"623,00115-4231-03 ",.02)
 ;;00115-4231-03
 ;;9002226.02101,"623,00115-4233-03 ",.01)
 ;;00115-4233-03
 ;;9002226.02101,"623,00115-4233-03 ",.02)
 ;;00115-4233-03
 ;;9002226.02101,"623,00121-0518-05 ",.01)
 ;;00121-0518-05
 ;;9002226.02101,"623,00121-0518-05 ",.02)
 ;;00121-0518-05
 ;;9002226.02101,"623,00121-0518-10 ",.01)
 ;;00121-0518-10
 ;;9002226.02101,"623,00121-0518-10 ",.02)
 ;;00121-0518-10
 ;;9002226.02101,"623,00121-0518-20 ",.01)
 ;;00121-0518-20
 ;;9002226.02101,"623,00121-0518-20 ",.02)
 ;;00121-0518-20
 ;;9002226.02101,"623,00121-0531-03 ",.01)
 ;;00121-0531-03
 ;;9002226.02101,"623,00121-0531-03 ",.02)
 ;;00121-0531-03
 ;;9002226.02101,"623,00121-0531-05 ",.01)
 ;;00121-0531-05
 ;;9002226.02101,"623,00121-0531-05 ",.02)
 ;;00121-0531-05
 ;;9002226.02101,"623,00121-0531-07 ",.01)
 ;;00121-0531-07
 ;;9002226.02101,"623,00121-0531-07 ",.02)
 ;;00121-0531-07
 ;;9002226.02101,"623,00121-0531-15 ",.01)
 ;;00121-0531-15
 ;;9002226.02101,"623,00121-0531-15 ",.02)
 ;;00121-0531-15
 ;;9002226.02101,"623,00121-0531-16 ",.01)
 ;;00121-0531-16
 ;;9002226.02101,"623,00121-0531-16 ",.02)
 ;;00121-0531-16
 ;;9002226.02101,"623,00143-1445-10 ",.01)
 ;;00143-1445-10
 ;;9002226.02101,"623,00143-1445-10 ",.02)
 ;;00143-1445-10
 ;;9002226.02101,"623,00143-1450-10 ",.01)
 ;;00143-1450-10
 ;;9002226.02101,"623,00143-1450-10 ",.02)
 ;;00143-1450-10
 ;;9002226.02101,"623,00143-1455-10 ",.01)
 ;;00143-1455-10
 ;;9002226.02101,"623,00143-1455-10 ",.02)
 ;;00143-1455-10
 ;;9002226.02101,"623,00143-1458-01 ",.01)
 ;;00143-1458-01
 ;;9002226.02101,"623,00143-1458-01 ",.02)
 ;;00143-1458-01
 ;;9002226.02101,"623,00143-1458-10 ",.01)
 ;;00143-1458-10
 ;;9002226.02101,"623,00143-1458-10 ",.02)
 ;;00143-1458-10
 ;;9002226.02101,"623,00182-0292-10 ",.01)
 ;;00182-0292-10
 ;;9002226.02101,"623,00182-0292-10 ",.02)
 ;;00182-0292-10
 ;;9002226.02101,"623,00182-0314-40 ",.01)
 ;;00182-0314-40
 ;;9002226.02101,"623,00182-0314-40 ",.02)
 ;;00182-0314-40
 ;;9002226.02101,"623,00182-0314-41 ",.01)
 ;;00182-0314-41
 ;;9002226.02101,"623,00182-0314-41 ",.02)
 ;;00182-0314-41
 ;;9002226.02101,"623,00182-0590-10 ",.01)
 ;;00182-0590-10
 ;;9002226.02101,"623,00182-0590-10 ",.02)
 ;;00182-0590-10
 ;;9002226.02101,"623,00185-0015-10 ",.01)
 ;;00185-0015-10
 ;;9002226.02101,"623,00185-0015-10 ",.02)
 ;;00185-0015-10
 ;;9002226.02101,"623,00185-0030-10 ",.01)
 ;;00185-0030-10
 ;;9002226.02101,"623,00185-0030-10 ",.02)
 ;;00185-0030-10
 ;;9002226.02101,"623,00223-1430-01 ",.01)
 ;;00223-1430-01
 ;;9002226.02101,"623,00223-1430-01 ",.02)
 ;;00223-1430-01
 ;;9002226.02101,"623,00223-1430-02 ",.01)
 ;;00223-1430-02
 ;;9002226.02101,"623,00223-1430-02 ",.02)
 ;;00223-1430-02
 ;;9002226.02101,"623,00223-1431-01 ",.01)
 ;;00223-1431-01
 ;;9002226.02101,"623,00223-1431-01 ",.02)
 ;;00223-1431-01
 ;;9002226.02101,"623,00223-1431-02 ",.01)
 ;;00223-1431-02
 ;;9002226.02101,"623,00223-1431-02 ",.02)
 ;;00223-1431-02
 ;;9002226.02101,"623,00223-1432-01 ",.01)
 ;;00223-1432-01
 ;;9002226.02101,"623,00223-1432-01 ",.02)
 ;;00223-1432-01
 ;;9002226.02101,"623,00223-1432-02 ",.01)
 ;;00223-1432-02
 ;;9002226.02101,"623,00223-1432-02 ",.02)
 ;;00223-1432-02
 ;;9002226.02101,"623,00223-1433-01 ",.01)
 ;;00223-1433-01
 ;;9002226.02101,"623,00223-1433-01 ",.02)
 ;;00223-1433-01
 ;;9002226.02101,"623,00223-1433-02 ",.01)
 ;;00223-1433-02
 ;;9002226.02101,"623,00223-1433-02 ",.02)
 ;;00223-1433-02
 ;;9002226.02101,"623,00228-2026-96 ",.01)
 ;;00228-2026-96
 ;;9002226.02101,"623,00228-2026-96 ",.02)
 ;;00228-2026-96
 ;;9002226.02101,"623,00228-2028-96 ",.01)
 ;;00228-2028-96
 ;;9002226.02101,"623,00228-2028-96 ",.02)
 ;;00228-2028-96
 ;;9002226.02101,"623,00254-5011-38 ",.01)
 ;;00254-5011-38
 ;;9002226.02101,"623,00254-5011-38 ",.02)
 ;;00254-5011-38
 ;;9002226.02101,"623,00254-5012-28 ",.01)
 ;;00254-5012-28
 ;;9002226.02101,"623,00254-5012-28 ",.02)
 ;;00254-5012-28
 ;;9002226.02101,"623,00254-5012-38 ",.01)
 ;;00254-5012-38
 ;;9002226.02101,"623,00254-5012-38 ",.02)
 ;;00254-5012-38
 ;;9002226.02101,"623,00254-5013-28 ",.01)
 ;;00254-5013-28
 ;;9002226.02101,"623,00254-5013-28 ",.02)
 ;;00254-5013-28
 ;;9002226.02101,"623,00254-5013-38 ",.01)
 ;;00254-5013-38
 ;;9002226.02101,"623,00254-5013-38 ",.02)
 ;;00254-5013-38
 ;;9002226.02101,"623,00254-5014-28 ",.01)
 ;;00254-5014-28
 ;;9002226.02101,"623,00254-5014-28 ",.02)
 ;;00254-5014-28
 ;;9002226.02101,"623,00254-9355-58 ",.01)
 ;;00254-9355-58
 ;;9002226.02101,"623,00254-9355-58 ",.02)
 ;;00254-9355-58
 ;;9002226.02101,"623,00405-0148-03 ",.01)
 ;;00405-0148-03
 ;;9002226.02101,"623,00405-0148-03 ",.02)
 ;;00405-0148-03
 ;;9002226.02101,"623,00405-0149-03 ",.01)
 ;;00405-0149-03
 ;;9002226.02101,"623,00405-0149-03 ",.02)
 ;;00405-0149-03
 ;;9002226.02101,"623,00405-0155-16 ",.01)
 ;;00405-0155-16
 ;;9002226.02101,"623,00405-0155-16 ",.02)
 ;;00405-0155-16
 ;;9002226.02101,"623,00409-2343-31 ",.01)
 ;;00409-2343-31
 ;;9002226.02101,"623,00409-2343-31 ",.02)
 ;;00409-2343-31
 ;;9002226.02101,"623,00409-2349-31 ",.01)
 ;;00409-2349-31
 ;;9002226.02101,"623,00409-2349-31 ",.02)
 ;;00409-2349-31
 ;;9002226.02101,"623,00436-0585-16 ",.01)
 ;;00436-0585-16
 ;;9002226.02101,"623,00436-0585-16 ",.02)
 ;;00436-0585-16
 ;;9002226.02101,"623,00436-0585-28 ",.01)
 ;;00436-0585-28
 ;;9002226.02101,"623,00436-0585-28 ",.02)
 ;;00436-0585-28
 ;;9002226.02101,"623,00436-0585-32 ",.01)
 ;;00436-0585-32
 ;;9002226.02101,"623,00436-0585-32 ",.02)
 ;;00436-0585-32
 ;;9002226.02101,"623,00463-6145-10 ",.01)
 ;;00463-6145-10
 ;;9002226.02101,"623,00463-6145-10 ",.02)
 ;;00463-6145-10
 ;;9002226.02101,"623,00463-6151-10 ",.01)
 ;;00463-6151-10
 ;;9002226.02101,"623,00463-6151-10 ",.02)
 ;;00463-6151-10
 ;;9002226.02101,"623,00463-6152-10 ",.01)
 ;;00463-6152-10
 ;;9002226.02101,"623,00463-6152-10 ",.02)
 ;;00463-6152-10
 ;;9002226.02101,"623,00463-6160-10 ",.01)
 ;;00463-6160-10
 ;;9002226.02101,"623,00463-6160-10 ",.02)
 ;;00463-6160-10
 ;;9002226.02101,"623,00463-9018-28 ",.01)
 ;;00463-9018-28
 ;;9002226.02101,"623,00463-9018-28 ",.02)
 ;;00463-9018-28
 ;;9002226.02101,"623,00472-1015-16 ",.01)
 ;;00472-1015-16
 ;;9002226.02101,"623,00472-1015-16 ",.02)
 ;;00472-1015-16
 ;;9002226.02101,"623,00472-1015-28 ",.01)
 ;;00472-1015-28
 ;;9002226.02101,"623,00472-1015-28 ",.02)
 ;;00472-1015-28
 ;;9002226.02101,"623,00536-4224-10 ",.01)
 ;;00536-4224-10
 ;;9002226.02101,"623,00536-4224-10 ",.02)
 ;;00536-4224-10
 ;;9002226.02101,"623,00556-0112-16 ",.01)
 ;;00556-0112-16
 ;;9002226.02101,"623,00556-0112-16 ",.02)
 ;;00556-0112-16
 ;;9002226.02101,"623,00556-0112-28 ",.01)
 ;;00556-0112-28
 ;;9002226.02101,"623,00556-0112-28 ",.02)
 ;;00556-0112-28
 ;;9002226.02101,"623,00603-1508-58 ",.01)
 ;;00603-1508-58
 ;;9002226.02101,"623,00603-1508-58 ",.02)
 ;;00603-1508-58
 ;;9002226.02101,"623,00603-5165-21 ",.01)
 ;;00603-5165-21
 ;;9002226.02101,"623,00603-5165-21 ",.02)
 ;;00603-5165-21
 ;;9002226.02101,"623,00603-5165-32 ",.01)
 ;;00603-5165-32
 ;;9002226.02101,"623,00603-5165-32 ",.02)
 ;;00603-5165-32
 ;;9002226.02101,"623,00603-5166-02 ",.01)
 ;;00603-5166-02
 ;;9002226.02101,"623,00603-5166-02 ",.02)
 ;;00603-5166-02
 ;;9002226.02101,"623,00603-5166-16 ",.01)
 ;;00603-5166-16
 ;;9002226.02101,"623,00603-5166-16 ",.02)
 ;;00603-5166-16
 ;;9002226.02101,"623,00603-5166-20 ",.01)
 ;;00603-5166-20
 ;;9002226.02101,"623,00603-5166-20 ",.02)
 ;;00603-5166-20
 ;;9002226.02101,"623,00603-5166-21 ",.01)
 ;;00603-5166-21
 ;;9002226.02101,"623,00603-5166-21 ",.02)
 ;;00603-5166-21
 ;;9002226.02101,"623,00603-5166-22 ",.01)
 ;;00603-5166-22
 ;;9002226.02101,"623,00603-5166-22 ",.02)
 ;;00603-5166-22
 ;;9002226.02101,"623,00603-5166-32 ",.01)
 ;;00603-5166-32
 ;;9002226.02101,"623,00603-5166-32 ",.02)
 ;;00603-5166-32
 ;;9002226.02101,"623,00603-5167-21 ",.01)
 ;;00603-5167-21
 ;;9002226.02101,"623,00603-5167-21 ",.02)
 ;;00603-5167-21
 ;;9002226.02101,"623,00603-5167-32 ",.01)
 ;;00603-5167-32
 ;;9002226.02101,"623,00603-5167-32 ",.02)
 ;;00603-5167-32
 ;;9002226.02101,"623,00603-5168-21 ",.01)
 ;;00603-5168-21
 ;;9002226.02101,"623,00603-5168-21 ",.02)
 ;;00603-5168-21
 ;;9002226.02101,"623,00603-5168-32 ",.01)
 ;;00603-5168-32
 ;;9002226.02101,"623,00603-5168-32 ",.02)
 ;;00603-5168-32
 ;;9002226.02101,"623,00615-0418-47 ",.01)
 ;;00615-0418-47
 ;;9002226.02101,"623,00615-0418-47 ",.02)
 ;;00615-0418-47
 ;;9002226.02101,"623,00615-0423-47 ",.01)
 ;;00615-0423-47
 ;;9002226.02101,"623,00615-0423-47 ",.02)
 ;;00615-0423-47
 ;;9002226.02101,"623,00641-0476-25 ",.01)
 ;;00641-0476-25
 ;;9002226.02101,"623,00641-0476-25 ",.02)
 ;;00641-0476-25
 ;;9002226.02101,"623,00641-0477-25 ",.01)
 ;;00641-0477-25
 ;;9002226.02101,"623,00641-0477-25 ",.02)
 ;;00641-0477-25
 ;;9002226.02101,"623,00677-0236-10 ",.01)
 ;;00677-0236-10
 ;;9002226.02101,"623,00677-0236-10 ",.02)
 ;;00677-0236-10
 ;;9002226.02101,"623,00677-0237-10 ",.01)
 ;;00677-0237-10
 ;;9002226.02101,"623,00677-0237-10 ",.02)
 ;;00677-0237-10
 ;;9002226.02101,"623,00677-0238-10 ",.01)
 ;;00677-0238-10
 ;;9002226.02101,"623,00677-0238-10 ",.02)
 ;;00677-0238-10
 ;;9002226.02101,"623,00677-0762-10 ",.01)
 ;;00677-0762-10
 ;;9002226.02101,"623,00677-0762-10 ",.02)
 ;;00677-0762-10
 ;;9002226.02101,"623,00677-1666-10 ",.01)
 ;;00677-1666-10
 ;;9002226.02101,"623,00677-1666-10 ",.02)
 ;;00677-1666-10
 ;;9002226.02101,"623,00677-1667-10 ",.01)
 ;;00677-1667-10
 ;;9002226.02101,"623,00677-1667-10 ",.02)
 ;;00677-1667-10
 ;;9002226.02101,"623,00677-1668-10 ",.01)
 ;;00677-1668-10
 ;;9002226.02101,"623,00677-1668-10 ",.02)
 ;;00677-1668-10
 ;;9002226.02101,"623,00677-1669-10 ",.01)
 ;;00677-1669-10
 ;;9002226.02101,"623,00677-1669-10 ",.02)
 ;;00677-1669-10
 ;;9002226.02101,"623,00677-1698-10 ",.01)
 ;;00677-1698-10
 ;;9002226.02101,"623,00677-1698-10 ",.02)
 ;;00677-1698-10
 ;;9002226.02101,"623,00677-1699-10 ",.01)
 ;;00677-1699-10
 ;;9002226.02101,"623,00677-1699-10 ",.02)
 ;;00677-1699-10
 ;;9002226.02101,"623,00677-1731-10 ",.01)
 ;;00677-1731-10
 ;;9002226.02101,"623,00677-1731-10 ",.02)
 ;;00677-1731-10
 ;;9002226.02101,"623,00677-1732-10 ",.01)
 ;;00677-1732-10
 ;;9002226.02101,"623,00677-1732-10 ",.02)
 ;;00677-1732-10
 ;;9002226.02101,"623,00677-1938-10 ",.01)
 ;;00677-1938-10
 ;;9002226.02101,"623,00677-1938-10 ",.02)
 ;;00677-1938-10
 ;;9002226.02101,"623,00677-1939-10 ",.01)
 ;;00677-1939-10
 ;;9002226.02101,"623,00677-1939-10 ",.02)
 ;;00677-1939-10
 ;;9002226.02101,"623,00839-1478-16 ",.01)
 ;;00839-1478-16
 ;;9002226.02101,"623,00839-1478-16 ",.02)
 ;;00839-1478-16
 ;;9002226.02101,"623,00839-1484-16 ",.01)
 ;;00839-1484-16
 ;;9002226.02101,"623,00839-1484-16 ",.02)
 ;;00839-1484-16
 ;;9002226.02101,"623,00839-5154-16 ",.01)
 ;;00839-5154-16
 ;;9002226.02101,"623,00839-5154-16 ",.02)
 ;;00839-5154-16
 ;;9002226.02101,"623,00839-5398-69 ",.01)
 ;;00839-5398-69
 ;;9002226.02101,"623,00839-5398-69 ",.02)
 ;;00839-5398-69
 ;;9002226.02101,"623,00839-6257-16 ",.01)
 ;;00839-6257-16
 ;;9002226.02101,"623,00839-6257-16 ",.02)
 ;;00839-6257-16
 ;;9002226.02101,"623,00879-0049-16 ",.01)
 ;;00879-0049-16
 ;;9002226.02101,"623,00879-0049-16 ",.02)
 ;;00879-0049-16
 ;;9002226.02101,"623,00904-1015-16 ",.01)
 ;;00904-1015-16
 ;;9002226.02101,"623,00904-1015-16 ",.02)
 ;;00904-1015-16
 ;;9002226.02101,"623,00904-1015-28 ",.01)
 ;;00904-1015-28
 ;;9002226.02101,"623,00904-1015-28 ",.02)
 ;;00904-1015-28
 ;;9002226.02101,"623,00904-3815-61 ",.01)
 ;;00904-3815-61
 ;;9002226.02101,"623,00904-3815-61 ",.02)
 ;;00904-3815-61
 ;;9002226.02101,"623,00904-3815-80 ",.01)
 ;;00904-3815-80
 ;;9002226.02101,"623,00904-3815-80 ",.02)
 ;;00904-3815-80
 ;;9002226.02101,"623,00904-3816-80 ",.01)
 ;;00904-3816-80
 ;;9002226.02101,"623,00904-3816-80 ",.02)
 ;;00904-3816-80
 ;;9002226.02101,"623,00904-3827-80 ",.01)
 ;;00904-3827-80
 ;;9002226.02101,"623,00904-3827-80 ",.02)
 ;;00904-3827-80
 ;;9002226.02101,"623,51655-0848-24 ",.01)
 ;;51655-0848-24
 ;;9002226.02101,"623,51655-0848-24 ",.02)
 ;;51655-0848-24
 ;;9002226.02101,"623,51655-0848-26 ",.01)
 ;;51655-0848-26
 ;;9002226.02101,"623,51655-0848-26 ",.02)
 ;;51655-0848-26
 ;;9002226.02101,"623,51655-0848-82 ",.01)
 ;;51655-0848-82
 ;;9002226.02101,"623,51655-0848-82 ",.02)
 ;;51655-0848-82