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

Package: Dietetics

Routine: FHDMP5


Information

FHDMP5 ; HISC/REL/NCA - Patient Data Log (cont) ;2/17/93 16:23

Source Information

Source file <FHDMP5.m>

Entry Points

Name Comments DBIA/ICR reference
SP
S1
L1
DTP ; Printable Date/Time

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,LN,!?25,"S T A N D I N G O R D E R S"
  • Line Location: FHDMP5+2
Function Call: WRITE
  • Prompt: !!,"No Standing Orders for this Admission"
  • Line Location: FHDMP5+4
Function Call: WRITE
  • Prompt: !
  • Line Location: FHDMP5+5
Function Call: WRITE
  • Prompt: !,LN,!?23,"A D D I T I O N A L O R D E R S"
  • Line Location: FHDMP5+6
Function Call: WRITE
  • Prompt: !!,"No Additional Orders for this Admission"
  • Line Location: FHDMP5+8
Function Call: WRITE
  • Prompt: !
  • Line Location: FHDMP5+9
Function Call: WRITE
  • Prompt: !!,"Order #: ",K
  • Line Location: SP+0
Function Call: WRITE
  • Prompt: ?40,"Meals: ",M2
  • Line Location: S1+0
Function Call: WRITE
  • Prompt: !,"Order: ",$S(Q:Q,1:1)," ",$P($G(^FH(118.3,+Y,0)),"^",1)
  • Line Location: S1+1
Function Call: WRITE
  • Prompt: !,"Ordered: "
  • Line Location: S1+2
Function Call: WRITE
  • Prompt: ?40,"By: ",$P($G(^VA(200,+Y,0)),"^",1)
  • Line Location: S1+2
Function Call: WRITE
  • Prompt: !,"Cancelled: "
  • Line Location: S1+3
Function Call: WRITE
  • Prompt: ?40,"By: ",$P($G(^VA(200,+Y,0)),"^",1)
  • Line Location: S1+3
Function Call: WRITE
  • Prompt: !,"Diet Associated: ",$S(Y="Y":"Yes",1:"No")
  • Line Location: S1+4
Function Call: WRITE
  • Prompt: !!,"Order #: ",K
  • Line Location: L1+0
Function Call: WRITE
  • Prompt: ?40,"Status: ",$S(Y="C":"Complete",Y="A":"Active",Y="S":"Saved",Y="X":"Cancelled",1:"")
  • Line Location: L1+0
Function Call: WRITE
  • Prompt: !,"Order: ",$P(X,"^",3)
  • Line Location: L1+1
Function Call: WRITE
  • Prompt: !,"Ordered: "
  • Line Location: L1+2
Function Call: WRITE
  • Prompt: ?40,"By: ",$P($G(^VA(200,+Y,0)),"^",1)
  • Line Location: L1+2
Function Call: WRITE
  • Prompt: !,"Cleared: "
  • Line Location: L1+3
Function Call: WRITE
  • Prompt: ?40,"By: ",$P($G(^VA(200,+Y,0)),"^",1)
  • Line Location: L1+3
Function Call: WRITE
  • Prompt: $J(+$E(Y,6,7),2)_"-"_$P("Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec"," ",+$E(Y,4,5))_"-"_$E(Y,2,3)
  • Line Location: DTP+1
Function Call: WRITE
  • Prompt: $J($S(%>12:%-12,1:%),3)_":"_$E(Y_"000",11,12)_$S(%<12:"am",%<24:"pm",1:"m")
  • Line Location: DTP+2
Info |  Source |  Entry Points |  Interaction Calls