Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "Break-down by Clinician? Y// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: F0+0
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: F0+0
Function Call: READ
  • Formatting: !!
  • Prompt: "List Individual Patient Consults? N// "
  • Variable: X
  • Timeout: DTIME
  • 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
Info |  Source |  Entry Points |  Interaction Calls