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
Print Page as PDF
Routine: RMPFET82

Package: Remote Order Entry System

Routine: RMPFET82


Information

RMPFET82 ;DDC/KAW-CANCEL A LINE ITEM [ 06/16/95 3:06 PM ]

Source Information

Source file <RMPFET82.m>

Entry Points

Name Comments DBIA/ICR reference
START
EXECUTE
EXIT
END
ASK1 ;;Ask to cancel multiple items
ASK11
ASK1E
ASK2 ;;Select items to cancel
ASK21
ASK22
ASK221
ASK2E
APPROV ;;Display and ask if selection correct
APP1
APP11
APPROVE
CANCEL1 ;;Cancel a line item
CANCEL1E
SET ;;Set up array of items to cancel
READ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,?35,"ACTIVE LINE ITEMS",!
  • Line Location: START+0
Function Call: WRITE
  • Prompt: !!,"*** NO LINE ITEMS TO CANCEL ***"
  • Line Location: START+6
Function Call: WRITE
  • Prompt: !!,$S(RMPFHAT="C"!(RMPFHAT="I")!(RMPFHAT="X"):"*** ALL LINE ITEMS HAVE ALREADY BEEN CANCELED ***",1:"*** NO ITEMS HAVE BEEN BACKORDERED ***")
  • Line Location: START+7
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+0
Function Call: WRITE
  • Prompt: !,"Type <RETURN> to continue."
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: !!,"Do you wish to cancel the orders for ",CL," line items? NO// "
  • Line Location: ASK1+3
Function Call: WRITE
  • Prompt: !!,"Enter a <Y> to cancel all line items",!?5,"an <N> or <RETURN> to select line items to cancel."
  • Line Location: ASK11+0
Function Call: WRITE
  • Prompt: !!,"Select the Number of the item you wish to cancel: "
  • Line Location: ASK2+3
Function Call: WRITE
  • Prompt: !!,"Enter the number to the left of the item you wish to cancel."
  • Line Location: ASK21+0
Function Call: WRITE
  • Prompt: !!,"*** ITEM ALREADY SELECTED ***"
  • Line Location: ASK21+2
Function Call: WRITE
  • Prompt: !!,"*** ITEM ALREADY CANCELED ***"
  • Line Location: ASK21+3
Function Call: WRITE
  • Prompt: !!,"Select another? NO// "
  • Line Location: ASK22+0
Function Call: WRITE
  • Prompt: !!,"Enter a <Y> to select another item to cancel",!?5,"an <N> or <RETURN> to continue"
  • Line Location: ASK221+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: CN
  • Line Location: APPROV+5
Function Call: WRITE
  • Prompt: ?25,RMPFIT," (",RMPFQTY,")"
  • Line Location: APPROV+5
Function Call: WRITE
  • Prompt: !!,"Are you sure you wish to cancel ",$S(CN>1:"these",1:"this")," item",$S(CN>1:"s",1:""),"? NO// "
  • Line Location: APP1+0
Function Call: WRITE
  • Prompt: !!,"Enter a <Y> to cancel ",$S(CN>1:"these",1:"this")," item(s)",$S(CN>1:"s",1:""),"",!?5,"an <N> or <RETURN> to leave the item",$S(CN>1:"s",1:"")," active in the order."
  • Line Location: APP11+0
Function Call: WRITE
  • Prompt: !!,"Item",$S(C=1:"",1:"(s)")," CANCELED",!!
  • Line Location: CANCEL1E+0
Function Call: READ
  • Variable: Y
  • Timeout: DTIME
  • Line Location: READ+1
Function Call: READ
  • Variable: Y
  • Timeout: 5
  • Line Location: READ+1
Info |  Source |  Entry Points |  Interaction Calls