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

Package: Dietetics

Routine: FHMADM3


Information

FHMADM3 ; HISC/REL/AAC - Additional Meals Report ;10/9/03 16:07

Source Information

Source file <FHMADM3.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; Print Meal Report
PRINT
Q1 ; Process Printing the Meal Report
Q2 ;
QUIT ;
Q3
TOTALS ;
FTOTALS ; Final Totals
HDR ;Print page headers
LN
N1 ;Get specific records based on Communications Offices,Start/End Dates, etc
N2 ;Get Communciation Offices
DT ; Get From/To Dates
D1
D2 ;
KIL
EXIT

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !
  • Prompt: "Print report for all Communications Offices Y or N: "
  • Variable: ZCO
  • Timeout: DTIME
  • Line Location: EN1+9
Function Call: WRITE
  • Prompt: !!,"The report requires a 132 column printer.",!
  • Line Location: PRINT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !," Total",?10,"|",S(1),S(2),S(3),S(4),S(5),S(6),S(19)," |",S(7),S(8),S(9),S(10),S(11),S(12),S(20)," |",S(13),S(14),S(15),S(16),S(17),S(18),S(21)," |",S(22),!
  • Line Location: TOTALS+4
Function Call: WRITE
  • Prompt: !,"ALL Total",?10,"|",SS(1),SS(2),SS(3),SS(4),SS(5),SS(6),SS(19)," |",SS(7),SS(8),SS(9),SS(10),SS(11),SS(12),SS(20)," |",SS(13),SS(14),SS(15),SS(16),SS(17),SS(18),SS(21)," |",SS(22),!
  • Line Location: FTOTALS+4
Function Call: WRITE
  • Prompt: !,HDT,?50,"A D D I T I O N A L M E A L S",?125,"Page ",PG
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!,?1,NAME
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!?(131-$L(DTE)\2),DTE
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!,?10,"|",?21,"B R E A K F A S T",?48,"|",?64,"N O O N",?86,"|",?99,"E V E N I N G",?124,"| TOTAL"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,?10,"| Opt. Emp. Paid OOD Vol. Grt. Total | Opt. Emp. Paid OOD Vol. Grt. Total | Opt. Emp. Paid OOD Vol. Grt. Total |"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"-----------------------------------------------------------------------------------------------------------------------------------"
  • Line Location: LN+0
Function Call: WRITE
  • Prompt: !,$P("Sun Mon Tue Wed Thu Fri Sat"," ",DOW)," ",$E(DTP,1,6)
  • Line Location: N1+11
Function Call: WRITE
  • Prompt: "|",N(1),N(2),N(3),N(4),N(5),N(6),N(19)," |",N(7),N(8),N(9),N(10),N(11),N(12),N(20)," |",N(13),N(14),N(15),N(16),N(17),N(18),N(21)," |",N(22)
  • Line Location: N1+12
Function Call: WRITE
  • Prompt: !
  • Line Location: D1+0
Function Call: WRITE
  • Prompt: *7," [Must Start before Today!] "
  • Line Location: D1+1
Function Call: WRITE
  • Prompt: *7," [Must End before Today!] "
  • Line Location: D2+2
Function Call: WRITE
  • Prompt: *7," [End before Start?] "
  • Line Location: D2+3
Info |  Source |  Entry Points |  Interaction Calls