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: YTCESD

Package: Mental Health

Routine: YTCESD


Information

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

Source Information

Source file <YTCESD.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Mental Health 1 DTA^YTREPT  
VA FileMan 1 ^DIR  

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 ^YTT(601.6  

Entry Points

Name Comments DBIA/ICR reference
DONE
CESD5 ;5 item screen
WAIT ;
; Added 5/6/94 LJA

External References

Name Field # of Occurrence
^DIR WAIT+5
DTA^YTREPT YTCESD+11, CESD5+8

Interaction Calls

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
Routine Call
  • DIR
  • Line Location:
    • WAIT+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^YTD(601.2 - [#601.2] YTCESD+5, YTCESD+18, CESD5+3, CESD5+14
^YTT(601 - [#601] YTCESD+12, YTCESD+20, CESD5+9, CESD5+16

Label References

Name Line Occurrences
WAIT YTCESD+17, YTCESD+23, CESD5+13, CESD5+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR WAIT+5!
DIR(0 WAIT+5*
DIRUT WAIT+4~, WAIT+5
DTOUT WAIT+4~, WAIT+5
DUOUT WAIT+4~, WAIT+5
I YTCESD+3~, YTCESD+7*, YTCESD+8*, YTCESD+16*, YTCESD+18, YTCESD+19, YTCESD+20, YTCESD+21, CESD5+1~, CESD5+5*
, CESD5+12*, CESD5+14, CESD5+15, CESD5+16, CESD5+17
>> I0 WAIT+3*
IOF WAIT+6
IOSL YTCESD+17, YTCESD+23, CESD5+13, CESD5+19, WAIT+3
N YTCESD+3~, CESD5+1~
>> R YTCESD+6*, YTCESD+7*, YTCESD+8*, YTCESD+13, CESD5+4*, CESD5+5*, CESD5+6*, CESD5+10
>> S YTCESD+6*, CESD5+4*
U YTCESD+12, CESD5+9
X YTCESD+3~, YTCESD+5*, YTCESD+7, YTCESD+8, YTCESD+9, CESD5+1~, CESD5+3*, CESD5+5, CESD5+6
>> YSDFN YTCESD+5, YTCESD+18, CESD5+3, CESD5+14
>> YSED YTCESD+5, YTCESD+18, CESD5+3, CESD5+14
>> YSET YTCESD+5, YTCESD+12, YTCESD+18, YTCESD+20, CESD5+3, CESD5+9, CESD5+14, CESD5+16
YSLFT YTCESD+3~, CESD5+1~, WAIT+5*
>> YSNOITEM YTCESD+4*, CESD5+2*
YSNX YTCESD+3~, YTCESD+9*, YTCESD+14, CESD5+1~
YSOUT YTCESD+3~, CESD5+1~
>> YSTOUT WAIT+5*
>> YSTY YTCESD+10, CESD5+7
>> YSUOUT WAIT+5*
YTOUT YTCESD+3~, CESD5+1~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All