STANDARD DATA DICTIONARY #50.0731 -- DUE ANSWER SHEET FILE 3/24/25 PAGE 1
STORED IN ^PS(50.0731, *** 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 responses to a DUE QUESTIONNAIRE.
APPLICATION GROUP(S): PSO
CROSS
REFERENCED BY: SEQUENCE NUMBER(B), DRUG(D), PROVIDER(P), QUESTIONNAIRE(Q)
50.0731,.01 SEQUENCE NUMBER 0;1 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X I $D(X) S DINUM=X
LAST EDITED: MAR 23, 1993
HELP-PROMPT: Type a Number between 0 and 99999999, 0 Decimal Digits . THIS IS THE UNIQUE NUMBER USED TO IDENTIFY
THIS DUE ANSWER SHEET.
DESCRIPTION: A Number which distinctly identifies a DUE ANSWER SHEET. Automatically generated when a new DUE
ANSWER SHEET is created.
PRE-LOOKUP: K:DIC(0)["L" X
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 50.0731^B
1)= S ^PS(50.0731,"B",$E(X,1,30),DA)=""
2)= K ^PS(50.0731,"B",$E(X,1,30),DA)
50.0731,1 QUESTIONNAIRE 0;2 POINTER TO DUE QUESTIONNAIRE FILE (#50.073)
LAST EDITED: AUG 15, 1990
HELP-PROMPT: Enter the DUE QUESTIONNAIRE that should be related to this DUE ANSWER SHEET.
DESCRIPTION:
The DUE QUESTIONNAIRE from which this DUE ANSWER SHEET was generated.
CROSS-REFERENCE: 50.0731^Q
1)= S ^PS(50.0731,"Q",$E(X,1,30),DA)=""
2)= K ^PS(50.0731,"Q",$E(X,1,30),DA)
50.0731,2 DRUG 0;3 POINTER TO DRUG FILE (#50)
LAST EDITED: AUG 15, 1990
HELP-PROMPT: This is the drug requiring this DUE study.
DESCRIPTION:
The Drug for which this DUE ANSWER SHEET was generated.
CROSS-REFERENCE: 50.0731^D
1)= S ^PS(50.0731,"D",$E(X,1,30),DA)=""
2)= K ^PS(50.0731,"D",$E(X,1,30),DA)
50.0731,3 RX # 0;4 POINTER TO PRESCRIPTION FILE (#52)
LAST EDITED: AUG 01, 1990
HELP-PROMPT: The RX number for the order requiring this DUE study.
DESCRIPTION:
The Prescription number for which this DUE ANSWER SHEET was generated.
50.0731,4 PROVIDER 0;5 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="S X(1)=$G(^(""PS"")) I +X(1),$S('$P(X(1),""^"",4):1,1:$P(X(1),""^"",4)'9999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: AUG 01, 1990
HELP-PROMPT: Type a Number between 1 and 9999, 0 Decimal Digits
DESCRIPTION:
The Question Number to be used for the Question Text.
CROSS-REFERENCE: 50.07311^B
1)= S ^PS(50.0731,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^PS(50.0731,DA(1),1,"B",$E(X,1,30),DA)
50.07311,1 QUESTION TEXT 0;2 POINTER TO DUE QUESTION FILE (#50.0732)
LAST EDITED: AUG 01, 1990
DESCRIPTION:
The text of the question.
50.07311,2 ANSWER 1;1 FREE TEXT
INPUT TRANSFORM: K:X["""" X I $D(X) K:$L(X)>245!($L(X)<1) X
LAST EDITED: AUG 08, 1990
HELP-PROMPT: Answer must be 1-245 characters in length. THIS FIELD IS NOT ACTUALLY FREE TEXT SINCE THE INPUT
IS FURTHER RESTRICTED BY THE TYPE OF ANSWER REQUIRED IN THE DUE QUESTION FILE.
DESCRIPTION:
The Provider's response to the Question Text.
FILES POINTED TO FIELDS
DRUG (#50) DRUG (#2)
DUE QUESTION (#50.0732) QUESTION:QUESTION TEXT (#1)
DUE QUESTIONNAIRE (#50.073) QUESTIONNAIRE (#1)
DUE SECTION (#50.0733) SECTION (#8)
NEW PERSON (#200) PROVIDER (#4)
CREATED BY (#5)
LAST EDITED BY (#9)
OUTPATIENT SITE (#59) SITE/DIVISION (#10)
PATIENT (#2) PATIENT (#7)
PRESCRIPTION (#52) RX # (#3)
INPUT TEMPLATE(S):
PSOD DUE EDIT FEB 26, 1993@09:23 USER #0
PRINT TEMPLATE(S):
PSOD PRINT ANSWER SHEET FEB 26, 1993@09:25 USER #0 @
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):