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

BGP12R.m

Go to the documentation of this file.
  1. BGP12R ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
  1. ;;BGP CHLAMYDIA LOINC CODES
  1. ;
  1. ; This routine loads Taxonomy BGP CHLAMYDIA 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,"14463-4 ")
  1. ;;1
  1. ;;21,"14464-2 ")
  1. ;;2
  1. ;;21,"14465-9 ")
  1. ;;3
  1. ;;21,"14467-5 ")
  1. ;;4
  1. ;;21,"14470-9 ")
  1. ;;5
  1. ;;21,"14471-7 ")
  1. ;;6
  1. ;;21,"14472-5 ")
  1. ;;7
  1. ;;21,"14474-1 ")
  1. ;;8
  1. ;;21,"14509-4 ")
  1. ;;9
  1. ;;21,"14510-2 ")
  1. ;;10
  1. ;;21,"14511-0 ")
  1. ;;11
  1. ;;21,"14513-6 ")
  1. ;;12
  1. ;;21,"16600-9 ")
  1. ;;13
  1. ;;21,"16601-7 ")
  1. ;;14
  1. ;;21,"16602-5 ")
  1. ;;15
  1. ;;21,"21189-6 ")
  1. ;;16
  1. ;;21,"21190-4 ")
  1. ;;17
  1. ;;21,"21191-2 ")
  1. ;;18
  1. ;;21,"21192-0 ")
  1. ;;19
  1. ;;21,"23838-6 ")
  1. ;;20
  1. ;;21,"31771-9 ")
  1. ;;21
  1. ;;21,"31772-7 ")
  1. ;;22
  1. ;;21,"31775-0 ")
  1. ;;23
  1. ;;21,"31776-8 ")
  1. ;;24
  1. ;;21,"34710-4 ")
  1. ;;25
  1. ;;21,"42931-6 ")
  1. ;;26
  1. ;;21,"43406-8 ")
  1. ;;27
  1. ;;21,"44806-8 ")
  1. ;;28
  1. ;;21,"44807-6 ")
  1. ;;29
  1. ;;21,"45067-6 ")
  1. ;;30
  1. ;;21,"45068-4 ")
  1. ;;31
  1. ;;21,"45069-2 ")
  1. ;;32
  1. ;;21,"45070-0 ")
  1. ;;33
  1. ;;21,"45072-6 ")
  1. ;;34
  1. ;;21,"45074-2 ")
  1. ;;35
  1. ;;21,"45075-9 ")
  1. ;;36
  1. ;;21,"45078-3 ")
  1. ;;37
  1. ;;21,"45079-1 ")
  1. ;;38
  1. ;;21,"45080-9 ")
  1. ;;39
  1. ;;21,"45081-7 ")
  1. ;;40
  1. ;;21,"45082-5 ")
  1. ;;41
  1. ;;21,"45083-3 ")
  1. ;;42
  1. ;;21,"45084-1 ")
  1. ;;43
  1. ;;21,"45089-0 ")
  1. ;;44
  1. ;;21,"45090-8 ")
  1. ;;45
  1. ;;21,"45091-6 ")
  1. ;;46
  1. ;;21,"45093-2 ")
  1. ;;47
  1. ;;21,"45095-7 ")
  1. ;;48
  1. ;;21,"45098-1 ")
  1. ;;49
  1. ;;21,"45100-5 ")
  1. ;;50
  1. ;;21,"45106-2 ")
  1. ;;51
  1. ;;21,"45107-0 ")
  1. ;;52
  1. ;;21,"45108-8 ")
  1. ;;53
  1. ;;21,"45112-0 ")
  1. ;;54
  1. ;;21,"45113-8 ")
  1. ;;55
  1. ;;21,"45114-6 ")
  1. ;;56
  1. ;;21,"45115-3 ")
  1. ;;57
  1. ;;21,"50387-0 ")
  1. ;;58
  1. ;;21,"53925-4 ")
  1. ;;59
  1. ;;21,"53926-2 ")
  1. ;;70
  1. ;;21,"557-9 ")
  1. ;;60
  1. ;;21,"56909-5 ")
  1. ;;69
  1. ;;21,"56910-3 ")
  1. ;;68
  1. ;;21,"56911-1 ")
  1. ;;67
  1. ;;21,"57287-5 ")
  1. ;;66
  1. ;;21,"57288-3 ")
  1. ;;65
  1. ;;21,"57679-3 ")
  1. ;;64
  1. ;;21,"57680-1 ")
  1. ;;63
  1. ;;21,"6356-0 ")
  1. ;;61
  1. ;;21,"6357-8 ")
  1. ;;62
  1. ;;9002226,288,.01)
  1. ;;BGP CHLAMYDIA LOINC CODES
  1. ;;9002226,288,.02)
  1. ;;@
  1. ;;9002226,288,.04)
  1. ;;n
  1. ;;9002226,288,.06)
  1. ;;@
  1. ;;9002226,288,.08)
  1. ;;@
  1. ;;9002226,288,.09)
  1. ;;@
  1. ;;9002226,288,.11)
  1. ;;@
  1. ;;9002226,288,.12)
  1. ;;@
  1. ;;9002226,288,.13)
  1. ;;1
  1. ;;9002226,288,.14)
  1. ;;FIHS
  1. ;;9002226,288,.15)
  1. ;;95.3
  1. ;;9002226,288,.16)
  1. ;;@
  1. ;;9002226,288,.17)
  1. ;;@
  1. ;;9002226,288,3101)
  1. ;;@
  1. ;;9002226.02101,"288,14463-4 ",.01)
  1. ;;14463-4
  1. ;;9002226.02101,"288,14463-4 ",.02)
  1. ;;14463-4
  1. ;;9002226.02101,"288,14464-2 ",.01)
  1. ;;14464-2
  1. ;;9002226.02101,"288,14464-2 ",.02)
  1. ;;14464-2
  1. ;;9002226.02101,"288,14465-9 ",.01)
  1. ;;14465-9
  1. ;;9002226.02101,"288,14465-9 ",.02)
  1. ;;14465-9
  1. ;;9002226.02101,"288,14467-5 ",.01)
  1. ;;14467-5
  1. ;;9002226.02101,"288,14467-5 ",.02)
  1. ;;14467-5
  1. ;;9002226.02101,"288,14470-9 ",.01)
  1. ;;14470-9
  1. ;;9002226.02101,"288,14470-9 ",.02)
  1. ;;14470-9
  1. ;;9002226.02101,"288,14471-7 ",.01)
  1. ;;14471-7
  1. ;;9002226.02101,"288,14471-7 ",.02)
  1. ;;14471-7
  1. ;;9002226.02101,"288,14472-5 ",.01)
  1. ;;14472-5
  1. ;;9002226.02101,"288,14472-5 ",.02)
  1. ;;14472-5
  1. ;;9002226.02101,"288,14474-1 ",.01)
  1. ;;14474-1
  1. ;;9002226.02101,"288,14474-1 ",.02)
  1. ;;14474-1
  1. ;;9002226.02101,"288,14509-4 ",.01)
  1. ;;14509-4
  1. ;;9002226.02101,"288,14509-4 ",.02)
  1. ;;14509-4
  1. ;;9002226.02101,"288,14510-2 ",.01)
  1. ;;14510-2
  1. ;;9002226.02101,"288,14510-2 ",.02)
  1. ;;14510-2
  1. ;;9002226.02101,"288,14511-0 ",.01)
  1. ;;14511-0
  1. ;;9002226.02101,"288,14511-0 ",.02)
  1. ;;14511-0
  1. ;;9002226.02101,"288,14513-6 ",.01)
  1. ;;14513-6
  1. ;;9002226.02101,"288,14513-6 ",.02)
  1. ;;14513-6
  1. ;;9002226.02101,"288,16600-9 ",.01)
  1. ;;16600-9
  1. ;;9002226.02101,"288,16600-9 ",.02)
  1. ;;16600-9
  1. ;;9002226.02101,"288,16601-7 ",.01)
  1. ;;16601-7
  1. ;;9002226.02101,"288,16601-7 ",.02)
  1. ;;16601-7
  1. ;;9002226.02101,"288,16602-5 ",.01)
  1. ;;16602-5
  1. ;;9002226.02101,"288,16602-5 ",.02)
  1. ;;16602-5
  1. ;;9002226.02101,"288,21189-6 ",.01)
  1. ;;21189-6
  1. ;;9002226.02101,"288,21189-6 ",.02)
  1. ;;21189-6
  1. ;;9002226.02101,"288,21190-4 ",.01)
  1. ;;21190-4
  1. ;;9002226.02101,"288,21190-4 ",.02)
  1. ;;21190-4
  1. ;;9002226.02101,"288,21191-2 ",.01)
  1. ;;21191-2
  1. ;;9002226.02101,"288,21191-2 ",.02)
  1. ;;21191-2
  1. ;;9002226.02101,"288,21192-0 ",.01)
  1. ;;21192-0
  1. ;;9002226.02101,"288,21192-0 ",.02)
  1. ;;21192-0
  1. ;;9002226.02101,"288,23838-6 ",.01)
  1. ;;23838-6
  1. ;;9002226.02101,"288,23838-6 ",.02)
  1. ;;23838-6
  1. ;;9002226.02101,"288,31771-9 ",.01)
  1. ;;31771-9
  1. ;;9002226.02101,"288,31771-9 ",.02)
  1. ;;31771-9
  1. ;;9002226.02101,"288,31772-7 ",.01)
  1. ;;31772-7
  1. ;;9002226.02101,"288,31772-7 ",.02)
  1. ;;31772-7
  1. ;;9002226.02101,"288,31775-0 ",.01)
  1. ;;31775-0
  1. ;;9002226.02101,"288,31775-0 ",.02)
  1. ;;31775-0
  1. ;;9002226.02101,"288,31776-8 ",.01)
  1. ;;31776-8
  1. ;;9002226.02101,"288,31776-8 ",.02)
  1. ;;31776-8
  1. ;;9002226.02101,"288,34710-4 ",.01)
  1. ;;34710-4
  1. ;;9002226.02101,"288,34710-4 ",.02)
  1. ;;34710-4
  1. ;;9002226.02101,"288,42931-6 ",.01)
  1. ;;42931-6
  1. ;;9002226.02101,"288,42931-6 ",.02)
  1. ;;42931-6
  1. ;;9002226.02101,"288,43406-8 ",.01)
  1. ;;43406-8
  1. ;;9002226.02101,"288,43406-8 ",.02)
  1. ;;43406-8
  1. ;
  1. OTHER ; OTHER ROUTINES
  1. D ^BGP12RB
  1. Q