Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Fields | Global Variables Directly Accessed | Naked Globals | Local Variables | All

Print Page as PDF

Global: ^YSTX(604.66

Package: Mental Health

Global: ^YSTX(604.66

Information

FileMan FileNo	FileMan Filename	Package
604.66	ASI QUICK FORM	Mental Health

Description

Data and executable code for administering the Addiction Severity Index. Branching, defaults, screen reminders and question wording are here. This is a static file and local modifications are not permitted.

Directly Accessed By Routines, Total: 7

Package	Total	Routines
Mental Health	7	YSASA2 YSASFM YSASO2 YSASOL YTQAPI14 ^YSTX(604.66 YTAPI8

Accessed By FileMan Db Calls, Total: 1

Package	Total	Routines
Mental Health	1	YSASFM

Fields, Total: 14

Field #	Name	Loc	Type	Details
.01	ORDER NUMBER	0;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `OCT 17, 1996` HELP-PROMPT: `Type a Number between 1 and 999999, 0 Decimal Digits` DESCRIPTION: `This field contains the ORDER NUMBER for administering the Addiction Severity Index. This field can also contain MUMPS code used for branching, defaults and screen reminders.` CROSS-REFERENCE: `604.66^B` `1)= S ^YSTX(604.66,"B",$E(X,1,30),DA)=""` `2)= K ^YSTX(604.66,"B",$E(X,1,30),DA)`
1	QUESTION	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>50!($L(X)<1) X` LAST EDITED: `OCT 25, 1996` HELP-PROMPT: `Answer must be 1-50 characters in length.` DESCRIPTION: `This field contains the Addiction Severity Index question. This reflects the ASI work sheet.` CROSS-REFERENCE: `604.66^C` `1)= S ^YSTX(604.66,"C",$E(X,1,30),DA)=""` `2)= K ^YSTX(604.66,"C",$E(X,1,30),DA)`
2	FIELD NUMBER	0;3	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<.001)!(X?.E1"."4N.N) X` LAST EDITED: `OCT 18, 1996` HELP-PROMPT: `Type a Number between .001 and 99999, 3 Decimal Digits` DESCRIPTION: `This field contains the corresponding field number in the file ADDICTION SEVERITY INDEX (#604), only if it is a question of the Addiction Severity Index interview.` CROSS-REFERENCE: `604.66^D` `1)= S ^YSTX(604.66,"D",$E(X,1,30),DA)=""` `2)= K ^YSTX(604.66,"D",$E(X,1,30),DA)`
3	FULL	0;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<1)!(X?.E1"."2N.N) X` LAST EDITED: `OCT 17, 1996` HELP-PROMPT: `Type a Number between 1 and 99999, 1 Decimal Digit` DESCRIPTION: `This field contains a numeric value if the entry has to do with the FULL version of the Addiction Severity Index.`
4	LITE	0;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<1)!(X?.E1"."2N.N) X` LAST EDITED: `OCT 17, 1996` HELP-PROMPT: `Type a Number between 1 and 99999, 1 Decimal Digit` DESCRIPTION: `This field contains a numeric value if the entry has to do with the LITE version of the Addiction Severity Index.`
5	FOLLOWUP	0;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<1)!(X?.E1"."2N.N) X` LAST EDITED: `OCT 17, 1996` HELP-PROMPT: `Type a Number between 1 and 99999, 1 Decimal Digit` DESCRIPTION: `This field contains a numeric value if the entry has to do with the FOLLOWUP version of the Addiction Severity Index.`
6	DEFAULT	0;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` LAST EDITED: `OCT 18, 1996` HELP-PROMPT: `Answer that will be entered if transcriber just hits ENTER. Answer must be 1-15 characters in length.` DESCRIPTION: `This field contains the value of the DEFAULT prompt for a question of the Addiction Severity Index.`
8	ENTRY EXECUTE	0;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>100!($L(X)<1) X` LAST EDITED: `OCT 29, 1996` HELP-PROMPT: `Answer must be 1-100 characters in length.` DESCRIPTION: `This field contains M code to be executed at time of data entry.`
10	EXIT EXECUTE	1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>200!($L(X)<1) X` LAST EDITED: `OCT 29, 1996` HELP-PROMPT: `Answer must be 1-200 characters in length.` DESCRIPTION: `This field contains M code that is executed upon exiting to the next question.`
11	REQUIRED	0;8	SET	'1' FOR REQUIRED; LAST EDITED: `FEB 14, 1997` DESCRIPTION: `This field contains a value if the entry is required for scoring the Addiction Severity Index.`
12	ID	0;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<2) X` LAST EDITED: `FEB 19, 1997` HELP-PROMPT: `Answer must be 2-8 characters in length.` DESCRIPTION: `The ID field in the ASI QUICK file is the shortest unique humanly readable text to identify each question and sometimes sub-question on the ASI.It is used in the full screen administration mode at the top of each question,` `as a terse listing of missing required fields and used to determine the section a question belongs to. These IDs match the question ID on the printed ASI forms. An ID is the combination of the section letter ie M for` `medical, L for legal and the question number for that section eg E2, L17. Sometimes a question has multiple parts and this is reflected in the ID eg E6 Yrs, E6 Mons.`
13	VERBOSE QUESTION	2;0	WORD-PROCESSING #604.6613	DESCRIPTION: `This field contains the full wording of each question of the Addiction Severity Index.` LAST EDITED: `MAR 07, 1997` DESCRIPTION: `Full text of the question`
14	HINT	3;0	WORD-PROCESSING #604.6614	DESCRIPTION: `This field contains helpful hints to be viewed when administering the Addiction Severity Index on-line.` LAST EDITED: `MAR 09, 1997`
15	REPHRASE	0;10	SET	'1' FOR YES; LAST EDITED: `MAR 19, 1998` DESCRIPTION: `Questions that are cumulative and should be rephrased to add "Since the last interview.. "`

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^YSTX(604.66 - [#604.66]	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K)

Naked Globals

Name	Field # of Occurrence
^(0	ID1+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K)
U	ID1+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 1+1!, 1(XREF 1S), 1(XREF 1K), 2+1!, 2(XREF 1S), 2(XREF 1K), 3+1! , 4+1!, 5+1!, 6+1!, 8+1!, 10+1!, 12+1!

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Fields | Global Variables Directly Accessed | Naked Globals | Local Variables | All