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

Package: Mental Health

Routine: YTDRIV


Information

YTDRIV ;SLC/DKG-TEST PKG: TEST DRIVER ;4/21/92 08:42 ;

Source Information

Source file <YTDRIV.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Mental Health 3 WAIT^YSUTL  ^YTAR2  (,EN4)^YTFILE  
VA FileMan 1 DD^%DT  

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 YTBI  YTMMPI2P  

Entry Points

Name Comments DBIA/ICR reference
NX ;
I2 ;
D1 ;
D3 ;
D4 ;
RD ;
BK ;
WHERE ;
CR ;
IP ;
PS ;
HOLD ;

External References

Name Field # of Occurrence
DD^%DT YTDRIV+5
WAIT^YSUTL CR+4
^YTAR2 I2+1, D3+1
^YTFILE D4+2
EN4^YTFILE D4+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NX+4
Function Call: WRITE
  • Prompt: !?3,^(0)
  • Condition for execution: $D(^YTT(601,YSTEST,"Q",J,"I",K,0))
  • Line Location: NX+4
Function Call: WRITE
  • Prompt: !!!?3,"PRESS THE SPACE BAR TO CONTINUE."
  • Line Location: NX+5
Function Call: WRITE
  • Prompt: " ? "
  • Line Location: I2+1
Function Call: WRITE
  • Prompt: !!?3,^(0)
  • Condition for execution: $D(^(K,0))
  • Line Location: D1+1
Function Call: WRITE
  • Prompt: " ? "
  • Line Location: D3+1
Function Call: READ
  • Prompt: ""
  • Variable: *X
  • Timeout: 900
  • Line Location: RD+1
Function Call: WRITE
  • Prompt: !,YSTESTN," QUESTION # ",J,!
  • Line Location: WHERE+1
Function Call: WRITE
  • Prompt: @IOF,!!!?3,^YTT(601.3,YSCHN,1,1,0)," ",YSCD," ",^YTT(601.3,YSCHN,1,2,0)
  • Line Location: CR+2
Function Call: WRITE
  • Prompt: !?3,^(YSTX,0)
  • Line Location: CR+3
Function Call: WRITE
  • Prompt: @IOF,!!!?3,^YTT(601.3,YSCHN,1,1,0),!?3,^YTT(601.3,YSCHN,1,2,0),YSTNM,",",!?3,^YTT(601.3,YSCHN,1,3,0)," ",YSCD," ",^YTT(601.3,YSCHN,1,4,0),!?3,^YTT(601.3,YSCHN,1,5,0),!
  • Line Location: IP+1
Function Call: WRITE
  • Prompt: @IOF,!!!?3,^YTT(601.3,YSCHN,1,1,0),YSTNM,!?3,^YTT(601.3,YSCHN,1,2,0)," ",YSCD,!?3,^YTT(601.3,YSCHN,1,3,0)," ",^YTT(601.3,YSCHN,1,4,0)
  • Line Location: PS+1
Function Call: READ
  • Prompt: "Please read each question carefully!"
  • Variable: X
  • Timeout: 3
  • Line Location: HOLD+1
Function Call: WRITE
  • Prompt: @IOF,#,$C(7)
  • Line Location: HOLD+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("NO-TYPE-AHEAD" YTDRIV+3
^YTD(601.4 - [#601.4] BK+1
^YTT(601 - [#601] YTDRIV+5, NX+1, NX+2, NX+3, NX+4, D1+1, D4+1, CR+1
^YTT(601.3 - [#601.3] YTDRIV+5, CR+2, CR+3, IP+1, PS+1

Label References

Name Line Occurrences
BK D3+1
CR YTDRIV+5
D1 NX+3, BK+1, HOLD+1
D3 D3+1, WHERE+1
D4 D3+1
HOLD D3+1
I2 I2+1
IP CR+1
NX D4+1, BK+1
PS CR+1
RD I2+1, D3+1, RD+1
WHERE D3+1

Naked Globals

Name Field # of Occurrence
^( D1+1, CR+3
^("B" NX+2
^(0 YTDRIV+5, NX+1, NX+4, D1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> B YTDRIV+4*, NX+2*, D1+2, WHERE+1
>> C NX+1*, D3+1
DT YTDRIV+4
IOF NX+4, D1+1, CR+2, IP+1, PS+1, HOLD+1
IOST CR+4
>> J YTDRIV+4*, NX+1, NX+2, NX+3, NX+4, D1+1, D4+1*, BK+1*, WHERE+1
>> K NX+2*, NX+4*, D1+1*
U YTDRIV+5, NX+1, CR+1
X I2+1, D3+1, D4+1, RD+1*, BK+1*, HOLD+1*!
>> Y YTDRIV+5*
>> YSBEGIN YTDRIV+4*
YSCD YTDRIV+5*, CR+2, CR+5!, IP+1!, PS+1!
YSCH YTDRIV+5*, CR+1, CR+5!, IP+1!, PS+1!
YSCHN YTDRIV+5*, CR+2, CR+3, CR+5!, IP+1!, PS+1!
>> YSDFN BK+1
>> YSENT BK+1
>> YSRP YTDRIV+4*, D4+1*, BK+1*
>> YSTEST YTDRIV+5, NX+1, NX+2, NX+3, NX+4, D1+1, D4+1, CR+1
>> YSTESTN WHERE+1
YSTNM CR+1*, IP+1!, PS+1!
YSTX CR+2*, CR+3*, CR+5!, IP+1!, PS+1!
>> YZT D3+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All