Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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 ;

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RMPR(668 - [#668] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call