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

Package: Dietetics

Routine: FHCMSR1


Information

FHCMSR1 ; HISC/NCA - Cost of Meals Served (cont.) ;4/25/93 13:57

Source Information

Source file <FHCMSR1.m>

Entry Points

Name Comments DBIA/ICR reference
Q1 ; Process Calculating Cost of Meals
; STG contains a string of number that is used to indicate which column
; to print each cost in the row.
CAL ; Calculate the costs
; P(1) contains the cost entered for calculating all the cost of the
; Food Groups. P(2) contains the total of the beg inv, issue, end inv,
; and recommanded.
PRT ; Print the costs
LP ; Loop to print costs for each group
ND ; Print the last line,the total of each column
ADD ; Add Issue for the quarter
HDR ; Print Heading
HDR1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $P("I II III IV V VI"," ",I)
  • Line Location: LP+1
Function Call: WRITE
  • Prompt: ?7,$P(P(1),"^",$P(PC,"^",1)),?18,$P(P(1),"^",$P(PC,",",2)),?29,$P(P(1),"^",$P(PC,",",3)),?40,$P(P(3),"^",$P(PC,",",4)),?50,$P(P(1),"^",$P(PC,",",5))_"%"
  • Line Location: LP+2
Function Call: WRITE
  • Prompt: ?57,$P(P(3),"^",$P(PC,",",6))_"%",?64,$P(P(3),"^",$P(PC,",",7))_"%",?71,$P(P(4),"^",$P(PC,",",8))
  • Line Location: LP+3
Function Call: WRITE
  • Prompt: !
  • Line Location: LP+4
Function Call: WRITE
  • Prompt: !,"Total",?7,$P(P(2),"^",1),?18,$P(P(2),"^",2),?29,$P(P(2),"^",3),?40,$P(P(3),"^",7),?50,$J($P(P(2),"^",4),5)_"%",?57,$J($P(P(3),"^",14),5),"%",?64,$J($P(P(3),"^",21),5),"%",?71,$P(P(4),"^",7),!
  • Line Location: ND+1
Function Call: WRITE
  • Prompt: !!,?(80-$L(Y)/2),Y
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!,?24,"COST OF MEALS SERVED WORKSHEET"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?74,"Page ",PG
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !!!?24,"Costs",!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: ?8,LN,!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: "Food",?11,"Beg",?32,"Close",?54,"%",?61,"%",?68,"%",?73,"Food",!
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: "Group",?11,"Inv",?21,"Issue",?33,"Inv",?43,"Usage",?53,"Rec",?60,"Act",?67,"Dev",?73,"Cost"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !?12,"A",?23,"B",?34,"C",?45,"D",?54,"E",?61,"F",?68,"G",?75,"H"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,LN,!
  • Line Location: HDR+10
Info |  Source |  Entry Points |  Interaction Calls