Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RMPFEA3

Package: Remote Order Entry System

Routine: RMPFEA3


Information

RMPFEA3 ;DDC/KAW-AUTOQUEUE MANAGER FOR TRANSMISSION BATCHES [ 06/16/95 3:06 PM ]

Source Information

Source file <RMPFEA3.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Remote Order Entry System 2 REQUE^RMPFEA3  CLOSE^RMPFEB  
VA FileMan 2 ^%DT  C^%DTC  
Kernel 1 (,REQ)^%ZTLOAD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Remote Order Entry System 2 RMPFEA2  RMPFEA3  

Entry Points

Name Comments DBIA/ICR reference
QUE
END
REQUE ;;Reschedule the closing and transmission of a batch
REQUEE
EMER ;;Queue or requeue emergency batch
EMER1
EMERE
READ

External References

Name Field # of Occurrence
^%DT RMPFEA3+7, REQUE+5
C^%DTC RMPFEA3+9
^%ZTLOAD QUE+2
REQ^%ZTLOAD REQUE+5
REQUE^RMPFEA3 EMER1+3
CLOSE^RMPFEB EMER1+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),"*** THIS BATCH HAS NOT BEEN SCHEDULED FOR TRANSMISSION ***"
  • Line Location: REQUE+4
Function Call: WRITE
  • Prompt: !!,"*** TASK NOT REQUEUED ***"
  • Line Location: REQUE+6
Function Call: WRITE
  • Prompt: !!,"This order has a delivery category of: "
  • Line Location: EMER+3
Function Call: WRITE
  • Prompt: $S(RMPFCAT="E":"EMERGENCY",1:"PRIORITY")
  • Line Location: EMER+4
Function Call: WRITE
  • Prompt: !!,"Do you wish to close the open batch and transmit now? YES// "
  • Line Location: EMER+5
Function Call: WRITE
  • Prompt: !!,"Enter a <Y> or <RETURN> to close and transmit the batch immediately",!?7,"an <N> to leave the batch for later transmission."
  • Line Location: EMER1+0
Function Call: READ
  • Variable: Y
  • Timeout: DTIME
  • Line Location: READ+1
Function Call: READ
  • Variable: Y
  • Timeout: 5
  • Line Location: READ+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RMPF(791812 - [#791812] QUE+3*, REQUE+3, EMER1+3

Label References

Name Line Occurrences
EMER EMER1
EMER1 EMER1+1
EMERE EMER1+2, EMER1+3
READ EMER+6, READ+1
REQUEE REQUE+4

Naked Globals

Name Field # of Occurrence
^(0 REQUE+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT RMPFEA3+7*, REQUE+5*
A RMPFEA3+8*, RMPFEA3+9, END!
B RMPFEA3+8*, RMPFEA3+9, END!
DT RMPFEA3+8, RMPFEA3+9
DTIME READ+1
>> RMPFBT RMPFEA3+5, QUE+3, REQUE+3, EMER1+3
>> RMPFCAT EMER+4
RMPFOUT EMER+6, READ!, READ+2*
RMPFQUT EMER1, EMER1+1*, READ!, READ+3*
>> RMPFSYS RMPFEA3+5, RMPFEA3+6
TM RMPFEA3+6*, RMPFEA3+8, END!
U RMPFEA3+5, RMPFEA3+6, QUE+3, REQUE+3, EMER1+3, READ+1
X RMPFEA3+7*, RMPFEA3+9, END!, REQUE+5*, REQUEE!
>> X1 RMPFEA3+9*
>> X2 RMPFEA3+9*
Y RMPFEA3+8, END!, REQUE+5, REQUEE!, EMER1+1*, EMER1+2, READ+1*, READ+2*, READ+3*
ZTDESC QUE*, END!
ZTDTH RMPFEA3+8*, RMPFEA3+9*, END!, REQUE+5*
ZTIO QUE*, END!
ZTRTN QUE+2*, END!
ZTSAVE END!
ZTSAVE("RMPFBT" QUE*
ZTSAVE("RMPFMENU" QUE+1*
ZTSAVE("RMPFSTAP" QUE+1*
ZTSAVE("RMPFSYS" QUE+1*
ZTSK QUE+3, END!, REQUE+3*, REQUE+4, REQUEE!
ZTSK(0 REQUE+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All