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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: FHPRO1

Package: Dietetics

Routine: FHPRO1


Information

FHPRO1 ; HISC/REL/RVD - Production Processing ;3/6/95 15:45

Source Information

Source file <FHPRO1.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Dietetics 4 (DTP,EN2,TR)^FH  E1^FHPRC1  Q2^FHPRF1  ^FHPRO2  
Kernel 3 ^%ZIS  ^%ZISC  KILL^XUSCLEAN  
VA FileMan 3 ^%DT  (C,DOW)^%DTC  ^DIC  

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

Package Total Caller Graph
Dietetics 1 FHPRO5  

Entry Points

Name Comments DBIA/ICR reference
F0
CEFO ;Census and Forcast
R0
CL ;Ask for Communication Office if census is selected.
F1
F2
R1 ;R !!,"Select MEAL (B,N,E, or combination of BNE, or ALL): ALL// ",MEAL:DTIME G:'$T!(MEAL["^") KIL S:MEAL="" MEAL="ALL" S X=MEAL D TR^FH S MEAL=X S:$P("ALL",MEAL,1)="" MEAL="A"
R2
R3
R4
R5
R7
R8
R10
R9
L0
FOR
C1 ;
CHKML ;check meal
KIL

External References

Name Field # of Occurrence
^%DT F1, F2
C^%DTC F2+6, FOR+2
DOW^%DTC C1+1
^%ZIS L0+1
^%ZISC L0+3
^DIC F0+1, CL+5
DTP^FH F2+7, F2+8, C1+3
EN2^FH L0+2
TR^FH R0, CL+4, R1+2, R2, R3, R4, R5, R7, R8, R10
, R9
E1^FHPRC1 F1+1, F2+3, F2+7
Q2^FHPRF1 FOR+4
^FHPRO2 L0+3
KILL^XUSCLEAN KIL

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "Select PRODUCTION FACILITY: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: F0+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Use CENSUS or FORECAST? (C OR F): "
  • Variable: FHP6
  • Timeout: DTIME
  • Line Location: R0+0
Function Call: WRITE
  • Prompt: *7," Enter C or F"
  • Line Location: R0+0
Function Call: WRITE
  • Prompt: !
  • Line Location: F1+0
Function Call: WRITE
  • Prompt: *7,!!,"No MENU CYCLE Defined for that Date!"
  • Line Location: F1+1
Function Call: WRITE
  • Prompt: *7,!!,"MENU CYCLE DAY Not Defined for that Date!"
  • Line Location: F1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: F2+0
Function Call: WRITE
  • Prompt: !!,"***End Date must be on or after Start Date!!!"
  • Line Location: F2+1
Function Call: WRITE
  • Prompt: *7,!!,"No MENU CYCLE Defined for that Date!"
  • Line Location: F2+3
Function Call: WRITE
  • Prompt: *7,!!,"MENU CYCLE DAY Not Defined for that Date!"
  • Line Location: F2+4
Function Call: WRITE
  • Prompt: *7,!!,"No MENU CYCLE Defined for Date: ",DTP
  • Line Location: F2+7
Function Call: WRITE
  • Prompt: *7,!!,"No MENU CYCLE Defined for Date: ",DTP
  • Line Location: F2+8
Function Call: WRITE
  • Prompt: *7,!!,"You may select B for Breakfast, N for Noon, E for Evening, B-N for Breakfast to Noon, N-E for Noon to Evening, or any combination separated by a hyphen, or ALL for all meals"
  • Line Location: R1+4
Function Call: WRITE
  • Prompt: *7,!,"Select B for Breakfast, N for Noon, or E for Evening, or any combination of BNE, or ALL for all meals"
  • Line Location: R1+5
Function Call: WRITE
  • Prompt: *7,!!,"*** NO MENU DEFINED FOR THIS MEAL ***"
  • Line Location: R1+8
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you want PRODUCTION Summary? (Y/N) N// "
  • Variable: FHP1
  • Timeout: DTIME
  • Line Location: R2+0
Function Call: WRITE
  • Prompt: *7," Enter YES or NO"
  • Line Location: R2+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you want MEAL SERVICE Summary? (Y/N) N// "
  • Variable: FHP2
  • Timeout: DTIME
  • Line Location: R3+0
Function Call: WRITE
  • Prompt: *7," Enter YES or NO"
  • Line Location: R3+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you want RECIPE PREPARATION Sheet? (Y/N) N// "
  • Variable: FHP3
  • Timeout: DTIME
  • Line Location: R4+0
Function Call: WRITE
  • Prompt: *7," Enter YES or NO"
  • Line Location: R4+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you want STOREROOM REQUISITION Sheet? (Y/N) N// "
  • Variable: FHP4
  • Timeout: DTIME
  • Line Location: R5+0
Function Call: WRITE
  • Prompt: *7," Enter YES or NO"
  • Line Location: R5+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you want PRINTED RECIPES? (Y/N) N// "
  • Variable: FHP5
  • Timeout: DTIME
  • Line Location: R7+0
Function Call: WRITE
  • Prompt: *7," Enter YES or NO"
  • Line Location: R7+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you want Advance Food Prep? (Y/N) N// "
  • Variable: FHP8
  • Timeout: DTIME
  • Line Location: R8+0
Function Call: WRITE
  • Prompt: *7," Enter YES or NO"
  • Line Location: R8+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you want Storeroom Requisition for AFP? (Y/N) N// "
  • Variable: FHP10
  • Timeout: DTIME
  • Line Location: R10+0
