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

BGP13T16.m

Go to the documentation of this file.
  1. BGP13T16 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
  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,"992,00002-3232-01 ",.02)
  1. ;;00002-3232-01
  1. ;;9002226.02101,"992,00002-3232-30 ",.01)
  1. ;;00002-3232-30
  1. ;;9002226.02101,"992,00002-3232-30 ",.02)
  1. ;;00002-3232-30
  1. ;;9002226.02101,"992,00002-3232-33 ",.01)
  1. ;;00002-3232-33
  1. ;;9002226.02101,"992,00002-3232-33 ",.02)
  1. ;;00002-3232-33
  1. ;;9002226.02101,"992,00002-3233-01 ",.01)
  1. ;;00002-3233-01
  1. ;;9002226.02101,"992,00002-3233-01 ",.02)
  1. ;;00002-3233-01
  1. ;;9002226.02101,"992,00002-3233-30 ",.01)
  1. ;;00002-3233-30
  1. ;;9002226.02101,"992,00002-3233-30 ",.02)
  1. ;;00002-3233-30
  1. ;;9002226.02101,"992,00002-3233-33 ",.01)
  1. ;;00002-3233-33
  1. ;;9002226.02101,"992,00002-3233-33 ",.02)
  1. ;;00002-3233-33
  1. ;;9002226.02101,"992,00002-3234-01 ",.01)
  1. ;;00002-3234-01
  1. ;;9002226.02101,"992,00002-3234-01 ",.02)
  1. ;;00002-3234-01
  1. ;;9002226.02101,"992,00002-3234-30 ",.01)
  1. ;;00002-3234-30
  1. ;;9002226.02101,"992,00002-3234-30 ",.02)
  1. ;;00002-3234-30
  1. ;;9002226.02101,"992,00002-3234-33 ",.01)
  1. ;;00002-3234-33
  1. ;;9002226.02101,"992,00002-3234-33 ",.02)
  1. ;;00002-3234-33
  1. ;;9002226.02101,"992,00002-3235-01 ",.01)
  1. ;;00002-3235-01
  1. ;;9002226.02101,"992,00002-3235-01 ",.02)
  1. ;;00002-3235-01
  1. ;;9002226.02101,"992,00002-3235-33 ",.01)
  1. ;;00002-3235-33
  1. ;;9002226.02101,"992,00002-3235-33 ",.02)
  1. ;;00002-3235-33
  1. ;;9002226.02101,"992,00002-3235-60 ",.01)
  1. ;;00002-3235-60
  1. ;;9002226.02101,"992,00002-3235-60 ",.02)
  1. ;;00002-3235-60
  1. ;;9002226.02101,"992,00002-3237-01 ",.01)
  1. ;;00002-3237-01
  1. ;;9002226.02101,"992,00002-3237-01 ",.02)
  1. ;;00002-3237-01
  1. ;;9002226.02101,"992,00002-3237-04 ",.01)
  1. ;;00002-3237-04
  1. ;;9002226.02101,"992,00002-3237-04 ",.02)
  1. ;;00002-3237-04
  1. ;;9002226.02101,"992,00002-3237-30 ",.01)
  1. ;;00002-3237-30
  1. ;;9002226.02101,"992,00002-3237-30 ",.02)
  1. ;;00002-3237-30
  1. ;;9002226.02101,"992,00002-3237-33 ",.01)
  1. ;;00002-3237-33
  1. ;;9002226.02101,"992,00002-3237-33 ",.02)
  1. ;;00002-3237-33
  1. ;;9002226.02101,"992,00002-3237-34 ",.01)
  1. ;;00002-3237-34
  1. ;;9002226.02101,"992,00002-3237-34 ",.02)
  1. ;;00002-3237-34
  1. ;;9002226.02101,"992,00002-3240-01 ",.01)
  1. ;;00002-3240-01
  1. ;;9002226.02101,"992,00002-3240-01 ",.02)
  1. ;;00002-3240-01
  1. ;;9002226.02101,"992,00002-3240-30 ",.01)
  1. ;;00002-3240-30
  1. ;;9002226.02101,"992,00002-3240-30 ",.02)
  1. ;;00002-3240-30
  1. ;;9002226.02101,"992,00002-3240-33 ",.01)
  1. ;;00002-3240-33
  1. ;;9002226.02101,"992,00002-3240-33 ",.02)
  1. ;;00002-3240-33
  1. ;;9002226.02101,"992,00002-3240-90 ",.01)
  1. ;;00002-3240-90
  1. ;;9002226.02101,"992,00002-3240-90 ",.02)
  1. ;;00002-3240-90
  1. ;;9002226.02101,"992,00002-3270-01 ",.01)
  1. ;;00002-3270-01
  1. ;;9002226.02101,"992,00002-3270-01 ",.02)
  1. ;;00002-3270-01
  1. ;;9002226.02101,"992,00002-3270-04 ",.01)
  1. ;;00002-3270-04
  1. ;;9002226.02101,"992,00002-3270-04 ",.02)
  1. ;;00002-3270-04
  1. ;;9002226.02101,"992,00002-3270-30 ",.01)
  1. ;;00002-3270-30
  1. ;;9002226.02101,"992,00002-3270-30 ",.02)
  1. ;;00002-3270-30
  1. ;;9002226.02101,"992,00002-3270-33 ",.01)
  1. ;;00002-3270-33
  1. ;;9002226.02101,"992,00002-3270-33 ",.02)
  1. ;;00002-3270-33
  1. ;;9002226.02101,"992,00002-4006-02 ",.01)
  1. ;;00002-4006-02
  1. ;;9002226.02101,"992,00002-4006-02 ",.02)
  1. ;;00002-4006-02
  1. ;;9002226.02101,"992,00002-4006-30 ",.01)
  1. ;;00002-4006-30
  1. ;;9002226.02101,"992,00002-4006-30 ",.02)
  1. ;;00002-4006-30
  1. ;;9002226.02101,"992,00007-4471-20 ",.01)
  1. ;;00007-4471-20
  1. ;;9002226.02101,"992,00007-4471-20 ",.02)
  1. ;;00007-4471-20
  1. ;;9002226.02101,"992,00008-0701-01 ",.01)
  1. ;;00008-0701-01
  1. ;;9002226.02101,"992,00008-0701-01 ",.02)
  1. ;;00008-0701-01
  1. ;;9002226.02101,"992,00008-0701-07 ",.01)
  1. ;;00008-0701-07
  1. ;;9002226.02101,"992,00008-0701-07 ",.02)
  1. ;;00008-0701-07
  1. ;;9002226.02101,"992,00008-0701-08 ",.01)
  1. ;;00008-0701-08
  1. ;;9002226.02101,"992,00008-0701-08 ",.02)
  1. ;;00008-0701-08
  1. ;;9002226.02101,"992,00008-0703-01 ",.01)
  1. ;;00008-0703-01
  1. ;;9002226.02101,"992,00008-0703-01 ",.02)
  1. ;;00008-0703-01
  1. ;;9002226.02101,"992,00008-0703-07 ",.01)
  1. ;;00008-0703-07
  1. ;;9002226.02101,"992,00008-0703-07 ",.02)
  1. ;;00008-0703-07
  1. ;;9002226.02101,"992,00008-0703-08 ",.01)
  1. ;;00008-0703-08
  1. ;;9002226.02101,"992,00008-0703-08 ",.02)
  1. ;;00008-0703-08
  1. ;;9002226.02101,"992,00008-0704-01 ",.01)
  1. ;;00008-0704-01
  1. ;;9002226.02101,"992,00008-0704-01 ",.02)
  1. ;;00008-0704-01
  1. ;;9002226.02101,"992,00008-0704-02 ",.01)
  1. ;;00008-0704-02
  1. ;;9002226.02101,"992,00008-0704-02 ",.02)
  1. ;;00008-0704-02
  1. ;;9002226.02101,"992,00008-0704-07 ",.01)
  1. ;;00008-0704-07
  1. ;;9002226.02101,"992,00008-0704-07 ",.02)
  1. ;;00008-0704-07
  1. ;;9002226.02101,"992,00008-0704-08 ",.01)
  1. ;;00008-0704-08
  1. ;;9002226.02101,"992,00008-0704-08 ",.02)
  1. ;;00008-0704-08
  1. ;;9002226.02101,"992,00008-0705-01 ",.01)
  1. ;;00008-0705-01
  1. ;;9002226.02101,"992,00008-0705-01 ",.02)
  1. ;;00008-0705-01
  1. ;;9002226.02101,"992,00008-0705-07 ",.01)
  1. ;;00008-0705-07
  1. ;;9002226.02101,"992,00008-0705-07 ",.02)
  1. ;;00008-0705-07
  1. ;;9002226.02101,"992,00008-0705-08 ",.01)
  1. ;;00008-0705-08
  1. ;;9002226.02101,"992,00008-0705-08 ",.02)
  1. ;;00008-0705-08
  1. ;;9002226.02101,"992,00008-0781-01 ",.01)
  1. ;;00008-0781-01
  1. ;;9002226.02101,"992,00008-0781-01 ",.02)
  1. ;;00008-0781-01
  1. ;;9002226.02101,"992,00008-0781-02 ",.01)
  1. ;;00008-0781-02
  1. ;;9002226.02101,"992,00008-0781-02 ",.02)
  1. ;;00008-0781-02
  1. ;;9002226.02101,"992,00008-0781-07 ",.01)
  1. ;;00008-0781-07
  1. ;;9002226.02101,"992,00008-0781-07 ",.02)
  1. ;;00008-0781-07
  1. ;;9002226.02101,"992,00008-0781-08 ",.01)
  1. ;;00008-0781-08
  1. ;;9002226.02101,"992,00008-0781-08 ",.02)
  1. ;;00008-0781-08
  1. ;;9002226.02101,"992,00008-0833-01 ",.01)
  1. ;;00008-0833-01
  1. ;;9002226.02101,"992,00008-0833-01 ",.02)
  1. ;;00008-0833-01
  1. ;;9002226.02101,"992,00008-0833-02 ",.01)
  1. ;;00008-0833-02
  1. ;;9002226.02101,"992,00008-0833-02 ",.02)
  1. ;;00008-0833-02
  1. ;;9002226.02101,"992,00008-0833-03 ",.01)
  1. ;;00008-0833-03
  1. ;;9002226.02101,"992,00008-0833-03 ",.02)
  1. ;;00008-0833-03
  1. ;;9002226.02101,"992,00008-0833-20 ",.01)
  1. ;;00008-0833-20
  1. ;;9002226.02101,"992,00008-0833-20 ",.02)
  1. ;;00008-0833-20
  1. ;;9002226.02101,"992,00008-0833-21 ",.01)
  1. ;;00008-0833-21
  1. ;;9002226.02101,"992,00008-0833-21 ",.02)
  1. ;;00008-0833-21
  1. ;;9002226.02101,"992,00008-0833-22 ",.01)
  1. ;;00008-0833-22
  1. ;;9002226.02101,"992,00008-0833-22 ",.02)
  1. ;;00008-0833-22
  1. ;;9002226.02101,"992,00008-0836-01 ",.01)
  1. ;;00008-0836-01
  1. ;;9002226.02101,"992,00008-0836-01 ",.02)
  1. ;;00008-0836-01
  1. ;;9002226.02101,"992,00008-0836-02 ",.01)
  1. ;;00008-0836-02
  1. ;;9002226.02101,"992,00008-0836-02 ",.02)
  1. ;;00008-0836-02
  1. ;;9002226.02101,"992,00008-0836-03 ",.01)
  1. ;;00008-0836-03
  1. ;;9002226.02101,"992,00008-0836-03 ",.02)
  1. ;;00008-0836-03
  1. ;;9002226.02101,"992,00008-0836-20 ",.01)
  1. ;;00008-0836-20
  1. ;;9002226.02101,"992,00008-0836-20 ",.02)
  1. ;;00008-0836-20
  1. ;;9002226.02101,"992,00008-0836-21 ",.01)
  1. ;;00008-0836-21
  1. ;;9002226.02101,"992,00008-0836-21 ",.02)
  1. ;;00008-0836-21
  1. ;;9002226.02101,"992,00008-0836-22 ",.01)
  1. ;;00008-0836-22
  1. ;;9002226.02101,"992,00008-0836-22 ",.02)
  1. ;;00008-0836-22
  1. ;;9002226.02101,"992,00008-0837-01 ",.01)
  1. ;;00008-0837-01
  1. ;;9002226.02101,"992,00008-0837-01 ",.02)
  1. ;;00008-0837-01
  1. ;;9002226.02101,"992,00008-0837-02 ",.01)
  1. ;;00008-0837-02
  1. ;;9002226.02101,"992,00008-0837-02 ",.02)
  1. ;;00008-0837-02
  1. ;;9002226.02101,"992,00008-0837-03 ",.01)
  1. ;;00008-0837-03
  1. ;;9002226.02101,"992,00008-0837-03 ",.02)
  1. ;;00008-0837-03
  1. ;;9002226.02101,"992,00008-0837-20 ",.01)
  1. ;;00008-0837-20
  1. ;;9002226.02101,"992,00008-0837-20 ",.02)
  1. ;;00008-0837-20
  1. ;;9002226.02101,"992,00008-0837-21 ",.01)
  1. ;;00008-0837-21
  1. ;;9002226.02101,"992,00008-0837-21 ",.02)
  1. ;;00008-0837-21
  1. ;;9002226.02101,"992,00008-0837-22 ",.01)
  1. ;;00008-0837-22
  1. ;;9002226.02101,"992,00008-0837-22 ",.02)
  1. ;;00008-0837-22
  1. ;;9002226.02101,"992,00008-1211-01 ",.01)
  1. ;;00008-1211-01
  1. ;;9002226.02101,"992,00008-1211-01 ",.02)
  1. ;;00008-1211-01
  1. ;;9002226.02101,"992,00008-1211-14 ",.01)
  1. ;;00008-1211-14
  1. ;;9002226.02101,"992,00008-1211-14 ",.02)
  1. ;;00008-1211-14
  1. ;;9002226.02101,"992,00008-1211-30 ",.01)
  1. ;;00008-1211-30
  1. ;;9002226.02101,"992,00008-1211-30 ",.02)
  1. ;;00008-1211-30
  1. ;;9002226.02101,"992,00008-1211-50 ",.01)
  1. ;;00008-1211-50
  1. ;;9002226.02101,"992,00008-1211-50 ",.02)
  1. ;;00008-1211-50
  1. ;;9002226.02101,"992,00008-1222-01 ",.01)
  1. ;;00008-1222-01
  1. ;;9002226.02101,"992,00008-1222-01 ",.02)
  1. ;;00008-1222-01
  1. ;;9002226.02101,"992,00008-1222-14 ",.01)
  1. ;;00008-1222-14
  1. ;;9002226.02101,"992,00008-1222-14 ",.02)
  1. ;;00008-1222-14
  1. ;;9002226.02101,"992,00008-1222-30 ",.01)
  1. ;;00008-1222-30
  1. ;;9002226.02101,"992,00008-1222-30 ",.02)
  1. ;;00008-1222-30
  1. ;;9002226.02101,"992,00008-1222-50 ",.01)
  1. ;;00008-1222-50
  1. ;;9002226.02101,"992,00008-1222-50 ",.02)
  1. ;;00008-1222-50
  1. ;;9002226.02101,"992,00024-5810-30 ",.01)
  1. ;;00024-5810-30
  1. ;;9002226.02101,"992,00024-5810-30 ",.02)
  1. ;;00024-5810-30
  1. ;;9002226.02101,"992,00024-5811-30 ",.01)
  1. ;;00024-5811-30
  1. ;;9002226.02101,"992,00024-5811-30 ",.02)
  1. ;;00024-5811-30
  1. ;;9002226.02101,"992,00024-5812-30 ",.01)
  1. ;;00024-5812-30
  1. ;;9002226.02101,"992,00024-5812-30 ",.02)
  1. ;;00024-5812-30
  1. ;;9002226.02101,"992,00029-3206-13 ",.01)
  1. ;;00029-3206-13
  1. ;;9002226.02101,"992,00029-3206-13 ",.02)
  1. ;;00029-3206-13
  1. ;;9002226.02101,"992,00029-3207-13 ",.01)
  1. ;;00029-3207-13
  1. ;;9002226.02101,"992,00029-3207-13 ",.02)
  1. ;;00029-3207-13
  1. ;;9002226.02101,"992,00029-3208-13 ",.01)
  1. ;;00029-3208-13
  1. ;;9002226.02101,"992,00029-3208-13 ",.02)
  1. ;;00029-3208-13
  1. ;;9002226.02101,"992,00029-3210-13 ",.01)
  1. ;;00029-3210-13
  1. ;;9002226.02101,"992,00029-3210-13 ",.02)
  1. ;;00029-3210-13
  1. ;;9002226.02101,"992,00029-3211-13 ",.01)
  1. ;;00029-3211-13
  1. ;;9002226.02101,"992,00029-3211-13 ",.02)
  1. ;;00029-3211-13
  1. ;;9002226.02101,"992,00029-3211-21 ",.01)
  1. ;;00029-3211-21
  1. ;;9002226.02101,"992,00029-3211-21 ",.02)
  1. ;;00029-3211-21
  1. ;;9002226.02101,"992,00029-3211-59 ",.01)
  1. ;;00029-3211-59
  1. ;;9002226.02101,"992,00029-3211-59 ",.02)
  1. ;;00029-3211-59
  1. ;;9002226.02101,"992,00029-3212-13 ",.01)
  1. ;;00029-3212-13
  1. ;;9002226.02101,"992,00029-3212-13 ",.02)
  1. ;;00029-3212-13
  1. ;;9002226.02101,"992,00029-3213-13 ",.01)
  1. ;;00029-3213-13
  1. ;;9002226.02101,"992,00029-3213-13 ",.02)
  1. ;;00029-3213-13
  1. ;;9002226.02101,"992,00029-3215-48 ",.01)
  1. ;;00029-3215-48
  1. ;;9002226.02101,"992,00029-3215-48 ",.02)
  1. ;;00029-3215-48
  1. ;;9002226.02101,"992,00029-4607-13 ",.01)
  1. ;;00029-4607-13
  1. ;;9002226.02101,"992,00029-4607-13 ",.02)
  1. ;;00029-4607-13
  1. ;;9002226.02101,"992,00049-4900-30 ",.01)
  1. ;;00049-4900-30
  1. ;;9002226.02101,"992,00049-4900-30 ",.02)
  1. ;;00049-4900-30
  1. ;;9002226.02101,"992,00049-4900-41 ",.01)
  1. ;;00049-4900-41
  1. ;;9002226.02101,"992,00049-4900-41 ",.02)
  1. ;;00049-4900-41
  1. ;;9002226.02101,"992,00049-4900-94 ",.01)
  1. ;;00049-4900-94
  1. ;;9002226.02101,"992,00049-4900-94 ",.02)
  1. ;;00049-4900-94
  1. ;;9002226.02101,"992,00049-4910-30 ",.01)
  1. ;;00049-4910-30
  1. ;;9002226.02101,"992,00049-4910-30 ",.02)
  1. ;;00049-4910-30
  1. ;;9002226.02101,"992,00049-4910-41 ",.01)
  1. ;;00049-4910-41
  1. ;;9002226.02101,"992,00049-4910-41 ",.02)
  1. ;;00049-4910-41
  1. ;;9002226.02101,"992,00049-4910-94 ",.01)
  1. ;;00049-4910-94
  1. ;;9002226.02101,"992,00049-4910-94 ",.02)
  1. ;;00049-4910-94
  1. ;;9002226.02101,"992,00049-4940-23 ",.01)
  1. ;;00049-4940-23
  1. ;;9002226.02101,"992,00049-4940-23 ",.02)
  1. ;;00049-4940-23
  1. ;;9002226.02101,"992,00049-4960-30 ",.01)
  1. ;;00049-4960-30
  1. ;;9002226.02101,"992,00049-4960-30 ",.02)
  1. ;;00049-4960-30
  1. ;;9002226.02101,"992,00049-5370-50 ",.01)
  1. ;;00049-5370-50
  1. ;;9002226.02101,"992,00049-5370-50 ",.02)
  1. ;;00049-5370-50
  1. ;;9002226.02101,"992,00052-0105-30 ",.01)
  1. ;;00052-0105-30
  1. ;;9002226.02101,"992,00052-0105-30 ",.02)
  1. ;;00052-0105-30
  1. ;;9002226.02101,"992,00052-0105-90 ",.01)
  1. ;;00052-0105-90
  1. ;;9002226.02101,"992,00052-0105-90 ",.02)
  1. ;;00052-0105-90
  1. ;;9002226.02101,"992,00052-0106-06 ",.01)
  1. ;;00052-0106-06
  1. ;;9002226.02101,"992,00052-0106-06 ",.02)
  1. ;;00052-0106-06
  1. ;;9002226.02101,"992,00052-0106-30 ",.01)
  1. ;;00052-0106-30
  1. ;;9002226.02101,"992,00052-0106-30 ",.02)
  1. ;;00052-0106-30
  1. ;;9002226.02101,"992,00052-0106-90 ",.01)
  1. ;;00052-0106-90
  1. ;;9002226.02101,"992,00052-0106-90 ",.02)
  1. ;;00052-0106-90
  1. ;;9002226.02101,"992,00052-0106-93 ",.01)
  1. ;;00052-0106-93
  1. ;;9002226.02101,"992,00052-0106-93 ",.02)
  1. ;;00052-0106-93
  1. ;;9002226.02101,"992,00052-0107-30 ",.01)
  1. ;;00052-0107-30
  1. ;;9002226.02101,"992,00052-0107-30 ",.02)
  1. ;;00052-0107-30
  1. ;;9002226.02101,"992,00052-0107-90 ",.01)
  1. ;;00052-0107-90
  1. ;;9002226.02101,"992,00052-0107-90 ",.02)
  1. ;;00052-0107-90
  1. ;;9002226.02101,"992,00052-0108-06 ",.01)
  1. ;;00052-0108-06
  1. ;;9002226.02101,"992,00052-0108-06 ",.02)
  1. ;;00052-0108-06
  1. ;;9002226.02101,"992,00052-0108-30 ",.01)
  1. ;;00052-0108-30
  1. ;;9002226.02101,"992,00052-0108-30 ",.02)
  1. ;;00052-0108-30