- BGP53S ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 16, 2015;
- ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
- ;;BGP CD4 LOINC CODES
- ;
- ; This routine loads Taxonomy BGP CD4 LOINC CODES
- ;
- 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
- D OTHER
- I $O(^TMP("ATX",$J,3.6,0)) D BULL^ATXSTX2
- I $O(^TMP("ATX",$J,9002226,0)) D TAX^ATXSTX2
- D KILL^ATXSTX2
- Q
- ;
- TMP ;;TAXONOMY (WITH BULLETIN)
- ;;21,"13332-2 ")
- ;;1
- ;;21,"13335-5 ")
- ;;2
- ;;21,"13336-3 ")
- ;;3
- ;;21,"13343-9 ")
- ;;4
- ;;21,"13491-6 ")
- ;;5
- ;;21,"13492-4 ")
- ;;6
- ;;21,"16274-3 ")
- ;;7
- ;;21,"17144-7 ")
- ;;8
- ;;21,"17145-4 ")
- ;;9
- ;;21,"17146-2 ")
- ;;10
- ;;21,"17153-8 ")
- ;;11
- ;;21,"17822-8 ")
- ;;89
- ;;21,"18266-7 ")
- ;;90
- ;;21,"20605-2 ")
- ;;12
- ;;21,"20606-0 ")
- ;;13
- ;;21,"20607-8 ")
- ;;14
- ;;21,"24467-3 ")
- ;;15
- ;;21,"26569-4 ")
- ;;16
- ;;21,"26570-2 ")
- ;;17
- ;;21,"26573-6 ")
- ;;18
- ;;21,"26759-1 ")
- ;;19
- ;;21,"26922-5 ")
- ;;20
- ;;21,"26982-9 ")
- ;;21
- ;;21,"26983-7 ")
- ;;22
- ;;21,"32515-9 ")
- ;;23
- ;;21,"32516-7 ")
- ;;24
- ;;21,"32532-4 ")
- ;;25
- ;;21,"32533-2 ")
- ;;26
- ;;21,"32537-3 ")
- ;;91
- ;;21,"32756-9 ")
- ;;92
- ;;21,"34475-4 ")
- ;;28
- ;;21,"34622-1 ")
- ;;43
- ;;21,"34929-0 ")
- ;;29
- ;;21,"34930-8 ")
- ;;30
- ;;21,"34931-6 ")
- ;;31
- ;;21,"34932-4 ")
- ;;32
- ;;21,"38237-4 ")
- ;;33
- ;;21,"38238-2 ")
- ;;34
- ;;21,"38239-0 ")
- ;;35
- ;;21,"38240-8 ")
- ;;36
- ;;21,"40623-1 ")
- ;;93
- ;;21,"40898-9 ")
- ;;66
- ;;21,"40900-3 ")
- ;;67
- ;;21,"41994-5 ")
- ;;37
- ;;21,"42737-7 ")
- ;;38
- ;;21,"43944-8 ")
- ;;39
- ;;21,"43945-5 ")
- ;;94
- ;;21,"43946-3 ")
- ;;68
- ;;21,"43947-1 ")
- ;;69
- ;;21,"43948-9 ")
- ;;86
- ;;21,"43952-1 ")
- ;;40
- ;;21,"43953-9 ")
- ;;70
- ;;21,"43954-7 ")
- ;;95
- ;;21,"43955-4 ")
- ;;71
- ;;21,"43956-2 ")
- ;;87
- ;;21,"43962-0 ")
- ;;96
- ;;21,"43963-8 ")
- ;;97
- ;;21,"43964-6 ")
- ;;98
- ;;21,"43965-3 ")
- ;;73
- ;;21,"43966-1 ")
- ;;88
- ;;21,"43970-3 ")
- ;;74
- ;;21,"44056-0 ")
- ;;44
- ;;21,"44057-8 ")
- ;;75
- ;;21,"44058-6 ")
- ;;99
- ;;21,"44059-4 ")
- ;;76
- ;;21,"44060-2 ")
- ;;45
- ;;21,"47016-1 ")
- ;;77
- ;;21,"49025-0 ")
- ;;46
- ;;21,"49120-9 ")
- ;;47
- ;;21,"51300-2 ")
- ;;78
- ;;21,"51302-8 ")
- ;;79
- ;;21,"51303-6 ")
- ;;80
- ;;21,"51304-4 ")
- ;;65
- ;;21,"51305-1 ")
- ;;100
- ;;21,"51306-9 ")
- ;;48
- ;;21,"51307-7 ")
- ;;81
- ;;21,"51308-5 ")
- ;;82
- ;;21,"51309-3 ")
- ;;49
- ;;21,"51310-1 ")
- ;;101
- ;;21,"51311-9 ")
- ;;50
- ;;21,"51312-7 ")
- ;;83
- ;;21,"51313-5 ")
- ;;84
- ;;21,"51314-3 ")
- ;;102
- ;;21,"51315-0 ")
- ;;103
- ;;21,"51316-8 ")
- ;;52
- ;;21,"51755-7 ")
- ;;53
- ;;21,"53939-5 ")
- ;;54
- ;;21,"53940-3 ")
- ;;55
- ;;21,"54218-3 ")
- ;;56
- ;;21,"5472-6 ")
- ;;57
- ;;21,"5473-4 ")
- ;;58
- ;;21,"5474-2 ")
- ;;59
- ;;21,"57401-2 ")
- ;;104
- ;;21,"58920-0 ")
- ;;63
- ;;21,"60457-9 ")
- ;;64
- ;;21,"63450-1 ")
- ;;85
- ;;21,"65758-5 ")
- ;;105
- ;;21,"74839-2 ")
- ;;106
- ;;21,"8123-2 ")
- ;;42
- ;;21,"8127-3 ")
- ;;60
- ;;21,"8128-1 ")
- ;;61
- ;;21,"8129-9 ")
- ;;62
- ;;9002226,197,.01)
- ;;BGP CD4 LOINC CODES
- ;;9002226,197,.02)
- ;;LOINC CODES FOR CD4 TESTS
- ;;9002226,197,.04)
- ;;n
- ;;9002226,197,.06)
- ;;@
- ;;9002226,197,.08)
- ;;@
- ;;9002226,197,.09)
- ;;3030709
- ;;9002226,197,.11)
- ;;@
- ;;9002226,197,.12)
- ;;@
- ;;9002226,197,.13)
- ;;1
- ;;9002226,197,.14)
- ;;FIHS
- ;;9002226,197,.15)
- ;;95.3
- ;;9002226,197,.16)
- ;;0
- ;;9002226,197,.17)
- ;;@
- ;;9002226,197,3101)
- ;;@
- ;;9002226.02101,"197,13332-2 ",.01)
- ;;13332-2
- ;;9002226.02101,"197,13332-2 ",.02)
- ;;13332-2
- ;;9002226.02101,"197,13335-5 ",.01)
- ;;13335-5
- ;;9002226.02101,"197,13335-5 ",.02)
- ;;13335-5
- ;;9002226.02101,"197,13336-3 ",.01)
- ;;13336-3
- ;;9002226.02101,"197,13336-3 ",.02)
- ;;13336-3
- ;;9002226.02101,"197,13343-9 ",.01)
- ;;13343-9
- ;;9002226.02101,"197,13343-9 ",.02)
- ;;13343-9
- ;;9002226.02101,"197,13491-6 ",.01)
- ;;13491-6
- ;;9002226.02101,"197,13491-6 ",.02)
- ;;13491-6
- ;;9002226.02101,"197,13492-4 ",.01)
- ;;13492-4
- ;;9002226.02101,"197,13492-4 ",.02)
- ;;13492-4
- ;;9002226.02101,"197,16274-3 ",.01)
- ;;16274-3
- ;;9002226.02101,"197,16274-3 ",.02)
- ;;16274-3
- ;;9002226.02101,"197,17144-7 ",.01)
- ;;17144-7
- ;;9002226.02101,"197,17144-7 ",.02)
- ;;17144-7
- ;;9002226.02101,"197,17145-4 ",.01)
- ;;17145-4
- ;;9002226.02101,"197,17145-4 ",.02)
- ;;17145-4
- ;;9002226.02101,"197,17146-2 ",.01)
- ;;17146-2
- ;;9002226.02101,"197,17146-2 ",.02)
- ;;17146-2
- ;;9002226.02101,"197,17153-8 ",.01)
- ;;17153-8
- ;;9002226.02101,"197,17153-8 ",.02)
- ;;17153-8
- ;;9002226.02101,"197,17822-8 ",.01)
- ;;17822-8
- ;;9002226.02101,"197,17822-8 ",.02)
- ;;17822-8
- ;;9002226.02101,"197,18266-7 ",.01)
- ;;18266-7
- ;;9002226.02101,"197,18266-7 ",.02)
- ;;18266-7
- ;;9002226.02101,"197,20605-2 ",.01)
- ;;20605-2
- ;;9002226.02101,"197,20605-2 ",.02)
- ;;20605-2
- ;;9002226.02101,"197,20606-0 ",.01)
- ;;20606-0
- ;;9002226.02101,"197,20606-0 ",.02)
- ;;20606-0
- ;;9002226.02101,"197,20607-8 ",.01)
- ;;20607-8
- ;;9002226.02101,"197,20607-8 ",.02)
- ;;20607-8
- ;;9002226.02101,"197,24467-3 ",.01)
- ;;24467-3
- ;;9002226.02101,"197,24467-3 ",.02)
- ;;24467-3
- ;;9002226.02101,"197,26569-4 ",.01)
- ;;26569-4
- ;;9002226.02101,"197,26569-4 ",.02)
- ;;26569-4
- ;;9002226.02101,"197,26570-2 ",.01)
- ;;26570-2
- ;;9002226.02101,"197,26570-2 ",.02)
- ;;26570-2
- ;;9002226.02101,"197,26573-6 ",.01)
- ;;26573-6
- ;;9002226.02101,"197,26573-6 ",.02)
- ;;26573-6
- ;;9002226.02101,"197,26759-1 ",.01)
- ;;26759-1
- ;;9002226.02101,"197,26759-1 ",.02)
- ;;26759-1
- ;;9002226.02101,"197,26922-5 ",.01)
- ;;26922-5
- ;;9002226.02101,"197,26922-5 ",.02)
- ;;26922-5
- ;;9002226.02101,"197,26982-9 ",.01)
- ;;26982-9
- ;;9002226.02101,"197,26982-9 ",.02)
- ;;26982-9
- ;;9002226.02101,"197,26983-7 ",.01)
- ;;26983-7
- ;;9002226.02101,"197,26983-7 ",.02)
- ;;26983-7
- ;;9002226.02101,"197,32515-9 ",.01)
- ;;32515-9
- ;;9002226.02101,"197,32515-9 ",.02)
- ;;32515-9
- ;;9002226.02101,"197,32516-7 ",.01)
- ;;32516-7
- ;;9002226.02101,"197,32516-7 ",.02)
- ;;32516-7
- ;;9002226.02101,"197,32532-4 ",.01)
- ;;32532-4
- ;;9002226.02101,"197,32532-4 ",.02)
- ;;32532-4
- ;;9002226.02101,"197,32533-2 ",.01)
- ;;32533-2
- ;;9002226.02101,"197,32533-2 ",.02)
- ;;32533-2
- ;;9002226.02101,"197,32537-3 ",.01)
- ;;32537-3
- ;;9002226.02101,"197,32537-3 ",.02)
- ;;32537-3
- ;;9002226.02101,"197,32756-9 ",.01)
- ;;32756-9
- ;;9002226.02101,"197,32756-9 ",.02)
- ;;32756-9
- ;;9002226.02101,"197,34475-4 ",.01)
- ;;34475-4
- ;;9002226.02101,"197,34475-4 ",.02)
- ;;34475-4
- ;;9002226.02101,"197,34622-1 ",.01)
- ;;34622-1
- ;;9002226.02101,"197,34622-1 ",.02)
- ;;34622-1
- ;;9002226.02101,"197,34929-0 ",.01)
- ;;34929-0
- ;;9002226.02101,"197,34929-0 ",.02)
- ;;34929-0
- ;;9002226.02101,"197,34930-8 ",.01)
- ;;34930-8
- ;;9002226.02101,"197,34930-8 ",.02)
- ;;34930-8
- ;;9002226.02101,"197,34931-6 ",.01)
- ;;34931-6
- ;;9002226.02101,"197,34931-6 ",.02)
- ;;34931-6
- ;;9002226.02101,"197,34932-4 ",.01)
- ;;34932-4
- ;;9002226.02101,"197,34932-4 ",.02)
- ;;34932-4
- ;;9002226.02101,"197,38237-4 ",.01)
- ;;38237-4
- ;;9002226.02101,"197,38237-4 ",.02)
- ;;38237-4
- ;;9002226.02101,"197,38238-2 ",.01)
- ;;38238-2
- ;;9002226.02101,"197,38238-2 ",.02)
- ;;38238-2
- ;;9002226.02101,"197,38239-0 ",.01)
- ;;38239-0
- ;;9002226.02101,"197,38239-0 ",.02)
- ;;38239-0
- ;;9002226.02101,"197,38240-8 ",.01)
- ;;38240-8
- ;;9002226.02101,"197,38240-8 ",.02)
- ;;38240-8
- ;;9002226.02101,"197,40623-1 ",.01)
- ;;40623-1
- ;;9002226.02101,"197,40623-1 ",.02)
- ;;40623-1
- ;;9002226.02101,"197,40898-9 ",.01)
- ;;40898-9
- ;;9002226.02101,"197,40898-9 ",.02)
- ;;40898-9
- ;;9002226.02101,"197,40900-3 ",.01)
- ;;40900-3
- ;;9002226.02101,"197,40900-3 ",.02)
- ;;40900-3
- ;;9002226.02101,"197,41994-5 ",.01)
- ;;41994-5
- ;;9002226.02101,"197,41994-5 ",.02)
- ;;41994-5
- ;;9002226.02101,"197,42737-7 ",.01)
- ;;42737-7
- ;;9002226.02101,"197,42737-7 ",.02)
- ;;42737-7
- ;;9002226.02101,"197,43944-8 ",.01)
- ;;43944-8
- ;;9002226.02101,"197,43944-8 ",.02)
- ;;43944-8
- ;;9002226.02101,"197,43945-5 ",.01)
- ;;43945-5
- ;;9002226.02101,"197,43945-5 ",.02)
- ;;43945-5
- ;;9002226.02101,"197,43946-3 ",.01)
- ;;43946-3
- ;;9002226.02101,"197,43946-3 ",.02)
- ;;43946-3
- ;;9002226.02101,"197,43947-1 ",.01)
- ;;43947-1
- ;;9002226.02101,"197,43947-1 ",.02)
- ;;43947-1
- ;;9002226.02101,"197,43948-9 ",.01)
- ;;43948-9
- ;;9002226.02101,"197,43948-9 ",.02)
- ;;43948-9
- ;;9002226.02101,"197,43952-1 ",.01)
- ;;43952-1
- ;;9002226.02101,"197,43952-1 ",.02)
- ;;43952-1
- ;;9002226.02101,"197,43953-9 ",.01)
- ;;43953-9
- ;;9002226.02101,"197,43953-9 ",.02)
- ;;43953-9
- ;;9002226.02101,"197,43954-7 ",.01)
- ;;43954-7
- ;;9002226.02101,"197,43954-7 ",.02)
- ;;43954-7
- ;;9002226.02101,"197,43955-4 ",.01)
- ;;43955-4
- ;;9002226.02101,"197,43955-4 ",.02)
- ;;43955-4
- ;;9002226.02101,"197,43956-2 ",.01)
- ;;43956-2
- ;;9002226.02101,"197,43956-2 ",.02)
- ;;43956-2
- ;;9002226.02101,"197,43962-0 ",.01)
- ;;43962-0
- ;;9002226.02101,"197,43962-0 ",.02)
- ;;43962-0
- ;;9002226.02101,"197,43963-8 ",.01)
- ;;43963-8
- ;;9002226.02101,"197,43963-8 ",.02)
- ;;43963-8
- ;;9002226.02101,"197,43964-6 ",.01)
- ;;43964-6
- ;;9002226.02101,"197,43964-6 ",.02)
- ;;43964-6
- ;;9002226.02101,"197,43965-3 ",.01)
- ;;43965-3
- ;;9002226.02101,"197,43965-3 ",.02)
- ;;43965-3
- ;;9002226.02101,"197,43966-1 ",.01)
- ;;43966-1
- ;;9002226.02101,"197,43966-1 ",.02)
- ;;43966-1
- ;;9002226.02101,"197,43970-3 ",.01)
- ;;43970-3
- ;;9002226.02101,"197,43970-3 ",.02)
- ;;43970-3
- ;;9002226.02101,"197,44056-0 ",.01)
- ;;44056-0
- ;;9002226.02101,"197,44056-0 ",.02)
- ;;44056-0
- ;;9002226.02101,"197,44057-8 ",.01)
- ;;44057-8
- ;;9002226.02101,"197,44057-8 ",.02)
- ;;44057-8
- ;;9002226.02101,"197,44058-6 ",.01)
- ;;44058-6
- ;;9002226.02101,"197,44058-6 ",.02)
- ;;44058-6
- ;;9002226.02101,"197,44059-4 ",.01)
- ;;44059-4
- ;;9002226.02101,"197,44059-4 ",.02)
- ;;44059-4
- ;;9002226.02101,"197,44060-2 ",.01)
- ;;44060-2
- ;;9002226.02101,"197,44060-2 ",.02)
- ;;44060-2
- ;;9002226.02101,"197,47016-1 ",.01)
- ;;47016-1
- ;;9002226.02101,"197,47016-1 ",.02)
- ;;47016-1
- ;;9002226.02101,"197,49025-0 ",.01)
- ;;49025-0
- ;;9002226.02101,"197,49025-0 ",.02)
- ;;49025-0
- ;;9002226.02101,"197,49120-9 ",.01)
- ;;49120-9
- ;;9002226.02101,"197,49120-9 ",.02)
- ;;49120-9
- ;;9002226.02101,"197,51300-2 ",.01)
- ;;51300-2
- ;;9002226.02101,"197,51300-2 ",.02)
- ;;51300-2
- ;;9002226.02101,"197,51302-8 ",.01)
- ;;51302-8
- ;;9002226.02101,"197,51302-8 ",.02)
- ;;51302-8
- ;;9002226.02101,"197,51303-6 ",.01)
- ;;51303-6
- ;;9002226.02101,"197,51303-6 ",.02)
- ;;51303-6
- ;;9002226.02101,"197,51304-4 ",.01)
- ;;51304-4
- ;;9002226.02101,"197,51304-4 ",.02)
- ;;51304-4
- ;;9002226.02101,"197,51305-1 ",.01)
- ;;51305-1
- ;;9002226.02101,"197,51305-1 ",.02)
- ;;51305-1
- ;;9002226.02101,"197,51306-9 ",.01)
- ;;51306-9
- ;;9002226.02101,"197,51306-9 ",.02)
- ;;51306-9
- ;;9002226.02101,"197,51307-7 ",.01)
- ;;51307-7
- ;;9002226.02101,"197,51307-7 ",.02)
- ;;51307-7
- ;;9002226.02101,"197,51308-5 ",.01)
- ;;51308-5
- ;;9002226.02101,"197,51308-5 ",.02)
- ;;51308-5
- ;;9002226.02101,"197,51309-3 ",.01)
- ;;51309-3
- ;;9002226.02101,"197,51309-3 ",.02)
- ;;51309-3
- ;;9002226.02101,"197,51310-1 ",.01)
- ;;51310-1
- ;;9002226.02101,"197,51310-1 ",.02)
- ;;51310-1
- ;;9002226.02101,"197,51311-9 ",.01)
- ;;51311-9
- ;;9002226.02101,"197,51311-9 ",.02)
- ;;51311-9
- ;;9002226.02101,"197,51312-7 ",.01)
- ;;51312-7
- ;;9002226.02101,"197,51312-7 ",.02)
- ;;51312-7
- ;;9002226.02101,"197,51313-5 ",.01)
- ;;51313-5
- ;;9002226.02101,"197,51313-5 ",.02)
- ;;51313-5
- ;;9002226.02101,"197,51314-3 ",.01)
- ;;51314-3
- ;
- OTHER ; OTHER ROUTINES
- D ^BGP53S2
- Q
- BGP53S ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 16, 2015;
- +1 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
- +2 ;;BGP CD4 LOINC CODES
- +3 ;
- +4 ; This routine loads Taxonomy BGP CD4 LOINC CODES
- +5 ;
- START ;
- +1 IF '$GET(ATXPGMC)
- KILL ^TMP("ATX",$JOB)
- +2 SET ATXPGMC=$GET(ATXPGMC)+1
- +3 FOR ATXI=1:1
- SET X=$PIECE($TEXT(TMP+ATXI),";;",2,99)
- IF X=""
- QUIT
- SET X="^TMP(""ATX"",$J,"_X
- SET ATXI=ATXI+1
- SET Y=$PIECE($TEXT(TMP+ATXI),";;",2,99)
- SET @X=Y
- +4 DO OTHER
- +5 IF $ORDER(^TMP("ATX",$JOB,3.6,0))
- DO BULL^ATXSTX2
- +6 IF $ORDER(^TMP("ATX",$JOB,9002226,0))
- DO TAX^ATXSTX2
- +7 DO KILL^ATXSTX2
- +8 QUIT
- +9 ;
- TMP ;;TAXONOMY (WITH BULLETIN)
- +1 ;;21,"13332-2 ")
- +2 ;;1
- +3 ;;21,"13335-5 ")
- +4 ;;2
- +5 ;;21,"13336-3 ")
- +6 ;;3
- +7 ;;21,"13343-9 ")
- +8 ;;4
- +9 ;;21,"13491-6 ")
- +10 ;;5
- +11 ;;21,"13492-4 ")
- +12 ;;6
- +13 ;;21,"16274-3 ")
- +14 ;;7
- +15 ;;21,"17144-7 ")
- +16 ;;8
- +17 ;;21,"17145-4 ")
- +18 ;;9
- +19 ;;21,"17146-2 ")
- +20 ;;10
- +21 ;;21,"17153-8 ")
- +22 ;;11
- +23 ;;21,"17822-8 ")
- +24 ;;89
- +25 ;;21,"18266-7 ")
- +26 ;;90
- +27 ;;21,"20605-2 ")
- +28 ;;12
- +29 ;;21,"20606-0 ")
- +30 ;;13
- +31 ;;21,"20607-8 ")
- +32 ;;14
- +33 ;;21,"24467-3 ")
- +34 ;;15
- +35 ;;21,"26569-4 ")
- +36 ;;16
- +37 ;;21,"26570-2 ")
- +38 ;;17
- +39 ;;21,"26573-6 ")
- +40 ;;18
- +41 ;;21,"26759-1 ")
- +42 ;;19
- +43 ;;21,"26922-5 ")
- +44 ;;20
- +45 ;;21,"26982-9 ")
- +46 ;;21
- +47 ;;21,"26983-7 ")
- +48 ;;22
- +49 ;;21,"32515-9 ")
- +50 ;;23
- +51 ;;21,"32516-7 ")
- +52 ;;24
- +53 ;;21,"32532-4 ")
- +54 ;;25
- +55 ;;21,"32533-2 ")
- +56 ;;26
- +57 ;;21,"32537-3 ")
- +58 ;;91
- +59 ;;21,"32756-9 ")
- +60 ;;92
- +61 ;;21,"34475-4 ")
- +62 ;;28
- +63 ;;21,"34622-1 ")
- +64 ;;43
- +65 ;;21,"34929-0 ")
- +66 ;;29
- +67 ;;21,"34930-8 ")
- +68 ;;30
- +69 ;;21,"34931-6 ")
- +70 ;;31
- +71 ;;21,"34932-4 ")
- +72 ;;32
- +73 ;;21,"38237-4 ")
- +74 ;;33
- +75 ;;21,"38238-2 ")
- +76 ;;34
- +77 ;;21,"38239-0 ")
- +78 ;;35
- +79 ;;21,"38240-8 ")
- +80 ;;36
- +81 ;;21,"40623-1 ")
- +82 ;;93
- +83 ;;21,"40898-9 ")
- +84 ;;66
- +85 ;;21,"40900-3 ")
- +86 ;;67
- +87 ;;21,"41994-5 ")
- +88 ;;37
- +89 ;;21,"42737-7 ")
- +90 ;;38
- +91 ;;21,"43944-8 ")
- +92 ;;39
- +93 ;;21,"43945-5 ")
- +94 ;;94
- +95 ;;21,"43946-3 ")
- +96 ;;68
- +97 ;;21,"43947-1 ")
- +98 ;;69
- +99 ;;21,"43948-9 ")
- +100 ;;86
- +101 ;;21,"43952-1 ")
- +102 ;;40
- +103 ;;21,"43953-9 ")
- +104 ;;70
- +105 ;;21,"43954-7 ")
- +106 ;;95
- +107 ;;21,"43955-4 ")
- +108 ;;71
- +109 ;;21,"43956-2 ")
- +110 ;;87
- +111 ;;21,"43962-0 ")
- +112 ;;96
- +113 ;;21,"43963-8 ")
- +114 ;;97
- +115 ;;21,"43964-6 ")
- +116 ;;98
- +117 ;;21,"43965-3 ")
- +118 ;;73
- +119 ;;21,"43966-1 ")
- +120 ;;88
- +121 ;;21,"43970-3 ")
- +122 ;;74
- +123 ;;21,"44056-0 ")
- +124 ;;44
- +125 ;;21,"44057-8 ")
- +126 ;;75
- +127 ;;21,"44058-6 ")
- +128 ;;99
- +129 ;;21,"44059-4 ")
- +130 ;;76
- +131 ;;21,"44060-2 ")
- +132 ;;45
- +133 ;;21,"47016-1 ")
- +134 ;;77
- +135 ;;21,"49025-0 ")
- +136 ;;46
- +137 ;;21,"49120-9 ")
- +138 ;;47
- +139 ;;21,"51300-2 ")
- +140 ;;78
- +141 ;;21,"51302-8 ")
- +142 ;;79
- +143 ;;21,"51303-6 ")
- +144 ;;80
- +145 ;;21,"51304-4 ")
- +146 ;;65
- +147 ;;21,"51305-1 ")
- +148 ;;100
- +149 ;;21,"51306-9 ")
- +150 ;;48
- +151 ;;21,"51307-7 ")
- +152 ;;81
- +153 ;;21,"51308-5 ")
- +154 ;;82
- +155 ;;21,"51309-3 ")
- +156 ;;49
- +157 ;;21,"51310-1 ")
- +158 ;;101
- +159 ;;21,"51311-9 ")
- +160 ;;50
- +161 ;;21,"51312-7 ")
- +162 ;;83
- +163 ;;21,"51313-5 ")
- +164 ;;84
- +165 ;;21,"51314-3 ")
- +166 ;;102
- +167 ;;21,"51315-0 ")
- +168 ;;103
- +169 ;;21,"51316-8 ")
- +170 ;;52
- +171 ;;21,"51755-7 ")
- +172 ;;53
- +173 ;;21,"53939-5 ")
- +174 ;;54
- +175 ;;21,"53940-3 ")
- +176 ;;55
- +177 ;;21,"54218-3 ")
- +178 ;;56
- +179 ;;21,"5472-6 ")
- +180 ;;57
- +181 ;;21,"5473-4 ")
- +182 ;;58
- +183 ;;21,"5474-2 ")
- +184 ;;59
- +185 ;;21,"57401-2 ")
- +186 ;;104
- +187 ;;21,"58920-0 ")
- +188 ;;63
- +189 ;;21,"60457-9 ")
- +190 ;;64
- +191 ;;21,"63450-1 ")
- +192 ;;85
- +193 ;;21,"65758-5 ")
- +194 ;;105
- +195 ;;21,"74839-2 ")
- +196 ;;106
- +197 ;;21,"8123-2 ")
- +198 ;;42
- +199 ;;21,"8127-3 ")
- +200 ;;60
- +201 ;;21,"8128-1 ")
- +202 ;;61
- +203 ;;21,"8129-9 ")
- +204 ;;62
- +205 ;;9002226,197,.01)
- +206 ;;BGP CD4 LOINC CODES
- +207 ;;9002226,197,.02)
- +208 ;;LOINC CODES FOR CD4 TESTS
- +209 ;;9002226,197,.04)
- +210 ;;n
- +211 ;;9002226,197,.06)
- +212 ;;@
- +213 ;;9002226,197,.08)
- +214 ;;@
- +215 ;;9002226,197,.09)
- +216 ;;3030709
- +217 ;;9002226,197,.11)
- +218 ;;@
- +219 ;;9002226,197,.12)
- +220 ;;@
- +221 ;;9002226,197,.13)
- +222 ;;1
- +223 ;;9002226,197,.14)
- +224 ;;FIHS
- +225 ;;9002226,197,.15)
- +226 ;;95.3
- +227 ;;9002226,197,.16)
- +228 ;;0
- +229 ;;9002226,197,.17)
- +230 ;;@
- +231 ;;9002226,197,3101)
- +232 ;;@
- +233 ;;9002226.02101,"197,13332-2 ",.01)
- +234 ;;13332-2
- +235 ;;9002226.02101,"197,13332-2 ",.02)
- +236 ;;13332-2
- +237 ;;9002226.02101,"197,13335-5 ",.01)
- +238 ;;13335-5
- +239 ;;9002226.02101,"197,13335-5 ",.02)
- +240 ;;13335-5
- +241 ;;9002226.02101,"197,13336-3 ",.01)
- +242 ;;13336-3
- +243 ;;9002226.02101,"197,13336-3 ",.02)
- +244 ;;13336-3
- +245 ;;9002226.02101,"197,13343-9 ",.01)
- +246 ;;13343-9
- +247 ;;9002226.02101,"197,13343-9 ",.02)
- +248 ;;13343-9
- +249 ;;9002226.02101,"197,13491-6 ",.01)
- +250 ;;13491-6
- +251 ;;9002226.02101,"197,13491-6 ",.02)
- +252 ;;13491-6
- +253 ;;9002226.02101,"197,13492-4 ",.01)
- +254 ;;13492-4
- +255 ;;9002226.02101,"197,13492-4 ",.02)
- +256 ;;13492-4
- +257 ;;9002226.02101,"197,16274-3 ",.01)
- +258 ;;16274-3
- +259 ;;9002226.02101,"197,16274-3 ",.02)
- +260 ;;16274-3
- +261 ;;9002226.02101,"197,17144-7 ",.01)
- +262 ;;17144-7
- +263 ;;9002226.02101,"197,17144-7 ",.02)
- +264 ;;17144-7
- +265 ;;9002226.02101,"197,17145-4 ",.01)
- +266 ;;17145-4
- +267 ;;9002226.02101,"197,17145-4 ",.02)
- +268 ;;17145-4
- +269 ;;9002226.02101,"197,17146-2 ",.01)
- +270 ;;17146-2
- +271 ;;9002226.02101,"197,17146-2 ",.02)
- +272 ;;17146-2
- +273 ;;9002226.02101,"197,17153-8 ",.01)
- +274 ;;17153-8
- +275 ;;9002226.02101,"197,17153-8 ",.02)
- +276 ;;17153-8
- +277 ;;9002226.02101,"197,17822-8 ",.01)
- +278 ;;17822-8
- +279 ;;9002226.02101,"197,17822-8 ",.02)
- +280 ;;17822-8
- +281 ;;9002226.02101,"197,18266-7 ",.01)
- +282 ;;18266-7
- +283 ;;9002226.02101,"197,18266-7 ",.02)
- +284 ;;18266-7
- +285 ;;9002226.02101,"197,20605-2 ",.01)
- +286 ;;20605-2
- +287 ;;9002226.02101,"197,20605-2 ",.02)
- +288 ;;20605-2
- +289 ;;9002226.02101,"197,20606-0 ",.01)
- +290 ;;20606-0
- +291 ;;9002226.02101,"197,20606-0 ",.02)
- +292 ;;20606-0
- +293 ;;9002226.02101,"197,20607-8 ",.01)
- +294 ;;20607-8
- +295 ;;9002226.02101,"197,20607-8 ",.02)
- +296 ;;20607-8
- +297 ;;9002226.02101,"197,24467-3 ",.01)
- +298 ;;24467-3
- +299 ;;9002226.02101,"197,24467-3 ",.02)
- +300 ;;24467-3
- +301 ;;9002226.02101,"197,26569-4 ",.01)
- +302 ;;26569-4
- +303 ;;9002226.02101,"197,26569-4 ",.02)
- +304 ;;26569-4
- +305 ;;9002226.02101,"197,26570-2 ",.01)
- +306 ;;26570-2
- +307 ;;9002226.02101,"197,26570-2 ",.02)
- +308 ;;26570-2
- +309 ;;9002226.02101,"197,26573-6 ",.01)
- +310 ;;26573-6
- +311 ;;9002226.02101,"197,26573-6 ",.02)
- +312 ;;26573-6
- +313 ;;9002226.02101,"197,26759-1 ",.01)
- +314 ;;26759-1
- +315 ;;9002226.02101,"197,26759-1 ",.02)
- +316 ;;26759-1
- +317 ;;9002226.02101,"197,26922-5 ",.01)
- +318 ;;26922-5
- +319 ;;9002226.02101,"197,26922-5 ",.02)
- +320 ;;26922-5
- +321 ;;9002226.02101,"197,26982-9 ",.01)
- +322 ;;26982-9
- +323 ;;9002226.02101,"197,26982-9 ",.02)
- +324 ;;26982-9
- +325 ;;9002226.02101,"197,26983-7 ",.01)
- +326 ;;26983-7
- +327 ;;9002226.02101,"197,26983-7 ",.02)
- +328 ;;26983-7
- +329 ;;9002226.02101,"197,32515-9 ",.01)
- +330 ;;32515-9
- +331 ;;9002226.02101,"197,32515-9 ",.02)
- +332 ;;32515-9
- +333 ;;9002226.02101,"197,32516-7 ",.01)
- +334 ;;32516-7
- +335 ;;9002226.02101,"197,32516-7 ",.02)
- +336 ;;32516-7
- +337 ;;9002226.02101,"197,32532-4 ",.01)
- +338 ;;32532-4
- +339 ;;9002226.02101,"197,32532-4 ",.02)
- +340 ;;32532-4
- +341 ;;9002226.02101,"197,32533-2 ",.01)
- +342 ;;32533-2
- +343 ;;9002226.02101,"197,32533-2 ",.02)
- +344 ;;32533-2
- +345 ;;9002226.02101,"197,32537-3 ",.01)
- +346 ;;32537-3
- +347 ;;9002226.02101,"197,32537-3 ",.02)
- +348 ;;32537-3
- +349 ;;9002226.02101,"197,32756-9 ",.01)
- +350 ;;32756-9
- +351 ;;9002226.02101,"197,32756-9 ",.02)
- +352 ;;32756-9
- +353 ;;9002226.02101,"197,34475-4 ",.01)
- +354 ;;34475-4
- +355 ;;9002226.02101,"197,34475-4 ",.02)
- +356 ;;34475-4
- +357 ;;9002226.02101,"197,34622-1 ",.01)
- +358 ;;34622-1
- +359 ;;9002226.02101,"197,34622-1 ",.02)
- +360 ;;34622-1
- +361 ;;9002226.02101,"197,34929-0 ",.01)
- +362 ;;34929-0
- +363 ;;9002226.02101,"197,34929-0 ",.02)
- +364 ;;34929-0
- +365 ;;9002226.02101,"197,34930-8 ",.01)
- +366 ;;34930-8
- +367 ;;9002226.02101,"197,34930-8 ",.02)
- +368 ;;34930-8
- +369 ;;9002226.02101,"197,34931-6 ",.01)
- +370 ;;34931-6
- +371 ;;9002226.02101,"197,34931-6 ",.02)
- +372 ;;34931-6
- +373 ;;9002226.02101,"197,34932-4 ",.01)
- +374 ;;34932-4
- +375 ;;9002226.02101,"197,34932-4 ",.02)
- +376 ;;34932-4
- +377 ;;9002226.02101,"197,38237-4 ",.01)
- +378 ;;38237-4
- +379 ;;9002226.02101,"197,38237-4 ",.02)
- +380 ;;38237-4
- +381 ;;9002226.02101,"197,38238-2 ",.01)
- +382 ;;38238-2
- +383 ;;9002226.02101,"197,38238-2 ",.02)
- +384 ;;38238-2
- +385 ;;9002226.02101,"197,38239-0 ",.01)
- +386 ;;38239-0
- +387 ;;9002226.02101,"197,38239-0 ",.02)
- +388 ;;38239-0
- +389 ;;9002226.02101,"197,38240-8 ",.01)
- +390 ;;38240-8
- +391 ;;9002226.02101,"197,38240-8 ",.02)
- +392 ;;38240-8
- +393 ;;9002226.02101,"197,40623-1 ",.01)
- +394 ;;40623-1
- +395 ;;9002226.02101,"197,40623-1 ",.02)
- +396 ;;40623-1
- +397 ;;9002226.02101,"197,40898-9 ",.01)
- +398 ;;40898-9
- +399 ;;9002226.02101,"197,40898-9 ",.02)
- +400 ;;40898-9
- +401 ;;9002226.02101,"197,40900-3 ",.01)
- +402 ;;40900-3
- +403 ;;9002226.02101,"197,40900-3 ",.02)
- +404 ;;40900-3
- +405 ;;9002226.02101,"197,41994-5 ",.01)
- +406 ;;41994-5
- +407 ;;9002226.02101,"197,41994-5 ",.02)
- +408 ;;41994-5
- +409 ;;9002226.02101,"197,42737-7 ",.01)
- +410 ;;42737-7
- +411 ;;9002226.02101,"197,42737-7 ",.02)
- +412 ;;42737-7
- +413 ;;9002226.02101,"197,43944-8 ",.01)
- +414 ;;43944-8
- +415 ;;9002226.02101,"197,43944-8 ",.02)
- +416 ;;43944-8
- +417 ;;9002226.02101,"197,43945-5 ",.01)
- +418 ;;43945-5
- +419 ;;9002226.02101,"197,43945-5 ",.02)
- +420 ;;43945-5
- +421 ;;9002226.02101,"197,43946-3 ",.01)
- +422 ;;43946-3
- +423 ;;9002226.02101,"197,43946-3 ",.02)
- +424 ;;43946-3
- +425 ;;9002226.02101,"197,43947-1 ",.01)
- +426 ;;43947-1
- +427 ;;9002226.02101,"197,43947-1 ",.02)
- +428 ;;43947-1
- +429 ;;9002226.02101,"197,43948-9 ",.01)
- +430 ;;43948-9
- +431 ;;9002226.02101,"197,43948-9 ",.02)
- +432 ;;43948-9
- +433 ;;9002226.02101,"197,43952-1 ",.01)
- +434 ;;43952-1
- +435 ;;9002226.02101,"197,43952-1 ",.02)
- +436 ;;43952-1
- +437 ;;9002226.02101,"197,43953-9 ",.01)
- +438 ;;43953-9
- +439 ;;9002226.02101,"197,43953-9 ",.02)
- +440 ;;43953-9
- +441 ;;9002226.02101,"197,43954-7 ",.01)
- +442 ;;43954-7
- +443 ;;9002226.02101,"197,43954-7 ",.02)
- +444 ;;43954-7
- +445 ;;9002226.02101,"197,43955-4 ",.01)
- +446 ;;43955-4
- +447 ;;9002226.02101,"197,43955-4 ",.02)
- +448 ;;43955-4
- +449 ;;9002226.02101,"197,43956-2 ",.01)
- +450 ;;43956-2
- +451 ;;9002226.02101,"197,43956-2 ",.02)
- +452 ;;43956-2
- +453 ;;9002226.02101,"197,43962-0 ",.01)
- +454 ;;43962-0
- +455 ;;9002226.02101,"197,43962-0 ",.02)
- +456 ;;43962-0
- +457 ;;9002226.02101,"197,43963-8 ",.01)
- +458 ;;43963-8
- +459 ;;9002226.02101,"197,43963-8 ",.02)
- +460 ;;43963-8
- +461 ;;9002226.02101,"197,43964-6 ",.01)
- +462 ;;43964-6
- +463 ;;9002226.02101,"197,43964-6 ",.02)
- +464 ;;43964-6
- +465 ;;9002226.02101,"197,43965-3 ",.01)
- +466 ;;43965-3
- +467 ;;9002226.02101,"197,43965-3 ",.02)
- +468 ;;43965-3
- +469 ;;9002226.02101,"197,43966-1 ",.01)
- +470 ;;43966-1
- +471 ;;9002226.02101,"197,43966-1 ",.02)
- +472 ;;43966-1
- +473 ;;9002226.02101,"197,43970-3 ",.01)
- +474 ;;43970-3
- +475 ;;9002226.02101,"197,43970-3 ",.02)
- +476 ;;43970-3
- +477 ;;9002226.02101,"197,44056-0 ",.01)
- +478 ;;44056-0
- +479 ;;9002226.02101,"197,44056-0 ",.02)
- +480 ;;44056-0
- +481 ;;9002226.02101,"197,44057-8 ",.01)
- +482 ;;44057-8
- +483 ;;9002226.02101,"197,44057-8 ",.02)
- +484 ;;44057-8
- +485 ;;9002226.02101,"197,44058-6 ",.01)
- +486 ;;44058-6
- +487 ;;9002226.02101,"197,44058-6 ",.02)
- +488 ;;44058-6
- +489 ;;9002226.02101,"197,44059-4 ",.01)
- +490 ;;44059-4
- +491 ;;9002226.02101,"197,44059-4 ",.02)
- +492 ;;44059-4
- +493 ;;9002226.02101,"197,44060-2 ",.01)
- +494 ;;44060-2
- +495 ;;9002226.02101,"197,44060-2 ",.02)
- +496 ;;44060-2
- +497 ;;9002226.02101,"197,47016-1 ",.01)
- +498 ;;47016-1
- +499 ;;9002226.02101,"197,47016-1 ",.02)
- +500 ;;47016-1
- +501 ;;9002226.02101,"197,49025-0 ",.01)
- +502 ;;49025-0
- +503 ;;9002226.02101,"197,49025-0 ",.02)
- +504 ;;49025-0
- +505 ;;9002226.02101,"197,49120-9 ",.01)
- +506 ;;49120-9
- +507 ;;9002226.02101,"197,49120-9 ",.02)
- +508 ;;49120-9
- +509 ;;9002226.02101,"197,51300-2 ",.01)
- +510 ;;51300-2
- +511 ;;9002226.02101,"197,51300-2 ",.02)
- +512 ;;51300-2
- +513 ;;9002226.02101,"197,51302-8 ",.01)
- +514 ;;51302-8
- +515 ;;9002226.02101,"197,51302-8 ",.02)
- +516 ;;51302-8
- +517 ;;9002226.02101,"197,51303-6 ",.01)
- +518 ;;51303-6
- +519 ;;9002226.02101,"197,51303-6 ",.02)
- +520 ;;51303-6
- +521 ;;9002226.02101,"197,51304-4 ",.01)
- +522 ;;51304-4
- +523 ;;9002226.02101,"197,51304-4 ",.02)
- +524 ;;51304-4
- +525 ;;9002226.02101,"197,51305-1 ",.01)
- +526 ;;51305-1
- +527 ;;9002226.02101,"197,51305-1 ",.02)
- +528 ;;51305-1
- +529 ;;9002226.02101,"197,51306-9 ",.01)
- +530 ;;51306-9
- +531 ;;9002226.02101,"197,51306-9 ",.02)
- +532 ;;51306-9
- +533 ;;9002226.02101,"197,51307-7 ",.01)
- +534 ;;51307-7
- +535 ;;9002226.02101,"197,51307-7 ",.02)
- +536 ;;51307-7
- +537 ;;9002226.02101,"197,51308-5 ",.01)
- +538 ;;51308-5
- +539 ;;9002226.02101,"197,51308-5 ",.02)
- +540 ;;51308-5
- +541 ;;9002226.02101,"197,51309-3 ",.01)
- +542 ;;51309-3
- +543 ;;9002226.02101,"197,51309-3 ",.02)
- +544 ;;51309-3
- +545 ;;9002226.02101,"197,51310-1 ",.01)
- +546 ;;51310-1
- +547 ;;9002226.02101,"197,51310-1 ",.02)
- +548 ;;51310-1
- +549 ;;9002226.02101,"197,51311-9 ",.01)
- +550 ;;51311-9
- +551 ;;9002226.02101,"197,51311-9 ",.02)
- +552 ;;51311-9
- +553 ;;9002226.02101,"197,51312-7 ",.01)
- +554 ;;51312-7
- +555 ;;9002226.02101,"197,51312-7 ",.02)
- +556 ;;51312-7
- +557 ;;9002226.02101,"197,51313-5 ",.01)
- +558 ;;51313-5
- +559 ;;9002226.02101,"197,51313-5 ",.02)
- +560 ;;51313-5
- +561 ;;9002226.02101,"197,51314-3 ",.01)
- +562 ;;51314-3
- +563 ;
- OTHER ; OTHER ROUTINES
- +1 DO ^BGP53S2
- +2 QUIT