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

BGP71T25.m

Go to the documentation of this file.
  1. BGP71T25 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 11, 2016 ;
  1. ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
  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,"1218,57664-0166-08 ",.01)
  1. ;;57664-0166-08
  1. ;;9002226.02101,"1218,57664-0166-08 ",.02)
  1. ;;57664-0166-08
  1. ;;9002226.02101,"1218,57664-0166-18 ",.01)
  1. ;;57664-0166-18
  1. ;;9002226.02101,"1218,57664-0166-18 ",.02)
  1. ;;57664-0166-18
  1. ;;9002226.02101,"1218,57664-0166-52 ",.01)
  1. ;;57664-0166-52
  1. ;;9002226.02101,"1218,57664-0166-52 ",.02)
  1. ;;57664-0166-52
  1. ;;9002226.02101,"1218,57664-0166-58 ",.01)
  1. ;;57664-0166-58
  1. ;;9002226.02101,"1218,57664-0166-58 ",.02)
  1. ;;57664-0166-58
  1. ;;9002226.02101,"1218,57664-0167-08 ",.01)
  1. ;;57664-0167-08
  1. ;;9002226.02101,"1218,57664-0167-08 ",.02)
  1. ;;57664-0167-08
  1. ;;9002226.02101,"1218,57664-0167-18 ",.01)
  1. ;;57664-0167-18
  1. ;;9002226.02101,"1218,57664-0167-18 ",.02)
  1. ;;57664-0167-18
  1. ;;9002226.02101,"1218,57664-0167-52 ",.01)
  1. ;;57664-0167-52
  1. ;;9002226.02101,"1218,57664-0167-52 ",.02)
  1. ;;57664-0167-52
  1. ;;9002226.02101,"1218,57664-0167-58 ",.01)
  1. ;;57664-0167-58
  1. ;;9002226.02101,"1218,57664-0167-58 ",.02)
  1. ;;57664-0167-58
  1. ;;9002226.02101,"1218,57664-0242-13 ",.01)
  1. ;;57664-0242-13
  1. ;;9002226.02101,"1218,57664-0242-13 ",.02)
  1. ;;57664-0242-13
  1. ;;9002226.02101,"1218,57664-0242-18 ",.01)
  1. ;;57664-0242-18
  1. ;;9002226.02101,"1218,57664-0242-18 ",.02)
  1. ;;57664-0242-18
  1. ;;9002226.02101,"1218,57664-0242-88 ",.01)
  1. ;;57664-0242-88
  1. ;;9002226.02101,"1218,57664-0242-88 ",.02)
  1. ;;57664-0242-88
  1. ;;9002226.02101,"1218,57664-0244-13 ",.01)
  1. ;;57664-0244-13
  1. ;;9002226.02101,"1218,57664-0244-13 ",.02)
  1. ;;57664-0244-13
  1. ;;9002226.02101,"1218,57664-0244-18 ",.01)
  1. ;;57664-0244-18
  1. ;;9002226.02101,"1218,57664-0244-18 ",.02)
  1. ;;57664-0244-18
  1. ;;9002226.02101,"1218,57664-0244-88 ",.01)
  1. ;;57664-0244-88
  1. ;;9002226.02101,"1218,57664-0244-88 ",.02)
  1. ;;57664-0244-88
  1. ;;9002226.02101,"1218,57664-0245-13 ",.01)
  1. ;;57664-0245-13
  1. ;;9002226.02101,"1218,57664-0245-13 ",.02)
  1. ;;57664-0245-13
  1. ;;9002226.02101,"1218,57664-0245-18 ",.01)
  1. ;;57664-0245-18
  1. ;;9002226.02101,"1218,57664-0245-18 ",.02)
  1. ;;57664-0245-18
  1. ;;9002226.02101,"1218,57664-0245-88 ",.01)
  1. ;;57664-0245-88
  1. ;;9002226.02101,"1218,57664-0245-88 ",.02)
  1. ;;57664-0245-88
  1. ;;9002226.02101,"1218,57664-0247-13 ",.01)
  1. ;;57664-0247-13
  1. ;;9002226.02101,"1218,57664-0247-13 ",.02)
  1. ;;57664-0247-13
  1. ;;9002226.02101,"1218,57664-0247-18 ",.01)
  1. ;;57664-0247-18
  1. ;;9002226.02101,"1218,57664-0247-18 ",.02)
  1. ;;57664-0247-18
  1. ;;9002226.02101,"1218,57664-0247-88 ",.01)
  1. ;;57664-0247-88
  1. ;;9002226.02101,"1218,57664-0247-88 ",.02)
  1. ;;57664-0247-88
  1. ;;9002226.02101,"1218,57664-0477-08 ",.01)
  1. ;;57664-0477-08
  1. ;;9002226.02101,"1218,57664-0477-08 ",.02)
  1. ;;57664-0477-08
  1. ;;9002226.02101,"1218,57664-0477-18 ",.01)
  1. ;;57664-0477-18
  1. ;;9002226.02101,"1218,57664-0477-18 ",.02)
  1. ;;57664-0477-18
  1. ;;9002226.02101,"1218,57664-0477-52 ",.01)
  1. ;;57664-0477-52
  1. ;;9002226.02101,"1218,57664-0477-52 ",.02)
  1. ;;57664-0477-52
  1. ;;9002226.02101,"1218,57664-0477-58 ",.01)
  1. ;;57664-0477-58
  1. ;;9002226.02101,"1218,57664-0477-58 ",.02)
  1. ;;57664-0477-58
  1. ;;9002226.02101,"1218,57664-0506-08 ",.01)
  1. ;;57664-0506-08
  1. ;;9002226.02101,"1218,57664-0506-08 ",.02)
  1. ;;57664-0506-08
  1. ;;9002226.02101,"1218,57664-0506-18 ",.01)
  1. ;;57664-0506-18
  1. ;;9002226.02101,"1218,57664-0506-18 ",.02)
  1. ;;57664-0506-18
  1. ;;9002226.02101,"1218,57664-0506-52 ",.01)
  1. ;;57664-0506-52
  1. ;;9002226.02101,"1218,57664-0506-52 ",.02)
  1. ;;57664-0506-52
  1. ;;9002226.02101,"1218,57664-0506-58 ",.01)
  1. ;;57664-0506-58
  1. ;;9002226.02101,"1218,57664-0506-58 ",.02)
  1. ;;57664-0506-58
  1. ;;9002226.02101,"1218,57664-0655-88 ",.01)
  1. ;;57664-0655-88
  1. ;;9002226.02101,"1218,57664-0655-88 ",.02)
  1. ;;57664-0655-88
  1. ;;9002226.02101,"1218,57664-0656-88 ",.01)
  1. ;;57664-0656-88
  1. ;;9002226.02101,"1218,57664-0656-88 ",.02)
  1. ;;57664-0656-88
  1. ;;9002226.02101,"1218,58118-0110-03 ",.01)
  1. ;;58118-0110-03
  1. ;;9002226.02101,"1218,58118-0110-03 ",.02)
  1. ;;58118-0110-03
  1. ;;9002226.02101,"1218,58118-0110-09 ",.01)
  1. ;;58118-0110-09
  1. ;;9002226.02101,"1218,58118-0110-09 ",.02)
  1. ;;58118-0110-09
  1. ;;9002226.02101,"1218,58118-0163-03 ",.01)
  1. ;;58118-0163-03
  1. ;;9002226.02101,"1218,58118-0163-03 ",.02)
  1. ;;58118-0163-03
  1. ;;9002226.02101,"1218,58118-0163-09 ",.01)
  1. ;;58118-0163-09
  1. ;;9002226.02101,"1218,58118-0163-09 ",.02)
  1. ;;58118-0163-09
  1. ;;9002226.02101,"1218,58118-0164-03 ",.01)
  1. ;;58118-0164-03
  1. ;;9002226.02101,"1218,58118-0164-03 ",.02)
  1. ;;58118-0164-03
  1. ;;9002226.02101,"1218,58118-0164-09 ",.01)
  1. ;;58118-0164-09
  1. ;;9002226.02101,"1218,58118-0164-09 ",.02)
  1. ;;58118-0164-09
  1. ;;9002226.02101,"1218,58118-0165-03 ",.01)
  1. ;;58118-0165-03
  1. ;;9002226.02101,"1218,58118-0165-03 ",.02)
  1. ;;58118-0165-03
  1. ;;9002226.02101,"1218,58118-0165-09 ",.01)
  1. ;;58118-0165-09
  1. ;;9002226.02101,"1218,58118-0165-09 ",.02)
  1. ;;58118-0165-09
  1. ;;9002226.02101,"1218,58118-0167-06 ",.01)
  1. ;;58118-0167-06
  1. ;;9002226.02101,"1218,58118-0167-06 ",.02)
  1. ;;58118-0167-06
  1. ;;9002226.02101,"1218,58118-0167-08 ",.01)
  1. ;;58118-0167-08
  1. ;;9002226.02101,"1218,58118-0167-08 ",.02)
  1. ;;58118-0167-08
  1. ;;9002226.02101,"1218,58118-0405-03 ",.01)
  1. ;;58118-0405-03
  1. ;;9002226.02101,"1218,58118-0405-03 ",.02)
  1. ;;58118-0405-03
  1. ;;9002226.02101,"1218,58118-0477-06 ",.01)
  1. ;;58118-0477-06
  1. ;;9002226.02101,"1218,58118-0477-06 ",.02)
  1. ;;58118-0477-06
  1. ;;9002226.02101,"1218,58118-0477-08 ",.01)
  1. ;;58118-0477-08
  1. ;;9002226.02101,"1218,58118-0477-08 ",.02)
  1. ;;58118-0477-08
  1. ;;9002226.02101,"1218,58118-0477-09 ",.01)
  1. ;;58118-0477-09
  1. ;;9002226.02101,"1218,58118-0477-09 ",.02)
  1. ;;58118-0477-09
  1. ;;9002226.02101,"1218,58118-0506-03 ",.01)
  1. ;;58118-0506-03
  1. ;;9002226.02101,"1218,58118-0506-03 ",.02)
  1. ;;58118-0506-03
  1. ;;9002226.02101,"1218,58118-0506-09 ",.01)
  1. ;;58118-0506-09
  1. ;;9002226.02101,"1218,58118-0506-09 ",.02)
  1. ;;58118-0506-09
  1. ;;9002226.02101,"1218,58118-0621-03 ",.01)
  1. ;;58118-0621-03
  1. ;;9002226.02101,"1218,58118-0621-03 ",.02)
  1. ;;58118-0621-03
  1. ;;9002226.02101,"1218,58118-0621-09 ",.01)
  1. ;;58118-0621-09
  1. ;;9002226.02101,"1218,58118-0621-09 ",.02)
  1. ;;58118-0621-09
  1. ;;9002226.02101,"1218,58118-0622-03 ",.01)
  1. ;;58118-0622-03
  1. ;;9002226.02101,"1218,58118-0622-03 ",.02)
  1. ;;58118-0622-03
  1. ;;9002226.02101,"1218,58118-0622-09 ",.01)
  1. ;;58118-0622-09
  1. ;;9002226.02101,"1218,58118-0622-09 ",.02)
  1. ;;58118-0622-09
  1. ;;9002226.02101,"1218,58118-0623-09 ",.01)
  1. ;;58118-0623-09
  1. ;;9002226.02101,"1218,58118-0623-09 ",.02)
  1. ;;58118-0623-09
  1. ;;9002226.02101,"1218,58118-0734-03 ",.01)
  1. ;;58118-0734-03
  1. ;;9002226.02101,"1218,58118-0734-03 ",.02)
  1. ;;58118-0734-03
  1. ;;9002226.02101,"1218,58118-0736-03 ",.01)
  1. ;;58118-0736-03
  1. ;;9002226.02101,"1218,58118-0736-03 ",.02)
  1. ;;58118-0736-03
  1. ;;9002226.02101,"1218,58517-0320-30 ",.01)
  1. ;;58517-0320-30
  1. ;;9002226.02101,"1218,58517-0320-30 ",.02)
  1. ;;58517-0320-30
  1. ;;9002226.02101,"1218,58864-0016-01 ",.01)
  1. ;;58864-0016-01
  1. ;;9002226.02101,"1218,58864-0016-01 ",.02)
  1. ;;58864-0016-01
  1. ;;9002226.02101,"1218,58864-0016-28 ",.01)
  1. ;;58864-0016-28
  1. ;;9002226.02101,"1218,58864-0016-28 ",.02)
  1. ;;58864-0016-28
  1. ;;9002226.02101,"1218,58864-0016-30 ",.01)
  1. ;;58864-0016-30
  1. ;;9002226.02101,"1218,58864-0016-30 ",.02)
  1. ;;58864-0016-30
  1. ;;9002226.02101,"1218,58864-0016-60 ",.01)
  1. ;;58864-0016-60
  1. ;;9002226.02101,"1218,58864-0016-60 ",.02)
  1. ;;58864-0016-60
  1. ;;9002226.02101,"1218,58864-0065-01 ",.01)
  1. ;;58864-0065-01
  1. ;;9002226.02101,"1218,58864-0065-01 ",.02)
  1. ;;58864-0065-01
  1. ;;9002226.02101,"1218,58864-0065-30 ",.01)
  1. ;;58864-0065-30
  1. ;;9002226.02101,"1218,58864-0065-30 ",.02)
  1. ;;58864-0065-30
  1. ;;9002226.02101,"1218,58864-0363-30 ",.01)
  1. ;;58864-0363-30
  1. ;;9002226.02101,"1218,58864-0363-30 ",.02)
  1. ;;58864-0363-30
  1. ;;9002226.02101,"1218,58864-0645-56 ",.01)
  1. ;;58864-0645-56
  1. ;;9002226.02101,"1218,58864-0645-56 ",.02)
  1. ;;58864-0645-56
  1. ;;9002226.02101,"1218,58864-0680-30 ",.01)
  1. ;;58864-0680-30
  1. ;;9002226.02101,"1218,58864-0680-30 ",.02)
  1. ;;58864-0680-30
  1. ;;9002226.02101,"1218,58864-0695-30 ",.01)
  1. ;;58864-0695-30
  1. ;;9002226.02101,"1218,58864-0695-30 ",.02)
  1. ;;58864-0695-30
  1. ;;9002226.02101,"1218,58864-0717-30 ",.01)
  1. ;;58864-0717-30
  1. ;;9002226.02101,"1218,58864-0717-30 ",.02)
  1. ;;58864-0717-30
  1. ;;9002226.02101,"1218,58864-0727-30 ",.01)
  1. ;;58864-0727-30
  1. ;;9002226.02101,"1218,58864-0727-30 ",.02)
  1. ;;58864-0727-30
  1. ;;9002226.02101,"1218,58864-0737-30 ",.01)
  1. ;;58864-0737-30
  1. ;;9002226.02101,"1218,58864-0737-30 ",.02)
  1. ;;58864-0737-30
  1. ;;9002226.02101,"1218,58864-0749-30 ",.01)
  1. ;;58864-0749-30
  1. ;;9002226.02101,"1218,58864-0749-30 ",.02)
  1. ;;58864-0749-30
  1. ;;9002226.02101,"1218,58864-0749-90 ",.01)
  1. ;;58864-0749-90
  1. ;;9002226.02101,"1218,58864-0749-90 ",.02)
  1. ;;58864-0749-90
  1. ;;9002226.02101,"1218,58864-0759-30 ",.01)
  1. ;;58864-0759-30
  1. ;;9002226.02101,"1218,58864-0759-30 ",.02)
  1. ;;58864-0759-30
  1. ;;9002226.02101,"1218,58864-0765-30 ",.01)
  1. ;;58864-0765-30
  1. ;;9002226.02101,"1218,58864-0765-30 ",.02)
  1. ;;58864-0765-30
  1. ;;9002226.02101,"1218,58864-0784-30 ",.01)
  1. ;;58864-0784-30
  1. ;;9002226.02101,"1218,58864-0784-30 ",.02)
  1. ;;58864-0784-30
  1. ;;9002226.02101,"1218,59212-0087-30 ",.01)
  1. ;;59212-0087-30
  1. ;;9002226.02101,"1218,59212-0087-30 ",.02)
  1. ;;59212-0087-30
  1. ;;9002226.02101,"1218,59212-0095-30 ",.01)
  1. ;;59212-0095-30
  1. ;;9002226.02101,"1218,59212-0095-30 ",.02)
  1. ;;59212-0095-30
  1. ;;9002226.02101,"1218,59212-0097-30 ",.01)
  1. ;;59212-0097-30
  1. ;;9002226.02101,"1218,59212-0097-30 ",.02)
  1. ;;59212-0097-30
  1. ;;9002226.02101,"1218,59762-0810-01 ",.01)
  1. ;;59762-0810-01
  1. ;;9002226.02101,"1218,59762-0810-01 ",.02)
  1. ;;59762-0810-01
  1. ;;9002226.02101,"1218,59762-0811-01 ",.01)
  1. ;;59762-0811-01
  1. ;;9002226.02101,"1218,59762-0811-01 ",.02)
  1. ;;59762-0811-01
  1. ;;9002226.02101,"1218,59762-0812-01 ",.01)
  1. ;;59762-0812-01
  1. ;;9002226.02101,"1218,59762-0812-01 ",.02)
  1. ;;59762-0812-01
  1. ;;9002226.02101,"1218,59762-1258-01 ",.01)
  1. ;;59762-1258-01
  1. ;;9002226.02101,"1218,59762-1258-01 ",.02)
  1. ;;59762-1258-01
  1. ;;9002226.02101,"1218,59762-1258-02 ",.01)
  1. ;;59762-1258-02
  1. ;;9002226.02101,"1218,59762-1258-02 ",.02)
  1. ;;59762-1258-02
  1. ;;9002226.02101,"1218,59762-1261-01 ",.01)
  1. ;;59762-1261-01
  1. ;;9002226.02101,"1218,59762-1261-01 ",.02)
  1. ;;59762-1261-01
  1. ;;9002226.02101,"1218,59762-1261-02 ",.01)
  1. ;;59762-1261-02
  1. ;;9002226.02101,"1218,59762-1261-02 ",.02)
  1. ;;59762-1261-02
  1. ;;9002226.02101,"1218,59762-1300-01 ",.01)
  1. ;;59762-1300-01
  1. ;;9002226.02101,"1218,59762-1300-01 ",.02)
  1. ;;59762-1300-01
  1. ;;9002226.02101,"1218,59762-1300-03 ",.01)
  1. ;;59762-1300-03
  1. ;;9002226.02101,"1218,59762-1300-03 ",.02)
  1. ;;59762-1300-03
  1. ;;9002226.02101,"1218,59762-1301-01 ",.01)
  1. ;;59762-1301-01
  1. ;;9002226.02101,"1218,59762-1301-01 ",.02)
  1. ;;59762-1301-01
  1. ;;9002226.02101,"1218,59762-1301-03 ",.01)
  1. ;;59762-1301-03
  1. ;;9002226.02101,"1218,59762-1301-03 ",.02)
  1. ;;59762-1301-03
  1. ;;9002226.02101,"1218,59762-1302-01 ",.01)
  1. ;;59762-1302-01
  1. ;;9002226.02101,"1218,59762-1302-01 ",.02)
  1. ;;59762-1302-01
  1. ;;9002226.02101,"1218,59762-1302-03 ",.01)
  1. ;;59762-1302-03
  1. ;;9002226.02101,"1218,59762-1302-03 ",.02)
  1. ;;59762-1302-03
  1. ;;9002226.02101,"1218,60429-0025-10 ",.01)
  1. ;;60429-0025-10
  1. ;;9002226.02101,"1218,60429-0025-10 ",.02)
  1. ;;60429-0025-10
  1. ;;9002226.02101,"1218,60429-0025-90 ",.01)
  1. ;;60429-0025-90
  1. ;;9002226.02101,"1218,60429-0025-90 ",.02)
  1. ;;60429-0025-90
  1. ;;9002226.02101,"1218,60429-0026-10 ",.01)
  1. ;;60429-0026-10
  1. ;;9002226.02101,"1218,60429-0026-10 ",.02)
  1. ;;60429-0026-10
  1. ;;9002226.02101,"1218,60429-0026-90 ",.01)
  1. ;;60429-0026-90
  1. ;;9002226.02101,"1218,60429-0026-90 ",.02)
  1. ;;60429-0026-90
  1. ;;9002226.02101,"1218,60429-0027-10 ",.01)
  1. ;;60429-0027-10
  1. ;;9002226.02101,"1218,60429-0027-10 ",.02)
  1. ;;60429-0027-10
  1. ;;9002226.02101,"1218,60429-0027-90 ",.01)
  1. ;;60429-0027-90
  1. ;;9002226.02101,"1218,60429-0027-90 ",.02)
  1. ;;60429-0027-90
  1. ;;9002226.02101,"1218,60429-0126-01 ",.01)
  1. ;;60429-0126-01