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

Package: Dietetics

Routine: FHORT2


Information

FHORT2 ; HISC/REL/NCA - Tubefeeding Inquiry/Cancel ;6/25/96 10:50 ;

Source Information

Source file <FHORT2.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Dietetics 6 (DTP,TR)^FH  ^FHDPA  T0^FHORD3  CUR^FHORD7  ^FHORX  CODE^FHWOR5  
Kernel 1 MSG^XQOR  
VA FileMan 1 NOW^%DTC  

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

Package Total Caller Graph
Dietetics 5 FHCTF3  FHORD1  FHORT1  FHORT10  FHORTF4  

Entry Points

Name Comments DBIA/ICR reference
EN2 ; Current Tubefeeding
DIS ; Display Tubefeeding
D1
EN3 ; Cancel Tubefeeding
C1
ASK ; Ask if wish to cancel
CAN ; Perform cancel
KIL

External References

Name Field # of Occurrence
NOW^%DTC CAN+1
DTP^FH DIS+1
TR^FH C1, ASK+2
^FHDPA EN2+1
T0^FHORD3 C1+3
CUR^FHORD7 EN3+2
^FHORX CAN+6
CODE^FHWOR5 CAN+6
MSG^XQOR CAN+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No Tubefeeding Order Exists"
  • Line Location: EN2+3
Function Call: WRITE
  • Prompt: !!,"Date Ordered: ",DTP
  • Line Location: DIS+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DIS+2
Function Call: WRITE
  • Prompt: !!,"Total KCAL: ",$P(T,"^",7),?42,"Total Quantity: ",$P(T,"^",6)," ml"
  • Line Location: DIS+4
Function Call: WRITE
  • Prompt: !,"Product: ",$P($G(^FH(118.2,TUN,0)),"^",1),", ",$S(STR=4:"Full",STR=1:"1/4",STR=2:"1/2",1:"3/4")," Str., ",QUA
  • Line Location: D1+2
Function Call: WRITE
  • Prompt: *7,!!,"Note: NO current DIET ORDER exists for this patient!"
  • Line Location: EN3+2
Function Call: WRITE
  • Prompt: *7,!!,"Note: Patient is on a WITHHOLD SERVICE Order!"
  • Line Location: EN3+3
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you wish to RESUME Tray Service? N// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: C1+0
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: C1+0
Function Call: WRITE
  • Prompt: *7,!!,"Cannot CANCEL -- Try using Cancel Withhold option!"
  • Line Location: C1+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: ASK+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FH(118.2 - [#118.2] D1+2
^FHPT - [#115] EN2+2, DIS+1, DIS+2, C1+1, CAN+2*, CAN+3*, CAN+4, CAN+5
^FHPT("ADTF" CAN+2!

Label References

Name Line Occurrences
ASK EN3+1, ASK+2
C1 C1
CAN EN3+1
D1 DIS+2
EN2 EN3+1
KIL EN3+1, EN3+2, EN3+3, C1, C1+1, C1+2, C1+3

Naked Globals

Name Field # of Occurrence
^( DIS+2, C1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% CAN+1, CAN+6!, KIL!
%H KIL!
%I KIL!
A1 KIL!
A2 C1+1*, C1+2, C1+3, KIL!
ADM EN2+2, DIS+1, DIS+2, C1+1, CAN+2, CAN+3, CAN+4, CAN+5, CAN+6, KIL!
ALL EN2+1*, KIL!
BID KIL!
C KIL!
COM CAN+1~, KIL!
D1 KIL!
D2 KIL!
D3 KIL!
DA KIL!
DFN EN2+1, KIL!
DT C1+3*
DTIME C1, ASK+1
DTP DIS+1*, KIL!
DUZ CAN+3
>> EVT CAN+6*
FHD EN3+1*, ASK+1*, ASK+2, ASK+3*, KIL!
FHDFN EN2+1, EN2+2, DIS+1, DIS+2, C1+1, CAN+2, CAN+3, CAN+4, CAN+5, KIL!
FHDR KIL!
FHDU KIL!
FHLD EN3+3, C1+3, KIL!
FHOR EN3+3, KIL!
FHORD C1+1, KIL!
FHORN CAN+1~, CAN+4*, CAN+6
FHPAR KIL!
FHPV KIL!
FHSAV CAN+5*, CAN+6!
FHWF KIL!
FILL CAN+1~, CAN+6*!
I KIL!
K9 KIL!
KK C1+1*, C1+3*, KIL!
MSG CAN+6!
>> NO DIS+1*, DIS+2*
NOW C1+1, C1+3, CAN+1*, CAN+3, KIL!
OLD C1+3*, KIL!
P2 KIL!
PID KIL!
POP KIL!
QUA D1*, D1+1*, D1+2, KIL!
>> QUAFI D1+1*
>> QUASE D1+1*
STR D1*, D1+2, KIL!
T DIS+1*, DIS+3, DIS+4, KIL!
TF EN2+1*, EN2+2*, EN2+3, DIS+1, DIS+2, EN3+1, CAN+3, CAN+4, CAN+5, CAN+6
, KIL!
TF2 DIS+2*, KIL!
TFCOM DIS+3*, DIS+5, KIL!
TUN D1*, D1+2, KIL!
TUN( DIS+2*
WARD KIL!
X C1*, C1+1, ASK+1*, ASK+2*, ASK+3, KIL!
X1 KIL!
X2 KIL!
X9 KIL!
Y DIS+2*, D1, EN3+2, KIL!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All