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

BGP73G16.m

Go to the documentation of this file.
BGP73G16 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 05, 2017;
 ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
 ;
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,"869,00002-3233-30 ",.02)
 ;;00002-3233-30
 ;;9002226.02101,"869,00002-3233-33 ",.01)
 ;;00002-3233-33
 ;;9002226.02101,"869,00002-3233-33 ",.02)
 ;;00002-3233-33
 ;;9002226.02101,"869,00002-3234-01 ",.01)
 ;;00002-3234-01
 ;;9002226.02101,"869,00002-3234-01 ",.02)
 ;;00002-3234-01
 ;;9002226.02101,"869,00002-3234-30 ",.01)
 ;;00002-3234-30
 ;;9002226.02101,"869,00002-3234-30 ",.02)
 ;;00002-3234-30
 ;;9002226.02101,"869,00002-3234-33 ",.01)
 ;;00002-3234-33
 ;;9002226.02101,"869,00002-3234-33 ",.02)
 ;;00002-3234-33
 ;;9002226.02101,"869,00002-3235-01 ",.01)
 ;;00002-3235-01
 ;;9002226.02101,"869,00002-3235-01 ",.02)
 ;;00002-3235-01
 ;;9002226.02101,"869,00002-3235-33 ",.01)
 ;;00002-3235-33
 ;;9002226.02101,"869,00002-3235-33 ",.02)
 ;;00002-3235-33
 ;;9002226.02101,"869,00002-3235-60 ",.01)
 ;;00002-3235-60
 ;;9002226.02101,"869,00002-3235-60 ",.02)
 ;;00002-3235-60
 ;;9002226.02101,"869,00002-3237-01 ",.01)
 ;;00002-3237-01
 ;;9002226.02101,"869,00002-3237-01 ",.02)
 ;;00002-3237-01
 ;;9002226.02101,"869,00002-3237-04 ",.01)
 ;;00002-3237-04
 ;;9002226.02101,"869,00002-3237-04 ",.02)
 ;;00002-3237-04
 ;;9002226.02101,"869,00002-3237-30 ",.01)
 ;;00002-3237-30
 ;;9002226.02101,"869,00002-3237-30 ",.02)
 ;;00002-3237-30
 ;;9002226.02101,"869,00002-3237-33 ",.01)
 ;;00002-3237-33
 ;;9002226.02101,"869,00002-3237-33 ",.02)
 ;;00002-3237-33
 ;;9002226.02101,"869,00002-3240-01 ",.01)
 ;;00002-3240-01
 ;;9002226.02101,"869,00002-3240-01 ",.02)
 ;;00002-3240-01
 ;;9002226.02101,"869,00002-3240-30 ",.01)
 ;;00002-3240-30
 ;;9002226.02101,"869,00002-3240-30 ",.02)
 ;;00002-3240-30
 ;;9002226.02101,"869,00002-3240-33 ",.01)
 ;;00002-3240-33
 ;;9002226.02101,"869,00002-3240-33 ",.02)
 ;;00002-3240-33
 ;;9002226.02101,"869,00002-3240-90 ",.01)
 ;;00002-3240-90
 ;;9002226.02101,"869,00002-3240-90 ",.02)
 ;;00002-3240-90
 ;;9002226.02101,"869,00002-3270-01 ",.01)
 ;;00002-3270-01
 ;;9002226.02101,"869,00002-3270-01 ",.02)
 ;;00002-3270-01
 ;;9002226.02101,"869,00002-3270-04 ",.01)
 ;;00002-3270-04
 ;;9002226.02101,"869,00002-3270-04 ",.02)
 ;;00002-3270-04
 ;;9002226.02101,"869,00002-3270-30 ",.01)
 ;;00002-3270-30
 ;;9002226.02101,"869,00002-3270-30 ",.02)
 ;;00002-3270-30
 ;;9002226.02101,"869,00002-3270-33 ",.01)
 ;;00002-3270-33
 ;;9002226.02101,"869,00002-3270-33 ",.02)
 ;;00002-3270-33
 ;;9002226.02101,"869,00007-4471-20 ",.01)
 ;;00007-4471-20
 ;;9002226.02101,"869,00007-4471-20 ",.02)
 ;;00007-4471-20
 ;;9002226.02101,"869,00008-0833-02 ",.01)
 ;;00008-0833-02
 ;;9002226.02101,"869,00008-0833-02 ",.02)
 ;;00008-0833-02
 ;;9002226.02101,"869,00008-0833-03 ",.01)
 ;;00008-0833-03
 ;;9002226.02101,"869,00008-0833-03 ",.02)
 ;;00008-0833-03
 ;;9002226.02101,"869,00008-0833-20 ",.01)
 ;;00008-0833-20
 ;;9002226.02101,"869,00008-0833-20 ",.02)
 ;;00008-0833-20
 ;;9002226.02101,"869,00008-0833-21 ",.01)
 ;;00008-0833-21
 ;;9002226.02101,"869,00008-0833-21 ",.02)
 ;;00008-0833-21
 ;;9002226.02101,"869,00008-0833-22 ",.01)
 ;;00008-0833-22
 ;;9002226.02101,"869,00008-0833-22 ",.02)
 ;;00008-0833-22
 ;;9002226.02101,"869,00008-0836-02 ",.01)
 ;;00008-0836-02
 ;;9002226.02101,"869,00008-0836-02 ",.02)
 ;;00008-0836-02
 ;;9002226.02101,"869,00008-0836-03 ",.01)
 ;;00008-0836-03
 ;;9002226.02101,"869,00008-0836-03 ",.02)
 ;;00008-0836-03
 ;;9002226.02101,"869,00008-0836-20 ",.01)
 ;;00008-0836-20
 ;;9002226.02101,"869,00008-0836-20 ",.02)
 ;;00008-0836-20
 ;;9002226.02101,"869,00008-0836-21 ",.01)
 ;;00008-0836-21
 ;;9002226.02101,"869,00008-0836-21 ",.02)
 ;;00008-0836-21
 ;;9002226.02101,"869,00008-0836-22 ",.01)
 ;;00008-0836-22
 ;;9002226.02101,"869,00008-0836-22 ",.02)
 ;;00008-0836-22
 ;;9002226.02101,"869,00008-0837-02 ",.01)
 ;;00008-0837-02
 ;;9002226.02101,"869,00008-0837-02 ",.02)
 ;;00008-0837-02
 ;;9002226.02101,"869,00008-0837-03 ",.01)
 ;;00008-0837-03
 ;;9002226.02101,"869,00008-0837-03 ",.02)
 ;;00008-0837-03
 ;;9002226.02101,"869,00008-0837-20 ",.01)
 ;;00008-0837-20
 ;;9002226.02101,"869,00008-0837-20 ",.02)
 ;;00008-0837-20
 ;;9002226.02101,"869,00008-0837-21 ",.01)
 ;;00008-0837-21
 ;;9002226.02101,"869,00008-0837-21 ",.02)
 ;;00008-0837-21
 ;;9002226.02101,"869,00008-0837-22 ",.01)
 ;;00008-0837-22
 ;;9002226.02101,"869,00008-0837-22 ",.02)
 ;;00008-0837-22
 ;;9002226.02101,"869,00008-1210-30 ",.01)
 ;;00008-1210-30
 ;;9002226.02101,"869,00008-1210-30 ",.02)
 ;;00008-1210-30
 ;;9002226.02101,"869,00008-1211-01 ",.01)
 ;;00008-1211-01
 ;;9002226.02101,"869,00008-1211-01 ",.02)
 ;;00008-1211-01
 ;;9002226.02101,"869,00008-1211-14 ",.01)
 ;;00008-1211-14
 ;;9002226.02101,"869,00008-1211-14 ",.02)
 ;;00008-1211-14
 ;;9002226.02101,"869,00008-1211-30 ",.01)
 ;;00008-1211-30
 ;;9002226.02101,"869,00008-1211-30 ",.02)
 ;;00008-1211-30
 ;;9002226.02101,"869,00008-1211-50 ",.01)
 ;;00008-1211-50
 ;;9002226.02101,"869,00008-1211-50 ",.02)
 ;;00008-1211-50
 ;;9002226.02101,"869,00008-1222-01 ",.01)
 ;;00008-1222-01
 ;;9002226.02101,"869,00008-1222-01 ",.02)
 ;;00008-1222-01
 ;;9002226.02101,"869,00008-1222-14 ",.01)
 ;;00008-1222-14
 ;;9002226.02101,"869,00008-1222-14 ",.02)
 ;;00008-1222-14
 ;;9002226.02101,"869,00008-1222-30 ",.01)
 ;;00008-1222-30
 ;;9002226.02101,"869,00008-1222-30 ",.02)
 ;;00008-1222-30
 ;;9002226.02101,"869,00008-1222-50 ",.01)
 ;;00008-1222-50
 ;;9002226.02101,"869,00008-1222-50 ",.02)
 ;;00008-1222-50
 ;;9002226.02101,"869,00024-5810-30 ",.01)
 ;;00024-5810-30
 ;;9002226.02101,"869,00024-5810-30 ",.02)
 ;;00024-5810-30
 ;;9002226.02101,"869,00024-5811-30 ",.01)
 ;;00024-5811-30
 ;;9002226.02101,"869,00024-5811-30 ",.02)
 ;;00024-5811-30
 ;;9002226.02101,"869,00024-5812-30 ",.01)
 ;;00024-5812-30
 ;;9002226.02101,"869,00024-5812-30 ",.02)
 ;;00024-5812-30
 ;;9002226.02101,"869,00029-3208-13 ",.01)
 ;;00029-3208-13
 ;;9002226.02101,"869,00029-3208-13 ",.02)
 ;;00029-3208-13
 ;;9002226.02101,"869,00029-3210-13 ",.01)
 ;;00029-3210-13
 ;;9002226.02101,"869,00029-3210-13 ",.02)
 ;;00029-3210-13
 ;;9002226.02101,"869,00029-3211-13 ",.01)
 ;;00029-3211-13
 ;;9002226.02101,"869,00029-3211-13 ",.02)
 ;;00029-3211-13
 ;;9002226.02101,"869,00029-3211-59 ",.01)
 ;;00029-3211-59
 ;;9002226.02101,"869,00029-3211-59 ",.02)
 ;;00029-3211-59
 ;;9002226.02101,"869,00029-3212-13 ",.01)
 ;;00029-3212-13
 ;;9002226.02101,"869,00029-3212-13 ",.02)
 ;;00029-3212-13
 ;;9002226.02101,"869,00029-3213-13 ",.01)
 ;;00029-3213-13
 ;;9002226.02101,"869,00029-3213-13 ",.02)
 ;;00029-3213-13
 ;;9002226.02101,"869,00029-3215-48 ",.01)
 ;;00029-3215-48
 ;;9002226.02101,"869,00029-3215-48 ",.02)
 ;;00029-3215-48
 ;;9002226.02101,"869,00029-4606-13 ",.01)
 ;;00029-4606-13
 ;;9002226.02101,"869,00029-4606-13 ",.02)
 ;;00029-4606-13
 ;;9002226.02101,"869,00029-4607-13 ",.01)
 ;;00029-4607-13
 ;;9002226.02101,"869,00029-4607-13 ",.02)
 ;;00029-4607-13
 ;;9002226.02101,"869,00049-4900-30 ",.01)
 ;;00049-4900-30
 ;;9002226.02101,"869,00049-4900-30 ",.02)
 ;;00049-4900-30
 ;;9002226.02101,"869,00049-4900-41 ",.01)
 ;;00049-4900-41
 ;;9002226.02101,"869,00049-4900-41 ",.02)
 ;;00049-4900-41
 ;;9002226.02101,"869,00049-4910-30 ",.01)
 ;;00049-4910-30
 ;;9002226.02101,"869,00049-4910-30 ",.02)
 ;;00049-4910-30
 ;;9002226.02101,"869,00049-4910-41 ",.01)
 ;;00049-4910-41
 ;;9002226.02101,"869,00049-4910-41 ",.02)
 ;;00049-4910-41
 ;;9002226.02101,"869,00049-4940-23 ",.01)
 ;;00049-4940-23
 ;;9002226.02101,"869,00049-4940-23 ",.02)
 ;;00049-4940-23
 ;;9002226.02101,"869,00049-4960-30 ",.01)
 ;;00049-4960-30
 ;;9002226.02101,"869,00049-4960-30 ",.02)
 ;;00049-4960-30
 ;;9002226.02101,"869,00052-0105-30 ",.01)
 ;;00052-0105-30
 ;;9002226.02101,"869,00052-0105-30 ",.02)
 ;;00052-0105-30
 ;;9002226.02101,"869,00052-0105-90 ",.01)
 ;;00052-0105-90
 ;;9002226.02101,"869,00052-0105-90 ",.02)
 ;;00052-0105-90
 ;;9002226.02101,"869,00052-0106-06 ",.01)
 ;;00052-0106-06
 ;;9002226.02101,"869,00052-0106-06 ",.02)
 ;;00052-0106-06
 ;;9002226.02101,"869,00052-0106-30 ",.01)
 ;;00052-0106-30
 ;;9002226.02101,"869,00052-0106-30 ",.02)
 ;;00052-0106-30
 ;;9002226.02101,"869,00052-0106-90 ",.01)
 ;;00052-0106-90
 ;;9002226.02101,"869,00052-0106-90 ",.02)
 ;;00052-0106-90
 ;;9002226.02101,"869,00052-0107-30 ",.01)
 ;;00052-0107-30
 ;;9002226.02101,"869,00052-0107-30 ",.02)
 ;;00052-0107-30
 ;;9002226.02101,"869,00052-0107-90 ",.01)
 ;;00052-0107-90
 ;;9002226.02101,"869,00052-0107-90 ",.02)
 ;;00052-0107-90
 ;;9002226.02101,"869,00052-0108-06 ",.01)
 ;;00052-0108-06
 ;;9002226.02101,"869,00052-0108-06 ",.02)
 ;;00052-0108-06
 ;;9002226.02101,"869,00052-0108-30 ",.01)
 ;;00052-0108-30
 ;;9002226.02101,"869,00052-0108-30 ",.02)
 ;;00052-0108-30
 ;;9002226.02101,"869,00052-0108-90 ",.01)
 ;;00052-0108-90
 ;;9002226.02101,"869,00052-0108-90 ",.02)
 ;;00052-0108-90
 ;;9002226.02101,"869,00052-0109-30 ",.01)
 ;;00052-0109-30
 ;;9002226.02101,"869,00052-0109-30 ",.02)
 ;;00052-0109-30
 ;;9002226.02101,"869,00052-0110-06 ",.01)
 ;;00052-0110-06
 ;;9002226.02101,"869,00052-0110-06 ",.02)
 ;;00052-0110-06
 ;;9002226.02101,"869,00052-0110-30 ",.01)
 ;;00052-0110-30
 ;;9002226.02101,"869,00052-0110-30 ",.02)
 ;;00052-0110-30
 ;;9002226.02101,"869,00052-0110-90 ",.01)
 ;;00052-0110-90
 ;;9002226.02101,"869,00052-0110-90 ",.02)
 ;;00052-0110-90
 ;;9002226.02101,"869,00054-0062-58 ",.01)
 ;;00054-0062-58
 ;;9002226.02101,"869,00054-0062-58 ",.02)
 ;;00054-0062-58
 ;;9002226.02101,"869,00054-0210-25 ",.01)
 ;;00054-0210-25
 ;;9002226.02101,"869,00054-0210-25 ",.02)
 ;;00054-0210-25
 ;;9002226.02101,"869,00054-0211-25 ",.01)
 ;;00054-0211-25
 ;;9002226.02101,"869,00054-0211-25 ",.02)
 ;;00054-0211-25
 ;;9002226.02101,"869,00054-0273-13 ",.01)
 ;;00054-0273-13
 ;;9002226.02101,"869,00054-0273-13 ",.02)
 ;;00054-0273-13
 ;;9002226.02101,"869,00054-0274-13 ",.01)
 ;;00054-0274-13
 ;;9002226.02101,"869,00054-0274-13 ",.02)
 ;;00054-0274-13
 ;;9002226.02101,"869,00054-0275-13 ",.01)
 ;;00054-0275-13
 ;;9002226.02101,"869,00054-0275-13 ",.02)
 ;;00054-0275-13
 ;;9002226.02101,"869,00054-0276-13 ",.01)
 ;;00054-0276-13
 ;;9002226.02101,"869,00054-0276-13 ",.02)
 ;;00054-0276-13
 ;;9002226.02101,"869,00068-0007-01 ",.01)
 ;;00068-0007-01
 ;;9002226.02101,"869,00068-0007-01 ",.02)
 ;;00068-0007-01
 ;;9002226.02101,"869,00068-0011-01 ",.01)
 ;;00068-0011-01
 ;;9002226.02101,"869,00068-0011-01 ",.02)
 ;;00068-0011-01
 ;;9002226.02101,"869,00068-0015-01 ",.01)
 ;;00068-0015-01
 ;;9002226.02101,"869,00068-0015-01 ",.02)
 ;;00068-0015-01
 ;;9002226.02101,"869,00068-0019-01 ",.01)
 ;;00068-0019-01
 ;;9002226.02101,"869,00068-0019-01 ",.02)
 ;;00068-0019-01
 ;;9002226.02101,"869,00068-0020-01 ",.01)
 ;;00068-0020-01
 ;;9002226.02101,"869,00068-0020-01 ",.02)
 ;;00068-0020-01
 ;;9002226.02101,"869,00068-0021-50 ",.01)
 ;;00068-0021-50
 ;;9002226.02101,"869,00068-0021-50 ",.02)
 ;;00068-0021-50
 ;;9002226.02101,"869,00071-0350-60 ",.01)
 ;;00071-0350-60
 ;;9002226.02101,"869,00071-0350-60 ",.02)
 ;;00071-0350-60
 ;;9002226.02101,"869,00093-0057-01 ",.01)
 ;;00093-0057-01
 ;;9002226.02101,"869,00093-0057-01 ",.02)
 ;;00093-0057-01
 ;;9002226.02101,"869,00093-0072-01 ",.01)
 ;;00093-0072-01
 ;;9002226.02101,"869,00093-0072-01 ",.02)
 ;;00093-0072-01
 ;;9002226.02101,"869,00093-0199-01 ",.01)
 ;;00093-0199-01
 ;;9002226.02101,"869,00093-0199-01 ",.02)
 ;;00093-0199-01
 ;;9002226.02101,"869,00093-0280-01 ",.01)
 ;;00093-0280-01
 ;;9002226.02101,"869,00093-0280-01 ",.02)
 ;;00093-0280-01
 ;;9002226.02101,"869,00093-0280-05 ",.01)
 ;;00093-0280-05
 ;;9002226.02101,"869,00093-0280-05 ",.02)
 ;;00093-0280-05
 ;;9002226.02101,"869,00093-0280-19 ",.01)
 ;;00093-0280-19