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

BGP33P4.m

Go to the documentation of this file.
BGP33P4 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 23, 2013;
 ;;13.0;IHS CLINICAL REPORTING;**1**;NOV 20, 2012;Build 7
 ;
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,"802,00087-2773-32 ",.02)
 ;;00087-2773-32
 ;;9002226.02101,"802,00087-2775-31 ",.01)
 ;;00087-2775-31
 ;;9002226.02101,"802,00087-2775-31 ",.02)
 ;;00087-2775-31
 ;;9002226.02101,"802,00087-2775-32 ",.01)
 ;;00087-2775-32
 ;;9002226.02101,"802,00087-2775-32 ",.02)
 ;;00087-2775-32
 ;;9002226.02101,"802,00087-2776-31 ",.01)
 ;;00087-2776-31
 ;;9002226.02101,"802,00087-2776-31 ",.02)
 ;;00087-2776-31
 ;;9002226.02101,"802,00087-2776-32 ",.01)
 ;;00087-2776-32
 ;;9002226.02101,"802,00087-2776-32 ",.02)
 ;;00087-2776-32
 ;;9002226.02101,"802,00087-2788-31 ",.01)
 ;;00087-2788-31
 ;;9002226.02101,"802,00087-2788-31 ",.02)
 ;;00087-2788-31
 ;;9002226.02101,"802,00087-2788-32 ",.01)
 ;;00087-2788-32
 ;;9002226.02101,"802,00087-2788-32 ",.02)
 ;;00087-2788-32
 ;;9002226.02101,"802,00087-2875-31 ",.01)
 ;;00087-2875-31
 ;;9002226.02101,"802,00087-2875-31 ",.02)
 ;;00087-2875-31
 ;;9002226.02101,"802,00087-2875-32 ",.01)
 ;;00087-2875-32
 ;;9002226.02101,"802,00087-2875-32 ",.02)
 ;;00087-2875-32
 ;;9002226.02101,"802,00087-2876-31 ",.01)
 ;;00087-2876-31
 ;;9002226.02101,"802,00087-2876-31 ",.02)
 ;;00087-2876-31
 ;;9002226.02101,"802,00087-2876-32 ",.01)
 ;;00087-2876-32
 ;;9002226.02101,"802,00087-2876-32 ",.02)
 ;;00087-2876-32
 ;;9002226.02101,"802,00093-7238-56 ",.01)
 ;;00093-7238-56
 ;;9002226.02101,"802,00093-7238-56 ",.02)
 ;;00093-7238-56
 ;;9002226.02101,"802,00093-7238-98 ",.01)
 ;;00093-7238-98
 ;;9002226.02101,"802,00093-7238-98 ",.02)
 ;;00093-7238-98
 ;;9002226.02101,"802,00093-7239-56 ",.01)
 ;;00093-7239-56
 ;;9002226.02101,"802,00093-7239-56 ",.02)
 ;;00093-7239-56
 ;;9002226.02101,"802,00093-7239-98 ",.01)
 ;;00093-7239-98
 ;;9002226.02101,"802,00093-7239-98 ",.02)
 ;;00093-7239-98
 ;;9002226.02101,"802,00093-7364-10 ",.01)
 ;;00093-7364-10
 ;;9002226.02101,"802,00093-7364-10 ",.02)
 ;;00093-7364-10
 ;;9002226.02101,"802,00093-7364-98 ",.01)
 ;;00093-7364-98
 ;;9002226.02101,"802,00093-7364-98 ",.02)
 ;;00093-7364-98
 ;;9002226.02101,"802,00093-7365-10 ",.01)
 ;;00093-7365-10
 ;;9002226.02101,"802,00093-7365-10 ",.02)
 ;;00093-7365-10
 ;;9002226.02101,"802,00093-7365-56 ",.01)
 ;;00093-7365-56
 ;;9002226.02101,"802,00093-7365-56 ",.02)
 ;;00093-7365-56
 ;;9002226.02101,"802,00093-7365-98 ",.01)
 ;;00093-7365-98
 ;;9002226.02101,"802,00093-7365-98 ",.02)
 ;;00093-7365-98
 ;;9002226.02101,"802,00093-7366-10 ",.01)
 ;;00093-7366-10
 ;;9002226.02101,"802,00093-7366-10 ",.02)
 ;;00093-7366-10
 ;;9002226.02101,"802,00093-7366-56 ",.01)
 ;;00093-7366-56
 ;;9002226.02101,"802,00093-7366-56 ",.02)
 ;;00093-7366-56
 ;;9002226.02101,"802,00093-7366-98 ",.01)
 ;;00093-7366-98
 ;;9002226.02101,"802,00093-7366-98 ",.02)
 ;;00093-7366-98
 ;;9002226.02101,"802,00093-7367-10 ",.01)
 ;;00093-7367-10
 ;;9002226.02101,"802,00093-7367-10 ",.02)
 ;;00093-7367-10
 ;;9002226.02101,"802,00093-7367-56 ",.01)
 ;;00093-7367-56
 ;;9002226.02101,"802,00093-7367-56 ",.02)
 ;;00093-7367-56
 ;;9002226.02101,"802,00093-7367-98 ",.01)
 ;;00093-7367-98
 ;;9002226.02101,"802,00093-7367-98 ",.02)
 ;;00093-7367-98
 ;;9002226.02101,"802,00093-7368-10 ",.01)
 ;;00093-7368-10
 ;;9002226.02101,"802,00093-7368-10 ",.02)
 ;;00093-7368-10
 ;;9002226.02101,"802,00093-7368-56 ",.01)
 ;;00093-7368-56
 ;;9002226.02101,"802,00093-7368-56 ",.02)
 ;;00093-7368-56
 ;;9002226.02101,"802,00093-7368-98 ",.01)
 ;;00093-7368-98
 ;;9002226.02101,"802,00093-7368-98 ",.02)
 ;;00093-7368-98
 ;;9002226.02101,"802,00093-7369-10 ",.01)
 ;;00093-7369-10
 ;;9002226.02101,"802,00093-7369-10 ",.02)
 ;;00093-7369-10
 ;;9002226.02101,"802,00093-7369-56 ",.01)
 ;;00093-7369-56
 ;;9002226.02101,"802,00093-7369-56 ",.02)
 ;;00093-7369-56
 ;;9002226.02101,"802,00093-7369-98 ",.01)
 ;;00093-7369-98
 ;;9002226.02101,"802,00093-7369-98 ",.02)
 ;;00093-7369-98
 ;;9002226.02101,"802,00093-7464-56 ",.01)
 ;;00093-7464-56
 ;;9002226.02101,"802,00093-7464-56 ",.02)
 ;;00093-7464-56
 ;;9002226.02101,"802,00093-7464-98 ",.01)
 ;;00093-7464-98
 ;;9002226.02101,"802,00093-7464-98 ",.02)
 ;;00093-7464-98
 ;;9002226.02101,"802,00093-7465-05 ",.01)
 ;;00093-7465-05
 ;;9002226.02101,"802,00093-7465-05 ",.02)
 ;;00093-7465-05
 ;;9002226.02101,"802,00093-7465-56 ",.01)
 ;;00093-7465-56
 ;;9002226.02101,"802,00093-7465-56 ",.02)
 ;;00093-7465-56
 ;;9002226.02101,"802,00093-7465-98 ",.01)
 ;;00093-7465-98
 ;;9002226.02101,"802,00093-7465-98 ",.02)
 ;;00093-7465-98
 ;;9002226.02101,"802,00093-7466-05 ",.01)
 ;;00093-7466-05
 ;;9002226.02101,"802,00093-7466-05 ",.02)
 ;;00093-7466-05
 ;;9002226.02101,"802,00093-7466-56 ",.01)
 ;;00093-7466-56
 ;;9002226.02101,"802,00093-7466-56 ",.02)
 ;;00093-7466-56
 ;;9002226.02101,"802,00093-7466-98 ",.01)
 ;;00093-7466-98
 ;;9002226.02101,"802,00093-7466-98 ",.02)
 ;;00093-7466-98
 ;;9002226.02101,"802,00186-0004-31 ",.01)
 ;;00186-0004-31
 ;;9002226.02101,"802,00186-0004-31 ",.02)
 ;;00186-0004-31
 ;;9002226.02101,"802,00186-0008-31 ",.01)
 ;;00186-0008-31
 ;;9002226.02101,"802,00186-0008-31 ",.02)
 ;;00186-0008-31
 ;;9002226.02101,"802,00186-0016-28 ",.01)
 ;;00186-0016-28
 ;;9002226.02101,"802,00186-0016-28 ",.02)
 ;;00186-0016-28
 ;;9002226.02101,"802,00186-0016-31 ",.01)
 ;;00186-0016-31
 ;;9002226.02101,"802,00186-0016-31 ",.02)
 ;;00186-0016-31
 ;;9002226.02101,"802,00186-0016-54 ",.01)
 ;;00186-0016-54
 ;;9002226.02101,"802,00186-0016-54 ",.02)
 ;;00186-0016-54
 ;;9002226.02101,"802,00186-0032-28 ",.01)
 ;;00186-0032-28
 ;;9002226.02101,"802,00186-0032-28 ",.02)
 ;;00186-0032-28
 ;;9002226.02101,"802,00186-0032-31 ",.01)
 ;;00186-0032-31
 ;;9002226.02101,"802,00186-0032-31 ",.02)
 ;;00186-0032-31
 ;;9002226.02101,"802,00186-0032-54 ",.01)
 ;;00186-0032-54
 ;;9002226.02101,"802,00186-0032-54 ",.02)
 ;;00186-0032-54
 ;;9002226.02101,"802,00186-0162-28 ",.01)
 ;;00186-0162-28
 ;;9002226.02101,"802,00186-0162-28 ",.02)
 ;;00186-0162-28
 ;;9002226.02101,"802,00186-0162-54 ",.01)
 ;;00186-0162-54
 ;;9002226.02101,"802,00186-0162-54 ",.02)
 ;;00186-0162-54
 ;;9002226.02101,"802,00186-0322-28 ",.01)
 ;;00186-0322-28
 ;;9002226.02101,"802,00186-0322-28 ",.02)
 ;;00186-0322-28
 ;;9002226.02101,"802,00186-0322-54 ",.01)
 ;;00186-0322-54
 ;;9002226.02101,"802,00186-0322-54 ",.02)
 ;;00186-0322-54
 ;;9002226.02101,"802,00186-0324-54 ",.01)
 ;;00186-0324-54
 ;;9002226.02101,"802,00186-0324-54 ",.02)
 ;;00186-0324-54
 ;;9002226.02101,"802,00245-0193-01 ",.01)
 ;;00245-0193-01
 ;;9002226.02101,"802,00245-0193-01 ",.02)
 ;;00245-0193-01
 ;;9002226.02101,"802,00245-0193-10 ",.01)
 ;;00245-0193-10
 ;;9002226.02101,"802,00245-0193-10 ",.02)
 ;;00245-0193-10
 ;;9002226.02101,"802,00245-0193-30 ",.01)
 ;;00245-0193-30
 ;;9002226.02101,"802,00245-0193-30 ",.02)
 ;;00245-0193-30
 ;;9002226.02101,"802,00245-0193-90 ",.01)
 ;;00245-0193-90
 ;;9002226.02101,"802,00245-0193-90 ",.02)
 ;;00245-0193-90
 ;;9002226.02101,"802,00245-0194-01 ",.01)
 ;;00245-0194-01
 ;;9002226.02101,"802,00245-0194-01 ",.02)
 ;;00245-0194-01
 ;;9002226.02101,"802,00245-0194-10 ",.01)
 ;;00245-0194-10
 ;;9002226.02101,"802,00245-0194-10 ",.02)
 ;;00245-0194-10
 ;;9002226.02101,"802,00245-0194-30 ",.01)
 ;;00245-0194-30
 ;;9002226.02101,"802,00245-0194-30 ",.02)
 ;;00245-0194-30
 ;;9002226.02101,"802,00245-0194-90 ",.01)
 ;;00245-0194-90
 ;;9002226.02101,"802,00245-0194-90 ",.02)
 ;;00245-0194-90
 ;;9002226.02101,"802,00245-0195-01 ",.01)
 ;;00245-0195-01
 ;;9002226.02101,"802,00245-0195-01 ",.02)
 ;;00245-0195-01
 ;;9002226.02101,"802,00245-0195-10 ",.01)
 ;;00245-0195-10
 ;;9002226.02101,"802,00245-0195-10 ",.02)
 ;;00245-0195-10
 ;;9002226.02101,"802,00245-0195-30 ",.01)
 ;;00245-0195-30
 ;;9002226.02101,"802,00245-0195-30 ",.02)
 ;;00245-0195-30
 ;;9002226.02101,"802,00245-0195-90 ",.01)
 ;;00245-0195-90
 ;;9002226.02101,"802,00245-0195-90 ",.02)
 ;;00245-0195-90
 ;;9002226.02101,"802,00247-1962-00 ",.01)
 ;;00247-1962-00
 ;;9002226.02101,"802,00247-1962-00 ",.02)
 ;;00247-1962-00
 ;;9002226.02101,"802,00247-1962-30 ",.01)
 ;;00247-1962-30
 ;;9002226.02101,"802,00247-1962-30 ",.02)
 ;;00247-1962-30
 ;;9002226.02101,"802,00247-2257-90 ",.01)
 ;;00247-2257-90
 ;;9002226.02101,"802,00247-2257-90 ",.02)
 ;;00247-2257-90
 ;;9002226.02101,"802,00247-2285-30 ",.01)
 ;;00247-2285-30
 ;;9002226.02101,"802,00247-2285-30 ",.02)
 ;;00247-2285-30
 ;;9002226.02101,"802,00247-2285-60 ",.01)
 ;;00247-2285-60
 ;;9002226.02101,"802,00247-2285-60 ",.02)
 ;;00247-2285-60
 ;;9002226.02101,"802,00247-2285-90 ",.01)
 ;;00247-2285-90
 ;;9002226.02101,"802,00247-2285-90 ",.02)
 ;;00247-2285-90
 ;;9002226.02101,"802,00247-2286-30 ",.01)
 ;;00247-2286-30
 ;;9002226.02101,"802,00247-2286-30 ",.02)
 ;;00247-2286-30
 ;;9002226.02101,"802,00247-2286-60 ",.01)
 ;;00247-2286-60
 ;;9002226.02101,"802,00247-2286-60 ",.02)
 ;;00247-2286-60
 ;;9002226.02101,"802,00247-2286-90 ",.01)
 ;;00247-2286-90
 ;;9002226.02101,"802,00247-2286-90 ",.02)
 ;;00247-2286-90
 ;;9002226.02101,"802,00247-2287-30 ",.01)
 ;;00247-2287-30
 ;;9002226.02101,"802,00247-2287-30 ",.02)
 ;;00247-2287-30
 ;;9002226.02101,"802,00247-2287-60 ",.01)
 ;;00247-2287-60
 ;;9002226.02101,"802,00247-2287-60 ",.02)
 ;;00247-2287-60
 ;;9002226.02101,"802,00247-2287-90 ",.01)
 ;;00247-2287-90
 ;;9002226.02101,"802,00247-2287-90 ",.02)
 ;;00247-2287-90
 ;;9002226.02101,"802,00247-2335-30 ",.01)
 ;;00247-2335-30
 ;;9002226.02101,"802,00247-2335-30 ",.02)
 ;;00247-2335-30
 ;;9002226.02101,"802,00247-2335-60 ",.01)
 ;;00247-2335-60
 ;;9002226.02101,"802,00247-2335-60 ",.02)
 ;;00247-2335-60
 ;;9002226.02101,"802,00247-2335-90 ",.01)
 ;;00247-2335-90
 ;;9002226.02101,"802,00247-2335-90 ",.02)
 ;;00247-2335-90
 ;;9002226.02101,"802,00378-1418-77 ",.01)
 ;;00378-1418-77
 ;;9002226.02101,"802,00378-1418-77 ",.02)
 ;;00378-1418-77
 ;;9002226.02101,"802,00378-1418-93 ",.01)
 ;;00378-1418-93
 ;;9002226.02101,"802,00378-1418-93 ",.02)
 ;;00378-1418-93
 ;;9002226.02101,"802,00378-1419-10 ",.01)
 ;;00378-1419-10
 ;;9002226.02101,"802,00378-1419-10 ",.02)
 ;;00378-1419-10
 ;;9002226.02101,"802,00378-1419-77 ",.01)
 ;;00378-1419-77
 ;;9002226.02101,"802,00378-1419-77 ",.02)
 ;;00378-1419-77
 ;;9002226.02101,"802,00378-1420-77 ",.01)
 ;;00378-1420-77
 ;;9002226.02101,"802,00378-1420-77 ",.02)
 ;;00378-1420-77
 ;;9002226.02101,"802,00378-2022-05 ",.01)
 ;;00378-2022-05
 ;;9002226.02101,"802,00378-2022-05 ",.02)
 ;;00378-2022-05
 ;;9002226.02101,"802,00378-2022-77 ",.01)
 ;;00378-2022-77
 ;;9002226.02101,"802,00378-2022-77 ",.02)
 ;;00378-2022-77
 ;;9002226.02101,"802,00378-2023-05 ",.01)
 ;;00378-2023-05
 ;;9002226.02101,"802,00378-2023-05 ",.02)
 ;;00378-2023-05
 ;;9002226.02101,"802,00378-2023-77 ",.01)
 ;;00378-2023-77
 ;;9002226.02101,"802,00378-2023-77 ",.02)
 ;;00378-2023-77
 ;;9002226.02101,"802,00378-2023-93 ",.01)
 ;;00378-2023-93
 ;;9002226.02101,"802,00378-2023-93 ",.02)
 ;;00378-2023-93
 ;;9002226.02101,"802,00378-2024-05 ",.01)
 ;;00378-2024-05
 ;;9002226.02101,"802,00378-2024-05 ",.02)
 ;;00378-2024-05
 ;;9002226.02101,"802,00378-2024-77 ",.01)
 ;;00378-2024-77
 ;;9002226.02101,"802,00378-2024-77 ",.02)
 ;;00378-2024-77
 ;;9002226.02101,"802,00378-2024-93 ",.01)
 ;;00378-2024-93
 ;;9002226.02101,"802,00378-2024-93 ",.02)
 ;;00378-2024-93
 ;;9002226.02101,"802,00378-3033-77 ",.01)
 ;;00378-3033-77
 ;;9002226.02101,"802,00378-3033-77 ",.02)
 ;;00378-3033-77
 ;;9002226.02101,"802,00378-3033-93 ",.01)
 ;;00378-3033-93
 ;;9002226.02101,"802,00378-3033-93 ",.02)
 ;;00378-3033-93
 ;;9002226.02101,"802,00378-3034-77 ",.01)
 ;;00378-3034-77
 ;;9002226.02101,"802,00378-3034-77 ",.02)
 ;;00378-3034-77
 ;;9002226.02101,"802,00378-3034-93 ",.01)
 ;;00378-3034-93
 ;;9002226.02101,"802,00378-3034-93 ",.02)
 ;;00378-3034-93
 ;;9002226.02101,"802,00378-4041-77 ",.01)
 ;;00378-4041-77
 ;;9002226.02101,"802,00378-4041-77 ",.02)
 ;;00378-4041-77
 ;;9002226.02101,"802,00378-4042-77 ",.01)
 ;;00378-4042-77
 ;;9002226.02101,"802,00378-4042-77 ",.02)
 ;;00378-4042-77
 ;;9002226.02101,"802,00378-4043-77 ",.01)
 ;;00378-4043-77
 ;;9002226.02101,"802,00378-4043-77 ",.02)
 ;;00378-4043-77
 ;;9002226.02101,"802,00378-6321-05 ",.01)
 ;;00378-6321-05
 ;;9002226.02101,"802,00378-6321-05 ",.02)
 ;;00378-6321-05
 ;;9002226.02101,"802,00378-6321-77 ",.01)
 ;;00378-6321-77
 ;;9002226.02101,"802,00378-6321-77 ",.02)
 ;;00378-6321-77
 ;;9002226.02101,"802,00378-6322-05 ",.01)
 ;;00378-6322-05
 ;;9002226.02101,"802,00378-6322-05 ",.02)
 ;;00378-6322-05
 ;;9002226.02101,"802,00378-6322-77 ",.01)
 ;;00378-6322-77
 ;;9002226.02101,"802,00378-6322-77 ",.02)
 ;;00378-6322-77
 ;;9002226.02101,"802,00378-6323-05 ",.01)
 ;;00378-6323-05
 ;;9002226.02101,"802,00378-6323-05 ",.02)
 ;;00378-6323-05
 ;;9002226.02101,"802,00378-6323-77 ",.01)
 ;;00378-6323-77
 ;;9002226.02101,"802,00378-6323-77 ",.02)
 ;;00378-6323-77
 ;;9002226.02101,"802,00378-6324-05 ",.01)
 ;;00378-6324-05
 ;;9002226.02101,"802,00378-6324-05 ",.02)
 ;;00378-6324-05
 ;;9002226.02101,"802,00378-6324-77 ",.01)
 ;;00378-6324-77
 ;;9002226.02101,"802,00378-6324-77 ",.02)
 ;;00378-6324-77
 ;;9002226.02101,"802,00378-6325-05 ",.01)
 ;;00378-6325-05
 ;;9002226.02101,"802,00378-6325-05 ",.02)
 ;;00378-6325-05
 ;;9002226.02101,"802,00378-6325-77 ",.01)
 ;;00378-6325-77
 ;;9002226.02101,"802,00378-6325-77 ",.02)
 ;;00378-6325-77
 ;;9002226.02101,"802,00378-6629-93 ",.01)
 ;;00378-6629-93
 ;;9002226.02101,"802,00378-6629-93 ",.02)
 ;;00378-6629-93
 ;;9002226.02101,"802,00591-3745-10 ",.01)
 ;;00591-3745-10