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

Package: Dietetics

Routine: FHORC4


Information

FHORC4 ; HISC/REL - Re-Assign Active Consults ;5/18/93 15:42

Source Information

Source file <FHORC4.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Dietetics 1 TR^FH  
VA FileMan 1 ^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: 2

Package Total Caller Graph
Dietetics 2 FHORC5  FHORC9  

Entry Points

Name Comments DBIA/ICR reference
E1
E2
E3
E4
E5
E6
KIL
EN2 ; Entry point from Edit Ward Assignment
N2

External References

Name Field # of Occurrence
^DIC E1, E2
TR^FH N2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This will re-assign all ACTIVE consults from one Clinician to another",!!
  • Line Location: FHORC4+2
Function Call: WRITE
  • Prompt: !
  • Line Location: E1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: E2+0
Function Call: WRITE
  • Prompt: !!,"No change in Clinician!"
  • Line Location: E2+1
Function Call: WRITE
  • Prompt: !!,N1," Consults were transferred"
  • Line Location: E6+0
Function Call: WRITE
  • Prompt: !!,"Since you have changed a ward assignment, do you wish to"
  • Line Location: EN2+1
Function Call: WRITE
  • Prompt: !,"re-assign all active consults from ",$P(^VA(200,OLD,0),"^",1)
  • Line Location: EN2+2
Function Call: WRITE
  • Prompt: !,"to ",$P(^VA(200,NEW,0),"^",1)," ? N// "
  • Line Location: EN2+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: N2+0
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: N2+0
Routine Call
  • DIC
  • Line Location:
    • E1
    • E2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FHPT - [#115] E5+3*
^FHPT("ADRU" E3, E4, E5, E5+2!, E5+3*
^FHPT("AW" E5+1
^VA(200 - [#200] EN2+2, EN2+3

Label References

Name Line Occurrences
E1 E1
E2 E2
E3 E4, N2+1
E4 E5
E5 E5+1, E5+3
E6 E3
EN2 N2
KIL E1, E2, E2+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADM E3*, E4*, E5, E5+2, E5+3, KIL!
>> DA N2+1
DFN KIL!, N2+1*
DIC E1!*, KIL!
DIC("A" E1*, E2*
DIC(0 E1*
DTIME N2
>> DTOUT E1, E2
FHDFN E2*, E3*, E4, E5, E5+1, E5+2, E5+3, KIL!, N2+1*
N1 E2*, E5+2*, E6, KIL!, N2+1*
NEW E2*, E2+1, E5+3, KIL!, EN2+3
OLD E1*, E2+1, E3, E4, E5, E5+2, KIL!, EN2+2
REQ E4*, E5*, E5+2, E5+3, KIL!
U E1, E2
WRD E2+1*, E5+1, KIL!, N2+1*
X E1, E2, KIL!, N2*, N2+1
Y E1, E2, 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