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 |  Local Variables |  All
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>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  KILL^XUSCLEAN  
Dietetics 2 (DTP,EN2)^FH  DT^FHMADM2  
VA Fileman 2 (C,DOW,NOW)^%DTC  ^DIC  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Dietetics 2 FHADM21  FHMADM2  

Entry Points

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

External References

Name Field # of Occurrence
C^%DTC Q3+2
DOW^%DTC Q1+1
NOW^%DTC EN2+2, Q1+2
^%ZIS PRINT+3
^%ZISC PRINT+5
^DIC EN3+3
DTP^FH Q1, Q1+2, N2+21
EN2^FH PRINT+4
DT^FHMADM2 EN2+2
KILL^XUSCLEAN KIL+1

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Prompt: "Print report for all Communications Offices Y or N: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: ZCO
  • 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
Routine Call
  • DIC
  • Line Location:
    • EN3+3
Routine Call
  • %ZIS
  • Line Location:
    • PRINT+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FH(117 - [#117] N1+2, N2
^FH(119.73 - [#119.73] EN2+8, PRINT+2, Q2+2, Q2+3

Label References

Name Line Occurrences
EN3 EN3+5
FTOTALS QUIT+9
HDR Q2+5, QUIT+4, N2+21
KIL EN2+2, EN3+3, PRINT+3, PRINT+4, PRINT+5
LN Q3+10, FTOTALS+2
N1 Q3+2
PRINT EN2+11, EN3+4
Q1 PRINT+5
Q2 Q2+2, Q2+3, Q2+7
Q3 Q2+6
QUIT Q2+2, Q2+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN2+2, Q1+2
%ZIS PRINT+3!*, PRINT+5!
%ZIS("A" PRINT+3*
>> CO EN2+6*, EN3+3, EN3+5*, PRINT+1, Q2+2
>> CON EN3+5*
>> CONAM EN3+5*
>> CONAME EN2+6*, EN3+5*, PRINT+1, Q2+2
>> CONUM EN2+6*, N1+2*, N2*
>> CONUMX PRINT+1*, Q2+2*, Q2+7
>> CONUMZ EN2+6*, PRINT+2*
>> COUNT EN2+6*, Q2+3*, N1+2
>> COX EN2+6*
>> COXX EN2+6*, Q2+2*, N2
>> D1 Q3+2*, N1+2, N2, N2+21
DIC EN3+2*, EN3+6!
DIC(0 EN3+2*
>> DOW Q1+1*, Q2+6*, Q3+2*, N2+22
DT EN2+2*
>> DTE Q1*, HDR+7
DTIME EN2+11
>> DTP Q1*, Q1+2*, N2+21*, N2+22
>> EDT Q1, Q3+2
>> FHLST PRINT+4*
>> FHPGM PRINT+4*
>> HDT Q1+2*, HDR+2
IO PRINT+5
IO("Q" PRINT+4
IOF HDR+2
IOP PRINT+3!, PRINT+5!
IOSL N2+21
IOST HDR+2
>> K EN2+9*, QUIT+6*, QUIT+7*, Q3+4*, Q3+6*, LN*, N2+2*, N2+3*, N2+15*, N2+17*
>> L EN2+6*, N2+2*, N2+3*
>> L1 Q3+2*
N N2+2!
N( Q3+4*, Q3+6*, N2+2*, N2+3*, N2+15, N2+17*
N(1 Q3+12, N2+8, N2+23
N(10 Q3+12, N2+8*, N2+11, N2+23
N(11 Q3+12, N2+11, N2+23
N(12 N2+11
N(13 Q3+12, N2+11*, N2+23
N(14 N2+11
N(15 N2+11
N(16 Q3+12, N2+11*, N2+23
N(17 Q3+12, N2+11*, N2+23
N(18 Q3+12, N2+11*, N2+23
N(19 Q3+12, N2+7*, N2+11*, N2+23
N(2 Q3+12, N2+8, N2+23
N(20 Q3+12, N2+7*, N2+11, N2+23
N(21 Q3+12, N2+11*, N2+23
N(3 Q3+12, N2+8*, N2+23
N(4 Q3+12, N2+8, N2+23
N(5 Q3+12, N2+8, N2+23
N(6 Q3+12, N2+8*, N2+23
N(7 Q3+12, N2+8, N2+23
N(8 Q3+12, N2+8, N2+23
N(9 Q3+12, N2+8*, N2+23
>> NAME Q2+2*, Q2+3*, QUIT+3*, HDR+5
>> NAMENO PRINT+1*
>> ND Q3+2*, Q3+4, Q3+12, FTOTALS+4, N2+11*
>> NDX QUIT+6, QUIT+7, Q3+2*, N2+11*
>> NN( EN2+9*, QUIT+6*, QUIT+7*
>> NN(1 FTOTALS+4
>> NN(10 FTOTALS+4
>> NN(11 FTOTALS+4
>> NN(13 FTOTALS+4
>> NN(16 FTOTALS+4
>> NN(17 FTOTALS+4
>> NN(18 FTOTALS+4
>> NN(19 FTOTALS+4
>> NN(2 FTOTALS+4
>> NN(20 FTOTALS+4
>> NN(21 FTOTALS+4
>> NN(3 FTOTALS+4
>> NN(4 FTOTALS+4
>> NN(5 FTOTALS+4
>> NN(6 FTOTALS+4
>> NN(7 FTOTALS+4
>> NN(8 FTOTALS+4
>> NN(9 FTOTALS+4
>> PG Q1+2*, HDR+2*
>> POP PRINT+3
>> S( EN2+9*, Q3+4*, Q3+6*, N2+15*
>> S(1 Q3+10
>> S(10 Q3+10
>> S(11 Q3+10
>> S(13 Q3+10
>> S(16 Q3+10
>> S(17 Q3+10
>> S(18 Q3+10
>> S(19 Q3+10
>> S(2 Q3+10
>> S(20 Q3+10
>> S(21 Q3+10
>> S(3 Q3+10
>> S(4 Q3+10
>> S(5 Q3+10
>> S(6 Q3+10
>> S(7 Q3+10
>> S(8 Q3+10
>> S(9 Q3+10
>> SDT Q1, Q1+1, Q3+2
>> SS( EN2+9*, QUIT+6*, QUIT+7*, N2+15*
>> SS(1 FTOTALS+2
>> SS(10 FTOTALS+2
>> SS(11 FTOTALS+2
>> SS(13 FTOTALS+2
>> SS(16 FTOTALS+2
>> SS(17 FTOTALS+2
>> SS(18 FTOTALS+2
>> SS(19 FTOTALS+2
>> SS(2 FTOTALS+2
>> SS(20 FTOTALS+2
>> SS(21 FTOTALS+2
>> SS(3 FTOTALS+2
>> SS(4 FTOTALS+2
>> SS(5 FTOTALS+2
>> SS(6 FTOTALS+2
>> SS(7 FTOTALS+2
>> SS(8 FTOTALS+2
>> SS(9 FTOTALS+2
>> TD Q3+2*, Q3+6, N2+11*
>> TDX Q3+2*, N2+11*
>> X EN2+2, Q1+1*, Q3+2
>> X1 Q3+2*
>> X2 Q3+2*
>> Y EN3+3, EN3+4, EN3+5, EN3+6, Q1+1, Q2+6
>> Y0 N1+2*, N2*
>> Y00 EN2+6*, N1+2*, N2*
>> Y1 N1+2*, N2*, N2+3, N2+7
>> Y11 N1+2*, N2*, N2+2
>> Y2 N1+2*, N2*
>> ZCO EN2+6*, EN2+11*, PRINT+2, Q2+2, Q2+3, N1+2, N2
>> ZOUT EN2+8*, Q2+3, N1+2, N2
>> ZZCOUNT EN2+8*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All