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

BGP13W28.m

Go to the documentation of this file.
  1. BGP13W28 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"1099,67253-0420-10 ",.01)
  1. ;;67253-0420-10
  1. ;;9002226.02101,"1099,67253-0420-10 ",.02)
  1. ;;67253-0420-10
  1. ;;9002226.02101,"1099,67253-0420-11 ",.01)
  1. ;;67253-0420-11
  1. ;;9002226.02101,"1099,67253-0420-11 ",.02)
  1. ;;67253-0420-11
  1. ;;9002226.02101,"1099,67253-0421-09 ",.01)
  1. ;;67253-0421-09
  1. ;;9002226.02101,"1099,67253-0421-09 ",.02)
  1. ;;67253-0421-09
  1. ;;9002226.02101,"1099,67253-0421-10 ",.01)
  1. ;;67253-0421-10
  1. ;;9002226.02101,"1099,67253-0421-10 ",.02)
  1. ;;67253-0421-10
  1. ;;9002226.02101,"1099,67253-0421-11 ",.01)
  1. ;;67253-0421-11
  1. ;;9002226.02101,"1099,67253-0421-11 ",.02)
  1. ;;67253-0421-11
  1. ;;9002226.02101,"1099,67253-0422-09 ",.01)
  1. ;;67253-0422-09
  1. ;;9002226.02101,"1099,67253-0422-09 ",.02)
  1. ;;67253-0422-09
  1. ;;9002226.02101,"1099,67253-0422-10 ",.01)
  1. ;;67253-0422-10
  1. ;;9002226.02101,"1099,67253-0422-10 ",.02)
  1. ;;67253-0422-10
  1. ;;9002226.02101,"1099,67253-0422-11 ",.01)
  1. ;;67253-0422-11
  1. ;;9002226.02101,"1099,67253-0422-11 ",.02)
  1. ;;67253-0422-11
  1. ;;9002226.02101,"1099,67286-4177-01 ",.01)
  1. ;;67286-4177-01
  1. ;;9002226.02101,"1099,67286-4177-01 ",.02)
  1. ;;67286-4177-01
  1. ;;9002226.02101,"1099,67286-4179-01 ",.01)
  1. ;;67286-4179-01
  1. ;;9002226.02101,"1099,67286-4179-01 ",.02)
  1. ;;67286-4179-01
  1. ;;9002226.02101,"1099,67544-0043-30 ",.01)
  1. ;;67544-0043-30
  1. ;;9002226.02101,"1099,67544-0043-30 ",.02)
  1. ;;67544-0043-30
  1. ;;9002226.02101,"1099,67544-0043-53 ",.01)
  1. ;;67544-0043-53
  1. ;;9002226.02101,"1099,67544-0043-53 ",.02)
  1. ;;67544-0043-53
  1. ;;9002226.02101,"1099,67544-0043-60 ",.01)
  1. ;;67544-0043-60
  1. ;;9002226.02101,"1099,67544-0043-60 ",.02)
  1. ;;67544-0043-60
  1. ;;9002226.02101,"1099,67544-0043-80 ",.01)
  1. ;;67544-0043-80
  1. ;;9002226.02101,"1099,67544-0043-80 ",.02)
  1. ;;67544-0043-80
  1. ;;9002226.02101,"1099,67544-0076-30 ",.01)
  1. ;;67544-0076-30
  1. ;;9002226.02101,"1099,67544-0076-30 ",.02)
  1. ;;67544-0076-30
  1. ;;9002226.02101,"1099,67544-0076-45 ",.01)
  1. ;;67544-0076-45
  1. ;;9002226.02101,"1099,67544-0076-45 ",.02)
  1. ;;67544-0076-45
  1. ;;9002226.02101,"1099,67544-0076-53 ",.01)
  1. ;;67544-0076-53
  1. ;;9002226.02101,"1099,67544-0076-53 ",.02)
  1. ;;67544-0076-53
  1. ;;9002226.02101,"1099,67544-0076-60 ",.01)
  1. ;;67544-0076-60
  1. ;;9002226.02101,"1099,67544-0076-60 ",.02)
  1. ;;67544-0076-60
  1. ;;9002226.02101,"1099,67544-0076-70 ",.01)
  1. ;;67544-0076-70
  1. ;;9002226.02101,"1099,67544-0076-70 ",.02)
  1. ;;67544-0076-70
  1. ;;9002226.02101,"1099,67544-0076-73 ",.01)
  1. ;;67544-0076-73
  1. ;;9002226.02101,"1099,67544-0076-73 ",.02)
  1. ;;67544-0076-73
  1. ;;9002226.02101,"1099,67544-0076-80 ",.01)
  1. ;;67544-0076-80
  1. ;;9002226.02101,"1099,67544-0076-80 ",.02)
  1. ;;67544-0076-80
  1. ;;9002226.02101,"1099,67544-0076-86 ",.01)
  1. ;;67544-0076-86
  1. ;;9002226.02101,"1099,67544-0076-86 ",.02)
  1. ;;67544-0076-86
  1. ;;9002226.02101,"1099,67544-0076-92 ",.01)
  1. ;;67544-0076-92
  1. ;;9002226.02101,"1099,67544-0076-92 ",.02)
  1. ;;67544-0076-92
  1. ;;9002226.02101,"1099,67544-0076-94 ",.01)
  1. ;;67544-0076-94
  1. ;;9002226.02101,"1099,67544-0076-94 ",.02)
  1. ;;67544-0076-94
  1. ;;9002226.02101,"1099,67544-0077-53 ",.01)
  1. ;;67544-0077-53
  1. ;;9002226.02101,"1099,67544-0077-53 ",.02)
  1. ;;67544-0077-53
  1. ;;9002226.02101,"1099,67544-0077-60 ",.01)
  1. ;;67544-0077-60
  1. ;;9002226.02101,"1099,67544-0077-60 ",.02)
  1. ;;67544-0077-60
  1. ;;9002226.02101,"1099,67544-0077-70 ",.01)
  1. ;;67544-0077-70
  1. ;;9002226.02101,"1099,67544-0077-70 ",.02)
  1. ;;67544-0077-70
  1. ;;9002226.02101,"1099,67544-0077-80 ",.01)
  1. ;;67544-0077-80
  1. ;;9002226.02101,"1099,67544-0077-80 ",.02)
  1. ;;67544-0077-80
  1. ;;9002226.02101,"1099,67544-0087-30 ",.01)
  1. ;;67544-0087-30
  1. ;;9002226.02101,"1099,67544-0087-30 ",.02)
  1. ;;67544-0087-30
  1. ;;9002226.02101,"1099,67544-0087-45 ",.01)
  1. ;;67544-0087-45
  1. ;;9002226.02101,"1099,67544-0087-45 ",.02)
  1. ;;67544-0087-45
  1. ;;9002226.02101,"1099,67544-0087-53 ",.01)
  1. ;;67544-0087-53
  1. ;;9002226.02101,"1099,67544-0087-53 ",.02)
  1. ;;67544-0087-53
  1. ;;9002226.02101,"1099,67544-0087-60 ",.01)
  1. ;;67544-0087-60
  1. ;;9002226.02101,"1099,67544-0087-60 ",.02)
  1. ;;67544-0087-60
  1. ;;9002226.02101,"1099,67544-0087-70 ",.01)
  1. ;;67544-0087-70
  1. ;;9002226.02101,"1099,67544-0087-70 ",.02)
  1. ;;67544-0087-70
  1. ;;9002226.02101,"1099,67544-0087-73 ",.01)
  1. ;;67544-0087-73
  1. ;;9002226.02101,"1099,67544-0087-73 ",.02)
  1. ;;67544-0087-73
  1. ;;9002226.02101,"1099,67544-0087-80 ",.01)
  1. ;;67544-0087-80
  1. ;;9002226.02101,"1099,67544-0087-80 ",.02)
  1. ;;67544-0087-80
  1. ;;9002226.02101,"1099,67544-0087-92 ",.01)
  1. ;;67544-0087-92
  1. ;;9002226.02101,"1099,67544-0087-92 ",.02)
  1. ;;67544-0087-92
  1. ;;9002226.02101,"1099,67544-0122-30 ",.01)
  1. ;;67544-0122-30
  1. ;;9002226.02101,"1099,67544-0122-30 ",.02)
  1. ;;67544-0122-30
  1. ;;9002226.02101,"1099,67544-0122-45 ",.01)
  1. ;;67544-0122-45
  1. ;;9002226.02101,"1099,67544-0122-45 ",.02)
  1. ;;67544-0122-45
  1. ;;9002226.02101,"1099,67544-0122-53 ",.01)
  1. ;;67544-0122-53
  1. ;;9002226.02101,"1099,67544-0122-53 ",.02)
  1. ;;67544-0122-53
  1. ;;9002226.02101,"1099,67544-0122-60 ",.01)
  1. ;;67544-0122-60
  1. ;;9002226.02101,"1099,67544-0122-60 ",.02)
  1. ;;67544-0122-60
  1. ;;9002226.02101,"1099,67544-0122-70 ",.01)
  1. ;;67544-0122-70
  1. ;;9002226.02101,"1099,67544-0122-70 ",.02)
  1. ;;67544-0122-70
  1. ;;9002226.02101,"1099,67544-0122-73 ",.01)
  1. ;;67544-0122-73
  1. ;;9002226.02101,"1099,67544-0122-73 ",.02)
  1. ;;67544-0122-73
  1. ;;9002226.02101,"1099,67544-0122-80 ",.01)
  1. ;;67544-0122-80
  1. ;;9002226.02101,"1099,67544-0122-80 ",.02)
  1. ;;67544-0122-80
  1. ;;9002226.02101,"1099,67544-0122-86 ",.01)
  1. ;;67544-0122-86
  1. ;;9002226.02101,"1099,67544-0122-86 ",.02)
  1. ;;67544-0122-86
  1. ;;9002226.02101,"1099,67544-0122-92 ",.01)
  1. ;;67544-0122-92
  1. ;;9002226.02101,"1099,67544-0122-92 ",.02)
  1. ;;67544-0122-92
  1. ;;9002226.02101,"1099,67544-0130-30 ",.01)
  1. ;;67544-0130-30
  1. ;;9002226.02101,"1099,67544-0130-30 ",.02)
  1. ;;67544-0130-30
  1. ;;9002226.02101,"1099,67544-0130-45 ",.01)
  1. ;;67544-0130-45
  1. ;;9002226.02101,"1099,67544-0130-45 ",.02)
  1. ;;67544-0130-45
  1. ;;9002226.02101,"1099,67544-0130-53 ",.01)
  1. ;;67544-0130-53
  1. ;;9002226.02101,"1099,67544-0130-53 ",.02)
  1. ;;67544-0130-53
  1. ;;9002226.02101,"1099,67544-0130-60 ",.01)
  1. ;;67544-0130-60
  1. ;;9002226.02101,"1099,67544-0130-60 ",.02)
  1. ;;67544-0130-60
  1. ;;9002226.02101,"1099,67544-0130-70 ",.01)
  1. ;;67544-0130-70
  1. ;;9002226.02101,"1099,67544-0130-70 ",.02)
  1. ;;67544-0130-70
  1. ;;9002226.02101,"1099,67544-0130-80 ",.01)
  1. ;;67544-0130-80
  1. ;;9002226.02101,"1099,67544-0130-80 ",.02)
  1. ;;67544-0130-80
  1. ;;9002226.02101,"1099,67544-0143-30 ",.01)
  1. ;;67544-0143-30
  1. ;;9002226.02101,"1099,67544-0143-30 ",.02)
  1. ;;67544-0143-30
  1. ;;9002226.02101,"1099,67544-0143-53 ",.01)
  1. ;;67544-0143-53
  1. ;;9002226.02101,"1099,67544-0143-53 ",.02)
  1. ;;67544-0143-53
  1. ;;9002226.02101,"1099,67544-0143-60 ",.01)
  1. ;;67544-0143-60
  1. ;;9002226.02101,"1099,67544-0143-60 ",.02)
  1. ;;67544-0143-60
  1. ;;9002226.02101,"1099,67544-0143-70 ",.01)
  1. ;;67544-0143-70
  1. ;;9002226.02101,"1099,67544-0143-70 ",.02)
  1. ;;67544-0143-70
  1. ;;9002226.02101,"1099,67544-0143-80 ",.01)
  1. ;;67544-0143-80
  1. ;;9002226.02101,"1099,67544-0143-80 ",.02)
  1. ;;67544-0143-80
  1. ;;9002226.02101,"1099,67544-0161-30 ",.01)
  1. ;;67544-0161-30
  1. ;;9002226.02101,"1099,67544-0161-30 ",.02)
  1. ;;67544-0161-30
  1. ;;9002226.02101,"1099,67544-0161-45 ",.01)
  1. ;;67544-0161-45
  1. ;;9002226.02101,"1099,67544-0161-45 ",.02)
  1. ;;67544-0161-45
  1. ;;9002226.02101,"1099,67544-0161-60 ",.01)
  1. ;;67544-0161-60
  1. ;;9002226.02101,"1099,67544-0161-60 ",.02)
  1. ;;67544-0161-60
  1. ;;9002226.02101,"1099,67544-0161-80 ",.01)
  1. ;;67544-0161-80
  1. ;;9002226.02101,"1099,67544-0161-80 ",.02)
  1. ;;67544-0161-80
  1. ;;9002226.02101,"1099,67544-0208-30 ",.01)
  1. ;;67544-0208-30
  1. ;;9002226.02101,"1099,67544-0208-30 ",.02)
  1. ;;67544-0208-30
  1. ;;9002226.02101,"1099,67544-0208-53 ",.01)
  1. ;;67544-0208-53
  1. ;;9002226.02101,"1099,67544-0208-53 ",.02)
  1. ;;67544-0208-53
  1. ;;9002226.02101,"1099,67544-0208-60 ",.01)
  1. ;;67544-0208-60
  1. ;;9002226.02101,"1099,67544-0208-60 ",.02)
  1. ;;67544-0208-60
  1. ;;9002226.02101,"1099,67544-0208-80 ",.01)
  1. ;;67544-0208-80
  1. ;;9002226.02101,"1099,67544-0208-80 ",.02)
  1. ;;67544-0208-80
  1. ;;9002226.02101,"1099,67544-0208-87 ",.01)
  1. ;;67544-0208-87
  1. ;;9002226.02101,"1099,67544-0208-87 ",.02)
  1. ;;67544-0208-87
  1. ;;9002226.02101,"1099,67544-0240-30 ",.01)
  1. ;;67544-0240-30
  1. ;;9002226.02101,"1099,67544-0240-30 ",.02)
  1. ;;67544-0240-30
  1. ;;9002226.02101,"1099,67544-0240-45 ",.01)
  1. ;;67544-0240-45
  1. ;;9002226.02101,"1099,67544-0240-45 ",.02)
  1. ;;67544-0240-45
  1. ;;9002226.02101,"1099,67544-0240-60 ",.01)
  1. ;;67544-0240-60
  1. ;;9002226.02101,"1099,67544-0240-60 ",.02)
  1. ;;67544-0240-60
  1. ;;9002226.02101,"1099,67544-0240-80 ",.01)
  1. ;;67544-0240-80
  1. ;;9002226.02101,"1099,67544-0240-80 ",.02)
  1. ;;67544-0240-80
  1. ;;9002226.02101,"1099,67544-0272-30 ",.01)
  1. ;;67544-0272-30
  1. ;;9002226.02101,"1099,67544-0272-30 ",.02)
  1. ;;67544-0272-30
  1. ;;9002226.02101,"1099,67544-0272-45 ",.01)
  1. ;;67544-0272-45
  1. ;;9002226.02101,"1099,67544-0272-45 ",.02)
  1. ;;67544-0272-45
  1. ;;9002226.02101,"1099,67544-0272-53 ",.01)
  1. ;;67544-0272-53
  1. ;;9002226.02101,"1099,67544-0272-53 ",.02)
  1. ;;67544-0272-53
  1. ;;9002226.02101,"1099,67544-0272-60 ",.01)
  1. ;;67544-0272-60
  1. ;;9002226.02101,"1099,67544-0272-60 ",.02)
  1. ;;67544-0272-60
  1. ;;9002226.02101,"1099,67544-0272-70 ",.01)
  1. ;;67544-0272-70
  1. ;;9002226.02101,"1099,67544-0272-70 ",.02)
  1. ;;67544-0272-70
  1. ;;9002226.02101,"1099,67544-0272-73 ",.01)
  1. ;;67544-0272-73
  1. ;;9002226.02101,"1099,67544-0272-73 ",.02)
  1. ;;67544-0272-73
  1. ;;9002226.02101,"1099,67544-0272-80 ",.01)
  1. ;;67544-0272-80
  1. ;;9002226.02101,"1099,67544-0272-80 ",.02)
  1. ;;67544-0272-80
  1. ;;9002226.02101,"1099,67544-0272-86 ",.01)
  1. ;;67544-0272-86
  1. ;;9002226.02101,"1099,67544-0272-86 ",.02)
  1. ;;67544-0272-86
  1. ;;9002226.02101,"1099,67544-0272-92 ",.01)
  1. ;;67544-0272-92
  1. ;;9002226.02101,"1099,67544-0272-92 ",.02)
  1. ;;67544-0272-92
  1. ;;9002226.02101,"1099,67544-0272-94 ",.01)
  1. ;;67544-0272-94
  1. ;;9002226.02101,"1099,67544-0272-94 ",.02)
  1. ;;67544-0272-94
  1. ;;9002226.02101,"1099,67544-0282-30 ",.01)
  1. ;;67544-0282-30
  1. ;;9002226.02101,"1099,67544-0282-30 ",.02)
  1. ;;67544-0282-30
  1. ;;9002226.02101,"1099,67544-0282-45 ",.01)
  1. ;;67544-0282-45
  1. ;;9002226.02101,"1099,67544-0282-45 ",.02)
  1. ;;67544-0282-45
  1. ;;9002226.02101,"1099,67544-0282-82 ",.01)
  1. ;;67544-0282-82
  1. ;;9002226.02101,"1099,67544-0282-82 ",.02)
  1. ;;67544-0282-82
  1. ;;9002226.02101,"1099,67544-0282-99 ",.01)
  1. ;;67544-0282-99
  1. ;;9002226.02101,"1099,67544-0282-99 ",.02)
  1. ;;67544-0282-99
  1. ;;9002226.02101,"1099,67544-0305-30 ",.01)
  1. ;;67544-0305-30
  1. ;;9002226.02101,"1099,67544-0305-30 ",.02)
  1. ;;67544-0305-30
  1. ;;9002226.02101,"1099,67544-0305-53 ",.01)
  1. ;;67544-0305-53
  1. ;;9002226.02101,"1099,67544-0305-53 ",.02)
  1. ;;67544-0305-53
  1. ;;9002226.02101,"1099,67544-0305-60 ",.01)
  1. ;;67544-0305-60
  1. ;;9002226.02101,"1099,67544-0305-60 ",.02)
  1. ;;67544-0305-60
  1. ;;9002226.02101,"1099,67544-0326-15 ",.01)
  1. ;;67544-0326-15
  1. ;;9002226.02101,"1099,67544-0326-15 ",.02)
  1. ;;67544-0326-15
  1. ;;9002226.02101,"1099,67544-0326-30 ",.01)
  1. ;;67544-0326-30
  1. ;;9002226.02101,"1099,67544-0326-30 ",.02)
  1. ;;67544-0326-30
  1. ;;9002226.02101,"1099,67544-0326-45 ",.01)
  1. ;;67544-0326-45
  1. ;;9002226.02101,"1099,67544-0326-45 ",.02)
  1. ;;67544-0326-45
  1. ;;9002226.02101,"1099,67544-0326-60 ",.01)
  1. ;;67544-0326-60
  1. ;;9002226.02101,"1099,67544-0326-60 ",.02)
  1. ;;67544-0326-60
  1. ;;9002226.02101,"1099,67544-0326-73 ",.01)
  1. ;;67544-0326-73
  1. ;;9002226.02101,"1099,67544-0326-73 ",.02)
  1. ;;67544-0326-73
  1. ;;9002226.02101,"1099,67544-0326-80 ",.01)
  1. ;;67544-0326-80
  1. ;;9002226.02101,"1099,67544-0326-80 ",.02)
  1. ;;67544-0326-80
  1. ;;9002226.02101,"1099,67544-0332-60 ",.01)
  1. ;;67544-0332-60
  1. ;;9002226.02101,"1099,67544-0332-60 ",.02)
  1. ;;67544-0332-60
  1. ;;9002226.02101,"1099,67544-0376-30 ",.01)
  1. ;;67544-0376-30
  1. ;;9002226.02101,"1099,67544-0376-30 ",.02)
  1. ;;67544-0376-30
  1. ;;9002226.02101,"1099,67544-0376-45 ",.01)
  1. ;;67544-0376-45
  1. ;;9002226.02101,"1099,67544-0376-45 ",.02)
  1. ;;67544-0376-45
  1. ;;9002226.02101,"1099,67544-0376-60 ",.01)
  1. ;;67544-0376-60
  1. ;;9002226.02101,"1099,67544-0376-60 ",.02)
  1. ;;67544-0376-60
  1. ;;9002226.02101,"1099,67544-0376-70 ",.01)
  1. ;;67544-0376-70
  1. ;;9002226.02101,"1099,67544-0376-70 ",.02)
  1. ;;67544-0376-70
  1. ;;9002226.02101,"1099,67544-0376-73 ",.01)
  1. ;;67544-0376-73
  1. ;;9002226.02101,"1099,67544-0376-73 ",.02)
  1. ;;67544-0376-73
  1. ;;9002226.02101,"1099,67544-0376-80 ",.01)
  1. ;;67544-0376-80
  1. ;;9002226.02101,"1099,67544-0376-80 ",.02)
  1. ;;67544-0376-80
  1. ;;9002226.02101,"1099,67544-0387-30 ",.01)
  1. ;;67544-0387-30
  1. ;;9002226.02101,"1099,67544-0387-30 ",.02)
  1. ;;67544-0387-30
  1. ;;9002226.02101,"1099,67544-0387-60 ",.01)
  1. ;;67544-0387-60
  1. ;;9002226.02101,"1099,67544-0387-60 ",.02)
  1. ;;67544-0387-60
  1. ;;9002226.02101,"1099,67544-0387-80 ",.01)
  1. ;;67544-0387-80
  1. ;;9002226.02101,"1099,67544-0387-80 ",.02)
  1. ;;67544-0387-80