Routine: FHCMSR1

Information

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

Source file <FHCMSR1.m>

Package	Total	Call Graph
Dietetics	2	DTP^FH ^FHCMS1
VA Fileman	1	(COMMA,NOW)^%DTC

Package	Total	Caller Graph
Dietetics	1	FHCMSR

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.
HDR	; Print Heading
HDR1
ND	; Print the last line,the total of each column
PRT	; Print the costs
ADD	; Add Issue for the quarter
LP	; Loop to print costs for each group
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.

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

Name	Line Occurrences (* Changed, ! Killed)
^FH(117.2 - [#117.2]	Q1+7, CAL+5

Name	Field # of Occurrence
^(	Q1+7

Name	Field # of Occurrence
>> %	Q1+3
>> DA	Q1+3, HDR+2, HDR1
>> DTP	Q1+3*
>> EDT	Q1+7, HDR+2
>> FHTOT	CAL+23, CAL+24
>> HD	Q1+3*, HDR+2
>> I	CAL+8, CAL+21, CAL+23, PRT+6, PRT+7, LP+1, ADD+2
IOF	HDR+1
IOST	HDR+1
>> K	CAL+7, CAL+8, CAL+19, CAL+20, ADD+2*
>> L	Q1+7, CAL+4, CAL+6, CAL+7, CAL+8, CAL+13, CAL+14, CAL+15, CAL+16, CAL+17 , CAL+19, CAL+20, PRT+1, PRT+2, PRT+3, PRT+4, PRT+5
>> L1	Q1+7*
>> LN	HDR+6, HDR+10
N	CAL+21!
N(	CAL+21*
P	CAL+4!
P(	CAL+4*
P(1	CAL+6, CAL+7, CAL+8, CAL+13, CAL+17, PRT+1, PRT+4, LP+2
P(2	CAL+8, PRT+2, ND+1
P(3	CAL+13, CAL+15, CAL+16, CAL+17, CAL+19, CAL+20, CAL+23, CAL+24, PRT+3, PRT+5 , LP+2, LP+3, ND+1
P(4	CAL+23, CAL+24, PRT+6*, LP+3, ND+1
>> P1	CAL+5*, CAL+6
>> PC	PRT+7*, LP+2, LP+3
>> PG	Q1+3, HDR+1, HDR+5
S	Q1+5!
S(	CAL+7, ADD+2*
>> S1	Q1+4*
>> S2	Q1+4*
>> SDT	Q1+3, Q1+4*, Q1+7, CAL+5, HDR+2
>> STG	Q1+5, Q1+6, PRT+7
>> T1	PRT+7*
>> X	PRT+1, PRT+2, PRT+3, HDR+2, HDR1
>> X1	Q1+5, Q1+7, Q1+8, CAL+5, ADD+1, ADD+2
>> X2	PRT+1, PRT+2, PRT+3*
>> X3	PRT+1, PRT+2, PRT+3*
>> Y	HDR+2*, HDR+3