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

Package: Dietetics

Routine: FHADR81


Information

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

Source Information

Source file <FHADR81.m>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls