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

BGP12M.m

Go to the documentation of this file. 
  1. BGP12M ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 13, 2011 ;
  1.  ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
  1.  ;;BGP HDL LOINC CODES
  1.  ;
  1.  ; This routine loads Taxonomy BGP HDL LOINC CODES
  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.  D OTHER
  1.  I $O(^TMP("ATX",$J,3.6,0)) D BULL^ATXSTX2
  1.  I $O(^TMP("ATX",$J,9002226,0)) D TAX^ATXSTX2
  1.  D KILL^ATXSTX2
  1.  Q
  1.  ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1.  ;;21,"12772-0 ")
  1.  ;;1
  1.  ;;21,"14646-4 ")
  1.  ;;2
  1.  ;;21,"18263-4 ")
  1.  ;;3
  1.  ;;21,"2085-9 ")
  1.  ;;4
  1.  ;;21,"2086-7 ")
  1.  ;;5
  1.  ;;21,"35197-3 ")
  1.  ;;6
  1.  ;;21,"49130-8 ")
  1.  ;;7
  1.  ;;21,"54467-6 ")
  1.  ;;16
  1.  ;;21,"54468-4 ")
  1.  ;;15
  1.  ;;21,"54469-2 ")
  1.  ;;14
  1.  ;;21,"54470-0 ")
  1.  ;;13
  1.  ;;21,"54471-8 ")
  1.  ;;12
  1.  ;;21,"56132-4 ")
  1.  ;;11
  1.  ;;21,"56133-2 ")
  1.  ;;10
  1.  ;;21,"57936-7 ")
  1.  ;;9
  1.  ;;21,"57937-5 ")
  1.  ;;8
  1.  ;;9002226,292,.01)
  1.  ;;BGP HDL LOINC CODES
  1.  ;;9002226,292,.02)
  1.  ;;@
  1.  ;;9002226,292,.04)
  1.  ;;n
  1.  ;;9002226,292,.06)
  1.  ;;@
  1.  ;;9002226,292,.08)
  1.  ;;@
  1.  ;;9002226,292,.09)
  1.  ;;@
  1.  ;;9002226,292,.11)
  1.  ;;@
  1.  ;;9002226,292,.12)
  1.  ;;@
  1.  ;;9002226,292,.13)
  1.  ;;1
  1.  ;;9002226,292,.14)
  1.  ;;FIHS
  1.  ;;9002226,292,.15)
  1.  ;;95.3
  1.  ;;9002226,292,.16)
  1.  ;;@
  1.  ;;9002226,292,.17)
  1.  ;;@
  1.  ;;9002226,292,3101)
  1.  ;;@
  1.  ;;9002226.02101,"292,12772-0 ",.01)
  1.  ;;12772-0
  1.  ;;9002226.02101,"292,12772-0 ",.02)
  1.  ;;12772-0
  1.  ;;9002226.02101,"292,14646-4 ",.01)
  1.  ;;14646-4
  1.  ;;9002226.02101,"292,14646-4 ",.02)
  1.  ;;14646-4
  1.  ;;9002226.02101,"292,18263-4 ",.01)
  1.  ;;18263-4
  1.  ;;9002226.02101,"292,18263-4 ",.02)
  1.  ;;18263-4
  1.  ;;9002226.02101,"292,2085-9 ",.01)
  1.  ;;2085-9
  1.  ;;9002226.02101,"292,2085-9 ",.02)
  1.  ;;2085-9
  1.  ;;9002226.02101,"292,2086-7 ",.01)
  1.  ;;2086-7
  1.  ;;9002226.02101,"292,2086-7 ",.02)
  1.  ;;2086-7
  1.  ;;9002226.02101,"292,35197-3 ",.01)
  1.  ;;35197-3
  1.  ;;9002226.02101,"292,35197-3 ",.02)
  1.  ;;35197-3
  1.  ;;9002226.02101,"292,49130-8 ",.01)
  1.  ;;49130-8
  1.  ;;9002226.02101,"292,49130-8 ",.02)
  1.  ;;49130-8
  1.  ;;9002226.02101,"292,54467-6 ",.01)
  1.  ;;54467-6
  1.  ;;9002226.02101,"292,54467-6 ",.02)
  1.  ;;54467-6
  1.  ;;9002226.02101,"292,54468-4 ",.01)
  1.  ;;54468-4
  1.  ;;9002226.02101,"292,54468-4 ",.02)
  1.  ;;54469-4
  1.  ;;9002226.02101,"292,54469-2 ",.01)
  1.  ;;54469-2
  1.  ;;9002226.02101,"292,54469-2 ",.02)
  1.  ;;54469-2
  1.  ;;9002226.02101,"292,54470-0 ",.01)
  1.  ;;54470-0
  1.  ;;9002226.02101,"292,54470-0 ",.02)
  1.  ;;54470-0
  1.  ;;9002226.02101,"292,54471-8 ",.01)
  1.  ;;54471-8
  1.  ;;9002226.02101,"292,54471-8 ",.02)
  1.  ;;54471-8
  1.  ;;9002226.02101,"292,56132-4 ",.01)
  1.  ;;56132-4
  1.  ;;9002226.02101,"292,56132-4 ",.02)
  1.  ;;56132-4
  1.  ;;9002226.02101,"292,56133-2 ",.01)
  1.  ;;56133-2
  1.  ;;9002226.02101,"292,56133-2 ",.02)
  1.  ;;56133-2
  1.  ;;9002226.02101,"292,57936-7 ",.01)
  1.  ;;57936-7
  1.  ;;9002226.02101,"292,57936-7 ",.02)
  1.  ;;57936-7
  1.  ;;9002226.02101,"292,57937-5 ",.01)
  1.  ;;57937-5
  1.  ;;9002226.02101,"292,57937-5 ",.02)
  1.  ;;57937-5
  1.  ;
  1. OTHER ; OTHER ROUTINES
  1.  Q