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

BGP48K15.m

Go to the documentation of this file.
BGP48K15 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 24, 2014;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,"1813,63323-0929-05 ",.02)
 ;;63323-0929-05
 ;;9002226.02101,"1813,63629-2548-01 ",.01)
 ;;63629-2548-01
 ;;9002226.02101,"1813,63629-2548-01 ",.02)
 ;;63629-2548-01
 ;;9002226.02101,"1813,63629-2548-02 ",.01)
 ;;63629-2548-02
 ;;9002226.02101,"1813,63629-2548-02 ",.02)
 ;;63629-2548-02
 ;;9002226.02101,"1813,63629-3177-01 ",.01)
 ;;63629-3177-01
 ;;9002226.02101,"1813,63629-3177-01 ",.02)
 ;;63629-3177-01
 ;;9002226.02101,"1813,63629-3177-02 ",.01)
 ;;63629-3177-02
 ;;9002226.02101,"1813,63629-3177-02 ",.02)
 ;;63629-3177-02
 ;;9002226.02101,"1813,63629-4017-01 ",.01)
 ;;63629-4017-01
 ;;9002226.02101,"1813,63629-4017-01 ",.02)
 ;;63629-4017-01
 ;;9002226.02101,"1813,63629-4017-02 ",.01)
 ;;63629-4017-02
 ;;9002226.02101,"1813,63629-4017-02 ",.02)
 ;;63629-4017-02
 ;;9002226.02101,"1813,63629-4017-03 ",.01)
 ;;63629-4017-03
 ;;9002226.02101,"1813,63629-4017-03 ",.02)
 ;;63629-4017-03
 ;;9002226.02101,"1813,63629-4017-04 ",.01)
 ;;63629-4017-04
 ;;9002226.02101,"1813,63629-4017-04 ",.02)
 ;;63629-4017-04
 ;;9002226.02101,"1813,63629-4017-05 ",.01)
 ;;63629-4017-05
 ;;9002226.02101,"1813,63629-4017-05 ",.02)
 ;;63629-4017-05
 ;;9002226.02101,"1813,63629-4122-01 ",.01)
 ;;63629-4122-01
 ;;9002226.02101,"1813,63629-4122-01 ",.02)
 ;;63629-4122-01
 ;;9002226.02101,"1813,63629-4122-02 ",.01)
 ;;63629-4122-02
 ;;9002226.02101,"1813,63629-4122-02 ",.02)
 ;;63629-4122-02
 ;;9002226.02101,"1813,63629-4122-03 ",.01)
 ;;63629-4122-03
 ;;9002226.02101,"1813,63629-4122-03 ",.02)
 ;;63629-4122-03
 ;;9002226.02101,"1813,63629-4122-04 ",.01)
 ;;63629-4122-04
 ;;9002226.02101,"1813,63629-4122-04 ",.02)
 ;;63629-4122-04
 ;;9002226.02101,"1813,63629-4122-05 ",.01)
 ;;63629-4122-05
 ;;9002226.02101,"1813,63629-4122-05 ",.02)
 ;;63629-4122-05
 ;;9002226.02101,"1813,63629-4122-06 ",.01)
 ;;63629-4122-06
 ;;9002226.02101,"1813,63629-4122-06 ",.02)
 ;;63629-4122-06
 ;;9002226.02101,"1813,63629-4417-01 ",.01)
 ;;63629-4417-01
 ;;9002226.02101,"1813,63629-4417-01 ",.02)
 ;;63629-4417-01
 ;;9002226.02101,"1813,63629-4417-02 ",.01)
 ;;63629-4417-02
 ;;9002226.02101,"1813,63629-4417-02 ",.02)
 ;;63629-4417-02
 ;;9002226.02101,"1813,63629-4417-03 ",.01)
 ;;63629-4417-03
 ;;9002226.02101,"1813,63629-4417-03 ",.02)
 ;;63629-4417-03
 ;;9002226.02101,"1813,63629-4748-01 ",.01)
 ;;63629-4748-01
 ;;9002226.02101,"1813,63629-4748-01 ",.02)
 ;;63629-4748-01
 ;;9002226.02101,"1813,63629-4748-02 ",.01)
 ;;63629-4748-02
 ;;9002226.02101,"1813,63629-4748-02 ",.02)
 ;;63629-4748-02
 ;;9002226.02101,"1813,63629-4748-03 ",.01)
 ;;63629-4748-03
 ;;9002226.02101,"1813,63629-4748-03 ",.02)
 ;;63629-4748-03
 ;;9002226.02101,"1813,63739-0360-01 ",.01)
 ;;63739-0360-01
 ;;9002226.02101,"1813,63739-0360-01 ",.02)
 ;;63739-0360-01
 ;;9002226.02101,"1813,63739-0360-03 ",.01)
 ;;63739-0360-03
 ;;9002226.02101,"1813,63739-0360-03 ",.02)
 ;;63739-0360-03
 ;;9002226.02101,"1813,63739-0360-15 ",.01)
 ;;63739-0360-15
 ;;9002226.02101,"1813,63739-0360-15 ",.02)
 ;;63739-0360-15
 ;;9002226.02101,"1813,63739-0361-01 ",.01)
 ;;63739-0361-01
 ;;9002226.02101,"1813,63739-0361-01 ",.02)
 ;;63739-0361-01
 ;;9002226.02101,"1813,63739-0361-03 ",.01)
 ;;63739-0361-03
 ;;9002226.02101,"1813,63739-0361-03 ",.02)
 ;;63739-0361-03
 ;;9002226.02101,"1813,63739-0361-10 ",.01)
 ;;63739-0361-10
 ;;9002226.02101,"1813,63739-0361-10 ",.02)
 ;;63739-0361-10
 ;;9002226.02101,"1813,63739-0361-15 ",.01)
 ;;63739-0361-15
 ;;9002226.02101,"1813,63739-0361-15 ",.02)
 ;;63739-0361-15
 ;;9002226.02101,"1813,63739-0362-01 ",.01)
 ;;63739-0362-01
 ;;9002226.02101,"1813,63739-0362-01 ",.02)
 ;;63739-0362-01
 ;;9002226.02101,"1813,63739-0362-03 ",.01)
 ;;63739-0362-03
 ;;9002226.02101,"1813,63739-0362-03 ",.02)
 ;;63739-0362-03
 ;;9002226.02101,"1813,63739-0362-10 ",.01)
 ;;63739-0362-10
 ;;9002226.02101,"1813,63739-0362-10 ",.02)
 ;;63739-0362-10
 ;;9002226.02101,"1813,63739-0362-15 ",.01)
 ;;63739-0362-15
 ;;9002226.02101,"1813,63739-0362-15 ",.02)
 ;;63739-0362-15
 ;;9002226.02101,"1813,63739-0363-01 ",.01)
 ;;63739-0363-01
 ;;9002226.02101,"1813,63739-0363-01 ",.02)
 ;;63739-0363-01
 ;;9002226.02101,"1813,63739-0363-03 ",.01)
 ;;63739-0363-03
 ;;9002226.02101,"1813,63739-0363-03 ",.02)
 ;;63739-0363-03
 ;;9002226.02101,"1813,63739-0363-10 ",.01)
 ;;63739-0363-10
 ;;9002226.02101,"1813,63739-0363-10 ",.02)
 ;;63739-0363-10
 ;;9002226.02101,"1813,63739-0363-15 ",.01)
 ;;63739-0363-15
 ;;9002226.02101,"1813,63739-0363-15 ",.02)
 ;;63739-0363-15
 ;;9002226.02101,"1813,63739-0364-01 ",.01)
 ;;63739-0364-01
 ;;9002226.02101,"1813,63739-0364-01 ",.02)
 ;;63739-0364-01
 ;;9002226.02101,"1813,63739-0364-03 ",.01)
 ;;63739-0364-03
 ;;9002226.02101,"1813,63739-0364-03 ",.02)
 ;;63739-0364-03
 ;;9002226.02101,"1813,63739-0364-10 ",.01)
 ;;63739-0364-10
 ;;9002226.02101,"1813,63739-0364-10 ",.02)
 ;;63739-0364-10
 ;;9002226.02101,"1813,63739-0364-15 ",.01)
 ;;63739-0364-15
 ;;9002226.02101,"1813,63739-0364-15 ",.02)
 ;;63739-0364-15
 ;;9002226.02101,"1813,63807-0300-31 ",.01)
 ;;63807-0300-31
 ;;9002226.02101,"1813,63807-0300-31 ",.02)
 ;;63807-0300-31
 ;;9002226.02101,"1813,63807-0300-35 ",.01)
 ;;63807-0300-35
 ;;9002226.02101,"1813,63807-0300-35 ",.02)
 ;;63807-0300-35
 ;;9002226.02101,"1813,63807-0360-31 ",.01)
 ;;63807-0360-31
 ;;9002226.02101,"1813,63807-0360-31 ",.02)
 ;;63807-0360-31
 ;;9002226.02101,"1813,63807-0400-31 ",.01)
 ;;63807-0400-31
 ;;9002226.02101,"1813,63807-0400-31 ",.02)
 ;;63807-0400-31
 ;;9002226.02101,"1813,63807-0400-35 ",.01)
 ;;63807-0400-35
 ;;9002226.02101,"1813,63807-0400-35 ",.02)
 ;;63807-0400-35
 ;;9002226.02101,"1813,63807-0500-05 ",.01)
 ;;63807-0500-05
 ;;9002226.02101,"1813,63807-0500-05 ",.02)
 ;;63807-0500-05
 ;;9002226.02101,"1813,63807-0500-31 ",.01)
 ;;63807-0500-31
 ;;9002226.02101,"1813,63807-0500-31 ",.02)
 ;;63807-0500-31
 ;;9002226.02101,"1813,63807-0500-50 ",.01)
 ;;63807-0500-50
 ;;9002226.02101,"1813,63807-0500-50 ",.02)
 ;;63807-0500-50
 ;;9002226.02101,"1813,63807-0500-51 ",.01)
 ;;63807-0500-51
 ;;9002226.02101,"1813,63807-0500-51 ",.02)
 ;;63807-0500-51
 ;;9002226.02101,"1813,63807-0500-55 ",.01)
 ;;63807-0500-55
 ;;9002226.02101,"1813,63807-0500-55 ",.02)
 ;;63807-0500-55
 ;;9002226.02101,"1813,63807-0505-12 ",.01)
 ;;63807-0505-12
 ;;9002226.02101,"1813,63807-0505-12 ",.02)
 ;;63807-0505-12
 ;;9002226.02101,"1813,63807-0560-31 ",.01)
 ;;63807-0560-31
 ;;9002226.02101,"1813,63807-0560-31 ",.02)
 ;;63807-0560-31
 ;;9002226.02101,"1813,63807-0560-51 ",.01)
 ;;63807-0560-51
 ;;9002226.02101,"1813,63807-0560-51 ",.02)
 ;;63807-0560-51
 ;;9002226.02101,"1813,63807-0600-05 ",.01)
 ;;63807-0600-05
 ;;9002226.02101,"1813,63807-0600-05 ",.02)
 ;;63807-0600-05
 ;;9002226.02101,"1813,63807-0600-31 ",.01)
 ;;63807-0600-31
 ;;9002226.02101,"1813,63807-0600-31 ",.02)
 ;;63807-0600-31
 ;;9002226.02101,"1813,63807-0600-50 ",.01)
 ;;63807-0600-50
 ;;9002226.02101,"1813,63807-0600-50 ",.02)
 ;;63807-0600-50
 ;;9002226.02101,"1813,63807-0600-51 ",.01)
 ;;63807-0600-51
 ;;9002226.02101,"1813,63807-0600-51 ",.02)
 ;;63807-0600-51
 ;;9002226.02101,"1813,63807-0600-55 ",.01)
 ;;63807-0600-55
 ;;9002226.02101,"1813,63807-0600-55 ",.02)
 ;;63807-0600-55
 ;;9002226.02101,"1813,63807-0605-12 ",.01)
 ;;63807-0605-12
 ;;9002226.02101,"1813,63807-0605-12 ",.02)
 ;;63807-0605-12
 ;;9002226.02101,"1813,63807-0660-31 ",.01)
 ;;63807-0660-31
 ;;9002226.02101,"1813,63807-0660-31 ",.02)
 ;;63807-0660-31
 ;;9002226.02101,"1813,63807-0660-51 ",.01)
 ;;63807-0660-51
 ;;9002226.02101,"1813,63807-0660-51 ",.02)
 ;;63807-0660-51
 ;;9002226.02101,"1813,64054-1000-03 ",.01)
 ;;64054-1000-03
 ;;9002226.02101,"1813,64054-1000-03 ",.02)
 ;;64054-1000-03
 ;;9002226.02101,"1813,64054-1001-03 ",.01)
 ;;64054-1001-03
 ;;9002226.02101,"1813,64054-1001-03 ",.02)
 ;;64054-1001-03
 ;;9002226.02101,"1813,64054-1002-02 ",.01)
 ;;64054-1002-02
 ;;9002226.02101,"1813,64054-1002-02 ",.02)
 ;;64054-1002-02
 ;;9002226.02101,"1813,64054-1002-03 ",.01)
 ;;64054-1002-03
 ;;9002226.02101,"1813,64054-1002-03 ",.02)
 ;;64054-1002-03
 ;;9002226.02101,"1813,64054-1002-06 ",.01)
 ;;64054-1002-06
 ;;9002226.02101,"1813,64054-1002-06 ",.02)
 ;;64054-1002-06
 ;;9002226.02101,"1813,64054-1003-01 ",.01)
 ;;64054-1003-01
 ;;9002226.02101,"1813,64054-1003-01 ",.02)
 ;;64054-1003-01
 ;;9002226.02101,"1813,64054-1003-02 ",.01)
 ;;64054-1003-02
 ;;9002226.02101,"1813,64054-1003-02 ",.02)
 ;;64054-1003-02
 ;;9002226.02101,"1813,64054-1003-06 ",.01)
 ;;64054-1003-06
 ;;9002226.02101,"1813,64054-1003-06 ",.02)
 ;;64054-1003-06
 ;;9002226.02101,"1813,64054-1004-02 ",.01)
 ;;64054-1004-02
 ;;9002226.02101,"1813,64054-1004-02 ",.02)
 ;;64054-1004-02
 ;;9002226.02101,"1813,64054-1004-06 ",.01)
 ;;64054-1004-06
 ;;9002226.02101,"1813,64054-1004-06 ",.02)
 ;;64054-1004-06
 ;;9002226.02101,"1813,64054-1005-02 ",.01)
 ;;64054-1005-02
 ;;9002226.02101,"1813,64054-1005-02 ",.02)
 ;;64054-1005-02
 ;;9002226.02101,"1813,64054-1005-06 ",.01)
 ;;64054-1005-06
 ;;9002226.02101,"1813,64054-1005-06 ",.02)
 ;;64054-1005-06
 ;;9002226.02101,"1813,64054-1009-02 ",.01)
 ;;64054-1009-02
 ;;9002226.02101,"1813,64054-1009-02 ",.02)
 ;;64054-1009-02
 ;;9002226.02101,"1813,64054-1010-02 ",.01)
 ;;64054-1010-02
 ;;9002226.02101,"1813,64054-1010-02 ",.02)
 ;;64054-1010-02
 ;;9002226.02101,"1813,64054-3000-03 ",.01)
 ;;64054-3000-03
 ;;9002226.02101,"1813,64054-3000-03 ",.02)
 ;;64054-3000-03
 ;;9002226.02101,"1813,64054-3001-03 ",.01)
 ;;64054-3001-03
 ;;9002226.02101,"1813,64054-3001-03 ",.02)
 ;;64054-3001-03
 ;;9002226.02101,"1813,64054-3002-02 ",.01)
 ;;64054-3002-02
 ;;9002226.02101,"1813,64054-3002-02 ",.02)
 ;;64054-3002-02
 ;;9002226.02101,"1813,64054-3002-03 ",.01)
 ;;64054-3002-03
 ;;9002226.02101,"1813,64054-3002-03 ",.02)
 ;;64054-3002-03
 ;;9002226.02101,"1813,64054-3002-06 ",.01)
 ;;64054-3002-06
 ;;9002226.02101,"1813,64054-3002-06 ",.02)
 ;;64054-3002-06
 ;;9002226.02101,"1813,64054-3003-01 ",.01)
 ;;64054-3003-01
 ;;9002226.02101,"1813,64054-3003-01 ",.02)
 ;;64054-3003-01
 ;;9002226.02101,"1813,64054-3003-02 ",.01)
 ;;64054-3003-02
 ;;9002226.02101,"1813,64054-3003-02 ",.02)
 ;;64054-3003-02
 ;;9002226.02101,"1813,64054-3003-06 ",.01)
 ;;64054-3003-06
 ;;9002226.02101,"1813,64054-3003-06 ",.02)
 ;;64054-3003-06
 ;;9002226.02101,"1813,64054-3004-02 ",.01)
 ;;64054-3004-02
 ;;9002226.02101,"1813,64054-3004-02 ",.02)
 ;;64054-3004-02
 ;;9002226.02101,"1813,64054-3004-06 ",.01)
 ;;64054-3004-06
 ;;9002226.02101,"1813,64054-3004-06 ",.02)
 ;;64054-3004-06
 ;;9002226.02101,"1813,64054-3005-02 ",.01)
 ;;64054-3005-02
 ;;9002226.02101,"1813,64054-3005-02 ",.02)
 ;;64054-3005-02
 ;;9002226.02101,"1813,64054-3005-06 ",.01)
 ;;64054-3005-06
 ;;9002226.02101,"1813,64054-3005-06 ",.02)
 ;;64054-3005-06
 ;;9002226.02101,"1813,64054-3009-02 ",.01)
 ;;64054-3009-02
 ;;9002226.02101,"1813,64054-3009-02 ",.02)
 ;;64054-3009-02
 ;;9002226.02101,"1813,64054-3010-02 ",.01)
 ;;64054-3010-02
 ;;9002226.02101,"1813,64054-3010-02 ",.02)
 ;;64054-3010-02
 ;;9002226.02101,"1813,64253-0222-11 ",.01)
 ;;64253-0222-11
 ;;9002226.02101,"1813,64253-0222-11 ",.02)
 ;;64253-0222-11
 ;;9002226.02101,"1813,64253-0222-12 ",.01)
 ;;64253-0222-12
 ;;9002226.02101,"1813,64253-0222-12 ",.02)
 ;;64253-0222-12
 ;;9002226.02101,"1813,64253-0222-21 ",.01)
 ;;64253-0222-21
 ;;9002226.02101,"1813,64253-0222-21 ",.02)
 ;;64253-0222-21
 ;;9002226.02101,"1813,64253-0222-22 ",.01)
 ;;64253-0222-22
 ;;9002226.02101,"1813,64253-0222-22 ",.02)
 ;;64253-0222-22
 ;;9002226.02101,"1813,64253-0222-23 ",.01)
 ;;64253-0222-23
 ;;9002226.02101,"1813,64253-0222-23 ",.02)
 ;;64253-0222-23
 ;;9002226.02101,"1813,64253-0222-25 ",.01)
 ;;64253-0222-25
 ;;9002226.02101,"1813,64253-0222-25 ",.02)
 ;;64253-0222-25
 ;;9002226.02101,"1813,64253-0222-30 ",.01)
 ;;64253-0222-30
 ;;9002226.02101,"1813,64253-0222-30 ",.02)
 ;;64253-0222-30
 ;;9002226.02101,"1813,64253-0222-33 ",.01)
 ;;64253-0222-33
 ;;9002226.02101,"1813,64253-0222-33 ",.02)
 ;;64253-0222-33
 ;;9002226.02101,"1813,64253-0222-35 ",.01)
 ;;64253-0222-35
 ;;9002226.02101,"1813,64253-0222-35 ",.02)
 ;;64253-0222-35
 ;;9002226.02101,"1813,64253-0222-52 ",.01)
 ;;64253-0222-52
 ;;9002226.02101,"1813,64253-0222-52 ",.02)
 ;;64253-0222-52
 ;;9002226.02101,"1813,64253-0333-11 ",.01)
 ;;64253-0333-11
 ;;9002226.02101,"1813,64253-0333-11 ",.02)
 ;;64253-0333-11
 ;;9002226.02101,"1813,64253-0333-12 ",.01)
 ;;64253-0333-12
 ;;9002226.02101,"1813,64253-0333-12 ",.02)
 ;;64253-0333-12
 ;;9002226.02101,"1813,64253-0333-21 ",.01)
 ;;64253-0333-21
 ;;9002226.02101,"1813,64253-0333-21 ",.02)
 ;;64253-0333-21
 ;;9002226.02101,"1813,64253-0333-22 ",.01)
 ;;64253-0333-22
 ;;9002226.02101,"1813,64253-0333-22 ",.02)
 ;;64253-0333-22
 ;;9002226.02101,"1813,64253-0333-23 ",.01)
 ;;64253-0333-23
 ;;9002226.02101,"1813,64253-0333-23 ",.02)
 ;;64253-0333-23
 ;;9002226.02101,"1813,64253-0333-25 ",.01)
 ;;64253-0333-25
 ;;9002226.02101,"1813,64253-0333-25 ",.02)
 ;;64253-0333-25
 ;;9002226.02101,"1813,64253-0333-30 ",.01)
 ;;64253-0333-30
 ;;9002226.02101,"1813,64253-0333-30 ",.02)
 ;;64253-0333-30
 ;;9002226.02101,"1813,64253-0333-33 ",.01)
 ;;64253-0333-33
 ;;9002226.02101,"1813,64253-0333-33 ",.02)
 ;;64253-0333-33
 ;;9002226.02101,"1813,64253-0333-35 ",.01)
 ;;64253-0333-35
 ;;9002226.02101,"1813,64253-0333-35 ",.02)
 ;;64253-0333-35
 ;;9002226.02101,"1813,64253-0333-52 ",.01)
 ;;64253-0333-52
 ;;9002226.02101,"1813,64253-0333-52 ",.02)
 ;;64253-0333-52