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

Package: Dietetics

Routine: FHORC2


Information

FHORC2 ; HISC/REL/NCA - Clear/Query a Consult ;9/4/96 09:32 ;

Source Information

Source file <FHORC2.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Dietetics 5 (DTP,TR)^FH  EN31^FHASE  ^FHDPA  PATNAME^FHOMUTL  POST^FHORC  
VA FileMan 2 NOW^%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: 3

Package Total Caller Graph
Dietetics 3 FHCTF3  FHORC3  FHORC4  

Entry Points

Name Comments DBIA/ICR reference
EN1 ; Clear/Cancel/Reassign a Consult
Q1
Q2
Q3
Q4
Q5
Q6
Q7
Q9
Q10
EN2 ; Consult Inquiry
E1
E2
E3
E4
DISP
D1 ; Display consult
KIL

External References

Name Field # of Occurrence
NOW^%DTC Q9+1
^DIC Q1, Q10, E1, E3
DTP^FH DISP+4, D1+5, D1+8
TR^FH Q6, Q7
EN31^FHASE Q9+2
^FHDPA EN2+1
PATNAME^FHOMUTL DISP+2
POST^FHORC Q10+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: Q1+0
Function Call: READ
  • Timeout: DTIME
  • Line Location: Q6+0
Function Call: WRITE
  • Prompt: *7,!,"Enter C, X or R or Press RETURN to bypass"
  • Line Location: Q6+0
Function Call: READ
  • Formatting: !
  • Prompt: "Initial or Follow-up (I/F)? "
  • Variable: S1
  • Timeout: DTIME
  • Line Location: Q7+0
Function Call: WRITE
  • Prompt: *7," Enter I or F"
  • Line Location: Q7+0
Function Call: WRITE
  • Prompt: " ... done"
  • Line Location: Q9+1
Function Call: WRITE
  • Prompt: !
  • Line Location: Q10+0
Function Call: WRITE
  • Prompt: " ... done"
  • Line Location: Q10+4
Function Call: WRITE
  • Prompt: !,"No Admissions on File"
  • Line Location: EN2+2
Function Call: WRITE
  • Prompt: !
  • Line Location: E1+0
Function Call: WRITE
  • Prompt: !,"No Consultations for this admission"
  • Line Location: E2+0
Function Call: WRITE
  • Prompt: !
  • Line Location: E3+0
Function Call: WRITE
  • Prompt: !!,$E(PNAM,1,25),?27,"Admitted: ",DTP,?57,"Ward: ",$E(WARD,1,16)
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: !!,"Consult: ",$P($G(^FH(119.5,CON,0)),"^",1)
  • Line Location: D1+2
Function Call: WRITE
  • Prompt: !,"Status: ",$S(STAT="A":"ACTIVE",STAT="C":"COMPLETE",1:"CANCELLED")
  • Line Location: D1+4
Function Call: WRITE
  • Prompt: !,"Ordered: ",DTP,?40,"Clinician: ",$P($G(^VA(200,DIET,0)),"^",1)
  • Line Location: D1+5
Function Call: WRITE
  • Prompt: !!,"Order Entered: ",$P($G(^VA(200,D1,0)),"^",1)
  • Line Location: D1+7
Function Call: WRITE
  • Prompt: !,"Order Cleared: ",$P($G(^VA(200,D2,0)),"^",1)
  • Line Location: D1+8
Function Call: WRITE
  • Prompt: !,"Date Cleared: ",DTP
  • Line Location: D1+9
Function Call: WRITE
  • Prompt: Q
  • Condition for execution: S1'="" ?40,"Consult Type: ",$S(S1'="F":"INITIAL",1:"FOLLOW-UP")
  • Line Location: D1+9
Routine Call
  • DIC
  • Line Location:
    • Q1
    • Q10
    • E1
    • E3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FHPT - [#115] Classic Fileman Calls
^VA(200 - [#200] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM - [#405] DISP+1, DISP+3, DISP+4
^DPT - [#2] DISP+3
^FH(119.5 - [#119.5] Q6+1, D1+2
^FH(119.6 - [#119.6] DISP+3
^FHPT - [#115] Q9+1*, Q10+2*, EN2+2, EN2+3, E2, E2+1, DISP, DISP+1*, DISP+3
^FHPT("ADRU" Q3, Q4, Q5, Q9!, Q10+1!*, DISP+1!
^VA(200 - [#200] D1+5, D1+7, D1+8

Label References

Name Line Occurrences
DISP Q5+1, E4
E1 E1
E2 EN2+3, E3
E4 E2+1
EN2 EN2+2, E2, E4
KIL Q1, Q6, Q7, Q10, EN2+1, E1, E3
Q1 Q1, Q3
Q10 Q6+1, Q10
Q3 Q4
Q4 Q5
Q5 Q5+1, Q6, Q9+2, Q10+4
Q6 Q6
Q7 Q7
Q9 Q6+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% Q9+1, KIL!
%H KIL!
%I KIL!
ADM Q3*, Q4*, Q5, Q9, Q9+1, Q10+1, Q10+2, EN2+2*, E1*, E2
, E2+1, DISP, DISP+1, DISP+3, DISP+4, KIL!
ALL Q5+1*, EN2+1*, E4*, D1+6, KIL!
ASE KIL!
COM D1+1*, D1+3, KIL!
CON Q6+1, Q10+3, D1+1*, D1+2, KIL!
D1 D1+6*, D1+7, KIL!
D2 D1+6*, D1+8, KIL!
DA KIL!
DFN EN2+1, DISP+2, DISP+3, KIL!
DIC Q1!*, Q10!*, E1*!, E3*!, KIL!
DIC("A" Q1*, Q10*
DIC(0 Q1*, Q10*, E1*, E3*
DIET D1+1*, D1+5, KIL!
DTIME Q6, Q7
>> DTOUT Q1, Q10, E1, E3
DTP Q5+1, DISP+1*, DISP+4*, D1+1*, D1+5, D1+6*, D1+9, KIL!
DUZ Q9+1
FHAP KIL!
FHDFN Q2*, Q3*, Q4, Q5, Q9, Q9+1, Q10+1, Q10+2, EN2+1, EN2+2
, EN2+3, E2, E2+1, DISP, DISP+1, DISP+3, KIL!
FHDR Q4*, Q5*, Q9, Q9+1, Q10+1, Q10+2, E2*, E3*, DISP, DISP+1
, KIL!
FHPV KIL!
FHWF KIL!
FHWRD DISP+3*, KIL!
FHX1 Q1*, Q3, Q4, Q5, Q9, Q10+1, KIL!
FHX2 KIL!
FHX3 KIL!
FHX4 KIL!
LP KIL!
N1 Q2*, Q3, Q5+1*, KIL!
PNAM DISP+3*, DISP+4, KIL!
REQ Q10+3*, KIL!
S1 Q6+1*, Q7*, Q9+1, D1+6*, D1+9, KIL!
ST KIL!
STAT D1+1*, D1+4, KIL!
TYP Q6*, Q6+1, Q9+1, KIL!
U Q6, Q10, E1, E3, DISP+1
WARD DISP+3*, DISP+4, KIL!
X Q1, Q6*, Q7*, Q10, E1*, E3*, KIL!
X1 KIL!
X9 KIL!
XMKK Q10*, Q10+1, Q10+2, DISP+1*, KIL!
Y Q1, Q10, E1, E3, DISP*, DISP+1, D1+1, D1+6, KIL!
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 |  Local Variables  | All