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

BGP06B26.m

Go to the documentation of this file.
BGP06B26 ;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,"975,54868-2221-03 ",.01)
 ;;54868-2221-03
 ;;9002226.02101,"975,54868-2221-03 ",.02)
 ;;54868-2221-03
 ;;9002226.02101,"975,54868-2221-04 ",.01)
 ;;54868-2221-04
 ;;9002226.02101,"975,54868-2221-04 ",.02)
 ;;54868-2221-04
 ;;9002226.02101,"975,54868-2357-00 ",.01)
 ;;54868-2357-00
 ;;9002226.02101,"975,54868-2357-00 ",.02)
 ;;54868-2357-00
 ;;9002226.02101,"975,54868-2357-02 ",.01)
 ;;54868-2357-02
 ;;9002226.02101,"975,54868-2357-02 ",.02)
 ;;54868-2357-02
 ;;9002226.02101,"975,54868-2433-00 ",.01)
 ;;54868-2433-00
 ;;9002226.02101,"975,54868-2433-00 ",.02)
 ;;54868-2433-00
 ;;9002226.02101,"975,54868-2433-02 ",.01)
 ;;54868-2433-02
 ;;9002226.02101,"975,54868-2433-02 ",.02)
 ;;54868-2433-02
 ;;9002226.02101,"975,54868-2434-00 ",.01)
 ;;54868-2434-00
 ;;9002226.02101,"975,54868-2434-00 ",.02)
 ;;54868-2434-00
 ;;9002226.02101,"975,54868-2480-00 ",.01)
 ;;54868-2480-00
 ;;9002226.02101,"975,54868-2480-00 ",.02)
 ;;54868-2480-00
 ;;9002226.02101,"975,54868-2480-01 ",.01)
 ;;54868-2480-01
 ;;9002226.02101,"975,54868-2480-01 ",.02)
 ;;54868-2480-01
 ;;9002226.02101,"975,54868-2480-02 ",.01)
 ;;54868-2480-02
 ;;9002226.02101,"975,54868-2480-02 ",.02)
 ;;54868-2480-02
 ;;9002226.02101,"975,54868-2480-04 ",.01)
 ;;54868-2480-04
 ;;9002226.02101,"975,54868-2480-04 ",.02)
 ;;54868-2480-04
 ;;9002226.02101,"975,54868-2481-01 ",.01)
 ;;54868-2481-01
 ;;9002226.02101,"975,54868-2481-01 ",.02)
 ;;54868-2481-01
 ;;9002226.02101,"975,54868-2549-00 ",.01)
 ;;54868-2549-00
 ;;9002226.02101,"975,54868-2549-00 ",.02)
 ;;54868-2549-00
 ;;9002226.02101,"975,54868-2637-00 ",.01)
 ;;54868-2637-00
 ;;9002226.02101,"975,54868-2637-00 ",.02)
 ;;54868-2637-00
 ;;9002226.02101,"975,54868-2637-01 ",.01)
 ;;54868-2637-01
 ;;9002226.02101,"975,54868-2637-01 ",.02)
 ;;54868-2637-01
 ;;9002226.02101,"975,54868-2637-03 ",.01)
 ;;54868-2637-03
 ;;9002226.02101,"975,54868-2637-03 ",.02)
 ;;54868-2637-03
 ;;9002226.02101,"975,54868-2637-04 ",.01)
 ;;54868-2637-04
 ;;9002226.02101,"975,54868-2637-04 ",.02)
 ;;54868-2637-04
 ;;9002226.02101,"975,54868-2835-01 ",.01)
 ;;54868-2835-01
 ;;9002226.02101,"975,54868-2835-01 ",.02)
 ;;54868-2835-01
 ;;9002226.02101,"975,54868-2835-02 ",.01)
 ;;54868-2835-02
 ;;9002226.02101,"975,54868-2835-02 ",.02)
 ;;54868-2835-02
 ;;9002226.02101,"975,54868-2835-03 ",.01)
 ;;54868-2835-03
 ;;9002226.02101,"975,54868-2835-03 ",.02)
 ;;54868-2835-03
 ;;9002226.02101,"975,54868-2976-00 ",.01)
 ;;54868-2976-00
 ;;9002226.02101,"975,54868-2976-00 ",.02)
 ;;54868-2976-00
 ;;9002226.02101,"975,54868-2976-02 ",.01)
 ;;54868-2976-02
 ;;9002226.02101,"975,54868-2976-02 ",.02)
 ;;54868-2976-02
 ;;9002226.02101,"975,54868-3033-00 ",.01)
 ;;54868-3033-00
 ;;9002226.02101,"975,54868-3033-00 ",.02)
 ;;54868-3033-00
 ;;9002226.02101,"975,54868-3414-00 ",.01)
 ;;54868-3414-00
 ;;9002226.02101,"975,54868-3414-00 ",.02)
 ;;54868-3414-00
 ;;9002226.02101,"975,54868-3414-01 ",.01)
 ;;54868-3414-01
 ;;9002226.02101,"975,54868-3414-01 ",.02)
 ;;54868-3414-01
 ;;9002226.02101,"975,54868-3414-02 ",.01)
 ;;54868-3414-02
 ;;9002226.02101,"975,54868-3414-02 ",.02)
 ;;54868-3414-02
 ;;9002226.02101,"975,54868-3523-00 ",.01)
 ;;54868-3523-00
 ;;9002226.02101,"975,54868-3523-00 ",.02)
 ;;54868-3523-00
 ;;9002226.02101,"975,54868-3523-01 ",.01)
 ;;54868-3523-01
 ;;9002226.02101,"975,54868-3523-01 ",.02)
 ;;54868-3523-01
 ;;9002226.02101,"975,54868-3523-02 ",.01)
 ;;54868-3523-02
 ;;9002226.02101,"975,54868-3523-02 ",.02)
 ;;54868-3523-02
 ;;9002226.02101,"975,54868-3526-00 ",.01)
 ;;54868-3526-00
 ;;9002226.02101,"975,54868-3526-00 ",.02)
 ;;54868-3526-00
 ;;9002226.02101,"975,54868-3707-00 ",.01)
 ;;54868-3707-00
 ;;9002226.02101,"975,54868-3707-00 ",.02)
 ;;54868-3707-00
 ;;9002226.02101,"975,54868-3708-00 ",.01)
 ;;54868-3708-00
 ;;9002226.02101,"975,54868-3708-00 ",.02)
 ;;54868-3708-00
 ;;9002226.02101,"975,54868-3927-00 ",.01)
 ;;54868-3927-00
 ;;9002226.02101,"975,54868-3927-00 ",.02)
 ;;54868-3927-00
 ;;9002226.02101,"975,54868-3984-00 ",.01)
 ;;54868-3984-00
 ;;9002226.02101,"975,54868-3984-00 ",.02)
 ;;54868-3984-00
 ;;9002226.02101,"975,54868-4065-00 ",.01)
 ;;54868-4065-00
 ;;9002226.02101,"975,54868-4065-00 ",.02)
 ;;54868-4065-00
 ;;9002226.02101,"975,54868-4159-00 ",.01)
 ;;54868-4159-00
 ;;9002226.02101,"975,54868-4159-00 ",.02)
 ;;54868-4159-00
 ;;9002226.02101,"975,54868-4226-00 ",.01)
 ;;54868-4226-00
 ;;9002226.02101,"975,54868-4226-00 ",.02)
 ;;54868-4226-00
 ;;9002226.02101,"975,54868-4226-01 ",.01)
 ;;54868-4226-01
 ;;9002226.02101,"975,54868-4226-01 ",.02)
 ;;54868-4226-01
 ;;9002226.02101,"975,54868-4252-00 ",.01)
 ;;54868-4252-00
 ;;9002226.02101,"975,54868-4252-00 ",.02)
 ;;54868-4252-00
 ;;9002226.02101,"975,54868-4252-01 ",.01)
 ;;54868-4252-01
 ;;9002226.02101,"975,54868-4252-01 ",.02)
 ;;54868-4252-01
 ;;9002226.02101,"975,54868-4570-00 ",.01)
 ;;54868-4570-00
 ;;9002226.02101,"975,54868-4570-00 ",.02)
 ;;54868-4570-00
 ;;9002226.02101,"975,54868-4763-00 ",.01)
 ;;54868-4763-00
 ;;9002226.02101,"975,54868-4763-00 ",.02)
 ;;54868-4763-00
 ;;9002226.02101,"975,54868-4791-00 ",.01)
 ;;54868-4791-00
 ;;9002226.02101,"975,54868-4791-00 ",.02)
 ;;54868-4791-00
 ;;9002226.02101,"975,54868-4935-00 ",.01)
 ;;54868-4935-00
 ;;9002226.02101,"975,54868-4935-00 ",.02)
 ;;54868-4935-00
 ;;9002226.02101,"975,54868-4937-00 ",.01)
 ;;54868-4937-00
 ;;9002226.02101,"975,54868-4937-00 ",.02)
 ;;54868-4937-00
 ;;9002226.02101,"975,55045-1463-01 ",.01)
 ;;55045-1463-01
 ;;9002226.02101,"975,55045-1463-01 ",.02)
 ;;55045-1463-01
 ;;9002226.02101,"975,55045-1463-08 ",.01)
 ;;55045-1463-08
 ;;9002226.02101,"975,55045-1463-08 ",.02)
 ;;55045-1463-08
 ;;9002226.02101,"975,55045-1463-09 ",.01)
 ;;55045-1463-09
 ;;9002226.02101,"975,55045-1463-09 ",.02)
 ;;55045-1463-09
 ;;9002226.02101,"975,55045-1682-08 ",.01)
 ;;55045-1682-08
 ;;9002226.02101,"975,55045-1682-08 ",.02)
 ;;55045-1682-08
 ;;9002226.02101,"975,55045-1715-08 ",.01)
 ;;55045-1715-08
 ;;9002226.02101,"975,55045-1715-08 ",.02)
 ;;55045-1715-08
 ;;9002226.02101,"975,55045-1715-09 ",.01)
 ;;55045-1715-09
 ;;9002226.02101,"975,55045-1715-09 ",.02)
 ;;55045-1715-09
 ;;9002226.02101,"975,55045-1724-09 ",.01)
 ;;55045-1724-09
 ;;9002226.02101,"975,55045-1724-09 ",.02)
 ;;55045-1724-09
 ;;9002226.02101,"975,55045-1741-09 ",.01)
 ;;55045-1741-09
 ;;9002226.02101,"975,55045-1741-09 ",.02)
 ;;55045-1741-09
 ;;9002226.02101,"975,55045-1920-06 ",.01)
 ;;55045-1920-06
 ;;9002226.02101,"975,55045-1920-06 ",.02)
 ;;55045-1920-06
 ;;9002226.02101,"975,55045-1956-08 ",.01)
 ;;55045-1956-08
 ;;9002226.02101,"975,55045-1956-08 ",.02)
 ;;55045-1956-08
 ;;9002226.02101,"975,55045-1956-09 ",.01)
 ;;55045-1956-09
 ;;9002226.02101,"975,55045-1956-09 ",.02)
 ;;55045-1956-09
 ;;9002226.02101,"975,55045-1982-02 ",.01)
 ;;55045-1982-02
 ;;9002226.02101,"975,55045-1982-02 ",.02)
 ;;55045-1982-02
 ;;9002226.02101,"975,55045-1982-08 ",.01)
 ;;55045-1982-08
 ;;9002226.02101,"975,55045-1982-08 ",.02)
 ;;55045-1982-08
 ;;9002226.02101,"975,55045-1982-09 ",.01)
 ;;55045-1982-09
 ;;9002226.02101,"975,55045-1982-09 ",.02)
 ;;55045-1982-09
 ;;9002226.02101,"975,55045-2808-08 ",.01)
 ;;55045-2808-08
 ;;9002226.02101,"975,55045-2808-08 ",.02)
 ;;55045-2808-08
 ;;9002226.02101,"975,55045-3172-08 ",.01)
 ;;55045-3172-08
 ;;9002226.02101,"975,55045-3172-08 ",.02)
 ;;55045-3172-08
 ;;9002226.02101,"975,55045-3197-06 ",.01)
 ;;55045-3197-06
 ;;9002226.02101,"975,55045-3197-06 ",.02)
 ;;55045-3197-06
 ;;9002226.02101,"975,55045-3198-06 ",.01)
 ;;55045-3198-06
 ;;9002226.02101,"975,55045-3198-06 ",.02)
 ;;55045-3198-06
 ;;9002226.02101,"975,55111-0138-60 ",.01)
 ;;55111-0138-60
 ;;9002226.02101,"975,55111-0138-60 ",.02)
 ;;55111-0138-60
 ;;9002226.02101,"975,55111-0139-60 ",.01)
 ;;55111-0139-60
 ;;9002226.02101,"975,55111-0139-60 ",.02)
 ;;55111-0139-60
 ;;9002226.02101,"975,55111-0140-60 ",.01)
 ;;55111-0140-60
 ;;9002226.02101,"975,55111-0140-60 ",.02)
 ;;55111-0140-60
 ;;9002226.02101,"975,55111-0141-60 ",.01)
 ;;55111-0141-60
 ;;9002226.02101,"975,55111-0141-60 ",.02)
 ;;55111-0141-60
 ;;9002226.02101,"975,55111-0142-60 ",.01)
 ;;55111-0142-60
 ;;9002226.02101,"975,55111-0142-60 ",.02)
 ;;55111-0142-60
 ;;9002226.02101,"975,55111-0342-01 ",.01)
 ;;55111-0342-01
 ;;9002226.02101,"975,55111-0342-01 ",.02)
 ;;55111-0342-01
 ;;9002226.02101,"975,55111-0342-05 ",.01)
 ;;55111-0342-05
 ;;9002226.02101,"975,55111-0342-05 ",.02)
 ;;55111-0342-05
 ;;9002226.02101,"975,55111-0342-30 ",.01)
 ;;55111-0342-30
 ;;9002226.02101,"975,55111-0342-30 ",.02)
 ;;55111-0342-30
 ;;9002226.02101,"975,55111-0343-01 ",.01)
 ;;55111-0343-01
 ;;9002226.02101,"975,55111-0343-01 ",.02)
 ;;55111-0343-01
 ;;9002226.02101,"975,55111-0343-05 ",.01)
 ;;55111-0343-05
 ;;9002226.02101,"975,55111-0343-05 ",.02)
 ;;55111-0343-05
 ;;9002226.02101,"975,55111-0343-30 ",.01)
 ;;55111-0343-30
 ;;9002226.02101,"975,55111-0343-30 ",.02)
 ;;55111-0343-30
 ;;9002226.02101,"975,55111-0344-01 ",.01)
 ;;55111-0344-01
 ;;9002226.02101,"975,55111-0344-01 ",.02)
 ;;55111-0344-01
 ;;9002226.02101,"975,55111-0344-05 ",.01)
 ;;55111-0344-05
 ;;9002226.02101,"975,55111-0344-05 ",.02)
 ;;55111-0344-05
 ;;9002226.02101,"975,55111-0344-30 ",.01)
 ;;55111-0344-30
 ;;9002226.02101,"975,55111-0344-30 ",.02)
 ;;55111-0344-30
 ;;9002226.02101,"975,55289-0016-30 ",.01)
 ;;55289-0016-30
 ;;9002226.02101,"975,55289-0016-30 ",.02)
 ;;55289-0016-30
 ;;9002226.02101,"975,55289-0016-60 ",.01)
 ;;55289-0016-60
 ;;9002226.02101,"975,55289-0016-60 ",.02)
 ;;55289-0016-60
 ;;9002226.02101,"975,55289-0018-30 ",.01)
 ;;55289-0018-30
 ;;9002226.02101,"975,55289-0018-30 ",.02)
 ;;55289-0018-30
 ;;9002226.02101,"975,55289-0060-14 ",.01)
 ;;55289-0060-14
 ;;9002226.02101,"975,55289-0060-14 ",.02)
 ;;55289-0060-14
 ;;9002226.02101,"975,55289-0064-07 ",.01)
 ;;55289-0064-07
 ;;9002226.02101,"975,55289-0064-07 ",.02)
 ;;55289-0064-07
 ;;9002226.02101,"975,55289-0064-14 ",.01)
 ;;55289-0064-14
 ;;9002226.02101,"975,55289-0064-14 ",.02)
 ;;55289-0064-14
 ;;9002226.02101,"975,55289-0064-30 ",.01)
 ;;55289-0064-30
 ;;9002226.02101,"975,55289-0064-30 ",.02)
 ;;55289-0064-30
 ;;9002226.02101,"975,55289-0099-50 ",.01)
 ;;55289-0099-50
 ;;9002226.02101,"975,55289-0099-50 ",.02)
 ;;55289-0099-50
 ;;9002226.02101,"975,55289-0124-30 ",.01)
 ;;55289-0124-30
 ;;9002226.02101,"975,55289-0124-30 ",.02)
 ;;55289-0124-30
 ;;9002226.02101,"975,55289-0144-14 ",.01)
 ;;55289-0144-14
 ;;9002226.02101,"975,55289-0144-14 ",.02)
 ;;55289-0144-14
 ;;9002226.02101,"975,55289-0144-30 ",.01)
 ;;55289-0144-30
 ;;9002226.02101,"975,55289-0144-30 ",.02)
 ;;55289-0144-30
 ;;9002226.02101,"975,55289-0144-90 ",.01)
 ;;55289-0144-90
 ;;9002226.02101,"975,55289-0144-90 ",.02)
 ;;55289-0144-90
 ;;9002226.02101,"975,55289-0149-30 ",.01)
 ;;55289-0149-30
 ;;9002226.02101,"975,55289-0149-30 ",.02)
 ;;55289-0149-30
 ;;9002226.02101,"975,55289-0149-60 ",.01)
 ;;55289-0149-60
 ;;9002226.02101,"975,55289-0149-60 ",.02)
 ;;55289-0149-60
 ;;9002226.02101,"975,55289-0185-17 ",.01)
 ;;55289-0185-17
 ;;9002226.02101,"975,55289-0185-17 ",.02)
 ;;55289-0185-17
 ;;9002226.02101,"975,55289-0215-22 ",.01)
 ;;55289-0215-22
 ;;9002226.02101,"975,55289-0215-22 ",.02)
 ;;55289-0215-22
 ;;9002226.02101,"975,55289-0215-30 ",.01)
 ;;55289-0215-30
 ;;9002226.02101,"975,55289-0215-30 ",.02)
 ;;55289-0215-30
 ;;9002226.02101,"975,55289-0216-30 ",.01)
 ;;55289-0216-30
 ;;9002226.02101,"975,55289-0216-30 ",.02)
 ;;55289-0216-30
 ;;9002226.02101,"975,55289-0223-30 ",.01)
 ;;55289-0223-30
 ;;9002226.02101,"975,55289-0223-30 ",.02)
 ;;55289-0223-30
 ;;9002226.02101,"975,55289-0258-30 ",.01)
 ;;55289-0258-30
 ;;9002226.02101,"975,55289-0258-30 ",.02)
 ;;55289-0258-30
 ;;9002226.02101,"975,55289-0308-07 ",.01)
 ;;55289-0308-07
 ;;9002226.02101,"975,55289-0308-07 ",.02)
 ;;55289-0308-07
 ;;9002226.02101,"975,55289-0308-14 ",.01)
 ;;55289-0308-14
 ;;9002226.02101,"975,55289-0308-14 ",.02)
 ;;55289-0308-14
 ;;9002226.02101,"975,55289-0409-30 ",.01)
 ;;55289-0409-30
 ;;9002226.02101,"975,55289-0409-30 ",.02)
 ;;55289-0409-30
 ;;9002226.02101,"975,55289-0409-60 ",.01)
 ;;55289-0409-60
 ;;9002226.02101,"975,55289-0409-60 ",.02)
 ;;55289-0409-60
 ;;9002226.02101,"975,55289-0489-30 ",.01)
 ;;55289-0489-30
 ;;9002226.02101,"975,55289-0489-30 ",.02)
 ;;55289-0489-30
 ;;9002226.02101,"975,55289-0508-14 ",.01)
 ;;55289-0508-14
 ;;9002226.02101,"975,55289-0508-14 ",.02)
 ;;55289-0508-14
 ;;9002226.02101,"975,55289-0550-15 ",.01)
 ;;55289-0550-15
 ;;9002226.02101,"975,55289-0550-15 ",.02)
 ;;55289-0550-15
 ;;9002226.02101,"975,55289-0730-01 ",.01)
 ;;55289-0730-01
 ;;9002226.02101,"975,55289-0730-01 ",.02)
 ;;55289-0730-01
 ;;9002226.02101,"975,55289-0730-12 ",.01)
 ;;55289-0730-12
 ;;9002226.02101,"975,55289-0730-12 ",.02)
 ;;55289-0730-12
 ;;9002226.02101,"975,55289-0730-25 ",.01)
 ;;55289-0730-25
 ;;9002226.02101,"975,55289-0730-25 ",.02)
 ;;55289-0730-25
 ;;9002226.02101,"975,55289-0730-30 ",.01)
 ;;55289-0730-30
 ;;9002226.02101,"975,55289-0730-30 ",.02)
 ;;55289-0730-30
 ;;9002226.02101,"975,55289-0730-60 ",.01)
 ;;55289-0730-60
 ;;9002226.02101,"975,55289-0730-60 ",.02)
 ;;55289-0730-60
 ;;9002226.02101,"975,55289-0839-30 ",.01)
 ;;55289-0839-30
 ;;9002226.02101,"975,55289-0839-30 ",.02)
 ;;55289-0839-30
 ;;9002226.02101,"975,55370-0530-07 ",.01)
 ;;55370-0530-07
 ;;9002226.02101,"975,55370-0530-07 ",.02)
 ;;55370-0530-07