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

Package: Remote Order Entry System

Routine: RMPFDT4


Information

RMPFDT4 ;DDC/KAW-DISPLAY ORDER MESSAGES [ 06/16/95 3:06 PM ]

Source Information

Source file <RMPFDT4.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Remote Order Entry System 3 MSG^RMPFDD  ^RMPFDT4  PAT^RMPFUTL  
VA FileMan 2 DD^%DT  ^DIE  

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

Entry Points

Name Comments DBIA/ICR reference
A1
A2
EXIT
END
HEAD
CONT
CONT1
QUE
QUEE
READ

External References

Name Field # of Occurrence
DD^%DT RMPFDT4+5, A1+1, A1+2, A2
^%ZIS QUEQUE+2
HOME^%ZIS QUE+5
^%ZISC EXIT+8
^%ZTLOAD QUE+4
^DIE EXIT+4
MSG^RMPFDD CONT1
^RMPFDT4 QUE+2
PAT^RMPFUTL RMPFDT4+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: A2+3
Function Call: WRITE
  • Prompt: !!,RMPFMD,?15,$E(PR,1,17),?35,EX
  • Line Location: A2+5
Function Call: WRITE
  • Prompt: ?52,$S($D(^RMPF(791810.2,ST,0)):$P(^(0),U,4),1:"")
  • Line Location: A2+6
Function Call: WRITE
  • Prompt: ?61,SD,?76,LR
  • Line Location: A2+7
Function Call: WRITE
  • Prompt: !?3,"Message: ",$E(MG,1,66)
  • Line Location: A2+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EXIT+7
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: IOST?1"C-".E
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !?32,"MESSAGE UPDATES"
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !,"Station: ",RMPFSTAP,?68,RMPFDAT
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,"Patient: ",$E(RMPFNAM,1,25),?40,"SSN: ",RMPFSSN,?62,"DOB: ",RMPFDOB
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !?2,"Order: ",TP,!?3,"Date: ",TT
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !?4,"DDC",?76,"Last"
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: !,"Process Date",?20,"Sender",?37,"Telephone",?52,"Status",?62,"Ship Date",?76,"Read"
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !,"------------",?15,"-----------------",?35,"--------------",?52,"------",?61,"------------",?76,"----"
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+0
Function Call: WRITE
  • Prompt: !,"Type <P>rint or <RETURN> to continue: "
  • Line Location: CONT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: QUE+0
Function Call: READ
  • Variable: Y
  • Timeout: DTIME
  • Line Location: READ+1
Function Call: READ
  • Variable: Y
  • Timeout: 5
  • Line Location: READ+1
Routine Call
  • DIE
  • Line Location:
    • EXIT+4
Routine Call
  • %ZIS
  • Line Location:
    • QUE
    • QUE+2
Routine Call
  • %ZIS
  • Line Location:
    • QUE+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RMPF(791810 - [#791810] RMPFDT4+5, RMPFDT4+6, A1A1+2, A2EXIT+1
^RMPF(791810.1 - [#791810.1] RMPFDT4+7
^RMPF(791810.2 - [#791810.2] A2+6
^VA(200 - [#200] A2+4

Label References

Name Line Occurrences
A1 A1A2
A2 A2A2+9
CONT A2+2, EXIT+6
CONT1 CONT1CONT1+1
END A2+2, EXIT+6, QUE
EXIT A1
HEAD RMPFDT4+8, A2+2, A2+3
QUEE QUE+1
READ CONT+1, READ+1
RMPFDT4 EXIT+6

Naked Globals

Name Field # of Occurrence
^( A1A2
^(0 RMPFDT4+7, A1A2A2+4, A2+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!
%DT RMPFDT4+5*, END!
%T QUEE!
%XX END+1!
%Y END!
%YY END+1!
%ZIS QUE*, QUE+2*, QUEE!
CE A1+3*, A2*, END!
CM RMPFDT4+8*, A1*, A1+2, A2, END!
CX RMPFDT4+8*, A2+8*, EXITEXIT+1, END!
D EXIT+5!
D0 EXIT+5!
DA EXIT+3*, EXIT+5!
DA(1 EXIT+3*
DA(2 EXIT+3*
>> DFN RMPFDT4+4
DI END+1!
DIC END+1!
DIE EXIT+2*, EXIT+5!
DQ EXIT+5!
DR EXIT+4*, EXIT+5!
DTIME READ+1
DUZ EXIT+4
EX A2+1*, A2+5, END!
I EXIT+1*, END!, HEAD+4*, CONT*
IO QUE+1
>> IO("S" EXIT+8, QUE+1, QUE+2
>> IO(0 QUE+1
IOF A2+3, EXIT+7, HEAD
ION QUE+2, QUE+3
>> IOP QUE+2*
IOST A2+2, A2+3, EXIT+6, EXIT+7, HEAD
J EXIT+1*, END+1!
LR A2+1*, A2+4*, A2+7, END+1!
MG A2*, A2+8, END!
POP QUE, QUEE!
PR A2*, A2+5, END!
>> RMPFDAT HEAD+1
RMPFDOB END!, HEAD+2
RMPFMD A1*, A1+1*, A1+2*, A2+5, END!
RMPFNAM END!, HEAD+2
RMPFOUT EXIT+6, CONT+2, READ!, READ+2*
RMPFQUT CONT1!, CONT1+1*, READ!, READ+3*
RMPFSSN END+1!, HEAD+2
>> RMPFSTAP HEAD+1
>> RMPFX RMPFDT4+4, RMPFDT4+5, RMPFDT4+6, A1A1+2, A2EXIT+1, EXIT+2, EXIT+3
S0 A1*, A1+1, END!
S1 A2*, A2+1, END!
SD A2*, A2+7, END!
ST A2+1*, A2+6, END!
TP RMPFDT4+6*, RMPFDT4+7*, END+1!, HEAD+3
TT RMPFDT4+5*, END+1!, HEAD+3
U RMPFDT4+5, RMPFDT4+6, RMPFDT4+7, A1+1, A2A2+1, A2+4, A2+6, READ+1
X END!
XX EXIT+1*, EXIT+2, EXIT+3, END+1!
Y RMPFDT4+5*, A1+1*, A1+2*, A2*, EXIT+6, END!, CONT1+1*, QUE+1*, READ+1*, READ+2*
READ+3*
YY EXIT+1*, EXIT+3, END+1!
ZTIO QUE+3*, QUEE!
ZTRTN QUE+3*, QUEE!
ZTSAVE QUEE!
ZTSAVE("DFN" QUE+3*
ZTSAVE("RMPF*" QUE+3*
ZTSK A2+2, END+1!, QUE+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All