Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  KILL^XUSCLEAN  
Dietetics 2 (DTP,EN2)^FH  EN2^FHREC1  
VA Fileman 2 ^%DT  ^DIC  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Dietetics 2 FHPRO7  FHREC2  

Entry Points

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

External References

Name Field # of Occurrence
^%DT EN2+1
^%ZIS R0+1
^%ZISC R0+3
^DIC EN2+2
DTP^FH EN2+1
EN2^FH R0+2
EN2^FHREC1 N1+1
KILL^XUSCLEAN 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
  • Prompt: "Number of Portions: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: S1
  • 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
  • Timeout: 0
  • Variable: F K1=0
  • Line Location: R1+1
Routine Call
  • DIC
  • Line Location:
    • EN2+2
Routine Call
  • %ZIS
  • Line Location:
    • R0+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FH(114 - [#114] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FH(114 - [#114] EN1+1, N1, N2, N2+1, N2+2, N2+4, DISP+4, DISP+6, R1+1, R2
^FH(114.1 - [#114.1] N2+4, DISP+5
^FH(114.3 - [#114.3] DISP+3
^FH(114.4 - [#114.4] DISP+4, DISP+6
^FHING - [#113] N1+1

Label References

Name Line Occurrences
DISP EN1+2
EN1 R1+2, R1+3
EN2 EN2+2, R0+2, R0+3
EX N2+4
KIL EN2+2, R0, R0+1
LN EN1+2, N2+1, N2+2, N2+6
N1 N1+2
N2 N1
R0 R0
R1 R0+3
R2 R1+1

Naked Globals

Name Field # of Occurrence
^( N1, N2, N2+1, N2+4, DISP+4, DISP+6, R1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT EN2+1*!
%ZIS R0+1!*, R0+3!
%ZIS("A" R0+1*
DIC EN2+2!*
DIC(0 EN2+2*
DTIME R0
>> DTOUT EN2+2
>> DTP DISP, EN2+1*
>> FHLST R0+2*
>> FHPGM R0+2*
>> I2 N1*, N1+1
IO R0+3
IO("Q" R0+2
IOF DISP
IOP R0+1!, R0+3!
>> K N2*, N2+1*, N2+4*
>> K1 R1+1*
>> MUL EN1+2*, N1, N2, R2*, R2+1
>> N EN1+2*, N1*, DISP+1*, DISP+4*, DISP+6*
>> P N2+3*, N2+4*, N2+5, EX*
>> P1 EN1+1*, EN1+2, R2+1*
>> PG DISP, R1+2*
>> POP R0+1
R R1+1!
R( R1+3, R2+1*
>> R0 EN1+1*, DISP+1, DISP+2, DISP+3, DISP+5
>> R1 EN1+1, N1, N2, N2+1, N2+2, N2+4, DISP+4, DISP+6, EN2+2*, R1+1
, R1+3*, R2
>> S1 EN1+1, EN1+2, DISP+2, R0*, R1+3*, R2
>> UNT N1+1*
>> X N1*, EN2+1*, EN2+2
>> Y N1*, N1+2, EN2+1, EN2+2, R1+1*, R2+1
>> Y(0 N1+1*, N1+2, N2*
>> Z N2+4*, DISP+3*, DISP+4*, DISP+5*, DISP+6*
>> Z1 N2+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All