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

Package: Dietetics

Routine: FHDMP4


Information

FHDMP4 ; HISC/REL/NCA - Patient Data Log (cont) ;5/7/92 15:36

Source Information

Source file <FHDMP4.m>

Entry Points

Name Comments DBIA/ICR reference
TF
TF1
CD
EL
DTP ; Printable Date/Time

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,LN,!?28,"T U B E F E E D I N G S"
  • Line Location: FHDMP4+2
Function Call: WRITE
  • Prompt: !!,"No Tubefeedings ordered for this Admission"
  • Line Location: FHDMP4+5
Function Call: WRITE
  • Prompt: !
  • Line Location: FHDMP4+6
Function Call: WRITE
  • Prompt: !,LN,!?23,"D I E T E T I C C O N S U L T S"
  • Line Location: FHDMP4+7
Function Call: WRITE
  • Prompt: !!,"No Consultations ordered for this Admission"
  • Line Location: FHDMP4+9
Function Call: WRITE
  • Prompt: !
  • Line Location: FHDMP4+10
Function Call: WRITE
  • Prompt: !,LN,!?24,"E A R L Y / L A T E T R A Y S"
  • Line Location: FHDMP4+11
Function Call: WRITE
  • Prompt: !!,"No Early or Late Trays ordered for this Admission"
  • Line Location: FHDMP4+13
Function Call: WRITE
  • Prompt: !
  • Line Location: FHDMP4+14
Function Call: WRITE
  • Prompt: !!,"Order # ",TF
  • Line Location: TF+0
Function Call: WRITE
  • Prompt: !,"Daily ML's: ",$P(X,"^",3),?42,"Daily KCals: ",$P(X,"^",7)
  • Line Location: TF+2
Function Call: WRITE
  • Prompt: !,"Ordered: "
  • Line Location: TF+4
Function Call: WRITE
  • Prompt: ?42,"By: ",$P($G(^VA(200,+Y,0)),"^",1)
  • Line Location: TF+4
Function Call: WRITE
  • Prompt: !,"Cancelled: "
  • Line Location: TF+5
Function Call: WRITE
  • Prompt: ?42,"By: ",$P($G(^VA(200,+Y,0)),"^",1)
  • Line Location: TF+5
Function Call: WRITE
  • Prompt: !,"Product: ",$P($G(^FH(118.2,+Y,0)),"^",1),", "
  • Line Location: TF1+0
Function Call: WRITE
  • Prompt: $S(Y=4:"Full",Y=1:"1/4",Y=2:"1/2",1:"3/4")," Str., "
  • Line Location: TF1+1
Function Call: WRITE
  • Prompt: FHTUBML
  • Line Location: TF1+4
Function Call: WRITE
  • Prompt: !,"Product ML's: ",$P(X1,"^",4),?42,"Water ML's: ",$P(X1,"^",5)
  • Line Location: TF1+5
Function Call: WRITE
  • Prompt: !!,"Request: ",$P($G(^FH(119.5,+Y,0)),"^",1)
  • Line Location: CD+0
Function Call: WRITE
  • Prompt: ?62,"Status: ",$S(Y="A":"Active",Y="C":"Complete",Y="X":"Cancelled",1:"")
  • Line Location: CD+1
Function Call: WRITE
  • Prompt: !,"Comment: ",Y
  • Line Location: CD+2
Function Call: WRITE
  • Prompt: !,"Clinician: ",$P($G(^VA(200,+Y,0)),"^",1)
  • Line Location: CD+3
Function Call: WRITE
  • Prompt: ?62,"Type: ",$S(Y="I":"Initial",Y="F":"Follow-up",1:"")
  • Line Location: CD+4
Function Call: WRITE
  • Prompt: !,"Ordered: "
  • Line Location: CD+5
Function Call: WRITE
  • Prompt: ?45,"By: ",$P($G(^VA(200,+Y,0)),"^",1)
  • Line Location: CD+5
Function Call: WRITE
  • Prompt: !,"Cleared: "
  • Line Location: CD+6
Function Call: WRITE
  • Prompt: ?45,"By: ",$P($G(^VA(200,+Y,0)),"^",1)
  • Line Location: CD+6
Function Call: WRITE
  • Prompt: !!,"Order: "
  • Line Location: EL+0
Function Call: WRITE
  • Prompt: ?28,"Meal: ",$S(Y="B":"Breakfast",Y="N":"Noon",Y="E":"Evening",1:"")
  • Line Location: EL+0
Function Call: WRITE
  • Prompt: ?47,"Bagged: ",$S(Y="Y":"Yes",Y="N":"No",1:"")
  • Line Location: EL+1
Function Call: WRITE
  • Prompt: ?62,"Time: ",$P(X,"^",3)
  • Line Location: EL+1
Function Call: WRITE
  • Prompt: !,"Ordered: "
  • Line Location: EL+2
Function Call: WRITE
  • Prompt: ?28,"By: ",$P($G(^VA(200,+Y,0)),"^",1)
  • Line Location: EL+2
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