Global: ^YTT(601

FileMan FileNo	FileMan Filename	Package
601	MH INSTRUMENT	Mental Health

Package	Total	Routines
Mental Health	125	YIHIST YIPROB YS105PRE YS119PS2 YS204PST YS239PST YS31POST YSMTI0 YSMTI2 YSMTI3 YSMTI4 YSMTI5 YSTUSE YSXRAB4 YTAPI2 YTAPI3 YTAPI4 YTAPI5 YTAPI7 YTAPI9 YTAR YTAR1 YTAR2 YTAUDIT YTAUIR YTAUIRR YTCHECK YTDEMO YTDESC YTDP YTEXT YTEXT1 YTFIRO YTKILINC YTLIST YTMATE YTMBMD1 YTMCMI2A YTMCMI3A YTMMP1 YTMMPI2 ^YTT(601 TEST SCALE NUMBER YIHISTF YIPHYD YS217PST YS234PST YS238PST YSDSS YSMTI YSMTI1 YSMTI6 YSMTI7 YSXRAB1 YSXRAB2 YSXRAB3 YTACL YTAIMS YTAPI YTAPI1 YTAPI10 YTAPI10A YTAPI6 YTBECK YTBI YTBPRS YTBSI18 YTCESD YTCLERK YTCLERK1 YTCROSS YTDOMR1 YTDP1 YTDRIV YTFEAR YTFILE YTKIL YTMBMD YTMBMD2 YTMCMI YTMCMI2 YTMCMI2C YTMCMI2D YTMCMI3 YTMCMI3R YTMILL YTMMP2 YTMMP3 YTMMP4 YTMMP5 YTMMP6 YTMMP7 YTMMPI YTMMPI2A YTMMPI2B YTMMPI2D YTMMPI2P YTMYER YTNEOPI YTNEOPI1 YTNEOPI2 YTONLY YTPAI YTPAI1 YTPCL YTPHQ9 YTPIT YTPSI YTQAPI14 YTQAPI5 YTQAPI8 YTQAPI9 YTQPXRM1 YTQPXRM2 YTQPXRM3 YTQPXRM6 YTQPXRM7 YTREPT YTRPEXT YTS YTSCII YTSCL9R YTSCL9R1 YTSF36 YTTLS
Clinical Reminders	1	PXRMP6ID

Package	Total	Routines
Clinical Reminders	1	PXRMP6IM
DSS Extracts	1	ECX324MH
Mental Health	1	YTLIST

Package	Total	FileMan Files
Mental Health	3	PSYCH INSTRUMENT PATIENT(#601.2)[#601.21(.01)] INCOMPLETE PSYCH TEST PATIENT(#601.4)[#601.41(.01), #601.41(9)] MH MULTIPLE SCORING(#601.6)[.01]
Clinical Reminders	2	REMINDER FINDING ITEM PARAMETER(#801.43)[.02] REMINDER EXTRACT SUMMARY(#810.3)[#810.31(.04), #810.32(.01)]

Package	Total	FileMan Files
Kernel	1	NEW PERSON(#200)[37]
Mental Health	1	COPYRIGHT HOLDER(#601.3)[9]

Fields, Total: 38

Field #	Name	Loc	Type	Details
.01	INSTRUMENT	0;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X` `MAXIMUM LENGTH: 50` LAST EDITED: `SEP 28, 2022` HELP-PROMPT: `Answer must be 3-50 characters in length.` DESCRIPTION: `Three to fifty character instrument CODE or name.` CROSS-REFERENCE: `601^B` `1)= S ^YTT(601,"B",$E(X,1,30),DA)=""` `2)= K ^YTT(601,"B",$E(X,1,30),DA)`
1	ITEM NUMBER	Q;0	Multiple #601.02	601.02 DESCRIPTION: `This is a multiple valued field with subfields.`
2	TEST ENTRY MODE	0;2	SET	'I' FOR INTERACTIVE ONLY; LAST EDITED: `JUL 08, 1987` DESCRIPTION: `This field will be set to "I" only if the instrument should be administered 'Interactively'.`
3	TEST CLERICAL ENTRY NUMBER	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>1000)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 19, 1986` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 1000` DESCRIPTION: `This is the number of items on the clerical (paper form).`
4	TEST CLERICAL ENTRY STRING	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `AUG 19, 1986` HELP-PROMPT: `ANSWER MUST BE 1-10 CHARACTERS IN LENGTH` DESCRIPTION: `This a string of valid entry option on the clerical (paper form). Such as '012345' or 'ABCDE '.`
5	TEST UNIT PRICE	0;5	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>100)!(X<.01) X` LAST EDITED: `DEC 02, 1988` HELP-PROMPT: `Type a Dollar Amount between .01 and 100, 2 Decimal Digits` DESCRIPTION: `This is the dollar amount (price) for administering the test/interview. This is the price per single test/interview.`
6	ADMINISTRATION CODE	A;E1,240	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X I $D(X),X]"" D ^DIM I '$D(X) W *7," INVALID MUMPS STATEMENT"` LAST EDITED: `DEC 02, 1992` HELP-PROMPT: `Answer must be 1-240 characters in length.` DESCRIPTION: `This is the MUMPS code used to administer the instrument. Such as: D ^YTDRIV` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
7	REPORT CODE	R;E1,240	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X I $D(X),X]"" D ^DIM I '$D(X) W *7," INVALID MUMPS STATEMENT"` LAST EDITED: `AUG 19, 1988` HELP-PROMPT: `ANSWER MUST BE 1-240 CHARACTERS IN LENGTH` DESCRIPTION: `This is the MUMPS code used to report the instrument's results. Such as: D ^YTMMPI`
8	CLERK TEST TRANSFORMATION CODE	T;E1,240	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X I $D(X),X]"" D ^DIM I '$D(X) W *7," INVALID MUMPS STATEMENT"` LAST EDITED: `AUG 19, 1988` HELP-PROMPT: `ANSWER MUST BE 1-240 CHARACTERS IN LENGTH` DESCRIPTION: `This is MUMPS code used to select or convert clerk entered input and alter order of items. This is used by the developer only.`
9	TEST COPYRIGHT HOLDER	0;6	POINTER TO COPYRIGHT HOLDER FILE (#601.3)	COPYRIGHT HOLDER(#601.3) LAST EDITED: `JAN 09, 1987` DESCRIPTION: `This is the name of the copyright holder, usually a shortened code representing the copyright name. Stored is the pointer value, pointing to the COPYRIGHT HOLDER file #601.3.`
10	TEST COPYRIGHT DATE	0;7	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 19, 1986` DESCRIPTION: `This is the date of the specific copyright. Useful for identifing versions of the instrument.`
11	TEST TYPE	0;8	SET	'V' FOR VOCATIONAL; LAST EDITED: `DEC 10, 1986` DESCRIPTION: `If the test is 'VOCATIONAL' in nature and use, this field will be set to "V", otherwise it will be blank.`
13	PRINT TITLE	P;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>79!($L(X)<1) X` LAST EDITED: `AUG 08, 1986` HELP-PROMPT: `ANSWER MUST BE 1-79 CHARACTERS IN LENGTH` DESCRIPTION: `This is the instrument displayed and printed title. It is the complete name of the instrument.`
14	TEST MAX SCALE LENGTH	P;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>79)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 08, 1986` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 79` DESCRIPTION: `This is the numeric maximum lenght of the scale.`
15	TEST SCALE TYPE	P;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<1) X` LAST EDITED: `AUG 08, 1986` HELP-PROMPT: `ANSWER MUST BE 1-4 CHARACTERS IN LENGTH` DESCRIPTION: `This is the scale type, a 1 to 4 character identification. Such as: ' RAW', ' T', and 'STEN'.`
16	TEST SCALE NUMBER	S;0	Multiple #601.01	601.01 DESCRIPTION: `This is a multiple valued field with subfields.` IDENTIFIED BY: `SCALE NAME(#.5)`
17	GENERAL REPORT TEXT NO.	G;0	Multiple #601.06	601.06 DESCRIPTION: `This is a multiple valued field with subfields.`
18	MALE REPORT TEXT NUMBER	M;0	Multiple #601.08	601.08 DESCRIPTION: `This is a multiple valued field with subfields.`
19	FEMALE REPORT TEXT NUMBER	F;0	Multiple #601.1	601.1 DESCRIPTION: `This is a multiple valued field with subfields.`
20	INSTRUMENT TYPE	0;9	SET	'I' FOR INTERVIEW; 'T' FOR TEST; 'B' FOR BATTERY; 'U' FOR UTILITY; LAST EDITED: `AUG 08, 1988` DESCRIPTION: `This is a SET of CODES: "I" for Interview, "T" for Test, "B" for Battery of tests (Group of tests) and "U" for Utility (such as DEMO).` CROSS-REFERENCE: `601^AI` `1)= S ^YTT(601,"AI",$E(X,1,30),DA)=""` `2)= K ^YTT(601,"AI",$E(X,1,30),DA)` CROSS-REFERENCE: `601^ATN^MUMPS` `1)= S ^YTT(601,"ATN",X,$P(^YTT(601,DA,0),U,1),DA)=""` `2)= K ^YTT(601,"ATN",X,$P(^YTT(601,DA,0),U,1),DA)`
21	EXEMPT TEST	0;10	SET	'Y' FOR YES; LAST EDITED: `JUL 08, 1987` DESCRIPTION: `This field, if SET to "Y", indicates that the test is EXEMPT from APA guidlines for training. All Mental Health professionals have access to exempt tests.` CROSS-REFERENCE: `601^AE` `1)= S ^YTT(601,"AE",$E(X,1,30),DA)=""` `2)= K ^YTT(601,"AE",$E(X,1,30),DA)`
22	NUMBER OF ITEMS	0;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 02, 1987` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 9999` DESCRIPTION: `This is the number of questions.`
23	NUMBER OF TEST SCALES	0;12	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 02, 1987` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 999` DESCRIPTION: `This is the number of scales used to report patient evaluations for the specific instrument.`
24	TEST AUTHORS	1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X` LAST EDITED: `JAN 02, 1987` HELP-PROMPT: `ANSWER MUST BE 1-240 CHARACTERS IN LENGTH` DESCRIPTION: `This is the name of the instrument's AUTHOR.`
25	TEST PUBLISHER	2;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X` HELP-PROMPT: `ANSWER MUST BE 1-240 CHARACTERS IN LENGTH` DESCRIPTION: `This is the name of the PUBLISHER.`
26	TEST FORM	3;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X` LAST EDITED: `JAN 02, 1987` HELP-PROMPT: `ANSWER MUST BE 1-240 CHARACTERS IN LENGTH` DESCRIPTION: `This is the name of the TEST FORM for the instrument administered. For example: "1987 Revision", "R", "FIRO-B" or "SHORT FORM 370 QUESTIONS".`
27	TEST NORMS DESCRIPTION	6;0	WORD-PROCESSING #601.12	DESCRIPTION: `This is a word processing field which describes the TEST NORMS. For example: "Tentative norms based upon a sample of 85 college men and 88 college woman." or "No norms provided. Average score is probably near 4.5".` LAST EDITED: `JAN 02, 1987`
28	TEST USES	7;0	WORD-PROCESSING #601.13	DESCRIPTION: `This is a word processing field that describes the USES of the test.` LAST EDITED: `JAN 02, 1987`
29	TEST REPORT DESCRIPTION	8;0	WORD-PROCESSING #601.14	DESCRIPTION: `This is a word processing field which describes the reports that can be derived from the testing instrument.` LAST EDITED: `JAN 02, 1987`
30	INTERVIEW SOURCE	4;0	WORD-PROCESSING #601.15	DESCRIPTION: `This is the SOURCE from which the INTERVIEW was derived. For Example: "Based upon the Duke University interview developed by Hugh Angle."` LAST EDITED: `JAN 02, 1987`
31	INTERVIEW DESCRIPTION	5;0	WORD-PROCESSING #601.16	DESCRIPTION: `This is a word processing field which describes the INTERVIEW. For example: "A relatively comprehensive history aimed at the alcoholic or problem drinker."` LAST EDITED: `JAN 02, 1987`
32	OPERATIONAL	0;13	SET	'N' FOR NO; LAST EDITED: `JUL 08, 1987` DESCRIPTION: `This field when SET to "N" indicates that the instrument is NOT operational. This allows the instrument to remain in the data base but can NOT be USED.`
33	SPECIAL ADMIN CODE	C;E1,240	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X I $D(X),X]"" D ^DIM I '$D(X) W *7," INVALID MUMPS STATEMENT"` LAST EDITED: `NOV 30, 1992` HELP-PROMPT: `Answer must be 1-240 characters in length.` DESCRIPTION: `This is executeable MUMPS code which helps or directs the administration of the instrument.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
34	FORM NAME	P;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `MAR 05, 1987` HELP-PROMPT: `ANSWER MUST BE 1-30 CHARACTERS IN LENGTH` DESCRIPTION: `This is the name of the CLERICAL form for the instrument, such as "AUI-R" or "Revised".`
35	LICENSE STATUS	0;14	SET	'N' FOR NONE; LAST EDITED: `MAR 20, 1987` DESCRIPTION: `This field, if SET to "N", indicates that NO LICENSE agreement exists for the instrument.`
36	FORM NUMBER	P;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` LAST EDITED: `APR 04, 1987` HELP-PROMPT: `ANSWER MUST BE 1-15 CHARACTERS IN LENGTH` DESCRIPTION: `This a the FORM NUMBER for the CLERICAL form of the instrument, such as form number "A" or form number "1987".`
37	EXEMPT BY	0;15	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `NOV 03, 1992` DESCRIPTION: `Name of person flagging the instrument as 'Yes' in the 'EXEMPT TEST' field.`
38	DAY LIMIT FOR RESTART	0;16	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>365)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 27, 1991` HELP-PROMPT: `Type a Number between 1 and 365, that will reflect the maximum number of days that may elapse after which this instrument CANNOT be restarted, zero decimal digits.` DESCRIPTION: `This field will reflect the value for the maximum number of days that may elapse between an interuption of this instrument and the restart of this instrument. This value, in days, will be used for this instrument ONLY and` `override the value in the Mental Health Site file.` `Note that in both fields the day limit is inclusive, so that as long as the elapsed days do not exceed this value then the instrument may be restarted.`

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	10+1*
>> DA	.01(XREF 1S), .01(XREF 1K), 20(XREF 1S), 20(XREF 1K), 20(XREF 2S), 20(XREF 2K), 21(XREF 1S), 21(XREF 1K)
U	20(XREF 2S), 20(XREF 2K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 3+1!, 4+1!, 5+1!, 6+1!, 7+1!, 8+1!, 10+1! , 13+1!, 14+1!, 15+1!, 20(XREF 1S), 20(XREF 1K), 20(XREF 2S), 20(XREF 2K), 21(XREF 1S), 21(XREF 1K), 22+1! , 23+1!, 24+1!, 25+1!, 26+1!, 33+1!, 34+1!, 36+1!, 38+1!
>> Y	10+1

Customize PDF page

Package: Mental Health

Global: ^YTT(601

Information

Description

Directly Accessed By Routines, Total: 128

Accessed By FileMan Db Calls, Total: 3

Pointed To By FileMan Files, Total: 5

Pointer To FileMan Files, Total: 2

Fields, Total: 38

ICR, Total: 1

External References

Global Variables Directly Accessed

Local Variables

Legend: