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

Package: Dietetics

Routine: FHORC3


Information

FHORC3 ; HISC/REL - Consult Statistics ;5/17/93 14:54

Source Information

Source file <FHORC3.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Dietetics 3 (DTP,EN2,TR)^FH  PID^FHDPA  PATNAME^FHOMUTL  
Kernel 3 ^%ZIS  ^%ZISC  KILL^XUSCLEAN  
VA Fileman 1 ^%DT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Dietetics 1 FHORC10  

Entry Points

Name Comments DBIA/ICR reference
F0
F1
Q1 ; Print Consult Statistics
P1
R1
R2
R3
P4
P3
P5
P2
HEAD
KIL
R4
DT ; Get From/To Dates
D2
D1

External References

Name Field # of Occurrence
^%DT D1, D2
^%ZIS F1+2
^%ZISC F1+4
DTP^FH R4+9, P1
EN2^FH F1+3
TR^FH F0, F1
PID^FHDPA P5+2
PATNAME^FHOMUTL P5+1
KILL^XUSCLEAN KIL

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Prompt: "Break-down by Clinician? Y// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: F0+0
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: F0+0
Function Call: READ
  • Prompt: "List Individual Patient Consults? N// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: F1+0
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: F1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: F1+2
Function Call: WRITE
  • Prompt: !?59,"Number Units",!
  • Line Location: P1+0
Function Call: WRITE
  • Prompt: !,$P(X,"^",1)
  • Line Location: P1+1
Function Call: WRITE
  • Prompt: " (FU)"
  • Condition for execution: NX["F"
  • Line Location: P1+1
Function Call: WRITE
  • Prompt: ?60,$J(D(NX),5,0),$J(D(NX)*W1,13,2)
  • Line Location: P1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: P1+4
Function Call: WRITE
  • Prompt: !!,NX
  • Line Location: P2+0
Function Call: WRITE
  • Prompt: !?3,"TOTAL CONSULTS",?63,$J(I1,5,0),$J(I2,10,2)
  • Line Location: P2+2
Function Call: WRITE
  • Prompt: !?3,$P(X,"^",1)
  • Line Location: P3+0
Function Call: WRITE
  • Prompt: " (FU)"
  • Condition for execution: D2["F"
  • Line Location: P3+0
Function Call: WRITE
  • Prompt: ?63,$J(D(0),5,0),$J(D(0)*W1,10,2)
  • Line Location: P3+0
Function Call: WRITE
  • Prompt: !?6,D(0),?17,BID,?27,$P(Y,"^",1)
  • Line Location: P5+3
Function Call: WRITE
  • Prompt: !
  • Line Location: D1+0
Function Call: WRITE
  • Prompt: *7," [End before Start?] "
  • Line Location: D2+1
Function Call: WRITE
  • Prompt: !?17,"D I E T E T I C C O N S U L T U N I T S",?71,"Page ",PG
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !!?(78-$L(DTE)\2),DTE,!
  • Line Location: HEAD+1
Routine Call
  • %ZIS
  • Line Location:
    • F1+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] P5+2
^FH(119.5 - [#119.5] P1+1, P3
^FHPT - [#115] R4+1
^FHPT("ADR" R1, R2, R3, R4
^TMP($J KIL!, Q1+1!, R4+6*, R4+7*, R4+8*, R4+9*, R4+10, R4+11*, P1+3, P2+1
, P4, P5
^VA(200 - [#200] R4+6

Label References

Name Line Occurrences
D1 D1, D2+1
D2 D2
DT FHORC3+2
F0 F0
F1 F1
HEAD P1, P1+2, P2, P3
KIL FHORC3+2, F0, F1, F1+2, F1+3, F1+4
P1 R1
P2 P1+3
P3 P2+1
P4 P5
P5 P5+2, P5+3
Q1 F1+4
R1 R2
R2 R3
R3 R4
R4 R4+2, R4+3, R4+6, R4+8, R4+11

Naked Globals

Name Field # of Occurrence
^( R4+9*, P2+1, P4, P5
^(0 R4+10*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT D1*, D2*
>> %DT("A" D1*, D2*
%ZIS F1+2!*, F1+4!
%ZIS("A" F1+2*
>> ADM R2*, R3*, R4, R4+1
>> BID P5+3
D Q1+1!
D( R4+5*, P1+1
D(0 P2+1*, P3, P4*, P5+3
>> D1 R4+3*, R4+6, R4+7, R4+8, R4+9, R4+10, R4+11, P1+3*, P2+1, P4
, P5
>> D2 R4+3*, R4+4*, R4+5, R4+7, R4+8, R4+9, R4+10, R4+11, P2+1*, P3
, P4, P5
>> DFN P5+1, P5+2
>> DR R3*, R4*, R4+1
>> DTE P1*, HEAD+1
DTIME F0, F1
>> DTOUT D1, D2
>> DTP R4+9*, P1*, P3+1*, P4*, P5
>> EDT Q1+1, P1, D2*, D2+1
>> FHDFN R1+1*, R2*, R3, R4, R4+1, R4+11, P5*
>> FHLST F1+3*
>> FHPGM F1+3*
>> FHX1 F0+1*, F1, F1+1, R4+6, P1+2
>> FHX2 F0+1*, F1+1*, R4+8, P3+1
>> I1 P1+1*, P1+2, P2*, P2+2, P3*
>> I2 P1+1*, P1+2, P2*, P2+2, P3*
IO F1+4
IO("Q" F1+3
IOF HEAD
IOP F1+2!, F1+4!
IOST HEAD
>> K P1+1*, P1+3*
>> L R4+10*, R4+11, P2+1*
>> NAM R4+6*
>> NX P1+1*, P1+3*, P2
>> PG P1*, HEAD*
>> POP F1+2
>> S1 R4+4*
>> SDT Q1+1, P1, D1*, D2+1
>> ST R4+2*
U FHORC3+2, F0, F1, D1, D2
>> W1 R4+9*, R4+10, R4+11, P1+1*, P3*, P4*, P5*
>> X FHORC3+2, F0*, F0+1, F1*, F1+1, P1+1*, P3*, D1*, D2*
>> X1 Q1+1*, R1*, R2, R3, R4
>> X2 Q1+1*, R1
>> Y R4+1*, R4+2, R4+3, R4+4, R4+9, P5+2*, P5+3, D1, D2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All