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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: FHREP1

Package: Dietetics

Routine: FHREP1


Information

FHREP1 ; HISC/NCA - Inventory Worksheet and Report ;3/9/95 08:28

Source Information

Source file <FHREP1.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 4 ^%DT  NOW^%DTC  ^DIE  ^DIR  
Dietetics 2 (DTP,EN2,TR)^FH  (D1,F1,KIL)^FHREP  
Kernel 2 ^%ZIS  ^%ZISC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Dietetics 2 FHING13  FHREP  

Entry Points

Name Comments DBIA/ICR reference
EN2 ; Print the Inventory Worksheet & Report
E0 ; Read in Month and Year
E1
Q0 ; Process Printing worksheet or report
Q1 ; Loop through Ingredients
LP ; Get Food Group or Storage
P1 ; Loop to print or if FHR="E" edit QOH
CHK ; Check the Food Group or Storage to do Subtotal & Grandtotal
SUB ; Write subtotal
HD ; Check for end of page
HDR ; Heading for the Inventory

External References

Name Field # of Occurrence
^%DT E0+4
NOW^%DTC E0+1, Q1+1
^%ZIS E1
^%ZISC E1+2
^DIE P1+7
^DIR HD+2
DTP^FH Q1+1, LP+2
EN2^FH E1+1
TR^FH EN2+3
D1^FHREP E0+7
F1^FHREP E0+6
KIL^FHREP EN2+2, E0+2, E0+6, E0+7, E1, E1+1, E1+2, Q0+1

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "Select W=Worksheet or R=Report: "
  • Variable: FHR
  • Timeout: DTIME
  • Line Location: EN2+2
Function Call: WRITE
  • Prompt: *7," Enter W or R"
  • Line Location: EN2+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: E0+2
Function Call: WRITE
  • Prompt: *7," Answer Month and Yr as Mth/Yr or Mth Yr.",!?25," CANNOT be greater than now."
  • Line Location: E0+4
Function Call: WRITE
  • Prompt: !
  • Line Location: E1+0
Function Call: WRITE
  • Prompt: !!,?55,"TOTAL: ",$J(SUBTOT,8,2)
  • Line Location: Q1+5
Function Call: WRITE
  • Prompt: !!?49,"GRAND TOTAL: ",$J(GRDTOT,8,2)
  • Line Location: Q1+6
Function Call: WRITE
  • Prompt: !
  • Line Location: P1+10
Function Call: WRITE
  • Prompt: ?53,UDC,?63,$J(QOH,8,2),?73,"_____"
  • Line Location: P1+13
Function Call: WRITE
  • Prompt: !,$J(MIN,5),?6,$P(ING,",",1,L-1),","
  • Line Location: P1+18
Function Call: WRITE
  • Prompt: ?53,UDC,?63,$J(QOH,8,2),?73,"_____"
  • Line Location: P1+20
Function Call: WRITE
  • Prompt: !!,?52,"SUBTOTAL: ",$J(SUBTOT,8,2)
  • Line Location: SUB+1
Function Call: READ
  • Variable: Y " W $S(FHR="W"
  • Timeout: "W
  • Line Location: HDR+2
Function Call: READ
  • Prompt: K S H E E T"
  • Variable: 1
  • Timeout: "R
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,HD,?70,"Page ",PG,!!?22,"I N V E N T O R Y "
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: $S(FHR="W":"W O R K S H E E T",1:"R E P O R T"),!!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?(80-$L(MTH)/2),MTH,!!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: ?(80-$L(P2)/2),P2,!!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !?56,"DATE",!?47,"ITEM",?56,"LAST",?66,"QOH",?74,"QOH",!,"ITEM#",?20,"NAME",?38,"U/P",?47,"COST",?55,"UPDATE",?63,"LAST MTH",?72,"CURRENT",!
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !?47,"ITEM",?58,"QOH",?67,"TOTAL",!,"ITEM#",?20,"NAME",?38,"U/P",?47,"COST",?56,"CURRENT",?68,"COST",!
  • Line Location: HDR+8
Routine Call
  • DIE
  • Line Location:
    • P1+7
Routine Call
  • DIR
  • Line Location:
    • HD+2
