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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: FHPRO7

Package: Dietetics

Routine: FHPRO7


Information

FHPRO7 ; HISC/REL - Print Recipes ;3/26/96 15:14

Source Information

Source file <FHPRO7.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Dietetics 2 EN2^FHREC1  EN1^FHREC2  
Kernel 1 KILL^XUSCLEAN  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Dietetics 2 FHPRO2  FHPRO5  

Entry Points

Name Comments DBIA/ICR reference
AR0
AR1
AR2
Q2 ; Print AFP
HDR
S3
S2 ;I $P(FHPAR,"^",4)="Y",OLD'=$E(R1,1,2) S OLD=$E(R1,1,2),PG=0 D HDR
S1
BR2
S5
S4
AR3
AN1
AN2
AAR ;prints AFP Adjusted Recipes
P6
PRE
R2
LN
P5 ;
C0
P3
DISP
R0
R1
P4
R3
EX
P3P
AEN1 ; Adjust Recipe - R1 = Recipe File No., S1 = No. Portions
AEN2 ; Print adjusted recipe
BR1 ; Entry Point to Print adjusted recipe
AC0
B0
B1
B2
KIL

External References

Name Field # of Occurrence
EN2^FHREC1 S5+1, B2, AN1+1
EN1^FHREC2 R0+3
KILL^XUSCLEAN KIL

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: S1+0
Function Call: WRITE
  • Prompt: !,$E($P(X0,"^",1),1,22)
  • Line Location: S4+0
Function Call: WRITE
  • Prompt: ?30,FHPOSI
  • Line Location: S4+3
Function Call: WRITE
  • Prompt: ?40,$E($P(Y(0),"^",1),1,42)
  • Line Location: S5+2
Function Call: WRITE
  • Prompt: ?84,$J(FHYQU,6,0),?90,FHYQUNA
  • Line Location: S5+4
Function Call: WRITE
  • Prompt: ?108,I1,?116,$P(Y(0),"^",6)
  • Line Location: S5+7
Function Call: WRITE
  • Prompt: ?126,$J(TOT,5,0)
  • Line Location: S5+8
Function Call: WRITE
  • Prompt: !
  • Line Location: B0+2
Function Call: WRITE
  • Prompt: !,$E($P(Y(0),"^",1),1,R2),!!,I1," ",$P(Y(0),"^",6),!!,$E($P(^FH(114,K12,0),"^",1),1,R2),!
  • Line Location: B2+3
Function Call: WRITE
  • Prompt: @IOF,!,DTP,?48,"Advance Food Prep (Grand Total)",?125,"Page ",PG
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !,FHRETYP,?(131-$L(FHP6)),FHP6
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,FHPREA
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: ?(132-$L(TIMAFP)\2),TIMAFP
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!,"Recipe",?30,"Portion",?40,"Ingredient",?88,"Quantity",?108,"Storeroom Amount",?126,"Total"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: AEN1+2
Function Call: WRITE
  • Prompt: !!,$P(Y(0),"^",1),?60,Y
  • Line Location: AN1+2
Function Call: WRITE
  • Prompt: !!,"*",$P(^FH(114,+Y(0),0),"^",1),?60,$J(MUL*$P(Y(0),"^",2),0,0)," Portions"
  • Line Location: AN2+0
Function Call: WRITE
  • Prompt: !
  • Line Location: AN2+1
Function Call: WRITE
  • Prompt: !,^(K,0)
  • Line Location: AN2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: AN2+2
Function Call: WRITE
  • Prompt: !,"Diabetic Exchange: "
  • Line Location: AN2+3
Function Call: WRITE
  • Prompt: !
  • Line Location: AN2+6
Function Call: WRITE
  • Prompt: ?19,P
  • Line Location: EX+0
Function Call: WRITE
  • Prompt: !
  • Line Location: EX+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISP+0
