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

Package: Dietetics

Routine: FHPRO7


Information

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

Source Information

Source file <FHPRO7.m>

Entry Points

Name Comments DBIA/ICR reference
R0
R1
R2
R3
C0
P3
P3P
P4
P5 ;
P6
Q2 ; Print AFP
S1
S2 ;I $P(FHPAR,"^",4)="Y",OLD'=$E(R1,1,2) S OLD=$E(R1,1,2),PG=0 D HDR
S3
S4
S5
B0
B1
B2
HDR
PRE
AAR ;prints AFP Adjusted Recipes
AR0
AR1
AR2
AR3
AC0
AEN1 ; Adjust Recipe - R1 = Recipe File No., S1 = No. Portions
AN1
AN2
EX
DISP
LN
AEN2 ; Print adjusted recipe
BR1 ; Entry Point to Print adjusted recipe
BR2
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
  • Variable: F K1=0
  • Timeout: 0
  • Line Location: BR1+1
Info |  Source |  Entry Points |  Interaction Calls