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

BGP82Z74.m

Go to the documentation of this file.
BGP82Z74 ; 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,"619,66689-0403-16 ",.02)
 ;;66689-0403-16
 ;;9002226.02101,"619,66689-0694-30 ",.01)
 ;;66689-0694-30
 ;;9002226.02101,"619,66689-0694-30 ",.02)
 ;;66689-0694-30
 ;;9002226.02101,"619,66689-0694-39 ",.01)
 ;;66689-0694-39
 ;;9002226.02101,"619,66689-0694-39 ",.02)
 ;;66689-0694-39
 ;;9002226.02101,"619,66689-0694-79 ",.01)
 ;;66689-0694-79
 ;;9002226.02101,"619,66689-0694-79 ",.02)
 ;;66689-0694-79
 ;;9002226.02101,"619,66689-0695-79 ",.01)
 ;;66689-0695-79
 ;;9002226.02101,"619,66689-0695-79 ",.02)
 ;;66689-0695-79
 ;;9002226.02101,"619,66689-0711-16 ",.01)
 ;;66689-0711-16
 ;;9002226.02101,"619,66689-0711-16 ",.02)
 ;;66689-0711-16
 ;;9002226.02101,"619,66689-0712-16 ",.01)
 ;;66689-0712-16
 ;;9002226.02101,"619,66689-0712-16 ",.02)
 ;;66689-0712-16
 ;;9002226.02101,"619,66689-0810-10 ",.01)
 ;;66689-0810-10
 ;;9002226.02101,"619,66689-0810-10 ",.02)
 ;;66689-0810-10
 ;;9002226.02101,"619,66689-0898-40 ",.01)
 ;;66689-0898-40
 ;;9002226.02101,"619,66689-0898-40 ",.02)
 ;;66689-0898-40
 ;;9002226.02101,"619,66992-0340-10 ",.01)
 ;;66992-0340-10
 ;;9002226.02101,"619,66992-0340-10 ",.02)
 ;;66992-0340-10
 ;;9002226.02101,"619,66992-0840-10 ",.01)
 ;;66992-0840-10
 ;;9002226.02101,"619,66992-0840-10 ",.02)
 ;;66992-0840-10
 ;;9002226.02101,"619,67544-0001-60 ",.01)
 ;;67544-0001-60
 ;;9002226.02101,"619,67544-0001-60 ",.02)
 ;;67544-0001-60
 ;;9002226.02101,"619,67544-0002-15 ",.01)
 ;;67544-0002-15
 ;;9002226.02101,"619,67544-0002-15 ",.02)
 ;;67544-0002-15
 ;;9002226.02101,"619,67544-0002-20 ",.01)
 ;;67544-0002-20
 ;;9002226.02101,"619,67544-0002-20 ",.02)
 ;;67544-0002-20
 ;;9002226.02101,"619,67544-0002-30 ",.01)
 ;;67544-0002-30
 ;;9002226.02101,"619,67544-0002-30 ",.02)
 ;;67544-0002-30
 ;;9002226.02101,"619,67544-0002-40 ",.01)
 ;;67544-0002-40
 ;;9002226.02101,"619,67544-0002-40 ",.02)
 ;;67544-0002-40
 ;;9002226.02101,"619,67544-0002-45 ",.01)
 ;;67544-0002-45
 ;;9002226.02101,"619,67544-0002-45 ",.02)
 ;;67544-0002-45
 ;;9002226.02101,"619,67544-0002-50 ",.01)
 ;;67544-0002-50
 ;;9002226.02101,"619,67544-0002-50 ",.02)
 ;;67544-0002-50
 ;;9002226.02101,"619,67544-0002-53 ",.01)
 ;;67544-0002-53
 ;;9002226.02101,"619,67544-0002-53 ",.02)
 ;;67544-0002-53
 ;;9002226.02101,"619,67544-0002-55 ",.01)
 ;;67544-0002-55
 ;;9002226.02101,"619,67544-0002-55 ",.02)
 ;;67544-0002-55
 ;;9002226.02101,"619,67544-0002-60 ",.01)
 ;;67544-0002-60
 ;;9002226.02101,"619,67544-0002-60 ",.02)
 ;;67544-0002-60
 ;;9002226.02101,"619,67544-0002-70 ",.01)
 ;;67544-0002-70
 ;;9002226.02101,"619,67544-0002-70 ",.02)
 ;;67544-0002-70
 ;;9002226.02101,"619,67544-0002-75 ",.01)
 ;;67544-0002-75
 ;;9002226.02101,"619,67544-0002-75 ",.02)
 ;;67544-0002-75
 ;;9002226.02101,"619,67544-0002-80 ",.01)
 ;;67544-0002-80
 ;;9002226.02101,"619,67544-0002-80 ",.02)
 ;;67544-0002-80
 ;;9002226.02101,"619,67544-0002-85 ",.01)
 ;;67544-0002-85
 ;;9002226.02101,"619,67544-0002-85 ",.02)
 ;;67544-0002-85
 ;;9002226.02101,"619,67544-0002-90 ",.01)
 ;;67544-0002-90
 ;;9002226.02101,"619,67544-0002-90 ",.02)
 ;;67544-0002-90
 ;;9002226.02101,"619,67544-0002-93 ",.01)
 ;;67544-0002-93
 ;;9002226.02101,"619,67544-0002-93 ",.02)
 ;;67544-0002-93
 ;;9002226.02101,"619,67544-0003-53 ",.01)
 ;;67544-0003-53
 ;;9002226.02101,"619,67544-0003-53 ",.02)
 ;;67544-0003-53
 ;;9002226.02101,"619,67544-0003-60 ",.01)
 ;;67544-0003-60
 ;;9002226.02101,"619,67544-0003-60 ",.02)
 ;;67544-0003-60
 ;;9002226.02101,"619,67544-0003-70 ",.01)
 ;;67544-0003-70
 ;;9002226.02101,"619,67544-0003-70 ",.02)
 ;;67544-0003-70
 ;;9002226.02101,"619,67544-0003-80 ",.01)
 ;;67544-0003-80
 ;;9002226.02101,"619,67544-0003-80 ",.02)
 ;;67544-0003-80
 ;;9002226.02101,"619,67544-0003-90 ",.01)
 ;;67544-0003-90
 ;;9002226.02101,"619,67544-0003-90 ",.02)
 ;;67544-0003-90
 ;;9002226.02101,"619,67544-0023-10 ",.01)
 ;;67544-0023-10
 ;;9002226.02101,"619,67544-0023-10 ",.02)
 ;;67544-0023-10
 ;;9002226.02101,"619,67544-0023-15 ",.01)
 ;;67544-0023-15
 ;;9002226.02101,"619,67544-0023-15 ",.02)
 ;;67544-0023-15
 ;;9002226.02101,"619,67544-0023-20 ",.01)
 ;;67544-0023-20
 ;;9002226.02101,"619,67544-0023-20 ",.02)
 ;;67544-0023-20
 ;;9002226.02101,"619,67544-0023-25 ",.01)
 ;;67544-0023-25
 ;;9002226.02101,"619,67544-0023-25 ",.02)
 ;;67544-0023-25
 ;;9002226.02101,"619,67544-0023-28 ",.01)
 ;;67544-0023-28
 ;;9002226.02101,"619,67544-0023-28 ",.02)
 ;;67544-0023-28
 ;;9002226.02101,"619,67544-0023-30 ",.01)
 ;;67544-0023-30
 ;;9002226.02101,"619,67544-0023-30 ",.02)
 ;;67544-0023-30
 ;;9002226.02101,"619,67544-0023-40 ",.01)
 ;;67544-0023-40
 ;;9002226.02101,"619,67544-0023-40 ",.02)
 ;;67544-0023-40
 ;;9002226.02101,"619,67544-0023-45 ",.01)
 ;;67544-0023-45
 ;;9002226.02101,"619,67544-0023-45 ",.02)
 ;;67544-0023-45
 ;;9002226.02101,"619,67544-0023-46 ",.01)
 ;;67544-0023-46
 ;;9002226.02101,"619,67544-0023-46 ",.02)
 ;;67544-0023-46
 ;;9002226.02101,"619,67544-0023-50 ",.01)
 ;;67544-0023-50
 ;;9002226.02101,"619,67544-0023-50 ",.02)
 ;;67544-0023-50
 ;;9002226.02101,"619,67544-0023-53 ",.01)
 ;;67544-0023-53
 ;;9002226.02101,"619,67544-0023-53 ",.02)
 ;;67544-0023-53
 ;;9002226.02101,"619,67544-0023-54 ",.01)
 ;;67544-0023-54
 ;;9002226.02101,"619,67544-0023-54 ",.02)
 ;;67544-0023-54
 ;;9002226.02101,"619,67544-0023-55 ",.01)
 ;;67544-0023-55
 ;;9002226.02101,"619,67544-0023-55 ",.02)
 ;;67544-0023-55
 ;;9002226.02101,"619,67544-0023-57 ",.01)
 ;;67544-0023-57
 ;;9002226.02101,"619,67544-0023-57 ",.02)
 ;;67544-0023-57
 ;;9002226.02101,"619,67544-0023-60 ",.01)
 ;;67544-0023-60
 ;;9002226.02101,"619,67544-0023-60 ",.02)
 ;;67544-0023-60
 ;;9002226.02101,"619,67544-0023-61 ",.01)
 ;;67544-0023-61
 ;;9002226.02101,"619,67544-0023-61 ",.02)
 ;;67544-0023-61
 ;;9002226.02101,"619,67544-0023-63 ",.01)
 ;;67544-0023-63
 ;;9002226.02101,"619,67544-0023-63 ",.02)
 ;;67544-0023-63
 ;;9002226.02101,"619,67544-0023-67 ",.01)
 ;;67544-0023-67
 ;;9002226.02101,"619,67544-0023-67 ",.02)
 ;;67544-0023-67
 ;;9002226.02101,"619,67544-0023-70 ",.01)
 ;;67544-0023-70
 ;;9002226.02101,"619,67544-0023-70 ",.02)
 ;;67544-0023-70
 ;;9002226.02101,"619,67544-0023-72 ",.01)
 ;;67544-0023-72
 ;;9002226.02101,"619,67544-0023-72 ",.02)
 ;;67544-0023-72
 ;;9002226.02101,"619,67544-0023-75 ",.01)
 ;;67544-0023-75
 ;;9002226.02101,"619,67544-0023-75 ",.02)
 ;;67544-0023-75
 ;;9002226.02101,"619,67544-0023-77 ",.01)
 ;;67544-0023-77
 ;;9002226.02101,"619,67544-0023-77 ",.02)
 ;;67544-0023-77
 ;;9002226.02101,"619,67544-0023-80 ",.01)
 ;;67544-0023-80
 ;;9002226.02101,"619,67544-0023-80 ",.02)
 ;;67544-0023-80
 ;;9002226.02101,"619,67544-0023-90 ",.01)
 ;;67544-0023-90
 ;;9002226.02101,"619,67544-0023-90 ",.02)
 ;;67544-0023-90
 ;;9002226.02101,"619,67544-0023-94 ",.01)
 ;;67544-0023-94
 ;;9002226.02101,"619,67544-0023-94 ",.02)
 ;;67544-0023-94
 ;;9002226.02101,"619,67544-0024-20 ",.01)
 ;;67544-0024-20
 ;;9002226.02101,"619,67544-0024-20 ",.02)
 ;;67544-0024-20
 ;;9002226.02101,"619,67544-0024-28 ",.01)
 ;;67544-0024-28
 ;;9002226.02101,"619,67544-0024-28 ",.02)
 ;;67544-0024-28
 ;;9002226.02101,"619,67544-0024-30 ",.01)
 ;;67544-0024-30
 ;;9002226.02101,"619,67544-0024-30 ",.02)
 ;;67544-0024-30
 ;;9002226.02101,"619,67544-0024-40 ",.01)
 ;;67544-0024-40
 ;;9002226.02101,"619,67544-0024-40 ",.02)
 ;;67544-0024-40
 ;;9002226.02101,"619,67544-0024-45 ",.01)
 ;;67544-0024-45
 ;;9002226.02101,"619,67544-0024-45 ",.02)
 ;;67544-0024-45
 ;;9002226.02101,"619,67544-0024-46 ",.01)
 ;;67544-0024-46
 ;;9002226.02101,"619,67544-0024-46 ",.02)
 ;;67544-0024-46
 ;;9002226.02101,"619,67544-0024-50 ",.01)
 ;;67544-0024-50
 ;;9002226.02101,"619,67544-0024-50 ",.02)
 ;;67544-0024-50
 ;;9002226.02101,"619,67544-0024-53 ",.01)
 ;;67544-0024-53
 ;;9002226.02101,"619,67544-0024-53 ",.02)
 ;;67544-0024-53
 ;;9002226.02101,"619,67544-0024-54 ",.01)
 ;;67544-0024-54
 ;;9002226.02101,"619,67544-0024-54 ",.02)
 ;;67544-0024-54
 ;;9002226.02101,"619,67544-0024-55 ",.01)
 ;;67544-0024-55
 ;;9002226.02101,"619,67544-0024-55 ",.02)
 ;;67544-0024-55
 ;;9002226.02101,"619,67544-0024-57 ",.01)
 ;;67544-0024-57
 ;;9002226.02101,"619,67544-0024-57 ",.02)
 ;;67544-0024-57
 ;;9002226.02101,"619,67544-0024-60 ",.01)
 ;;67544-0024-60
 ;;9002226.02101,"619,67544-0024-60 ",.02)
 ;;67544-0024-60
 ;;9002226.02101,"619,67544-0024-70 ",.01)
 ;;67544-0024-70
 ;;9002226.02101,"619,67544-0024-70 ",.02)
 ;;67544-0024-70
 ;;9002226.02101,"619,67544-0024-72 ",.01)
 ;;67544-0024-72
 ;;9002226.02101,"619,67544-0024-72 ",.02)
 ;;67544-0024-72
 ;;9002226.02101,"619,67544-0024-75 ",.01)
 ;;67544-0024-75
 ;;9002226.02101,"619,67544-0024-75 ",.02)
 ;;67544-0024-75
 ;;9002226.02101,"619,67544-0024-80 ",.01)
 ;;67544-0024-80
 ;;9002226.02101,"619,67544-0024-80 ",.02)
 ;;67544-0024-80
 ;;9002226.02101,"619,67544-0024-90 ",.01)
 ;;67544-0024-90
 ;;9002226.02101,"619,67544-0024-90 ",.02)
 ;;67544-0024-90
 ;;9002226.02101,"619,67544-0025-30 ",.01)
 ;;67544-0025-30
 ;;9002226.02101,"619,67544-0025-30 ",.02)
 ;;67544-0025-30
 ;;9002226.02101,"619,67544-0025-40 ",.01)
 ;;67544-0025-40
 ;;9002226.02101,"619,67544-0025-40 ",.02)
 ;;67544-0025-40
 ;;9002226.02101,"619,67544-0025-45 ",.01)
 ;;67544-0025-45
 ;;9002226.02101,"619,67544-0025-45 ",.02)
 ;;67544-0025-45
 ;;9002226.02101,"619,67544-0025-53 ",.01)
 ;;67544-0025-53
 ;;9002226.02101,"619,67544-0025-53 ",.02)
 ;;67544-0025-53
 ;;9002226.02101,"619,67544-0025-54 ",.01)
 ;;67544-0025-54
 ;;9002226.02101,"619,67544-0025-54 ",.02)
 ;;67544-0025-54
 ;;9002226.02101,"619,67544-0025-60 ",.01)
 ;;67544-0025-60
 ;;9002226.02101,"619,67544-0025-60 ",.02)
 ;;67544-0025-60
 ;;9002226.02101,"619,67544-0025-70 ",.01)
 ;;67544-0025-70
 ;;9002226.02101,"619,67544-0025-70 ",.02)
 ;;67544-0025-70
 ;;9002226.02101,"619,67544-0025-72 ",.01)
 ;;67544-0025-72
 ;;9002226.02101,"619,67544-0025-72 ",.02)
 ;;67544-0025-72
 ;;9002226.02101,"619,67544-0025-75 ",.01)
 ;;67544-0025-75
 ;;9002226.02101,"619,67544-0025-75 ",.02)
 ;;67544-0025-75
 ;;9002226.02101,"619,67544-0025-80 ",.01)
 ;;67544-0025-80
 ;;9002226.02101,"619,67544-0025-80 ",.02)
 ;;67544-0025-80
 ;;9002226.02101,"619,67544-0025-90 ",.01)
 ;;67544-0025-90
 ;;9002226.02101,"619,67544-0025-90 ",.02)
 ;;67544-0025-90
 ;;9002226.02101,"619,67544-0026-30 ",.01)
 ;;67544-0026-30
 ;;9002226.02101,"619,67544-0026-30 ",.02)
 ;;67544-0026-30
 ;;9002226.02101,"619,67544-0026-40 ",.01)
 ;;67544-0026-40
 ;;9002226.02101,"619,67544-0026-40 ",.02)
 ;;67544-0026-40
 ;;9002226.02101,"619,67544-0026-45 ",.01)
 ;;67544-0026-45
 ;;9002226.02101,"619,67544-0026-45 ",.02)
 ;;67544-0026-45
 ;;9002226.02101,"619,67544-0026-53 ",.01)
 ;;67544-0026-53
 ;;9002226.02101,"619,67544-0026-53 ",.02)
 ;;67544-0026-53
 ;;9002226.02101,"619,67544-0026-60 ",.01)
 ;;67544-0026-60
 ;;9002226.02101,"619,67544-0026-60 ",.02)
 ;;67544-0026-60
 ;;9002226.02101,"619,67544-0026-70 ",.01)
 ;;67544-0026-70
 ;;9002226.02101,"619,67544-0026-70 ",.02)
 ;;67544-0026-70
 ;;9002226.02101,"619,67544-0026-72 ",.01)
 ;;67544-0026-72
 ;;9002226.02101,"619,67544-0026-72 ",.02)
 ;;67544-0026-72
 ;;9002226.02101,"619,67544-0026-75 ",.01)
 ;;67544-0026-75
 ;;9002226.02101,"619,67544-0026-75 ",.02)
 ;;67544-0026-75
 ;;9002226.02101,"619,67544-0026-80 ",.01)
 ;;67544-0026-80
 ;;9002226.02101,"619,67544-0026-80 ",.02)
 ;;67544-0026-80
 ;;9002226.02101,"619,67544-0345-80 ",.01)
 ;;67544-0345-80
 ;;9002226.02101,"619,67544-0345-80 ",.02)
 ;;67544-0345-80
 ;;9002226.02101,"619,67544-0474-53 ",.01)
 ;;67544-0474-53
 ;;9002226.02101,"619,67544-0474-53 ",.02)
 ;;67544-0474-53
 ;;9002226.02101,"619,67544-0474-60 ",.01)
 ;;67544-0474-60