STANDARD DATA DICTIONARY #61.3 -- FUNCTION FIELD FILE 9/29/25 PAGE 1
STORED IN ^LAB(61.3, (5727 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.2)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This is the FUNCTION field of SNOMED
IDENTIFIED BY:
POINTED TO BY: CORRESPONDING ANTIGEN/ANTIBODY field (#.04) of the FUNCTION FIELD File (#61.3)
RBC ANTIGEN PRESENT field (#.01) of the RBC ANTIGEN PRESENT sub-field (#63.011) of the BLOOD BANK sub-field (#63.01)
of the LAB DATA File (#63)
RBC ANTIGEN ABSENT field (#.01) of the RBC ANTIGEN ABSENT sub-field (#63.0112) of the BLOOD BANK sub-field (#63.01)
of the LAB DATA File (#63)
HLA ANTIGEN ABSENT field (#.01) of the HLA ANTIGEN ABSENT sub-field (#63.0114) of the BLOOD BANK sub-field (#63.01)
of the LAB DATA File (#63)
ELUATE ANTIBODY field (#.01) of the ELUATE ANTIBODY sub-field (#63.012) of the BLOOD BANK sub-field (#63.01) of the
LAB DATA File (#63)
HLA ANTIGEN PRESENT field (#.01) of the HLA ANTIGEN PRESENT sub-field (#63.013) of the BLOOD BANK sub-field (#63.01)
of the LAB DATA File (#63)
RBC ANTIGENS ABSENT field (#.01) of the RBC ANTIGENS ABSENT(other) sub-field (#63.016) of the LAB DATA File (#63)
ANTIBODIES IDENTIFIED field (#.01) of the ANTIBODIES IDENTIFIED sub-field (#63.075) of the LAB DATA File (#63)
RBC ANTIGENS PRESENT field (#.01) of the RBC ANTIGENS PRESENT(other) sub-field (#63.13) of the LAB DATA File (#63)
HLA ANTIGEN PRESENT field (#.01) of the HLA ANTIGENS PRESENT sub-field (#63.14) of the LAB DATA File (#63)
HLA ANTIGENS ABSENT field (#.01) of the HLA ANTIGENS ABSENT sub-field (#63.141) of the LAB DATA File (#63)
FUNCTION field (#.01) of the FUNCTION sub-field (#63.25) of the AUTOPSY ORGAN/TISSUE sub-field (#63.2) of the LAB
DATA File (#63)
FUNCTION field (#.01) of the FUNCTION sub-field (#63.285) of the EM ORGAN/TISSUE sub-field (#63.212) of the EM
sub-field (#63.02) of the LAB DATA File (#63)
SERUM ANTIBODY field (#.01) of the SERUM ANTIBODY sub-field (#63.46) of the BLOOD BANK sub-field (#63.01) of the LAB
DATA File (#63)
FUNCTION field (#.01) of the FUNCTION sub-field (#63.85) of the ORGAN/TISSUE sub-field (#63.12) of the SURGICAL
PATHOLOGY sub-field (#63.08) of the LAB DATA File (#63)
FUNCTION field (#.01) of the FUNCTION sub-field (#63.985) of the CYTOPATH ORGAN/TISSUE sub-field (#63.912) of the
CYTOPATHOLOGY sub-field (#63.09) of the LAB DATA File (#63)
RBC ANTIGEN PRESENT field (#.01) of the RBC ANTIGEN PRESENT sub-field (#65.04) of the BLOOD INVENTORY File (#65)
RBC ANTIGEN ABSENT field (#.01) of the RBC ANTIGEN ABSENT sub-field (#65.05) of the BLOOD INVENTORY File (#65)
HLA ANTIGEN PRESENT field (#.01) of the HLA ANTIGEN PRESENT sub-field (#65.08) of the BLOOD INVENTORY File (#65)
HLA ANTIGEN ABSENT field (#.01) of the HLA ANTIGEN ABSENT sub-field (#65.09) of the BLOOD INVENTORY File (#65)
RBC ANTIGEN PRESENT field (#.01) of the RBC ANTIGEN PRESENT sub-field (#65.56) of the BLOOD DONOR File (#65.5)
RBC ANTIGEN ABSENT field (#.01) of the RBC ANTIGEN ABSENT sub-field (#65.57) of the BLOOD DONOR File (#65.5)
HLA ANTIGEN PRESENT field (#.01) of the HLA ANTIGEN PRESENT sub-field (#65.58) of the BLOOD DONOR File (#65.5)
HLA ANTIGEN ABSENT field (#.01) of the HLA ANTIGEN ABSENT sub-field (#65.59) of the BLOOD DONOR File (#65.5)
FUNCTION FIELD field (#1) of the SYMPTOM File (#695.5)
CROSS
REFERENCED BY: NAME(B), ABBREVIATION(B), SNOMED CODE(C), SYNONYM(D), IDENTIFIER(E)
61.3,.01 NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1)!'(X'?1P.E)!(X'?.ANP) X
LAST EDITED: FEB 09, 1989
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION:
The name of the function.
DELETE TEST: 1,0)= I '$D(^XUSEC("LRLIASON",DUZ))
CROSS-REFERENCE: 61.3^B
1)= S ^LAB(61.3,"B",$E(X,1,30),DA)=""
2)= K ^LAB(61.3,"B",$E(X,1,30),DA)
61.3,.04 CORRESPONDING ANTIGEN/ANTIBODY 0;4 POINTER TO FUNCTION FIELD FILE (#61.3)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,5)=""AN""!($P(^(0),U,5)=""AB"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 27, 1987
DESCRIPTION:
Indicate which antigen or antibody that may be known by another name.
SCREEN: S DIC("S")="I $P(^(0),U,5)=""AN""!($P(^(0),U,5)=""AB"")"
EXPLANATION: SELECTS ONLY RED BLOOD CELL ANTIGENS OR ANTIODIES
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
61.3,.06 COMPATIBILITY FACTOR 0;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>1)!(X<0)!(X?.E1"."4N.N) X
LAST EDITED: MAR 12, 1989
HELP-PROMPT: Type a Number between 0 and 1, 3 Decimal Digits
DESCRIPTION: If an antigen enter the incidence (as a decimal)
in the population. If an antibody enter the
frequency the corresponding antigen is absent
in the population.
61.3,2 SNOMED CODE 0;2 FREE TEXT (Required)
ENTER CHARACTERS FOLLOWING 'F-' IN SNOMED REFERENCE BOOK
INPUT TRANSFORM: K:$L(X)>7!($L(X)<2)!'(X?.AN)!(X?1"F-".E)!(X?1"F"1N.E) X I $D(X) S Y=$O(^LAB(61.3,"C",X,0)) I Y>0 K:
'$D(^LAB(61.3,Y,0)) ^LAB(61.3,"C",X,Y) I $D(^LAB(61.3,Y,0)) K X W *7,!," ALREADY AN ENTRY",! Q
LAST EDITED: SEP 11, 1984
HELP-PROMPT: ANSWER MUST BE 2-7 CHARACTERS IN LENGTH
DESCRIPTION:
The characters following "F-" in the SNOMED reference book.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 61.3^C
1)= S ^LAB(61.3,"C",$E(X,1,30),DA)=""
2)= K ^LAB(61.3,"C",$E(X,1,30),DA)
61.3,2.5 SECTION 0;3 FREE TEXT
FUNCTION & DYSFUNCTION BY SYSTEMS
INPUT TRANSFORM: K:$L(X)>30!($L(X)<2) X
HELP-PROMPT: GB=general body EM=endocrine/metabolism RE=reproduction IM=immune HE=hem DU=digest/urinary
CR=cardiovas/resp NM=nervous/musc PS=psyche/sexual EE=ent EF=environmental/forensic
DESCRIPTION:
The function's area by body system.
61.3,3 SYNONYMS 1;0 Multiple #61.31 (Add New Entry without Asking)
DESCRIPTION:
This is a multiple field. Enter synonyms or common misspellings of this function.
61.31,.01 SYNONYM 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<2) X
HELP-PROMPT: ANSWER MUST BE 2-80 CHARACTERS IN LENGTH
DESCRIPTION:
This field contains synonyms, abbreviations, or common misspellings of this function.
CROSS-REFERENCE: 61.3^D
1)= S ^LAB(61.3,"D",$E(X,1,30),DA(1),DA)=""
2)= K ^LAB(61.3,"D",$E(X,1,30),DA(1),DA)
61.3,4 IDENTIFIER 0;5 SET
'AN' FOR BLOOD GROUP ANTIGEN;
'AB' FOR BLOOD GROUP ANTIBODY;
'HL' FOR HLA ANTIGEN;
LAST EDITED: JUL 31, 1984
DESCRIPTION:
This is a blood bank identifier.
CROSS-REFERENCE: 61.3^E
1)= S ^LAB(61.3,"E",$E(X,1,30),DA)=""
2)= K ^LAB(61.3,"E",$E(X,1,30),DA)
61.3,5 JOURNAL REFERENCE JR;0 Multiple #61.32 (Add New Entry without Asking)
DESCRIPTION:
This is a multiple field. You may enter Journal references that apply to this function.
61.32,.01 TITLE OF ARTICLE 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>80!($L(X)<1) X
LAST EDITED: JUN 09, 1984
HELP-PROMPT: ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
DESCRIPTION:
Title of an article that discusses the named function.
61.32,1 AUTHOR(S) 0;2 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>80!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
DESCRIPTION:
Author(s) of the named article.
61.32,2 MEDICAL JOURNAL 0;3 POINTER TO LAB JOURNAL FILE (#95)
LAST EDITED: JUN 16, 1984
DESCRIPTION:
The name of medical journal containing the article.
61.32,3 VOLUME 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>6!($L(X)<1) X
LAST EDITED: JUN 09, 1984
HELP-PROMPT: ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
DESCRIPTION:
The volume number/name that contains the article.
61.32,4 STARTING PAGE 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>6!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
DESCRIPTION:
The first page of the article.
61.32,5 DATE 0;6 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUN 09, 1984
DESCRIPTION:
Date of article.
61.32,6 LIST ON PATIENT RECORD 0;7 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JUN 09, 1984
DESCRIPTION: If this reference is to be listed on a patient record whenever this function is involved, this
field requires a YES entry.
61.32,7 TOPOGRAPHY RESTRICTION 1;0 Multiple #61.33 (Add New Entry without Asking)
61.33,.01 TOPOGRAPHY RESTRICTION 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>6!($L(X)<1) X
LAST EDITED: MAR 05, 1986
HELP-PROMPT: ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
DESCRIPTION: To restrict printing references for certain organ/tissues with the
selected function enter one or more characters of the topography
code (ex. for lung enter 28). No code no restriction.
61.3,6 ABBREVIATION 0;7 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1) X
LAST EDITED: OCT 15, 1985
HELP-PROMPT: ANSWER MUST BE 1-5 CHARACTERS IN LENGTH
DESCRIPTION:
This is a 1 to 5 character abbreviation for this function which is used as a unique code for it.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 61.3^B^MNEMONIC
1)= S ^LAB(61.3,"B",$E(X,1,30),DA)=1
2)= K ^LAB(61.3,"B",$E(X,1,30),DA)
61.3,7 COMMENT 7;0 WORD-PROCESSING #61.37
DESCRIPTION:
If there are some additional comments which should be associated the function to assist the user.
LAST EDITED: MAR 12, 1989
CROSS-REFERENCE: 61.37^B
1)= S ^LAB(61.3,DA(1),7,"B",$E(X,1,30),DA)=""
2)= K ^LAB(61.3,DA(1),7,"B",$E(X,1,30),DA)
61.3,500 WKLD CODE 9;0 POINTER Multiple #61.34 (Add New Entry without Asking)
DESCRIPTION: If additional workload codes should be counted every time this function is performed, enter them
here.
IDENTIFIED BY: WKLD CODE NUMBER(#.02)
61.34,.01 WKLD CODE 0;1 POINTER TO WKLD CODE FILE (#64) (Multiply asked)
INPUT TRANSFORM: S DINUM=X
LAST EDITED: JAN 30, 1991
DESCRIPTION:
Enter WKLD code(s) associate with this entry.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: ^^TRIGGER^61.34^.02
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(61.3,D0,9,D1,0)):^(0),1:"")
S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(61.34,.01,1,1,1.1) X ^DD(61.34,.01,1,1,1.4)
1.1)= S X=DIV S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^LAM(+D0,0)) D0=-1
S Y(101)=$S($D(^LAM(D0,0)):^(0),1:"") S X=$P(Y(101),U,2) S D0=I(0,0) S D1=I(1,0)
1.4)= S DIH=$S($D(^LAB(61.3,DIV(0),9,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=61.34,DIG=.
02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(61.3,D0,9,D1,0)):^(0),1:"")
S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(61.34,.01,1,1,2.4)
2.4)= S DIH=$S($D(^LAB(61.3,DIV(0),9,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=61.34,DIG=.
02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= WKLD CODE:WKLD CODE
DELETE VALUE)= @
FIELD)= WKLD CODE NUMBER
61.34,.02 WKLD CODE NUMBER 0;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99999)!(X<10000)!(X?.E1"."4N.N) X
LAST EDITED: JAN 30, 1991
HELP-PROMPT: Type a Number between 10000 and 99999, 3 Decimal Digits
UNEDITABLE
NOTES: TRIGGERED by the WKLD CODE field of the WKLD CODE sub-field of the FUNCTION FIELD File
61.34,.03 MULTIPLY FACTOR 0;3 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>100)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JAN 30, 1991
HELP-PROMPT: Type a Number between 1 and 100, 0 Decimal Digits
FILES POINTED TO FIELDS
FUNCTION FIELD (#61.3) CORRESPONDING ANTIGEN/ANTIBODY (#.04)
LAB JOURNAL (#95) JOURNAL REFERENCE:MEDICAL JOURNAL (#2)
WKLD CODE (#64) WKLD CODE:WKLD CODE (#.01)
INPUT TEMPLATE(S):
LRAPFR JUL 09, 1986 USER #0
LRAPFUN JUL 09, 1986 USER #0
PRINT TEMPLATE(S):
LR ANTIGEN/ANTIBODY LISTING DEC 14, 1987 USER #0 SNOMED NOMENCLATURE FOR BLOOD GROUP ANTIBODIES
LRBL ANTIBODIES DEC 01, 1989@07:54 USER #0 ANTIBODIES
LRBLAG WKLD CODES OCT 17, 1990@15:16 USER #0 WKLD CODES
SORT TEMPLATE(S):
LR ANTIBODY LISTING MAR 03, 1987 USER #0 IDENTIFIER EQUALS "AB"
LR ANTIGEN LISTING MAR 02, 1987 USER #0 IDENTIFIER EQUALS "AN"
LRBL ANTIBODY LISTING DEC 01, 1989@07:39 USER #0
LRBLAG WKLD CODES OCT 17, 1990@14:37 USER #0 IDENTIFIER EQUALS "AN" and FUNCTION FIELD WKLD CODE NOT NULL
FORM(S)/BLOCK(S):