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

Package: Remote Order Entry System

Routine: RMPFDS1


Information

RMPFDS1 ;DDC/KAW-LIST ORDERS BY PATIENT OR STATUS; [ 03/12/98 7:45 AM ]

Source Information

Source file <RMPFDS1.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Remote Order Entry System 3 QUE^RMPFDS2  ARRAY^RMPFDT2  PAT^RMPFUTL  
Kernel 1 ^%ZISC  

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

Package Total Caller Graph
Remote Order Entry System 10 RMPFDS  RMPFDS2  RMPFDT  RMPFDX  RMPFEA  RMPFEI  RMPFES  RMPFET  
RMPFQP  RMPFQS1  

Entry Points

Name Comments DBIA/ICR reference
END
READ
SUB ;;input: RMPFX,RMPFTP,RMPFORD,RMPFCX,RMPFNAM,RMPFSSN,RMPFDOB,RMPFP (opt), RMPFOO (opt.)
SUBE
HEADP
WRITEP
W1
W2
HEADS
HEADS1
WRITES
CONT

External References

Name Field # of Occurrence
^%ZISC RMPFDS1+13
QUE^RMPFDS2 CONT+3
ARRAY^RMPFDT2 SUB+7, SUB+21, WRITEP
PAT^RMPFUTL RMPFDS1+5, SUB+19

Interaction Calls

Name Line Occurrences
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: @IOF,!?24,"REMOTE ORDER/ENTRY PATIENT ORDERS"
  • Line Location: HEADP+0
Function Call: WRITE
  • Prompt: !,"Station: ",RMPFSTAP,?68,RMPFDAT
  • Line Location: HEADP+1
Function Call: WRITE
  • Prompt: !,"Patient: ",$E(RMPFNAM,1,25),?40,"SSN: ",RMPFSSN,?62,"DOB: ",RMPFDOB
  • Line Location: HEADP+2
Function Call: WRITE
  • Prompt: !!?6,"Status",?46,"Order"
  • Line Location: HEADP+3
Function Call: WRITE
  • Prompt: !?1,"#",?7,"Date",?15,"Status",?23,"Type",?30,"Ord"
  • Line Location: HEADP+4
Function Call: WRITE
  • Prompt: $S(RMPFMENU=0:"/Iss",1:"ered")
  • Line Location: HEADP+4
Function Call: WRITE
  • Prompt: $S(RMPFMENU=0:"/Iss",1:"ered")
  • Line Location: HEADP+4
Function Call: WRITE
  • Prompt: !,"---",?4,"----------",?15,"------",?22,"------",?29,"-------------",?43,"----------",?54,"---",?58,"----------------------"
  • Line Location: HEADP+5
Function Call: WRITE
  • Prompt: !,$J(RMPFCX,2),". ",RMPFSD,?15,RMPFST,?22,RMPFTYP,?29,$E(RMPFADP,1,13),?43,RMPFTDP,?54,RMPFMGG
  • Line Location: WRITEP+0
Function Call: WRITE
  • Prompt: ?58,RMPFITP
  • Line Location: W1+5
Function Call: WRITE
  • Prompt: @IOF,!?28,"REMOTE ORDER/ENTRY ORDERS"
  • Line Location: HEADS+0
Function Call: WRITE
  • Prompt: !,"Station: ",RMPFSTAP,?68,RMPFDAT
  • Line Location: HEADS1+0
Function Call: WRITE
  • Prompt: !!?5,"Status",?68,"Order"
  • Line Location: HEADS1+1
Function Call: WRITE
  • Prompt: !,?1,"#",?6,"Date",?15,"Status"
  • Line Location: HEADS1+2
Function Call: WRITE
  • Prompt: ?35,"Type"
  • Condition for execution: RMPFTP="S"
  • Line Location: HEADS1+2
Function Call: WRITE
  • Prompt: ?53,"Ord"
  • Line Location: HEADS1+3
Function Call: WRITE
  • Prompt: $S(RMPFMENU=0:"/Iss",1:"ered")
  • Line Location: HEADS1+3
Function Call: WRITE
  • Prompt: $S(RMPFMENU=0:"/Iss",1:"ered")
  • Line Location: HEADS1+3
Function Call: WRITE
  • Prompt: !,"---",?4,"----------",?15,"------"
  • Line Location: HEADS1+4
Function Call: WRITE
  • Prompt: ?22,"------",?29,"----------------------"
  • Line Location: HEADS1+5
Function Call: WRITE
  • Prompt: ?22,"------------------------------"
  • Line Location: HEADS1+6
Function Call: WRITE
  • Prompt: ?53,"-----------",?66,"----------",?77,"---"
  • Line Location: HEADS1+7
Function Call: WRITE
  • Prompt: !,$J(RMPFCX,2),". ",RMPFSD,?15,RMPFST
  • Line Location: WRITES+0
