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

Package: Dietetics

Routine: FHDMP3


Information

FHDMP3 ; HISC/REL/NCA - Patient Data Log (cont) ;4/30/92 10:15

Source Information

Source file <FHDMP3.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,LN,!?19,"S U P P L E M E N T A L F E E D I N G S"
  • Line Location: FHDMP3+2
Function Call: WRITE
  • Prompt: !!,"No Supplemental Feedings for this Admission"
  • Line Location: FHDMP3+5
Function Call: WRITE
  • Prompt: !
  • Line Location: FHDMP3+6
Function Call: WRITE
  • Prompt: !!,"Order: ",?11,NO
  • Line Location: LIS+0
Function Call: WRITE
  • Prompt: ?40,"Menu: ",$P($G(^FH(118.1,+Y,0)),"^",1)
  • Line Location: LIS+0
Function Call: WRITE
  • Prompt: !,"Ordered: "
  • Line Location: LIS+1
Function Call: WRITE
  • Prompt: ?40,"By: ",$P($G(^VA(200,+Y,0)),"^",1)
  • Line Location: LIS+1
Function Call: WRITE
  • Prompt: !,"Reviewed: "
  • Line Location: LIS+2
Function Call: WRITE
  • Prompt: ?40,"By: ",$P($G(^VA(200,+Y,0)),"^",1)
  • Line Location: LIS+2
Function Call: WRITE
  • Prompt: !,"Cancelled: "
  • Line Location: LIS+3
Function Call: WRITE
  • Prompt: ?40,"By: ",$P($G(^VA(200,+Y,0)),"^",1)
  • Line Location: LIS+3
Function Call: WRITE
  • Prompt: !,"Type: ",?11,$S(Y="D":"Dietary",Y="T":"Therapeutic",1:"")
  • Line Location: LIS+4
Function Call: WRITE
  • Prompt: ?40,"Diet Associated: ",$S(Y="Y":"Yes",1:"No")
  • Line Location: LIS+4
Function Call: WRITE
  • Prompt: !,$P("10 Am; 2 Pm; 8 Pm",";",K1),?8,$E(N(K1),1,52)
  • Line Location: LIS+6
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