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

BGP9SXTF.m

Go to the documentation of this file.
  1. BGP9SXTF ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON MAR 25, 2009 ;
  1. ;;9.0;IHS CLINICAL REPORTING;;JUL 1, 2009
  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,"720,00456-0463-01 ",.02)
  1. ;;00456-0463-01
  1. ;;9002226.02101,"720,00456-0464-01 ",.01)
  1. ;;00456-0464-01
  1. ;;9002226.02101,"720,00456-0464-01 ",.02)
  1. ;;00456-0464-01
  1. ;;9002226.02101,"720,00463-6199-10 ",.01)
  1. ;;00463-6199-10
  1. ;;9002226.02101,"720,00463-6199-10 ",.02)
  1. ;;00463-6199-10
  1. ;;9002226.02101,"720,00463-6201-10 ",.01)
  1. ;;00463-6201-10
  1. ;;9002226.02101,"720,00463-6201-10 ",.02)
  1. ;;00463-6201-10
  1. ;;9002226.02101,"720,00463-6203-10 ",.01)
  1. ;;00463-6203-10
  1. ;;9002226.02101,"720,00463-6203-10 ",.02)
  1. ;;00463-6203-10
  1. ;;9002226.02101,"720,00536-4702-10 ",.01)
  1. ;;00536-4702-10
  1. ;;9002226.02101,"720,00536-4702-10 ",.02)
  1. ;;00536-4702-10
  1. ;;9002226.02101,"720,00536-5618-01 ",.01)
  1. ;;00536-5618-01
  1. ;;9002226.02101,"720,00536-5618-01 ",.02)
  1. ;;00536-5618-01
  1. ;;9002226.02101,"720,00536-5619-01 ",.01)
  1. ;;00536-5619-01
  1. ;;9002226.02101,"720,00536-5619-01 ",.02)
  1. ;;00536-5619-01
  1. ;;9002226.02101,"720,00591-3250-01 ",.01)
  1. ;;00591-3250-01
  1. ;;9002226.02101,"720,00591-3250-01 ",.02)
  1. ;;00591-3250-01
  1. ;;9002226.02101,"720,00591-3253-01 ",.01)
  1. ;;00591-3253-01
  1. ;;9002226.02101,"720,00591-3253-01 ",.02)
  1. ;;00591-3253-01
  1. ;;9002226.02101,"720,00591-3254-01 ",.01)
  1. ;;00591-3254-01
  1. ;;9002226.02101,"720,00591-3254-01 ",.02)
  1. ;;00591-3254-01
  1. ;;9002226.02101,"720,00603-4776-21 ",.01)
  1. ;;00603-4776-21
  1. ;;9002226.02101,"720,00603-4776-21 ",.02)
  1. ;;00603-4776-21
  1. ;;9002226.02101,"720,00603-4777-21 ",.01)
  1. ;;00603-4777-21
  1. ;;9002226.02101,"720,00603-4777-21 ",.02)
  1. ;;00603-4777-21
  1. ;;9002226.02101,"720,00603-6045-32 ",.01)
  1. ;;00603-6045-32
  1. ;;9002226.02101,"720,00603-6045-32 ",.02)
  1. ;;00603-6045-32
  1. ;;9002226.02101,"720,00603-6046-32 ",.01)
  1. ;;00603-6046-32
  1. ;;9002226.02101,"720,00603-6046-32 ",.02)
  1. ;;00603-6046-32
  1. ;;9002226.02101,"720,00603-6047-32 ",.01)
  1. ;;00603-6047-32
  1. ;;9002226.02101,"720,00603-6047-32 ",.02)
  1. ;;00603-6047-32
  1. ;;9002226.02101,"720,00603-6048-32 ",.01)
  1. ;;00603-6048-32
  1. ;;9002226.02101,"720,00603-6048-32 ",.02)
  1. ;;00603-6048-32
  1. ;;9002226.02101,"720,00603-6050-21 ",.01)
  1. ;;00603-6050-21
  1. ;;9002226.02101,"720,00603-6050-21 ",.02)
  1. ;;00603-6050-21
  1. ;;9002226.02101,"720,00603-6051-21 ",.01)
  1. ;;00603-6051-21
  1. ;;9002226.02101,"720,00603-6051-21 ",.02)
  1. ;;00603-6051-21
  1. ;;9002226.02101,"720,00603-6051-32 ",.01)
  1. ;;00603-6051-32
  1. ;;9002226.02101,"720,00603-6051-32 ",.02)
  1. ;;00603-6051-32
  1. ;;9002226.02101,"720,00603-6052-21 ",.01)
  1. ;;00603-6052-21
  1. ;;9002226.02101,"720,00603-6052-21 ",.02)
  1. ;;00603-6052-21
  1. ;;9002226.02101,"720,00603-6052-32 ",.01)
  1. ;;00603-6052-32
  1. ;;9002226.02101,"720,00603-6052-32 ",.02)
  1. ;;00603-6052-32
  1. ;;9002226.02101,"720,00603-6053-21 ",.01)
  1. ;;00603-6053-21
  1. ;;9002226.02101,"720,00603-6053-21 ",.02)
  1. ;;00603-6053-21
  1. ;;9002226.02101,"720,00603-6053-32 ",.01)
  1. ;;00603-6053-32
  1. ;;9002226.02101,"720,00603-6053-32 ",.02)
  1. ;;00603-6053-32
  1. ;;9002226.02101,"720,00603-6054-21 ",.01)
  1. ;;00603-6054-21
  1. ;;9002226.02101,"720,00603-6054-21 ",.02)
  1. ;;00603-6054-21
  1. ;;9002226.02101,"720,00603-6054-32 ",.01)
  1. ;;00603-6054-32
  1. ;;9002226.02101,"720,00603-6054-32 ",.02)
  1. ;;00603-6054-32
  1. ;;9002226.02101,"720,00603-6055-21 ",.01)
  1. ;;00603-6055-21
  1. ;;9002226.02101,"720,00603-6055-21 ",.02)
  1. ;;00603-6055-21
  1. ;;9002226.02101,"720,00603-6055-32 ",.01)
  1. ;;00603-6055-32
  1. ;;9002226.02101,"720,00603-6055-32 ",.02)
  1. ;;00603-6055-32
  1. ;;9002226.02101,"720,00603-6056-21 ",.01)
  1. ;;00603-6056-21
  1. ;;9002226.02101,"720,00603-6056-21 ",.02)
  1. ;;00603-6056-21
  1. ;;9002226.02101,"720,00603-6057-21 ",.01)
  1. ;;00603-6057-21
  1. ;;9002226.02101,"720,00603-6057-21 ",.02)
  1. ;;00603-6057-21
  1. ;;9002226.02101,"720,00615-1308-13 ",.01)
  1. ;;00615-1308-13
  1. ;;9002226.02101,"720,00615-1308-13 ",.02)
  1. ;;00615-1308-13
  1. ;;9002226.02101,"720,00677-1657-10 ",.01)
  1. ;;00677-1657-10
  1. ;;9002226.02101,"720,00677-1657-10 ",.02)
  1. ;;00677-1657-10
  1. ;;9002226.02101,"720,00677-1658-10 ",.01)
  1. ;;00677-1658-10
  1. ;;9002226.02101,"720,00677-1658-10 ",.02)
  1. ;;00677-1658-10
  1. ;;9002226.02101,"720,00677-1659-10 ",.01)
  1. ;;00677-1659-10
  1. ;;9002226.02101,"720,00677-1659-10 ",.02)
  1. ;;00677-1659-10
  1. ;;9002226.02101,"720,00781-2502-01 ",.01)
  1. ;;00781-2502-01
  1. ;;9002226.02101,"720,00781-2502-01 ",.02)
  1. ;;00781-2502-01
  1. ;;9002226.02101,"720,00781-2502-05 ",.01)
  1. ;;00781-2502-05
  1. ;;9002226.02101,"720,00781-2502-05 ",.02)
  1. ;;00781-2502-05
  1. ;;9002226.02101,"720,00781-2502-10 ",.01)
  1. ;;00781-2502-10
  1. ;;9002226.02101,"720,00781-2502-10 ",.02)
  1. ;;00781-2502-10
  1. ;;9002226.02101,"720,00781-2503-01 ",.01)
  1. ;;00781-2503-01
  1. ;;9002226.02101,"720,00781-2503-01 ",.02)
  1. ;;00781-2503-01
  1. ;;9002226.02101,"720,00839-1217-06 ",.01)
  1. ;;00839-1217-06
  1. ;;9002226.02101,"720,00839-1217-06 ",.02)
  1. ;;00839-1217-06
  1. ;;9002226.02101,"720,00839-1217-16 ",.01)
  1. ;;00839-1217-16
  1. ;;9002226.02101,"720,00839-1217-16 ",.02)
  1. ;;00839-1217-16
  1. ;;9002226.02101,"720,00839-1672-16 ",.01)
  1. ;;00839-1672-16
  1. ;;9002226.02101,"720,00839-1672-16 ",.02)
  1. ;;00839-1672-16
  1. ;;9002226.02101,"720,00839-5041-16 ",.01)
  1. ;;00839-5041-16
  1. ;;9002226.02101,"720,00839-5041-16 ",.02)
  1. ;;00839-5041-16
  1. ;;9002226.02101,"720,00839-6027-06 ",.01)
  1. ;;00839-6027-06
  1. ;;9002226.02101,"720,00839-6027-06 ",.02)
  1. ;;00839-6027-06
  1. ;;9002226.02101,"720,00839-6027-16 ",.01)
  1. ;;00839-6027-16