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

Package: Remote Order Entry System

Routine: RMPFEA2


Information

RMPFEA2 ;DDC/KAW-APPROVE ORDERS [ 06/20/97 10:39 AM ]

Source Information

Source file <RMPFEA2.m>

Entry Points

Name Comments DBIA/ICR reference
APPROV ;; input: RMPFX,RMPFHAT
AP
APPROV1
APP
APP1
SET ;; input: RMPFX,RMPFHAT
ST1
ST2
SETX
SETE
SET1 ;;Set to approved and place in a batch when line item known
BATCH ;;Find open batch
TRANS ;;Add order to a batch
COUNT
BATCHE
END
FORM
FORM1
READ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"APPROVE this order? YES// "
  • Line Location: APP+0
Function Call: WRITE
  • Prompt: !!,"Enter <Y> to approve the order and place it in a batch or <N> to continue."
  • Line Location: APP1+0
Function Call: WRITE
  • Prompt: !!,$C(7),"*** UNABLE TO ADD A NEW BATCH - CONTACT IRMS ***"
  • Line Location: BATCH+8
Function Call: WRITE
  • Prompt: !!,$C(7),"*** NOT ADDED - CONTACT IRMS ***"
  • Line Location: TRANS+10
Function Call: WRITE
  • Prompt: !!?20,"*** ADDED TO TRANSMISSION BATCH *** "
  • Line Location: COUNT+1
Function Call: WRITE
  • Prompt: !!,"Print Form 10-2477a? NO// "
  • Line Location: FORM+0
Function Call: WRITE
  • Prompt: !!,"Enter a <Y> to print a 2477a, <N> or <RETURN> to exit."
  • Line Location: FORM1+0
Function Call: READ
  • Variable: Y
  • Timeout: DTIME
  • Line Location: READ+1
Function Call: READ
  • Variable: Y
  • Timeout: 5
  • Line Location: READ+1

FileMan Files Accessed Via FileMan Db Call

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