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

BGP51J26.m

Go to the documentation of this file.
BGP51J26 ;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,"730,60760-0116-30 ",.02)
 ;;60760-0116-30
 ;;9002226.02101,"730,60760-0191-30 ",.01)
 ;;60760-0191-30
 ;;9002226.02101,"730,60760-0191-30 ",.02)
 ;;60760-0191-30
 ;;9002226.02101,"730,60760-0193-30 ",.01)
 ;;60760-0193-30
 ;;9002226.02101,"730,60760-0193-30 ",.02)
 ;;60760-0193-30
 ;;9002226.02101,"730,60760-0211-30 ",.01)
 ;;60760-0211-30
 ;;9002226.02101,"730,60760-0211-30 ",.02)
 ;;60760-0211-30
 ;;9002226.02101,"730,60760-0212-15 ",.01)
 ;;60760-0212-15
 ;;9002226.02101,"730,60760-0212-15 ",.02)
 ;;60760-0212-15
 ;;9002226.02101,"730,60760-0212-30 ",.01)
 ;;60760-0212-30
 ;;9002226.02101,"730,60760-0212-30 ",.02)
 ;;60760-0212-30
 ;;9002226.02101,"730,60760-0214-30 ",.01)
 ;;60760-0214-30
 ;;9002226.02101,"730,60760-0214-30 ",.02)
 ;;60760-0214-30
 ;;9002226.02101,"730,60760-0221-30 ",.01)
 ;;60760-0221-30
 ;;9002226.02101,"730,60760-0221-30 ",.02)
 ;;60760-0221-30
 ;;9002226.02101,"730,60760-0288-30 ",.01)
 ;;60760-0288-30
 ;;9002226.02101,"730,60760-0288-30 ",.02)
 ;;60760-0288-30
 ;;9002226.02101,"730,60760-0367-30 ",.01)
 ;;60760-0367-30
 ;;9002226.02101,"730,60760-0367-30 ",.02)
 ;;60760-0367-30
 ;;9002226.02101,"730,60760-0367-60 ",.01)
 ;;60760-0367-60
 ;;9002226.02101,"730,60760-0367-60 ",.02)
 ;;60760-0367-60
 ;;9002226.02101,"730,60760-0515-30 ",.01)
 ;;60760-0515-30
 ;;9002226.02101,"730,60760-0515-30 ",.02)
 ;;60760-0515-30
 ;;9002226.02101,"730,60760-0550-30 ",.01)
 ;;60760-0550-30
 ;;9002226.02101,"730,60760-0550-30 ",.02)
 ;;60760-0550-30
 ;;9002226.02101,"730,60760-0551-30 ",.01)
 ;;60760-0551-30
 ;;9002226.02101,"730,60760-0551-30 ",.02)
 ;;60760-0551-30
 ;;9002226.02101,"730,60793-0145-01 ",.01)
 ;;60793-0145-01
 ;;9002226.02101,"730,60793-0145-01 ",.02)
 ;;60793-0145-01
 ;;9002226.02101,"730,60793-0146-01 ",.01)
 ;;60793-0146-01
 ;;9002226.02101,"730,60793-0146-01 ",.02)
 ;;60793-0146-01
 ;;9002226.02101,"730,61442-0231-01 ",.01)
 ;;61442-0231-01
 ;;9002226.02101,"730,61442-0231-01 ",.02)
 ;;61442-0231-01
 ;;9002226.02101,"730,61442-0232-01 ",.01)
 ;;61442-0232-01
 ;;9002226.02101,"730,61442-0232-01 ",.02)
 ;;61442-0232-01
 ;;9002226.02101,"730,61919-0011-30 ",.01)
 ;;61919-0011-30
 ;;9002226.02101,"730,61919-0011-30 ",.02)
 ;;61919-0011-30
 ;;9002226.02101,"730,61919-0011-60 ",.01)
 ;;61919-0011-60
 ;;9002226.02101,"730,61919-0011-60 ",.02)
 ;;61919-0011-60
 ;;9002226.02101,"730,61919-0011-90 ",.01)
 ;;61919-0011-90
 ;;9002226.02101,"730,61919-0011-90 ",.02)
 ;;61919-0011-90
 ;;9002226.02101,"730,61919-0012-30 ",.01)
 ;;61919-0012-30
 ;;9002226.02101,"730,61919-0012-30 ",.02)
 ;;61919-0012-30
 ;;9002226.02101,"730,61919-0012-90 ",.01)
 ;;61919-0012-90
 ;;9002226.02101,"730,61919-0012-90 ",.02)
 ;;61919-0012-90
 ;;9002226.02101,"730,61919-0013-30 ",.01)
 ;;61919-0013-30
 ;;9002226.02101,"730,61919-0013-30 ",.02)
 ;;61919-0013-30
 ;;9002226.02101,"730,61919-0013-71 ",.01)
 ;;61919-0013-71
 ;;9002226.02101,"730,61919-0013-71 ",.02)
 ;;61919-0013-71
 ;;9002226.02101,"730,61919-0013-90 ",.01)
 ;;61919-0013-90
 ;;9002226.02101,"730,61919-0013-90 ",.02)
 ;;61919-0013-90
 ;;9002226.02101,"730,61919-0527-30 ",.01)
 ;;61919-0527-30
 ;;9002226.02101,"730,61919-0527-30 ",.02)
 ;;61919-0527-30
 ;;9002226.02101,"730,61919-0528-30 ",.01)
 ;;61919-0528-30
 ;;9002226.02101,"730,61919-0528-30 ",.02)
 ;;61919-0528-30
 ;;9002226.02101,"730,61919-0528-60 ",.01)
 ;;61919-0528-60
 ;;9002226.02101,"730,61919-0528-60 ",.02)
 ;;61919-0528-60
 ;;9002226.02101,"730,61919-0955-30 ",.01)
 ;;61919-0955-30
 ;;9002226.02101,"730,61919-0955-30 ",.02)
 ;;61919-0955-30
 ;;9002226.02101,"730,63402-0190-30 ",.01)
 ;;63402-0190-30
 ;;9002226.02101,"730,63402-0190-30 ",.02)
 ;;63402-0190-30
 ;;9002226.02101,"730,63402-0191-10 ",.01)
 ;;63402-0191-10
 ;;9002226.02101,"730,63402-0191-10 ",.02)
 ;;63402-0191-10
 ;;9002226.02101,"730,63402-0193-10 ",.01)
 ;;63402-0193-10
 ;;9002226.02101,"730,63402-0193-10 ",.02)
 ;;63402-0193-10
 ;;9002226.02101,"730,63629-1256-01 ",.01)
 ;;63629-1256-01
 ;;9002226.02101,"730,63629-1256-01 ",.02)
 ;;63629-1256-01
 ;;9002226.02101,"730,63629-1256-02 ",.01)
 ;;63629-1256-02
 ;;9002226.02101,"730,63629-1256-02 ",.02)
 ;;63629-1256-02
 ;;9002226.02101,"730,63629-1256-03 ",.01)
 ;;63629-1256-03
 ;;9002226.02101,"730,63629-1256-03 ",.02)
 ;;63629-1256-03
 ;;9002226.02101,"730,63629-1256-04 ",.01)
 ;;63629-1256-04
 ;;9002226.02101,"730,63629-1256-04 ",.02)
 ;;63629-1256-04
 ;;9002226.02101,"730,63629-1256-05 ",.01)
 ;;63629-1256-05
 ;;9002226.02101,"730,63629-1256-05 ",.02)
 ;;63629-1256-05
 ;;9002226.02101,"730,63629-1368-01 ",.01)
 ;;63629-1368-01
 ;;9002226.02101,"730,63629-1368-01 ",.02)
 ;;63629-1368-01
 ;;9002226.02101,"730,63629-1368-02 ",.01)
 ;;63629-1368-02
 ;;9002226.02101,"730,63629-1368-02 ",.02)
 ;;63629-1368-02
 ;;9002226.02101,"730,63629-1368-03 ",.01)
 ;;63629-1368-03
 ;;9002226.02101,"730,63629-1368-03 ",.02)
 ;;63629-1368-03
 ;;9002226.02101,"730,63629-1368-04 ",.01)
 ;;63629-1368-04
 ;;9002226.02101,"730,63629-1368-04 ",.02)
 ;;63629-1368-04
 ;;9002226.02101,"730,63629-1368-05 ",.01)
 ;;63629-1368-05
 ;;9002226.02101,"730,63629-1368-05 ",.02)
 ;;63629-1368-05
 ;;9002226.02101,"730,63629-1368-06 ",.01)
 ;;63629-1368-06
 ;;9002226.02101,"730,63629-1368-06 ",.02)
 ;;63629-1368-06
 ;;9002226.02101,"730,63629-1368-07 ",.01)
 ;;63629-1368-07
 ;;9002226.02101,"730,63629-1368-07 ",.02)
 ;;63629-1368-07
 ;;9002226.02101,"730,63629-1368-08 ",.01)
 ;;63629-1368-08
 ;;9002226.02101,"730,63629-1368-08 ",.02)
 ;;63629-1368-08
 ;;9002226.02101,"730,63629-1369-00 ",.01)
 ;;63629-1369-00
 ;;9002226.02101,"730,63629-1369-00 ",.02)
 ;;63629-1369-00
 ;;9002226.02101,"730,63629-1369-01 ",.01)
 ;;63629-1369-01
 ;;9002226.02101,"730,63629-1369-01 ",.02)
 ;;63629-1369-01
 ;;9002226.02101,"730,63629-1369-02 ",.01)
 ;;63629-1369-02
 ;;9002226.02101,"730,63629-1369-02 ",.02)
 ;;63629-1369-02
 ;;9002226.02101,"730,63629-1369-03 ",.01)
 ;;63629-1369-03
 ;;9002226.02101,"730,63629-1369-03 ",.02)
 ;;63629-1369-03
 ;;9002226.02101,"730,63629-1369-04 ",.01)
 ;;63629-1369-04
 ;;9002226.02101,"730,63629-1369-04 ",.02)
 ;;63629-1369-04
 ;;9002226.02101,"730,63629-1369-05 ",.01)
 ;;63629-1369-05
 ;;9002226.02101,"730,63629-1369-05 ",.02)
 ;;63629-1369-05
 ;;9002226.02101,"730,63629-1369-06 ",.01)
 ;;63629-1369-06
 ;;9002226.02101,"730,63629-1369-06 ",.02)
 ;;63629-1369-06
 ;;9002226.02101,"730,63629-1369-07 ",.01)
 ;;63629-1369-07
 ;;9002226.02101,"730,63629-1369-07 ",.02)
 ;;63629-1369-07
 ;;9002226.02101,"730,63629-1369-08 ",.01)
 ;;63629-1369-08
 ;;9002226.02101,"730,63629-1369-08 ",.02)
 ;;63629-1369-08
 ;;9002226.02101,"730,63629-1369-09 ",.01)
 ;;63629-1369-09
 ;;9002226.02101,"730,63629-1369-09 ",.02)
 ;;63629-1369-09
 ;;9002226.02101,"730,63629-1369-10 ",.01)
 ;;63629-1369-10
 ;;9002226.02101,"730,63629-1369-10 ",.02)
 ;;63629-1369-10
 ;;9002226.02101,"730,63629-1370-01 ",.01)
 ;;63629-1370-01
 ;;9002226.02101,"730,63629-1370-01 ",.02)
 ;;63629-1370-01
 ;;9002226.02101,"730,63629-1370-02 ",.01)
 ;;63629-1370-02
 ;;9002226.02101,"730,63629-1370-02 ",.02)
 ;;63629-1370-02
 ;;9002226.02101,"730,63629-1370-03 ",.01)
 ;;63629-1370-03
 ;;9002226.02101,"730,63629-1370-03 ",.02)
 ;;63629-1370-03
 ;;9002226.02101,"730,63629-1370-04 ",.01)
 ;;63629-1370-04
 ;;9002226.02101,"730,63629-1370-04 ",.02)
 ;;63629-1370-04
 ;;9002226.02101,"730,63629-1370-05 ",.01)
 ;;63629-1370-05
 ;;9002226.02101,"730,63629-1370-05 ",.02)
 ;;63629-1370-05
 ;;9002226.02101,"730,63629-1370-06 ",.01)
 ;;63629-1370-06
 ;;9002226.02101,"730,63629-1370-06 ",.02)
 ;;63629-1370-06
 ;;9002226.02101,"730,63629-1510-01 ",.01)
 ;;63629-1510-01
 ;;9002226.02101,"730,63629-1510-01 ",.02)
 ;;63629-1510-01
 ;;9002226.02101,"730,63629-1510-02 ",.01)
 ;;63629-1510-02
 ;;9002226.02101,"730,63629-1510-02 ",.02)
 ;;63629-1510-02
 ;;9002226.02101,"730,63629-1510-03 ",.01)
 ;;63629-1510-03
 ;;9002226.02101,"730,63629-1510-03 ",.02)
 ;;63629-1510-03
 ;;9002226.02101,"730,63629-1774-01 ",.01)
 ;;63629-1774-01
 ;;9002226.02101,"730,63629-1774-01 ",.02)
 ;;63629-1774-01
 ;;9002226.02101,"730,63629-1774-02 ",.01)
 ;;63629-1774-02
 ;;9002226.02101,"730,63629-1774-02 ",.02)
 ;;63629-1774-02
 ;;9002226.02101,"730,63629-1774-03 ",.01)
 ;;63629-1774-03
 ;;9002226.02101,"730,63629-1774-03 ",.02)
 ;;63629-1774-03
 ;;9002226.02101,"730,63629-1774-04 ",.01)
 ;;63629-1774-04
 ;;9002226.02101,"730,63629-1774-04 ",.02)
 ;;63629-1774-04
 ;;9002226.02101,"730,63629-1774-05 ",.01)
 ;;63629-1774-05
 ;;9002226.02101,"730,63629-1774-05 ",.02)
 ;;63629-1774-05
 ;;9002226.02101,"730,63629-1774-06 ",.01)
 ;;63629-1774-06
 ;;9002226.02101,"730,63629-1774-06 ",.02)
 ;;63629-1774-06
 ;;9002226.02101,"730,63629-1774-07 ",.01)
 ;;63629-1774-07
 ;;9002226.02101,"730,63629-1774-07 ",.02)
 ;;63629-1774-07
 ;;9002226.02101,"730,63629-1774-08 ",.01)
 ;;63629-1774-08
 ;;9002226.02101,"730,63629-1774-08 ",.02)
 ;;63629-1774-08
 ;;9002226.02101,"730,63629-2756-01 ",.01)
 ;;63629-2756-01
 ;;9002226.02101,"730,63629-2756-01 ",.02)
 ;;63629-2756-01
 ;;9002226.02101,"730,63629-2951-01 ",.01)
 ;;63629-2951-01
 ;;9002226.02101,"730,63629-2951-01 ",.02)
 ;;63629-2951-01
 ;;9002226.02101,"730,63629-2951-02 ",.01)
 ;;63629-2951-02
 ;;9002226.02101,"730,63629-2951-02 ",.02)
 ;;63629-2951-02
 ;;9002226.02101,"730,63629-2951-03 ",.01)
 ;;63629-2951-03
 ;;9002226.02101,"730,63629-2951-03 ",.02)
 ;;63629-2951-03
 ;;9002226.02101,"730,63629-2951-04 ",.01)
 ;;63629-2951-04
 ;;9002226.02101,"730,63629-2951-04 ",.02)
 ;;63629-2951-04
 ;;9002226.02101,"730,63629-2952-01 ",.01)
 ;;63629-2952-01
 ;;9002226.02101,"730,63629-2952-01 ",.02)
 ;;63629-2952-01
 ;;9002226.02101,"730,63629-2952-02 ",.01)
 ;;63629-2952-02
 ;;9002226.02101,"730,63629-2952-02 ",.02)
 ;;63629-2952-02
 ;;9002226.02101,"730,63629-2952-03 ",.01)
 ;;63629-2952-03
 ;;9002226.02101,"730,63629-2952-03 ",.02)
 ;;63629-2952-03
 ;;9002226.02101,"730,63629-3141-01 ",.01)
 ;;63629-3141-01
 ;;9002226.02101,"730,63629-3141-01 ",.02)
 ;;63629-3141-01
 ;;9002226.02101,"730,63629-3141-02 ",.01)
 ;;63629-3141-02
 ;;9002226.02101,"730,63629-3141-02 ",.02)
 ;;63629-3141-02
 ;;9002226.02101,"730,63629-3141-03 ",.01)
 ;;63629-3141-03
 ;;9002226.02101,"730,63629-3141-03 ",.02)
 ;;63629-3141-03
 ;;9002226.02101,"730,63629-3141-04 ",.01)
 ;;63629-3141-04
 ;;9002226.02101,"730,63629-3141-04 ",.02)
 ;;63629-3141-04
 ;;9002226.02101,"730,63629-3141-05 ",.01)
 ;;63629-3141-05
 ;;9002226.02101,"730,63629-3141-05 ",.02)
 ;;63629-3141-05
 ;;9002226.02101,"730,63629-3141-06 ",.01)
 ;;63629-3141-06
 ;;9002226.02101,"730,63629-3141-06 ",.02)
 ;;63629-3141-06
 ;;9002226.02101,"730,63629-3142-01 ",.01)
 ;;63629-3142-01
 ;;9002226.02101,"730,63629-3142-01 ",.02)
 ;;63629-3142-01
 ;;9002226.02101,"730,63629-3142-02 ",.01)
 ;;63629-3142-02
 ;;9002226.02101,"730,63629-3142-02 ",.02)
 ;;63629-3142-02
 ;;9002226.02101,"730,63629-3142-03 ",.01)
 ;;63629-3142-03
 ;;9002226.02101,"730,63629-3142-03 ",.02)
 ;;63629-3142-03
 ;;9002226.02101,"730,63629-3152-01 ",.01)
 ;;63629-3152-01
 ;;9002226.02101,"730,63629-3152-01 ",.02)
 ;;63629-3152-01
 ;;9002226.02101,"730,63629-3152-02 ",.01)
 ;;63629-3152-02
 ;;9002226.02101,"730,63629-3152-02 ",.02)
 ;;63629-3152-02
 ;;9002226.02101,"730,63629-3199-01 ",.01)
 ;;63629-3199-01
 ;;9002226.02101,"730,63629-3199-01 ",.02)
 ;;63629-3199-01
 ;;9002226.02101,"730,63629-3199-02 ",.01)
 ;;63629-3199-02
 ;;9002226.02101,"730,63629-3199-02 ",.02)
 ;;63629-3199-02
 ;;9002226.02101,"730,63629-3199-03 ",.01)
 ;;63629-3199-03
 ;;9002226.02101,"730,63629-3199-03 ",.02)
 ;;63629-3199-03
 ;;9002226.02101,"730,63629-3199-04 ",.01)
 ;;63629-3199-04
 ;;9002226.02101,"730,63629-3199-04 ",.02)
 ;;63629-3199-04
 ;;9002226.02101,"730,63629-3221-01 ",.01)
 ;;63629-3221-01
 ;;9002226.02101,"730,63629-3221-01 ",.02)
 ;;63629-3221-01
 ;;9002226.02101,"730,63629-3337-01 ",.01)
 ;;63629-3337-01
 ;;9002226.02101,"730,63629-3337-01 ",.02)
 ;;63629-3337-01
 ;;9002226.02101,"730,63629-3337-02 ",.01)
 ;;63629-3337-02
 ;;9002226.02101,"730,63629-3337-02 ",.02)
 ;;63629-3337-02
 ;;9002226.02101,"730,63629-3337-03 ",.01)
 ;;63629-3337-03
 ;;9002226.02101,"730,63629-3337-03 ",.02)
 ;;63629-3337-03
 ;;9002226.02101,"730,63629-3337-04 ",.01)
 ;;63629-3337-04
 ;;9002226.02101,"730,63629-3337-04 ",.02)
 ;;63629-3337-04
 ;;9002226.02101,"730,63629-3362-01 ",.01)
 ;;63629-3362-01
 ;;9002226.02101,"730,63629-3362-01 ",.02)
 ;;63629-3362-01
 ;;9002226.02101,"730,63629-3362-02 ",.01)
 ;;63629-3362-02
 ;;9002226.02101,"730,63629-3362-02 ",.02)
 ;;63629-3362-02
 ;;9002226.02101,"730,63629-3362-03 ",.01)
 ;;63629-3362-03
 ;;9002226.02101,"730,63629-3362-03 ",.02)
 ;;63629-3362-03
 ;;9002226.02101,"730,63629-3362-04 ",.01)
 ;;63629-3362-04
 ;;9002226.02101,"730,63629-3362-04 ",.02)
 ;;63629-3362-04
 ;;9002226.02101,"730,63629-3362-05 ",.01)
 ;;63629-3362-05
 ;;9002226.02101,"730,63629-3362-05 ",.02)
 ;;63629-3362-05
 ;;9002226.02101,"730,63629-3362-06 ",.01)
 ;;63629-3362-06
 ;;9002226.02101,"730,63629-3362-06 ",.02)
 ;;63629-3362-06
 ;;9002226.02101,"730,63629-3405-01 ",.01)
 ;;63629-3405-01
 ;;9002226.02101,"730,63629-3405-01 ",.02)
 ;;63629-3405-01
 ;;9002226.02101,"730,63629-3405-02 ",.01)
 ;;63629-3405-02
 ;;9002226.02101,"730,63629-3405-02 ",.02)
 ;;63629-3405-02
 ;;9002226.02101,"730,63629-3405-03 ",.01)
 ;;63629-3405-03
 ;;9002226.02101,"730,63629-3405-03 ",.02)
 ;;63629-3405-03
 ;;9002226.02101,"730,63629-3405-04 ",.01)
 ;;63629-3405-04