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

Package: Dietetics

Routine: FHSEL4


Information

FHSEL4 ; HISC/REL/NCA - Tabulate Food Preferences ;4/27/93 13:09

Source Information

Source file <FHSEL4.m>

Call Graph

Call Graph Total: 6

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

Entry Points

Name Comments DBIA/ICR reference
Q1
Q2
SES
R1
KIL
HDR
W4
W3
W2
L0
L1
C1
W0
D0
D1

External References

Name Field # of Occurrence
NOW^%DTC Q1
^%ZIS D1
^%ZISC D1+2
^DIC D0+1
DTP^FH Q1+3
EN2^FH D1+1
TR^FH D0, R1
KILL^XUSCLEAN KIL

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Prompt: "Select COMMUNICATION OFFICE (or ALL): "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: D0+0
Function Call: READ
  • Timeout: DTIME
  • Line Location: R1+0
Function Call: WRITE
  • Prompt: *7,!,"Select B for Breakfast, N for Noon, E for Evening or ALL for all meals"
  • Line Location: R1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: D1+0
Function Call: WRITE
  • Prompt: !!?(S1-9\2),"L I K E S",!
  • Line Location: Q2+1
Function Call: WRITE
  • Prompt: !!?(S1-15\2),"D I S L I K E S",!
  • Line Location: Q2+2
Function Call: WRITE
  • Prompt: !
  • Line Location: Q2+3
Function Call: WRITE
  • Prompt: !,$P(^FH(115.2,Z,0),"^",1)
  • Line Location: L1+0
Function Call: WRITE
  • Prompt: ?(30+P(D2)),$J(N1,6)
  • Line Location: L1+1
Function Call: WRITE
  • Prompt: ?S2,$J(TOT,7)
  • Line Location: L1+2
Function Call: WRITE
  • Prompt: !,H1,?(S1-29\2),"M E A L P R E F E R E N C E S",?(S1-6),"Page ",PG
  • Line Location: HDR+0
Function Call: READ
  • Prompt: E A K F A S T"
  • Timeout: "N
  • Variable: MEAL="N"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!?(S1-$L(X)\2),X
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!,"Preference",?32,PD," TOTAL"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,LN
  • Line Location: HDR+3
Routine Call
  • DIC
  • Line Location:
    • D0+1
Routine Call
  • %ZIS
  • Line Location:
    • D1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FH(115.2 - [#115.2] L1, C1
^FH(119.6 - [#119.6] Q1+1, W2
^FH(119.73 - [#119.73] FHSEL4+2, SES+1
^FHPT - [#115] W3, W3+1
^FHPT("AW" W2, W2+1
^TMP($J Q1!, Q1+1*, Q1+2, Q2!, Q2+1, Q2+2, L0, L1+1, SES+1, C1+1*
, KIL!, W0, W4*, W4+1*

Label References

Name Line Occurrences
C1 Q2
D0 D0+1
HDR Q2+1, L1
KIL D0, R1, D1, D1+1, D1+2
L0 Q2+1, Q2+2
L1 L0
Q1 D1+2
Q2 Q1+4, Q1+5
R1 FHSEL4+2, R1+1
SES Q1+3
W0 Q1+2
W2 W0
W3 W2+1
W4 W3+1

Naked Globals

Name Field # of Occurrence
^( Q1+1, L0, L1+1, W3+1, W4*, W4+1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % Q1
%ZIS D1!*, D1+2!
%ZIS("A" D1*
>> ADM W2+1*, W3
>> D2 Q1+1*, Q1+2*, L1+1*, W0, W4, W4+1
DIC D0+1!*
DIC(0 D0+1*
DTIME D0, R1
>> DTP Q1+3*
>> FHDFN W2+1*, W3, W3+1
>> FHLST D1+1*
>> FHP FHSEL4+2*, D0*, D0+1*, Q1+1
>> FHPGM D1+1*
>> H1 Q1+3*, HDR
IO D1+2
IO("Q" D1+1
IOF HDR
IOP D1!, D1+2!
IOSL L1
IOST HDR
>> K SES+1*, W3+1*
>> LL L0*, W4+1*
>> LN HDR+3*
>> MEAL R1*, R1+1, Q1+4, Q1+5*, Q2, L0, L1+1, HDR+1, W4
N SES!*, SES+1*
>> N1 L1+1*
>> NOW Q1*, Q1+3
P SES!
P( L1+1, SES+1*
>> P0 SES*, SES+1*
>> PD SES*, SES+1*, SES+2, HDR+2
>> PG Q1*, HDR*
>> POP D1
>> QTY W3+1*, W4, W4+1
>> S1 Q2+1, Q2+2, SES+2*, HDR, HDR+1, HDR+3
>> S2 L1+2, SES+2*
>> TOT L1*, L1+1*, L1+2
>> TP Q2+1*, Q2+2*, L0, C1*, C1+1
>> WRD Q1+1*, W0*, W2, W2+1
>> WRDN W2*
>> X D0*, R1*, Q1+1*, C1*, C1+1, HDR+1*
>> X1 L0*
>> Y D0+1, SES+1*
>> Z Q2*, L0*, L1, L1+1, C1, C1+1, W3+1*, W4, W4+1
>> Z2 W3+1*, W4, W4+1
Info |  Source |  Call 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