Routine: RMPFET81

Information

RMPFET81 ;DDC/KAW-CONTINUATION OF RMPFET8 [ 06/16/95 3:06 PM ]

Name	Comments	DBIA/ICR reference
ADDC	;;Adjustment - Add a component
ADDCE
CHANGEM	;;Adjustment - Change model
CH1
CH2
CH3
WARCHCK	;;CHECK TO SEE IF OLD MODEL HAS 2ND YEAR WARRANTY
ADDWAR	;;ADD 2ND YEAR WARRANTY TO NEW MODEL
REMOVEC	;;Adjustment - Remove a component from an order
RE1
RE2
REMOVECE
REASON	;;Enter reason for adjustment
REAS1
STATUS	;;Set status of line item
S2
S3
SURE
SURE1
READ

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Are you sure you wish to change the model? NO// " Line Location: CHANGEM+3
Function Call: WRITE	Prompt: !!,"Enter <Y> to proceed with changing the model, <N> or <RETURN> to continue." Line Location: CH1+0
Function Call: WRITE	Prompt: ! Line Location: CH2+2
Function Call: WRITE	Prompt: !!,"* MODEL CHANGED *" Line Location: CH2+14
Function Call: WRITE	Prompt: ! Line Location: RE1+4
Function Call: WRITE	Prompt: $C(7),!!,"* COMPONENT IS NOT LISTED IN ORDER *" Line Location: RE1+6
Function Call: WRITE	Prompt: $C(7),!!,"* COMPONENT NOT DELETED *" Line Location: RE2+3
Function Call: WRITE	Prompt: !!,"* COMPONENT REMOVED *" Line Location: RE2+8
Function Call: WRITE	Prompt: !!,"Enter the reason for the adjustment: " Line Location: REASON+3
Function Call: WRITE	Prompt: !!,"Enter a free text reason of 3 to 17 characters." Line Location: REAS1+0
Function Call: WRITE	Prompt: !!,"This item is currently NOT UNDER CONTRACT to the VA." Line Location: SURE+0
Function Call: WRITE	Prompt: !,"You may select this item in the adjustment option only." Line Location: SURE+1
Function Call: WRITE	Prompt: !!,"Make another selection? NO// " Line Location: SURE+2
Function Call: WRITE	Prompt: !!,"Enter an <N> or <RETURN> to continue with this selection",!?7,"a <Y> to make another line item selection." Line Location: SURE1+0
Function Call: READ	Variable: Y Timeout: DTIME Line Location: READ+1
Function Call: READ	Variable: Y Timeout: 5 Line Location: READ+1

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