Function Call: WRITE
  • Prompt: !?20,"A F P A D J U S T E D R E C I P E S",?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: READ
  • Timeout: 0
  • Variable: F K1=0
  • Line Location: BR1+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FH(113.1 - [#113.1] P4+2
^FH(114 - [#114] R0+2, R1, R2, R3, P3P, P3P+9, P3P+10, S1+1, B2+3, AR0+2
, AR1, AR2, AR3, AEN1+1, AN1, AN2, AN2+1, AN2+2, AN2+4, DISP+4
, DISP+6, BR1+1, BR2
^FH(114.1 - [#114.1] AN2+4, DISP+5
^FH(114.2 - [#114.2] R3, P3P+2, S4+2, PRE, AR3
^FH(114.3 - [#114.3] P3P+4, DISP+3
^FH(114.4 - [#114.4] DISP+4, DISP+6
^FHING - [#113] P4+1, S5+1, B2, AN1+1
^TMP($J FHPRO7+2, R0+3, R3+1*, C0, P3+2, P3P, P3P+7!, P3P+8*, P4+4*, P5+1*
, S1, S1+1, S3, S3+1, S5, B0+1, B1, AAR+2, AR0+3, AR3+1*
, AC0

Label References

Name Line Occurrences
AC0 AAR+2
AEN1 AR0+3, BR1+2, BR1+3
AN1 AN1+2
AN2 AN1
AR0 AR0+1
AR1 AR0
AR2 AR1
AR3 AR0+2
B1 B0+1
B2 B1
BR2 BR1+1
C0 FHPRO7+2
DISP AEN1+2
EX AN2+4
HDR Q2+1, S4
LN AEN1+2, AN2+1, AN2+2, AN2+6
P3P P3+2
P4 P3P+9
P6 P3P+10
Q2 P3P+11
R0 R0+1
R1 R0
R2 R1
R3 R0+2
S1 S1+2
S2 S1+1
S3 S3+2
S4 S3+1
S5 S4

Naked Globals

Name Field # of Occurrence
^( R1, P3P+8*, P3P+9, P3P+10, P4+4*, P5+1*, S1+1, B1, AR1, AN1
, AN2, AN2+1, AN2+4, DISP+4, DISP+6, BR1+1
^(0 R3, AR3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DTP HDR, DISP
>> FHIFLG P3+1*, P3+2*, S5+8*
>> FHP6 HDR+1
>> FHPAR B0
>> FHPOSI P3P+5*, S4+3
>> FHPREA P3P+1*, P3P+2*, S4, HDR+3
>> FHPREASA P3+1*, S4, HDR+3*
>> FHRETYP HDR+1
>> FHUNAM P3P+3*, P3P+4*
>> FHUTEN P3P+4*
>> FHYQU S5+3*, S5+4
>> FHYQUNA S5+3*, S5+4
>> FLG S1+1*, S4*
>> I1 S5*, S5+4*, S5+5*, S5+6*, S5+7, B1*, B2+1*, B2+2*, B2+3
>> I2 S5+4*, B2+1*, AN1*, AN1+1
IOF HDR, DISP
IOSL S4
>> K HDR+6*, PRE*, PRE+1, AN2*, AN2+1*, AN2+4*
>> K0 P3+2*, P3P, P3P+8, P3P+9, P3P+10, P4+4, P5+1
>> K1 R0*, R1, R2, AR0*, AR1, AR2, BR1+1*
>> K11 S1+1*, S3, S3+1, S5
>> K12 B0+1*, B1, B2+3
>> K4 FHPRO7+2*, R3*, R3+1*, C0, P3+2*, P3P, AAR+2*, AR3*, AR3+1*, AC0
>> KK R0+3*, R1*, P3P+9*, P3P+10*, B0+1*, B1, AR0+3*, AR1*
>> L1 FHPRO7+2*, C0, AAR+2*, AC0
>> LAB B0*
>> MUL R2*, R2+1, P3P*, P4, P6, AR2*, AR2+1, AEN1+2*, AN1, AN2
, BR2*, BR2+1
N FHPRO7+2!, AAR+2!, AEN1+2*, AN1*, DISP+1*, DISP+4*, DISP+6*
N( R0!, C0*, AR0!, AC0*
N("" R0+1, AR0+1
>> NX R0+3*, AR0+3*
>> OLD Q2+1*
>> P AN2+3*, AN2+4*, AN2+5, EX*
>> P0 FHPRO7+2*, AAR+2*
>> P1 R2*, R2+1*, P3P*, P3P+8, P6*, AR2*, AR2+1*, AEN1+1*, AEN1+2, BR2+1*
>> PG P3+2*, Q2+1, HDR*, BR1+2*
>> Q P4*, P4+4, P5+1
R FHPRO7+2!, AAR+2!, BR1+1!
R( R0+2, R0+3, R2, R2+1*, C0*, P6*, AR0+2, AR0+3, AR2, AR2+1*
, AC0*, BR1+3, BR2+1*
>> R0 AEN1+1*, DISP+1, DISP+2, DISP+3, DISP+5
>> R1 R0+2*, R0+3*, R3, R3+1, Q2+1*, S1*, S1+1, S3, S3+1, S5
, AR0+2*, AR0+3*, AR3, AR3+1, AEN1+1, AN1, AN2, AN2+1, AN2+2, AN2+4
, DISP+4, DISP+6, BR1+1, BR1+3*, BR2
>> R2 S1+1*, S3*, S3+1, S5, B0*, B2+3
>> S1 R0+3*, P3P+2*, P3P+6*, P3P+8, P4+4, P5+1, AR0+3*, AEN1+1, AEN1+2, DISP+2
, BR1+3*, BR2
>> S2 P4+2*, P4+3*, P4+4, P5+1
>> TIMAFP HDR+4
>> TIMAFPML P3*
>> TOT S1+1*, S5+8
>> UNT S5+1*, B2*, AN1+1*
>> X R3*, R3+1, AR3*, AR3+1, AN1*
>> X0 P3P*, P3P+2, P3P+4, P3P+5, P3P+6, S1+1*, S4, S4+2, PRE
>> X1 P4*, P4+1, P4+4, P5+1, S3+1*, S5, S5+1, B0+2*, B1*, B2
>> Y R1*, R2+1, P3P+9*, P3P+10*, P4, P6, S5*, S5+3, B1*, AR1*
, AR2+1, AN1*, AN1+2, BR1+1*, BR2+1
>> Y(0 S5+1*, S5+2, S5+4, S5+7, B2*, B2+1, B2+3, AN1+1*, AN1+2, AN2*
>> Y0 P4+1*, P4+2, P4+3
>> Z S4+2*, AN2+4*, DISP+3*, DISP+4*, DISP+5*, DISP+6*
>> Z1 AN2+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All