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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: FHADM21

Package: Dietetics

Routine: FHADM21


Information

FHADM21 ; HISC/REL/NCA - Served Meals Report ;1/23/98 16:07

Source Information

Source file <FHADM21.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Dietetics 3 (DTP,EN2)^FH  DT^FHADM2  ^FHMADM21  
Kernel 3 ^%ZIS  ^%ZISC  KILL^XUSCLEAN  
VA FileMan 1 (C,DOW,NOW)^%DTC  

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 FHADM2  FHADMR2  

Entry Points

Name Comments DBIA/ICR reference
EN2 ; Print Meals Report
; Check for multidivisional site
Q1
HDR
LN
N1
KIL ; Kill all used Variables

External References

Name Field # of Occurrence
C^%DTC Q1+4
DOW^%DTC Q1+1
NOW^%DTC EN2+3, Q1+2
^%ZIS EN2+5
^%ZISC EN2+7
DTP^FH Q1, Q1+2, N1+8
EN2^FH EN2+6
DT^FHADM2 EN2+3
^FHMADM21 EN2+2
KILL^XUSCLEAN KIL+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The report requires a 132 column printer.",!
  • Line Location: EN2+4
Function Call: WRITE
  • Prompt: !
  • Line Location: EN2+5
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: Q1+7
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",?125,"Page ",PG
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !!?(131-$L(DTE)\2),DTE
  • Line Location: HDR+1
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+2
Function Call: WRITE
  • Prompt: !,?15,"|",?19,"DOMICILIARY",?34,"| NURSING HOME CU",?53,"|",?59,"HOSPITAL",?72,"| TOTAL|",?98,"| TOTAL| MEALS|"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?15,"| Inp. Abs. Meal| Inp. Abs. Meal| Inp. Abs. Meal| | Outp. Paid Grat.| | | Cafe NPO Trays"
  • Line Location: HDR+4
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+5
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: N1+9
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: N1+10
Routine Call
  • %ZIS
  • Line Location:
    • EN2+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FH(117 - [#117] N1
^FH(119.9 - [#119.9] EN2+2

Label References

Name Line Occurrences
HDR Q1+2, N1+8
KIL EN2+3, EN2+5, EN2+6, EN2+7
LN Q1+7
N1 Q1+4
Q1 EN2+7

Naked Globals

Name Field # of Occurrence
^(1 N1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN2+3, Q1+2
%ZIS EN2+5!*, EN2+7!
%ZIS("A" EN2+5*
>> D1 Q1+4*, N1, N1+8
>> DOW Q1+1*, Q1+4*, N1+9
DT EN2+3*
>> DTE Q1*, HDR+1
>> DTP Q1*, Q1+2*, N1+8*, N1+9
>> EDT Q1, Q1+4
>> FHLST EN2+6*
>> FHPGM EN2+6*
>> HDT Q1+2*, HDR
IO EN2+7
IO("Q" EN2+6
IOF HDR
IOP EN2+5!, EN2+7!
IOSL N1+8
IOST HDR
>> K Q1+3*, Q1+5*, Q1+6*, LN*, N1+1*, N1+2*, N1+6*, N1+7*
>> L N1+1*, N1+2*
>> L1 Q1+4*
N N1+1!
N( Q1+5*, Q1+6*, N1+1*, N1+2*, N1+6, N1+7*
N(1 Q1+8, N1+4, N1+10
N(10 Q1+8, N1+4*, N1+5, N1+10
N(11 Q1+8, N1+5, N1+10
N(12 N1+5
N(13 Q1+8, N1+5*, N1+10
N(14 N1+5
N(15 N1+5
N(16 Q1+8, N1+5*, N1+10
N(17 Q1+8, N1+5*, N1+10
N(18 Q1+8, N1+5*, N1+10
N(19 Q1+8, N1+3*, N1+5*, N1+10
N(2 Q1+8, N1+4, N1+10
N(20 Q1+8, N1+3*, N1+5, N1+10
N(21 Q1+8, N1+5*, N1+10
N(3 Q1+8, N1+4*, N1+10
N(4 Q1+8, N1+4, N1+10
N(5 Q1+8, N1+4, N1+10
N(6 Q1+8, N1+4*, N1+10
N(7 Q1+8, N1+4, N1+10
N(8 Q1+8, N1+4, N1+10
N(9 Q1+8, N1+4*, N1+10
>> ND Q1+4*, Q1+5, Q1+8, N1+5*
>> PG Q1+2*, HDR*
>> POP EN2+5
S Q1+3!
S( Q1+3*, Q1+5*, Q1+6*, N1+6*
S(1 Q1+7
S(10 Q1+7
S(11 Q1+7
S(13 Q1+7
S(16 Q1+7
S(17 Q1+7
S(18 Q1+7
S(19 Q1+7
S(2 Q1+7
S(20 Q1+7
S(21 Q1+7
S(3 Q1+7
S(4 Q1+7
S(5 Q1+7
S(6 Q1+7
S(7 Q1+7
S(8 Q1+7
S(9 Q1+7
>> SDT Q1, Q1+1, Q1+4
>> TD Q1+4*, Q1+6, N1+5*
U EN2+2
>> X EN2+3, Q1+1*, Q1+4
>> X1 Q1+4*
>> X2 Q1+4*
>> Y Q1+1
>> Y0 N1*, N1+1
>> Y1 N1*, N1+2, N1+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All