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