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 |  Marked Items  | All
Print Page as PDF
Routine: RMPFQS

Package: Remote Order Entry System

Routine: RMPFQS


Information

RMPFQS ;DDC/KAW-PURGE ORDERS; [ 06/16/95 3:06 PM ]

Source Information

Source file <RMPFQS.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 2 (,HOME)^%ZIS  ^%ZTLOAD  
Remote Order Entry System 2 (BATCH,PURGE)^RMPFQS1  (,MENU)^RMPFUTL  
VA FileMan 2 ^%DT  ^DIE  

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

Package Total Caller Graph
Remote Order Entry System 2 RMPFQS  RMPFQS1  

Entry Points

Name Comments DBIA/ICR reference
RMPFSET
STATS
STATS1
VIEW
VIEW1
ASK
ASK1
SURE
SURE1
END
RUN ;; input: RMPFP
READ
QUE
STATUS ;;Statuses to purge

External References

Name Field # of Occurrence
^%DT RUN+2
^%ZIS QUEQUE+2
HOME^%ZIS QUE+4
^%ZTLOAD SURE1+3, QUE+4
^DIE RUN+4
BATCH^RMPFQS1 RUN+4
PURGE^RMPFQS1 RUN+4, QUE+1, QUE+2
^RMPFUTL RMPFSET+1
MENU^RMPFUTL RMPFSET

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),"*** A MENU SELECTION MUST BE MADE ***"
  • Line Location: RMPFSET+0
Function Call: WRITE
  • Prompt: @IOF,!,"PURGE ORDERS",!!?23,"*** WARNING ***"
  • Line Location: RMPFSET+2
Function Call: WRITE
  • Prompt: !!,"This routine will permanently purge orders from the disk."
  • Line Location: RMPFSET+3
Function Call: WRITE
  • Prompt: !,"The number of days to retain orders with a status that can be purged"
  • Line Location: RMPFSET+4
Function Call: WRITE
  • Prompt: !,"is controlled by the parameter file. If a status has no entry in the"
  • Line Location: RMPFSET+5
Function Call: WRITE
  • Prompt: !,"parameter file, it will be purged 30 days after the last action on the order."
  • Line Location: RMPFSET+6
Function Call: WRITE
  • Prompt: !!,"Only orders with one of the following statuses will be purged: ",!
  • Line Location: RMPFSET+7
Function Call: WRITE
  • Prompt: !!,"Enter an <*> to purge all statuses or status(es) selected by letter(s): "
  • Line Location: STATS+0
Function Call: WRITE
  • Prompt: !!,"Enter an <*> to purge all orders with a status listed above or",!?6,"the letter or letters to the left of each status separated by commas",!?6,"to select specific statuses."
  • Line Location: STATS1+0
Function Call: WRITE
  • Prompt: !!,"<P>rint orders to be purged or <RETURN> to continue: "
  • Line Location: VIEW+0
Function Call: WRITE
  • Prompt: !!,"Enter a <P> to print a list of the orders to be purged or",!?8,"<RETURN> to continue with the process."
  • Line Location: VIEW1+0
Function Call: WRITE
  • Prompt: !!!!,"Do you wish to purge these orders now? NO// "
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !,$P(^(0),U,1)
  • Line Location: ASK1+2
Function Call: WRITE
  • Prompt: !!,"Are you sure? NO// "
  • Line Location: SURE+0
Function Call: WRITE
  • Prompt: !!,"Enter <Y> to begin the purge, <N> or <RETURN> to exit."
  • Line Location: SURE1+0
Function Call: WRITE
  • Prompt: !!,"*** Request Queued ***"
  • Line Location: SURE1+3
Function Call: READ
  • Variable: Y
  • Timeout: DTIME
  • Line Location: READ+1
Function Call: READ
  • Variable: Y
  • Timeout: 5
  • Line Location: READ+1
Function Call: WRITE
  • Prompt: !
  • Line Location: QUE+0
Routine Call
  • DIE
  • Line Location:
    • RUN+4
