Routine: YTSCL9R

Information

YTSCL9R ;ALB/ASF-SCL90 R SCORING ; 8/17/10 10:51am

Source file <YTSCL9R.m>

Name	Comments	DBIA/ICR reference
MAIN	;
RD
SS	;symptom scales
SS1	;
GSI	;global severity index
PST	;positive symptom total
PSDI	;positive symptom distress index
VALIDITY	;
TSCORE	; 1=outpatient, 2=nonpatients, 3= inpatients
TS1
LKUP	;
LKUP1	;
TRANS	;
TPST	; tscores for pst
EXTREME	;
EX1	;
REPT	;
REPT1	;
END
MULT	;multiple scoring returns Outpt norms

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Administration invalid: More than 18 items were omitted",!! Line Location: VALIDITY+2
Function Call: WRITE	Prompt: !!,"Norms for this age group not available",!! Line Location: VALIDITY+3
Function Call: WRITE	Prompt: !!,"Administration invalid: all questions were answered the same",!! Line Location: VALIDITY+4
Function Call: WRITE	Prompt: !!?(72-$L(X)\2),X,!!!?3,"S C A L E",?37,"RAW Outpatients Nonpatients Inpatients" Line Location: REPT+2
Function Call: WRITE	Prompt: !?3,$P($P(^YTT(601,YSTEST,"S",YSI,0),U,2),";",2),?37,$S(YSI=13:$J(YSRS,4,0),1:$J(YSRS,4,2)),$J(S1,8,0),$J(S2,13,0),$J(S3,13,0) Line Location: REPT1+3