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

BGP61M24.m

Go to the documentation of this file.
  1. BGP61M24 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 18, 2015 ;
  1. ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
  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,"1224,68180-0467-01 ",.02)
  1. ;;68180-0467-01
  1. ;;9002226.02101,"1224,68180-0467-03 ",.01)
  1. ;;68180-0467-03
  1. ;;9002226.02101,"1224,68180-0467-03 ",.02)
  1. ;;68180-0467-03
  1. ;;9002226.02101,"1224,68180-0467-07 ",.01)
  1. ;;68180-0467-07
  1. ;;9002226.02101,"1224,68180-0467-07 ",.02)
  1. ;;68180-0467-07
  1. ;;9002226.02101,"1224,68180-0468-01 ",.01)
  1. ;;68180-0468-01
  1. ;;9002226.02101,"1224,68180-0468-01 ",.02)
  1. ;;68180-0468-01
  1. ;;9002226.02101,"1224,68180-0468-03 ",.01)
  1. ;;68180-0468-03
  1. ;;9002226.02101,"1224,68180-0468-03 ",.02)
  1. ;;68180-0468-03
  1. ;;9002226.02101,"1224,68180-0468-05 ",.01)
  1. ;;68180-0468-05
  1. ;;9002226.02101,"1224,68180-0468-05 ",.02)
  1. ;;68180-0468-05
  1. ;;9002226.02101,"1224,68180-0468-07 ",.01)
  1. ;;68180-0468-07
  1. ;;9002226.02101,"1224,68180-0468-07 ",.02)
  1. ;;68180-0468-07
  1. ;;9002226.02101,"1224,68180-0469-01 ",.01)
  1. ;;68180-0469-01
  1. ;;9002226.02101,"1224,68180-0469-01 ",.02)
  1. ;;68180-0469-01
  1. ;;9002226.02101,"1224,68180-0469-03 ",.01)
  1. ;;68180-0469-03
  1. ;;9002226.02101,"1224,68180-0469-03 ",.02)
  1. ;;68180-0469-03
  1. ;;9002226.02101,"1224,68180-0469-05 ",.01)
  1. ;;68180-0469-05
  1. ;;9002226.02101,"1224,68180-0469-05 ",.02)
  1. ;;68180-0469-05
  1. ;;9002226.02101,"1224,68180-0469-07 ",.01)
  1. ;;68180-0469-07
  1. ;;9002226.02101,"1224,68180-0469-07 ",.02)
  1. ;;68180-0469-07
  1. ;;9002226.02101,"1224,68180-0478-01 ",.01)
  1. ;;68180-0478-01
  1. ;;9002226.02101,"1224,68180-0478-01 ",.02)
  1. ;;68180-0478-01
  1. ;;9002226.02101,"1224,68180-0478-02 ",.01)
  1. ;;68180-0478-02
  1. ;;9002226.02101,"1224,68180-0478-02 ",.02)
  1. ;;68180-0478-02
  1. ;;9002226.02101,"1224,68180-0478-03 ",.01)
  1. ;;68180-0478-03
  1. ;;9002226.02101,"1224,68180-0478-03 ",.02)
  1. ;;68180-0478-03
  1. ;;9002226.02101,"1224,68180-0479-01 ",.01)
  1. ;;68180-0479-01
  1. ;;9002226.02101,"1224,68180-0479-01 ",.02)
  1. ;;68180-0479-01
  1. ;;9002226.02101,"1224,68180-0479-02 ",.01)
  1. ;;68180-0479-02
  1. ;;9002226.02101,"1224,68180-0479-02 ",.02)
  1. ;;68180-0479-02
  1. ;;9002226.02101,"1224,68180-0479-03 ",.01)
  1. ;;68180-0479-03
  1. ;;9002226.02101,"1224,68180-0479-03 ",.02)
  1. ;;68180-0479-03
  1. ;;9002226.02101,"1224,68180-0480-01 ",.01)
  1. ;;68180-0480-01
  1. ;;9002226.02101,"1224,68180-0480-01 ",.02)
  1. ;;68180-0480-01
  1. ;;9002226.02101,"1224,68180-0480-02 ",.01)
  1. ;;68180-0480-02
  1. ;;9002226.02101,"1224,68180-0480-02 ",.02)
  1. ;;68180-0480-02
  1. ;;9002226.02101,"1224,68180-0480-03 ",.01)
  1. ;;68180-0480-03
  1. ;;9002226.02101,"1224,68180-0480-03 ",.02)
  1. ;;68180-0480-03
  1. ;;9002226.02101,"1224,68180-0481-01 ",.01)
  1. ;;68180-0481-01
  1. ;;9002226.02101,"1224,68180-0481-01 ",.02)
  1. ;;68180-0481-01
  1. ;;9002226.02101,"1224,68180-0481-02 ",.01)
  1. ;;68180-0481-02
  1. ;;9002226.02101,"1224,68180-0481-02 ",.02)
  1. ;;68180-0481-02
  1. ;;9002226.02101,"1224,68180-0481-03 ",.01)
  1. ;;68180-0481-03
  1. ;;9002226.02101,"1224,68180-0481-03 ",.02)
  1. ;;68180-0481-03
  1. ;;9002226.02101,"1224,68180-0482-06 ",.01)
  1. ;;68180-0482-06
  1. ;;9002226.02101,"1224,68180-0482-06 ",.02)
  1. ;;68180-0482-06
  1. ;;9002226.02101,"1224,68180-0482-09 ",.01)
  1. ;;68180-0482-09
  1. ;;9002226.02101,"1224,68180-0482-09 ",.02)
  1. ;;68180-0482-09
  1. ;;9002226.02101,"1224,68180-0485-02 ",.01)
  1. ;;68180-0485-02
  1. ;;9002226.02101,"1224,68180-0485-02 ",.02)
  1. ;;68180-0485-02
  1. ;;9002226.02101,"1224,68180-0485-09 ",.01)
  1. ;;68180-0485-09
  1. ;;9002226.02101,"1224,68180-0485-09 ",.02)
  1. ;;68180-0485-09
  1. ;;9002226.02101,"1224,68180-0486-02 ",.01)
  1. ;;68180-0486-02
  1. ;;9002226.02101,"1224,68180-0486-02 ",.02)
  1. ;;68180-0486-02
  1. ;;9002226.02101,"1224,68180-0486-09 ",.01)
  1. ;;68180-0486-09
  1. ;;9002226.02101,"1224,68180-0486-09 ",.02)
  1. ;;68180-0486-09
  1. ;;9002226.02101,"1224,68180-0487-02 ",.01)
  1. ;;68180-0487-02
  1. ;;9002226.02101,"1224,68180-0487-02 ",.02)
  1. ;;68180-0487-02
  1. ;;9002226.02101,"1224,68180-0487-09 ",.01)
  1. ;;68180-0487-09
  1. ;;9002226.02101,"1224,68180-0487-09 ",.02)
  1. ;;68180-0487-09
  1. ;;9002226.02101,"1224,68180-0488-02 ",.01)
  1. ;;68180-0488-02
  1. ;;9002226.02101,"1224,68180-0488-02 ",.02)
  1. ;;68180-0488-02
  1. ;;9002226.02101,"1224,68180-0488-09 ",.01)
  1. ;;68180-0488-09
  1. ;;9002226.02101,"1224,68180-0488-09 ",.02)
  1. ;;68180-0488-09
  1. ;;9002226.02101,"1224,68258-6000-03 ",.01)
  1. ;;68258-6000-03
  1. ;;9002226.02101,"1224,68258-6000-03 ",.02)
  1. ;;68258-6000-03
  1. ;;9002226.02101,"1224,68258-6000-09 ",.01)
  1. ;;68258-6000-09
  1. ;;9002226.02101,"1224,68258-6000-09 ",.02)
  1. ;;68258-6000-09
  1. ;;9002226.02101,"1224,68258-6001-03 ",.01)
  1. ;;68258-6001-03
  1. ;;9002226.02101,"1224,68258-6001-03 ",.02)
  1. ;;68258-6001-03
  1. ;;9002226.02101,"1224,68258-6001-09 ",.01)
  1. ;;68258-6001-09
  1. ;;9002226.02101,"1224,68258-6001-09 ",.02)
  1. ;;68258-6001-09
  1. ;;9002226.02101,"1224,68258-6002-03 ",.01)
  1. ;;68258-6002-03
  1. ;;9002226.02101,"1224,68258-6002-03 ",.02)
  1. ;;68258-6002-03
  1. ;;9002226.02101,"1224,68258-6002-09 ",.01)
  1. ;;68258-6002-09
  1. ;;9002226.02101,"1224,68258-6002-09 ",.02)
  1. ;;68258-6002-09
  1. ;;9002226.02101,"1224,68258-6009-03 ",.01)
  1. ;;68258-6009-03
  1. ;;9002226.02101,"1224,68258-6009-03 ",.02)
  1. ;;68258-6009-03
  1. ;;9002226.02101,"1224,68258-6009-09 ",.01)
  1. ;;68258-6009-09
  1. ;;9002226.02101,"1224,68258-6009-09 ",.02)
  1. ;;68258-6009-09
  1. ;;9002226.02101,"1224,68258-6013-03 ",.01)
  1. ;;68258-6013-03
  1. ;;9002226.02101,"1224,68258-6013-03 ",.02)
  1. ;;68258-6013-03
  1. ;;9002226.02101,"1224,68258-6013-09 ",.01)
  1. ;;68258-6013-09
  1. ;;9002226.02101,"1224,68258-6013-09 ",.02)
  1. ;;68258-6013-09
  1. ;;9002226.02101,"1224,68258-6016-03 ",.01)
  1. ;;68258-6016-03
  1. ;;9002226.02101,"1224,68258-6016-03 ",.02)
  1. ;;68258-6016-03
  1. ;;9002226.02101,"1224,68258-6017-03 ",.01)
  1. ;;68258-6017-03
  1. ;;9002226.02101,"1224,68258-6017-03 ",.02)
  1. ;;68258-6017-03
  1. ;;9002226.02101,"1224,68258-6041-03 ",.01)
  1. ;;68258-6041-03
  1. ;;9002226.02101,"1224,68258-6041-03 ",.02)
  1. ;;68258-6041-03
  1. ;;9002226.02101,"1224,68258-6042-03 ",.01)
  1. ;;68258-6042-03
  1. ;;9002226.02101,"1224,68258-6042-03 ",.02)
  1. ;;68258-6042-03
  1. ;;9002226.02101,"1224,68258-6043-03 ",.01)
  1. ;;68258-6043-03
  1. ;;9002226.02101,"1224,68258-6043-03 ",.02)
  1. ;;68258-6043-03
  1. ;;9002226.02101,"1224,68258-6043-09 ",.01)
  1. ;;68258-6043-09
  1. ;;9002226.02101,"1224,68258-6043-09 ",.02)
  1. ;;68258-6043-09
  1. ;;9002226.02101,"1224,68258-6044-03 ",.01)
  1. ;;68258-6044-03
  1. ;;9002226.02101,"1224,68258-6044-03 ",.02)
  1. ;;68258-6044-03
  1. ;;9002226.02101,"1224,68258-6044-09 ",.01)
  1. ;;68258-6044-09
  1. ;;9002226.02101,"1224,68258-6044-09 ",.02)
  1. ;;68258-6044-09
  1. ;;9002226.02101,"1224,68258-6049-03 ",.01)
  1. ;;68258-6049-03
  1. ;;9002226.02101,"1224,68258-6049-03 ",.02)
  1. ;;68258-6049-03
  1. ;;9002226.02101,"1224,68258-6050-03 ",.01)
  1. ;;68258-6050-03
  1. ;;9002226.02101,"1224,68258-6050-03 ",.02)
  1. ;;68258-6050-03
  1. ;;9002226.02101,"1224,68258-6970-03 ",.01)
  1. ;;68258-6970-03
  1. ;;9002226.02101,"1224,68258-6970-03 ",.02)
  1. ;;68258-6970-03
  1. ;;9002226.02101,"1224,68258-6983-03 ",.01)
  1. ;;68258-6983-03
  1. ;;9002226.02101,"1224,68258-6983-03 ",.02)
  1. ;;68258-6983-03
  1. ;;9002226.02101,"1224,68258-6984-03 ",.01)
  1. ;;68258-6984-03
  1. ;;9002226.02101,"1224,68258-6984-03 ",.02)
  1. ;;68258-6984-03
  1. ;;9002226.02101,"1224,68258-6985-09 ",.01)
  1. ;;68258-6985-09
  1. ;;9002226.02101,"1224,68258-6985-09 ",.02)
  1. ;;68258-6985-09
  1. ;;9002226.02101,"1224,68258-6992-09 ",.01)
  1. ;;68258-6992-09
  1. ;;9002226.02101,"1224,68258-6992-09 ",.02)
  1. ;;68258-6992-09
  1. ;;9002226.02101,"1224,68258-6993-09 ",.01)
  1. ;;68258-6993-09
  1. ;;9002226.02101,"1224,68258-6993-09 ",.02)
  1. ;;68258-6993-09
  1. ;;9002226.02101,"1224,68382-0065-05 ",.01)
  1. ;;68382-0065-05
  1. ;;9002226.02101,"1224,68382-0065-05 ",.02)
  1. ;;68382-0065-05
  1. ;;9002226.02101,"1224,68382-0065-06 ",.01)
  1. ;;68382-0065-06
  1. ;;9002226.02101,"1224,68382-0065-06 ",.02)
  1. ;;68382-0065-06
  1. ;;9002226.02101,"1224,68382-0065-10 ",.01)
  1. ;;68382-0065-10
  1. ;;9002226.02101,"1224,68382-0065-10 ",.02)
  1. ;;68382-0065-10
  1. ;;9002226.02101,"1224,68382-0065-14 ",.01)
  1. ;;68382-0065-14
  1. ;;9002226.02101,"1224,68382-0065-14 ",.02)
  1. ;;68382-0065-14
  1. ;;9002226.02101,"1224,68382-0065-16 ",.01)
  1. ;;68382-0065-16
  1. ;;9002226.02101,"1224,68382-0065-16 ",.02)
  1. ;;68382-0065-16
  1. ;;9002226.02101,"1224,68382-0066-05 ",.01)
  1. ;;68382-0066-05
  1. ;;9002226.02101,"1224,68382-0066-05 ",.02)
  1. ;;68382-0066-05
  1. ;;9002226.02101,"1224,68382-0066-06 ",.01)
  1. ;;68382-0066-06
  1. ;;9002226.02101,"1224,68382-0066-06 ",.02)
  1. ;;68382-0066-06
  1. ;;9002226.02101,"1224,68382-0066-10 ",.01)
  1. ;;68382-0066-10
  1. ;;9002226.02101,"1224,68382-0066-10 ",.02)
  1. ;;68382-0066-10
  1. ;;9002226.02101,"1224,68382-0066-14 ",.01)
  1. ;;68382-0066-14
  1. ;;9002226.02101,"1224,68382-0066-14 ",.02)
  1. ;;68382-0066-14
  1. ;;9002226.02101,"1224,68382-0066-16 ",.01)
  1. ;;68382-0066-16
  1. ;;9002226.02101,"1224,68382-0066-16 ",.02)
  1. ;;68382-0066-16
  1. ;;9002226.02101,"1224,68382-0066-24 ",.01)
  1. ;;68382-0066-24
  1. ;;9002226.02101,"1224,68382-0066-24 ",.02)
  1. ;;68382-0066-24
  1. ;;9002226.02101,"1224,68382-0067-05 ",.01)
  1. ;;68382-0067-05
  1. ;;9002226.02101,"1224,68382-0067-05 ",.02)
  1. ;;68382-0067-05
  1. ;;9002226.02101,"1224,68382-0067-06 ",.01)
  1. ;;68382-0067-06
  1. ;;9002226.02101,"1224,68382-0067-06 ",.02)
  1. ;;68382-0067-06
  1. ;;9002226.02101,"1224,68382-0067-10 ",.01)
  1. ;;68382-0067-10
  1. ;;9002226.02101,"1224,68382-0067-10 ",.02)
  1. ;;68382-0067-10
  1. ;;9002226.02101,"1224,68382-0067-14 ",.01)
  1. ;;68382-0067-14
  1. ;;9002226.02101,"1224,68382-0067-14 ",.02)
  1. ;;68382-0067-14
  1. ;;9002226.02101,"1224,68382-0067-16 ",.01)
  1. ;;68382-0067-16
  1. ;;9002226.02101,"1224,68382-0067-16 ",.02)
  1. ;;68382-0067-16
  1. ;;9002226.02101,"1224,68382-0067-24 ",.01)
  1. ;;68382-0067-24
  1. ;;9002226.02101,"1224,68382-0067-24 ",.02)
  1. ;;68382-0067-24
  1. ;;9002226.02101,"1224,68382-0068-05 ",.01)
  1. ;;68382-0068-05
  1. ;;9002226.02101,"1224,68382-0068-05 ",.02)
  1. ;;68382-0068-05
  1. ;;9002226.02101,"1224,68382-0068-06 ",.01)
  1. ;;68382-0068-06
  1. ;;9002226.02101,"1224,68382-0068-06 ",.02)
  1. ;;68382-0068-06
  1. ;;9002226.02101,"1224,68382-0068-10 ",.01)
  1. ;;68382-0068-10
  1. ;;9002226.02101,"1224,68382-0068-10 ",.02)
  1. ;;68382-0068-10
  1. ;;9002226.02101,"1224,68382-0068-14 ",.01)
  1. ;;68382-0068-14
  1. ;;9002226.02101,"1224,68382-0068-14 ",.02)
  1. ;;68382-0068-14
  1. ;;9002226.02101,"1224,68382-0068-16 ",.01)
  1. ;;68382-0068-16
  1. ;;9002226.02101,"1224,68382-0068-16 ",.02)
  1. ;;68382-0068-16
  1. ;;9002226.02101,"1224,68382-0068-40 ",.01)
  1. ;;68382-0068-40
  1. ;;9002226.02101,"1224,68382-0068-40 ",.02)
  1. ;;68382-0068-40
  1. ;;9002226.02101,"1224,68382-0069-05 ",.01)
  1. ;;68382-0069-05
  1. ;;9002226.02101,"1224,68382-0069-05 ",.02)
  1. ;;68382-0069-05
  1. ;;9002226.02101,"1224,68382-0069-06 ",.01)
  1. ;;68382-0069-06
  1. ;;9002226.02101,"1224,68382-0069-06 ",.02)
  1. ;;68382-0069-06
  1. ;;9002226.02101,"1224,68382-0069-10 ",.01)
  1. ;;68382-0069-10
  1. ;;9002226.02101,"1224,68382-0069-10 ",.02)
  1. ;;68382-0069-10
  1. ;;9002226.02101,"1224,68382-0069-14 ",.01)
  1. ;;68382-0069-14
  1. ;;9002226.02101,"1224,68382-0069-14 ",.02)
  1. ;;68382-0069-14
  1. ;;9002226.02101,"1224,68382-0069-16 ",.01)
  1. ;;68382-0069-16
  1. ;;9002226.02101,"1224,68382-0069-16 ",.02)
  1. ;;68382-0069-16
  1. ;;9002226.02101,"1224,68382-0070-05 ",.01)
  1. ;;68382-0070-05
  1. ;;9002226.02101,"1224,68382-0070-05 ",.02)
  1. ;;68382-0070-05
  1. ;;9002226.02101,"1224,68382-0070-16 ",.01)
  1. ;;68382-0070-16
  1. ;;9002226.02101,"1224,68382-0070-16 ",.02)
  1. ;;68382-0070-16
  1. ;;9002226.02101,"1224,68382-0071-05 ",.01)
  1. ;;68382-0071-05
  1. ;;9002226.02101,"1224,68382-0071-05 ",.02)
  1. ;;68382-0071-05
  1. ;;9002226.02101,"1224,68382-0071-16 ",.01)
  1. ;;68382-0071-16
  1. ;;9002226.02101,"1224,68382-0071-16 ",.02)
  1. ;;68382-0071-16
  1. ;;9002226.02101,"1224,68382-0072-05 ",.01)
  1. ;;68382-0072-05
  1. ;;9002226.02101,"1224,68382-0072-05 ",.02)
  1. ;;68382-0072-05
  1. ;;9002226.02101,"1224,68382-0072-16 ",.01)
  1. ;;68382-0072-16
  1. ;;9002226.02101,"1224,68382-0072-16 ",.02)
  1. ;;68382-0072-16
  1. ;;9002226.02101,"1224,68382-0073-05 ",.01)
  1. ;;68382-0073-05
  1. ;;9002226.02101,"1224,68382-0073-05 ",.02)
  1. ;;68382-0073-05
  1. ;;9002226.02101,"1224,68382-0073-16 ",.01)
  1. ;;68382-0073-16
  1. ;;9002226.02101,"1224,68382-0073-16 ",.02)
  1. ;;68382-0073-16
  1. ;;9002226.02101,"1224,68462-0195-05 ",.01)
  1. ;;68462-0195-05
  1. ;;9002226.02101,"1224,68462-0195-05 ",.02)
  1. ;;68462-0195-05
  1. ;;9002226.02101,"1224,68462-0195-90 ",.01)
  1. ;;68462-0195-90
  1. ;;9002226.02101,"1224,68462-0195-90 ",.02)
  1. ;;68462-0195-90
  1. ;;9002226.02101,"1224,68462-0196-05 ",.01)
  1. ;;68462-0196-05
  1. ;;9002226.02101,"1224,68462-0196-05 ",.02)
  1. ;;68462-0196-05
  1. ;;9002226.02101,"1224,68462-0196-90 ",.01)
  1. ;;68462-0196-90
  1. ;;9002226.02101,"1224,68462-0196-90 ",.02)
  1. ;;68462-0196-90
  1. ;;9002226.02101,"1224,68462-0197-05 ",.01)
  1. ;;68462-0197-05
  1. ;;9002226.02101,"1224,68462-0197-05 ",.02)
  1. ;;68462-0197-05
  1. ;;9002226.02101,"1224,68462-0197-90 ",.01)
  1. ;;68462-0197-90
  1. ;;9002226.02101,"1224,68462-0197-90 ",.02)
  1. ;;68462-0197-90
  1. ;;9002226.02101,"1224,68462-0198-05 ",.01)
  1. ;;68462-0198-05
  1. ;;9002226.02101,"1224,68462-0198-05 ",.02)
  1. ;;68462-0198-05
  1. ;;9002226.02101,"1224,68462-0198-90 ",.01)
  1. ;;68462-0198-90