Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: YTSCL9R1

Package: Mental Health

Routine: YTSCL9R1


Information

YTSCL9R1 ;ALB/ASF-SCL90 R CONTINUED ;1/5/96 08:54

Source Information

Source file <YTSCL9R1.m>

Entry Points

Name Comments DBIA/ICR reference
A ;
L ;
W ;
END ;
WL ;
WS ;
BOTTOM ;
NOTE ;symptoms of note (4 or 3)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?25,"SCL-90-R CLINICAL PROFILE",!?3,"T-score",?70,"Percentile"
  • Line Location: YTSCL9R1+3
Function Call: WRITE
  • Prompt: !?5,YSLL,"|"
  • Line Location: WL+2
Function Call: WRITE
  • Prompt: $S(B(I):" *"_$E(YSAST(I)_" ",1,2),1:" ")
  • Line Location: WL+3
Function Call: WRITE
  • Prompt: "|"
  • Condition for execution: I=9
  • Line Location: WL+3
Function Call: WRITE
  • Prompt: "|",$S(YSLV=30:2,YSLV=35:7,YSLV=40:16,YSLV=45:30,YSLV=50:50,YSLV=55:70,YSLV=60:84,YSLV=65:93,YSLV=70:98,YSLV=75:99,1:"")
  • Line Location: WL+5
Function Call: WRITE
  • Prompt: !?5,YSLL,"|"
  • Line Location: WS+2
Function Call: WRITE
  • Prompt: $S(B(I):"--*"_$E(YSAST(I)_"--",1,2),1:"-----")
  • Line Location: WS+3
Function Call: WRITE
  • Prompt: "|"
  • Condition for execution: I=9
  • Line Location: WS+3
Function Call: WRITE
  • Prompt: "|",$S(YSLV=30:2,YSLV=35:7,YSLV=40:16,YSLV=45:30,YSLV=50:50,YSLV=55:70,YSLV=60:84,YSLV=65:93,YSLV=70:98,YSLV=75:99,1:"")
  • Line Location: WS+4
Function Call: WRITE
  • Prompt: !,?11
  • Line Location: BOTTOM+1
Function Call: WRITE
  • Prompt: " "_$P($P(^YTT(601,YSTEST,"S",I,0),U,2),";")_" "
  • Line Location: BOTTOM+1
Function Call: WRITE
  • Prompt: !!," T non-pt."
  • Line Location: BOTTOM+2
Function Call: WRITE
  • Prompt: $J($P(S(2),U,I),5,0)
  • Line Location: BOTTOM+2
Function Call: WRITE
  • Prompt: $J($P(S(2),U,I),5,0)
  • Line Location: BOTTOM+2
Function Call: WRITE
  • Prompt: !," Raw Score"
  • Line Location: BOTTOM+3
Function Call: WRITE
  • Prompt: $J($P(R,U,I),5,2)
  • Line Location: BOTTOM+3
Function Call: WRITE
  • Prompt: $J($P(R,U,I),5,2)
  • Line Location: BOTTOM+3
Function Call: WRITE
  • Prompt: $J($P(R,U,13),5,0)
  • Line Location: BOTTOM+4
Function Call: WRITE
  • Prompt: !," T out-pt."
  • Line Location: BOTTOM+5
Function Call: WRITE
  • Prompt: $J($P(S(1),U,I),5,0)
  • Line Location: BOTTOM+5
Function Call: WRITE
  • Prompt: $J($P(S(1),U,I),5,0)
  • Line Location: BOTTOM+5
Function Call: WRITE
  • Prompt: !," T in-pt. "
  • Line Location: BOTTOM+6
Function Call: WRITE
  • Prompt: $J($P(S(3),U,I),5,0)
  • Line Location: BOTTOM+6
Function Call: WRITE
  • Prompt: $J($P(S(3),U,I),5,0)
  • Line Location: BOTTOM+6
Function Call: WRITE
  • Prompt: !!?10,"SYMPTOMS OF NOTE"
  • Line Location: NOTE+3
Function Call: WRITE
  • Prompt: !!?3,"The patient endorsed 'Extremely' distressd for the following:"
  • Line Location: NOTE+4
Function Call: WRITE
  • Prompt: !!?5,"No items endorsed 'extremely' distressed."
  • Line Location: NOTE+5
Function Call: WRITE
  • Prompt: !!?3,"The patient endorsed 'moderately' distressd for the following:"
  • Line Location: NOTE+8
Function Call: WRITE
  • Prompt: !!?5,"No items endorsed 'moderately' distressed."
  • Line Location: NOTE+9
Function Call: WRITE
  • Prompt: !!?3,$L(X,"X")-1," item"_$S($L(X,"X")=2:" was",1:"s were")_" ommitted."
  • Line Location: NOTE+11
Info |  Source |  Entry Points |  Interaction Calls