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.
BGP82Z76 ; 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,68071-0296-92 ",.02)
 ;;68071-0296-92
 ;;9002226.02101,"619,68071-0301-30 ",.01)
 ;;68071-0301-30
 ;;9002226.02101,"619,68071-0301-30 ",.02)
 ;;68071-0301-30
 ;;9002226.02101,"619,68071-0301-40 ",.01)
 ;;68071-0301-40
 ;;9002226.02101,"619,68071-0301-40 ",.02)
 ;;68071-0301-40
 ;;9002226.02101,"619,68071-0301-60 ",.01)
 ;;68071-0301-60
 ;;9002226.02101,"619,68071-0301-60 ",.02)
 ;;68071-0301-60
 ;;9002226.02101,"619,68071-0301-90 ",.01)
 ;;68071-0301-90
 ;;9002226.02101,"619,68071-0301-90 ",.02)
 ;;68071-0301-90
 ;;9002226.02101,"619,68071-0301-91 ",.01)
 ;;68071-0301-91
 ;;9002226.02101,"619,68071-0301-91 ",.02)
 ;;68071-0301-91
 ;;9002226.02101,"619,68071-0342-30 ",.01)
 ;;68071-0342-30
 ;;9002226.02101,"619,68071-0342-30 ",.02)
 ;;68071-0342-30
 ;;9002226.02101,"619,68071-0342-60 ",.01)
 ;;68071-0342-60
 ;;9002226.02101,"619,68071-0342-60 ",.02)
 ;;68071-0342-60
 ;;9002226.02101,"619,68071-0344-10 ",.01)
 ;;68071-0344-10
 ;;9002226.02101,"619,68071-0344-10 ",.02)
 ;;68071-0344-10
 ;;9002226.02101,"619,68071-0344-20 ",.01)
 ;;68071-0344-20
 ;;9002226.02101,"619,68071-0344-20 ",.02)
 ;;68071-0344-20
 ;;9002226.02101,"619,68071-0344-30 ",.01)
 ;;68071-0344-30
 ;;9002226.02101,"619,68071-0344-30 ",.02)
 ;;68071-0344-30
 ;;9002226.02101,"619,68071-0344-40 ",.01)
 ;;68071-0344-40
 ;;9002226.02101,"619,68071-0344-40 ",.02)
 ;;68071-0344-40
 ;;9002226.02101,"619,68071-0344-60 ",.01)
 ;;68071-0344-60
 ;;9002226.02101,"619,68071-0344-60 ",.02)
 ;;68071-0344-60
 ;;9002226.02101,"619,68071-0344-81 ",.01)
 ;;68071-0344-81
 ;;9002226.02101,"619,68071-0344-81 ",.02)
 ;;68071-0344-81
 ;;9002226.02101,"619,68071-0344-90 ",.01)
 ;;68071-0344-90
 ;;9002226.02101,"619,68071-0344-90 ",.02)
 ;;68071-0344-90
 ;;9002226.02101,"619,68071-0344-91 ",.01)
 ;;68071-0344-91
 ;;9002226.02101,"619,68071-0344-91 ",.02)
 ;;68071-0344-91
 ;;9002226.02101,"619,68071-0344-92 ",.01)
 ;;68071-0344-92
 ;;9002226.02101,"619,68071-0344-92 ",.02)
 ;;68071-0344-92
 ;;9002226.02101,"619,68071-0345-30 ",.01)
 ;;68071-0345-30
 ;;9002226.02101,"619,68071-0345-30 ",.02)
 ;;68071-0345-30
 ;;9002226.02101,"619,68071-0352-30 ",.01)
 ;;68071-0352-30
 ;;9002226.02101,"619,68071-0352-30 ",.02)
 ;;68071-0352-30
 ;;9002226.02101,"619,68071-0352-56 ",.01)
 ;;68071-0352-56
 ;;9002226.02101,"619,68071-0352-56 ",.02)
 ;;68071-0352-56
 ;;9002226.02101,"619,68071-0352-60 ",.01)
 ;;68071-0352-60
 ;;9002226.02101,"619,68071-0352-60 ",.02)
 ;;68071-0352-60
 ;;9002226.02101,"619,68071-0352-84 ",.01)
 ;;68071-0352-84
 ;;9002226.02101,"619,68071-0352-84 ",.02)
 ;;68071-0352-84
 ;;9002226.02101,"619,68071-0352-90 ",.01)
 ;;68071-0352-90
 ;;9002226.02101,"619,68071-0352-90 ",.02)
 ;;68071-0352-90
 ;;9002226.02101,"619,68071-0352-91 ",.01)
 ;;68071-0352-91
 ;;9002226.02101,"619,68071-0352-91 ",.02)
 ;;68071-0352-91
 ;;9002226.02101,"619,68071-0447-90 ",.01)
 ;;68071-0447-90
 ;;9002226.02101,"619,68071-0447-90 ",.02)
 ;;68071-0447-90
 ;;9002226.02101,"619,68071-0453-60 ",.01)
 ;;68071-0453-60
 ;;9002226.02101,"619,68071-0453-60 ",.02)
 ;;68071-0453-60
 ;;9002226.02101,"619,68071-0453-81 ",.01)
 ;;68071-0453-81
 ;;9002226.02101,"619,68071-0453-81 ",.02)
 ;;68071-0453-81
 ;;9002226.02101,"619,68071-0453-90 ",.01)
 ;;68071-0453-90
 ;;9002226.02101,"619,68071-0453-90 ",.02)
 ;;68071-0453-90
 ;;9002226.02101,"619,68071-0454-60 ",.01)
 ;;68071-0454-60
 ;;9002226.02101,"619,68071-0454-60 ",.02)
 ;;68071-0454-60
 ;;9002226.02101,"619,68071-0454-81 ",.01)
 ;;68071-0454-81
 ;;9002226.02101,"619,68071-0454-81 ",.02)
 ;;68071-0454-81
 ;;9002226.02101,"619,68071-0454-88 ",.01)
 ;;68071-0454-88
 ;;9002226.02101,"619,68071-0454-88 ",.02)
 ;;68071-0454-88
 ;;9002226.02101,"619,68071-0454-90 ",.01)
 ;;68071-0454-90
 ;;9002226.02101,"619,68071-0454-90 ",.02)
 ;;68071-0454-90
 ;;9002226.02101,"619,68071-0454-91 ",.01)
 ;;68071-0454-91
 ;;9002226.02101,"619,68071-0454-91 ",.02)
 ;;68071-0454-91
 ;;9002226.02101,"619,68071-0454-92 ",.01)
 ;;68071-0454-92
 ;;9002226.02101,"619,68071-0454-92 ",.02)
 ;;68071-0454-92
 ;;9002226.02101,"619,68071-0457-56 ",.01)
 ;;68071-0457-56
 ;;9002226.02101,"619,68071-0457-56 ",.02)
 ;;68071-0457-56
 ;;9002226.02101,"619,68071-0457-60 ",.01)
 ;;68071-0457-60
 ;;9002226.02101,"619,68071-0457-60 ",.02)
 ;;68071-0457-60
 ;;9002226.02101,"619,68071-0457-84 ",.01)
 ;;68071-0457-84
 ;;9002226.02101,"619,68071-0457-84 ",.02)
 ;;68071-0457-84
 ;;9002226.02101,"619,68071-0457-90 ",.01)
 ;;68071-0457-90
 ;;9002226.02101,"619,68071-0457-90 ",.02)
 ;;68071-0457-90
 ;;9002226.02101,"619,68071-0480-30 ",.01)
 ;;68071-0480-30
 ;;9002226.02101,"619,68071-0480-30 ",.02)
 ;;68071-0480-30
 ;;9002226.02101,"619,68071-0484-30 ",.01)
 ;;68071-0484-30
 ;;9002226.02101,"619,68071-0484-30 ",.02)
 ;;68071-0484-30
 ;;9002226.02101,"619,68071-0484-56 ",.01)
 ;;68071-0484-56
 ;;9002226.02101,"619,68071-0484-56 ",.02)
 ;;68071-0484-56
 ;;9002226.02101,"619,68071-0484-60 ",.01)
 ;;68071-0484-60
 ;;9002226.02101,"619,68071-0484-60 ",.02)
 ;;68071-0484-60
 ;;9002226.02101,"619,68071-0484-90 ",.01)
 ;;68071-0484-90
 ;;9002226.02101,"619,68071-0484-90 ",.02)
 ;;68071-0484-90
 ;;9002226.02101,"619,68071-0484-91 ",.01)
 ;;68071-0484-91
 ;;9002226.02101,"619,68071-0484-91 ",.02)
 ;;68071-0484-91
 ;;9002226.02101,"619,68071-0490-30 ",.01)
 ;;68071-0490-30
 ;;9002226.02101,"619,68071-0490-30 ",.02)
 ;;68071-0490-30
 ;;9002226.02101,"619,68071-0490-60 ",.01)
 ;;68071-0490-60
 ;;9002226.02101,"619,68071-0490-60 ",.02)
 ;;68071-0490-60
 ;;9002226.02101,"619,68071-0490-90 ",.01)
 ;;68071-0490-90
 ;;9002226.02101,"619,68071-0490-90 ",.02)
 ;;68071-0490-90
 ;;9002226.02101,"619,68071-0697-60 ",.01)
 ;;68071-0697-60
 ;;9002226.02101,"619,68071-0697-60 ",.02)
 ;;68071-0697-60
 ;;9002226.02101,"619,68071-0738-30 ",.01)
 ;;68071-0738-30
 ;;9002226.02101,"619,68071-0738-30 ",.02)
 ;;68071-0738-30
 ;;9002226.02101,"619,68071-0738-60 ",.01)
 ;;68071-0738-60
 ;;9002226.02101,"619,68071-0738-60 ",.02)
 ;;68071-0738-60
 ;;9002226.02101,"619,68071-0760-30 ",.01)
 ;;68071-0760-30
 ;;9002226.02101,"619,68071-0760-30 ",.02)
 ;;68071-0760-30
 ;;9002226.02101,"619,68071-0832-91 ",.01)
 ;;68071-0832-91
 ;;9002226.02101,"619,68071-0832-91 ",.02)
 ;;68071-0832-91
 ;;9002226.02101,"619,68071-0833-91 ",.01)
 ;;68071-0833-91
 ;;9002226.02101,"619,68071-0833-91 ",.02)
 ;;68071-0833-91
 ;;9002226.02101,"619,68071-0834-91 ",.01)
 ;;68071-0834-91
 ;;9002226.02101,"619,68071-0834-91 ",.02)
 ;;68071-0834-91
 ;;9002226.02101,"619,68071-0909-30 ",.01)
 ;;68071-0909-30
 ;;9002226.02101,"619,68071-0909-30 ",.02)
 ;;68071-0909-30
 ;;9002226.02101,"619,68071-0909-60 ",.01)
 ;;68071-0909-60
 ;;9002226.02101,"619,68071-0909-60 ",.02)
 ;;68071-0909-60
 ;;9002226.02101,"619,68071-0909-90 ",.01)
 ;;68071-0909-90
 ;;9002226.02101,"619,68071-0909-90 ",.02)
 ;;68071-0909-90
 ;;9002226.02101,"619,68071-0918-30 ",.01)
 ;;68071-0918-30
 ;;9002226.02101,"619,68071-0918-30 ",.02)
 ;;68071-0918-30
 ;;9002226.02101,"619,68071-0918-60 ",.01)
 ;;68071-0918-60
 ;;9002226.02101,"619,68071-0918-60 ",.02)
 ;;68071-0918-60
 ;;9002226.02101,"619,68071-0918-90 ",.01)
 ;;68071-0918-90
 ;;9002226.02101,"619,68071-0918-90 ",.02)
 ;;68071-0918-90
 ;;9002226.02101,"619,68071-1320-00 ",.01)
 ;;68071-1320-00
 ;;9002226.02101,"619,68071-1320-00 ",.02)
 ;;68071-1320-00
 ;;9002226.02101,"619,68071-1359-00 ",.01)
 ;;68071-1359-00
 ;;9002226.02101,"619,68071-1359-00 ",.02)
 ;;68071-1359-00
 ;;9002226.02101,"619,68071-1361-00 ",.01)
 ;;68071-1361-00
 ;;9002226.02101,"619,68071-1361-00 ",.02)
 ;;68071-1361-00
 ;;9002226.02101,"619,68071-1373-05 ",.01)
 ;;68071-1373-05
 ;;9002226.02101,"619,68071-1373-05 ",.02)
 ;;68071-1373-05
 ;;9002226.02101,"619,68071-1374-05 ",.01)
 ;;68071-1374-05
 ;;9002226.02101,"619,68071-1374-05 ",.02)
 ;;68071-1374-05
 ;;9002226.02101,"619,68071-1375-05 ",.01)
 ;;68071-1375-05
 ;;9002226.02101,"619,68071-1375-05 ",.02)
 ;;68071-1375-05
 ;;9002226.02101,"619,68071-1376-03 ",.01)
 ;;68071-1376-03
 ;;9002226.02101,"619,68071-1376-03 ",.02)
 ;;68071-1376-03
 ;;9002226.02101,"619,68071-2001-03 ",.01)
 ;;68071-2001-03
 ;;9002226.02101,"619,68071-2001-03 ",.02)
 ;;68071-2001-03
 ;;9002226.02101,"619,68071-2001-06 ",.01)
 ;;68071-2001-06
 ;;9002226.02101,"619,68071-2001-06 ",.02)
 ;;68071-2001-06
 ;;9002226.02101,"619,68071-2001-09 ",.01)
 ;;68071-2001-09
 ;;9002226.02101,"619,68071-2001-09 ",.02)
 ;;68071-2001-09
 ;;9002226.02101,"619,68071-2010-06 ",.01)
 ;;68071-2010-06
 ;;9002226.02101,"619,68071-2010-06 ",.02)
 ;;68071-2010-06
 ;;9002226.02101,"619,68084-0048-01 ",.01)
 ;;68084-0048-01
 ;;9002226.02101,"619,68084-0048-01 ",.02)
 ;;68084-0048-01
 ;;9002226.02101,"619,68084-0048-11 ",.01)
 ;;68084-0048-11
 ;;9002226.02101,"619,68084-0048-11 ",.02)
 ;;68084-0048-11
 ;;9002226.02101,"619,68084-0100-01 ",.01)
 ;;68084-0100-01
 ;;9002226.02101,"619,68084-0100-01 ",.02)
 ;;68084-0100-01
 ;;9002226.02101,"619,68084-0100-11 ",.01)
 ;;68084-0100-11
 ;;9002226.02101,"619,68084-0100-11 ",.02)
 ;;68084-0100-11
 ;;9002226.02101,"619,68084-0157-01 ",.01)
 ;;68084-0157-01
 ;;9002226.02101,"619,68084-0157-01 ",.02)
 ;;68084-0157-01
 ;;9002226.02101,"619,68084-0157-11 ",.01)
 ;;68084-0157-11
 ;;9002226.02101,"619,68084-0157-11 ",.02)
 ;;68084-0157-11
 ;;9002226.02101,"619,68084-0158-01 ",.01)
 ;;68084-0158-01
 ;;9002226.02101,"619,68084-0158-01 ",.02)
 ;;68084-0158-01
 ;;9002226.02101,"619,68084-0158-11 ",.01)
 ;;68084-0158-11
 ;;9002226.02101,"619,68084-0158-11 ",.02)
 ;;68084-0158-11
 ;;9002226.02101,"619,68084-0159-01 ",.01)
 ;;68084-0159-01
 ;;9002226.02101,"619,68084-0159-01 ",.02)
 ;;68084-0159-01
 ;;9002226.02101,"619,68084-0159-11 ",.01)
 ;;68084-0159-11
 ;;9002226.02101,"619,68084-0159-11 ",.02)
 ;;68084-0159-11
 ;;9002226.02101,"619,68084-0184-01 ",.01)
 ;;68084-0184-01
 ;;9002226.02101,"619,68084-0184-01 ",.02)
 ;;68084-0184-01
 ;;9002226.02101,"619,68084-0184-11 ",.01)
 ;;68084-0184-11
 ;;9002226.02101,"619,68084-0184-11 ",.02)
 ;;68084-0184-11
 ;;9002226.02101,"619,68084-0185-01 ",.01)
 ;;68084-0185-01
 ;;9002226.02101,"619,68084-0185-01 ",.02)
 ;;68084-0185-01
 ;;9002226.02101,"619,68084-0185-11 ",.01)
 ;;68084-0185-11
 ;;9002226.02101,"619,68084-0185-11 ",.02)
 ;;68084-0185-11
 ;;9002226.02101,"619,68084-0227-01 ",.01)
 ;;68084-0227-01
 ;;9002226.02101,"619,68084-0227-01 ",.02)
 ;;68084-0227-01
 ;;9002226.02101,"619,68084-0227-11 ",.01)
 ;;68084-0227-11
 ;;9002226.02101,"619,68084-0227-11 ",.02)
 ;;68084-0227-11
 ;;9002226.02101,"619,68084-0354-01 ",.01)
 ;;68084-0354-01
 ;;9002226.02101,"619,68084-0354-01 ",.02)
 ;;68084-0354-01
 ;;9002226.02101,"619,68084-0354-11 ",.01)
 ;;68084-0354-11
 ;;9002226.02101,"619,68084-0354-11 ",.02)
 ;;68084-0354-11
 ;;9002226.02101,"619,68084-0355-01 ",.01)
 ;;68084-0355-01
 ;;9002226.02101,"619,68084-0355-01 ",.02)
 ;;68084-0355-01
 ;;9002226.02101,"619,68084-0355-11 ",.01)
 ;;68084-0355-11
 ;;9002226.02101,"619,68084-0355-11 ",.02)
 ;;68084-0355-11
 ;;9002226.02101,"619,68084-0368-01 ",.01)
 ;;68084-0368-01
 ;;9002226.02101,"619,68084-0368-01 ",.02)
 ;;68084-0368-01
 ;;9002226.02101,"619,68084-0368-11 ",.01)
 ;;68084-0368-11
 ;;9002226.02101,"619,68084-0368-11 ",.02)
 ;;68084-0368-11
 ;;9002226.02101,"619,68084-0372-01 ",.01)
 ;;68084-0372-01
 ;;9002226.02101,"619,68084-0372-01 ",.02)
 ;;68084-0372-01
 ;;9002226.02101,"619,68084-0372-11 ",.01)
 ;;68084-0372-11
 ;;9002226.02101,"619,68084-0372-11 ",.02)
 ;;68084-0372-11
 ;;9002226.02101,"619,68084-0373-01 ",.01)
 ;;68084-0373-01
 ;;9002226.02101,"619,68084-0373-01 ",.02)
 ;;68084-0373-01
 ;;9002226.02101,"619,68084-0373-11 ",.01)
 ;;68084-0373-11