STANDARD DATA DICTIONARY #699.85 -- FOLLOWUP DEVICE/THERAPY FILE 3/24/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):