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

Package: Dietetics

Routine: FHORD6


Information

FHORD6 ; HISC/REL/NCA/JH/RTK - Diet Inquiry ;5/3/01 11:04

Source Information

Source file <FHORD6.m>

Entry Points

Name Comments DBIA/ICR reference
F0 ; Display Diet
A0
F1
F2
F3
LP
SP
SP1
W0
W1
PAUSE ; Pause For Scroll
HDR ; Print Header
KIL ; Final variable kill

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: FHORD6+6
Function Call: WRITE
  • Prompt: !!,"Allergies: ",ALG
  • Line Location: F0+6
Function Call: WRITE
  • Prompt: !!,"No Food Preferences on file",!
  • Line Location: F0+8
Function Call: WRITE
  • Prompt: !!,"Food Preferences Currently on file",!!?23,"Likes",?57,"Dislikes",!
  • Line Location: F0+9
Function Call: WRITE
  • Prompt: !
  • Line Location: F0+10
Function Call: WRITE
  • Prompt: $P(M,"~",2)
  • Line Location: F0+10
Function Call: WRITE
  • Prompt: !
  • Line Location: F0+13
Function Call: WRITE
  • Prompt: !!,"Isolation/Precaution Type is ",$P($G(^FH(119.4,X,0)),"^",1)
  • Line Location: A0+1
Function Call: WRITE
  • Prompt: !,"Service: ",$S(TYP="T":"Tray",TYP="D":"Dining Room",1:"Cafeteria")
  • Line Location: F1+2
Function Call: WRITE
  • Prompt: !,"Expires: ",DTP
  • Line Location: F1+3
Function Call: WRITE
  • Prompt: !!,"Tubefeed Ordered: ",DTP
  • Line Location: F1+7
Function Call: WRITE
  • Prompt: !,"Total Quantity: ",TQU," ml",?42,"Total KCAL: ",CAL
  • Line Location: F1+9
Function Call: WRITE
  • Prompt: !!,"Supplemental Feeding: ",$S('L:"No Order",1:$P(^FH(118.1,L,0),"^",1)) G:'NO
  • Line Location: F2+1
Function Call: WRITE
  • Prompt: ?50,"Reviewed: ",DTP
  • Line Location: F2+2
Function Call: WRITE
  • Prompt: !?5,$P("10am; 2pm; 8pm",";",K1),":",?13,N(K1)
  • Line Location: F2+4
Function Call: WRITE
  • Prompt: !,"Product: ",$P($G(^FH(118.2,TUN,0)),"^",1),", ",$S(STR=4:"Full",STR=1:"1/4",STR=2:"1/2",1:"3/4")," Str., ",QUA
  • Line Location: LP+2
Function Call: WRITE
  • Prompt: ?12
  • Line Location: W0+0
Function Call: WRITE
  • Prompt: ?46
  • Line Location: W0+1
Function Call: WRITE
  • Prompt: !
  • Line Location: W0+2
Function Call: WRITE
  • Prompt: X
  • Line Location: W1+0
Function Call: WRITE
  • Prompt: $E(X,1,KK-2)
  • Line Location: W1+2
Function Call: READ
  • Formatting: !!
  • Prompt: "Press return to continue "
  • Variable: YN
  • Timeout: DTIME
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: !,"Enter a RETURN to Continue."
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: !,PID,?16,$P(Y(0),"^",1),?48,SEX," Age ",AGE,?(79-$L(RM)),RM
  • Line Location: HDR+3
Info |  Source |  Entry Points |  Interaction Calls