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

BGP82Z76.m

Go to the documentation of this file.
  1. BGP82Z76 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
  1. ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"619,68071-0296-92 ",.02)
  1. ;;68071-0296-92
  1. ;;9002226.02101,"619,68071-0301-30 ",.01)
  1. ;;68071-0301-30
  1. ;;9002226.02101,"619,68071-0301-30 ",.02)
  1. ;;68071-0301-30
  1. ;;9002226.02101,"619,68071-0301-40 ",.01)
  1. ;;68071-0301-40
  1. ;;9002226.02101,"619,68071-0301-40 ",.02)
  1. ;;68071-0301-40
  1. ;;9002226.02101,"619,68071-0301-60 ",.01)
  1. ;;68071-0301-60
  1. ;;9002226.02101,"619,68071-0301-60 ",.02)
  1. ;;68071-0301-60
  1. ;;9002226.02101,"619,68071-0301-90 ",.01)
  1. ;;68071-0301-90
  1. ;;9002226.02101,"619,68071-0301-90 ",.02)
  1. ;;68071-0301-90
  1. ;;9002226.02101,"619,68071-0301-91 ",.01)
  1. ;;68071-0301-91
  1. ;;9002226.02101,"619,68071-0301-91 ",.02)
  1. ;;68071-0301-91
  1. ;;9002226.02101,"619,68071-0342-30 ",.01)
  1. ;;68071-0342-30
  1. ;;9002226.02101,"619,68071-0342-30 ",.02)
  1. ;;68071-0342-30
  1. ;;9002226.02101,"619,68071-0342-60 ",.01)
  1. ;;68071-0342-60
  1. ;;9002226.02101,"619,68071-0342-60 ",.02)
  1. ;;68071-0342-60
  1. ;;9002226.02101,"619,68071-0344-10 ",.01)
  1. ;;68071-0344-10
  1. ;;9002226.02101,"619,68071-0344-10 ",.02)
  1. ;;68071-0344-10
  1. ;;9002226.02101,"619,68071-0344-20 ",.01)
  1. ;;68071-0344-20
  1. ;;9002226.02101,"619,68071-0344-20 ",.02)
  1. ;;68071-0344-20
  1. ;;9002226.02101,"619,68071-0344-30 ",.01)
  1. ;;68071-0344-30
  1. ;;9002226.02101,"619,68071-0344-30 ",.02)
  1. ;;68071-0344-30
  1. ;;9002226.02101,"619,68071-0344-40 ",.01)
  1. ;;68071-0344-40
  1. ;;9002226.02101,"619,68071-0344-40 ",.02)
  1. ;;68071-0344-40
  1. ;;9002226.02101,"619,68071-0344-60 ",.01)
  1. ;;68071-0344-60
  1. ;;9002226.02101,"619,68071-0344-60 ",.02)
  1. ;;68071-0344-60
  1. ;;9002226.02101,"619,68071-0344-81 ",.01)
  1. ;;68071-0344-81
  1. ;;9002226.02101,"619,68071-0344-81 ",.02)
  1. ;;68071-0344-81
  1. ;;9002226.02101,"619,68071-0344-90 ",.01)
  1. ;;68071-0344-90
  1. ;;9002226.02101,"619,68071-0344-90 ",.02)
  1. ;;68071-0344-90
  1. ;;9002226.02101,"619,68071-0344-91 ",.01)
  1. ;;68071-0344-91
  1. ;;9002226.02101,"619,68071-0344-91 ",.02)
  1. ;;68071-0344-91
  1. ;;9002226.02101,"619,68071-0344-92 ",.01)
  1. ;;68071-0344-92
  1. ;;9002226.02101,"619,68071-0344-92 ",.02)
  1. ;;68071-0344-92
  1. ;;9002226.02101,"619,68071-0345-30 ",.01)
  1. ;;68071-0345-30
  1. ;;9002226.02101,"619,68071-0345-30 ",.02)
  1. ;;68071-0345-30
  1. ;;9002226.02101,"619,68071-0352-30 ",.01)
  1. ;;68071-0352-30
  1. ;;9002226.02101,"619,68071-0352-30 ",.02)
  1. ;;68071-0352-30
  1. ;;9002226.02101,"619,68071-0352-56 ",.01)
  1. ;;68071-0352-56
  1. ;;9002226.02101,"619,68071-0352-56 ",.02)
  1. ;;68071-0352-56
  1. ;;9002226.02101,"619,68071-0352-60 ",.01)
  1. ;;68071-0352-60
  1. ;;9002226.02101,"619,68071-0352-60 ",.02)
  1. ;;68071-0352-60
  1. ;;9002226.02101,"619,68071-0352-84 ",.01)
  1. ;;68071-0352-84
  1. ;;9002226.02101,"619,68071-0352-84 ",.02)
  1. ;;68071-0352-84
  1. ;;9002226.02101,"619,68071-0352-90 ",.01)
  1. ;;68071-0352-90
  1. ;;9002226.02101,"619,68071-0352-90 ",.02)
  1. ;;68071-0352-90
  1. ;;9002226.02101,"619,68071-0352-91 ",.01)
  1. ;;68071-0352-91
  1. ;;9002226.02101,"619,68071-0352-91 ",.02)
  1. ;;68071-0352-91
  1. ;;9002226.02101,"619,68071-0447-90 ",.01)
  1. ;;68071-0447-90
  1. ;;9002226.02101,"619,68071-0447-90 ",.02)
  1. ;;68071-0447-90
  1. ;;9002226.02101,"619,68071-0453-60 ",.01)
  1. ;;68071-0453-60
  1. ;;9002226.02101,"619,68071-0453-60 ",.02)
  1. ;;68071-0453-60
  1. ;;9002226.02101,"619,68071-0453-81 ",.01)
  1. ;;68071-0453-81
  1. ;;9002226.02101,"619,68071-0453-81 ",.02)
  1. ;;68071-0453-81
  1. ;;9002226.02101,"619,68071-0453-90 ",.01)
  1. ;;68071-0453-90
  1. ;;9002226.02101,"619,68071-0453-90 ",.02)
  1. ;;68071-0453-90
  1. ;;9002226.02101,"619,68071-0454-60 ",.01)
  1. ;;68071-0454-60
  1. ;;9002226.02101,"619,68071-0454-60 ",.02)
  1. ;;68071-0454-60
  1. ;;9002226.02101,"619,68071-0454-81 ",.01)
  1. ;;68071-0454-81
  1. ;;9002226.02101,"619,68071-0454-81 ",.02)
  1. ;;68071-0454-81
  1. ;;9002226.02101,"619,68071-0454-88 ",.01)
  1. ;;68071-0454-88
  1. ;;9002226.02101,"619,68071-0454-88 ",.02)
  1. ;;68071-0454-88
  1. ;;9002226.02101,"619,68071-0454-90 ",.01)
  1. ;;68071-0454-90
  1. ;;9002226.02101,"619,68071-0454-90 ",.02)
  1. ;;68071-0454-90
  1. ;;9002226.02101,"619,68071-0454-91 ",.01)
  1. ;;68071-0454-91
  1. ;;9002226.02101,"619,68071-0454-91 ",.02)
  1. ;;68071-0454-91
  1. ;;9002226.02101,"619,68071-0454-92 ",.01)
  1. ;;68071-0454-92
  1. ;;9002226.02101,"619,68071-0454-92 ",.02)
  1. ;;68071-0454-92
  1. ;;9002226.02101,"619,68071-0457-56 ",.01)
  1. ;;68071-0457-56
  1. ;;9002226.02101,"619,68071-0457-56 ",.02)
  1. ;;68071-0457-56
  1. ;;9002226.02101,"619,68071-0457-60 ",.01)
  1. ;;68071-0457-60
  1. ;;9002226.02101,"619,68071-0457-60 ",.02)
  1. ;;68071-0457-60
  1. ;;9002226.02101,"619,68071-0457-84 ",.01)
  1. ;;68071-0457-84
  1. ;;9002226.02101,"619,68071-0457-84 ",.02)
  1. ;;68071-0457-84
  1. ;;9002226.02101,"619,68071-0457-90 ",.01)
  1. ;;68071-0457-90
  1. ;;9002226.02101,"619,68071-0457-90 ",.02)
  1. ;;68071-0457-90
  1. ;;9002226.02101,"619,68071-0480-30 ",.01)
  1. ;;68071-0480-30
  1. ;;9002226.02101,"619,68071-0480-30 ",.02)
  1. ;;68071-0480-30
  1. ;;9002226.02101,"619,68071-0484-30 ",.01)
  1. ;;68071-0484-30
  1. ;;9002226.02101,"619,68071-0484-30 ",.02)
  1. ;;68071-0484-30
  1. ;;9002226.02101,"619,68071-0484-56 ",.01)
  1. ;;68071-0484-56
  1. ;;9002226.02101,"619,68071-0484-56 ",.02)
  1. ;;68071-0484-56
  1. ;;9002226.02101,"619,68071-0484-60 ",.01)
  1. ;;68071-0484-60
  1. ;;9002226.02101,"619,68071-0484-60 ",.02)
  1. ;;68071-0484-60
  1. ;;9002226.02101,"619,68071-0484-90 ",.01)
  1. ;;68071-0484-90
  1. ;;9002226.02101,"619,68071-0484-90 ",.02)
  1. ;;68071-0484-90
  1. ;;9002226.02101,"619,68071-0484-91 ",.01)
  1. ;;68071-0484-91
  1. ;;9002226.02101,"619,68071-0484-91 ",.02)
  1. ;;68071-0484-91
  1. ;;9002226.02101,"619,68071-0490-30 ",.01)
  1. ;;68071-0490-30
  1. ;;9002226.02101,"619,68071-0490-30 ",.02)
  1. ;;68071-0490-30
  1. ;;9002226.02101,"619,68071-0490-60 ",.01)
  1. ;;68071-0490-60
  1. ;;9002226.02101,"619,68071-0490-60 ",.02)
  1. ;;68071-0490-60
  1. ;;9002226.02101,"619,68071-0490-90 ",.01)
  1. ;;68071-0490-90
  1. ;;9002226.02101,"619,68071-0490-90 ",.02)
  1. ;;68071-0490-90
  1. ;;9002226.02101,"619,68071-0697-60 ",.01)
  1. ;;68071-0697-60
  1. ;;9002226.02101,"619,68071-0697-60 ",.02)
  1. ;;68071-0697-60
  1. ;;9002226.02101,"619,68071-0738-30 ",.01)
  1. ;;68071-0738-30
  1. ;;9002226.02101,"619,68071-0738-30 ",.02)
  1. ;;68071-0738-30
  1. ;;9002226.02101,"619,68071-0738-60 ",.01)
  1. ;;68071-0738-60
  1. ;;9002226.02101,"619,68071-0738-60 ",.02)
  1. ;;68071-0738-60
  1. ;;9002226.02101,"619,68071-0760-30 ",.01)
  1. ;;68071-0760-30
  1. ;;9002226.02101,"619,68071-0760-30 ",.02)
  1. ;;68071-0760-30
  1. ;;9002226.02101,"619,68071-0832-91 ",.01)
  1. ;;68071-0832-91
  1. ;;9002226.02101,"619,68071-0832-91 ",.02)
  1. ;;68071-0832-91
  1. ;;9002226.02101,"619,68071-0833-91 ",.01)
  1. ;;68071-0833-91
  1. ;;9002226.02101,"619,68071-0833-91 ",.02)
  1. ;;68071-0833-91
  1. ;;9002226.02101,"619,68071-0834-91 ",.01)
  1. ;;68071-0834-91
  1. ;;9002226.02101,"619,68071-0834-91 ",.02)
  1. ;;68071-0834-91
  1. ;;9002226.02101,"619,68071-0909-30 ",.01)
  1. ;;68071-0909-30
  1. ;;9002226.02101,"619,68071-0909-30 ",.02)
  1. ;;68071-0909-30
  1. ;;9002226.02101,"619,68071-0909-60 ",.01)
  1. ;;68071-0909-60
  1. ;;9002226.02101,"619,68071-0909-60 ",.02)
  1. ;;68071-0909-60
  1. ;;9002226.02101,"619,68071-0909-90 ",.01)
  1. ;;68071-0909-90
  1. ;;9002226.02101,"619,68071-0909-90 ",.02)
  1. ;;68071-0909-90
  1. ;;9002226.02101,"619,68071-0918-30 ",.01)
  1. ;;68071-0918-30
  1. ;;9002226.02101,"619,68071-0918-30 ",.02)
  1. ;;68071-0918-30
  1. ;;9002226.02101,"619,68071-0918-60 ",.01)
  1. ;;68071-0918-60
  1. ;;9002226.02101,"619,68071-0918-60 ",.02)
  1. ;;68071-0918-60
  1. ;;9002226.02101,"619,68071-0918-90 ",.01)
  1. ;;68071-0918-90
  1. ;;9002226.02101,"619,68071-0918-90 ",.02)
  1. ;;68071-0918-90
  1. ;;9002226.02101,"619,68071-1320-00 ",.01)
  1. ;;68071-1320-00
  1. ;;9002226.02101,"619,68071-1320-00 ",.02)
  1. ;;68071-1320-00
  1. ;;9002226.02101,"619,68071-1359-00 ",.01)
  1. ;;68071-1359-00
  1. ;;9002226.02101,"619,68071-1359-00 ",.02)
  1. ;;68071-1359-00
  1. ;;9002226.02101,"619,68071-1361-00 ",.01)
  1. ;;68071-1361-00
  1. ;;9002226.02101,"619,68071-1361-00 ",.02)
  1. ;;68071-1361-00
  1. ;;9002226.02101,"619,68071-1373-05 ",.01)
  1. ;;68071-1373-05
  1. ;;9002226.02101,"619,68071-1373-05 ",.02)
  1. ;;68071-1373-05
  1. ;;9002226.02101,"619,68071-1374-05 ",.01)
  1. ;;68071-1374-05
  1. ;;9002226.02101,"619,68071-1374-05 ",.02)
  1. ;;68071-1374-05
  1. ;;9002226.02101,"619,68071-1375-05 ",.01)
  1. ;;68071-1375-05
  1. ;;9002226.02101,"619,68071-1375-05 ",.02)
  1. ;;68071-1375-05
  1. ;;9002226.02101,"619,68071-1376-03 ",.01)
  1. ;;68071-1376-03
  1. ;;9002226.02101,"619,68071-1376-03 ",.02)
  1. ;;68071-1376-03
  1. ;;9002226.02101,"619,68071-2001-03 ",.01)
  1. ;;68071-2001-03
  1. ;;9002226.02101,"619,68071-2001-03 ",.02)
  1. ;;68071-2001-03
  1. ;;9002226.02101,"619,68071-2001-06 ",.01)
  1. ;;68071-2001-06
  1. ;;9002226.02101,"619,68071-2001-06 ",.02)
  1. ;;68071-2001-06
  1. ;;9002226.02101,"619,68071-2001-09 ",.01)
  1. ;;68071-2001-09
  1. ;;9002226.02101,"619,68071-2001-09 ",.02)
  1. ;;68071-2001-09
  1. ;;9002226.02101,"619,68071-2010-06 ",.01)
  1. ;;68071-2010-06
  1. ;;9002226.02101,"619,68071-2010-06 ",.02)
  1. ;;68071-2010-06
  1. ;;9002226.02101,"619,68084-0048-01 ",.01)
  1. ;;68084-0048-01
  1. ;;9002226.02101,"619,68084-0048-01 ",.02)
  1. ;;68084-0048-01
  1. ;;9002226.02101,"619,68084-0048-11 ",.01)
  1. ;;68084-0048-11
  1. ;;9002226.02101,"619,68084-0048-11 ",.02)
  1. ;;68084-0048-11
  1. ;;9002226.02101,"619,68084-0100-01 ",.01)
  1. ;;68084-0100-01
  1. ;;9002226.02101,"619,68084-0100-01 ",.02)
  1. ;;68084-0100-01
  1. ;;9002226.02101,"619,68084-0100-11 ",.01)
  1. ;;68084-0100-11
  1. ;;9002226.02101,"619,68084-0100-11 ",.02)
  1. ;;68084-0100-11
  1. ;;9002226.02101,"619,68084-0157-01 ",.01)
  1. ;;68084-0157-01
  1. ;;9002226.02101,"619,68084-0157-01 ",.02)
  1. ;;68084-0157-01
  1. ;;9002226.02101,"619,68084-0157-11 ",.01)
  1. ;;68084-0157-11
  1. ;;9002226.02101,"619,68084-0157-11 ",.02)
  1. ;;68084-0157-11
  1. ;;9002226.02101,"619,68084-0158-01 ",.01)
  1. ;;68084-0158-01
  1. ;;9002226.02101,"619,68084-0158-01 ",.02)
  1. ;;68084-0158-01
  1. ;;9002226.02101,"619,68084-0158-11 ",.01)
  1. ;;68084-0158-11
  1. ;;9002226.02101,"619,68084-0158-11 ",.02)
  1. ;;68084-0158-11
  1. ;;9002226.02101,"619,68084-0159-01 ",.01)
  1. ;;68084-0159-01
  1. ;;9002226.02101,"619,68084-0159-01 ",.02)
  1. ;;68084-0159-01
  1. ;;9002226.02101,"619,68084-0159-11 ",.01)
  1. ;;68084-0159-11
  1. ;;9002226.02101,"619,68084-0159-11 ",.02)
  1. ;;68084-0159-11
  1. ;;9002226.02101,"619,68084-0184-01 ",.01)
  1. ;;68084-0184-01
  1. ;;9002226.02101,"619,68084-0184-01 ",.02)
  1. ;;68084-0184-01
  1. ;;9002226.02101,"619,68084-0184-11 ",.01)
  1. ;;68084-0184-11
  1. ;;9002226.02101,"619,68084-0184-11 ",.02)
  1. ;;68084-0184-11
  1. ;;9002226.02101,"619,68084-0185-01 ",.01)
  1. ;;68084-0185-01
  1. ;;9002226.02101,"619,68084-0185-01 ",.02)
  1. ;;68084-0185-01
  1. ;;9002226.02101,"619,68084-0185-11 ",.01)
  1. ;;68084-0185-11
  1. ;;9002226.02101,"619,68084-0185-11 ",.02)
  1. ;;68084-0185-11
  1. ;;9002226.02101,"619,68084-0227-01 ",.01)
  1. ;;68084-0227-01
  1. ;;9002226.02101,"619,68084-0227-01 ",.02)
  1. ;;68084-0227-01
  1. ;;9002226.02101,"619,68084-0227-11 ",.01)
  1. ;;68084-0227-11
  1. ;;9002226.02101,"619,68084-0227-11 ",.02)
  1. ;;68084-0227-11
  1. ;;9002226.02101,"619,68084-0354-01 ",.01)
  1. ;;68084-0354-01
  1. ;;9002226.02101,"619,68084-0354-01 ",.02)
  1. ;;68084-0354-01
  1. ;;9002226.02101,"619,68084-0354-11 ",.01)
  1. ;;68084-0354-11
  1. ;;9002226.02101,"619,68084-0354-11 ",.02)
  1. ;;68084-0354-11
  1. ;;9002226.02101,"619,68084-0355-01 ",.01)
  1. ;;68084-0355-01
  1. ;;9002226.02101,"619,68084-0355-01 ",.02)
  1. ;;68084-0355-01
  1. ;;9002226.02101,"619,68084-0355-11 ",.01)
  1. ;;68084-0355-11
  1. ;;9002226.02101,"619,68084-0355-11 ",.02)
  1. ;;68084-0355-11
  1. ;;9002226.02101,"619,68084-0368-01 ",.01)
  1. ;;68084-0368-01
  1. ;;9002226.02101,"619,68084-0368-01 ",.02)
  1. ;;68084-0368-01
  1. ;;9002226.02101,"619,68084-0368-11 ",.01)
  1. ;;68084-0368-11
  1. ;;9002226.02101,"619,68084-0368-11 ",.02)
  1. ;;68084-0368-11
  1. ;;9002226.02101,"619,68084-0372-01 ",.01)
  1. ;;68084-0372-01
  1. ;;9002226.02101,"619,68084-0372-01 ",.02)
  1. ;;68084-0372-01
  1. ;;9002226.02101,"619,68084-0372-11 ",.01)
  1. ;;68084-0372-11
  1. ;;9002226.02101,"619,68084-0372-11 ",.02)
  1. ;;68084-0372-11
  1. ;;9002226.02101,"619,68084-0373-01 ",.01)
  1. ;;68084-0373-01
  1. ;;9002226.02101,"619,68084-0373-01 ",.02)
  1. ;;68084-0373-01
  1. ;;9002226.02101,"619,68084-0373-11 ",.01)
  1. ;;68084-0373-11