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

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

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

FileMan Files Accessed Via FileMan Db Call

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

Info | Source | Entry Points | Interaction Calls | FileMan Files Accessed Via FileMan Db Call