Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: ABSVYN

Package: Voluntary Timekeeping

Routine: ABSVYN


Information

ABSVYN ;VAMC ALTOONA/CTB - UTILITY YES/NO READER AND WAIT ;6/7/94 8:40 AM

Source Information

Source file <ABSVYN.m>

Caller Graph

Caller Graph Total: 40

Package Total Caller Graph
Voluntary Timekeeping 40 ABSV88A  ABSV88B  ABSVCVT  ABSVDADD  ABSVDDE  ABSVDEDI  ABSVDENT  ABSVDPNT  
ABSVE  ABSVE0  ABSVE1  ABSVE3  ABSVE4  ABSVL  ABSVL1  ABSVL2  
ABSVLBL  ABSVLS  ABSVNIT1  ABSVNIT2  ABSVOT  ABSVOTE  ABSVOTSD  ABSVPST  
ABSVSITE  ABSVT  ABSVTC  ABSVTED  ABSVTED1  ABSVTED2  ABSVTED3  ABSVTED4  
ABSVTED5  ABSVTIME  ABSVTP  ABSVTP1  ABSVTPR  ABSVTPR1  ABSVTPR2  ABSVU1  

Entry Points

Name Comments DBIA/ICR reference
V ;;4.0;VOLUNTARY TIMEKEEPING;;JULY 6, 1994
YN ;
RX
Q
Q1
C
WAIT ;
LIST ;;This may take a few moments

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,ABSVXA(ABSVXI)
  • Line Location: YN+3
Function Call: WRITE
  • Prompt: "? ",$P("YES// ^NO// ^<YES/NO> ",U,ABSVXS)
  • Line Location: YN+4
Function Call: READ
  • Variable: ABSVXY
  • Timeout: $S($D(DTIME):DTIME,1:600)
  • Line Location: RX+0
Function Call: WRITE
  • Prompt: *7
  • Line Location: RX+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>73
  • Line Location: RX+3
Function Call: WRITE
  • Prompt: $P(" (YES)^ (NO)",U,%)
  • Line Location: RX+3
Function Call: WRITE
  • Prompt: *7
  • Condition for execution: '%&(ABSVXY'["?")
  • Line Location: Q1+0
Function Call: WRITE
  • Prompt: !,"You must enter a 'Yes' or a 'No', or you may enter an '^' to Quit",!
  • Line Location: Q1+0
Function Call: WRITE
  • Prompt: !,ABSVXB(ABSVXI)
  • Line Location: C+0
Function Call: WRITE
  • Prompt: !
  • Line Location: C+1
Function Call: WRITE
  • Prompt: !,"..."
  • Line Location: WAIT+1
Function Call: WRITE
  • Prompt: $P("Whoops,^Hmmm,^Excuse me,^Sorry,^Alright already!^OK! OK!^Alright, so I'm a little tired.","^",$R(7)+1)," "
  • Line Location: WAIT+2
Function Call: WRITE
  • Prompt: $P($T(LIST+$R(8)),";",3)_"..."
  • Line Location: WAIT+3

Label References

Name Line Occurrences
C RX+4
Q RX+4
Q1 RX+2, RX+5
YN RX+4, RX+6, Q1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % YN+1*, RX+1*, RX+2, RX+3, RX+4*, RX+6*, Q1*
ABSVXA YN+2, RX+4, RX+6, Q!
ABSVXA( YN+3
ABSVXB RX+4, RX+5, RX+6, Q!
ABSVXB( C
ABSVXI YN+3*, Q!, C*
ABSVXS YN+1*, YN+4, RX+4, RX+6, Q!, Q1
ABSVXY RX*, RX+1, RX+2, Q!, Q1
DTIME RX
DTOUT YN+1!, RX*
U YN+1*, YN+4, RX, RX+3

Marked Items

Name Field # of Occurrence
$T(LIST+$RANDOM^1;1(1) WAIT+3
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Label References |  Local Variables |  Marked Items  | All