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

BGP06P7.m

Go to the documentation of this file.
BGP06P7 ;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,"700,54569-0223-04 ",.02)
 ;;54569-0223-04
 ;;9002226.02101,"700,54569-0223-05 ",.01)
 ;;54569-0223-05
 ;;9002226.02101,"700,54569-0223-05 ",.02)
 ;;54569-0223-05
 ;;9002226.02101,"700,54569-1903-01 ",.01)
 ;;54569-1903-01
 ;;9002226.02101,"700,54569-1903-01 ",.02)
 ;;54569-1903-01
 ;;9002226.02101,"700,54569-2588-00 ",.01)
 ;;54569-2588-00
 ;;9002226.02101,"700,54569-2588-00 ",.02)
 ;;54569-2588-00
 ;;9002226.02101,"700,54569-2588-01 ",.01)
 ;;54569-2588-01
 ;;9002226.02101,"700,54569-2588-01 ",.02)
 ;;54569-2588-01
 ;;9002226.02101,"700,54569-3292-00 ",.01)
 ;;54569-3292-00
 ;;9002226.02101,"700,54569-3292-00 ",.02)
 ;;54569-3292-00
 ;;9002226.02101,"700,54569-3292-01 ",.01)
 ;;54569-3292-01
 ;;9002226.02101,"700,54569-3292-01 ",.02)
 ;;54569-3292-01
 ;;9002226.02101,"700,54569-3292-02 ",.01)
 ;;54569-3292-02
 ;;9002226.02101,"700,54569-3292-02 ",.02)
 ;;54569-3292-02
 ;;9002226.02101,"700,54569-3292-04 ",.01)
 ;;54569-3292-04
 ;;9002226.02101,"700,54569-3292-04 ",.02)
 ;;54569-3292-04
 ;;9002226.02101,"700,54569-3292-05 ",.01)
 ;;54569-3292-05
 ;;9002226.02101,"700,54569-3292-05 ",.02)
 ;;54569-3292-05
 ;;9002226.02101,"700,54569-5082-01 ",.01)
 ;;54569-5082-01
 ;;9002226.02101,"700,54569-5082-01 ",.02)
 ;;54569-5082-01
 ;;9002226.02101,"700,54569-5772-00 ",.01)
 ;;54569-5772-00
 ;;9002226.02101,"700,54569-5772-00 ",.02)
 ;;54569-5772-00
 ;;9002226.02101,"700,54569-5772-01 ",.01)
 ;;54569-5772-01
 ;;9002226.02101,"700,54569-5772-01 ",.02)
 ;;54569-5772-01
 ;;9002226.02101,"700,54868-0616-00 ",.01)
 ;;54868-0616-00
 ;;9002226.02101,"700,54868-0616-00 ",.02)
 ;;54868-0616-00
 ;;9002226.02101,"700,54868-0676-00 ",.01)
 ;;54868-0676-00
 ;;9002226.02101,"700,54868-0676-00 ",.02)
 ;;54868-0676-00
 ;;9002226.02101,"700,54868-0676-02 ",.01)
 ;;54868-0676-02
 ;;9002226.02101,"700,54868-0676-02 ",.02)
 ;;54868-0676-02
 ;;9002226.02101,"700,54868-0676-63 ",.01)
 ;;54868-0676-63
 ;;9002226.02101,"700,54868-0676-63 ",.02)
 ;;54868-0676-63
 ;;9002226.02101,"700,54868-1071-00 ",.01)
 ;;54868-1071-00
 ;;9002226.02101,"700,54868-1071-00 ",.02)
 ;;54868-1071-00
 ;;9002226.02101,"700,54868-1071-01 ",.01)
 ;;54868-1071-01
 ;;9002226.02101,"700,54868-1071-01 ",.02)
 ;;54868-1071-01
 ;;9002226.02101,"700,54868-1071-02 ",.01)
 ;;54868-1071-02
 ;;9002226.02101,"700,54868-1071-02 ",.02)
 ;;54868-1071-02
 ;;9002226.02101,"700,54868-1071-03 ",.01)
 ;;54868-1071-03
 ;;9002226.02101,"700,54868-1071-03 ",.02)
 ;;54868-1071-03
 ;;9002226.02101,"700,54868-1233-01 ",.01)
 ;;54868-1233-01
 ;;9002226.02101,"700,54868-1233-01 ",.02)
 ;;54868-1233-01
 ;;9002226.02101,"700,54868-1233-02 ",.01)
 ;;54868-1233-02
 ;;9002226.02101,"700,54868-1233-02 ",.02)
 ;;54868-1233-02
 ;;9002226.02101,"700,54868-1233-03 ",.01)
 ;;54868-1233-03
 ;;9002226.02101,"700,54868-1233-03 ",.02)
 ;;54868-1233-03
 ;;9002226.02101,"700,54868-1465-01 ",.01)
 ;;54868-1465-01
 ;;9002226.02101,"700,54868-1465-01 ",.02)
 ;;54868-1465-01
 ;;9002226.02101,"700,54868-1466-00 ",.01)
 ;;54868-1466-00
 ;;9002226.02101,"700,54868-1466-00 ",.02)
 ;;54868-1466-00
 ;;9002226.02101,"700,54868-1466-01 ",.01)
 ;;54868-1466-01
 ;;9002226.02101,"700,54868-1466-01 ",.02)
 ;;54868-1466-01
 ;;9002226.02101,"700,54868-1466-02 ",.01)
 ;;54868-1466-02
 ;;9002226.02101,"700,54868-1466-02 ",.02)
 ;;54868-1466-02
 ;;9002226.02101,"700,54868-1466-03 ",.01)
 ;;54868-1466-03
 ;;9002226.02101,"700,54868-1466-03 ",.02)
 ;;54868-1466-03
 ;;9002226.02101,"700,54868-1467-01 ",.01)
 ;;54868-1467-01
 ;;9002226.02101,"700,54868-1467-01 ",.02)
 ;;54868-1467-01
 ;;9002226.02101,"700,54868-1467-02 ",.01)
 ;;54868-1467-02
 ;;9002226.02101,"700,54868-1467-02 ",.02)
 ;;54868-1467-02
 ;;9002226.02101,"700,54868-2530-00 ",.01)
 ;;54868-2530-00
 ;;9002226.02101,"700,54868-2530-00 ",.02)
 ;;54868-2530-00
 ;;9002226.02101,"700,54868-3230-01 ",.01)
 ;;54868-3230-01
 ;;9002226.02101,"700,54868-3230-01 ",.02)
 ;;54868-3230-01
 ;;9002226.02101,"700,54868-3610-00 ",.01)
 ;;54868-3610-00
 ;;9002226.02101,"700,54868-3610-00 ",.02)
 ;;54868-3610-00
 ;;9002226.02101,"700,54868-3646-00 ",.01)
 ;;54868-3646-00
 ;;9002226.02101,"700,54868-3646-00 ",.02)
 ;;54868-3646-00
 ;;9002226.02101,"700,54868-4751-00 ",.01)
 ;;54868-4751-00
 ;;9002226.02101,"700,54868-4751-00 ",.02)
 ;;54868-4751-00
 ;;9002226.02101,"700,54868-4751-01 ",.01)
 ;;54868-4751-01
 ;;9002226.02101,"700,54868-4751-01 ",.02)
 ;;54868-4751-01
 ;;9002226.02101,"700,54868-4788-00 ",.01)
 ;;54868-4788-00
 ;;9002226.02101,"700,54868-4788-00 ",.02)
 ;;54868-4788-00
 ;;9002226.02101,"700,54868-4788-01 ",.01)
 ;;54868-4788-01
 ;;9002226.02101,"700,54868-4788-01 ",.02)
 ;;54868-4788-01
 ;;9002226.02101,"700,54868-5147-00 ",.01)
 ;;54868-5147-00
 ;;9002226.02101,"700,54868-5147-00 ",.02)
 ;;54868-5147-00
 ;;9002226.02101,"700,54868-5151-00 ",.01)
 ;;54868-5151-00
 ;;9002226.02101,"700,54868-5151-00 ",.02)
 ;;54868-5151-00
 ;;9002226.02101,"700,54868-5151-01 ",.01)
 ;;54868-5151-01
 ;;9002226.02101,"700,54868-5151-01 ",.02)
 ;;54868-5151-01
 ;;9002226.02101,"700,54868-5151-02 ",.01)
 ;;54868-5151-02
 ;;9002226.02101,"700,54868-5151-02 ",.02)
 ;;54868-5151-02
 ;;9002226.02101,"700,54868-5151-03 ",.01)
 ;;54868-5151-03
 ;;9002226.02101,"700,54868-5151-03 ",.02)
 ;;54868-5151-03
 ;;9002226.02101,"700,54868-5151-04 ",.01)
 ;;54868-5151-04
 ;;9002226.02101,"700,54868-5151-04 ",.02)
 ;;54868-5151-04
 ;;9002226.02101,"700,54868-5517-00 ",.01)
 ;;54868-5517-00
 ;;9002226.02101,"700,54868-5517-00 ",.02)
 ;;54868-5517-00
 ;;9002226.02101,"700,54868-5744-00 ",.01)
 ;;54868-5744-00
 ;;9002226.02101,"700,54868-5744-00 ",.02)
 ;;54868-5744-00
 ;;9002226.02101,"700,54868-5808-00 ",.01)
 ;;54868-5808-00
 ;;9002226.02101,"700,54868-5808-00 ",.02)
 ;;54868-5808-00
 ;;9002226.02101,"700,55045-1127-00 ",.01)
 ;;55045-1127-00
 ;;9002226.02101,"700,55045-1127-00 ",.02)
 ;;55045-1127-00
 ;;9002226.02101,"700,55045-1127-02 ",.01)
 ;;55045-1127-02
 ;;9002226.02101,"700,55045-1127-02 ",.02)
 ;;55045-1127-02
 ;;9002226.02101,"700,55045-1127-03 ",.01)
 ;;55045-1127-03
 ;;9002226.02101,"700,55045-1127-03 ",.02)
 ;;55045-1127-03
 ;;9002226.02101,"700,55045-1127-08 ",.01)
 ;;55045-1127-08
 ;;9002226.02101,"700,55045-1127-08 ",.02)
 ;;55045-1127-08
 ;;9002226.02101,"700,55045-1127-09 ",.01)
 ;;55045-1127-09
 ;;9002226.02101,"700,55045-1127-09 ",.02)
 ;;55045-1127-09
 ;;9002226.02101,"700,55045-1599-00 ",.01)
 ;;55045-1599-00
 ;;9002226.02101,"700,55045-1599-00 ",.02)
 ;;55045-1599-00
 ;;9002226.02101,"700,55045-1599-01 ",.01)
 ;;55045-1599-01
 ;;9002226.02101,"700,55045-1599-01 ",.02)
 ;;55045-1599-01
 ;;9002226.02101,"700,55045-1599-03 ",.01)
 ;;55045-1599-03
 ;;9002226.02101,"700,55045-1599-03 ",.02)
 ;;55045-1599-03
 ;;9002226.02101,"700,55045-1599-04 ",.01)
 ;;55045-1599-04
 ;;9002226.02101,"700,55045-1599-04 ",.02)
 ;;55045-1599-04
 ;;9002226.02101,"700,55045-1599-05 ",.01)
 ;;55045-1599-05
 ;;9002226.02101,"700,55045-1599-05 ",.02)
 ;;55045-1599-05
 ;;9002226.02101,"700,55045-1599-06 ",.01)
 ;;55045-1599-06
 ;;9002226.02101,"700,55045-1599-06 ",.02)
 ;;55045-1599-06
 ;;9002226.02101,"700,55045-1599-07 ",.01)
 ;;55045-1599-07
 ;;9002226.02101,"700,55045-1599-07 ",.02)
 ;;55045-1599-07
 ;;9002226.02101,"700,55045-1599-08 ",.01)
 ;;55045-1599-08
 ;;9002226.02101,"700,55045-1599-08 ",.02)
 ;;55045-1599-08
 ;;9002226.02101,"700,55045-1599-09 ",.01)
 ;;55045-1599-09
 ;;9002226.02101,"700,55045-1599-09 ",.02)
 ;;55045-1599-09
 ;;9002226.02101,"700,55045-2038-03 ",.01)
 ;;55045-2038-03
 ;;9002226.02101,"700,55045-2038-03 ",.02)
 ;;55045-2038-03
 ;;9002226.02101,"700,55045-2999-00 ",.01)
 ;;55045-2999-00
 ;;9002226.02101,"700,55045-2999-00 ",.02)
 ;;55045-2999-00
 ;;9002226.02101,"700,55045-2999-02 ",.01)
 ;;55045-2999-02
 ;;9002226.02101,"700,55045-2999-02 ",.02)
 ;;55045-2999-02
 ;;9002226.02101,"700,55045-2999-03 ",.01)
 ;;55045-2999-03
 ;;9002226.02101,"700,55045-2999-03 ",.02)
 ;;55045-2999-03
 ;;9002226.02101,"700,55045-2999-04 ",.01)
 ;;55045-2999-04
 ;;9002226.02101,"700,55045-2999-04 ",.02)
 ;;55045-2999-04
 ;;9002226.02101,"700,55045-2999-05 ",.01)
 ;;55045-2999-05
 ;;9002226.02101,"700,55045-2999-05 ",.02)
 ;;55045-2999-05
 ;;9002226.02101,"700,55045-2999-07 ",.01)
 ;;55045-2999-07
 ;;9002226.02101,"700,55045-2999-07 ",.02)
 ;;55045-2999-07
 ;;9002226.02101,"700,55045-2999-08 ",.01)
 ;;55045-2999-08
 ;;9002226.02101,"700,55045-2999-08 ",.02)
 ;;55045-2999-08
 ;;9002226.02101,"700,55045-2999-09 ",.01)
 ;;55045-2999-09
 ;;9002226.02101,"700,55045-2999-09 ",.02)
 ;;55045-2999-09
 ;;9002226.02101,"700,55045-3095-01 ",.01)
 ;;55045-3095-01
 ;;9002226.02101,"700,55045-3095-01 ",.02)
 ;;55045-3095-01
 ;;9002226.02101,"700,55045-3095-09 ",.01)
 ;;55045-3095-09
 ;;9002226.02101,"700,55045-3095-09 ",.02)
 ;;55045-3095-09
 ;;9002226.02101,"700,55045-3099-00 ",.01)
 ;;55045-3099-00
 ;;9002226.02101,"700,55045-3099-00 ",.02)
 ;;55045-3099-00
 ;;9002226.02101,"700,55045-3099-01 ",.01)
 ;;55045-3099-01
 ;;9002226.02101,"700,55045-3099-01 ",.02)
 ;;55045-3099-01
 ;;9002226.02101,"700,55045-3099-03 ",.01)
 ;;55045-3099-03
 ;;9002226.02101,"700,55045-3099-03 ",.02)
 ;;55045-3099-03
 ;;9002226.02101,"700,55045-3099-04 ",.01)
 ;;55045-3099-04
 ;;9002226.02101,"700,55045-3099-04 ",.02)
 ;;55045-3099-04
 ;;9002226.02101,"700,55045-3099-05 ",.01)
 ;;55045-3099-05
 ;;9002226.02101,"700,55045-3099-05 ",.02)
 ;;55045-3099-05
 ;;9002226.02101,"700,55045-3099-07 ",.01)
 ;;55045-3099-07
 ;;9002226.02101,"700,55045-3099-07 ",.02)
 ;;55045-3099-07
 ;;9002226.02101,"700,55045-3099-08 ",.01)
 ;;55045-3099-08
 ;;9002226.02101,"700,55045-3099-08 ",.02)
 ;;55045-3099-08
 ;;9002226.02101,"700,55045-3099-09 ",.01)
 ;;55045-3099-09
 ;;9002226.02101,"700,55045-3099-09 ",.02)
 ;;55045-3099-09
 ;;9002226.02101,"700,55045-3335-00 ",.01)
 ;;55045-3335-00
 ;;9002226.02101,"700,55045-3335-00 ",.02)
 ;;55045-3335-00
 ;;9002226.02101,"700,55045-3335-01 ",.01)
 ;;55045-3335-01
 ;;9002226.02101,"700,55045-3335-01 ",.02)
 ;;55045-3335-01
 ;;9002226.02101,"700,55045-3377-00 ",.01)
 ;;55045-3377-00
 ;;9002226.02101,"700,55045-3377-00 ",.02)
 ;;55045-3377-00
 ;;9002226.02101,"700,55045-3377-01 ",.01)
 ;;55045-3377-01
 ;;9002226.02101,"700,55045-3377-01 ",.02)
 ;;55045-3377-01
 ;;9002226.02101,"700,55045-3377-03 ",.01)
 ;;55045-3377-03
 ;;9002226.02101,"700,55045-3377-03 ",.02)
 ;;55045-3377-03
 ;;9002226.02101,"700,55045-3377-04 ",.01)
 ;;55045-3377-04
 ;;9002226.02101,"700,55045-3377-04 ",.02)
 ;;55045-3377-04
 ;;9002226.02101,"700,55045-3377-05 ",.01)
 ;;55045-3377-05
 ;;9002226.02101,"700,55045-3377-05 ",.02)
 ;;55045-3377-05
 ;;9002226.02101,"700,55045-3377-09 ",.01)
 ;;55045-3377-09
 ;;9002226.02101,"700,55045-3377-09 ",.02)
 ;;55045-3377-09
 ;;9002226.02101,"700,55289-0184-20 ",.01)
 ;;55289-0184-20
 ;;9002226.02101,"700,55289-0184-20 ",.02)
 ;;55289-0184-20
 ;;9002226.02101,"700,55289-0231-04 ",.01)
 ;;55289-0231-04
 ;;9002226.02101,"700,55289-0231-04 ",.02)
 ;;55289-0231-04
 ;;9002226.02101,"700,55289-0231-08 ",.01)
 ;;55289-0231-08
 ;;9002226.02101,"700,55289-0231-08 ",.02)
 ;;55289-0231-08
 ;;9002226.02101,"700,55289-0231-12 ",.01)
 ;;55289-0231-12
 ;;9002226.02101,"700,55289-0231-12 ",.02)
 ;;55289-0231-12
 ;;9002226.02101,"700,55289-0231-16 ",.01)
 ;;55289-0231-16
 ;;9002226.02101,"700,55289-0231-16 ",.02)
 ;;55289-0231-16
 ;;9002226.02101,"700,55289-0231-40 ",.01)
 ;;55289-0231-40
 ;;9002226.02101,"700,55289-0231-40 ",.02)
 ;;55289-0231-40
 ;;9002226.02101,"700,55289-0321-30 ",.01)
 ;;55289-0321-30
 ;;9002226.02101,"700,55289-0321-30 ",.02)
 ;;55289-0321-30
 ;;9002226.02101,"700,55289-0324-12 ",.01)
 ;;55289-0324-12
 ;;9002226.02101,"700,55289-0324-12 ",.02)
 ;;55289-0324-12
 ;;9002226.02101,"700,55289-0324-16 ",.01)
 ;;55289-0324-16
 ;;9002226.02101,"700,55289-0324-16 ",.02)
 ;;55289-0324-16
 ;;9002226.02101,"700,55289-0324-60 ",.01)
 ;;55289-0324-60
 ;;9002226.02101,"700,55289-0324-60 ",.02)
 ;;55289-0324-60
 ;;9002226.02101,"700,55289-0852-10 ",.01)
 ;;55289-0852-10
 ;;9002226.02101,"700,55289-0852-10 ",.02)
 ;;55289-0852-10
 ;;9002226.02101,"700,55289-0852-12 ",.01)
 ;;55289-0852-12
 ;;9002226.02101,"700,55289-0852-12 ",.02)
 ;;55289-0852-12
 ;;9002226.02101,"700,55289-0852-20 ",.01)
 ;;55289-0852-20
 ;;9002226.02101,"700,55289-0852-20 ",.02)
 ;;55289-0852-20
 ;;9002226.02101,"700,55289-0889-15 ",.01)
 ;;55289-0889-15
 ;;9002226.02101,"700,55289-0889-15 ",.02)
 ;;55289-0889-15
 ;;9002226.02101,"700,55887-0051-30 ",.01)
 ;;55887-0051-30
 ;;9002226.02101,"700,55887-0051-30 ",.02)
 ;;55887-0051-30
 ;;9002226.02101,"700,55887-0064-04 ",.01)
 ;;55887-0064-04
 ;;9002226.02101,"700,55887-0064-04 ",.02)
 ;;55887-0064-04
 ;;9002226.02101,"700,55887-0171-01 ",.01)
 ;;55887-0171-01
 ;;9002226.02101,"700,55887-0171-01 ",.02)
 ;;55887-0171-01
 ;;9002226.02101,"700,55887-0171-30 ",.01)
 ;;55887-0171-30
 ;;9002226.02101,"700,55887-0171-30 ",.02)
 ;;55887-0171-30
 ;;9002226.02101,"700,55887-0171-60 ",.01)
 ;;55887-0171-60
 ;;9002226.02101,"700,55887-0171-60 ",.02)
 ;;55887-0171-60
 ;;9002226.02101,"700,55887-0171-83 ",.01)
 ;;55887-0171-83
 ;;9002226.02101,"700,55887-0171-83 ",.02)
 ;;55887-0171-83
 ;;9002226.02101,"700,55887-0171-84 ",.01)
 ;;55887-0171-84
 ;;9002226.02101,"700,55887-0171-84 ",.02)
 ;;55887-0171-84
 ;;9002226.02101,"700,55887-0171-86 ",.01)
 ;;55887-0171-86
 ;;9002226.02101,"700,55887-0171-86 ",.02)
 ;;55887-0171-86
 ;;9002226.02101,"700,55887-0171-90 ",.01)
 ;;55887-0171-90