Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls