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

Package: Dietetics

Routine: FHMADM21


Information

FHMADM21 ; HISC/AAC - Multidivisional Served Meals Report ;10/9/03 16:07

Source Information

Source file <FHMADM21.m>

Entry Points

Name Comments DBIA/ICR reference
EN2 ; Print Meals Report
EN3 ;Enter/Edit data - alc 02-26-03
PRINT
Q1
Q2 ;Drivers for individual Comm Off report - alc 02-26-03
QUIT ;Drivers for report final totals/average - alc 02-26-03
Q3 ;Looping thru dates/comm off load data buckets - alc 02-26-03
FTOTALS ;PRINT FINAL TOTALS - alc 02-26-03
HDR ;Print report headings - alc 02-26-03
LN
N1 ;Get data from approp date/comm office globals - alc 02-26-03
N2
KIL ; Kill all used Variables

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: EN2+11
Function Call: WRITE
  • Prompt: !
  • Line Location: EN2+11
Function Call: WRITE
  • Prompt: !!,"The report requires a 132 column printer.",!
  • Line Location: PRINT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !?4,"Total",?15,"|",S(1),S(2),S(3),"|",S(4),S(5),S(6),"|",S(7),S(8),S(9),"|",S(10),"|",S(11),S(13),S(16),"|",S(17),"|",S(18),"|",S(19),S(20),S(21),!
  • Line Location: Q3+10
Function Call: WRITE
  • Prompt: !?4,"ALL Total",?15,"|",SS(1),SS(2),SS(3),"|",SS(4),SS(5),SS(6),"|",SS(7),SS(8),SS(9),"|",SS(10),"|",SS(11),SS(13),SS(16),"|",SS(17),"|",SS(18),"|",SS(19),SS(20),SS(21),!
  • Line Location: FTOTALS+2
Function Call: WRITE
  • Prompt: !,HDT,?44,"S E R V E D M E A L S W O R K S H E E T",?123,"Page ",PG
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,?1,NAME
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: ?(131-$L(DTE)\2),DTE
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !!,?15,"|",?32,"MEALS SERVED ON INPATIENT BASIS",?79,"|",?82,"MEALS SERVED TO OTHERS",?105,"| TOTAL| SERVED TRAYS DATA"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,?15,"|",?19,"DOMICILIARY",?34,"| NURSING HOME CU",?53,"|",?59,"HOSPITAL",?72,"| TOTAL|",?98,"| TOTAL| MEALS|"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,?15,"| Inp. Abs. Meal| Inp. Abs. Meal| Inp. Abs. Meal| | Outp. Paid Grat.| | | Cafe NPO Trays"
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !,?15,"| A B C | D E F | G H I | J | K M Q | | R | T U V"
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !
  • Line Location: LN+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: LN+0
Function Call: WRITE
  • Prompt: !,$P("Sun Mon Tue Wed Thu Fri Sat"," ",DOW)," ",DTP
  • Line Location: N2+22
Function Call: WRITE
  • Prompt: ?15,"|",N(1),N(2),N(3),"|",N(4),N(5),N(6),"|",N(7),N(8),N(9),"|",N(10),"|",N(11),N(13),N(16),"|",N(17),"|",N(18),"|",N(19),N(20),N(21)
  • Line Location: N2+23
Info |  Source |  Entry Points |  Interaction Calls