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

Package: Dietetics

Routine: FHORD61


Information

FHORD61 ; HISC/REL/NCA - Diet Inquiry (cont) ;3/13/01 15:08

Source Information

Source file <FHORD61.m>

Entry Points

Name Comments DBIA/ICR reference
F4
F5
F6 ;S CT=0 F KK=0:0 S KK=$O(^FHPT(FHDFN,"A",ADM,"MO","AC",KK)) Q:KK<1!(QT="^") F K=0:0 S K=$O(^FHPT(FHDFN,"A",ADM,"MO","AC",KK,K)) Q:K<1 D:$Y>(IOSL-5) HDR^FHORD6 Q:QT="^" D MO
SP
EL
CD
L1
T1
MO ; Display Monitors

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: FHORD61+5
Function Call: WRITE
  • Prompt: !,"No future Diet Orders exist"
  • Line Location: FHORD61+7
Function Call: WRITE
  • Prompt: !
  • Line Location: F4+0
Function Call: WRITE
  • Prompt: !,"No future Early or Late Trays ordered"
  • Line Location: F4+2
Function Call: WRITE
  • Prompt: !!,"No Active Standing Orders"
  • Line Location: F4+4
Function Call: WRITE
  • Prompt: !!,"Active Standing Orders:",!
  • Line Location: F4+5
Function Call: WRITE
  • Prompt: !?5,M2,?18,$S(QTY:QTY,1:1)," ",$P(^FH(118.3,Z,0),"^",1)
  • Line Location: F4+6
Function Call: WRITE
  • Prompt: !!,"No Active Consultations for this Admission"
  • Line Location: F5+2
Function Call: WRITE
  • Prompt: !!,"No Monitors on file"
  • Line Location: F6+2
Function Call: WRITE
  • Prompt: !,"No Monitors on file."
  • Line Location: F6+5
Function Call: WRITE
  • Prompt: !!,"No Monitors for this Admission"
  • Line Location: F6+6
Function Call: WRITE
  • Prompt: !
  • Line Location: F6+8
Function Call: WRITE
  • Prompt: !,"Early/Late Meal: ",DTP,?29,$J(TIM,10)," ",$S(MEAL="B":"Breakfast",MEAL="N":" Noon ",1:" Evening")
  • Line Location: EL+1
Function Call: WRITE
  • Prompt: ?62,"Bagged Meal"
  • Condition for execution: BAG="Y"
  • Line Location: EL+1
Function Call: WRITE
  • Prompt: !!,"Consult: ",$P($G(^FH(119.5,CON,0)),"^",1)
  • Line Location: CD+2
Function Call: WRITE
  • Prompt: !,"Ordered: ",DTP
  • Line Location: CD+4
Function Call: WRITE
  • Prompt: !!,"Additional Orders Saved or Last 24 Hours:",!
  • Line Location: L1+0
Function Call: WRITE
  • Prompt: !,DTP,?20,$P(X,"^",3)
  • Line Location: L1+1
Function Call: WRITE
  • Prompt: !,"Future Diet Orders:",!
  • Line Location: T1+1
Function Call: WRITE
  • Prompt: !?5,DTP,?25,Y
  • Line Location: T1+2
Function Call: WRITE
  • Prompt: !!,$P(Y,"^",1)
  • Line Location: MO+3
Function Call: WRITE
  • Prompt: ", ",DTP
  • Line Location: MO+3
Info |  Source |  Entry Points |  Interaction Calls