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

Call Graph

Call Graph Total: 3

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Dietetics 1 FHCMSR  

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.
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.

External References

Name Field # of Occurrence
COMMA^%DTC PRT+1, PRT+2, PRT+3
NOW^%DTC Q1+3
DTP^FH Q1+3
^FHCMS1 CAL+22

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

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
ADD Q1+7
CAL Q1+8
HDR Q1+3
HDR1 HDR+2
LP PRT+7
ND PRT+8
PRT CAL+23

Naked Globals

Name Field # of Occurrence
^( Q1+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All