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 |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Mental Health 2 ^YTAR2  (,EN4)^YTFILE  
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: 2

Package Total Caller Graph
Mental Health 2 YIPHYD  YIPROB  

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 ;

External References

Name Field # of Occurrence
^DIR WAIT+3
^YTAR2 N2+1, A2+1, A4+1
^YTFILE DONE+1
EN4^YTFILE STOR+1, STOR+3

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^YTD(601.2 - [#601.2] R1+4
^YTD(601.4 - [#601.4] BK+1
^YTT(601 - [#601] NX+1, NX+2, D1+1, T0+2, T3+2, T2+1, T1+1, T1+2, T1+3, R1+1
R1+2, WH+1

Label References

Name Line Occurrences
@( WH+1
A YIHIST+2
A2 A2+1, T2+1, T1+3
A4 A4+1
BK A2+1, A4+1
CK L+2, L+3, L+4, R1+3, R1+7, STM+1
D1 NX+1, BK+1
DONE NX+1
END R1+3, R1+7, YSRP1+3, YSRP1+4, YSRP1+5, YSRP1+6, NOST+1
HDR CK+1, RP+1
HOLD A4+1
L L+5, YSRP1+4, YSRP1+5, YSRP1+6, NOST+1
N2 N2+1
NOST YSRP1+1, YSRP1+2
NX STOR+1, STOR+4, BK+2
R1 R1+3, R1+5, R1+6, R1+8, YSRP1+1, YSRP1+2, YSRP1+4, YSRP1+5, YSRP1+6, NOST+1
RD N2+1, A2+1, A4+1, RD+1
STM YSRP1+3, NOST+1
STOR A2+1, A4+1
T0 D1+1
T1 D1+1
T2 D1+1
T3 D1+1, HOLD+1
WAIT CK+1
WH A2+1, A4+1
YSRP1 R1+6

Naked Globals

Name Field # of Occurrence
^( NX+1
^(0 NX+2, T0+2, T3+2, T2+1, T1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A R1+1!, R1+2*, R1+3, R1+6, R1+8, YSRP1+1, YSRP1+2, YSRP1+5*, YSRP1+6
B D1+1*, STOR+1, R1+1!, R1+2*
DIR WAIT+3!
DIR(0 WAIT+3*
DIRUT WAIT+2~, WAIT+3
DTOUT WAIT+2~
DUOUT WAIT+2~
I BK+1*, R1+1!, R1+2*, R1+3, R1+4, R1+5, END+1!
>> I0 WAIT+1*
IOF NX+2, T0+1, T3+1, T1+1, HDR+1, WAIT+3
IOSL WAIT+1
IOST RP+2
J A+1*, NX+1, NX+2, D1+1, T0+2, T3+2, T2+1, T1+1, T1+2, T1+3
STOR+1*, STOR+2*, BK+1*, BK+2*, RP+1*, R1+1!, R1+2*, WH+1
>> K NX+2*, T0+2*, T3+2*, T2+1*, T1+2*, T1+3*, STOR+2*
L STOR+2*, STOR+3*, RP+1*, R1+1!, R1+4*, R1+5
>> M T3+3*, A4+1, STOR+2*
>> P0 CK+1, RP+2*
>> P1 L+2, L+3, L+4, RP+2*
>> P3 RP+2*, R1+3, R1+7, STM+1
R R1+1!, R1+5*, YSRP1+1*, YSRP1+2*, YSRP1+4, YSRP1+5, YSRP1+6, NOST+1, END+1!
>> R1 A2+1*, A4+1*, WH+1
>> T D1+1*, STOR+2*, STOR+3
U D1+1, R1+2, R1+3, R1+6, R1+8, YSRP1+1, YSRP1+2, WH+1
U1 RP+1*, R1+1!, R1+4*
X N2+1, A2+1, A4+1, STOR+1, RD+1*, BK+1*, HOLD+1*!
>> Y1 L+1*, L+2, L+3, L+4
>> Y2 L+1*, L+2, L+3, L+4
>> YSAGE HDR+1
>> YSDFN BK+1, R1+4
>> YSDT(0 HDR+1
>> YSED R1+4
>> YSENT BK+1
>> YSET R1+4
>> YSHD HDR+1
>> YSHDR HDR+1*
YSIND L+1, L+2, L+3, L+4, R1+1!, R1+2*, R1+3, R1+6, R1+8, YSRP1+3
NOST+1, END+1!
>> YSJT A+1*, STOR+1*, STOR+2
YSLCK RP+1*, R1+1!, R1+3*, R1+6*, YSRP1+3, NOST+1, STM+2*, END+1!
>> YSRP A+1*, STOR+1*, STOR+2*, STOR+3*, BK+1*, BK+2*
YSSCK R1+1!, R1+6*, R1+7, R1+8, STM+1, STM+2, END+1!
>> YSSEX HDR+1
YSSTEM R1+1!, R1+6*, YSRP1+1, YSRP1+2, YSRP1+4, YSRP1+5, YSRP1+6, END+1!
>> YSTEST NX+1, NX+2, D1+1, T0+2, T3+2, T2+1, T1+1, T1+2, T1+3, R1+1
R1+2, WH+1
>> YSTY D1+1*, T3+3
YSYCK R1+1!, R1+6*, STM+2, END+1!
>> YSYI L+3*, L+4
>> YSYTX L+1, L+3*, L+4*, YSRP1+4*, YSRP1+5*, YSRP1+6*, NOST+1*
YSYX R1+1!, R1+4*, R1+5, END+1!
>> YSZZ CK+1, L+2, L+3, L+4, RP+1*, R1+3, R1+7, YSRP1+3, YSRP1+4, YSRP1+5
YSRP1+6, NOST+1, STM+1, WAIT+3*
>> YZT A4+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All