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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: FHREC2

Package: Dietetics

Routine: FHREC2


Information

FHREC2 ; HISC/REL - Adjust Recipe ;4/28/95 09:45

Source Information

Source file <FHREC2.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; Adjust Recipe - R1 = Recipe File No., S1 = No. Portions
N1
N2
EX
DISP
LN
EN2 ; Print adjusted recipe
R0
R1 ; Entry Point to Print adjusted recipe
R2
KIL

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: !!,$P(Y(0),"^",1),?60,Y
  • Line Location: N1+2
Function Call: WRITE
  • Prompt: !!,"*",$P(^FH(114,+Y(0),0),"^",1),?60,$J(MUL*$P(Y(0),"^",2),0,0)," Portions"
  • Line Location: N2+0
Function Call: WRITE
  • Prompt: !
  • Line Location: N2+1
Function Call: WRITE
  • Prompt: !,^(K,0)
  • Line Location: N2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: N2+2
Function Call: WRITE
  • Prompt: !,"Diabetic Exchange: "
  • Line Location: N2+3
Function Call: WRITE
  • Prompt: !
  • Line Location: N2+6
Function Call: WRITE
  • Prompt: ?19,P
  • Line Location: EX+0
Function Call: WRITE
  • Prompt: !
  • Line Location: EX+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: PG
  • Line Location: DISP+0
Function Call: WRITE
  • Prompt: !?25,"A D J U S T E D R E C I P E",?71,$E(DTP,1,9)
  • Line Location: DISP+0
Function Call: WRITE
  • Prompt: !!?(80-$L(N)\2),N
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !!,"Portion Size: ",$P(R0,"^",3),?40,"No. Portions: ",S1
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: !,"Prep. Time: ",$P(R0,"^",4),?40,"Srv. Utensil: "
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: $P(^FH(114.3,Z,0),"^",1)
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !,"Equipment: "
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: $P(^FH(114.4,Z,0),"^",1)
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: ?40,"Category: "
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: $P(^FH(114.1,Z,0),"^",1)
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: !?14,$P(^FH(114.4,Z,0),"^",1)
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: !!,"- - - - - - - - - - - - - - - - - - - - - - - - - - -"
  • Line Location: LN+0
Function Call: WRITE
  • Prompt: !
  • Line Location: EN2+2
Function Call: READ
  • Formatting: !!
  • Prompt: "Number of Portions: "
  • Variable: S1
  • Timeout: DTIME
  • Line Location: R0+0
Function Call: WRITE
  • Prompt: *7," Enter a number from 1 to 5000"
  • Line Location: R0+0
Function Call: WRITE
  • Prompt: !
  • Line Location: R0+1
Function Call: READ
  • Variable: F K1=0
  • Timeout: 0
  • Line Location: R1+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FH(114 - [#114] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call