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

BGP71N24.m

Go to the documentation of this file.
BGP71N24 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 30, 2016 ;
 ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
 ;
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,"1799,60505-2604-01 ",.02)
 ;;60505-2604-01
 ;;9002226.02101,"1799,60505-2604-08 ",.01)
 ;;60505-2604-08
 ;;9002226.02101,"1799,60505-2604-08 ",.02)
 ;;60505-2604-08
 ;;9002226.02101,"1799,60505-2605-00 ",.01)
 ;;60505-2605-00
 ;;9002226.02101,"1799,60505-2605-00 ",.02)
 ;;60505-2605-00
 ;;9002226.02101,"1799,60505-2605-01 ",.01)
 ;;60505-2605-01
 ;;9002226.02101,"1799,60505-2605-01 ",.02)
 ;;60505-2605-01
 ;;9002226.02101,"1799,60505-2605-08 ",.01)
 ;;60505-2605-08
 ;;9002226.02101,"1799,60505-2605-08 ",.02)
 ;;60505-2605-08
 ;;9002226.02101,"1799,60760-0116-30 ",.01)
 ;;60760-0116-30
 ;;9002226.02101,"1799,60760-0116-30 ",.02)
 ;;60760-0116-30
 ;;9002226.02101,"1799,60760-0191-30 ",.01)
 ;;60760-0191-30
 ;;9002226.02101,"1799,60760-0191-30 ",.02)
 ;;60760-0191-30
 ;;9002226.02101,"1799,60760-0193-30 ",.01)
 ;;60760-0193-30
 ;;9002226.02101,"1799,60760-0193-30 ",.02)
 ;;60760-0193-30
 ;;9002226.02101,"1799,60760-0211-30 ",.01)
 ;;60760-0211-30
 ;;9002226.02101,"1799,60760-0211-30 ",.02)
 ;;60760-0211-30
 ;;9002226.02101,"1799,60760-0212-15 ",.01)
 ;;60760-0212-15
 ;;9002226.02101,"1799,60760-0212-15 ",.02)
 ;;60760-0212-15
 ;;9002226.02101,"1799,60760-0212-30 ",.01)
 ;;60760-0212-30
 ;;9002226.02101,"1799,60760-0212-30 ",.02)
 ;;60760-0212-30
 ;;9002226.02101,"1799,60760-0214-30 ",.01)
 ;;60760-0214-30
 ;;9002226.02101,"1799,60760-0214-30 ",.02)
 ;;60760-0214-30
 ;;9002226.02101,"1799,60760-0221-30 ",.01)
 ;;60760-0221-30
 ;;9002226.02101,"1799,60760-0221-30 ",.02)
 ;;60760-0221-30
 ;;9002226.02101,"1799,60760-0288-30 ",.01)
 ;;60760-0288-30
 ;;9002226.02101,"1799,60760-0288-30 ",.02)
 ;;60760-0288-30
 ;;9002226.02101,"1799,60760-0326-30 ",.01)
 ;;60760-0326-30
 ;;9002226.02101,"1799,60760-0326-30 ",.02)
 ;;60760-0326-30
 ;;9002226.02101,"1799,60760-0367-30 ",.01)
 ;;60760-0367-30
 ;;9002226.02101,"1799,60760-0367-30 ",.02)
 ;;60760-0367-30
 ;;9002226.02101,"1799,60760-0367-60 ",.01)
 ;;60760-0367-60
 ;;9002226.02101,"1799,60760-0367-60 ",.02)
 ;;60760-0367-60
 ;;9002226.02101,"1799,60760-0515-30 ",.01)
 ;;60760-0515-30
 ;;9002226.02101,"1799,60760-0515-30 ",.02)
 ;;60760-0515-30
 ;;9002226.02101,"1799,60760-0551-30 ",.01)
 ;;60760-0551-30
 ;;9002226.02101,"1799,60760-0551-30 ",.02)
 ;;60760-0551-30
 ;;9002226.02101,"1799,60793-0145-01 ",.01)
 ;;60793-0145-01
 ;;9002226.02101,"1799,60793-0145-01 ",.02)
 ;;60793-0145-01
 ;;9002226.02101,"1799,60793-0146-01 ",.01)
 ;;60793-0146-01
 ;;9002226.02101,"1799,60793-0146-01 ",.02)
 ;;60793-0146-01
 ;;9002226.02101,"1799,61442-0232-01 ",.01)
 ;;61442-0232-01
 ;;9002226.02101,"1799,61442-0232-01 ",.02)
 ;;61442-0232-01
 ;;9002226.02101,"1799,61919-0011-30 ",.01)
 ;;61919-0011-30
 ;;9002226.02101,"1799,61919-0011-30 ",.02)
 ;;61919-0011-30
 ;;9002226.02101,"1799,61919-0011-60 ",.01)
 ;;61919-0011-60
 ;;9002226.02101,"1799,61919-0011-60 ",.02)
 ;;61919-0011-60
 ;;9002226.02101,"1799,61919-0011-90 ",.01)
 ;;61919-0011-90
 ;;9002226.02101,"1799,61919-0011-90 ",.02)
 ;;61919-0011-90
 ;;9002226.02101,"1799,61919-0012-30 ",.01)
 ;;61919-0012-30
 ;;9002226.02101,"1799,61919-0012-30 ",.02)
 ;;61919-0012-30
 ;;9002226.02101,"1799,61919-0012-60 ",.01)
 ;;61919-0012-60
 ;;9002226.02101,"1799,61919-0012-60 ",.02)
 ;;61919-0012-60
 ;;9002226.02101,"1799,61919-0012-90 ",.01)
 ;;61919-0012-90
 ;;9002226.02101,"1799,61919-0012-90 ",.02)
 ;;61919-0012-90
 ;;9002226.02101,"1799,61919-0013-30 ",.01)
 ;;61919-0013-30
 ;;9002226.02101,"1799,61919-0013-30 ",.02)
 ;;61919-0013-30
 ;;9002226.02101,"1799,61919-0013-60 ",.01)
 ;;61919-0013-60
 ;;9002226.02101,"1799,61919-0013-60 ",.02)
 ;;61919-0013-60
 ;;9002226.02101,"1799,61919-0013-71 ",.01)
 ;;61919-0013-71
 ;;9002226.02101,"1799,61919-0013-71 ",.02)
 ;;61919-0013-71
 ;;9002226.02101,"1799,61919-0013-90 ",.01)
 ;;61919-0013-90
 ;;9002226.02101,"1799,61919-0013-90 ",.02)
 ;;61919-0013-90
 ;;9002226.02101,"1799,61919-0022-30 ",.01)
 ;;61919-0022-30
 ;;9002226.02101,"1799,61919-0022-30 ",.02)
 ;;61919-0022-30
 ;;9002226.02101,"1799,61919-0022-60 ",.01)
 ;;61919-0022-60
 ;;9002226.02101,"1799,61919-0022-60 ",.02)
 ;;61919-0022-60
 ;;9002226.02101,"1799,61919-0022-90 ",.01)
 ;;61919-0022-90
 ;;9002226.02101,"1799,61919-0022-90 ",.02)
 ;;61919-0022-90
 ;;9002226.02101,"1799,61919-0081-30 ",.01)
 ;;61919-0081-30
 ;;9002226.02101,"1799,61919-0081-30 ",.02)
 ;;61919-0081-30
 ;;9002226.02101,"1799,61919-0109-30 ",.01)
 ;;61919-0109-30
 ;;9002226.02101,"1799,61919-0109-30 ",.02)
 ;;61919-0109-30
 ;;9002226.02101,"1799,61919-0240-60 ",.01)
 ;;61919-0240-60
 ;;9002226.02101,"1799,61919-0240-60 ",.02)
 ;;61919-0240-60
 ;;9002226.02101,"1799,61919-0502-30 ",.01)
 ;;61919-0502-30
 ;;9002226.02101,"1799,61919-0502-30 ",.02)
 ;;61919-0502-30
 ;;9002226.02101,"1799,61919-0527-30 ",.01)
 ;;61919-0527-30
 ;;9002226.02101,"1799,61919-0527-30 ",.02)
 ;;61919-0527-30
 ;;9002226.02101,"1799,61919-0527-60 ",.01)
 ;;61919-0527-60
 ;;9002226.02101,"1799,61919-0527-60 ",.02)
 ;;61919-0527-60
 ;;9002226.02101,"1799,61919-0528-20 ",.01)
 ;;61919-0528-20
 ;;9002226.02101,"1799,61919-0528-20 ",.02)
 ;;61919-0528-20
 ;;9002226.02101,"1799,61919-0528-30 ",.01)
 ;;61919-0528-30
 ;;9002226.02101,"1799,61919-0528-30 ",.02)
 ;;61919-0528-30
 ;;9002226.02101,"1799,61919-0528-60 ",.01)
 ;;61919-0528-60
 ;;9002226.02101,"1799,61919-0528-60 ",.02)
 ;;61919-0528-60
 ;;9002226.02101,"1799,61919-0541-90 ",.01)
 ;;61919-0541-90
 ;;9002226.02101,"1799,61919-0541-90 ",.02)
 ;;61919-0541-90
 ;;9002226.02101,"1799,61919-0629-30 ",.01)
 ;;61919-0629-30
 ;;9002226.02101,"1799,61919-0629-30 ",.02)
 ;;61919-0629-30
 ;;9002226.02101,"1799,61919-0629-60 ",.01)
 ;;61919-0629-60
 ;;9002226.02101,"1799,61919-0629-60 ",.02)
 ;;61919-0629-60
 ;;9002226.02101,"1799,61919-0751-20 ",.01)
 ;;61919-0751-20
 ;;9002226.02101,"1799,61919-0751-20 ",.02)
 ;;61919-0751-20
 ;;9002226.02101,"1799,61919-0751-30 ",.01)
 ;;61919-0751-30
 ;;9002226.02101,"1799,61919-0751-30 ",.02)
 ;;61919-0751-30
 ;;9002226.02101,"1799,61919-0751-60 ",.01)
 ;;61919-0751-60
 ;;9002226.02101,"1799,61919-0751-60 ",.02)
 ;;61919-0751-60
 ;;9002226.02101,"1799,61919-0955-30 ",.01)
 ;;61919-0955-30
 ;;9002226.02101,"1799,61919-0955-30 ",.02)
 ;;61919-0955-30
 ;;9002226.02101,"1799,61919-0955-60 ",.01)
 ;;61919-0955-60
 ;;9002226.02101,"1799,61919-0955-60 ",.02)
 ;;61919-0955-60
 ;;9002226.02101,"1799,62332-0019-31 ",.01)
 ;;62332-0019-31
 ;;9002226.02101,"1799,62332-0019-31 ",.02)
 ;;62332-0019-31
 ;;9002226.02101,"1799,62332-0020-31 ",.01)
 ;;62332-0020-31
 ;;9002226.02101,"1799,62332-0020-31 ",.02)
 ;;62332-0020-31
 ;;9002226.02101,"1799,63187-0115-15 ",.01)
 ;;63187-0115-15
 ;;9002226.02101,"1799,63187-0115-15 ",.02)
 ;;63187-0115-15
 ;;9002226.02101,"1799,63187-0116-30 ",.01)
 ;;63187-0116-30
 ;;9002226.02101,"1799,63187-0116-30 ",.02)
 ;;63187-0116-30
 ;;9002226.02101,"1799,63187-0155-30 ",.01)
 ;;63187-0155-30
 ;;9002226.02101,"1799,63187-0155-30 ",.02)
 ;;63187-0155-30
 ;;9002226.02101,"1799,63187-0180-30 ",.01)
 ;;63187-0180-30
 ;;9002226.02101,"1799,63187-0180-30 ",.02)
 ;;63187-0180-30
 ;;9002226.02101,"1799,63187-0180-60 ",.01)
 ;;63187-0180-60
 ;;9002226.02101,"1799,63187-0180-60 ",.02)
 ;;63187-0180-60
 ;;9002226.02101,"1799,63187-0558-15 ",.01)
 ;;63187-0558-15
 ;;9002226.02101,"1799,63187-0558-15 ",.02)
 ;;63187-0558-15
 ;;9002226.02101,"1799,63187-0565-30 ",.01)
 ;;63187-0565-30
 ;;9002226.02101,"1799,63187-0565-30 ",.02)
 ;;63187-0565-30
 ;;9002226.02101,"1799,63187-0579-30 ",.01)
 ;;63187-0579-30
 ;;9002226.02101,"1799,63187-0579-30 ",.02)
 ;;63187-0579-30
 ;;9002226.02101,"1799,63187-0579-60 ",.01)
 ;;63187-0579-60
 ;;9002226.02101,"1799,63187-0579-60 ",.02)
 ;;63187-0579-60
 ;;9002226.02101,"1799,63402-0190-30 ",.01)
 ;;63402-0190-30
 ;;9002226.02101,"1799,63402-0190-30 ",.02)
 ;;63402-0190-30
 ;;9002226.02101,"1799,63402-0191-10 ",.01)
 ;;63402-0191-10
 ;;9002226.02101,"1799,63402-0191-10 ",.02)
 ;;63402-0191-10
 ;;9002226.02101,"1799,63402-0193-10 ",.01)
 ;;63402-0193-10
 ;;9002226.02101,"1799,63402-0193-10 ",.02)
 ;;63402-0193-10
 ;;9002226.02101,"1799,63629-1256-01 ",.01)
 ;;63629-1256-01
 ;;9002226.02101,"1799,63629-1256-01 ",.02)
 ;;63629-1256-01
 ;;9002226.02101,"1799,63629-1256-02 ",.01)
 ;;63629-1256-02
 ;;9002226.02101,"1799,63629-1256-02 ",.02)
 ;;63629-1256-02
 ;;9002226.02101,"1799,63629-1256-03 ",.01)
 ;;63629-1256-03
 ;;9002226.02101,"1799,63629-1256-03 ",.02)
 ;;63629-1256-03
 ;;9002226.02101,"1799,63629-1256-04 ",.01)
 ;;63629-1256-04
 ;;9002226.02101,"1799,63629-1256-04 ",.02)
 ;;63629-1256-04
 ;;9002226.02101,"1799,63629-1256-05 ",.01)
 ;;63629-1256-05
 ;;9002226.02101,"1799,63629-1256-05 ",.02)
 ;;63629-1256-05
 ;;9002226.02101,"1799,63629-1368-01 ",.01)
 ;;63629-1368-01
 ;;9002226.02101,"1799,63629-1368-01 ",.02)
 ;;63629-1368-01
 ;;9002226.02101,"1799,63629-1368-02 ",.01)
 ;;63629-1368-02
 ;;9002226.02101,"1799,63629-1368-02 ",.02)
 ;;63629-1368-02
 ;;9002226.02101,"1799,63629-1368-03 ",.01)
 ;;63629-1368-03
 ;;9002226.02101,"1799,63629-1368-03 ",.02)
 ;;63629-1368-03
 ;;9002226.02101,"1799,63629-1368-04 ",.01)
 ;;63629-1368-04
 ;;9002226.02101,"1799,63629-1368-04 ",.02)
 ;;63629-1368-04
 ;;9002226.02101,"1799,63629-1368-05 ",.01)
 ;;63629-1368-05
 ;;9002226.02101,"1799,63629-1368-05 ",.02)
 ;;63629-1368-05
 ;;9002226.02101,"1799,63629-1368-06 ",.01)
 ;;63629-1368-06
 ;;9002226.02101,"1799,63629-1368-06 ",.02)
 ;;63629-1368-06
 ;;9002226.02101,"1799,63629-1368-07 ",.01)
 ;;63629-1368-07
 ;;9002226.02101,"1799,63629-1368-07 ",.02)
 ;;63629-1368-07
 ;;9002226.02101,"1799,63629-1368-08 ",.01)
 ;;63629-1368-08
 ;;9002226.02101,"1799,63629-1368-08 ",.02)
 ;;63629-1368-08
 ;;9002226.02101,"1799,63629-1369-00 ",.01)
 ;;63629-1369-00
 ;;9002226.02101,"1799,63629-1369-00 ",.02)
 ;;63629-1369-00
 ;;9002226.02101,"1799,63629-1369-01 ",.01)
 ;;63629-1369-01
 ;;9002226.02101,"1799,63629-1369-01 ",.02)
 ;;63629-1369-01
 ;;9002226.02101,"1799,63629-1369-02 ",.01)
 ;;63629-1369-02
 ;;9002226.02101,"1799,63629-1369-02 ",.02)
 ;;63629-1369-02
 ;;9002226.02101,"1799,63629-1369-03 ",.01)
 ;;63629-1369-03
 ;;9002226.02101,"1799,63629-1369-03 ",.02)
 ;;63629-1369-03
 ;;9002226.02101,"1799,63629-1369-04 ",.01)
 ;;63629-1369-04
 ;;9002226.02101,"1799,63629-1369-04 ",.02)
 ;;63629-1369-04
 ;;9002226.02101,"1799,63629-1369-05 ",.01)
 ;;63629-1369-05
 ;;9002226.02101,"1799,63629-1369-05 ",.02)
 ;;63629-1369-05
 ;;9002226.02101,"1799,63629-1369-06 ",.01)
 ;;63629-1369-06
 ;;9002226.02101,"1799,63629-1369-06 ",.02)
 ;;63629-1369-06
 ;;9002226.02101,"1799,63629-1369-07 ",.01)
 ;;63629-1369-07
 ;;9002226.02101,"1799,63629-1369-07 ",.02)
 ;;63629-1369-07
 ;;9002226.02101,"1799,63629-1369-08 ",.01)
 ;;63629-1369-08
 ;;9002226.02101,"1799,63629-1369-08 ",.02)
 ;;63629-1369-08
 ;;9002226.02101,"1799,63629-1369-09 ",.01)
 ;;63629-1369-09
 ;;9002226.02101,"1799,63629-1369-09 ",.02)
 ;;63629-1369-09
 ;;9002226.02101,"1799,63629-1369-10 ",.01)
 ;;63629-1369-10
 ;;9002226.02101,"1799,63629-1369-10 ",.02)
 ;;63629-1369-10
 ;;9002226.02101,"1799,63629-1370-01 ",.01)
 ;;63629-1370-01
 ;;9002226.02101,"1799,63629-1370-01 ",.02)
 ;;63629-1370-01
 ;;9002226.02101,"1799,63629-1370-02 ",.01)
 ;;63629-1370-02
 ;;9002226.02101,"1799,63629-1370-02 ",.02)
 ;;63629-1370-02
 ;;9002226.02101,"1799,63629-1370-03 ",.01)
 ;;63629-1370-03
 ;;9002226.02101,"1799,63629-1370-03 ",.02)
 ;;63629-1370-03
 ;;9002226.02101,"1799,63629-1370-04 ",.01)
 ;;63629-1370-04
 ;;9002226.02101,"1799,63629-1370-04 ",.02)
 ;;63629-1370-04
 ;;9002226.02101,"1799,63629-1370-05 ",.01)
 ;;63629-1370-05
 ;;9002226.02101,"1799,63629-1370-05 ",.02)
 ;;63629-1370-05