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 |  Marked Items  | All
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>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Remote Order Entry System 13 ARRAY^RMPFDT2  ^RMPFDT4  ^RMPFDT7  ^RMPFDT8  ^RMPFDT9  ^RMPFEA2  DELETE^RMPFET1  ^RMPFET2  
SUB^RMPFET5  ^RMPFET7  ^RMPFET8  ^RMPFET82  DISP^RMPFET84  
VA FileMan 1 (C,H)^%DTC  

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

Package Total Caller Graph
Remote Order Entry System 4 RMPFES  RMPFET  RMPFET62  RMPFET71  

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

External References

Name Field # of Occurrence
C^%DTC W1
H^%DTC W1
ARRAY^RMPFDT2 SELOPT0, CAN+3
^RMPFDT4 SELOPT1+7
^RMPFDT7 SELOPT1+6
^RMPFDT8 SELOPT1+12
^RMPFDT9 SELOPT1+14
^RMPFEA2 SELOPT1+1
DELETE^RMPFET1 SELOPT1+8
^RMPFET2 SELOPT1+9, SELOPT1+11
SUB^RMPFET5 NUM+4
^RMPFET7 SELOPT1+9
^RMPFET8 SELOPT1+11
^RMPFET82 SELOPT1+13
DISP^RMPFET84 SELOPT1+10

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^HOLIDAY - [#40.5] W1+1
^RMPF(791810 - [#791810] SELOPT0+2, SELOPT0+5, SELOPT0+8, SELOPT0+12, SELOPT0+13, CERT, CAN+6, CAN+9
^RMPF(791810.2 - [#791810.2] SELEN+1, SELOPT0+8

Label References

Name Line Occurrences
CAN SELOPT0+14
CANE CAN+4, CAN+5
CERT SELOPT0+8
CERT1 CERT+2, CERT+3, CERT+4
MSG SELOPT1
NUM SELOPT1+2
PASTWKDY SELOPT0+9, CAN+9
READ SELOPT0+18, READ+1, MSG+4
SELOPT1 SELOPT1+4, NUM+1
SELOPTE SELOPT0+18, SELOPT1, SELOPT1+1, SELOPT1+5, SELOPT1+6, SELOPT1+7, SELOPT1+8, SELOPT1+9, SELOPT1+10, SELOPT1+11
, SELOPT1+12, SELOPT1+13, SELOPT1+14
W1 W1+3

Naked Globals

Name Field # of Occurrence
^(0 SELOPT0+8, SELOPT0+11
^(90 SELOPT0+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%H PASTWKDY+2~
%Y SELOPTE!, W1+1
A SELOPTE!, CERT*, CERT+1, CERT+2, CERT+3, CERT+4, CERT1
BD PASTWKDY+2~
CN SELOPT0+14, SELOPT0+18!, CAN+4*, CAN+6*, CAN+7, CAN+8*, CAN+9*
CT MSG*, MSG+1*, MSG+5!
DT SELOPT0+9, CAN+9
DTIME READ+1
DW PASTWKDY+2~
FL SELOPT0+4*, SELOPT0+5*, SELOPT0+6, SELOPTE!
FX SELEN*, SELEN+2*, SELOPT0+3*, SELOPT0+6*, SELOPT0+8, SELOPT0+9, SELOPT0+11*, SELOPT0+12*, SELOPT0+13*, SELOPT0+14*
, SELOPT0+15*, SELOPT0+16*, SELOPT0+17, SELOPT1+2, SELOPT1+4, SELOPTE!, CERT1*, MSG+1, MSG+3
I SELOPT+2*, SELEN+2*, SELOPT0+1*, NUM+1*, SELOPTE!, MSG+1*, MSG+2*
ID END!, CAN+9*
>> RMPFERR SELOPT1+1
RMPFF SELOPT0+18!
>> RMPFHAT SELOPT0+15, CAN+4, CAN+5, CAN+9
RMPFO SELOPT0!, CANE!
RMPFO( SELOPT0+5, SELOPT0+8, SELOPT0+11, CAN+6, CAN+7, CAN+8, CAN+9
RMPFOUT SELOPT0+18, SELOPT1+1, SELOPT1+9, SELOPT1+11, READ!, READ+2*, MSG+4
RMPFQUT SELOPT1, SELOPT1+4*, NUM!, NUM+1, NUM+3*, READ!, READ+3*, MSG+4*
RMPFSEL SELEN!, SELOPT1!, SELOPT1+2*, SELOPT1+3*, SELOPT1+4, SELOPT1+5*, SELOPT1+6, SELOPT1+7, SELOPT1+8, SELOPT1+9
, SELOPT1+10~, SELOPT1+11, SELOPT1+12, SELOPT1+13, SELOPT1+14
>> RMPFSL NUM+4
>> RMPFSL( NUM+2*
>> RMPFST SELEN, SELEN+1
>> RMPFTP SELOPT0+16
>> RMPFTYP SELEN+2, SELOPT0, SELOPT0+6
RMPFX SELOPT0+2, SELOPT0+5, SELOPT0+8, SELOPT0+12, SELOPT0+13, SELOPT1+1!, CERT, CAN+6, CAN+9
S0 SELOPT0+8*, SELOPTE!, CERT+1, CERT+4
SU SELEN+1*, SELEN+2, SELOPT0+1, SELOPT0+9, SELOPTE!, MSG+2
U SELEN+1, SELOPT0+5, SELOPT0+8, SELOPT0+11, CERT+1, CERT+2, CERT+3, CERT+4, CERT1, CAN+6
, CAN+9, READ+1
WK PASTWKDY+2~*, W1+1*, W1+2
X SELOPT0+4*, SELOPT0+5*, SELOPT0+7*, SELOPT0+8*, SELOPT0+9*, SELOPT0+10*, SELOPT0+11*, SELOPTE!, CERT, CAN+6*
, CAN+9*, CANE!, PASTWKDY, W1, W1+1, W1+2, MSG+1*
X1 SELOPTE!, W1*
X2 SELOPTE!, W1*
XX CAN+7*, CAN+8, CAN+9, CANE!
Y SELOPT0+8*, SELOPT1+1, SELOPT1+2, SELOPT1+3, NUM+1, SELOPTE!, CERT+2, CERT+3, CAN+9, READ+1*
, READ+2*, READ+3*, W1+2*
Z SELOPT0+9*, NUM+1*, NUM+2, SELOPTE!, CAN+9*, PASTWKDY+2*, W1+2

Marked Items

Name Field # of Occurrence
$T(@X MSG+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All