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

Package: Mental Health

Routine: YTPHQ9


Information

YTPHQ9 ;ALB/ASF- TEST PRIME MD PHQ9 ;7/2/03 14:23

Source Information

Source file <YTPHQ9.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?21,$P(^YTT(601,YSTEST,"P"),U)
  • Line Location: YTPHQ9+19
Function Call: WRITE
  • Prompt: !,"PHQ9 score= ",R
  • Line Location: YTPHQ9+21
Function Call: WRITE
  • Prompt: !,^YTT(601,YSET,"G",1,1,N,0)
  • Line Location: YTPHQ9+22
Function Call: WRITE
  • Prompt: !
  • Line Location: YTPHQ9+26
Function Call: WRITE
  • Prompt: !,$S($E(X,I)="X":"X",1:$E(X,I)-1)_" "_$C(96+I)_"."_$E(^YTT(601,YSET,"Q",I,"T",1,0),1,60)
  • Line Location: YTPHQ9+27
Function Call: WRITE
  • Prompt: " ..."
  • Condition for execution: $D(^YTT(601,YSET,"Q",I,"T",2,0))
  • Line Location: YTPHQ9+27
Function Call: WRITE
  • Prompt: !!,"0= Not at all 1= Several days 2= More than half the days 3= Nearly every day"
  • Line Location: YTPHQ9+28
Function Call: WRITE
  • Prompt: !
  • Line Location: WAIT+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WAIT+6
Info |  Source |  Entry Points |  Interaction Calls