Routine Call
  • %ZIS
  • Line Location:
    • QUE
    • QUE+2
Routine Call
  • %ZIS
  • Line Location:
    • QUE+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RMPF(791813 - [#791813] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RMPF(791810.2 - [#791810.2] ASK1+2

Label References

Name Line Occurrences
ASK VIEW1+1, VIEW1+2, ASK1
ASK1 ASK1+3
END STATSSTATS1+1, VIEW+1, ASKASK+2, ASK1+4, SURE+1, SURE1+2, QUE
QUE VIEW1+2
READ STATSVIEW+1, ASK+1, SUREREAD+1
STATS STATS1
STATS1 STATS1+4
SURE SURE1
SURE1 SURE1+1
VIEW STATS1+3, VIEW1
VIEW1 VIEW1+1

Naked Globals

Name Field # of Occurrence
^(0 ASK1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT RUN+2*, RUN+5!
%H RUN+5!
%T RUN+5!
%X END!
%XX END!
%Y END!
%YY END!
>> %ZIS QUE*, QUE+2*
A RMPFSET+9*, RMPFSET+10, RMPFSET+12, RMPFSET+13, END!
B RMPFSET+9*, RMPFSET+12, END!
C RMPFSET+9*, RMPFSET+13, END!
D RMPFSET+9*, RMPFSET+11, END!, RUN+5!
D0 RUN+5!
DA RUN+3*, RUN+5!
DI RUN+5!
DIE RUN+3*, RUN+5!
DQ RUN+5!
DR RUN+3*, RUN+5!
DTIME READ+1
DUZ RUN+3
E RMPFSET+11*, RMPFSET+12, RMPFSET+13, END!
I STATS1+4*, END!
IO QUE+1
>> IO("S" QUE+1, QUE+2
>> IO(0 QUE+1
IOF RMPFSET+2
ION QUE+2, QUE+3
>> IOP QUE+2*
IX RMPFSET+8*, END!
POP END!, QUE
RM RMPFSET+7!
RMPF END!
RMPF( RMPFSET+13*, STATS1+2, STATS1+5, STATS1+6
RMPFCX VIEW1+2, ASKSURE1+2*, END!
>> RMPFDAT RMPFSET+1
RMPFL VIEW!, VIEW1+2*!, SURE1+1!
>> RMPFMENU RMPFSETRMPFSET+10
RMPFOUT STATSSTATS1+4, STATS1+5*, VIEW+1, ASK+2, SURE+1, READ!, READ+2*
RMPFP STATS1+1!, END!, RUN+5!
RMPFP( STATS1+2*, STATS1+6*, ASK1+2
RMPFQUT STATS1STATS1+4*, VIEW1VIEW1+1*, ASK1ASK1+3*, SURE1SURE1+1*, READ!, READ+3*
RMPFS RUN+5!
>> RMPFSTAN RMPFSET+1, RUN+3
>> RMPFSYS RMPFSET+1
>> RMPFSYS(1 RMPFSET+11
TD RUN+2*, RUN+3, RUN+5!
U RMPFSET+11, RMPFSET+13, STATS1+2, STATS1+6, ASK1+2, READ+1
W STATS1+6*!
>> X RMPFSET+8*, RMPFSET+9, STATS1+2*, STATS1+4*, STATS1+5, STATS1+6, ASK1+2*, RUN+2*
Y STATS1+1, STATS1+2, STATS1+3, STATS1+4, VIEW1+1*, ASK1+3*, ASK1+4, SURE1+1*, SURE1+2, END!
RUN+2, RUN+5!, READ+1*, READ+2*, READ+3*
>> Y1 STATS1+2*
>> ZTDESC SURE1+3*, QUE+3*
>> ZTIO SURE1+2*, QUE+3*
>> ZTRTN SURE1+2*, QUE+3*
>> ZTSAVE("RM*" SURE1+2*, QUE+3*
ZTSK END!, RUN+5!, QUE+5

Marked Items

Name Field # of Occurrence
$T(STATUS+IX RMPFSET+8
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 |  Marked Items  | All