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

BGP82P23.m

Go to the documentation of this file.
BGP82P23 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
 ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
 ;
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,"1224,60429-0881-30 ",.02)
 ;;60429-0881-30
 ;;9002226.02101,"1224,60429-0881-90 ",.01)
 ;;60429-0881-90
 ;;9002226.02101,"1224,60429-0881-90 ",.02)
 ;;60429-0881-90
 ;;9002226.02101,"1224,60429-0882-05 ",.01)
 ;;60429-0882-05
 ;;9002226.02101,"1224,60429-0882-05 ",.02)
 ;;60429-0882-05
 ;;9002226.02101,"1224,60429-0882-30 ",.01)
 ;;60429-0882-30
 ;;9002226.02101,"1224,60429-0882-30 ",.02)
 ;;60429-0882-30
 ;;9002226.02101,"1224,60429-0882-90 ",.01)
 ;;60429-0882-90
 ;;9002226.02101,"1224,60429-0882-90 ",.02)
 ;;60429-0882-90
 ;;9002226.02101,"1224,60505-0168-05 ",.01)
 ;;60505-0168-05
 ;;9002226.02101,"1224,60505-0168-05 ",.02)
 ;;60505-0168-05
 ;;9002226.02101,"1224,60505-0168-09 ",.01)
 ;;60505-0168-09
 ;;9002226.02101,"1224,60505-0168-09 ",.02)
 ;;60505-0168-09
 ;;9002226.02101,"1224,60505-0169-07 ",.01)
 ;;60505-0169-07
 ;;9002226.02101,"1224,60505-0169-07 ",.02)
 ;;60505-0169-07
 ;;9002226.02101,"1224,60505-0169-09 ",.01)
 ;;60505-0169-09
 ;;9002226.02101,"1224,60505-0169-09 ",.02)
 ;;60505-0169-09
 ;;9002226.02101,"1224,60505-0170-07 ",.01)
 ;;60505-0170-07
 ;;9002226.02101,"1224,60505-0170-07 ",.02)
 ;;60505-0170-07
 ;;9002226.02101,"1224,60505-0170-08 ",.01)
 ;;60505-0170-08
 ;;9002226.02101,"1224,60505-0170-08 ",.02)
 ;;60505-0170-08
 ;;9002226.02101,"1224,60505-0170-09 ",.01)
 ;;60505-0170-09
 ;;9002226.02101,"1224,60505-0170-09 ",.02)
 ;;60505-0170-09
 ;;9002226.02101,"1224,60505-0177-00 ",.01)
 ;;60505-0177-00
 ;;9002226.02101,"1224,60505-0177-00 ",.02)
 ;;60505-0177-00
 ;;9002226.02101,"1224,60505-0178-00 ",.01)
 ;;60505-0178-00
 ;;9002226.02101,"1224,60505-0178-00 ",.02)
 ;;60505-0178-00
 ;;9002226.02101,"1224,60505-0179-00 ",.01)
 ;;60505-0179-00
 ;;9002226.02101,"1224,60505-0179-00 ",.02)
 ;;60505-0179-00
 ;;9002226.02101,"1224,60505-1323-05 ",.01)
 ;;60505-1323-05
 ;;9002226.02101,"1224,60505-1323-05 ",.02)
 ;;60505-1323-05
 ;;9002226.02101,"1224,60505-1323-09 ",.01)
 ;;60505-1323-09
 ;;9002226.02101,"1224,60505-1323-09 ",.02)
 ;;60505-1323-09
 ;;9002226.02101,"1224,60505-2578-08 ",.01)
 ;;60505-2578-08
 ;;9002226.02101,"1224,60505-2578-08 ",.02)
 ;;60505-2578-08
 ;;9002226.02101,"1224,60505-2578-09 ",.01)
 ;;60505-2578-09
 ;;9002226.02101,"1224,60505-2578-09 ",.02)
 ;;60505-2578-09
 ;;9002226.02101,"1224,60505-2579-08 ",.01)
 ;;60505-2579-08
 ;;9002226.02101,"1224,60505-2579-08 ",.02)
 ;;60505-2579-08
 ;;9002226.02101,"1224,60505-2579-09 ",.01)
 ;;60505-2579-09
 ;;9002226.02101,"1224,60505-2579-09 ",.02)
 ;;60505-2579-09
 ;;9002226.02101,"1224,60505-2580-08 ",.01)
 ;;60505-2580-08
 ;;9002226.02101,"1224,60505-2580-08 ",.02)
 ;;60505-2580-08
 ;;9002226.02101,"1224,60505-2580-09 ",.01)
 ;;60505-2580-09
 ;;9002226.02101,"1224,60505-2580-09 ",.02)
 ;;60505-2580-09
 ;;9002226.02101,"1224,60505-2671-08 ",.01)
 ;;60505-2671-08
 ;;9002226.02101,"1224,60505-2671-08 ",.02)
 ;;60505-2671-08
 ;;9002226.02101,"1224,60505-2671-09 ",.01)
 ;;60505-2671-09
 ;;9002226.02101,"1224,60505-2671-09 ",.02)
 ;;60505-2671-09
 ;;9002226.02101,"1224,60505-4502-09 ",.01)
 ;;60505-4502-09
 ;;9002226.02101,"1224,60505-4502-09 ",.02)
 ;;60505-4502-09
 ;;9002226.02101,"1224,60505-4503-09 ",.01)
 ;;60505-4503-09
 ;;9002226.02101,"1224,60505-4503-09 ",.02)
 ;;60505-4503-09
 ;;9002226.02101,"1224,60505-4504-09 ",.01)
 ;;60505-4504-09
 ;;9002226.02101,"1224,60505-4504-09 ",.02)
 ;;60505-4504-09
 ;;9002226.02101,"1224,60505-4505-03 ",.01)
 ;;60505-4505-03
 ;;9002226.02101,"1224,60505-4505-03 ",.02)
 ;;60505-4505-03
 ;;9002226.02101,"1224,60687-0169-01 ",.01)
 ;;60687-0169-01
 ;;9002226.02101,"1224,60687-0169-01 ",.02)
 ;;60687-0169-01
 ;;9002226.02101,"1224,60687-0169-11 ",.01)
 ;;60687-0169-11
 ;;9002226.02101,"1224,60687-0169-11 ",.02)
 ;;60687-0169-11
 ;;9002226.02101,"1224,60687-0178-01 ",.01)
 ;;60687-0178-01
 ;;9002226.02101,"1224,60687-0178-01 ",.02)
 ;;60687-0178-01
 ;;9002226.02101,"1224,60687-0178-11 ",.01)
 ;;60687-0178-11
 ;;9002226.02101,"1224,60687-0178-11 ",.02)
 ;;60687-0178-11
 ;;9002226.02101,"1224,60687-0190-01 ",.01)
 ;;60687-0190-01
 ;;9002226.02101,"1224,60687-0190-01 ",.02)
 ;;60687-0190-01
 ;;9002226.02101,"1224,60687-0190-11 ",.01)
 ;;60687-0190-11
 ;;9002226.02101,"1224,60687-0190-11 ",.02)
 ;;60687-0190-11
 ;;9002226.02101,"1224,60687-0210-01 ",.01)
 ;;60687-0210-01
 ;;9002226.02101,"1224,60687-0210-01 ",.02)
 ;;60687-0210-01
 ;;9002226.02101,"1224,60687-0210-11 ",.01)
 ;;60687-0210-11
 ;;9002226.02101,"1224,60687-0210-11 ",.02)
 ;;60687-0210-11
 ;;9002226.02101,"1224,60687-0234-01 ",.01)
 ;;60687-0234-01
 ;;9002226.02101,"1224,60687-0234-01 ",.02)
 ;;60687-0234-01
 ;;9002226.02101,"1224,60687-0234-11 ",.01)
 ;;60687-0234-11
 ;;9002226.02101,"1224,60687-0234-11 ",.02)
 ;;60687-0234-11
 ;;9002226.02101,"1224,60687-0245-01 ",.01)
 ;;60687-0245-01
 ;;9002226.02101,"1224,60687-0245-01 ",.02)
 ;;60687-0245-01
 ;;9002226.02101,"1224,60687-0245-11 ",.01)
 ;;60687-0245-11
 ;;9002226.02101,"1224,60687-0245-11 ",.02)
 ;;60687-0245-11
 ;;9002226.02101,"1224,60687-0256-01 ",.01)
 ;;60687-0256-01
 ;;9002226.02101,"1224,60687-0256-01 ",.02)
 ;;60687-0256-01
 ;;9002226.02101,"1224,60687-0256-11 ",.01)
 ;;60687-0256-11
 ;;9002226.02101,"1224,60687-0256-11 ",.02)
 ;;60687-0256-11
 ;;9002226.02101,"1224,60760-0005-30 ",.01)
 ;;60760-0005-30
 ;;9002226.02101,"1224,60760-0005-30 ",.02)
 ;;60760-0005-30
 ;;9002226.02101,"1224,60760-0005-90 ",.01)
 ;;60760-0005-90
 ;;9002226.02101,"1224,60760-0005-90 ",.02)
 ;;60760-0005-90
 ;;9002226.02101,"1224,60760-0006-30 ",.01)
 ;;60760-0006-30
 ;;9002226.02101,"1224,60760-0006-30 ",.02)
 ;;60760-0006-30
 ;;9002226.02101,"1224,60760-0006-90 ",.01)
 ;;60760-0006-90
 ;;9002226.02101,"1224,60760-0006-90 ",.02)
 ;;60760-0006-90
 ;;9002226.02101,"1224,60760-0019-30 ",.01)
 ;;60760-0019-30
 ;;9002226.02101,"1224,60760-0019-30 ",.02)
 ;;60760-0019-30
 ;;9002226.02101,"1224,60760-0077-30 ",.01)
 ;;60760-0077-30
 ;;9002226.02101,"1224,60760-0077-30 ",.02)
 ;;60760-0077-30
 ;;9002226.02101,"1224,60760-0077-90 ",.01)
 ;;60760-0077-90
 ;;9002226.02101,"1224,60760-0077-90 ",.02)
 ;;60760-0077-90
 ;;9002226.02101,"1224,60760-0078-30 ",.01)
 ;;60760-0078-30
 ;;9002226.02101,"1224,60760-0078-30 ",.02)
 ;;60760-0078-30
 ;;9002226.02101,"1224,60760-0078-90 ",.01)
 ;;60760-0078-90
 ;;9002226.02101,"1224,60760-0078-90 ",.02)
 ;;60760-0078-90
 ;;9002226.02101,"1224,60760-0353-90 ",.01)
 ;;60760-0353-90
 ;;9002226.02101,"1224,60760-0353-90 ",.02)
 ;;60760-0353-90
 ;;9002226.02101,"1224,60760-0354-90 ",.01)
 ;;60760-0354-90
 ;;9002226.02101,"1224,60760-0354-90 ",.02)
 ;;60760-0354-90
 ;;9002226.02101,"1224,60760-0355-30 ",.01)
 ;;60760-0355-30
 ;;9002226.02101,"1224,60760-0355-30 ",.02)
 ;;60760-0355-30
 ;;9002226.02101,"1224,60760-0370-30 ",.01)
 ;;60760-0370-30
 ;;9002226.02101,"1224,60760-0370-30 ",.02)
 ;;60760-0370-30
 ;;9002226.02101,"1224,60760-0371-30 ",.01)
 ;;60760-0371-30
 ;;9002226.02101,"1224,60760-0371-30 ",.02)
 ;;60760-0371-30
 ;;9002226.02101,"1224,60760-0372-30 ",.01)
 ;;60760-0372-30
 ;;9002226.02101,"1224,60760-0372-30 ",.02)
 ;;60760-0372-30
 ;;9002226.02101,"1224,61442-0141-01 ",.01)
 ;;61442-0141-01
 ;;9002226.02101,"1224,61442-0141-01 ",.02)
 ;;61442-0141-01
 ;;9002226.02101,"1224,61442-0141-10 ",.01)
 ;;61442-0141-10
 ;;9002226.02101,"1224,61442-0141-10 ",.02)
 ;;61442-0141-10
 ;;9002226.02101,"1224,61442-0141-60 ",.01)
 ;;61442-0141-60
 ;;9002226.02101,"1224,61442-0141-60 ",.02)
 ;;61442-0141-60
 ;;9002226.02101,"1224,61442-0142-01 ",.01)
 ;;61442-0142-01
 ;;9002226.02101,"1224,61442-0142-01 ",.02)
 ;;61442-0142-01
 ;;9002226.02101,"1224,61442-0142-05 ",.01)
 ;;61442-0142-05
 ;;9002226.02101,"1224,61442-0142-05 ",.02)
 ;;61442-0142-05
 ;;9002226.02101,"1224,61442-0142-10 ",.01)
 ;;61442-0142-10
 ;;9002226.02101,"1224,61442-0142-10 ",.02)
 ;;61442-0142-10
 ;;9002226.02101,"1224,61442-0142-60 ",.01)
 ;;61442-0142-60
 ;;9002226.02101,"1224,61442-0142-60 ",.02)
 ;;61442-0142-60
 ;;9002226.02101,"1224,61442-0143-01 ",.01)
 ;;61442-0143-01
 ;;9002226.02101,"1224,61442-0143-01 ",.02)
 ;;61442-0143-01
 ;;9002226.02101,"1224,61442-0143-05 ",.01)
 ;;61442-0143-05
 ;;9002226.02101,"1224,61442-0143-05 ",.02)
 ;;61442-0143-05
 ;;9002226.02101,"1224,61442-0143-10 ",.01)
 ;;61442-0143-10
 ;;9002226.02101,"1224,61442-0143-10 ",.02)
 ;;61442-0143-10
 ;;9002226.02101,"1224,61442-0143-60 ",.01)
 ;;61442-0143-60
 ;;9002226.02101,"1224,61442-0143-60 ",.02)
 ;;61442-0143-60
 ;;9002226.02101,"1224,61919-0258-30 ",.01)
 ;;61919-0258-30
 ;;9002226.02101,"1224,61919-0258-30 ",.02)
 ;;61919-0258-30
 ;;9002226.02101,"1224,61919-0311-90 ",.01)
 ;;61919-0311-90
 ;;9002226.02101,"1224,61919-0311-90 ",.02)
 ;;61919-0311-90
 ;;9002226.02101,"1224,61919-0431-30 ",.01)
 ;;61919-0431-30
 ;;9002226.02101,"1224,61919-0431-30 ",.02)
 ;;61919-0431-30
 ;;9002226.02101,"1224,61919-0431-90 ",.01)
 ;;61919-0431-90
 ;;9002226.02101,"1224,61919-0431-90 ",.02)
 ;;61919-0431-90
 ;;9002226.02101,"1224,61919-0446-30 ",.01)
 ;;61919-0446-30
 ;;9002226.02101,"1224,61919-0446-30 ",.02)
 ;;61919-0446-30
 ;;9002226.02101,"1224,61919-0446-60 ",.01)
 ;;61919-0446-60
 ;;9002226.02101,"1224,61919-0446-60 ",.02)
 ;;61919-0446-60
 ;;9002226.02101,"1224,61919-0446-90 ",.01)
 ;;61919-0446-90
 ;;9002226.02101,"1224,61919-0446-90 ",.02)
 ;;61919-0446-90
 ;;9002226.02101,"1224,61919-0540-30 ",.01)
 ;;61919-0540-30
 ;;9002226.02101,"1224,61919-0540-30 ",.02)
 ;;61919-0540-30
 ;;9002226.02101,"1224,61919-0546-90 ",.01)
 ;;61919-0546-90
 ;;9002226.02101,"1224,61919-0546-90 ",.02)
 ;;61919-0546-90
 ;;9002226.02101,"1224,61919-0547-30 ",.01)
 ;;61919-0547-30
 ;;9002226.02101,"1224,61919-0547-30 ",.02)
 ;;61919-0547-30
 ;;9002226.02101,"1224,61919-0547-90 ",.01)
 ;;61919-0547-90
 ;;9002226.02101,"1224,61919-0547-90 ",.02)
 ;;61919-0547-90
 ;;9002226.02101,"1224,61919-0676-71 ",.01)
 ;;61919-0676-71
 ;;9002226.02101,"1224,61919-0676-71 ",.02)
 ;;61919-0676-71
 ;;9002226.02101,"1224,61919-0731-90 ",.01)
 ;;61919-0731-90
 ;;9002226.02101,"1224,61919-0731-90 ",.02)
 ;;61919-0731-90
 ;;9002226.02101,"1224,61919-0941-90 ",.01)
 ;;61919-0941-90
 ;;9002226.02101,"1224,61919-0941-90 ",.02)
 ;;61919-0941-90
 ;;9002226.02101,"1224,61919-0956-30 ",.01)
 ;;61919-0956-30
 ;;9002226.02101,"1224,61919-0956-30 ",.02)
 ;;61919-0956-30
 ;;9002226.02101,"1224,62175-0890-43 ",.01)
 ;;62175-0890-43
 ;;9002226.02101,"1224,62175-0890-43 ",.02)
 ;;62175-0890-43
 ;;9002226.02101,"1224,62175-0890-46 ",.01)
 ;;62175-0890-46
 ;;9002226.02101,"1224,62175-0890-46 ",.02)
 ;;62175-0890-46
 ;;9002226.02101,"1224,62175-0891-43 ",.01)
 ;;62175-0891-43
 ;;9002226.02101,"1224,62175-0891-43 ",.02)
 ;;62175-0891-43
 ;;9002226.02101,"1224,62175-0891-46 ",.01)
 ;;62175-0891-46
 ;;9002226.02101,"1224,62175-0891-46 ",.02)
 ;;62175-0891-46
 ;;9002226.02101,"1224,62175-0892-41 ",.01)
 ;;62175-0892-41
 ;;9002226.02101,"1224,62175-0892-41 ",.02)
 ;;62175-0892-41
 ;;9002226.02101,"1224,62175-0892-46 ",.01)
 ;;62175-0892-46
 ;;9002226.02101,"1224,62175-0892-46 ",.02)
 ;;62175-0892-46
 ;;9002226.02101,"1224,62175-0897-41 ",.01)
 ;;62175-0897-41
 ;;9002226.02101,"1224,62175-0897-41 ",.02)
 ;;62175-0897-41
 ;;9002226.02101,"1224,62175-0897-46 ",.01)
 ;;62175-0897-46
 ;;9002226.02101,"1224,62175-0897-46 ",.02)
 ;;62175-0897-46
 ;;9002226.02101,"1224,63187-0814-30 ",.01)
 ;;63187-0814-30
 ;;9002226.02101,"1224,63187-0814-30 ",.02)
 ;;63187-0814-30
 ;;9002226.02101,"1224,63187-0814-90 ",.01)
 ;;63187-0814-90
 ;;9002226.02101,"1224,63187-0814-90 ",.02)
 ;;63187-0814-90
 ;;9002226.02101,"1224,63304-0499-30 ",.01)
 ;;63304-0499-30
 ;;9002226.02101,"1224,63304-0499-30 ",.02)
 ;;63304-0499-30