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 |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FHING - [#113] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call