Routine: YTMCMI3R

Information

YTMCMI3R ;ALB/ASF,HIOFO/FT - MCMI3 REPORT ;4/29/13 2:44pm

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?(72-$L(X)\2),X,! Line Location: REPT+4
Function Call: WRITE	Prompt: !,"Duration of recent Axis I episode: " Line Location: REPT+7
Function Call: WRITE	Prompt: !,"Inconsistency (Scale W)="_$P(R,U,29),! Line Location: REPT+9
Function Call: WRITE	Prompt: !,$P(YSSID," ") Line Location: REPT+17
Function Call: WRITE	Prompt: ?5,$J($P(R,U,I),3)," ",$J($P(S,U,I),3)," " Line Location: REPT+18
Function Call: WRITE	Prompt: ?53,$P(YSSID," ",2,99) Line Location: REPT+20
Function Call: WRITE	Prompt: $E("***************************************************************",1,$J(X/3,0,0)) Line Location: CHART+3
Function Call: WRITE	Prompt: !!?10,"* Noteworthy Responses *" Line Location: NOTEWOR+2
Function Call: WRITE	Prompt: !,$J(I,3,0),". ",^YTT(601,YSTEST,"Q",I,"T",1,0) Line Location: NOTEWOR+11