STANDARD DATA DICTIONARY #61.5 -- PROCEDURE FIELD FILE 9/29/25 PAGE 1
STORED IN ^LAB(61.5, (2813 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.2)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This is the PROCEDURE file of SNOMED
IDENTIFIED BY: SNOMED CODE (#2)[R]
POINTED TO BY: PROCEDURE (SNOMED) field (#14) of the LABORATORY TEST File (#60)
PROCEDURE field (#.01) of the PROCEDURE sub-field (#63.24) of the AUTOPSY ORGAN/TISSUE sub-field (#63.2) of the LAB
DATA File (#63)
PROCEDURE field (#.01) of the PROCEDURE sub-field (#63.282) of the EM ORGAN/TISSUE sub-field (#63.212) of the EM
sub-field (#63.02) of the LAB DATA File (#63)
PROCEDURE field (#.01) of the PROCEDURE sub-field (#63.82) of the ORGAN/TISSUE sub-field (#63.12) of the SURGICAL
PATHOLOGY sub-field (#63.08) of the LAB DATA File (#63)
PROCEDURE field (#.01) of the PROCEDURE sub-field (#63.982) of the CYTOPATH ORGAN/TISSUE sub-field (#63.912) of the
CYTOPATHOLOGY sub-field (#63.09) of the LAB DATA File (#63)
PROCEDURE FIELD field (#1) of the CATH PROCEDURE File (#695.3)
CROSS
REFERENCED BY: NAME(B), ABBREVIATION(B), SNOMED CODE(C), SYNONYM(D)
61.5,.01 NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>200!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
LAST EDITED: FEB 09, 1989
HELP-PROMPT: Answer must be 3-200 characters in length.
DESCRIPTION:
The name of the procedure.
DELETE TEST: 1,0)= I '$D(^XUSEC("LRLIASON",DUZ))
CROSS-REFERENCE: 61.5^B
1)= S ^LAB(61.5,"B",$E(X,1,30),DA)=""
2)= K ^LAB(61.5,"B",$E(X,1,30),DA)
61.5,2 SNOMED CODE 0;2 FREE TEXT (Required)
ENTER CHARACTERS FOLLOWING 'P-' IN SNOMED REFERENCE BOOK
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<2)!'(X?.AN)!(X?1"P-".E)!(X?1"P"1N.E) X I $D(X) S Y=$
O(^LAB(61.5,"C",X,0)) I Y>0 K:'$D(^LAB(61.5,Y,0)) ^LAB(61.5,"C",X,Y) I $D(^LAB(61.5,Y,0)) K X W *7,
!," ALREADY AN ENTRY",! Q
LAST EDITED: MAR 06, 1985
HELP-PROMPT: ANSWER MUST BE 2-7 CHARACTERS IN LENGTH
DESCRIPTION:
The characters following "P-" in the SNOMED reference book.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 61.5^C
1)= S ^LAB(61.5,"C",$E(X,1,30),DA)=""
2)= K ^LAB(61.5,"C",$E(X,1,30),DA)
61.5,2.3 ASK RESULT 0;3 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: DEC 22, 1989
DESCRIPTION:
If a result of a procedure should be prompted for, enter 'Yes'.
61.5,3 SYNONYM 1;0 Multiple #61.51 (Add New Entry without Asking)
DESCRIPTION:
This is a multiple field. It contains synonyms or common misspellings of this procedure.
61.51,.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 procedure.
CROSS-REFERENCE: 61.5^D
1)= S ^LAB(61.5,"D",$E(X,1,30),DA(1),DA)=""
2)= K ^LAB(61.5,"D",$E(X,1,30),DA(1),DA)
61.5,5 JOURNAL REFERENCE JR;0 Multiple #61.52 (Add New Entry without Asking)
DESCRIPTION:
This is a multiple field. It contains Journal references that apply to this procedure.
61.52,.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 procedure.
61.52,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.52,2 MEDICAL JOURNAL 0;3 POINTER TO LAB JOURNAL FILE (#95)
LAST EDITED: JUN 16, 1984
DESCRIPTION:
The name of the medical journal containing the article. Points to FILE #95.
61.52,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.52,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.52,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.52,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 procedure is involved, this
field requires a YES entry.
61.52,7 TOPOGRAPHY RESTRICTION 1;0 Multiple #61.53 (Add New Entry without Asking)
61.53,.01 TOPOGRAPHY RESTRICTION 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>6!($L(X)<1) X
LAST EDITED: MAR 25, 1986
HELP-PROMPT: ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
DESCRIPTION: To restrict printing references for certain organ/tissues with the
selected procedure enter one or more characters of the topography
code (ex. for lung enter 28). No entry no restriction.
61.5,6 ABBREVIATION 0;5 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1) X
LAST EDITED: JUN 09, 1984
HELP-PROMPT: ANSWER MUST BE 1-5 CHARACTERS IN LENGTH
DESCRIPTION:
This is a 1 to 5 character abbreviation for the procedure. It is used as a unique code for it.
CROSS-REFERENCE: 61.5^B^MNEMONIC
1)= S ^LAB(61.5,"B",$E(X,1,30),DA)=1
2)= K ^LAB(61.5,"B",$E(X,1,30),DA)
FILES POINTED TO FIELDS
LAB JOURNAL (#95) JOURNAL REFERENCE:MEDICAL JOURNAL (#2)
INPUT TEMPLATE(S):
LRAPPR JUL 09, 1986 USER #0
LRAPPRO DEC 30, 1989@14:20 USER #0
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):