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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: SRSUPRG

Package: Surgery

Routine: SRSUPRG


Information

SRSUPRG ;B'HAM ISC/MAM - PURGE UTILIZATION ; [ 10/01/98 11:48 AM ]

Source Information

Source file <SRSUPRG.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 4 ^%DT  NOW^%DTC  ^DIK  D^DIQ  
Surgery 2 $$ORDIV^SROUTL0  ^SRSKILL  
Kernel 1 ^%ZTLOAD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SR PURGE UTILIZATION  

Entry Points

Name Comments DBIA/ICR reference
ASK
EN ; entry when queued
END
HELP

External References

Name Field # of Occurrence
^%DT SRSUPRG+3
NOW^%DTC ASK+4
^%ZTLOAD ASK+5
^DIK EN+2, EN+3
D^DIQ SRSUPRG+4
$$ORDIV^SROUTL0 EN+1
^SRSKILL END+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"Purge Utilization Information",!!
  • Line Location: SRSUPRG+2
Function Call: WRITE
  • Prompt: !!,"This option will purge all utilization information for the dates prior to (and",!,"including) "_SRDATE_"."
  • Line Location: SRSUPRG+5
Function Call: READ
  • Timeout: DTIME
  • Variable: SRYN
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"Enter 'YES' to purge information, 'NO' to quit, or '?' for more help."
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+5
Function Call: WRITE
  • Prompt: !,"The option to purge utilization data has been queued."
  • Line Location: ASK+6
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !!,"Enter 'YES' to purge utilization information for all dates prior to and",!,"including "_SRDATE_". Enter 'NO' to quit this option."
  • Line Location: HELP+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRU - [#131.8] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRU - [#131.8] EN+1, EN+3

Label References

Name Line Occurrences
ASK ASK+1, ASK+2
END SRSUPRG+3, ASK, ASK+3, ASK+6
HELP ASK+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASK+4
%DT SRSUPRG+3!*
%DT("A" SRSUPRG+3*
DA EN+2!*, EN+3*!
DA(1 EN+2*
DIK EN+2!*, EN+3*!
DTIME ASK, END
IOF SRSUPRG+2, END+1
>> SRDATE SRSUPRG+4*, SRSUPRG+5, HELP
>> SRDT EN+1*, EN+2, EN+3
>> SROOM EN+1*, EN+2
>> SRSDT SRSUPRG+4*, EN+1
>> SRSITE("DIV" EN+1
>> SRSOUT SRSUPRG+2*, SRSUPRG+3*, ASK*, ASK+3*, EN+1*, END
>> SRYN ASK*, ASK+1*, ASK+2, ASK+3
>> X END*
>> Y SRSUPRG+3, SRSUPRG+4
>> ZTDESC ASK+5*
>> ZTDTH ASK+4*
>> ZTIO ASK+5*
>> ZTREQ EN+4*
>> ZTRTN ASK+5*
>> ZTSAVE("SRSDT" ASK+5*
>> ZTSAVE("SRSITE*" ASK+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All