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

Package: Remote Order Entry System

Routine: RMPFET0


Information

RMPFET0 ;DDC/KAW-SELECTION ORDER ACTIONS [ 11/06/97 4:53 PM ]

Source Information

Source file <RMPFET0.m>

Entry Points

Name Comments DBIA/ICR reference
SELOPT ;; input: RMPFX,RMPFST,RMPFHAT,RMPFTYP
SELEN
SELOPT0
SELOPT1
NUM
SELOPTE
END
CERT
CERT1
CAN ;;Calculate if CANCEL ALLOWED
CANE
READ
PASTWKDY
W1
MSG
E ;;<E> to edit all fields of the order
D ;;<D> to delete the entire order
M ;;<M> to view all messages for the order
H ;;<H> to view the order history
I ;;<I> to enter the issue date
A ;;<A> to make an adjustment
C ;;<C> to cancel the order
R ;;<R> to certify that the order was received
U ;;<U> to view a list of authorized hearing aids
X ;;<X> to view the extended information for this order

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SELOPT+2
Function Call: WRITE
  • Prompt: " Number, <E>dit, <D>elete"
  • Line Location: SELEN+2
Function Call: WRITE
  • Prompt: " <A>djust"
  • Line Location: SELOPT0+3
Function Call: WRITE
  • Prompt: " <I>ssue"
  • Line Location: SELOPT0+6
Function Call: WRITE
  • Prompt: " <A>djust"
  • Line Location: SELOPT0+11
Function Call: WRITE
  • Prompt: " <M>essages"
  • Line Location: SELOPT0+12
Function Call: WRITE
  • Prompt: " A<U>thorized Aids"
  • Line Location: SELOPT0+13
Function Call: WRITE
  • Prompt: " <C>ancel"
  • Line Location: SELOPT0+14
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>69
  • Line Location: SELOPT0+15
Function Call: WRITE
  • Prompt: " <H>istory"
  • Line Location: SELOPT0+15
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>69
  • Line Location: SELOPT0+16
Function Call: WRITE
  • Prompt: " E<X>tended"
  • Line Location: SELOPT0+16
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>69
  • Line Location: SELOPT0+17
Function Call: WRITE
  • Prompt: " <RETURN>: "
  • Line Location: SELOPT0+17
Function Call: WRITE
  • Prompt: " "
  • Condition for execution: FX'="" "," W:$P(A,U,9) " Re-" W:'$P(A,U,9)
  • Line Location: CERT1+0
Function Call: WRITE
  • Prompt: "Ce<R>tify"
  • Line Location: CERT1+0
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: !!,"Enter "
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: CT
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: ?6,$P($T(@X),";;",2)
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: !?6,"field numbers separated by commas to edit only those fields"
  • Line Location: MSG+2
Function Call: WRITE
  • Prompt: ?6,"<RETURN> to continue.",!
  • Line Location: MSG+3
Info |  Source |  Entry Points |  Interaction Calls