STANDARD DATA DICTIONARY #50.0732 -- DUE QUESTION FILE 3/24/25 PAGE 1 STORED IN ^PS(50.0732, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 7.0) DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE ----------------------------------------------------------------------------------------------------------------------------------- This file contains the individual questions to be used in a DUE Questionnaire. APPLICATION GROUP(S): PSO POINTED TO BY: QUESTION TEXT field (#1) of the QUESTION sub-field (#50.07302) of the DUE QUESTIONNAIRE File (#50.073) QUESTION TEXT field (#1) of the QUESTION sub-field (#50.07311) of the DUE ANSWER SHEET File (#50.0731) CROSS REFERENCED BY: TEXT(B) 50.0732,.01 TEXT 0;1 FREE TEXT (Required) INPUT TRANSFORM: K:$L(X)>145!($L(X)<3)!'(X'?1P.E) X S PSRC=DA S:$G(PSODUEL) PSRC=+Y I $D(X),Y'=-1,$P(^PS(50.0732,DA, 0),"^",7),X'=$P(^PS(50.0732,PSRC,0),"^") D EN^DDIOL("NO EDITING AFTER QUESTION HAS BEEN ANSWERED IN A QUESTIONNAIRE!","","$C(7),!?5") K X,PSRC LAST EDITED: MAY 19, 1994 HELP-PROMPT: Answer must be 3-145 characters in length. ENTER A FREE TEXT QUESTION TO BE USED ON A DUE QUESTIONNAIRE. THIS DATA MAY BE CREATED AND EDITED FROM THE DUE QUESTIONNAIRE FILE. DESCRIPTION: Question to be used in the DUE QUESTIONNAIRE file. EXECUTABLE HELP: D DUE1^PSOHELP4 NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE: 50.0732^B 1)= S ^PS(50.0732,"B",$E(X,1,30),DA)="" 2)= K ^PS(50.0732,"B",$E(X,1,30),DA) 50.0732,1 TYPE OF ANSWER REQUIRED 0;2 SET '1' FOR YES/NO/UNKNOWN; '2' FOR FREE TEXT; '3' FOR NUMERIC; INPUT TRANSFORM: I $P(^PS(50.0732,DA,0),"^",7) K X D EN^DDIOL("NO EDITING AFTER QUESTION HAS BEEN ANSWERED IN A QUES TIONNAIRE!","","$C(7),!?5") LAST EDITED: AUG 22, 1990 HELP-PROMPT: This field is used to limit the type of response allowed when entering data into a DUE QUESTIONNAIRE. DESCRIPTION: Limits the type of Answer allowed. 1. YES/NO/UNKNOWN 2. FREE TEXT 3. NUMERIC This field logically defines the Answer field, however, VA FileMan will treat the Answer field as it is defined in the Data Dictionary, i.e. Free Text with a max length of 245 characters. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER 50.0732,2 LOWER LIMIT FOR NUMERICS 0;3 NUMBER INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<-99999999)!(X?.E1"."1N.N) X LAST EDITED: SEP 04, 1990 HELP-PROMPT: Type a Number between -99999999 and 99999999, 0 Decimal Digits. THIS WILL BE THE LOWEST NUMBER ALLOWED WHEN ANSWERING THIS QUESTION ON A DUE ANSWER SHEET. DESCRIPTION: The smallest number allowed for an Answer to this Question. 50.0732,3 UPPER LIMIT FOR NUMERICS 0;4 NUMBER INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<-99999999)!(X?.E1"."1N.N) X LAST EDITED: AUG 01, 1990 HELP-PROMPT: Type a Number between -99999999 and 99999999, 0 Decimal Digits. THIS IS THE HIGHEST NUMBER ALLOWED WHEN ANSWERING THIS QUESTION ON A DUE ANSWER SHEET. DESCRIPTION: The largest number allowed for an Answer to this Question. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER 50.0732,4 FRACTIONAL DIGITS 0;5 NUMBER INPUT TRANSFORM: K:+X'=X!(X>5)!(X<0)!(X?.E1"."1N.N) X LAST EDITED: AUG 01, 1990 HELP-PROMPT: Type a Number between 0 and 5, 0 Decimal Digits. THIS IS THE MAX NUMBER OF FRACTIONAL DIGITS ALLOWED WHEN ANSWERING THIS QUESTION ON A DUE ANSWER SHEET. DESCRIPTION: The number of fractional digits allowed for an Answer to this Question. 50.0732,5 FREE TEXT LENGTH 0;6 NUMBER INPUT TRANSFORM: K:+X'=X!(X>245)!(X<1)!(X?.E1"."1N.N) X LAST EDITED: AUG 01, 1990 HELP-PROMPT: Type a Number between 1 and 245, 0 Decimal Digits. THIS IS THE MAX LENGTH ANSWER ALLOWED FOR THIS QUESTION WHEN ANSWERING A DUE ANSWER SHEET DESCRIPTION: The number of characters allowed for an Answer to this Question. 50.0732,6 LOCKED 0;7 SET '0' FOR NO; '1' FOR YES; LAST EDITED: AUG 28, 1990 HELP-PROMPT: If yes this field prohibits editing the text of this question. DESCRIPTION: Used to prevent changes to the Question text once an DUE ANSWER SHEET has been printed. UNEDITABLE INPUT TEMPLATE(S): PRINT TEMPLATE(S): SORT TEMPLATE(S): FORM(S)/BLOCK(S):