Function Call: WRITE
  • Prompt: ?53,$E(RMPFADP,1,11),?66,RMPFTDP,?77,RMPFMGG
  • Line Location: WRITES+3
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+0
Function Call: WRITE
  • Prompt: !,"Type <RETURN> to continue, <P>rint or <^> to exit: "
  • Line Location: CONT+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RMPF(791810 - [#791810] RMPFDS1+7, RMPFDS1+8, SUB+3, SUB+5, SUB+8, SUB+21, SUB+25, W1+1, W1+3
^RMPF(791810.1 - [#791810.1] SUB+12
^RMPF(791810.2 - [#791810.2] SUB+16
^RMPF(791810.5 - [#791810.5] SUB+4
^RMPF(791811 - [#791811] W1+2
^VA(200 - [#200] SUB+20, SUB+21

Label References

Name Line Occurrences
@( RMPFDS1+6, SUB+23, SUB+24, SUB+26
CONT SUB+23, CONT+2
END RMPFDS1+7, RMPFDS1+8, RMPFDS1+9
READ READ+1, CONT+1
SUB RMPFDS1+7, RMPFDS1+8
SUBE SUB+12, SUB+14, SUB+15, SUB+17, SUB+18, SUB+23
W1 W1+6
W2 W1

Naked Globals

Name Field # of Occurrence
^( SUB+25
^("STA" SUB+5
^(0 SUB+3, SUB+12, SUB+16, SUB+20, SUB+21, SUB+25, W1+1, W1+2
^(90 SUB+8, SUB+21

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CT SUB+22*, SUBE!, W1+5*
>> DFN RMPFDS1+5, RMPFDS1+8, SUB+19*
DOB END!
DTIME READ+1
I RMPFDS1+7*, RMPFDS1+8*, END+1!, SUB+25*, CONT*
IO("S" RMPFDS1+13
IOF RMPFDS1+12, HEADP, HEADS
IOSL SUB+24
IOST RMPFDS1+12, SUB+23, SUB+24
J RMPFDS1+7*, RMPFDS1+8*, END+1!, SUB+25*
OO END+1!, SUB+6, SUB+7*, SUB+8*
RMPF RMPFDS1+6*, RMPFDS1+7*, RMPFDS1+8*, END!
RMPFAD SUB+20*, SUBE!
RMPFADP SUB+20*, SUB+21*, SUBE!, WRITEP, WRITES+3
>> RMPFCX RMPFDS1+6*, RMPFDS1+10, RMPFDS1+11, SUB+22*, WRITEP, WRITES
>> RMPFDAT HEADP+1, HEADS1
RMPFDOB END!, HEADP+2
RMPFDOD END+1!
RMPFIT W1+1*, W1+2, W1+3, W2!
RMPFITP W1+3*, W1+4*, W1+5, W2!
>> RMPFMENU SUB+4, SUB+21, HEADP+4, HEADS1+3
RMPFMGG END!, SUB+25*, SUBE!, WRITEP, WRITES+3
RMPFNAM END!, SUB+19*, HEADP+2, WRITES+2
RMPFO SUBE+1!
RMPFO( SUB+8, SUB+21, W1
>> RMPFOO SUB+6
>> RMPFORD RMPFDS1+6, RMPFDS1+7, RMPFDS1+8, SUB+17, SUB+18, SUB+19, SUB+23, SUB+24, SUB+26
RMPFOUT RMPFDS1+7, RMPFDS1+8, RMPFDS1+9, READ!, READ+2*, SUB+23*, CONT+2
>> RMPFP SUB+17, SUB+18
>> RMPFP( SUB+17, SUB+18
RMPFQUT READ!, READ+3*, CONT+2
>> RMPFS( SUB+22*
RMPFSD END!, SUB+10*, SUBE+1!, WRITEP, WRITES
RMPFSSN END!, SUB+19*, HEADP+2, WRITES+2
RMPFST END!, SUB+16*, SUBE+1!, WRITEP, WRITES
>> RMPFSTAP SUB+5, HEADP+1, HEADS1
RMPFTDP SUB+9*, SUBE!, WRITEP, WRITES+3
>> RMPFTP SUB+13, SUB+14, SUB+19, HEADS1+2, HEADS1+3, HEADS1+5, WRITES+1, WRITES+2
RMPFTYP SUB+11*, SUB+13*, SUB+15, SUBE!, WRITEP, WRITES+1
RMPFX RMPFDS1+7*, RMPFDS1+8*, END!, SUB+2, SUB+3, SUB+5, SUB+8, SUB+21, SUB+22, SUB+23
, SUB+25, W1+1, W1+3
S0 SUBE!, W1+2*, W1+4
SS SUB+12*, SUB+13, SUBE!
SSN END!
SX SUB+3*, SUB+4, SUB+7, SUB+9, SUB+10, SUB+11, SUB+16, SUB+19, SUB+20, SUBE!
T END+1!, SUB+13*, SUB+14, SUBE+1!
TT SUBE!
U READ+1, SUB+4, SUB+5, SUB+7, SUB+8, SUB+9, SUB+10, SUB+11, SUB+13, SUB+16
, SUB+19, SUB+20, SUB+21, SUB+25, W1+1, W1+3, W1+4
X SUB+4*, SUB+7*, SUB+8*, SUB+11*, SUB+12, SUB+16*, SUB+17, SUB+18, SUB+21*, SUB+25*
, SUBE!, WRITEP*, W1*, W1+1, W1+3
Y END!, READ+1*, READ+2*, READ+3*, SUB+9*, SUB+10*, SUB+21*, SUB+25*, SUBE!, CONT+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All