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

BGP83A40.m

Go to the documentation of this file.
BGP83A40 ; 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,"1828,66336-0588-94 ",.01)
 ;;66336-0588-94
 ;;9002226.02101,"1828,66336-0588-94 ",.02)
 ;;66336-0588-94
 ;;9002226.02101,"1828,66336-0800-90 ",.01)
 ;;66336-0800-90
 ;;9002226.02101,"1828,66336-0800-90 ",.02)
 ;;66336-0800-90
 ;;9002226.02101,"1828,66336-0819-30 ",.01)
 ;;66336-0819-30
 ;;9002226.02101,"1828,66336-0819-30 ",.02)
 ;;66336-0819-30
 ;;9002226.02101,"1828,66336-0819-60 ",.01)
 ;;66336-0819-60
 ;;9002226.02101,"1828,66336-0819-60 ",.02)
 ;;66336-0819-60
 ;;9002226.02101,"1828,66336-0819-90 ",.01)
 ;;66336-0819-90
 ;;9002226.02101,"1828,66336-0819-90 ",.02)
 ;;66336-0819-90
 ;;9002226.02101,"1828,66336-0932-10 ",.01)
 ;;66336-0932-10
 ;;9002226.02101,"1828,66336-0932-10 ",.02)
 ;;66336-0932-10
 ;;9002226.02101,"1828,66336-0932-30 ",.01)
 ;;66336-0932-30
 ;;9002226.02101,"1828,66336-0932-30 ",.02)
 ;;66336-0932-30
 ;;9002226.02101,"1828,66336-0932-60 ",.01)
 ;;66336-0932-60
 ;;9002226.02101,"1828,66336-0932-60 ",.02)
 ;;66336-0932-60
 ;;9002226.02101,"1828,66336-0932-90 ",.01)
 ;;66336-0932-90
 ;;9002226.02101,"1828,66336-0932-90 ",.02)
 ;;66336-0932-90
 ;;9002226.02101,"1828,66336-0980-60 ",.01)
 ;;66336-0980-60
 ;;9002226.02101,"1828,66336-0980-60 ",.02)
 ;;66336-0980-60
 ;;9002226.02101,"1828,66336-0980-90 ",.01)
 ;;66336-0980-90
 ;;9002226.02101,"1828,66336-0980-90 ",.02)
 ;;66336-0980-90
 ;;9002226.02101,"1828,66490-0650-20 ",.01)
 ;;66490-0650-20
 ;;9002226.02101,"1828,66490-0650-20 ",.02)
 ;;66490-0650-20
 ;;9002226.02101,"1828,67253-0900-09 ",.01)
 ;;67253-0900-09
 ;;9002226.02101,"1828,67253-0900-09 ",.02)
 ;;67253-0900-09
 ;;9002226.02101,"1828,67253-0900-10 ",.01)
 ;;67253-0900-10
 ;;9002226.02101,"1828,67253-0900-10 ",.02)
 ;;67253-0900-10
 ;;9002226.02101,"1828,67253-0900-11 ",.01)
 ;;67253-0900-11
 ;;9002226.02101,"1828,67253-0900-11 ",.02)
 ;;67253-0900-11
 ;;9002226.02101,"1828,67253-0900-50 ",.01)
 ;;67253-0900-50
 ;;9002226.02101,"1828,67253-0900-50 ",.02)
 ;;67253-0900-50
 ;;9002226.02101,"1828,67253-0901-10 ",.01)
 ;;67253-0901-10
 ;;9002226.02101,"1828,67253-0901-10 ",.02)
 ;;67253-0901-10
 ;;9002226.02101,"1828,67253-0901-11 ",.01)
 ;;67253-0901-11
 ;;9002226.02101,"1828,67253-0901-11 ",.02)
 ;;67253-0901-11
 ;;9002226.02101,"1828,67253-0901-50 ",.01)
 ;;67253-0901-50
 ;;9002226.02101,"1828,67253-0901-50 ",.02)
 ;;67253-0901-50
 ;;9002226.02101,"1828,67253-0902-10 ",.01)
 ;;67253-0902-10
 ;;9002226.02101,"1828,67253-0902-10 ",.02)
 ;;67253-0902-10
 ;;9002226.02101,"1828,67253-0902-11 ",.01)
 ;;67253-0902-11
 ;;9002226.02101,"1828,67253-0902-11 ",.02)
 ;;67253-0902-11
 ;;9002226.02101,"1828,67253-0902-50 ",.01)
 ;;67253-0902-50
 ;;9002226.02101,"1828,67253-0902-50 ",.02)
 ;;67253-0902-50
 ;;9002226.02101,"1828,67253-0903-10 ",.01)
 ;;67253-0903-10
 ;;9002226.02101,"1828,67253-0903-10 ",.02)
 ;;67253-0903-10
 ;;9002226.02101,"1828,67253-0903-50 ",.01)
 ;;67253-0903-50
 ;;9002226.02101,"1828,67253-0903-50 ",.02)
 ;;67253-0903-50
 ;;9002226.02101,"1828,67386-0310-01 ",.01)
 ;;67386-0310-01
 ;;9002226.02101,"1828,67386-0310-01 ",.02)
 ;;67386-0310-01
 ;;9002226.02101,"1828,67386-0311-01 ",.01)
 ;;67386-0311-01
 ;;9002226.02101,"1828,67386-0311-01 ",.02)
 ;;67386-0311-01
 ;;9002226.02101,"1828,67386-0312-01 ",.01)
 ;;67386-0312-01
 ;;9002226.02101,"1828,67386-0312-01 ",.02)
 ;;67386-0312-01
 ;;9002226.02101,"1828,67386-0313-21 ",.01)
 ;;67386-0313-21
 ;;9002226.02101,"1828,67386-0313-21 ",.02)
 ;;67386-0313-21
 ;;9002226.02101,"1828,67386-0314-01 ",.01)
 ;;67386-0314-01
 ;;9002226.02101,"1828,67386-0314-01 ",.02)
 ;;67386-0314-01
 ;;9002226.02101,"1828,67386-0315-01 ",.01)
 ;;67386-0315-01
 ;;9002226.02101,"1828,67386-0315-01 ",.02)
 ;;67386-0315-01
 ;;9002226.02101,"1828,67544-0005-15 ",.01)
 ;;67544-0005-15
 ;;9002226.02101,"1828,67544-0005-15 ",.02)
 ;;67544-0005-15
 ;;9002226.02101,"1828,67544-0005-30 ",.01)
 ;;67544-0005-30
 ;;9002226.02101,"1828,67544-0005-30 ",.02)
 ;;67544-0005-30
 ;;9002226.02101,"1828,67544-0005-45 ",.01)
 ;;67544-0005-45
 ;;9002226.02101,"1828,67544-0005-45 ",.02)
 ;;67544-0005-45
 ;;9002226.02101,"1828,67544-0005-53 ",.01)
 ;;67544-0005-53
 ;;9002226.02101,"1828,67544-0005-53 ",.02)
 ;;67544-0005-53
 ;;9002226.02101,"1828,67544-0005-60 ",.01)
 ;;67544-0005-60
 ;;9002226.02101,"1828,67544-0005-60 ",.02)
 ;;67544-0005-60
 ;;9002226.02101,"1828,67544-0005-70 ",.01)
 ;;67544-0005-70
 ;;9002226.02101,"1828,67544-0005-70 ",.02)
 ;;67544-0005-70
 ;;9002226.02101,"1828,67544-0005-80 ",.01)
 ;;67544-0005-80
 ;;9002226.02101,"1828,67544-0005-80 ",.02)
 ;;67544-0005-80
 ;;9002226.02101,"1828,67544-0006-15 ",.01)
 ;;67544-0006-15
 ;;9002226.02101,"1828,67544-0006-15 ",.02)
 ;;67544-0006-15
 ;;9002226.02101,"1828,67544-0006-20 ",.01)
 ;;67544-0006-20
 ;;9002226.02101,"1828,67544-0006-20 ",.02)
 ;;67544-0006-20
 ;;9002226.02101,"1828,67544-0006-30 ",.01)
 ;;67544-0006-30
 ;;9002226.02101,"1828,67544-0006-30 ",.02)
 ;;67544-0006-30
 ;;9002226.02101,"1828,67544-0006-45 ",.01)
 ;;67544-0006-45
 ;;9002226.02101,"1828,67544-0006-45 ",.02)
 ;;67544-0006-45
 ;;9002226.02101,"1828,67544-0006-53 ",.01)
 ;;67544-0006-53
 ;;9002226.02101,"1828,67544-0006-53 ",.02)
 ;;67544-0006-53
 ;;9002226.02101,"1828,67544-0006-60 ",.01)
 ;;67544-0006-60
 ;;9002226.02101,"1828,67544-0006-60 ",.02)
 ;;67544-0006-60
 ;;9002226.02101,"1828,67544-0006-70 ",.01)
 ;;67544-0006-70
 ;;9002226.02101,"1828,67544-0006-70 ",.02)
 ;;67544-0006-70
 ;;9002226.02101,"1828,67544-0006-75 ",.01)
 ;;67544-0006-75
 ;;9002226.02101,"1828,67544-0006-75 ",.02)
 ;;67544-0006-75
 ;;9002226.02101,"1828,67544-0006-80 ",.01)
 ;;67544-0006-80
 ;;9002226.02101,"1828,67544-0006-80 ",.02)
 ;;67544-0006-80
 ;;9002226.02101,"1828,67544-0007-15 ",.01)
 ;;67544-0007-15
 ;;9002226.02101,"1828,67544-0007-15 ",.02)
 ;;67544-0007-15
 ;;9002226.02101,"1828,67544-0007-30 ",.01)
 ;;67544-0007-30
 ;;9002226.02101,"1828,67544-0007-30 ",.02)
 ;;67544-0007-30
 ;;9002226.02101,"1828,67544-0007-45 ",.01)
 ;;67544-0007-45
 ;;9002226.02101,"1828,67544-0007-45 ",.02)
 ;;67544-0007-45
 ;;9002226.02101,"1828,67544-0007-53 ",.01)
 ;;67544-0007-53
 ;;9002226.02101,"1828,67544-0007-53 ",.02)
 ;;67544-0007-53
 ;;9002226.02101,"1828,67544-0007-55 ",.01)
 ;;67544-0007-55
 ;;9002226.02101,"1828,67544-0007-55 ",.02)
 ;;67544-0007-55
 ;;9002226.02101,"1828,67544-0007-60 ",.01)
 ;;67544-0007-60
 ;;9002226.02101,"1828,67544-0007-60 ",.02)
 ;;67544-0007-60
 ;;9002226.02101,"1828,67544-0007-70 ",.01)
 ;;67544-0007-70
 ;;9002226.02101,"1828,67544-0007-70 ",.02)
 ;;67544-0007-70
 ;;9002226.02101,"1828,67544-0007-75 ",.01)
 ;;67544-0007-75
 ;;9002226.02101,"1828,67544-0007-75 ",.02)
 ;;67544-0007-75
 ;;9002226.02101,"1828,67544-0007-80 ",.01)
 ;;67544-0007-80
 ;;9002226.02101,"1828,67544-0007-80 ",.02)
 ;;67544-0007-80
 ;;9002226.02101,"1828,67544-0007-90 ",.01)
 ;;67544-0007-90
 ;;9002226.02101,"1828,67544-0007-90 ",.02)
 ;;67544-0007-90
 ;;9002226.02101,"1828,67544-0013-30 ",.01)
 ;;67544-0013-30
 ;;9002226.02101,"1828,67544-0013-30 ",.02)
 ;;67544-0013-30
 ;;9002226.02101,"1828,67544-0013-53 ",.01)
 ;;67544-0013-53
 ;;9002226.02101,"1828,67544-0013-53 ",.02)
 ;;67544-0013-53
 ;;9002226.02101,"1828,67544-0013-60 ",.01)
 ;;67544-0013-60
 ;;9002226.02101,"1828,67544-0013-60 ",.02)
 ;;67544-0013-60
 ;;9002226.02101,"1828,67544-0013-65 ",.01)
 ;;67544-0013-65
 ;;9002226.02101,"1828,67544-0013-65 ",.02)
 ;;67544-0013-65
 ;;9002226.02101,"1828,67544-0013-70 ",.01)
 ;;67544-0013-70
 ;;9002226.02101,"1828,67544-0013-70 ",.02)
 ;;67544-0013-70
 ;;9002226.02101,"1828,67544-0018-30 ",.01)
 ;;67544-0018-30
 ;;9002226.02101,"1828,67544-0018-30 ",.02)
 ;;67544-0018-30
 ;;9002226.02101,"1828,67544-0018-53 ",.01)
 ;;67544-0018-53
 ;;9002226.02101,"1828,67544-0018-53 ",.02)
 ;;67544-0018-53
 ;;9002226.02101,"1828,67544-0018-60 ",.01)
 ;;67544-0018-60
 ;;9002226.02101,"1828,67544-0018-60 ",.02)
 ;;67544-0018-60
 ;;9002226.02101,"1828,67544-0018-65 ",.01)
 ;;67544-0018-65
 ;;9002226.02101,"1828,67544-0018-65 ",.02)
 ;;67544-0018-65
 ;;9002226.02101,"1828,67544-0018-75 ",.01)
 ;;67544-0018-75
 ;;9002226.02101,"1828,67544-0018-75 ",.02)
 ;;67544-0018-75
 ;;9002226.02101,"1828,67544-0019-15 ",.01)
 ;;67544-0019-15
 ;;9002226.02101,"1828,67544-0019-15 ",.02)
 ;;67544-0019-15
 ;;9002226.02101,"1828,67544-0019-20 ",.01)
 ;;67544-0019-20
 ;;9002226.02101,"1828,67544-0019-20 ",.02)
 ;;67544-0019-20
 ;;9002226.02101,"1828,67544-0019-30 ",.01)
 ;;67544-0019-30
 ;;9002226.02101,"1828,67544-0019-30 ",.02)
 ;;67544-0019-30
 ;;9002226.02101,"1828,67544-0019-40 ",.01)
 ;;67544-0019-40
 ;;9002226.02101,"1828,67544-0019-40 ",.02)
 ;;67544-0019-40
 ;;9002226.02101,"1828,67544-0019-45 ",.01)
 ;;67544-0019-45
 ;;9002226.02101,"1828,67544-0019-45 ",.02)
 ;;67544-0019-45
 ;;9002226.02101,"1828,67544-0019-53 ",.01)
 ;;67544-0019-53
 ;;9002226.02101,"1828,67544-0019-53 ",.02)
 ;;67544-0019-53
 ;;9002226.02101,"1828,67544-0019-55 ",.01)
 ;;67544-0019-55
 ;;9002226.02101,"1828,67544-0019-55 ",.02)
 ;;67544-0019-55
 ;;9002226.02101,"1828,67544-0019-60 ",.01)
 ;;67544-0019-60
 ;;9002226.02101,"1828,67544-0019-60 ",.02)
 ;;67544-0019-60
 ;;9002226.02101,"1828,67544-0019-70 ",.01)
 ;;67544-0019-70
 ;;9002226.02101,"1828,67544-0019-70 ",.02)
 ;;67544-0019-70
 ;;9002226.02101,"1828,67544-0019-75 ",.01)
 ;;67544-0019-75
 ;;9002226.02101,"1828,67544-0019-75 ",.02)
 ;;67544-0019-75
 ;;9002226.02101,"1828,67544-0019-80 ",.01)
 ;;67544-0019-80
 ;;9002226.02101,"1828,67544-0019-80 ",.02)
 ;;67544-0019-80
 ;;9002226.02101,"1828,67544-0019-90 ",.01)
 ;;67544-0019-90
 ;;9002226.02101,"1828,67544-0019-90 ",.02)
 ;;67544-0019-90
 ;;9002226.02101,"1828,67544-0020-15 ",.01)
 ;;67544-0020-15
 ;;9002226.02101,"1828,67544-0020-15 ",.02)
 ;;67544-0020-15
 ;;9002226.02101,"1828,67544-0020-30 ",.01)
 ;;67544-0020-30
 ;;9002226.02101,"1828,67544-0020-30 ",.02)
 ;;67544-0020-30
 ;;9002226.02101,"1828,67544-0020-45 ",.01)
 ;;67544-0020-45
 ;;9002226.02101,"1828,67544-0020-45 ",.02)
 ;;67544-0020-45
 ;;9002226.02101,"1828,67544-0020-53 ",.01)
 ;;67544-0020-53
 ;;9002226.02101,"1828,67544-0020-53 ",.02)
 ;;67544-0020-53
 ;;9002226.02101,"1828,67544-0020-60 ",.01)
 ;;67544-0020-60
 ;;9002226.02101,"1828,67544-0020-60 ",.02)
 ;;67544-0020-60
 ;;9002226.02101,"1828,67544-0020-70 ",.01)
 ;;67544-0020-70
 ;;9002226.02101,"1828,67544-0020-70 ",.02)
 ;;67544-0020-70
 ;;9002226.02101,"1828,67544-0020-75 ",.01)
 ;;67544-0020-75
 ;;9002226.02101,"1828,67544-0020-75 ",.02)
 ;;67544-0020-75
 ;;9002226.02101,"1828,67544-0020-80 ",.01)
 ;;67544-0020-80
 ;;9002226.02101,"1828,67544-0020-80 ",.02)
 ;;67544-0020-80
 ;;9002226.02101,"1828,67544-0020-90 ",.01)
 ;;67544-0020-90
 ;;9002226.02101,"1828,67544-0020-90 ",.02)
 ;;67544-0020-90
 ;;9002226.02101,"1828,67544-0022-30 ",.01)
 ;;67544-0022-30
 ;;9002226.02101,"1828,67544-0022-30 ",.02)
 ;;67544-0022-30
 ;;9002226.02101,"1828,67544-0038-10 ",.01)
 ;;67544-0038-10
 ;;9002226.02101,"1828,67544-0038-10 ",.02)
 ;;67544-0038-10
 ;;9002226.02101,"1828,67544-0038-14 ",.01)
 ;;67544-0038-14
 ;;9002226.02101,"1828,67544-0038-14 ",.02)
 ;;67544-0038-14
 ;;9002226.02101,"1828,67544-0038-15 ",.01)
 ;;67544-0038-15
 ;;9002226.02101,"1828,67544-0038-15 ",.02)
 ;;67544-0038-15
 ;;9002226.02101,"1828,67544-0038-20 ",.01)
 ;;67544-0038-20
 ;;9002226.02101,"1828,67544-0038-20 ",.02)
 ;;67544-0038-20
 ;;9002226.02101,"1828,67544-0038-28 ",.01)
 ;;67544-0038-28
 ;;9002226.02101,"1828,67544-0038-28 ",.02)
 ;;67544-0038-28
 ;;9002226.02101,"1828,67544-0038-30 ",.01)
 ;;67544-0038-30
 ;;9002226.02101,"1828,67544-0038-30 ",.02)
 ;;67544-0038-30
 ;;9002226.02101,"1828,67544-0038-45 ",.01)
 ;;67544-0038-45