Global: ^YTT(601

FileMan FileNo	FileMan Filename	Package
601	MH INSTRUMENT	Mental Health

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

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: