Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Mental Health 2 (DTA,SCR)^YTREPT  RD^YTSCL9R  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Mental Health 1 YTSCL9R  

Entry Points

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

External References

Name Field # of Occurrence
DTA^YTREPT YTSCL9R1+2, NOTE+1
SCR^YTREPT WL+1, WS+1, BOTTOM+7, NOTE+6, NOTE+10
RD^YTSCL9R NOTE+2

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^YTT(601 - [#601] BOTTOM+1, NOTE+6, NOTE+10

Label References

Name Line Occurrences
END W+1, W+2
L W+4
WL W+2
WS W+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A END+1!
A( A+2*, L+1
B END+1!
B( L+1*, WL+3, WS+3
H END+1!
H( A+4*, A+7*, W+1
>> I A+4*, L+1*, WL+3*, WS+3*, BOTTOM+1*, BOTTOM+2*, BOTTOM+3*, BOTTOM+5*, BOTTOM+6*, NOTE+6*
, NOTE+10*
IOSL WL+1, WS+1
IOST WL+1, WS+1, BOTTOM+7, NOTE+6, NOTE+10
>> J A+2*, A+4*
>> R BOTTOM+3, BOTTOM+4
>> S(1 BOTTOM+5
>> S(2 A+1, BOTTOM+2
>> S(3 BOTTOM+6
U A+2, BOTTOM+1, BOTTOM+2, BOTTOM+3, BOTTOM+4, BOTTOM+5, BOTTOM+6
V END+1!
>> X A+1*, A+2, NOTE+5, NOTE+6, NOTE+9, NOTE+10, NOTE+11
YSA END+1!
YSAST A+1!
YSAST( A+2*, WL+3, WS+3
YSBV A+1*, A+2, W+4, END+1!
YSHS A+3*, A+4, A+7*, W+1*, END+1!
YSIN2 A+6*, L+1, W+1, END+1!
YSINC A+1*, A+6, W+4, END+1!
YSLC1 A+6*, L+2, W+3*, END+1!
YSLE A+1*, L+2, W+3, END+1!
>> YSLFT A+1*, W+1, W+2
YSLL L+2*, END+1!, WL+2, WS+2
>> YSLM A+5*
>> YSLV A+6*, L+1, L+2, W+1, W+4*, WL+5, WS+4
>> YSNS A+1*, A+5
>> YSTEST BOTTOM+1, NOTE+6, NOTE+10
>> YSTOUT WL+1, WS+1, BOTTOM+7, NOTE+6, NOTE+7, NOTE+10
YSTV A+1*, A+2, A+6, END+1!
YSTVL END+1!
>> YSUOUT WL+1, WS+1, BOTTOM+7, NOTE+6, NOTE+7, NOTE+10
YSVS A+3*, END+1!
YSWS W+1*, W+2, END+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All