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

BGP31P12.m

Go to the documentation of this file.
BGP31P12 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 29, 2012;
 ;;13.0;IHS CLINICAL REPORTING;;NOV 20, 2012;Build 81
 ;
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,"730,00247-0185-24 ",.02)
 ;;00247-0185-24
 ;;9002226.02101,"730,00247-0185-25 ",.01)
 ;;00247-0185-25
 ;;9002226.02101,"730,00247-0185-25 ",.02)
 ;;00247-0185-25
 ;;9002226.02101,"730,00247-0185-30 ",.01)
 ;;00247-0185-30
 ;;9002226.02101,"730,00247-0185-30 ",.02)
 ;;00247-0185-30
 ;;9002226.02101,"730,00247-0214-06 ",.01)
 ;;00247-0214-06
 ;;9002226.02101,"730,00247-0214-06 ",.02)
 ;;00247-0214-06
 ;;9002226.02101,"730,00247-0214-12 ",.01)
 ;;00247-0214-12
 ;;9002226.02101,"730,00247-0214-12 ",.02)
 ;;00247-0214-12
 ;;9002226.02101,"730,00247-0214-15 ",.01)
 ;;00247-0214-15
 ;;9002226.02101,"730,00247-0214-15 ",.02)
 ;;00247-0214-15
 ;;9002226.02101,"730,00247-0214-20 ",.01)
 ;;00247-0214-20
 ;;9002226.02101,"730,00247-0214-20 ",.02)
 ;;00247-0214-20
 ;;9002226.02101,"730,00247-0214-25 ",.01)
 ;;00247-0214-25
 ;;9002226.02101,"730,00247-0214-25 ",.02)
 ;;00247-0214-25
 ;;9002226.02101,"730,00247-0214-30 ",.01)
 ;;00247-0214-30
 ;;9002226.02101,"730,00247-0214-30 ",.02)
 ;;00247-0214-30
 ;;9002226.02101,"730,00247-0337-00 ",.01)
 ;;00247-0337-00
 ;;9002226.02101,"730,00247-0337-00 ",.02)
 ;;00247-0337-00
 ;;9002226.02101,"730,00247-0337-06 ",.01)
 ;;00247-0337-06
 ;;9002226.02101,"730,00247-0337-06 ",.02)
 ;;00247-0337-06
 ;;9002226.02101,"730,00247-0337-10 ",.01)
 ;;00247-0337-10
 ;;9002226.02101,"730,00247-0337-10 ",.02)
 ;;00247-0337-10
 ;;9002226.02101,"730,00247-0337-12 ",.01)
 ;;00247-0337-12
 ;;9002226.02101,"730,00247-0337-12 ",.02)
 ;;00247-0337-12
 ;;9002226.02101,"730,00247-0337-15 ",.01)
 ;;00247-0337-15
 ;;9002226.02101,"730,00247-0337-15 ",.02)
 ;;00247-0337-15
 ;;9002226.02101,"730,00247-0337-16 ",.01)
 ;;00247-0337-16
 ;;9002226.02101,"730,00247-0337-16 ",.02)
 ;;00247-0337-16
 ;;9002226.02101,"730,00247-0337-20 ",.01)
 ;;00247-0337-20
 ;;9002226.02101,"730,00247-0337-20 ",.02)
 ;;00247-0337-20
 ;;9002226.02101,"730,00247-0337-24 ",.01)
 ;;00247-0337-24
 ;;9002226.02101,"730,00247-0337-24 ",.02)
 ;;00247-0337-24
 ;;9002226.02101,"730,00247-0337-25 ",.01)
 ;;00247-0337-25
 ;;9002226.02101,"730,00247-0337-25 ",.02)
 ;;00247-0337-25
 ;;9002226.02101,"730,00247-0337-30 ",.01)
 ;;00247-0337-30
 ;;9002226.02101,"730,00247-0337-30 ",.02)
 ;;00247-0337-30
 ;;9002226.02101,"730,00247-0337-50 ",.01)
 ;;00247-0337-50
 ;;9002226.02101,"730,00247-0337-50 ",.02)
 ;;00247-0337-50
 ;;9002226.02101,"730,00247-0509-03 ",.01)
 ;;00247-0509-03
 ;;9002226.02101,"730,00247-0509-03 ",.02)
 ;;00247-0509-03
 ;;9002226.02101,"730,00247-0509-04 ",.01)
 ;;00247-0509-04
 ;;9002226.02101,"730,00247-0509-04 ",.02)
 ;;00247-0509-04
 ;;9002226.02101,"730,00247-0509-08 ",.01)
 ;;00247-0509-08
 ;;9002226.02101,"730,00247-0509-08 ",.02)
 ;;00247-0509-08
 ;;9002226.02101,"730,00247-0509-10 ",.01)
 ;;00247-0509-10
 ;;9002226.02101,"730,00247-0509-10 ",.02)
 ;;00247-0509-10
 ;;9002226.02101,"730,00247-0509-20 ",.01)
 ;;00247-0509-20
 ;;9002226.02101,"730,00247-0509-20 ",.02)
 ;;00247-0509-20
 ;;9002226.02101,"730,00247-0509-30 ",.01)
 ;;00247-0509-30
 ;;9002226.02101,"730,00247-0509-30 ",.02)
 ;;00247-0509-30
 ;;9002226.02101,"730,00247-0614-20 ",.01)
 ;;00247-0614-20
 ;;9002226.02101,"730,00247-0614-20 ",.02)
 ;;00247-0614-20
 ;;9002226.02101,"730,00247-0614-30 ",.01)
 ;;00247-0614-30
 ;;9002226.02101,"730,00247-0614-30 ",.02)
 ;;00247-0614-30
 ;;9002226.02101,"730,00247-0614-50 ",.01)
 ;;00247-0614-50
 ;;9002226.02101,"730,00247-0614-50 ",.02)
 ;;00247-0614-50
 ;;9002226.02101,"730,00247-0614-60 ",.01)
 ;;00247-0614-60
 ;;9002226.02101,"730,00247-0614-60 ",.02)
 ;;00247-0614-60
 ;;9002226.02101,"730,00247-0614-90 ",.01)
 ;;00247-0614-90
 ;;9002226.02101,"730,00247-0614-90 ",.02)
 ;;00247-0614-90
 ;;9002226.02101,"730,00247-0615-00 ",.01)
 ;;00247-0615-00
 ;;9002226.02101,"730,00247-0615-00 ",.02)
 ;;00247-0615-00
 ;;9002226.02101,"730,00247-0615-04 ",.01)
 ;;00247-0615-04
 ;;9002226.02101,"730,00247-0615-04 ",.02)
 ;;00247-0615-04
 ;;9002226.02101,"730,00247-0615-07 ",.01)
 ;;00247-0615-07
 ;;9002226.02101,"730,00247-0615-07 ",.02)
 ;;00247-0615-07
 ;;9002226.02101,"730,00247-0615-12 ",.01)
 ;;00247-0615-12
 ;;9002226.02101,"730,00247-0615-12 ",.02)
 ;;00247-0615-12
 ;;9002226.02101,"730,00247-0615-15 ",.01)
 ;;00247-0615-15
 ;;9002226.02101,"730,00247-0615-15 ",.02)
 ;;00247-0615-15
 ;;9002226.02101,"730,00247-0615-30 ",.01)
 ;;00247-0615-30
 ;;9002226.02101,"730,00247-0615-30 ",.02)
 ;;00247-0615-30
 ;;9002226.02101,"730,00247-0615-60 ",.01)
 ;;00247-0615-60
 ;;9002226.02101,"730,00247-0615-60 ",.02)
 ;;00247-0615-60
 ;;9002226.02101,"730,00247-0615-90 ",.01)
 ;;00247-0615-90
 ;;9002226.02101,"730,00247-0615-90 ",.02)
 ;;00247-0615-90
 ;;9002226.02101,"730,00247-0773-00 ",.01)
 ;;00247-0773-00
 ;;9002226.02101,"730,00247-0773-00 ",.02)
 ;;00247-0773-00
 ;;9002226.02101,"730,00247-0773-30 ",.01)
 ;;00247-0773-30
 ;;9002226.02101,"730,00247-0773-30 ",.02)
 ;;00247-0773-30
 ;;9002226.02101,"730,00247-0773-90 ",.01)
 ;;00247-0773-90
 ;;9002226.02101,"730,00247-0773-90 ",.02)
 ;;00247-0773-90
 ;;9002226.02101,"730,00247-0822-00 ",.01)
 ;;00247-0822-00
 ;;9002226.02101,"730,00247-0822-00 ",.02)
 ;;00247-0822-00
 ;;9002226.02101,"730,00247-0822-04 ",.01)
 ;;00247-0822-04
 ;;9002226.02101,"730,00247-0822-04 ",.02)
 ;;00247-0822-04
 ;;9002226.02101,"730,00247-0845-20 ",.01)
 ;;00247-0845-20
 ;;9002226.02101,"730,00247-0845-20 ",.02)
 ;;00247-0845-20
 ;;9002226.02101,"730,00247-0845-25 ",.01)
 ;;00247-0845-25
 ;;9002226.02101,"730,00247-0845-25 ",.02)
 ;;00247-0845-25
 ;;9002226.02101,"730,00247-1031-28 ",.01)
 ;;00247-1031-28
 ;;9002226.02101,"730,00247-1031-28 ",.02)
 ;;00247-1031-28
 ;;9002226.02101,"730,00247-1053-20 ",.01)
 ;;00247-1053-20
 ;;9002226.02101,"730,00247-1053-20 ",.02)
 ;;00247-1053-20
 ;;9002226.02101,"730,00247-1053-24 ",.01)
 ;;00247-1053-24
 ;;9002226.02101,"730,00247-1053-24 ",.02)
 ;;00247-1053-24
 ;;9002226.02101,"730,00247-1053-30 ",.01)
 ;;00247-1053-30
 ;;9002226.02101,"730,00247-1053-30 ",.02)
 ;;00247-1053-30
 ;;9002226.02101,"730,00247-1059-50 ",.01)
 ;;00247-1059-50
 ;;9002226.02101,"730,00247-1059-50 ",.02)
 ;;00247-1059-50
 ;;9002226.02101,"730,00247-1059-60 ",.01)
 ;;00247-1059-60
 ;;9002226.02101,"730,00247-1059-60 ",.02)
 ;;00247-1059-60
 ;;9002226.02101,"730,00247-1060-50 ",.01)
 ;;00247-1060-50
 ;;9002226.02101,"730,00247-1060-50 ",.02)
 ;;00247-1060-50
 ;;9002226.02101,"730,00247-1060-60 ",.01)
 ;;00247-1060-60
 ;;9002226.02101,"730,00247-1060-60 ",.02)
 ;;00247-1060-60
 ;;9002226.02101,"730,00247-1177-07 ",.01)
 ;;00247-1177-07
 ;;9002226.02101,"730,00247-1177-07 ",.02)
 ;;00247-1177-07
 ;;9002226.02101,"730,00247-1177-30 ",.01)
 ;;00247-1177-30
 ;;9002226.02101,"730,00247-1177-30 ",.02)
 ;;00247-1177-30
 ;;9002226.02101,"730,00247-1201-00 ",.01)
 ;;00247-1201-00
 ;;9002226.02101,"730,00247-1201-00 ",.02)
 ;;00247-1201-00
 ;;9002226.02101,"730,00247-1201-30 ",.01)
 ;;00247-1201-30
 ;;9002226.02101,"730,00247-1201-30 ",.02)
 ;;00247-1201-30
 ;;9002226.02101,"730,00247-1232-30 ",.01)
 ;;00247-1232-30
 ;;9002226.02101,"730,00247-1232-30 ",.02)
 ;;00247-1232-30
 ;;9002226.02101,"730,00247-1233-30 ",.01)
 ;;00247-1233-30
 ;;9002226.02101,"730,00247-1233-30 ",.02)
 ;;00247-1233-30
 ;;9002226.02101,"730,00247-1242-30 ",.01)
 ;;00247-1242-30
 ;;9002226.02101,"730,00247-1242-30 ",.02)
 ;;00247-1242-30
 ;;9002226.02101,"730,00247-1243-30 ",.01)
 ;;00247-1243-30
 ;;9002226.02101,"730,00247-1243-30 ",.02)
 ;;00247-1243-30
 ;;9002226.02101,"730,00247-1312-10 ",.01)
 ;;00247-1312-10
 ;;9002226.02101,"730,00247-1312-10 ",.02)
 ;;00247-1312-10
 ;;9002226.02101,"730,00247-1370-09 ",.01)
 ;;00247-1370-09
 ;;9002226.02101,"730,00247-1370-09 ",.02)
 ;;00247-1370-09
 ;;9002226.02101,"730,00247-1370-30 ",.01)
 ;;00247-1370-30
 ;;9002226.02101,"730,00247-1370-30 ",.02)
 ;;00247-1370-30
 ;;9002226.02101,"730,00247-1370-90 ",.01)
 ;;00247-1370-90
 ;;9002226.02101,"730,00247-1370-90 ",.02)
 ;;00247-1370-90
 ;;9002226.02101,"730,00247-1469-03 ",.01)
 ;;00247-1469-03
 ;;9002226.02101,"730,00247-1469-03 ",.02)
 ;;00247-1469-03
 ;;9002226.02101,"730,00247-1484-04 ",.01)
 ;;00247-1484-04
 ;;9002226.02101,"730,00247-1484-04 ",.02)
 ;;00247-1484-04
 ;;9002226.02101,"730,00254-2320-28 ",.01)
 ;;00254-2320-28
 ;;9002226.02101,"730,00254-2320-28 ",.02)
 ;;00254-2320-28
 ;;9002226.02101,"730,00254-2320-38 ",.01)
 ;;00254-2320-38
 ;;9002226.02101,"730,00254-2320-38 ",.02)
 ;;00254-2320-38
 ;;9002226.02101,"730,00254-5011-28 ",.01)
 ;;00254-5011-28
 ;;9002226.02101,"730,00254-5011-28 ",.02)
 ;;00254-5011-28
 ;;9002226.02101,"730,00254-5011-38 ",.01)
 ;;00254-5011-38
 ;;9002226.02101,"730,00254-5011-38 ",.02)
 ;;00254-5011-38
 ;;9002226.02101,"730,00254-5012-28 ",.01)
 ;;00254-5012-28
 ;;9002226.02101,"730,00254-5012-28 ",.02)
 ;;00254-5012-28
 ;;9002226.02101,"730,00254-5012-38 ",.01)
 ;;00254-5012-38
 ;;9002226.02101,"730,00254-5012-38 ",.02)
 ;;00254-5012-38
 ;;9002226.02101,"730,00254-5013-28 ",.01)
 ;;00254-5013-28
 ;;9002226.02101,"730,00254-5013-28 ",.02)
 ;;00254-5013-28
 ;;9002226.02101,"730,00254-5013-38 ",.01)
 ;;00254-5013-38
 ;;9002226.02101,"730,00254-5013-38 ",.02)
 ;;00254-5013-38
 ;;9002226.02101,"730,00254-5014-28 ",.01)
 ;;00254-5014-28
 ;;9002226.02101,"730,00254-5014-28 ",.02)
 ;;00254-5014-28
 ;;9002226.02101,"730,00254-5014-38 ",.01)
 ;;00254-5014-38
 ;;9002226.02101,"730,00254-5014-38 ",.02)
 ;;00254-5014-38
 ;;9002226.02101,"730,00254-9035-58 ",.01)
 ;;00254-9035-58
 ;;9002226.02101,"730,00254-9035-58 ",.02)
 ;;00254-9035-58
 ;;9002226.02101,"730,00254-9068-58 ",.01)
 ;;00254-9068-58
 ;;9002226.02101,"730,00254-9068-58 ",.02)
 ;;00254-9068-58
 ;;9002226.02101,"730,00254-9355-58 ",.01)
 ;;00254-9355-58
 ;;9002226.02101,"730,00254-9355-58 ",.02)
 ;;00254-9355-58
 ;;9002226.02101,"730,00258-3657-01 ",.01)
 ;;00258-3657-01
 ;;9002226.02101,"730,00258-3657-01 ",.02)
 ;;00258-3657-01
 ;;9002226.02101,"730,00259-0392-01 ",.01)
 ;;00259-0392-01
 ;;9002226.02101,"730,00259-0392-01 ",.02)
 ;;00259-0392-01
 ;;9002226.02101,"730,00281-0198-17 ",.01)
 ;;00281-0198-17
 ;;9002226.02101,"730,00281-0198-17 ",.02)
 ;;00281-0198-17
 ;;9002226.02101,"730,00281-0389-53 ",.01)
 ;;00281-0389-53
 ;;9002226.02101,"730,00281-0389-53 ",.02)
 ;;00281-0389-53
 ;;9002226.02101,"730,00310-0040-10 ",.01)
 ;;00310-0040-10
 ;;9002226.02101,"730,00310-0040-10 ",.02)
 ;;00310-0040-10
 ;;9002226.02101,"730,00310-0041-10 ",.01)
 ;;00310-0041-10
 ;;9002226.02101,"730,00310-0041-10 ",.02)
 ;;00310-0041-10
 ;;9002226.02101,"730,00310-0042-10 ",.01)
 ;;00310-0042-10
 ;;9002226.02101,"730,00310-0042-10 ",.02)
 ;;00310-0042-10
 ;;9002226.02101,"730,00310-0043-10 ",.01)
 ;;00310-0043-10
 ;;9002226.02101,"730,00310-0043-10 ",.02)
 ;;00310-0043-10
 ;;9002226.02101,"730,00310-0045-10 ",.01)
 ;;00310-0045-10
 ;;9002226.02101,"730,00310-0045-10 ",.02)
 ;;00310-0045-10
 ;;9002226.02101,"730,00310-0045-50 ",.01)
 ;;00310-0045-50
 ;;9002226.02101,"730,00310-0045-50 ",.02)
 ;;00310-0045-50
 ;;9002226.02101,"730,00310-0047-10 ",.01)
 ;;00310-0047-10
 ;;9002226.02101,"730,00310-0047-10 ",.02)
 ;;00310-0047-10
 ;;9002226.02101,"730,00310-0047-30 ",.01)
 ;;00310-0047-30
 ;;9002226.02101,"730,00310-0047-30 ",.02)
 ;;00310-0047-30
 ;;9002226.02101,"730,00310-0049-10 ",.01)
 ;;00310-0049-10
 ;;9002226.02101,"730,00310-0049-10 ",.02)
 ;;00310-0049-10
 ;;9002226.02101,"730,00364-2115-02 ",.01)
 ;;00364-2115-02
 ;;9002226.02101,"730,00364-2115-02 ",.02)
 ;;00364-2115-02
 ;;9002226.02101,"730,00378-0042-01 ",.01)
 ;;00378-0042-01
 ;;9002226.02101,"730,00378-0042-01 ",.02)
 ;;00378-0042-01
 ;;9002226.02101,"730,00378-0073-01 ",.01)
 ;;00378-0073-01
 ;;9002226.02101,"730,00378-0073-01 ",.02)
 ;;00378-0073-01
 ;;9002226.02101,"730,00378-0211-01 ",.01)
 ;;00378-0211-01
 ;;9002226.02101,"730,00378-0211-01 ",.02)
 ;;00378-0211-01
 ;;9002226.02101,"730,00378-0211-05 ",.01)
 ;;00378-0211-05
 ;;9002226.02101,"730,00378-0211-05 ",.02)
 ;;00378-0211-05
 ;;9002226.02101,"730,00378-0277-01 ",.01)
 ;;00378-0277-01
 ;;9002226.02101,"730,00378-0277-01 ",.02)
 ;;00378-0277-01
 ;;9002226.02101,"730,00378-0277-05 ",.01)
 ;;00378-0277-05
 ;;9002226.02101,"730,00378-0277-05 ",.02)
 ;;00378-0277-05
 ;;9002226.02101,"730,00378-0330-01 ",.01)
 ;;00378-0330-01
 ;;9002226.02101,"730,00378-0330-01 ",.02)
 ;;00378-0330-01
 ;;9002226.02101,"730,00378-0330-05 ",.01)
 ;;00378-0330-05
 ;;9002226.02101,"730,00378-0330-05 ",.02)
 ;;00378-0330-05
 ;;9002226.02101,"730,00378-0442-01 ",.01)
 ;;00378-0442-01
 ;;9002226.02101,"730,00378-0442-01 ",.02)
 ;;00378-0442-01
 ;;9002226.02101,"730,00378-0442-05 ",.01)
 ;;00378-0442-05
 ;;9002226.02101,"730,00378-0442-05 ",.02)
 ;;00378-0442-05
 ;;9002226.02101,"730,00378-0574-01 ",.01)
 ;;00378-0574-01
 ;;9002226.02101,"730,00378-0574-01 ",.02)
 ;;00378-0574-01
 ;;9002226.02101,"730,00378-0574-05 ",.01)
 ;;00378-0574-05
 ;;9002226.02101,"730,00378-0574-05 ",.02)
 ;;00378-0574-05
 ;;9002226.02101,"730,00378-0612-01 ",.01)
 ;;00378-0612-01
 ;;9002226.02101,"730,00378-0612-01 ",.02)
 ;;00378-0612-01
 ;;9002226.02101,"730,00378-0612-10 ",.01)
 ;;00378-0612-10
 ;;9002226.02101,"730,00378-0612-10 ",.02)
 ;;00378-0612-10
 ;;9002226.02101,"730,00378-0614-01 ",.01)
 ;;00378-0614-01
 ;;9002226.02101,"730,00378-0614-01 ",.02)
 ;;00378-0614-01
 ;;9002226.02101,"730,00378-0614-10 ",.01)
 ;;00378-0614-10
 ;;9002226.02101,"730,00378-0614-10 ",.02)
 ;;00378-0614-10
 ;;9002226.02101,"730,00378-0616-01 ",.01)
 ;;00378-0616-01