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 |  Local Variables |  All
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>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Dietetics 1 DTP^FH  
VA Fileman 1 NOW^%DTC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Dietetics 1 FHPRF1  

Entry Points

Name Comments DBIA/ICR reference
PRO
STRT

External References

Name Field # of Occurrence
NOW^%DTC STRT
DTP^FH STRT+1, STRT+7

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FH(116.2 - [#116.2] STRT+30, PRO
^FH(119.71 - [#119.71] STRT+8
^FH(119.72 - [#119.72] STRT+4
^TMP($J STRT+4, STRT+30, STRT+32, PRO+1

Label References

Name Line Occurrences
PRO STRT+30

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % STRT
D STRT+3!, STRT+34!
>> D1 STRT+1
>> DOW STRT+1
>> DTP STRT+1*, STRT+7*
>> FHCNTX STRT+12*, STRT+14, STRT+15, STRT+16, STRT+17, STRT+18, STRT+20, STRT+21, STRT+22, STRT+23
, STRT+24
>> FHP STRT+8
>> FHSITENM STRT+2*, STRT+9
>> FHSP1 STRT+13*, STRT+14*, STRT+15*, STRT+16*, STRT+17*, STRT+18*, STRT+25
>> FHSP2 STRT+19*, STRT+20*, STRT+21*, STRT+22*, STRT+23*, STRT+24*, STRT+31, PRO
IOF STRT+7
IOST STRT+7
>> K STRT+27*, STRT+30*, PRO, PRO+1
>> K1 STRT+32*, PRO+1*
>> L1 STRT+3*, STRT+4*, STRT+5*, STRT+7, STRT+10, STRT+11, STRT+29*
LN STRT+29*!
N STRT+3!, STRT+34!
N( STRT+32*, PRO+1*
N("C" STRT+31*, STRT+33, PRO*, PRO+2
N("D" STRT+31*, STRT+33, PRO*, PRO+2
N("G" STRT+31*, PRO*
N("T" STRT+31*, STRT+33*, PRO*, PRO+2*
>> N1 STRT+4*
>> N2 STRT+4*
>> N3 STRT+4*
>> NOW STRT*, STRT+7
P STRT+34!
>> P0 STRT+4*
>> P1 STRT+30*
S STRT+3!, STRT+34!
S( STRT+4*, STRT+12, STRT+27, STRT+32, PRO+1
>> TIM STRT+1*, STRT+10
>> TYP STRT+32*, PRO+1*
>> X STRT+4*, STRT+12*, STRT+27*, STRT+32*, PRO+1*
>> Z STRT+6*, STRT+7, STRT+8*, STRT+10, STRT+32*, PRO+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All