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 |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: YTMCMI2

Package: Mental Health

Routine: YTMCMI2


Information

YTMCMI2 ;SLC/DKG-TEST PKG: TEST DRIVER; ;4/11/91 15:31

Source Information

Source file <YTMCMI2.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Mental Health 2 ^YTAR2  ^YTFILE  
VA FileMan 1 DD^%DT  

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 YTMCMI2+4
^YTAR2 I2+1, D3+4
^YTFILE D4+2

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+4
Function Call: READ
  • 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: !!
  • Line Location: CR+4
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: WRITE
  • Prompt: @IOF,#,$C(7)
  • Line Location: HOLD+1
Function Call: READ
  • Prompt: "Please read each question carefully!"
  • Variable: X
  • Timeout: 3
  • Line Location: HOLD+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^YTD(601.4 - [#601.4] BK+1
^YTT(601 - [#601] YTMCMI2+4, NX+1, NX+2, NX+3, NX+4, D1+1, D4+1, CR+1
^YTT(601.3 - [#601.3] YTMCMI2+4, CR+2, CR+3, IP+1, PS+1

Label References

Name Line Occurrences
BK D3+4
CR YTMCMI2+4
D1 NX+3, BK+1, HOLD+2
D3 D3+4, WHERE+1
D4 D3+4
HOLD D3+3
I2 I2+1
IP CR+1
NX D4+1, BK+1
PS CR+1
RD I2+1, D3+2, RD+1
WHERE D3+4

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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