Routine Call
  • %ZIS
  • Line Location:
    • E1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FHING - [#113] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FH(113.1 - [#113.1] LP+4
^FHING - [#113] Q1+2, P1+3
^TMP($J Q1+1!, Q1+2*, Q1+4

Label References

Name Line Occurrences
CHK P1+9
E0 E0+4
EN2 EN2+4
HD P1+10, CHK+3
HDR CHK+2, HD+1
LP Q1+2
P1 Q1+4
Q0 E1+2
Q1 Q0+1
SUB Q1+6, CHK+3

Naked Globals

Name Field # of Occurrence
^( Q1+2, Q1+4
^(0 Q1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % E0+1, Q1+1
%DT E0+2!, E0+4*!
%ZIS E1*!, E1+2!
%ZIS("B" E1*
>> ANS Q1+1*, Q1+4, Q1+5, Q1+6, P1+7*, P1+9, P1+10, HD+2*
>> CK Q1+1*, P1+7*
>> COST Q1+2, LP+1*, P1+1*, P1+12, P1+19, CHK+7
DA P1+5*, P1+7!
DIE P1+5!*, P1+7!
DIR HD+2!
DIR(0 HD+2*
DR P1+6*, P1+7*!
DT P1+6, P1+7
DTIME EN2+2, E0+2
DTOUT P1+7!
>> DTP Q1+1*, LP+2*
>> FHLST E1+1*
>> FHPGM E1+1*
>> FHR EN2+2*, EN2+3*, EN2+4, E0+6, E0+7, Q1+5, Q1+6, P1+2, P1+13, P1+20
, CHK+3, CHK+6, HDR+2, HDR+7
>> FHXX EN2+1*, E0+6, Q1+2, LP+3, CHK+1, HDR+4
>> GRDTOT Q1+1*, Q1+6, CHK+9*
>> HD Q1+1*, HDR+2
>> ING Q1+2, Q1+4*, LP+1*, P1+11, P1+12, P1+17, P1+18, P1+19
IO E1+2
IO("Q" E1+1
IOF HDR+1
IOP E1!, E1+2!
IOSL P1+10
IOST HD+2, HDR+1
>> K Q1+1*, Q1+2*, P1+1*, P1+3, P1+5
>> L P1+17*, P1+18*, P1+19
>> L0 Q1+2, LP+1*, LP+4*
>> L1 Q1+4*
>> L2 Q1+4*
>> LOC LP+4*
>> MIN Q1+2, LP+1*, P1+1*, P1+12, P1+18
>> MTH E0+5*, HDR+3
>> NOW E0+1*, E0+2, E0+3, E0+4
>> OK Q1+2, LP+1*, LP+3*, LP+4*
>> OKAY P1+6, P1+7
>> OLD Q1+1*, CHK+2*, CHK+3, CHK+4*
>> P0 Q1+2, Q1+4*, LP+3*, LP+4*, CHK+1
>> P1 CHK+1*, CHK+2, CHK+3, CHK+4, HDR+4, HDR+5
>> P2 HDR+4*, HDR+5*, HDR+6
>> PG Q1+1*, HDR+1*, HDR+2
>> POP E1
>> QOH Q1+2, LP+1*, P1+1*, P1+13, P1+14, P1+20, P1+21, CHK+7
>> REC Q1+3*, P1+1*, CHK+2, HD+1
>> SRT Q1+5, Q1+6, LP+3, LP+4
>> SUBTOT Q1+1*, Q1+5, CHK+8*, SUB+1, SUB+2*
>> TOTAL Q1+1*, P1+14, P1+21, CHK+7*, CHK+8, CHK+9
>> UDC Q1+2, LP+1*, LP+2*, P1+1*, P1+13, P1+20
>> UDQ Q1+2, LP+1*, LP+2*, P1+1*, P1+4
>> UP Q1+2, LP+1*, P1+1*, P1+12, P1+19
>> X EN2+3*, E0+2*, E0+3*, E0+6, E0+7, Q1+2*, LP+1, LP+3, LP+4
>> XX Q1+4*, P1+1
Y E0+4, E0+5, P1+7!, HD+2
>> YR E0+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All