STANDARD DATA DICTIONARY #699.85 -- FOLLOWUP DEVICE/THERAPY FILE 9/29/25 PAGE 1
STORED IN ^MCAR(699.85, (9 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.3)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file holds the various types of follow-up devices and therapies for use with GI/Pulmonary modules.
DD ACCESS: @
AUDIT ACCESS: @
POINTED TO BY: FOLLOWUP DEVICE OR THERAPY field (#.01) of the FOLLOWUP DEVICE OR THERAPY sub-field (#699.36) of the
ENDOSCOPY/CONSULT File (#699)
CROSS
REFERENCED BY: NAME(B), NAME(C), MEDICAL PACKAGE USE(D)
699.85,.01 NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
HELP-PROMPT: NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
DESCRIPTION:
This field is used to store a list of follow-up devices and therapies applicable to Endoscopies.
CROSS-REFERENCE: 699.85^B
1)= S ^MCAR(699.85,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(699.85,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 699.85^C^KWIC
1)= F %=1:1 Q:$P(X," ",%,99)="" S I=$P(X," ",%) I $L(I)>2,$L(I)<31,^DD("KWIC")'[I S ^MCAR(699.85,"
C",I,DA)=""
2)= F %=1:1 Q:$P(X," ",%,99)="" S I=$P(X," ",%) I $L(I)>2,$L(I)<31 K ^MCAR(699.85,"C",I,DA)
This cross-reference indexes followup device therapy names alphabetically by key word.
699.85,1 MEDICAL PACKAGE USE 1;0 SET Multiple #699.851 (Add New Entry without Asking)
DESCRIPTION: This field is used to determine whether the follow-up device/therapy is applicable to GI
Endoscopies, Pulmonary Endoscopies or both.
699.851,.01 MEDICAL PACKAGE USE 0;1 SET (Multiply asked)
'G' FOR GI;
'P' FOR PULMONARY;
LAST EDITED: APR 04, 1989
HELP-PROMPT: Enter Code for Pulmonary or GI for the Followup Device/Therapy.
DESCRIPTION: This field identifies the specific area of Medicine (GI/Pulmonary) to which this follow-up
device/therapy is applicable to.
CROSS-REFERENCE: 699.85^D^MUMPS
1)= S ^MCAR(699.85,"D",$E(X,1,30),DA(1),DA)=""
2)= K ^MCAR(699.85,"D",$E(X,1,30),DA(1),DA)
This cross-reference indexes followup device/therapy names by medical package use.
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):