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 |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FHPT - [#115] Classic Fileman Calls
^VA(200 - [#200] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call