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

BGP44Q14.m

Go to the documentation of this file.
  1. BGP44Q14 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON SEP 11, 2013;
  1. ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
  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,"1198,68084-0072-11 ",.01)
  1. ;;68084-0072-11
  1. ;;9002226.02101,"1198,68084-0072-11 ",.02)
  1. ;;68084-0072-11
  1. ;;9002226.02101,"1198,68084-0136-01 ",.01)
  1. ;;68084-0136-01
  1. ;;9002226.02101,"1198,68084-0136-01 ",.02)
  1. ;;68084-0136-01
  1. ;;9002226.02101,"1198,68084-0136-11 ",.01)
  1. ;;68084-0136-11
  1. ;;9002226.02101,"1198,68084-0136-11 ",.02)
  1. ;;68084-0136-11
  1. ;;9002226.02101,"1198,68084-0137-01 ",.01)
  1. ;;68084-0137-01
  1. ;;9002226.02101,"1198,68084-0137-01 ",.02)
  1. ;;68084-0137-01
  1. ;;9002226.02101,"1198,68084-0137-11 ",.01)
  1. ;;68084-0137-11
  1. ;;9002226.02101,"1198,68084-0137-11 ",.02)
  1. ;;68084-0137-11
  1. ;;9002226.02101,"1198,68084-0138-01 ",.01)
  1. ;;68084-0138-01
  1. ;;9002226.02101,"1198,68084-0138-01 ",.02)
  1. ;;68084-0138-01
  1. ;;9002226.02101,"1198,68084-0138-11 ",.01)
  1. ;;68084-0138-11
  1. ;;9002226.02101,"1198,68084-0138-11 ",.02)
  1. ;;68084-0138-11
  1. ;;9002226.02101,"1198,68180-0336-07 ",.01)
  1. ;;68180-0336-07
  1. ;;9002226.02101,"1198,68180-0336-07 ",.02)
  1. ;;68180-0336-07
  1. ;;9002226.02101,"1198,68180-0337-07 ",.01)
  1. ;;68180-0337-07
  1. ;;9002226.02101,"1198,68180-0337-07 ",.02)
  1. ;;68180-0337-07
  1. ;;9002226.02101,"1198,68382-0027-05 ",.01)
  1. ;;68382-0027-05
  1. ;;9002226.02101,"1198,68382-0027-05 ",.02)
  1. ;;68382-0027-05
  1. ;;9002226.02101,"1198,68382-0028-01 ",.01)
  1. ;;68382-0028-01
  1. ;;9002226.02101,"1198,68382-0028-01 ",.02)
  1. ;;68382-0028-01
  1. ;;9002226.02101,"1198,68382-0028-05 ",.01)
  1. ;;68382-0028-05
  1. ;;9002226.02101,"1198,68382-0028-05 ",.02)
  1. ;;68382-0028-05
  1. ;;9002226.02101,"1198,68382-0028-10 ",.01)
  1. ;;68382-0028-10
  1. ;;9002226.02101,"1198,68382-0028-10 ",.02)
  1. ;;68382-0028-10
  1. ;;9002226.02101,"1198,68382-0029-01 ",.01)
  1. ;;68382-0029-01
  1. ;;9002226.02101,"1198,68382-0029-01 ",.02)
  1. ;;68382-0029-01
  1. ;;9002226.02101,"1198,68382-0029-05 ",.01)
  1. ;;68382-0029-05
  1. ;;9002226.02101,"1198,68382-0029-05 ",.02)
  1. ;;68382-0029-05
  1. ;;9002226.02101,"1198,68382-0029-10 ",.01)
  1. ;;68382-0029-10
  1. ;;9002226.02101,"1198,68382-0029-10 ",.02)
  1. ;;68382-0029-10
  1. ;;9002226.02101,"1198,68382-0030-01 ",.01)
  1. ;;68382-0030-01
  1. ;;9002226.02101,"1198,68382-0030-01 ",.02)
  1. ;;68382-0030-01
  1. ;;9002226.02101,"1198,68382-0030-05 ",.01)
  1. ;;68382-0030-05
  1. ;;9002226.02101,"1198,68382-0030-05 ",.02)
  1. ;;68382-0030-05
  1. ;;9002226.02101,"1198,68382-0030-10 ",.01)
  1. ;;68382-0030-10
  1. ;;9002226.02101,"1198,68382-0030-10 ",.02)
  1. ;;68382-0030-10
  1. ;;9002226.02101,"1198,68382-0039-05 ",.01)
  1. ;;68382-0039-05
  1. ;;9002226.02101,"1198,68382-0039-05 ",.02)
  1. ;;68382-0039-05
  1. ;;9002226.02101,"1198,68462-0159-01 ",.01)
  1. ;;68462-0159-01
  1. ;;9002226.02101,"1198,68462-0159-01 ",.02)
  1. ;;68462-0159-01
  1. ;;9002226.02101,"1198,68462-0159-05 ",.01)
  1. ;;68462-0159-05
  1. ;;9002226.02101,"1198,68462-0159-05 ",.02)
  1. ;;68462-0159-05
  1. ;;9002226.02101,"1198,68462-0159-10 ",.01)
  1. ;;68462-0159-10
  1. ;;9002226.02101,"1198,68462-0159-10 ",.02)
  1. ;;68462-0159-10
  1. ;;9002226.02101,"1198,68462-0159-18 ",.01)
  1. ;;68462-0159-18
  1. ;;9002226.02101,"1198,68462-0159-18 ",.02)
  1. ;;68462-0159-18
  1. ;;9002226.02101,"1198,68462-0159-90 ",.01)
  1. ;;68462-0159-90
  1. ;;9002226.02101,"1198,68462-0159-90 ",.02)
  1. ;;68462-0159-90
  1. ;;9002226.02101,"1198,68462-0160-01 ",.01)
  1. ;;68462-0160-01
  1. ;;9002226.02101,"1198,68462-0160-01 ",.02)
  1. ;;68462-0160-01
  1. ;;9002226.02101,"1198,68462-0160-05 ",.01)
  1. ;;68462-0160-05
  1. ;;9002226.02101,"1198,68462-0160-05 ",.02)
  1. ;;68462-0160-05
  1. ;;9002226.02101,"1198,68462-0160-10 ",.01)
  1. ;;68462-0160-10
  1. ;;9002226.02101,"1198,68462-0160-10 ",.02)
  1. ;;68462-0160-10
  1. ;;9002226.02101,"1198,68462-0160-18 ",.01)
  1. ;;68462-0160-18
  1. ;;9002226.02101,"1198,68462-0160-18 ",.02)
  1. ;;68462-0160-18
  1. ;;9002226.02101,"1198,68462-0160-90 ",.01)
  1. ;;68462-0160-90
  1. ;;9002226.02101,"1198,68462-0160-90 ",.02)
  1. ;;68462-0160-90
  1. ;;9002226.02101,"1198,68462-0161-01 ",.01)
  1. ;;68462-0161-01
  1. ;;9002226.02101,"1198,68462-0161-01 ",.02)
  1. ;;68462-0161-01
  1. ;;9002226.02101,"1198,68462-0161-05 ",.01)
  1. ;;68462-0161-05
  1. ;;9002226.02101,"1198,68462-0161-05 ",.02)
  1. ;;68462-0161-05
  1. ;;9002226.02101,"1198,68462-0161-10 ",.01)
  1. ;;68462-0161-10
  1. ;;9002226.02101,"1198,68462-0161-10 ",.02)
  1. ;;68462-0161-10
  1. ;;9002226.02101,"1198,68462-0161-18 ",.01)
  1. ;;68462-0161-18
  1. ;;9002226.02101,"1198,68462-0161-18 ",.02)
  1. ;;68462-0161-18
  1. ;;9002226.02101,"1198,68462-0161-90 ",.01)
  1. ;;68462-0161-90
  1. ;;9002226.02101,"1198,68462-0161-90 ",.02)
  1. ;;68462-0161-90
  1. ;;9002226.02101,"1198,68645-0120-59 ",.01)
  1. ;;68645-0120-59
  1. ;;9002226.02101,"1198,68645-0120-59 ",.02)
  1. ;;68645-0120-59
  1. ;;9002226.02101,"1198,68645-0290-59 ",.01)
  1. ;;68645-0290-59
  1. ;;9002226.02101,"1198,68645-0290-59 ",.02)
  1. ;;68645-0290-59
  1. ;;9002226.02101,"1198,68645-0300-59 ",.01)
  1. ;;68645-0300-59
  1. ;;9002226.02101,"1198,68645-0300-59 ",.02)
  1. ;;68645-0300-59