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

BGP51N7.m

Go to the documentation of this file.
BGP51N7 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 19, 2014;
 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
 ;
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,"1737,58016-0235-20 ",.01)
 ;;58016-0235-20
 ;;9002226.02101,"1737,58016-0235-20 ",.02)
 ;;58016-0235-20
 ;;9002226.02101,"1737,58016-0235-30 ",.01)
 ;;58016-0235-30
 ;;9002226.02101,"1737,58016-0235-30 ",.02)
 ;;58016-0235-30
 ;;9002226.02101,"1737,58016-0235-60 ",.01)
 ;;58016-0235-60
 ;;9002226.02101,"1737,58016-0235-60 ",.02)
 ;;58016-0235-60
 ;;9002226.02101,"1737,58016-0235-75 ",.01)
 ;;58016-0235-75
 ;;9002226.02101,"1737,58016-0235-75 ",.02)
 ;;58016-0235-75
 ;;9002226.02101,"1737,58016-0236-00 ",.01)
 ;;58016-0236-00
 ;;9002226.02101,"1737,58016-0236-00 ",.02)
 ;;58016-0236-00
 ;;9002226.02101,"1737,58016-0236-14 ",.01)
 ;;58016-0236-14
 ;;9002226.02101,"1737,58016-0236-14 ",.02)
 ;;58016-0236-14
 ;;9002226.02101,"1737,58016-0236-20 ",.01)
 ;;58016-0236-20
 ;;9002226.02101,"1737,58016-0236-20 ",.02)
 ;;58016-0236-20
 ;;9002226.02101,"1737,58016-0236-21 ",.01)
 ;;58016-0236-21
 ;;9002226.02101,"1737,58016-0236-21 ",.02)
 ;;58016-0236-21
 ;;9002226.02101,"1737,58016-0236-30 ",.01)
 ;;58016-0236-30
 ;;9002226.02101,"1737,58016-0236-30 ",.02)
 ;;58016-0236-30
 ;;9002226.02101,"1737,58016-0236-40 ",.01)
 ;;58016-0236-40
 ;;9002226.02101,"1737,58016-0236-40 ",.02)
 ;;58016-0236-40
 ;;9002226.02101,"1737,58016-0236-60 ",.01)
 ;;58016-0236-60
 ;;9002226.02101,"1737,58016-0236-60 ",.02)
 ;;58016-0236-60
 ;;9002226.02101,"1737,58016-0237-00 ",.01)
 ;;58016-0237-00
 ;;9002226.02101,"1737,58016-0237-00 ",.02)
 ;;58016-0237-00
 ;;9002226.02101,"1737,58016-0237-07 ",.01)
 ;;58016-0237-07
 ;;9002226.02101,"1737,58016-0237-07 ",.02)
 ;;58016-0237-07
 ;;9002226.02101,"1737,58016-0237-10 ",.01)
 ;;58016-0237-10
 ;;9002226.02101,"1737,58016-0237-10 ",.02)
 ;;58016-0237-10
 ;;9002226.02101,"1737,58016-0237-12 ",.01)
 ;;58016-0237-12
 ;;9002226.02101,"1737,58016-0237-12 ",.02)
 ;;58016-0237-12
 ;;9002226.02101,"1737,58016-0237-14 ",.01)
 ;;58016-0237-14
 ;;9002226.02101,"1737,58016-0237-14 ",.02)
 ;;58016-0237-14
 ;;9002226.02101,"1737,58016-0237-15 ",.01)
 ;;58016-0237-15
 ;;9002226.02101,"1737,58016-0237-15 ",.02)
 ;;58016-0237-15
 ;;9002226.02101,"1737,58016-0237-20 ",.01)
 ;;58016-0237-20
 ;;9002226.02101,"1737,58016-0237-20 ",.02)
 ;;58016-0237-20
 ;;9002226.02101,"1737,58016-0237-21 ",.01)
 ;;58016-0237-21
 ;;9002226.02101,"1737,58016-0237-21 ",.02)
 ;;58016-0237-21
 ;;9002226.02101,"1737,58016-0237-24 ",.01)
 ;;58016-0237-24
 ;;9002226.02101,"1737,58016-0237-24 ",.02)
 ;;58016-0237-24
 ;;9002226.02101,"1737,58016-0237-28 ",.01)
 ;;58016-0237-28
 ;;9002226.02101,"1737,58016-0237-28 ",.02)
 ;;58016-0237-28
 ;;9002226.02101,"1737,58016-0237-30 ",.01)
 ;;58016-0237-30
 ;;9002226.02101,"1737,58016-0237-30 ",.02)
 ;;58016-0237-30
 ;;9002226.02101,"1737,58016-0237-40 ",.01)
 ;;58016-0237-40
 ;;9002226.02101,"1737,58016-0237-40 ",.02)
 ;;58016-0237-40
 ;;9002226.02101,"1737,58016-0237-60 ",.01)
 ;;58016-0237-60
 ;;9002226.02101,"1737,58016-0237-60 ",.02)
 ;;58016-0237-60
 ;;9002226.02101,"1737,58016-0237-90 ",.01)
 ;;58016-0237-90
 ;;9002226.02101,"1737,58016-0237-90 ",.02)
 ;;58016-0237-90
 ;;9002226.02101,"1737,58016-0247-00 ",.01)
 ;;58016-0247-00
 ;;9002226.02101,"1737,58016-0247-00 ",.02)
 ;;58016-0247-00
 ;;9002226.02101,"1737,58016-0247-02 ",.01)
 ;;58016-0247-02
 ;;9002226.02101,"1737,58016-0247-02 ",.02)
 ;;58016-0247-02
 ;;9002226.02101,"1737,58016-0247-03 ",.01)
 ;;58016-0247-03
 ;;9002226.02101,"1737,58016-0247-03 ",.02)
 ;;58016-0247-03
 ;;9002226.02101,"1737,58016-0247-10 ",.01)
 ;;58016-0247-10
 ;;9002226.02101,"1737,58016-0247-10 ",.02)
 ;;58016-0247-10
 ;;9002226.02101,"1737,58016-0247-12 ",.01)
 ;;58016-0247-12
 ;;9002226.02101,"1737,58016-0247-12 ",.02)
 ;;58016-0247-12
 ;;9002226.02101,"1737,58016-0247-15 ",.01)
 ;;58016-0247-15
 ;;9002226.02101,"1737,58016-0247-15 ",.02)
 ;;58016-0247-15
 ;;9002226.02101,"1737,58016-0247-20 ",.01)
 ;;58016-0247-20
 ;;9002226.02101,"1737,58016-0247-20 ",.02)
 ;;58016-0247-20
 ;;9002226.02101,"1737,58016-0247-21 ",.01)
 ;;58016-0247-21
 ;;9002226.02101,"1737,58016-0247-21 ",.02)
 ;;58016-0247-21
 ;;9002226.02101,"1737,58016-0247-30 ",.01)
 ;;58016-0247-30
 ;;9002226.02101,"1737,58016-0247-30 ",.02)
 ;;58016-0247-30
 ;;9002226.02101,"1737,58016-0247-40 ",.01)
 ;;58016-0247-40
 ;;9002226.02101,"1737,58016-0247-40 ",.02)
 ;;58016-0247-40
 ;;9002226.02101,"1737,58016-0247-60 ",.01)
 ;;58016-0247-60
 ;;9002226.02101,"1737,58016-0247-60 ",.02)
 ;;58016-0247-60
 ;;9002226.02101,"1737,58016-0247-73 ",.01)
 ;;58016-0247-73
 ;;9002226.02101,"1737,58016-0247-73 ",.02)
 ;;58016-0247-73
 ;;9002226.02101,"1737,58016-0247-89 ",.01)
 ;;58016-0247-89
 ;;9002226.02101,"1737,58016-0247-89 ",.02)
 ;;58016-0247-89
 ;;9002226.02101,"1737,58016-0247-90 ",.01)
 ;;58016-0247-90
 ;;9002226.02101,"1737,58016-0247-90 ",.02)
 ;;58016-0247-90
 ;;9002226.02101,"1737,58016-0392-00 ",.01)
 ;;58016-0392-00
 ;;9002226.02101,"1737,58016-0392-00 ",.02)
 ;;58016-0392-00
 ;;9002226.02101,"1737,58016-0392-10 ",.01)
 ;;58016-0392-10
 ;;9002226.02101,"1737,58016-0392-10 ",.02)
 ;;58016-0392-10
 ;;9002226.02101,"1737,58016-0392-12 ",.01)
 ;;58016-0392-12
 ;;9002226.02101,"1737,58016-0392-12 ",.02)
 ;;58016-0392-12
 ;;9002226.02101,"1737,58016-0392-20 ",.01)
 ;;58016-0392-20
 ;;9002226.02101,"1737,58016-0392-20 ",.02)
 ;;58016-0392-20
 ;;9002226.02101,"1737,58016-0392-30 ",.01)
 ;;58016-0392-30
 ;;9002226.02101,"1737,58016-0392-30 ",.02)
 ;;58016-0392-30
 ;;9002226.02101,"1737,58016-0392-40 ",.01)
 ;;58016-0392-40
 ;;9002226.02101,"1737,58016-0392-40 ",.02)
 ;;58016-0392-40
 ;;9002226.02101,"1737,58016-0392-60 ",.01)
 ;;58016-0392-60
 ;;9002226.02101,"1737,58016-0392-60 ",.02)
 ;;58016-0392-60
 ;;9002226.02101,"1737,58016-0461-00 ",.01)
 ;;58016-0461-00
 ;;9002226.02101,"1737,58016-0461-00 ",.02)
 ;;58016-0461-00
 ;;9002226.02101,"1737,58016-0461-20 ",.01)
 ;;58016-0461-20
 ;;9002226.02101,"1737,58016-0461-20 ",.02)
 ;;58016-0461-20
 ;;9002226.02101,"1737,58016-0461-30 ",.01)
 ;;58016-0461-30
 ;;9002226.02101,"1737,58016-0461-30 ",.02)
 ;;58016-0461-30
 ;;9002226.02101,"1737,58016-0461-60 ",.01)
 ;;58016-0461-60
 ;;9002226.02101,"1737,58016-0461-60 ",.02)
 ;;58016-0461-60
 ;;9002226.02101,"1737,58016-0461-90 ",.01)
 ;;58016-0461-90
 ;;9002226.02101,"1737,58016-0461-90 ",.02)
 ;;58016-0461-90
 ;;9002226.02101,"1737,58016-9413-01 ",.01)
 ;;58016-9413-01
 ;;9002226.02101,"1737,58016-9413-01 ",.02)
 ;;58016-9413-01
 ;;9002226.02101,"1737,58118-0314-05 ",.01)
 ;;58118-0314-05
 ;;9002226.02101,"1737,58118-0314-05 ",.02)
 ;;58118-0314-05
 ;;9002226.02101,"1737,58864-0296-42 ",.01)
 ;;58864-0296-42
 ;;9002226.02101,"1737,58864-0296-42 ",.02)
 ;;58864-0296-42
 ;;9002226.02101,"1737,58864-0296-90 ",.01)
 ;;58864-0296-90
 ;;9002226.02101,"1737,58864-0296-90 ",.02)
 ;;58864-0296-90
 ;;9002226.02101,"1737,60429-0534-01 ",.01)
 ;;60429-0534-01
 ;;9002226.02101,"1737,60429-0534-01 ",.02)
 ;;60429-0534-01
 ;;9002226.02101,"1737,60429-0535-01 ",.01)
 ;;60429-0535-01
 ;;9002226.02101,"1737,60429-0535-01 ",.02)
 ;;60429-0535-01
 ;;9002226.02101,"1737,60429-0569-01 ",.01)
 ;;60429-0569-01
 ;;9002226.02101,"1737,60429-0569-01 ",.02)
 ;;60429-0569-01
 ;;9002226.02101,"1737,60429-0570-01 ",.01)
 ;;60429-0570-01
 ;;9002226.02101,"1737,60429-0570-01 ",.02)
 ;;60429-0570-01
 ;;9002226.02101,"1737,60760-0314-20 ",.01)
 ;;60760-0314-20
 ;;9002226.02101,"1737,60760-0314-20 ",.02)
 ;;60760-0314-20
 ;;9002226.02101,"1737,60760-0402-30 ",.01)
 ;;60760-0402-30
 ;;9002226.02101,"1737,60760-0402-30 ",.02)
 ;;60760-0402-30
 ;;9002226.02101,"1737,60760-0607-14 ",.01)
 ;;60760-0607-14
 ;;9002226.02101,"1737,60760-0607-14 ",.02)
 ;;60760-0607-14
 ;;9002226.02101,"1737,61553-0170-41 ",.01)
 ;;61553-0170-41
 ;;9002226.02101,"1737,61553-0170-41 ",.02)
 ;;61553-0170-41
 ;;9002226.02101,"1737,61553-0172-48 ",.01)
 ;;61553-0172-48
 ;;9002226.02101,"1737,61553-0172-48 ",.02)
 ;;61553-0172-48
 ;;9002226.02101,"1737,61553-0173-48 ",.01)
 ;;61553-0173-48
 ;;9002226.02101,"1737,61553-0173-48 ",.02)
 ;;61553-0173-48
 ;;9002226.02101,"1737,61553-0611-75 ",.01)
 ;;61553-0611-75
 ;;9002226.02101,"1737,61553-0611-75 ",.02)
 ;;61553-0611-75
 ;;9002226.02101,"1737,61553-0623-75 ",.01)
 ;;61553-0623-75
 ;;9002226.02101,"1737,61553-0623-75 ",.02)
 ;;61553-0623-75
 ;;9002226.02101,"1737,61553-0674-67 ",.01)
 ;;61553-0674-67
 ;;9002226.02101,"1737,61553-0674-67 ",.02)
 ;;61553-0674-67
 ;;9002226.02101,"1737,61553-0675-76 ",.01)
 ;;61553-0675-76
 ;;9002226.02101,"1737,61553-0675-76 ",.02)
 ;;61553-0675-76
 ;;9002226.02101,"1737,61553-0676-67 ",.01)
 ;;61553-0676-67
 ;;9002226.02101,"1737,61553-0676-67 ",.02)
 ;;61553-0676-67
 ;;9002226.02101,"1737,61553-0677-76 ",.01)
 ;;61553-0677-76
 ;;9002226.02101,"1737,61553-0677-76 ",.02)
 ;;61553-0677-76
 ;;9002226.02101,"1737,61553-0841-48 ",.01)
 ;;61553-0841-48
 ;;9002226.02101,"1737,61553-0841-48 ",.02)
 ;;61553-0841-48
 ;;9002226.02101,"1737,61919-0138-10 ",.01)
 ;;61919-0138-10
 ;;9002226.02101,"1737,61919-0138-10 ",.02)
 ;;61919-0138-10
 ;;9002226.02101,"1737,61919-0138-20 ",.01)
 ;;61919-0138-20
 ;;9002226.02101,"1737,61919-0138-20 ",.02)
 ;;61919-0138-20
 ;;9002226.02101,"1737,61919-0138-30 ",.01)
 ;;61919-0138-30
 ;;9002226.02101,"1737,61919-0138-30 ",.02)
 ;;61919-0138-30
 ;;9002226.02101,"1737,61919-0556-30 ",.01)
 ;;61919-0556-30
 ;;9002226.02101,"1737,61919-0556-30 ",.02)
 ;;61919-0556-30
 ;;9002226.02101,"1737,63323-0161-01 ",.01)
 ;;63323-0161-01
 ;;9002226.02101,"1737,63323-0161-01 ",.02)
 ;;63323-0161-01
 ;;9002226.02101,"1737,63323-0162-01 ",.01)
 ;;63323-0162-01
 ;;9002226.02101,"1737,63323-0162-01 ",.02)
 ;;63323-0162-01
 ;;9002226.02101,"1737,63323-0162-02 ",.01)
 ;;63323-0162-02
 ;;9002226.02101,"1737,63323-0162-02 ",.02)
 ;;63323-0162-02
 ;;9002226.02101,"1737,63323-0659-03 ",.01)
 ;;63323-0659-03
 ;;9002226.02101,"1737,63323-0659-03 ",.02)
 ;;63323-0659-03
 ;;9002226.02101,"1737,63323-0659-09 ",.01)
 ;;63323-0659-09
 ;;9002226.02101,"1737,63323-0659-09 ",.02)
 ;;63323-0659-09
 ;;9002226.02101,"1737,63323-0659-94 ",.01)
 ;;63323-0659-94
 ;;9002226.02101,"1737,63323-0659-94 ",.02)
 ;;63323-0659-94
 ;;9002226.02101,"1737,63629-1418-01 ",.01)
 ;;63629-1418-01
 ;;9002226.02101,"1737,63629-1418-01 ",.02)
 ;;63629-1418-01
 ;;9002226.02101,"1737,63629-1418-02 ",.01)
 ;;63629-1418-02
 ;;9002226.02101,"1737,63629-1418-02 ",.02)
 ;;63629-1418-02
 ;;9002226.02101,"1737,63629-1418-03 ",.01)
 ;;63629-1418-03
 ;;9002226.02101,"1737,63629-1418-03 ",.02)
 ;;63629-1418-03
 ;;9002226.02101,"1737,63629-1418-04 ",.01)
 ;;63629-1418-04
 ;;9002226.02101,"1737,63629-1418-04 ",.02)
 ;;63629-1418-04
 ;;9002226.02101,"1737,63629-1418-05 ",.01)
 ;;63629-1418-05
 ;;9002226.02101,"1737,63629-1418-05 ",.02)
 ;;63629-1418-05
 ;;9002226.02101,"1737,63629-1418-06 ",.01)
 ;;63629-1418-06
 ;;9002226.02101,"1737,63629-1418-06 ",.02)
 ;;63629-1418-06
 ;;9002226.02101,"1737,63629-1780-01 ",.01)
 ;;63629-1780-01
 ;;9002226.02101,"1737,63629-1780-01 ",.02)
 ;;63629-1780-01
 ;;9002226.02101,"1737,63629-1780-02 ",.01)
 ;;63629-1780-02
 ;;9002226.02101,"1737,63629-1780-02 ",.02)
 ;;63629-1780-02
 ;;9002226.02101,"1737,63629-1780-03 ",.01)
 ;;63629-1780-03
 ;;9002226.02101,"1737,63629-1780-03 ",.02)
 ;;63629-1780-03
 ;;9002226.02101,"1737,63629-2974-01 ",.01)
 ;;63629-2974-01
 ;;9002226.02101,"1737,63629-2974-01 ",.02)
 ;;63629-2974-01
 ;;9002226.02101,"1737,63629-2974-02 ",.01)
 ;;63629-2974-02
 ;;9002226.02101,"1737,63629-2974-02 ",.02)
 ;;63629-2974-02
 ;;9002226.02101,"1737,63629-2974-03 ",.01)
 ;;63629-2974-03
 ;;9002226.02101,"1737,63629-2974-03 ",.02)
 ;;63629-2974-03
 ;;9002226.02101,"1737,63629-2974-04 ",.01)
 ;;63629-2974-04
 ;;9002226.02101,"1737,63629-2974-04 ",.02)
 ;;63629-2974-04
 ;;9002226.02101,"1737,63629-2974-05 ",.01)
 ;;63629-2974-05
 ;;9002226.02101,"1737,63629-2974-05 ",.02)
 ;;63629-2974-05
 ;;9002226.02101,"1737,63629-2974-06 ",.01)
 ;;63629-2974-06
 ;;9002226.02101,"1737,63629-2974-06 ",.02)
 ;;63629-2974-06
 ;;9002226.02101,"1737,63629-2974-07 ",.01)
 ;;63629-2974-07
 ;;9002226.02101,"1737,63629-2974-07 ",.02)
 ;;63629-2974-07
 ;;9002226.02101,"1737,63629-3201-01 ",.01)
 ;;63629-3201-01
 ;;9002226.02101,"1737,63629-3201-01 ",.02)
 ;;63629-3201-01
 ;;9002226.02101,"1737,63629-3201-02 ",.01)
 ;;63629-3201-02
 ;;9002226.02101,"1737,63629-3201-02 ",.02)
 ;;63629-3201-02
 ;;9002226.02101,"1737,63629-3201-03 ",.01)
 ;;63629-3201-03
 ;;9002226.02101,"1737,63629-3201-03 ",.02)
 ;;63629-3201-03
 ;;9002226.02101,"1737,63629-3206-01 ",.01)
 ;;63629-3206-01
 ;;9002226.02101,"1737,63629-3206-01 ",.02)
 ;;63629-3206-01
 ;;9002226.02101,"1737,63629-3206-02 ",.01)
 ;;63629-3206-02
 ;;9002226.02101,"1737,63629-3206-02 ",.02)
 ;;63629-3206-02
 ;;9002226.02101,"1737,63629-3206-03 ",.01)
 ;;63629-3206-03
 ;;9002226.02101,"1737,63629-3206-03 ",.02)
 ;;63629-3206-03
 ;;9002226.02101,"1737,63629-4549-01 ",.01)
 ;;63629-4549-01
 ;;9002226.02101,"1737,63629-4549-01 ",.02)
 ;;63629-4549-01
 ;;9002226.02101,"1737,63739-0472-05 ",.01)
 ;;63739-0472-05
 ;;9002226.02101,"1737,63739-0472-05 ",.02)
 ;;63739-0472-05
 ;;9002226.02101,"1737,63739-0472-21 ",.01)
 ;;63739-0472-21
 ;;9002226.02101,"1737,63739-0472-21 ",.02)
 ;;63739-0472-21
 ;;9002226.02101,"1737,63874-0220-01 ",.01)
 ;;63874-0220-01
 ;;9002226.02101,"1737,63874-0220-01 ",.02)
 ;;63874-0220-01
 ;;9002226.02101,"1737,63874-0220-03 ",.01)
 ;;63874-0220-03
 ;;9002226.02101,"1737,63874-0220-03 ",.02)
 ;;63874-0220-03
 ;;9002226.02101,"1737,63874-0220-04 ",.01)
 ;;63874-0220-04