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

Package: Remote Order Entry System

Routine: RMPFDT


Information

RMPFDT ;DDC/KAW-PATIENT ORDER INFORMATION; [ 06/16/95 3:06 PM ]

Source Information

Source file <RMPFDT.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Remote Order Entry System 7 ^RMPFDS1  ^RMPFDT1  ^RMPFDT4  ^RMPFDT7  ^RMPFDT8  ^RMPFDT9  (,MENU)^RMPFUTL  
Kernel 2 (,HOME)^%ZIS  ^%ZTLOAD  
VA FileMan 1 ^DIC  

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 RMPFDT  RMPFDX  

Entry Points

Name Comments DBIA/ICR reference
RMPFSET
PAT
ORDERS
ORDERS0
ORDERS1
END
READ
CONT
CONT1
QUE
QUEE
SEL ;;input: RMPFS
S1
SELE
MSG

External References

Name Field # of Occurrence
^%ZIS QUE, QUE+2
HOME^%ZIS QUE+4
^%ZTLOAD QUE+3
^DIC PAT
^RMPFDS1 ORDERS
^RMPFDT1 ORDERS0, QUE+1, QUE+2
^RMPFDT4 CONT1+2
^RMPFDT7 CONT1+3
^RMPFDT8 CONT1+4
^RMPFDT9 CONT1+5
^RMPFUTL RMPFSET+1
MENU^RMPFUTL RMPFSET

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: @IOF,!!,"PATIENT ORDER INFORMATION"
  • Line Location: RMPFSET+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PAT+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: !
  • Line Location: CONT+0
Function Call: WRITE
  • Prompt: !,"Type <P>rint, E<X>tended"
  • Line Location: CONT+1
Function Call: WRITE
  • Prompt: ", <M>essages"
  • Line Location: CONT+2
Function Call: WRITE
  • Prompt: ", <H>istory"
  • Line Location: CONT+3
Function Call: WRITE
  • Prompt: ", <A>uthorized Aids"
  • Line Location: CONT+4
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>65
  • Line Location: CONT+5
Function Call: WRITE
  • Prompt: " or <RETURN> to continue: "
  • Line Location: CONT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: QUE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL+2
Function Call: WRITE
  • Prompt: !!!,"Enter the number of the order to view detail or <^> to exit. "
  • Line Location: SEL+3
Function Call: WRITE
  • Prompt: !!,"Enter the number to the left of the order you wish to view or",!?5," an <^> to exit."
  • Line Location: S1+0
Function Call: WRITE
  • Prompt: !!,"Enter <P> to print this screen"
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: !?6,"<M> to view messages for this order"
  • Line Location: MSG+2
Function Call: WRITE
  • Prompt: !?6,"<H> to view the history of this order"
  • Line Location: MSG+3
Function Call: WRITE
  • Prompt: !?6,"<RETURN> to continue."
  • Line Location: MSG+4
Function Call: WRITE
  • Prompt: !!,"Enter <RETURN> to continue."
  • Line Location: MSG+5
Routine Call
  • %ZIS
  • Line Location:
    • QUE
    • QUE+2
Routine Call
  • %ZIS
  • Line Location:
    • QUE+4
Routine Call
  • DIC
  • Line Location:
    • PAT

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RMPF(791810 - [#791810] ORDERS+2, CONT+2, CONT+4, MSG+2, MSG+3
^RMPF(791810.1 - [#791810.1] ORDERS+2

Label References

Name Line Occurrences
CONT ORDERS1, QUE+1
CONT1 CONT1
END PAT, ORDERS, ORDERS+1, ORDERS0, ORDERS1, QUE
MSG CONT1
ORDERS0 ORDERS1
PAT ORDERS
QUEE QUE+1
READ READ+1, CONT+5, SEL+4, MSG+5
RMPFSET ORDERS+1, ORDERS1
S1 S1+1
SEL ORDERS+1, S1
SELE SEL+4, S1+1

Naked Globals

Name Field # of Occurrence
^(0 ORDERS+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END+1!
%T QUEE!
%Y END+1!
%ZIS QUE*, QUE+2*, QUEE!
C END+1!
CM END+1!
CN END!
DFN PAT*, END!
DIC PAT*!, END+1!
DIC(0 PAT*
DISYS END+1!
DTIME READ+1
I END+1!, CONT*, CONT1+6!, SEL+2*, SELE!
IO QUE+1
IO("S" QUE+1, QUE+2
IO(0 QUE+1
IOF RMPFSET+2
ION QUE+2, QUE+3
>> IOP QUE+2*
IOSL CONT
J END+1!
L END+1!
POP QUE, QUEE!
RMPFCX ORDERS, END!
>> RMPFDAT RMPFSET+1
RMPFHAT ORDERS+2*, END!, CONT+3, CONT1+3
>> RMPFMENU RMPFSET
RMPFO END!
RMPFORD ORDERS*, END!
RMPFOUT ORDERS, ORDERS+1, ORDERS0, ORDERS1, END!, READ!, READ+2*, CONT+5, SEL+4
RMPFQUT END!, READ!, READ+3*, CONT1, S1, S1+1*
RMPFS SELE!
RMPFS( S1+1, S1+2
>> RMPFSTAN RMPFSET+1
>> RMPFSYS RMPFSET+1
RMPFTP ORDERS*, END!, MSG+1
RMPFX ORDERS+1, ORDERS+2, ORDERS1, END!, CONT+2, CONT+4, CONT1+1!, SEL+2!, S1+2*, MSG+2
, MSG+3
T END+1!
U ORDERS+2, READ+1, MSG+3
X ORDERS+2*, END+1!
Y PAT, END!, READ+1*, READ+2*, READ+3*, CONT1+1, CONT1+2*, CONT1+3, CONT1+4, CONT1+5
, CONT1+6*, S1+1, S1+2, SELE!
ZTIO QUE+3*, QUEE!
ZTRTN QUE+3*, QUEE!
ZTSAVE QUEE!
ZTSAVE("RMPF*" QUE+3*
ZTSK QUE+4, QUEE!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All