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

Package: Dietetics

Routine: FHDMP2


Information

FHDMP2 ; HISC/REL/NCA/FAI - Patient Data Log (cont) ;10/19/04 14:38

Source Information

Source file <FHDMP2.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,LN,!?29,"D I E T O R D E R S"
  • Line Location: FHDMP2+2
Function Call: WRITE
  • Prompt: !!,"No Diet Orders for this Admission",!
  • Line Location: FHDMP2+3
Function Call: WRITE
  • Prompt: !
  • Line Location: FHDMP2+6
Function Call: WRITE
  • Prompt: !,LN,!?21,"D I E T O R D E R S E Q U E N C E",!
  • Line Location: FHDMP2+7
Function Call: WRITE
  • Prompt: !!,"No Diet Order Sequence for this Admission",!
  • Line Location: FHDMP2+10
Function Call: WRITE
  • Prompt: !
  • Line Location: FHDMP2+11
Function Call: WRITE
  • Prompt: !!,"Order: ",?12,FHORD
  • Line Location: LIS+2
Function Call: WRITE
  • Prompt: ?18,"Effective: "
  • Line Location: LIS+2
Function Call: WRITE
  • Prompt: ?18,"Effective: "
  • Line Location: LIS+2
Function Call: WRITE
  • Prompt: !,"Ordered by: ",?12,$P($G(^VA(200,+Y,0)),"^",1)
  • Line Location: LIS+3
Function Call: WRITE
  • Prompt: ?53,"Ordered: "
  • Line Location: LIS+3
Function Call: WRITE
  • Prompt: !,"Diet: ",?12
  • Line Location: LIS+4
Function Call: WRITE
  • Prompt: Y
  • Line Location: LIS+4
Function Call: WRITE
  • Prompt: $P(Y,",",1,3),!?11,$P(Y,",",4,5)
  • Line Location: LIS+5
Function Call: WRITE
  • Prompt: !,"Prod. Diet: ",?12,$P($G(^FH(116.2,+Y,0)),"^",1)
  • Line Location: LIS+7
Function Call: WRITE
  • Prompt: ?53,"Service: ",$S(Y="T":"Tray",Y="C":"Cafeteria",Y="D":"Dining Room",1:"")
  • Line Location: LIS+8
Function Call: WRITE
  • Prompt: !
  • Line Location: T1+0
Function Call: WRITE
  • Prompt: ?25,"Order: ",FHORD
  • Line Location: T1+0
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