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

Package: Dietetics

Routine: FHDMP1


Information

FHDMP1 ; HISC/REL/FAI - Patient Data Log (cont) ;10/19/04 14:37

Source Information

Source file <FHDMP1.m>

Entry Points

Name Comments DBIA/ICR reference
ADMIT ;
DTP ; Printable Date/Time

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,LN,!?20,"~ ~ ~ A D M I S S I O N D A T A ~ ~ ~"
  • Line Location: ADMIT+3
Function Call: WRITE
  • Prompt: !!,"Admitted: "
  • Line Location: ADMIT+4
Function Call: WRITE
  • Prompt: ?50,"Discharged: "
  • Line Location: ADMIT+5
Function Call: WRITE
  • Prompt: !!,"Nutrition Ward: ",$P($G(^FH(119.6,Y,0)),"^",1)
  • Line Location: ADMIT+7
Function Call: WRITE
  • Prompt: ?50,"Room-Bed: "
  • Line Location: ADMIT+7
Function Call: WRITE
  • Prompt: ?50,"Room-Bed: "
  • Line Location: ADMIT+7
Function Call: WRITE
  • Prompt: !!,"Current Diet Order: ",?20,$P(X,"^",2)
  • Line Location: ADMIT+8
Function Call: WRITE
  • Prompt: ?50,"Expires: ",?62
  • Line Location: ADMIT+8
Function Call: WRITE
  • Prompt: !,"Current Service: ",?20,$S(Y="T":"Tray",Y="C":"Cafeteria",Y="D":"Dining Room",1:"")
  • Line Location: ADMIT+9
Function Call: WRITE
  • Prompt: !,"Current Isolation/Precaution: ",?20,$P($G(^FH(119.4,+Y,0)),"^",1)
  • Line Location: ADMIT+10
Function Call: WRITE
  • Prompt: ?50,"Current Tubefeed Order: ",?76,$P(X,"^",4)
  • Line Location: ADMIT+11
Function Call: WRITE
  • Prompt: !,"Last Label Ward: ",?20,$P($G(^FH(119.6,+Y,0)),"^",1)
  • Line Location: ADMIT+12
Function Call: WRITE
  • Prompt: ?50,"Current Supp. Fdg. Order: ",?76,$P(X,"^",7)
  • Line Location: ADMIT+13
Function Call: WRITE
  • Prompt: !,"Last Label Room: ",?20,$P(X,"^",12),!
  • Line Location: ADMIT+14
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