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

Package: Surgery

Routine: SRSDT


Information

SRSDT ;B'HAM ISC/MAM - CHANGE DATE OF OPERATION REQUEST; [ 06/14/01 9:54 AM ]

Source Information

Source file <SRSDT.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Surgery 5 ^SROERR0  ($$LOCK,UNLOCK)^SROUTL  ^SROXRET  LATE^SRSREQ  ^SRSTCH  
VA FileMan 4 ^%DT  NOW^%DTC  (,FILE)^DIE  D^DIQ  

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

Package Total Caller Graph
Surgery 3 SROERR  SRONEW  SRSUPRQ  

Entry Points

Name Comments DBIA/ICR reference
CHANGE ; change date of request
NEWDT
CC ; concurrent case check
DSMP() ; date/time stamp

External References

Name Field # of Occurrence
^%DT CHANGE+3
NOW^%DTC NEWDT+5, DSMP+1
^DIE NEWDT+2, NEWDT+3, CC+5, CC+6
FILE^DIE NEWDT+5
D^DIQ NEWDT+9
^SROERR0 NEWDT+7
$$LOCK^SROUTL CHANGE+1
UNLOCK^SROUTL NEWDT+10, CC+5
^SROXRET NEWDT+3
LATE^SRSREQ CHANGE+5
^SRSTCH CHANGE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: CHANGE+3
Function Call: WRITE
  • Prompt: !!,"Requests cannot be made for past dates. Please select another date."
  • Line Location: CHANGE+4
Function Call: WRITE
  • Prompt: !!,"The request for "_SRNM_" has been changed to "_SRSDATE_"."
  • Line Location: NEWDT+9
Function Call: READ
  • Variable: SRBOTH
  • Timeout: DTIME
  • Line Location: CC+1
Function Call: WRITE
  • Prompt: !!,"Please answer 'YES' or 'NO'. A '^' is not allowed. "
  • Line Location: CC+2
Function Call: WRITE
  • Prompt: !!,"Enter RETURN if these cases will remain concurrent, or 'NO' if they will no",!,"longer be associated together."
  • Line Location: CC+3
Routine Call
  • DIE
  • Line Location:
    • NEWDT+2
    • NEWDT+3
    • CC+5
    • CC+6
Routine Call
  • DIE
  • Line Location:
    • NEWDT+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] NEWDT+3, NEWDT+8, CC+5
^SRF("AC" NEWDT+1!
^SRF("ADT" NEWDT+4!
^SRF("ASP" NEWDT+6!

Label References

Name Line Occurrences
CC NEWDT+8, CC+2, CC+3
CHANGE CHANGE+4, CHANGE+5
NEWDT NEWDT+8

Naked Globals

Name Field # of Occurrence
^( NEWDT+3
^("CON" NEWDT+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % NEWDT+5, DSMP+1
%DT CHANGE+3*!
%DT("A" CHANGE+3*
>> CON CHANGE+3*, NEWDT+8*
DA NEWDT+2!*, NEWDT+3*, CC+5*, CC+6*
>> DFN NEWDT+4
DIE NEWDT+2!*, NEWDT+3*, CC+5*
DR NEWDT+2!*, NEWDT+3!*, CC+5*
DT CHANGE+4
DTIME CC+1
DUZ NEWDT+5
>> SRBOTH NEWDT+8, CC+1*, CC+2, CC+3*, CC+4*
>> SRDT CHANGE+3*, CHANGE+4, NEWDT, NEWDT+1, NEWDT+4, NEWDT+6
>> SRDTCH CHANGE+5*
SREQ NEWDT+5~
SREQ(130 NEWDT+5*
SRINVDT NEWDT+4*!
SRLATE CHANGE+5!
SRLCK CHANGE+1~*
>> SRNM NEWDT+9
>> SROERR NEWDT+7*
>> SRSATT NEWDT+3*
>> SRSDATE CHANGE+3*, CHANGE+4*, NEWDT, NEWDT+2, NEWDT+9*
>> SRSOUT CHANGE+2
>> SRSREQ NEWDT+3*
>> SRTN CHANGE+1, NEWDT+1, NEWDT+2, NEWDT+3, NEWDT+4, NEWDT+5, NEWDT+6, NEWDT+7, NEWDT+8*, NEWDT+10
, CC+5, CC+6
>> SRTS NEWDT+3*, NEWDT+6
SRTX NEWDT+7!
X NEWDT+3!
Y CHANGE+3, CHANGE+4!, NEWDT+9*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All