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

Package: Dietetics

Routine: FHPRF1A


Information

FHPRF1A ; HISC/REL/RVD - Print Forecast ;4/25/93 16:48

Source Information

Source file <FHPRF1A.m>

Entry Points

Name Comments DBIA/ICR reference
STRT
PRO

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="C-"
  • Line Location: STRT+7
Function Call: WRITE
  • Prompt: !,DTP,?(L1-$L(Z)\2),Z
  • Line Location: STRT+7
Function Call: WRITE
  • Prompt: !,FHSITENM
  • Line Location: STRT+9
Function Call: WRITE
  • Prompt: !,?(L1-$L(Z)\2),Z,!!?(L1-$L(TIM)\2),TIM
  • Line Location: STRT+10
Function Call: WRITE
  • Prompt: !!?(L1-31\2),"P R O D U C T I O N D I E T S",!!
  • Line Location: STRT+11
Function Call: WRITE
  • Prompt: ?FHSP1
  • Line Location: STRT+25
Function Call: WRITE
  • Prompt: $P(S(X,K),"^",1)
  • Line Location: STRT+27
Function Call: WRITE
  • Prompt: " Tray Cafe Total"
  • Line Location: STRT+28
Function Call: WRITE
  • Prompt: !,LN,!
  • Line Location: STRT+29
Function Call: WRITE
  • Prompt: !!,"TOTAL MEALS",?FHSP2
  • Line Location: STRT+31
Function Call: WRITE
  • Prompt: $J(Z,6)," "
  • Line Location: STRT+32
Function Call: WRITE
  • Prompt: $J(N("T"),6),$J(N("C"),6),$J(N("T")+N("C"),7)
  • Line Location: STRT+33
Function Call: WRITE
  • Prompt: !!!,"*** Includes other gratuitous/paid meals.",!
  • Line Location: STRT+34
Function Call: WRITE
  • Prompt: !,$E($P($G(^FH(116.2,K,0)),"^",1),1,20),?FHSP2
  • Line Location: PRO+0
Function Call: WRITE
  • Prompt: $J(Z,6)," "
  • Line Location: PRO+1
Function Call: WRITE
  • Prompt: $J(N("T"),6),$J(N("C"),6),$J(N("T")+N("C"),7)
  • Line Location: PRO+2
Info |  Source |  Entry Points |  Interaction Calls