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 |  Local Variables  | All
Print Page as PDF
Routine: RMPFQP

Package: Remote Order Entry System

Routine: RMPFQP


Information

RMPFQP ;DDC/KAW-PRINT VA FORM 10-2477a; [ 06/16/95 3:06 PM ]

Source Information

Source file <RMPFQP.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Remote Order Entry System 3 ^RMPFDS1  SEL^RMPFDX  (,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 RMPFEA2  RMPFQP  

Entry Points

Name Comments DBIA/ICR reference
RMPFSET
TYPE
PAT1
END
PAT
READ
SEL
SEL1
CHOOSE
CH1
CH2
CHE
QUE
NUM
NUM1

External References

Name Field # of Occurrence
^%ZIS QUE, QUE+2
HOME^%ZIS NUM1+4
^%ZTLOAD NUM1+4
^DIC PAT
^RMPFDS1 PAT1+1
SEL^RMPFDX PAT1+2
^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,!!,"PRINT VA FORM 10-2477a"
  • Line Location: RMPFSET+2
Function Call: WRITE
  • Prompt: !!,"*** NO ORDERS EXIST FOR THIS PATIENT ***"
  • Line Location: PAT1+0
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: !!,"Print an <O>rder, <P>atient data only or a <B>lank Form 10-2477a: "
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !!,"Enter an <O> to select an order to print,",!?7,"a <P> to print only the patient information or",!?7,"a <B> to print a blank Form 10-2477a."
  • Line Location: SEL1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: CHOOSE+1
Function Call: WRITE
  • Prompt: !,"Select a Number or <RETURN> to continue: "
  • Line Location: CH1+0
Function Call: WRITE
  • Prompt: !!,"Enter the number to the left of the order or",!?5,"<RETURN> to continue."
  • Line Location: CH2+0
Function Call: WRITE
  • Prompt: !
  • Line Location: QUE+0
Function Call: WRITE
  • Prompt: !!,"Number of copies to print: 1// "
  • Line Location: NUM+0
Function Call: WRITE
  • Prompt: !!,"Enter a number from 1 to 10 for the number of copies to print."
  • Line Location: NUM1+0
Routine Call
  • %ZIS
  • Line Location:
    • QUE
    • QUE+2
Routine Call
  • %ZIS
  • Line Location:
    • NUM1+4
Routine Call
  • DIC
  • Line Location:
    • PAT

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RMPF(791810 - [#791810] TYPE+4

Label References

Name Line Occurrences
@( QUE+1, QUE+2
CH1 CH2
CH2 CH2+1
CHE CHOOSE, CH1+1, CH2+1
END TYPE, TYPE+2, TYPE+3, PAT1+2, PAT1+3, PAT
NUM NUM1
NUM1 NUM1+1
PAT TYPE+2, TYPE+3
PAT1 PAT1+1
QUE TYPE+2, PAT1+1, PAT1+3
READ READ+1, SEL+1, CH1, NUM
RMPFSET PAT1+3
SEL TYPE, SEL1
SEL1 SEL1+1
TYPE PAT1, PAT1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END+2!
%T END+2!
%Y END+2!
%ZIS END+2!, QUE*, QUE+2*
C END+2!
CX TYPE+3*, TYPE+4*, PAT1, PAT1+1*, END+1!
DFN TYPE+2, TYPE+3, TYPE+4, END+1!, PAT!*
DIC END+2!, PAT*
DIC(0 PAT*
DISYS END+1!
DTIME READ+1
DX TYPE+3*, TYPE+4*, END+1!
EX TYPE+4*, END+1!
I TYPE+4*, END+1!, CHOOSE+1*
IO QUE+1
IO("S" QUE+1, QUE+2
IO(0 QUE+1
IOF RMPFSET+2
ION QUE+2, NUM1+3
>> IOP QUE+2*
J TYPE+4*, END+1!
KX END+1!
POP END+2!, QUE
RMPFCNT END+1!, QUE*, NUM1+2*
RMPFCX PAT1+1, END+2!
>> RMPFDAT RMPFSET+1
RMPFHAT END+1!
>> RMPFMENU RMPFSET
RMPFO END+1!
RMPFORD PAT1+1*, END!
RMPFOUT TYPE, TYPE+3, PAT1+2, PAT1+3, END!, READ!, READ+2*, SEL+1, CH1+1, NUM+1
RMPFP END!
RMPFQUT END!, READ!, READ+3*, SEL1, SEL1+1*, CH2, CH2+1*, NUM1, NUM1+1*
RMPFR END!
RMPFRSTA END+2!
RMPFRTN TYPE+1*, END!, QUE+1, QUE+2, NUM1+3
RMPFS END!, CHOOSE, CHE!
RMPFS( CH2+1, CH2+2
>> RMPFSTAN RMPFSET+1
>> RMPFSYS RMPFSET+1
RMPFTP PAT1+1*, END!
RMPFX TYPE+4*, PAT1+2, END!, CHOOSE!, CH2+2*
U READ+1
X END+2!, SEL1+2!
Y TYPE, TYPE+1, TYPE+2, END+2!, PAT, READ+1*, READ+2*, READ+3*, SEL1+1*, CH2+1
, CH2+2, CHE!, NUM1+1*, NUM1+2
ZTDESC END+2!, NUM1+3*
ZTIO END+2!, NUM1+3*
ZTRTN END+2!, NUM1+3*
ZTSAVE END+2!
ZTSAVE("DFN" NUM1+3*
ZTSAVE("RM*" NUM1+3*
ZTSK END+1!, NUM1+4, NUM1+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All