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

Package: Dietetics

Routine: FHADR81


Information

FHADR81 ; HISC/NCA - Print Dietetic Costs ;11/25/94 14:11

Source Information

Source file <FHADR81.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
Dietetics 1 (HDR,Q2)^FHADRPT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Dietetics 1 FHADRPT  

Entry Points

Name Comments DBIA/ICR reference
LAST ; Print the Last Line
HDR ; Print Cost Per Meal Hdg
HDR1 ; Print Cost Per Diem Hdg
PRT ; Print Avg Cost Per Meal, Cost Per Diem, and the YTD
EN2 ; Print Dietetic Cost
LOOP ; Print title for each row along with the cost of the quarters.
CALC ; Calculate the Avg Cost Per Meal and store it in T1(1)
HD

External References

Name Field # of Occurrence
HDR^FHADRPT PRT+2, HDR1+1
Q2^FHADRPT EN2+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?35
  • Line Location: PRT+3
Function Call: WRITE
  • Prompt: " ",$S($P(T1(1),"^",L):$J($P(T1(1),"^",L),8,2),1:$J("",8))_$J("",11)
  • Line Location: PRT+3
Function Call: WRITE
  • Prompt: $S($P(T1(1),"^",5):$J($P(T1(1),"^",5),8,2),1:$J("",8))
  • Line Location: PRT+4
Function Call: WRITE
  • Prompt: !,X,?29
  • Line Location: LAST+2
Function Call: WRITE
  • Prompt: ?110
  • Line Location: LAST+8
Function Call: WRITE
  • Prompt: $S(X:$J(X,9,2),1:$J("",9))_" "
  • Line Location: LAST+9
Function Call: WRITE
  • Prompt: $S($P(TP,"^",K1):$J($P(TP,"^",K1),8,2),1:$J("",8))
  • Line Location: LAST+10
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOP+1
Function Call: WRITE
  • Prompt: ?I
  • Condition for execution: I
  • Line Location: LOOP+1
Function Call: WRITE
  • Prompt: TIT,?29
  • Line Location: LOOP+1
Function Call: WRITE
  • Prompt: ?110
  • Line Location: LOOP+7
Function Call: WRITE
  • Prompt: $S(X:$J(X,9,2),1:$J("",9))_" "
  • Line Location: LOOP+8
Function Call: WRITE
  • Prompt: $S($P(TP,"^",K):$J($P(TP,"^",K),8,2),1:$J("",8))
  • Line Location: LOOP+9
Function Call: WRITE
  • Prompt: !!!!,"S E C T I O N V D I E T E T I C C O S T"
  • Line Location: HD+0
Function Call: WRITE
  • Prompt: !!!!,"COST PER MEAL"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: ?37,"1st Qtr",?57,"2nd Qtr",?77,"3rd Qtr",?97,"4th Qtr",?120,"YTD"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,"Average Cost Per Meal"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!!!,"COST PER DIEM"
  • Line Location: HDR1+2
Function Call: WRITE
  • Prompt: ?37,"1st Qtr",?57,"2nd Qtr",?77,"3rd Qtr",?97,"4th Qtr",?120,"YTD"
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: !,?34,"Cost",?41,"% Cost",?54,"Cost",?61,"% Cost",?74,"Cost",?81,"% Cost",?94,"Cost",?101,"% Cost",?112,"Avg Tot",?122,"% Cost"
  • Line Location: HDR1+4
Function Call: WRITE
  • Prompt: !,"Personal Services"
  • Line Location: HDR1+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FH(117.2 - [#117.2] CALC+4, CALC+5, CALC+7
^FH(117.3 - [#117.3] CALC+16, CALC+20, CALC+21

Label References

Name Line Occurrences
CALC EN2+4
HD PRT+2, HDR1+1
HDR PRT+2
HDR1 PRT+5
LAST PRT+9, PRT+11
LOOP PRT+8, PRT+10
PRT EN2+5

Naked Globals

Name Field # of Occurrence
^( CALC+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BEG CALC+2*, CALC+4*, CALC+14
>> CLOS CALC+2*, CALC+5*, CALC+14
>> EDT CALC+1, CALC+3*, CALC+5, CALC+7
>> FHYR EN2+4
>> I EN2+2*, EN2+3*, CALC+22*, CALC+23*, CALC+31*, CALC+35*, PRT+8*, PRT+10*, LAST+2*, LAST+3
, LAST+6, LOOP+1
>> ISS CALC+2*, CALC+11*, CALC+14
>> J CALC+4*, CALC+5*, CALC+9*, LOOP+2*, LOOP+3, LOOP+5
>> J1 CALC+8*, CALC+10*, CALC+11
>> K CALC+23*, CALC+31*, PRT+7*, PRT+10*, LOOP+3, LOOP+5, LOOP+7, LOOP+9, LOOP+10*
>> K1 PRT+9*, PRT+11*, LAST+3, LAST+6, LAST+8, LAST+10
>> L CALC+33*, PRT+3*, PRT+6*
>> LIN PRT+2, HDR1+1
>> LL CALC+7*
>> M CALC+25*, CALC+27*
N EN2+1!, EN2+5!
N( CALC+22*, CALC+23*, CALC+25*, CALC+27*, CALC+31
N(1 CALC+26, CALC+28, CALC+32
N(10 CALC+26*
N(2 CALC+26, CALC+29, CALC+32
N(3 CALC+26
N(4 CALC+26
N(5 CALC+26
N(6 CALC+26
N(7 CALC+26*
N(8 CALC+26
N(9 CALC+26
PER EN2+1!, EN2+5!
PER( EN2+3*, CALC+35*, LAST+6, LOOP+5
>> PRE EN2+4*, CALC+16, CALC+20, CALC+21
>> QR EN2+4*
>> QTR EN2+4*, CALC+17, CALC+31, CALC+32, CALC+33, CALC+35
>> SDT CALC+1, CALC+3*, CALC+4, CALC+6*, CALC+7
>> ST CALC+20*, CALC+21
>> ST1 CALC+21*, CALC+23
T1 EN2+1!, EN2+5!
T1( EN2+2*, CALC+31*, CALC+32*, CALC+33, CALC+35, LAST+3, LOOP+3
T1(1 CALC+17*, CALC+18*, PRT+1*, PRT+3, PRT+4
>> TIT PRT+8*, PRT+10*, LOOP+1
TO EN2+1!*, EN2+5!, CALC+33*, PRT+6, LAST+8, LOOP+7
>> TOT EN2+1*, CALC+16*, CALC+17, CALC+24*, CALC+25
TP EN2+1!*, EN2+5!, PRT+6*, LAST+10, LOOP+9
>> TQ EN2+1*, CALC+15*
>> TQ1 EN2+1*, CALC+17*, PRT+1
>> TQ2 EN2+1*, CALC+28*, PRT+8
>> TQ3 EN2+1*, CALC+29*, PRT+10
>> TQ4 EN2+1*, PRT+8*, PRT+10*, LAST+1*, LAST+4*, LAST+8, LOOP+7
>> USG CALC+2*, CALC+14*, CALC+17*, CALC+18
>> X PRT+9*, PRT+11*, LAST+2, LAST+3*, LAST+4, LAST+5, LAST+8*, LAST+9, LOOP+3*, LOOP+4
, LOOP+7*, LOOP+8
>> X1 CALC+4*, CALC+5*, CALC+7*, CALC+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All