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

Package: Dietetics

Routine: FHORD82


Information

FHORD82 ; HISC/REL/NCA - Diet Order Lists (cont) ;3/25/96 08:36

Source Information

Source file <FHORD82.m>

Entry Points

Name Comments DBIA/ICR reference
L3
L4
SP
EL
DT
CALC ; Figure # of units for TF
GRM
G1
LNE ; Break Line if longer than 45 chars
FLNE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?13,"Tubefeed.: "
  • Line Location: FHORD82+4
Function Call: WRITE
  • Prompt: !
  • Line Location: L4+3
Function Call: WRITE
  • Prompt: ?72,X
  • Line Location: L4+8
Function Call: WRITE
  • Prompt: ?72,X
  • Line Location: L4+12
Function Call: WRITE
  • Prompt: !?13,"Early/Late Tray: ",DTP,?39,$J(TIM,10)," ",$S(MEAL="B":"Breakfast",MEAL="N":"Noon",1:"Evening")
  • Line Location: EL+2
Function Call: WRITE
  • Prompt: ", Bagged Meal"
  • Condition for execution: BAG="Y"
  • Line Location: EL+2
Function Call: WRITE
  • Prompt: ?72,DTE
  • Line Location: LNE+3
Function Call: WRITE
  • Prompt: $E(ZZ,1,L-1)
  • Line Location: LNE+7
Function Call: WRITE
  • Prompt: ?72,DTE
  • Line Location: LNE+7
Function Call: WRITE
  • Prompt: !?24
  • Line Location: LNE+9
Function Call: WRITE
  • Prompt: !!,RM,?13,$E($P($G(^DPT(DFN,0)),"^",1),1,24),?38,BID,?47,DTP
  • Line Location: FLNE+2
Function Call: WRITE
  • Prompt: ?67,$P(^FHPT(FHDFN,"A",ADM,0),"^",5)
  • Line Location: FLNE+3
Info |  Source |  Entry Points |  Interaction Calls