Function Call: WRITE
  • Prompt: *7," Enter YES or NO"
  • Line Location: R10+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you want Printed Recipes for AFP? (Y/N) N// "
  • Variable: FHP9
  • Timeout: DTIME
  • Line Location: R9+0
Function Call: WRITE
  • Prompt: *7," Enter YES or NO"
  • Line Location: R9+0
Function Call: WRITE
  • Prompt: !!,"The report requires a 132 column printer.",!
  • Line Location: L0+0
Function Call: WRITE
  • Prompt: !
  • Line Location: L0+1
Function Call: WRITE
  • Prompt: !?5,"Forecast Census for ",FHDAY,"DAY, ",DTP," : ",S1," // "
  • Line Location: C1+4
Function Call: WRITE
  • Prompt: *7," Must be a number less than 9999"
  • Line Location: C1+6
Routine Call
  • DIC
  • Line Location:
    • F0+1
    • CL+5
Routine Call
  • %ZIS
  • Line Location:
    • L0+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FH(119.71 - [#119.71] Classic Fileman Calls
^FH(119.73 - [#119.73] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FH(116 - [#116] F1+2, F2+4, F2+8, R1+6
^FH(116.3 - [#116.3] R1+7
^FH(119.71 - [#119.71] FHPRO1+8
^FH(119.72 - [#119.72] FOR+7
^FH(119.73 - [#119.73] CL+7
^TMP("FH" FHPRO1+4!, KIL!
^TMP($J FHPRO1+4!, FOR+5, FOR+6, KIL!

Label References

Name Line Occurrences
C1 FOR+8, C1+6
CEFO FHPRO1+8
CHKML R1+3
CL CL+5
F0 F0+1
F1 R0+1, CL+7, F1, F1+1, F1+2
F2 F2, F2+1, F2+3, F2+4, F2+10
FOR R9+2
KIL F0, R0, CL+4, CL+6, F1, F2, R1+2, R2, R3, R4
, R5, R7, R8, R10, R9, R9+3, L0+1, L0+2, L0+3
R0 R0
R1 R1+4
R10 R10
R2 R2
R3 R3
R4 R4
R5 R5
R7 R7
R8 R8
R9 R9

Naked Globals

Name Field # of Occurrence
^(0 R1+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT F1*, F2*
>> %DT("A" F1*, F2*
%ZIS L0+1!*, L0+3!
%ZIS("A" L0+1*
>> D1 F1*, F2+1, F2+5, F2+7*, F2+9*, R1+7, FOR, FOR+3*, FOR+9*
DIC F0+1!*, CL+1!, CL+5*
DIC("S" CL+2*
DIC(0 F0+1*, CL+5*
>> DOW C1+1*, C1+2
DTIME F0, R0, CL+3, R1+1, R2, R3, R4, R5, R7, R8
, R10, R9, C1+4
>> DTOUT F1, F2
>> DTP F2+7*, F2+8, C1+3*, C1+4
>> FHALL FHPRO1+6*
>> FHCY F1+1, F1+2, F2+3, F2+4, F2+7, F2+8, R1+6
>> FHD1SAV FOR*, FOR+2, FOR+9
>> FHD1SV F2+5*, F2+6, F2+9
>> FHDA F1+2, F2+4, F2+8, R1+6*, R1+7*
>> FHDAY C1+2*, C1+4
>> FHDT2 F2+2*, F2+6, FOR+2
>> FHDTI F2+6*, FOR+2*
>> FHDTTO FOR+3*, C1+1, C1+3
>> FHERRDT F2+2*, F2+7*, F2+8*, F2+10
>> FHLST L0+2*
>> FHMLCM CHKML+2*, CHKML+3
>> FHMLFLG R1+4, CHKML+1*, CHKML+3*
>> FHP FHPRO1+8*, F0+1*, CL+2, CL+7
>> FHP1 R2*, R2+1*
>> FHP10 R10*, R10+1*
>> FHP2 R3*, R3+1*
>> FHP3 R4*, R4+1*
>> FHP4 R5*, R5+1*
>> FHP5 R7*, R7+1*
>> FHP6 R0*, R0+1*, R9+2
>> FHP8 R8*, R8+1*
>> FHP9 R9*, R9+1*
>> FHPFLG FHPRO1+7*, FHPRO1+8*
>> FHPGM L0+2*
>> FHQUIT R9+3, FOR*, FOR+2, FOR+5, C1+5*
FHSITE FHPRO1+5*, CL+1!, CL+4*, CL+5*, CL+6, CL+7, FOR+1*
FHSITENM CL+1!, CL+5*
IO L0+3
IO("Q" L0+2
IOP L0+1!, L0+3!
>> LL R1+7*
M2 R0+1!
M2( C1+7*, C1+8*
>> MEAL R1+1*, R1+2*, R1+4, CHKML+2, CHKML+3
>> P0 FOR+5*, FOR+6, FOR+7, C1+7, C1+8
>> POP L0+1
>> S1 FOR+6*, C1+4, C1+6
U CL+5
X F0*, R0*, CL+1!, CL+3*, CL+4*, CL+5, F1, F2, F2+6, F2+7
, R1+2*, R1+7*, R2*, R3*, R4*, R5*, R7*, R8*, R10*, R9*
, FOR+2, FOR+3, C1+1*, C1+4*, C1+5, C1+6*, C1+7, C1+8
>> X1 F1*, F2+2*, F2+6*, F2+7*, FOR+2*
>> X2 F2+6*, FOR+2*
>> Y F0+1, CL+5, F1, F2, F2+1, F2+2, C1+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All