STANDARD DATA DICTIONARY #601.2 -- PSYCH INSTRUMENT PATIENT FILE 9/29/25 PAGE 1
STORED IN ^YTD(601.2, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.01)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This is a dynamic file which stores the results of psychological tests and interviews.
COMPILED CROSS-REFERENCE ROUTINE: YSXRAC
CROSS
REFERENCED BY: COMPLETION DATE(AD), NAME(B)
INDEXED BY: COMPLETION DATE (ACR)
601.2,.01 NAME 0;1 POINTER TO PATIENT FILE (#2) (Required)
INPUT TRANSFORM: S DINUM=X
LAST EDITED: JUN 17, 1987
DESCRIPTION:
This is the Patient's name. Actually stored is a pointer value to the Patient file #2.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 601.2^B
1)= S ^YTD(601.2,"B",$E(X,1,30),DA)=""
2)= K ^YTD(601.2,"B",$E(X,1,30),DA)
601.2,1 INSTRUMENT 1;0 POINTER Multiple #601.21 (Add New Entry without Asking)
DESCRIPTION:
This is a multiple valued field with subfields.
601.21,.01 INSTRUMENT 0;1 POINTER TO MH INSTRUMENT FILE (#601)
INPUT TRANSFORM: S DINUM=X
LAST EDITED: JUN 17, 1987
DESCRIPTION: This is the Instrument Code (unique name), actually stored in this field is the pointer value
pointing to the INSTRUMENT file #601.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 601.21^B
1)= S ^YTD(601.2,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^YTD(601.2,DA(1),1,"B",$E(X,1,30),DA)
601.21,1 DATE 1;0 DATE Multiple #601.22 (Add New Entry without Asking)
DESCRIPTION:
This is a multiple valued field with subfields.
601.22,.01 COMPLETION DATE 0;1 DATE
INPUT TRANSFORM: S %DT="EX",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X S DINUM=X K %DT(0)
LAST EDITED: NOV 06, 2000
DESCRIPTION:
This is the date the test/interview was completed.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 601.2^AD^MUMPS
1)= D SET^YTCROSS
2)= D KILL^YTCROSS
RECORD INDEXES: ACR (#476) (WHOLE FILE #601.2)
601.22,1 DEVICE 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
DESCRIPTION: This is the device from which the test was administered. This field has become of little value
because of virtual terminals.
601.22,2 ORDERED BY 0;3 POINTER TO NEW PERSON FILE (#200)
DESCRIPTION: This is the name of the clinician ordering the administration of this instrument to this
patient. Actually stored in the field is the pointer value pointing to the clinician in the
NEW PERSON file #200.
601.22,3 ENTERED BY 0;4 POINTER TO NEW PERSON FILE (#200)
DESCRIPTION: This the name of the person who entered the test/interview or who setup the testing for patient
entry. Actually stored is the pointer value pointing to the NEW PERSON file #200.
601.22,4 ADMINISTRATION DATE 0;5 DATE
INPUT TRANSFORM: S %DT="EX",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X K %DT(0)
LAST EDITED: NOV 06, 2000
DESCRIPTION:
This is the date the test/interview was administered.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
601.22,5 RESPONSE STRING1 1;E1,200 FREE TEXT
INPUT TRANSFORM: K:$L(X)>200!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-200 CHARACTERS IN LENGTH
DESCRIPTION: This is a STRING of responses, 1 to 200 characters in length, they are position dependent. For
example: if the instrument asked sixteen TRUE & FALSE questions, the string would contain 16
T's and/or F's (TTFFFTFTFTFTTTFF), this string indicates answers 1 & 2 were TRUE and answers 3
thru 5 were FALSE, and so on.
601.22,6 RESPONSE STRING2 2;E1,200 FREE TEXT
INPUT TRANSFORM: K:$L(X)>200!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-200 CHARACTERS IN LENGTH
DESCRIPTION:
This is a STRING of responses, a continuation from RESPONSE STRING1.
601.22,7 RESPONSE STRING3 3;E1,200 FREE TEXT
INPUT TRANSFORM: K:$L(X)>200!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-200 CHARACTERS IN LENGTH
DESCRIPTION:
This is a STRING of responses, a continuation from RESPONSE STRING2.
601.22,7.2 RESPONSE STRING4 4;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>200!($L(X)<1) X
LAST EDITED: JUN 15, 1988
HELP-PROMPT: ANSWER MUST BE 1-200 CHARACTERS IN LENGTH
DESCRIPTION:
This is a STRING of responses.
601.22,7.3 RESPONSE STRING5 5;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>200!($L(X)<1) X
LAST EDITED: JUN 15, 1988
HELP-PROMPT: ANSWER MUST BE 1-200 CHARACTERS IN LENGTH
DESCRIPTION:
This is a STRING of responses.
601.22,7.4 RESPONSE STRING 6 6;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>200!($L(X)<1) X
LAST EDITED: JUN 15, 1988
HELP-PROMPT: ANSWER MUST BE 1-200 CHARACTERS IN LENGTH
DESCRIPTION:
This is a STRING of responses.
601.22,7.5 RESPONSE STRING 99 99;E1,245 FREE TEXT
INPUT TRANSFORM: K:$L(X)>200!($L(X)<1) X
LAST EDITED: JUN 16, 1987
HELP-PROMPT: ANSWER MUST BE 1-200 CHARACTERS IN LENGTH
DESCRIPTION: This is a STRING of responses, 1 to 245 characters in length. This is used for specific
instruments.
601.22,8 SCORE SET1 100;E1,245 FREE TEXT
INPUT TRANSFORM: K:$L(X)>245!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-245 CHARACTERS IN LENGTH
DESCRIPTION: This is testing results, usually numeric values separated by a delimitor. Not all instruments
will have recorded SCORE SETS.
601.22,9 SCORE SET2 101;E1,245 FREE TEXT
INPUT TRANSFORM: K:$L(X)>245!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-245 CHARACTERS IN LENGTH
DESCRIPTION:
This is testing results.
601.22,10 SCORE SET3 102;E1,245 FREE TEXT
INPUT TRANSFORM: K:$L(X)>245!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-245 CHARACTERS IN LENGTH
DESCRIPTION:
This is testing results.
601.22,10.5 SCORE SET4 103;E1,245 FREE TEXT
INPUT TRANSFORM: K:$L(X)>245!($L(X)<1) X
LAST EDITED: JUN 16, 1987
HELP-PROMPT: ANSWER MUST BE 1-245 CHARACTERS IN LENGTH
DESCRIPTION:
This is testing results.
601.22,10.6 SCORE SET5 104;E1,245 FREE TEXT
INPUT TRANSFORM: K:$L(X)>245!($L(X)<1) X
LAST EDITED: JUN 16, 1987
HELP-PROMPT: ANSWER MUST BE 1-245 CHARACTERS IN LENGTH
DESCRIPTION:
This is testing results.
601.22,11 ENTRY MODE 0;6 SET
'1' FOR CLERK;
'2' FOR ON-LINE;
LAST EDITED: MAR 09, 1987
DESCRIPTION: This is a set of codes; '1' means instrument was CLERK ENTERED, '2' means instrument was
ENTERED ON-LINE.
601.22,12 STATION NUMBER 0;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<111)!(X?.E1"."1N.N) X
LAST EDITED: JAN 21, 1987
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 111 AND 9999
DESCRIPTION: This is the Station number of the person administering the instrument. It is derived from
their DUZ(2). Used mostly for billing purposes.
601.22,13 STAFF COMMENTS ENTRY DATE R;0 DATE Multiple #601.2213
DESCRIPTION:
This is a multiple valued field with subfields.
601.2213,.01 STAFF COMMENTS ENTRY DATE 0;1 DATE
INPUT TRANSFORM:S %DT="",X="T" D ^%DT S X=$P($H,",",2),Y=Y_"."_$E(0,1,2-$L(X\3600))_(X\3600)_$E(0,1,2-$L(X#3600
\60))_(X#3600\60)_$E(0,1,2-$L(X#60))_(X#60),Y=+Y,X=Y K:Y<1 X
LAST EDITED: AUG 06, 1987
DESCRIPTION:
This is the system date the COMMENTS were entered.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
601.2213,1 DATE OF COMMENT 0;2 DATE (Required)
INPUT TRANSFORM:S %DT="ETX",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X K %DT(0)
LAST EDITED: NOV 06, 2000
DESCRIPTION:
This is the date the author wrote or dictated the COMMENTS.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:601.2213^AD
1)= S ^YTD(601.2,DA(3),1,DA(2),1,DA(1),"R","AD",$E(X,1,30),DA)=""
2)= K ^YTD(601.2,DA(3),1,DA(2),1,DA(1),"R","AD",$E(X,1,30),DA)
601.2213,2 TRANSCRIBER 0;3 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUL 31, 1987
DESCRIPTION:This is the name of the person who entered the comments. Actually stored is the pointer value
pointing to the person in the NEW PERSON file #200.
601.2213,3 AUTHOR 0;4 POINTER TO NEW PERSON FILE (#200) (Required)
LAST EDITED: APR 01, 1992
DESCRIPTION:This is the name of the person who AUTHORED the comment. Actually stored is the pointer value
pointing to the person in the NEW PERSON file #200.
601.2213,4 ELECTRONIC SIGNATURE 0;5 SET
'0' FOR NOT SIGNED;
'1' FOR SIGNED;
LAST EDITED: APR 01, 1992
HELP-PROMPT:The individual signing must also be the author.
DESCRIPTION:
Currently NOT USED. Intended as flag: '0' for not signed, '1' for signed.
SCREEN: S DIC("S")="I 1 Q:'Y I DUZ=$P(^YTD(601.2,DA(3),1,DA(2),1,DA(1),""R"",DA,0),U,4) D SIG^XUSESIG I $G
(X)]"""""
EXPLANATION:In order to change the status to signed you MUST be the author of the comments, and a verification
of your electronic signature is required.
601.2213,5 DATE/TIME SIGNED 0;6 DATE
INPUT TRANSFORM:S %DT="ETXR",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X K %DT(0)
LAST EDITED: NOV 06, 2000
DESCRIPTION:
Current NOT USED. Intended to be DATE/TIME the comments were signed.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
601.2213,6 COSIGNER 0;7 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM:S DIC("S")="I 1" D ^DIC K DIC S DIC=DIE,X=+Y D SIG^XUSESIG(Y,.Y) K:Y<0 X D ^DIC K DIC S DIC=DIE
,X=+Y K:Y<0 X
LAST EDITED: SEP 14, 1993
DESCRIPTION:
Currently NOT USED. Intended as name of the person who cosigned the comments.
SCREEN: S DIC("S")="I 1" D ^DIC K DIC S DIC=DIE,X=+Y D SIG^XUSESIG(Y,.Y) K:Y<0 X
EXPLANATION:CURRENTLY NOT USED. Intended to be the name of the person who cosigned the comments.
601.2213,7 ELECTRONIC SIGNATURE (COSIGN) 0;8 POINTER TO NEW PERSON FILE (#200)
DESCRIPTION:
Currently NOT USED. Intended to be the name of the person who cosigned the comments.
601.2213,8 DATE/TIME COSIGNED 0;9 DATE
INPUT TRANSFORM:S %DT="ETXR",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X K %DT(0)
LAST EDITED: NOV 06, 2000
DESCRIPTION:
Currently NOT USED. Intended as DATE and TIME the comments were cosigned.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
601.2213,9 COMMENT 1;0 WORD-PROCESSING #601.22139
DESCRIPTION:
This the actual comment (word processing) field.
LAST EDITED: JUL 31, 1987
DESCRIPTION:
The COMMENT appended to the instrument results.
601.22,14 DATE BEGUN 0;8 DATE
INPUT TRANSFORM:S %DT="EX",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X K %DT(0)
LAST EDITED: NOV 06, 2000
DESCRIPTION:
This is the date the test/interview was started.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
FILES POINTED TO FIELDS
MH INSTRUMENT (#601) INSTRUMENT:INSTRUMENT (#.01)
NEW PERSON (#200) DATE:ORDERED BY (#2)
ENTERED BY (#3)
STAFF COMMENTS ENTRY DATE:TRANSCRIBER (#2)
AUTHOR (#3)
COSIGNER (#6)
ELECTRONIC SIGNATURE (COSIGN) (#7)
PATIENT (#2) NAME (#.01)
Subfile #601.22
Record Indexes:
ACR (#476) RECORD MUMPS IR ACTION WHOLE FILE (#601.2)
Short Descr: Clinical Reminders cross-reference.
Description: This cross-reference builds two indexes, one for finding all patients with a particular mental health
instrument and one for finding all the mental health instruments a patient has. The index is stored in the
Clinical Reminders index global as:
^PXRMINDX(601.2,"IP",INSTRUMENT,DFN,COMPLETION DATE,DAS)
^PXRMINDX(601.2,"PI",DFN,INSTRUMENT,COMPLETION DATE,DAS) For all the details, see the Clinical Reminders Index
Technical Guide/Programmer's Manual.
Set Logic: D SMH^YTPXRM(.X,.DA)
Kill Logic: D KMH^YTPXRM(.X,.DA)
Whole Kill: K ^PXRMINDX(601.2)
X(1): COMPLETION DATE (601.22,.01) (Subscr 1) (forwards)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):