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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: YTPCL

Package: Mental Health

Routine: YTPCL


Information

YTPCL ;ALB/ASF TEST-PTST CHECKLISTS ; 4/5/07 10:05am

Source Information

Source file <YTPCL.m>

Call Graph

Call Graph

Call Graph Total: 2

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

Entry Points

Name Comments DBIA/ICR reference
SCOR ;
ZZ
SPTSD ;SCREENING REPORT
DONE

External References

Name Field # of Occurrence
^DIR ZZ+5, SPTSD+9
^YTREPT SCOR+2
DTA^YTREPT SPTSD+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"DSM-IV PTSD Criteria B ",$S(B>0:"IS met",1:"is NOT met")
  • Line Location: ZZ+0
Function Call: WRITE
  • Prompt: !,"DSM-IV PTSD Criteria C ",$S(C>2:"IS met",1:"is NOT met")
  • Line Location: ZZ+1
Function Call: WRITE
  • Prompt: !,"DSM-IV PTSD Criteria D ",$S(D>1:"IS met",1:"is NOT met")
  • Line Location: ZZ+2
Function Call: WRITE
  • Prompt: !!,"*** PTSD Diagnosis IS SUGGESTED ***"
  • Line Location: ZZ+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: ZZ+4
Function Call: WRITE
  • Prompt: !!!,"Items"
  • Line Location: ZZ+6
Function Call: WRITE
  • Prompt: !,I,". ",^YTT(601,YSET,"Q",I,"T",1,0)
  • Line Location: ZZ+8
Function Call: WRITE
  • Prompt: !?7,^YTT(601,YSET,"Q",I,"T",3,0)
  • Line Location: ZZ+10
Function Call: WRITE
  • Prompt: " :",$E(^YTD(601.2,YSDFN,1,YSET,1,YSED,1),I)
  • Line Location: ZZ+11
Function Call: WRITE
  • Prompt: !!,"1= Not at all 2= A little bit 3= Moderately 4= Quite a bit 5= Extremely"
  • Line Location: ZZ+12
Function Call: WRITE
  • Prompt: !!,?7,"Post Traumatic Stress Disorder Screen",!!
  • Line Location: SPTSD+2
Function Call: WRITE
  • Prompt: !,"Patient Reports "_$S($E(X,1)="Y":"HAVING",1:"NO")_" traumatic experiences.",!
  • Line Location: SPTSD+4
Routine Call
  • DIR
  • Line Location:
    • ZZ+5
    • SPTSD+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^YTD(601.2 - [#601.2] SCOR+3, ZZ+11, SPTSD+3
^YTT(601 - [#601] ZZ+8, ZZ+9, ZZ+10

Naked Globals

Name Field # of Occurrence
^(0 ZZ+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> B SCOR+4*, SCOR+5*, ZZ, ZZ+3
>> C SCOR+4*, SCOR+6*, ZZ+1, ZZ+3
>> D SCOR+4*, SCOR+7*, ZZ+2, ZZ+3
>> DIR(0 ZZ+5*, SPTSD+9*
>> I SCOR+5*, SCOR+6*, SCOR+7*, ZZ+7*, ZZ+8, ZZ+9, ZZ+10, ZZ+11
IOST ZZ+5, SPTSD+9
>> X SCOR+3*, SCOR+5, SCOR+6, SCOR+7, SPTSD+3*, SPTSD+4, SPTSD+5, SPTSD+6, SPTSD+7, SPTSD+8
>> Y SCOR+5*, SCOR+6*, SCOR+7*, ZZ+5, SPTSD+9
>> YSDFN SCOR+3, ZZ+11, SPTSD+3
>> YSED SCOR+3, ZZ+11, SPTSD+3
>> YSET SCOR+3, ZZ+8, ZZ+9, ZZ+10, ZZ+11, SPTSD+3
>> YSNOITEM SCOR+1*
>> YSTY SCOR+1*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All