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

Package: Mental Health

Routine: YIHIST


Information

YIHIST ;SLC/DKG-INTERVIEW HISTORY DRIVER ;11/15/90 16:23 ;

Source Information

Source file <YIHIST.m>

Entry Points

Name Comments DBIA/ICR reference
CK ;
L ;
A ;
NX ;
N2 ;
D1 ;
T0 ;
A2 ;
T3 ;
A4 ;
T2 ;
T1 ;
STOR ;
DONE ;
RD ;
BK ;
RP ;
R1 ;
YSRP1 ;
NOST ;
STM ;
WH ;
HDR ;
WAIT ;
END ;
HOLD ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?YSIND,Y1
  • Line Location: L+2
Function Call: WRITE
  • Prompt: !?YSIND,$E(Y1,1,YSYI)
  • Line Location: L+3
Function Call: WRITE
  • Prompt: !?YSIND,Y1
  • Line Location: L+4
Function Call: WRITE
  • Prompt: !?3,^(0)
  • Line Location: NX+2
Function Call: WRITE
  • Prompt: !!!?3,"PRESS THE SPACE BAR TO CONTINUE."
  • Line Location: NX+3
Function Call: WRITE
  • Prompt: " ? "
  • Line Location: N2+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: T0+1
Function Call: WRITE
  • Prompt: !!?3,^(0)
  • Line Location: T0+2
Function Call: WRITE
  • Prompt: !!?3,"(Y OR N)",!!
  • Line Location: T0+3
Function Call: WRITE
  • Prompt: $C(13)," "
  • Line Location: A2+1
Function Call: WRITE
  • Prompt: " ?"
  • Line Location: A2+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: T3+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: +^(0)=1
  • Line Location: T3+2
Function Call: WRITE
  • Prompt: !?3,^(0)
  • Line Location: T3+2
Function Call: WRITE
  • Prompt: !!!?3,"ANSWER = "
  • Line Location: T3+3
Function Call: WRITE
  • Prompt: " ? "
  • Line Location: A4+1
Function Call: WRITE
  • Prompt: !?12,^(0)
  • Line Location: T2+1
Function Call: WRITE
  • Prompt: @IOF,!!!?3,^YTT(601,YSTEST,"Q",J,"T",1,0)
  • Line Location: T1+1
Function Call: WRITE
  • Prompt: !?3,^YTT(601,YSTEST,"Q",J,"T",K,0)
  • Line Location: T1+2
Function Call: WRITE
  • Prompt: !?12,^YTT(601,YSTEST,"Q",J,"T",K,0)
  • Line Location: T1+3
Function Call: READ
  • Variable: *X
  • Timeout: 900
  • Line Location: RD+1
Function Call: WRITE
  • Prompt: !!?YSIND,$P(A,U,2),!
  • Line Location: R1+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: YSSCK
  • Line Location: R1+8
Function Call: WRITE
  • Prompt: !?YSIND,$P(A,U,3)
  • Line Location: R1+8
Function Call: WRITE
  • Prompt: !
  • Condition for execution: YSSCK=2
  • Line Location: R1+8
Function Call: WRITE
  • Prompt: !
  • Condition for execution: YSSCK
  • Line Location: STM+2
Function Call: WRITE
  • Prompt: !?YSLCK,YSYCK
  • Line Location: STM+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: YSSCK=2
  • Line Location: STM+2
Function Call: WRITE
  • Prompt: !,$P(^YTT(601,YSTEST,0),U)," QUESTION # ",J,!
  • Line Location: WH+1
Function Call: WRITE
  • Prompt: @IOF,YSHDR,!?53,"PRINTED",?62,"ENTERED"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: WAIT+1
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: WAIT+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WAIT+3
Function Call: READ
  • Variable: X
  • Timeout: 3
  • Line Location: HOLD+1
Function Call: WRITE
  • Prompt: !!,"Please read each question carefully!",$C(7)
  • Line Location: HOLD+1
Info |  Source |  Entry Points |  Interaction Calls