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

Package: Remote Order Entry System

Routine: RMPFDT7


Information

RMPFDT7 ;DDC/KAW-DISPLAY ADJUSTMENTS [ 03/12/98 7:46 AM ]

Source Information

Source file <RMPFDT7.m>

Call Graph

Call Graph

Call Graph Total: 6

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

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

Package Total Caller Graph
Remote Order Entry System 5 RMPFDT  RMPFDT7  RMPFEA  RMPFET0  RMPFET8  

Entry Points

Name Comments DBIA/ICR reference
A1
A2
A3
NO
SUB
B1
BE
EXIT
END
WRITE
HEAD
READ
CONT
CONT1
SPACE
QUE
QUEE

External References

Name Field # of Occurrence
DD^%DT NO+17
^%ZIS QUEQUE+2
HOME^%ZIS QUE+5
^%ZISC EXIT+3
^%ZTLOAD QUE+4
^RMPFDT7 QUE+1, QUE+2
PAT^RMPFUTL RMPFDT7+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"(cont.)"
  • Line Location: NO+8
Function Call: WRITE
  • Prompt: !,RD,?12,RMPFTOE
  • Line Location: NO+9
Function Call: WRITE
  • Prompt: ?33,CM,?52,$J(TT,7,2),?62,RMPFLR,?66,$E(US,1,14)
  • Line Location: NO+11
Function Call: WRITE
  • Prompt: !,$P(CM(X),U,1),?12,$P(CM(X),U,2),?33,$E($P(CM(X),U,3),1,18),?52,$J(T,7,2),?66,$E($P(CM(X),U,5),1,14)
  • Line Location: NO+13
Function Call: WRITE
  • Prompt: !,"(cont.)"
  • Line Location: EXIT+0
Function Call: WRITE
  • Prompt: ?53,"======",!,"Total Price:",?52,"$",$J(RMPFTOT,6,2)
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: !,"cont.)"
  • Line Location: WRITE+0
Function Call: WRITE
  • Prompt: !?53,"------",!?52,"$",$J(MT,6,2),!
  • Line Location: WRITE+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: IOST?1"C-".E
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !?33,"ORDER HISTORY"
  • 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: !
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !,?3,"Order",?12,"Type of",?70,"Order"
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !?3,"Date",?13,"Entry",?24,"Model",?36,"Component(s)",?53,"Price",?61,"Ear",?68,"Entered By"
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: !,"----------",?12,"-------",?21,"-----------",?33,"------------------",?53,"------",?61,"---",?66,"--------------"
  • Line Location: HEAD+6
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: !,"Type <RETURN> to continue or <^> to exit: "
  • Line Location: CONT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT1+0
