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

Package: Remote Order Entry System

Routine: RMPFEM


Information

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

Source Information

Source file <RMPFEM.m>

Entry Points

Name Comments DBIA/ICR reference
RMPFSET
SEL
A1
A11
A2
A21
END
READ

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,!!,"INACTIVATE A LINE ITEM"
  • Line Location: RMPFSET+2
Function Call: WRITE
  • Prompt: !!,"Inactivating a line item will make that item unavailable for selection in the"
  • Line Location: RMPFSET+3
Function Call: WRITE
  • Prompt: !,"ordering of new products. This option should be used to disallow items no"
  • Line Location: RMPFSET+4
Function Call: WRITE
  • Prompt: !,"longer under contract."
  • Line Location: RMPFSET+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !!,"Item",?22,"Make",?40,"Price"
  • Line Location: SEL+2
Function Call: WRITE
  • Prompt: !,"--------------------",?22,"----------------",?40,"-------"
  • Line Location: SEL+3
Function Call: WRITE
  • Prompt: !,$E($P(Y,U,2),1,20),?22,$E(MK,1,16),?40,"$",$J(CS,6,2)
  • Line Location: SEL+4
Function Call: WRITE
  • Prompt: !!,"Are you sure you wish to inactivate this item? NO// "
  • Line Location: A1+0
Function Call: WRITE
  • Prompt: !!,"Type <Y>es to prevent the item from being ordered or <N>o to exit."
  • Line Location: A11+0
Function Call: WRITE
  • Prompt: !!,"*** ITEM INACTIVATED ***"
  • Line Location: A11+3
Function Call: WRITE
  • Prompt: !!,"This item has already been inactivated. Do you wish to re-activate? NO// "
  • Line Location: A2+0
Function Call: WRITE
  • Prompt: !!,"Type <Y>es to re-activate the item. If the item is no longer",!,"under contract, any orders will be rejected from the DDC.",!,"Enter <N>o or <RETURN> to exit without change."
  • Line Location: A21+0
Function Call: WRITE
  • Prompt: !!,"*** ITEM RE-ACTIVATED ***"
  • Line Location: A21+3
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