Routine: YTBECK

Information

YTBECK ;SLC/DKG-TEST PKG: BECK DEPRESSION SCALE ; 10/19/88 17:17 ;

Source file <YTBECK.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?21,$P(^YTT(601,YSTEST,"P"),U),!!,^YTT(601,YSTEST,"G",1,1,1,0),R,"." Line Location: YTBECK+4
Function Call: WRITE	Prompt: ! Line Location: YTBECK+5
Function Call: WRITE	Prompt: !,^YTT(601,YSTEST,"G",I,1,1,0) Line Location: YTBECK+5
Function Call: WRITE	Prompt: ! Line Location: YTBECK+7
Function Call: WRITE	Prompt: !,^YTT(601,YSTEST,"G",I,1,1,0) Line Location: YTBECK+7
Function Call: WRITE	Prompt: !!,"THIS SCORE IS CONSISTENT WITH A " Line Location: YTBECK+9
Function Call: WRITE	Prompt: $S(R<20:"MILD",R<23:"MILD TO MODERATE",R<26:"MODERATE",R<31:"MODERATE TO SEVERE",1:"SEVERE")," LEVEL OF DEPRESSION." Line Location: YTBECK+10
Function Call: WRITE	Prompt: ! Line Location: NX+2
Function Call: WRITE	Prompt: !!?(72-$L(Y)\2),Y,! Line Location: SY+2
Function Call: WRITE	Prompt: !,^YTT(601,YSTEST,"G",I+H,1,1,0) Line Location: SY+3
Function Call: WRITE	Prompt: ! Line Location: WAIT+6
Function Call: WRITE	Prompt: @IOF Line Location: WAIT+9