Routine: YTCESD

Information

YTCESD ;ALB/ASF- CESD DEPRESSION SCALE ;7/17/03 10:20

Source file <YTCESD.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?10,$P(^YTT(601,YSET,"P"),U) Line Location: YTCESD+12
Function Call: WRITE	Prompt: !!,"CES-D score= ",R," A score of 16 or more is considered depressed." Line Location: YTCESD+13
Function Call: WRITE	Prompt: ! Line Location: YTCESD+15
Function Call: WRITE	Prompt: !?3,$E(^YTD(601.2,YSDFN,1,YSET,1,YSED,1),I) Line Location: YTCESD+18
Function Call: WRITE	Prompt: "-" Line Location: YTCESD+19
Function Call: WRITE	Prompt: ?6,^YTT(601,YSET,"Q",I,"T",1,0) Line Location: YTCESD+20
Function Call: WRITE	Prompt: !!,"0= less than a day 1= 1-2 days 2= 3-4 days 3= 5-7 days" Line Location: YTCESD+22
Function Call: WRITE	Prompt: !!?10,$P(^YTT(601,YSET,"P"),U) Line Location: CESD5+9
Function Call: WRITE	Prompt: !!,"CES-D5 score= ",R," A score of 4 or more is a positive depression screen." Line Location: CESD5+10
Function Call: WRITE	Prompt: ! Line Location: CESD5+11
Function Call: WRITE	Prompt: !?3,$E(^YTD(601.2,YSDFN,1,YSET,1,YSED,1),I) Line Location: CESD5+14
Function Call: WRITE	Prompt: "-" Line Location: CESD5+15
Function Call: WRITE	Prompt: ?6,$E(^YTT(601,YSET,"Q",I,"T",1,0),1,45) Line Location: CESD5+16
Function Call: WRITE	Prompt: !!,"0= less than a day 1= 1-2 days 2= 3-4 days 3= 5-7 days" Line Location: CESD5+18
Function Call: WRITE	Prompt: ! Line Location: WAIT+3
Function Call: WRITE	Prompt: @IOF Line Location: WAIT+6