Function Call: WRITE
  • Prompt: !,"Type <RETURN> to continue or <P>rint: "
  • Line Location: CONT1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SPACE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: QUE+0
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] RMPFDT7+5, A1A2A2+1, A2+2, A2+3, NO+15, B1B1+1
^RMPF(791810.1 - [#791810.1] RMPFDT7+6
^RMPF(791811 - [#791811] NO+1
^RMPF(791811.2 - [#791811.2] B1+4
^VA(200 - [#200] A3NO+16, B1+9

Label References

Name Line Occurrences
A1 A2
A2 A2+1, NO+12, NO+20
A3 A2+3
B1 B1+1, B1+7, B1+12
BE B1
CONT NO+8, EXITWRITECONT+2
CONT1 EXIT+2, CONT1+2
END A2EXITQUE
EXIT A1
HEAD RMPFDT7+4, NO+8, EXITWRITE
NO A2+4
QUE CONT1+3
QUEE QUE+1
READ READ+1, CONT+1, CONT1+1
SPACE CONTCONT1
SUB NO+7
WRITE A2

Naked Globals

Name Field # of Occurrence
^(0 RMPFDT7+5, RMPFDT7+6, A2+1, A2+3, A3NO+1, NO+16, B1+1, B1+4, B1+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%T QUEE!
%XX END+2!
%YY END+2!
%ZIS QUE*, QUE+2*, QUEE!
C B1+2*, B1+4*, B1+7, B1+11, BE!
CM NO+11, NO+12, SUB!*, B1+7*, END+2!
CM( NO+7, NO+13, B1+11*
CN A2+1*, NO+4*, NO+13, NO+14, B1+3, END+2!
CT NO+7*, NO+8, END+2!
>> DFN RMPFDT7+4
DTIME READ+1
F1 RMPFDT7+4*, A1*, A2END+2!
F2 A1*, A2*, A2+1, A2+2, NO+15, B1B1+1, END!
F3 SUB*, B1*, B1+1, B1+11, END!
I NO+7*, NO+13*, END+2!, HEAD+3*
IO QUE+1
>> IO("S" EXIT+3, QUE+1, QUE+2
>> IO(0 QUE+1
IOF EXIT+2, HEAD
ION QUE+2, QUE+4
>> IOP QUE+2*
IOST NO+8, EXITEXIT+2, WRITEHEAD
L B1+2*, BE!
MT A1*, NO+6*, B1+6*, END!, WRITE+1
P B1+2*, B1+5*, B1+7, B1+11, BE!
POP QUE, QUEE!
R NO+17*, NO+19, B1+8*, B1+10*, B1+11, BE!, END+2!
RD A2+2*, A2+3*, A2+4*, A3+1*, NO+9, END!
RE A2+2*, A3+2*, END!
RMPFCS NO+3*, NO+4*, NO+5*, NO+6, END!
>> RMPFDAT HEAD+1
RMPFDOB END+1!, HEAD+2
RMPFDOD END+1!
>> RMPFHAT RMPFDT7+5*, RMPFDT7+6*, NO+3, NO+10
RMPFIT NO*, NO+1, END!
RMPFITP NO*, NO+1*, NO+10, END!
RMPFLR NO+3*, NO+11, END+1!
RMPFNAM END+1!, HEAD+2
RMPFOUT A2NO+8, EXITEND+1!, WRITE, READ!, READ+2*, CONT1+2, QUE+5*
RMPFQUT END+1!, READ!, READ+3*, CONT+2, CONT1+2
RMPFSSN END+1!, HEAD+2
>> RMPFSTAP HEAD+1
RMPFTOE NO+2*, NO+9, B1+7, END!
RMPFTOT RMPFDT7+4*, NO+6*, B1+6*, EXIT+1, END!
>> RMPFTYP RMPFDT7+5*, RMPFDT7+6
>> RMPFX RMPFDT7+5, A1A2A2+1, A2+2, A2+3, NO+15, B1B1+1
S B1+8*, B1+9*, B1+11, BE!
S0 RMPFDT7+5*, A2+1*, A2+3, NONO+2, NO+3, NO+4, NO+5, NO+17, END!
S2 B1+1*, B1+2, B1+8, END!
S3 NO+15*, NO+16, NO+17, END+2!
S9 A2+2*, A2+4, A3+2, END!
T NO+13*, B1+2*, B1+3*, B1+5*, B1+6, B1+7, B1+11, BE!, END+1!
TT A2+1*, NO+6*, NO+11, B1+7*, END+2!
U RMPFDT7+5, RMPFDT7+6, A2+3, A2+4, A3A3+2, NONO+1, NO+2, NO+3
NO+4, NO+5, NO+13, NO+16, NO+17, B1+2, B1+4, B1+8, B1+9, B1+11
READ+1
US A2+2*, A2+3*, A2+4*, A3*, NO+11, END!
X NO+7*, NO+13*, NO+16*, NO+18, END+2!
Y NO+17*, NO+18, END+2!, READ+1*, READ+2*, READ+3*, CONT1+2*, CONT1+3
ZTIO QUE+4*, QUEE!
ZTRTN QUE+3*, QUEE!
ZTSAVE QUEE!
ZTSAVE("DFN" QUE+3*
ZTSAVE("RMPF*" QUE+3*
ZTSK QUE+6, QUEE!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All