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

Package: Remote Order Entry System

Routine: RMPFEA


Information

RMPFEA ;DDC/KAW-APPROVE/DISAPPROVE ORDERS; [ 06/16/95 3:06 PM ]

Source Information

Source file <RMPFEA.m>

Entry Points

Name Comments DBIA/ICR reference
RMPFSET
WRITE
START
ST1
APP
APP1
END
DIS ;; input: RMPFX
DIS1
APRV
APRVE
READ
MSG
CONT

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: !!,"APPROVAL",?13,"will place an order in the open transmission batch",!?13,"with the status APPROVED"
  • Line Location: WRITE+0
Function Call: WRITE
  • Prompt: !!,"DISAPPROVAL",?13,"of an order will terminate that order with a status",!?13,"of DISAPPROVED."
  • Line Location: WRITE+1
Function Call: WRITE
  • Prompt: !!,"Enter <A>pprove, <D>isapprove"
  • Line Location: APP+0
Function Call: WRITE
  • Prompt: ", <H>istory"
  • Line Location: APP+1
Function Call: WRITE
  • Prompt: " or <^> to exit: A// "
  • Line Location: APP+2
Function Call: WRITE
  • Prompt: !!,"Enter an <A> if you wish to approve this order,",!?7,"a <D> if you wish to disapprove this order"
  • Line Location: APP1+0
Function Call: WRITE
  • Prompt: !?6,"an <H> to view the history of the order"
  • Condition for execution: FX["H"
  • Line Location: APP1+0
Function Call: WRITE
  • Prompt: !?6,"an <^> to exit."
  • Line Location: APP1+0
Function Call: WRITE
  • Prompt: !!,"Reason for Disapproval: "
  • Line Location: DIS+2
Function Call: WRITE
  • Prompt: !!,"Enter the reason for disapproving this order in 3 to 30 characters."
  • Line Location: DIS1+0
Function Call: WRITE
  • Prompt: $C(7),!!,"*** APPROVAL PROCESS OCCURS AUTOMATICALLY WHEN ORDER IS PLACED ***"
  • Line Location: APRV+1
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: $C(7),!!,"*** YOU HAVE NOT BEEN DESIGNATED AS ",$S($P(RMPFSYS,U,7)="A":"AN AUDIOLOGIST OR SUPERVISOR",1:"A SUPERVISOR")," ***"
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+0
Function Call: WRITE
  • Prompt: !!,"Enter <RETURN> to continue."
  • Line Location: CONT+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RMPF(791810 - [#791810] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call