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

Package: Dietetics

Routine: FHORE21


Information

FHORE21 ; HISC/REL/NCA - List Early/Late Trays (cont) ;11/9/94 13:33

Source Information

Source file <FHORE21.m>

Entry Points

Name Comments DBIA/ICR reference
F2
F3
F4
P0
P1
P2
P3
OUTP ;
F7
CUR
DP
HDR ; Print Header (INPATIENT)
OPHDR ; Print Header (OUTPATIENT)
LL ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: P1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: P1+19
Function Call: WRITE
  • Prompt: !!?56,$S(M1="B":"Breakfast ",M1="N":" Noon ",1:" Evening "),$J(TIM,6),!
  • Line Location: P2+6
Function Call: WRITE
  • Prompt: !!?56,$S(M1="B":"Breakfast ",M1="N":" Noon ",1:" Evening "),$J(TIM,6),!
  • Line Location: P2+7
Function Call: WRITE
  • Prompt: !,"Allergies: ",$S(ALG="":"None on file",1:ALG)
  • Line Location: P2+9
Function Call: WRITE
  • Prompt: !,$S(M1="B":"Breakfast",M1="N":" Noon ",1:" Evening"),?10,TIM,?(S1-12),L1
  • Line Location: P3+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LAB=2
  • Line Location: P3+2
Function Call: WRITE
  • Prompt: !,$E(P1,1,S1-5-$L(WARD)),?(S1-3-$L(WARD)),WARD
  • Line Location: P3+3
Function Call: WRITE
  • Prompt: ?(S1-3-$L(RM)),RM
  • Line Location: P3+4
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LAB=2
  • Line Location: P3+4
Function Call: WRITE
  • Prompt: !,O1,$S(ALG="":"",1:" *ALG"),!!
  • Line Location: P3+5
Function Call: WRITE
  • Prompt: !,$P(O1,",",1,L),!,$E($P(O1,",",L+1,5),2,99),$S(ALG="":"",1:"*ALG"),!
  • Line Location: P3+6
Function Call: WRITE
  • Prompt: !!?56,$S(N1="B":"Breakfast ",N1="N":" Noon ",1:" Evening "),$J($P(N2,"~",1),6),!
  • Line Location: OUTP+2
Function Call: WRITE
  • Prompt: !,FHLOCNM
  • Line Location: OUTP+3
Function Call: WRITE
  • Prompt: "/"_RM,?24,FHPTNM,?50,FHBID
  • Line Location: OUTP+4
Function Call: WRITE
  • Prompt: ?61,FHIPD,?67,$S(FHBAG="Y":"YES",1:"")
  • Line Location: OUTP+5
Function Call: WRITE
  • Prompt: ?73,FHDIET
  • Line Location: OUTP+6
Function Call: WRITE
  • Prompt: !,"Allergies: ",$S(ALG="":"None on file",1:ALG)
  • Line Location: OUTP+7
Function Call: READ
  • Formatting: !!
  • Prompt: "Press RETURN to continue or ""^"" to exit. "
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"Enter Return or ""^""."
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !?32,"I N P A T I E N T E A R L Y / L A T E T R A Y S",?110,H1
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!,"Ward/Room",?24,"Patient",?50,"ID#",?61,"Iso Bag Current-Diet",!
  • Line Location: HDR+5
Function Call: READ
  • Formatting: !!
  • Prompt: "Press RETURN to continue or ""^"" to exit. "
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: OPHDR+1
Function Call: WRITE
  • Prompt: !,"Enter Return or ""^""."
  • Line Location: OPHDR+1
Function Call: WRITE
  • Prompt: !?32,"O U T P A T I E N T E A R L Y / L A T E T R A Y S",?110,H1
  • Line Location: OPHDR+3
Function Call: WRITE
  • Prompt: !!,"Ward/Room",?24,"Patient",?50,"ID#",?61,"Iso Bag Current-Diet",!
  • Line Location: OPHDR+5
Info |  Source |  Entry Points |  Interaction Calls