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

BGP8ZH19.m

Go to the documentation of this file.
BGP8ZH19 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 22, 2018;
 ;;18.0;IHS CLINICAL REPORTING;**1**;NOV 21, 2017;Build 62
 ;
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,"868,00085-1777-01 ",.02)
 ;;00085-1777-01
 ;;9002226.02101,"868,00085-1781-01 ",.01)
 ;;00085-1781-01
 ;;9002226.02101,"868,00085-1781-01 ",.02)
 ;;00085-1781-01
 ;;9002226.02101,"868,00085-1782-01 ",.01)
 ;;00085-1782-01
 ;;9002226.02101,"868,00085-1782-01 ",.02)
 ;;00085-1782-01
 ;;9002226.02101,"868,00087-0785-42 ",.01)
 ;;00087-0785-42
 ;;9002226.02101,"868,00087-0785-42 ",.02)
 ;;00087-0785-42
 ;;9002226.02101,"868,00093-0089-01 ",.01)
 ;;00093-0089-01
 ;;9002226.02101,"868,00093-0089-01 ",.02)
 ;;00093-0089-01
 ;;9002226.02101,"868,00093-0089-05 ",.01)
 ;;00093-0089-05
 ;;9002226.02101,"868,00093-0089-05 ",.02)
 ;;00093-0089-05
 ;;9002226.02101,"868,00093-1075-73 ",.01)
 ;;00093-1075-73
 ;;9002226.02101,"868,00093-1075-73 ",.02)
 ;;00093-1075-73
 ;;9002226.02101,"868,00093-1075-78 ",.01)
 ;;00093-1075-78
 ;;9002226.02101,"868,00093-1075-78 ",.02)
 ;;00093-1075-78
 ;;9002226.02101,"868,00093-1076-73 ",.01)
 ;;00093-1076-73
 ;;9002226.02101,"868,00093-1076-73 ",.02)
 ;;00093-1076-73
 ;;9002226.02101,"868,00093-1076-78 ",.01)
 ;;00093-1076-78
 ;;9002226.02101,"868,00093-1076-78 ",.02)
 ;;00093-1076-78
 ;;9002226.02101,"868,00093-1077-01 ",.01)
 ;;00093-1077-01
 ;;9002226.02101,"868,00093-1077-01 ",.02)
 ;;00093-1077-01
 ;;9002226.02101,"868,00093-1078-53 ",.01)
 ;;00093-1078-53
 ;;9002226.02101,"868,00093-1078-53 ",.02)
 ;;00093-1078-53
 ;;9002226.02101,"868,00093-1087-01 ",.01)
 ;;00093-1087-01
 ;;9002226.02101,"868,00093-1087-01 ",.02)
 ;;00093-1087-01
 ;;9002226.02101,"868,00093-1172-01 ",.01)
 ;;00093-1172-01
 ;;9002226.02101,"868,00093-1172-01 ",.02)
 ;;00093-1172-01
 ;;9002226.02101,"868,00093-1172-10 ",.01)
 ;;00093-1172-10
 ;;9002226.02101,"868,00093-1172-10 ",.02)
 ;;00093-1172-10
 ;;9002226.02101,"868,00093-1174-01 ",.01)
 ;;00093-1174-01
 ;;9002226.02101,"868,00093-1174-01 ",.02)
 ;;00093-1174-01
 ;;9002226.02101,"868,00093-1174-10 ",.01)
 ;;00093-1174-10
 ;;9002226.02101,"868,00093-1174-10 ",.02)
 ;;00093-1174-10
 ;;9002226.02101,"868,00093-2026-23 ",.01)
 ;;00093-2026-23
 ;;9002226.02101,"868,00093-2026-23 ",.02)
 ;;00093-2026-23
 ;;9002226.02101,"868,00093-2026-31 ",.01)
 ;;00093-2026-31
 ;;9002226.02101,"868,00093-2026-31 ",.02)
 ;;00093-2026-31
 ;;9002226.02101,"868,00093-2026-94 ",.01)
 ;;00093-2026-94
 ;;9002226.02101,"868,00093-2026-94 ",.02)
 ;;00093-2026-94
 ;;9002226.02101,"868,00093-2027-23 ",.01)
 ;;00093-2027-23
 ;;9002226.02101,"868,00093-2027-23 ",.02)
 ;;00093-2027-23
 ;;9002226.02101,"868,00093-2158-01 ",.01)
 ;;00093-2158-01
 ;;9002226.02101,"868,00093-2158-01 ",.02)
 ;;00093-2158-01
 ;;9002226.02101,"868,00093-2238-01 ",.01)
 ;;00093-2238-01
 ;;9002226.02101,"868,00093-2238-01 ",.02)
 ;;00093-2238-01
 ;;9002226.02101,"868,00093-2240-01 ",.01)
 ;;00093-2240-01
 ;;9002226.02101,"868,00093-2240-01 ",.02)
 ;;00093-2240-01
 ;;9002226.02101,"868,00093-2263-01 ",.01)
 ;;00093-2263-01
 ;;9002226.02101,"868,00093-2263-01 ",.02)
 ;;00093-2263-01
 ;;9002226.02101,"868,00093-2264-01 ",.01)
 ;;00093-2264-01
 ;;9002226.02101,"868,00093-2264-01 ",.02)
 ;;00093-2264-01
 ;;9002226.02101,"868,00093-2267-01 ",.01)
 ;;00093-2267-01
 ;;9002226.02101,"868,00093-2267-01 ",.02)
 ;;00093-2267-01
 ;;9002226.02101,"868,00093-2268-01 ",.01)
 ;;00093-2268-01
 ;;9002226.02101,"868,00093-2268-01 ",.02)
 ;;00093-2268-01
 ;;9002226.02101,"868,00093-2268-05 ",.01)
 ;;00093-2268-05
 ;;9002226.02101,"868,00093-2268-05 ",.02)
 ;;00093-2268-05
 ;;9002226.02101,"868,00093-2270-34 ",.01)
 ;;00093-2270-34
 ;;9002226.02101,"868,00093-2270-34 ",.02)
 ;;00093-2270-34
 ;;9002226.02101,"868,00093-2272-34 ",.01)
 ;;00093-2272-34
 ;;9002226.02101,"868,00093-2272-34 ",.02)
 ;;00093-2272-34
 ;;9002226.02101,"868,00093-2274-34 ",.01)
 ;;00093-2274-34
 ;;9002226.02101,"868,00093-2274-34 ",.02)
 ;;00093-2274-34
 ;;9002226.02101,"868,00093-2275-34 ",.01)
 ;;00093-2275-34
 ;;9002226.02101,"868,00093-2275-34 ",.02)
 ;;00093-2275-34
 ;;9002226.02101,"868,00093-2277-73 ",.01)
 ;;00093-2277-73
 ;;9002226.02101,"868,00093-2277-73 ",.02)
 ;;00093-2277-73
 ;;9002226.02101,"868,00093-2279-73 ",.01)
 ;;00093-2279-73
 ;;9002226.02101,"868,00093-2279-73 ",.02)
 ;;00093-2279-73
 ;;9002226.02101,"868,00093-3107-01 ",.01)
 ;;00093-3107-01
 ;;9002226.02101,"868,00093-3107-01 ",.02)
 ;;00093-3107-01
 ;;9002226.02101,"868,00093-3107-05 ",.01)
 ;;00093-3107-05
 ;;9002226.02101,"868,00093-3107-05 ",.02)
 ;;00093-3107-05
 ;;9002226.02101,"868,00093-3107-19 ",.01)
 ;;00093-3107-19
 ;;9002226.02101,"868,00093-3107-19 ",.02)
 ;;00093-3107-19
 ;;9002226.02101,"868,00093-3107-93 ",.01)
 ;;00093-3107-93
 ;;9002226.02101,"868,00093-3107-93 ",.02)
 ;;00093-3107-93
 ;;9002226.02101,"868,00093-3109-05 ",.01)
 ;;00093-3109-05
 ;;9002226.02101,"868,00093-3109-05 ",.02)
 ;;00093-3109-05
 ;;9002226.02101,"868,00093-3109-19 ",.01)
 ;;00093-3109-19
 ;;9002226.02101,"868,00093-3109-19 ",.02)
 ;;00093-3109-19
 ;;9002226.02101,"868,00093-3109-53 ",.01)
 ;;00093-3109-53
 ;;9002226.02101,"868,00093-3109-53 ",.02)
 ;;00093-3109-53
 ;;9002226.02101,"868,00093-3109-93 ",.01)
 ;;00093-3109-93
 ;;9002226.02101,"868,00093-3109-93 ",.02)
 ;;00093-3109-93
 ;;9002226.02101,"868,00093-3123-01 ",.01)
 ;;00093-3123-01
 ;;9002226.02101,"868,00093-3123-01 ",.02)
 ;;00093-3123-01
 ;;9002226.02101,"868,00093-3125-01 ",.01)
 ;;00093-3125-01
 ;;9002226.02101,"868,00093-3125-01 ",.02)
 ;;00093-3125-01
 ;;9002226.02101,"868,00093-3145-01 ",.01)
 ;;00093-3145-01
 ;;9002226.02101,"868,00093-3145-01 ",.02)
 ;;00093-3145-01
 ;;9002226.02101,"868,00093-3145-05 ",.01)
 ;;00093-3145-05
 ;;9002226.02101,"868,00093-3145-05 ",.02)
 ;;00093-3145-05
 ;;9002226.02101,"868,00093-3147-01 ",.01)
 ;;00093-3147-01
 ;;9002226.02101,"868,00093-3147-01 ",.02)
 ;;00093-3147-01
 ;;9002226.02101,"868,00093-3147-05 ",.01)
 ;;00093-3147-05
 ;;9002226.02101,"868,00093-3147-05 ",.02)
 ;;00093-3147-05
 ;;9002226.02101,"868,00093-3160-06 ",.01)
 ;;00093-3160-06
 ;;9002226.02101,"868,00093-3160-06 ",.02)
 ;;00093-3160-06
 ;;9002226.02101,"868,00093-3165-01 ",.01)
 ;;00093-3165-01
 ;;9002226.02101,"868,00093-3165-01 ",.02)
 ;;00093-3165-01
 ;;9002226.02101,"868,00093-3167-53 ",.01)
 ;;00093-3167-53
 ;;9002226.02101,"868,00093-3167-53 ",.02)
 ;;00093-3167-53
 ;;9002226.02101,"868,00093-3171-01 ",.01)
 ;;00093-3171-01
 ;;9002226.02101,"868,00093-3171-01 ",.02)
 ;;00093-3171-01
 ;;9002226.02101,"868,00093-3196-01 ",.01)
 ;;00093-3196-01
 ;;9002226.02101,"868,00093-3196-01 ",.02)
 ;;00093-3196-01
 ;;9002226.02101,"868,00093-3196-53 ",.01)
 ;;00093-3196-53
 ;;9002226.02101,"868,00093-3196-53 ",.02)
 ;;00093-3196-53
 ;;9002226.02101,"868,00093-4059-53 ",.01)
 ;;00093-4059-53
 ;;9002226.02101,"868,00093-4059-53 ",.02)
 ;;00093-4059-53
 ;;9002226.02101,"868,00093-4125-73 ",.01)
 ;;00093-4125-73
 ;;9002226.02101,"868,00093-4125-73 ",.02)
 ;;00093-4125-73
 ;;9002226.02101,"868,00093-4125-74 ",.01)
 ;;00093-4125-74
 ;;9002226.02101,"868,00093-4125-74 ",.02)
 ;;00093-4125-74
 ;;9002226.02101,"868,00093-4127-73 ",.01)
 ;;00093-4127-73
 ;;9002226.02101,"868,00093-4127-73 ",.02)
 ;;00093-4127-73
 ;;9002226.02101,"868,00093-4127-74 ",.01)
 ;;00093-4127-74
 ;;9002226.02101,"868,00093-4127-74 ",.02)
 ;;00093-4127-74
 ;;9002226.02101,"868,00093-4136-64 ",.01)
 ;;00093-4136-64
 ;;9002226.02101,"868,00093-4136-64 ",.02)
 ;;00093-4136-64
 ;;9002226.02101,"868,00093-4136-73 ",.01)
 ;;00093-4136-73
 ;;9002226.02101,"868,00093-4136-73 ",.02)
 ;;00093-4136-73
 ;;9002226.02101,"868,00093-4137-64 ",.01)
 ;;00093-4137-64
 ;;9002226.02101,"868,00093-4137-64 ",.02)
 ;;00093-4137-64
 ;;9002226.02101,"868,00093-4137-73 ",.01)
 ;;00093-4137-73
 ;;9002226.02101,"868,00093-4137-73 ",.02)
 ;;00093-4137-73
 ;;9002226.02101,"868,00093-4150-73 ",.01)
 ;;00093-4150-73
 ;;9002226.02101,"868,00093-4150-73 ",.02)
 ;;00093-4150-73
 ;;9002226.02101,"868,00093-4150-79 ",.01)
 ;;00093-4150-79
 ;;9002226.02101,"868,00093-4150-79 ",.02)
 ;;00093-4150-79
 ;;9002226.02101,"868,00093-4150-80 ",.01)
 ;;00093-4150-80
 ;;9002226.02101,"868,00093-4150-80 ",.02)
 ;;00093-4150-80
 ;;9002226.02101,"868,00093-4155-73 ",.01)
 ;;00093-4155-73
 ;;9002226.02101,"868,00093-4155-73 ",.02)
 ;;00093-4155-73
 ;;9002226.02101,"868,00093-4155-79 ",.01)
 ;;00093-4155-79
 ;;9002226.02101,"868,00093-4155-79 ",.02)
 ;;00093-4155-79
 ;;9002226.02101,"868,00093-4155-80 ",.01)
 ;;00093-4155-80
 ;;9002226.02101,"868,00093-4155-80 ",.02)
 ;;00093-4155-80
 ;;9002226.02101,"868,00093-4160-73 ",.01)
 ;;00093-4160-73
 ;;9002226.02101,"868,00093-4160-73 ",.02)
 ;;00093-4160-73
 ;;9002226.02101,"868,00093-4160-76 ",.01)
 ;;00093-4160-76
 ;;9002226.02101,"868,00093-4160-76 ",.02)
 ;;00093-4160-76
 ;;9002226.02101,"868,00093-4160-78 ",.01)
 ;;00093-4160-78
 ;;9002226.02101,"868,00093-4160-78 ",.02)
 ;;00093-4160-78
 ;;9002226.02101,"868,00093-4161-73 ",.01)
 ;;00093-4161-73
 ;;9002226.02101,"868,00093-4161-73 ",.02)
 ;;00093-4161-73
 ;;9002226.02101,"868,00093-4161-76 ",.01)
 ;;00093-4161-76
 ;;9002226.02101,"868,00093-4161-76 ",.02)
 ;;00093-4161-76
 ;;9002226.02101,"868,00093-4161-78 ",.01)
 ;;00093-4161-78
 ;;9002226.02101,"868,00093-4161-78 ",.02)
 ;;00093-4161-78
 ;;9002226.02101,"868,00093-4175-73 ",.01)
 ;;00093-4175-73
 ;;9002226.02101,"868,00093-4175-73 ",.02)
 ;;00093-4175-73
 ;;9002226.02101,"868,00093-4175-74 ",.01)
 ;;00093-4175-74
 ;;9002226.02101,"868,00093-4175-74 ",.02)
 ;;00093-4175-74
 ;;9002226.02101,"868,00093-4177-73 ",.01)
 ;;00093-4177-73
 ;;9002226.02101,"868,00093-4177-73 ",.02)
 ;;00093-4177-73
 ;;9002226.02101,"868,00093-4177-74 ",.01)
 ;;00093-4177-74
 ;;9002226.02101,"868,00093-4177-74 ",.02)
 ;;00093-4177-74
 ;;9002226.02101,"868,00093-5256-01 ",.01)
 ;;00093-5256-01
 ;;9002226.02101,"868,00093-5256-01 ",.02)
 ;;00093-5256-01
 ;;9002226.02101,"868,00093-5256-68 ",.01)
 ;;00093-5256-68
 ;;9002226.02101,"868,00093-5256-68 ",.02)
 ;;00093-5256-68
 ;;9002226.02101,"868,00093-7146-09 ",.01)
 ;;00093-7146-09
 ;;9002226.02101,"868,00093-7146-09 ",.02)
 ;;00093-7146-09
 ;;9002226.02101,"868,00093-7146-18 ",.01)
 ;;00093-7146-18
 ;;9002226.02101,"868,00093-7146-18 ",.02)
 ;;00093-7146-18
 ;;9002226.02101,"868,00093-7146-19 ",.01)
 ;;00093-7146-19
 ;;9002226.02101,"868,00093-7146-19 ",.02)
 ;;00093-7146-19
 ;;9002226.02101,"868,00093-7146-56 ",.01)
 ;;00093-7146-56
 ;;9002226.02101,"868,00093-7146-56 ",.02)
 ;;00093-7146-56
 ;;9002226.02101,"868,00093-7146-93 ",.01)
 ;;00093-7146-93
 ;;9002226.02101,"868,00093-7146-93 ",.02)
 ;;00093-7146-93
 ;;9002226.02101,"868,00093-7147-56 ",.01)
 ;;00093-7147-56
 ;;9002226.02101,"868,00093-7147-56 ",.02)
 ;;00093-7147-56
 ;;9002226.02101,"868,00093-7148-23 ",.01)
 ;;00093-7148-23
 ;;9002226.02101,"868,00093-7148-23 ",.02)
 ;;00093-7148-23
 ;;9002226.02101,"868,00093-7149-23 ",.01)
 ;;00093-7149-23
 ;;9002226.02101,"868,00093-7149-23 ",.02)
 ;;00093-7149-23
 ;;9002226.02101,"868,00093-7149-31 ",.01)
 ;;00093-7149-31
 ;;9002226.02101,"868,00093-7149-31 ",.02)
 ;;00093-7149-31
 ;;9002226.02101,"868,00093-7149-94 ",.01)
 ;;00093-7149-94
 ;;9002226.02101,"868,00093-7149-94 ",.02)
 ;;00093-7149-94
 ;;9002226.02101,"868,00093-7157-06 ",.01)
 ;;00093-7157-06
 ;;9002226.02101,"868,00093-7157-06 ",.02)
 ;;00093-7157-06
 ;;9002226.02101,"868,00093-7158-06 ",.01)
 ;;00093-7158-06
 ;;9002226.02101,"868,00093-7158-06 ",.02)
 ;;00093-7158-06
 ;;9002226.02101,"868,00093-7169-19 ",.01)
 ;;00093-7169-19
 ;;9002226.02101,"868,00093-7169-19 ",.02)
 ;;00093-7169-19
 ;;9002226.02101,"868,00093-7169-33 ",.01)
 ;;00093-7169-33
 ;;9002226.02101,"868,00093-7169-33 ",.02)
 ;;00093-7169-33
 ;;9002226.02101,"868,00093-7169-56 ",.01)
 ;;00093-7169-56