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

Package: Prosthetics

Routine: RMPR8PG


Information

RMPR8PG ;PHX,HOIFO/JLT,SPS-PURGE 668 SUSPENSE FILE ; AUGUST 29, 1994

Source Information

Source file <RMPR8PG.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 4 DD^%DT  C^%DTC  ^DIK  EN1^DIP  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Prosthetics 2 AUDIT^RMPR8PG1  DIV4^RMPRSIT  

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

Package Total Caller Graph
Prosthetics 1 RMPR PURGE SUS  

Entry Points

Name Comments DBIA/ICR reference
EN
EN2
EN1
END
EXIT ;common exit point
CONFIRM(RMPRSITE,RMPRSTA) ;RMPR*3.0*211;display number of deletes and ask user to confirm to proceed with the Purge;
RMPRTP ;Ask user to confirm before initiating the purge
RTN ;

External References

Name Field # of Occurrence
DD^%DT CONFIRM+27
C^%DTC EN1+1, CONFIRM+11
^%ZIS EN2
^%ZISC EXIT+1
^%ZTLOAD EN2+3
^DIK EN1+6
EN1^DIP EN1+4
AUDIT^RMPR8PG1 EXIT+2
DIV4^RMPRSIT EN

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),"YOU MAY NOT SELECT YOUR TERMINAL"
  • Line Location: EN2+1
Function Call: WRITE
  • Prompt: !,"<REQUEST QUEUED!>"
  • Line Location: EN2+3
Function Call: WRITE
  • Prompt: !!,"No Suspense entries purged."
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !!,RDEL," Suspense entries purged."
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !!,RDEL,"Suspense entry purged. "
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !!,"The PROSTHETIC SUSPENSE file will now be scanned to estimate the number of"
  • Line Location: CONFIRM+17
Function Call: WRITE
  • Prompt: !,"records that will be purged. Depending on how long it has been since the last"
  • Line Location: CONFIRM+18
Function Call: WRITE
  • Prompt: !,"purge, it may take some time to determine the estimate.",!
  • Line Location: CONFIRM+19
Function Call: WRITE
  • Prompt: !,"There are currently no suspense records old enough to be purged."
  • Line Location: CONFIRM+22
Function Call: WRITE
  • Prompt: !,"For the ",RMPRSN,", there are currently ",EDEL
  • Line Location: CONFIRM+24
Function Call: WRITE
  • Prompt: !,"suspense records that will be purged based on the SUSPENSE PURGE value in the"
  • Line Location: CONFIRM+25
Function Call: WRITE
  • Prompt: !,"PROSTHETICS SITE PARAMETER FILE. The value is currently set to ",RMPRDT," days.",!
  • Line Location: CONFIRM+26
Function Call: WRITE
  • Prompt: !,"The oldest record that will be purged was suspended on ",RMPROLD,"."
  • Line Location: CONFIRM+28
Function Call: WRITE
  • Prompt: !,"The most recent record to be purged was suspended on ",RMPRNEW,".",!
  • Line Location: CONFIRM+29
Function Call: WRITE
  • Prompt: !,"Once the purge runs, the entries purged are unrecoverable.",!
  • Line Location: CONFIRM+30
Function Call: READ
  • Variable: RMPRYN
  • Timeout: DTIME
  • Line Location: RMPRTP+1
Function Call: WRITE
  • Prompt: !!,"Enter YES to proceed with the purge. Otherwise, enter NO.",!
  • Line Location: RMPRTP+3
Function Call: READ
  • Formatting: !
  • Prompt: "Type < Enter > to continue: "
  • Variable: I
  • Timeout: DTIME
  • Line Location: RTN+1
Routine Call
  • %ZIS
  • Line Location:
    • EN2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RMPR(668 - [#668] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RMPR(664.1 - [#664.1] EN1+7, EN1+8
^RMPR(668 - [#668] EN1+1, EN1+3, EN1+6, CONFIRM+13, CONFIRM+20, CONFIRM+21
^RMPR(669.9 - [#669.9] EN1, CONFIRM+3, CONFIRM+5

Label References

Name Line Occurrences
$$CONFIRM EN+1
END EN+1, EN2, EN1, EN1+1
EXIT EN2+3
RMPRTP RMPRTP+3
RTN CONFIRM+10, CONFIRM+15, CONFIRM+22

Naked Globals

Name Field # of Occurrence
^(0 EN1+6, EN1+8*, CONFIRM+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EN2!*, EXIT+1!
%ZIS("B" EN2*
BY EN1+3*, EXIT+1!
DA EN1+6*, EN1+7, EXIT+1!
DHD EN1+4*, EXIT+1!
DHIT EXIT+1!
DIC EN1+3*, EN1+6*, EXIT+1!
DIK EN1+6*, EXIT+1!
DIS EXIT+1!
DIS(0 EN1+3*
DT EN1+1, CONFIRM+3, CONFIRM+11
DTIME RMPRTP+1, RTN+1
EDEL CONFIRM+2~, CONFIRM+3*, CONFIRM+21*, CONFIRM+22, CONFIRM+24
FLDS EN1+3*, EXIT+1!
FR EN1+3*, EXIT+1!
I EN1*, EXIT+1!, CONFIRM+2~, CONFIRM+3*, RTN+1*
IO("Q" EN2+2, EN2+3!
ION EN1+3
IOP EN2!, EN1+3*
>> POP EN2
RD EN2+2*, EXIT+1!
RDEL EN+1*, EN1*, EN1+6*, END, END+1, END+2, EXIT+1!
RL EXIT+1!
>> RMPR("STA" EN+1, EN1+4, EN1+6
RMPR6641 EN1+5~, EN1+7*, EN1+8, EXIT+1!
RMPRDT EN1*, EN1+1*, EN1+4, EN1+6, EXIT+1!, CONFIRM+2~, CONFIRM+5*, CONFIRM+11, CONFIRM+26
RMPRIEN EN1*, EN1+6*, EXIT+1!, CONFIRM+2~, CONFIRM+3*, CONFIRM+20*, CONFIRM+21
RMPRNEW CONFIRM+2~, CONFIRM+3*, CONFIRM+21*, CONFIRM+27*, CONFIRM+29
RMPROLD CONFIRM+2~, CONFIRM+3*, CONFIRM+21*, CONFIRM+27*, CONFIRM+28
RMPRPD CONFIRM+2~, CONFIRM+11*, CONFIRM+13, CONFIRM+20
RMPRSITE EN+1, EN1, CONFIRM~, CONFIRM+3, CONFIRM+5
RMPRSN CONFIRM+2~, CONFIRM+3*, CONFIRM+7, CONFIRM+24
RMPRSTA CONFIRM~, CONFIRM+20
RMPRYN CONFIRM+2~, RMPRTP+1*, RMPRTP+2*, RMPRTP+3, RMPRTP+4
TO EN1+4*, EXIT+1!
U EN1, EN1+6, EN1+8, CONFIRM+3, CONFIRM+5, CONFIRM+20, CONFIRM+21
X EN, EN1+1, EXIT+1!, CONFIRM+11, CONFIRM+21*
X1 EN1+1*, EXIT+1!, CONFIRM+11*
X2 EN1+1*, EXIT+1!, CONFIRM+11*
>> Y CONFIRM+27*
>> ZTDESC EN2+2*
ZTIO EN2!
>> ZTRTN EN2+2*
>> ZTSAVE( EN2+2*
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 |  Naked Globals |  Local Variables  | All