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

Package: Dietetics

Routine: FHORD6


Information

FHORD6 ; HISC/REL/NCA/JH/RTK - Diet Inquiry ;5/3/01 11:04

Source Information

Source file <FHORD6.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Dietetics 7 (DTP,EN2)^FH  ALG^FHCLN  ^FHOMDPA  ^FHOMPP  MONUM^FHOMUTL  ^FHORD61  CUR^FHORD7  
Kernel 2 ^%ZIS  ^%ZISC  
VA Fileman 1 NOW^%DTC  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Dietetics 2 FHORD61  FHORD9  

Entry Points

Name Comments DBIA/ICR reference
F0 ; Display Diet
F1
F2
F3
W1
SP1
SP
A0
PAUSE ; Pause For Scroll
LP
W0
KIL ; Final variable kill
HDR ; Print Header

External References

Name Field # of Occurrence
NOW^%DTC F0+1
^%ZIS FHORD6+6
^%ZISC FHORD6+8
DTP^FH F1+3, F1+7, F2+2
EN2^FH FHORD6+7
ALG^FHCLN F0+6
^FHOMDPA FHORD6+2
^FHOMPP FHORD6+4, FHORD6+5
MONUM^FHOMUTL FHORD6+3
^FHORD61 F3
CUR^FHORD7 F1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: FHORD6+6
Function Call: WRITE
  • Prompt: !!,"Allergies: ",ALG
  • Line Location: F0+6
Function Call: WRITE
  • Prompt: !!,"No Food Preferences on file",!
  • Line Location: F0+8
Function Call: WRITE
  • Prompt: !!,"Food Preferences Currently on file",!!?23,"Likes",?57,"Dislikes",!
  • Line Location: F0+9
Function Call: WRITE
  • Prompt: !
  • Line Location: F0+10
Function Call: WRITE
  • Prompt: $P(M,"~",2)
  • Line Location: F0+10
Function Call: WRITE
  • Prompt: !
  • Line Location: F0+13
Function Call: WRITE
  • Prompt: !!,"Isolation/Precaution Type is ",$P($G(^FH(119.4,X,0)),"^",1)
  • Line Location: A0+1
Function Call: WRITE
  • Prompt: !,"Service: ",$S(TYP="T":"Tray",TYP="D":"Dining Room",1:"Cafeteria")
  • Line Location: F1+2
Function Call: WRITE
  • Prompt: !,"Expires: ",DTP
  • Line Location: F1+3
Function Call: WRITE
  • Prompt: !!,"Tubefeed Ordered: ",DTP
  • Line Location: F1+7
Function Call: WRITE
  • Prompt: !,"Total Quantity: ",TQU," ml",?42,"Total KCAL: ",CAL
  • Line Location: F1+9
Function Call: WRITE
  • Prompt: !!,"Supplemental Feeding: ",$S('L:"No Order",1:$P(^FH(118.1,L,0),"^",1)) G:'NO
  • Line Location: F2+1
Function Call: WRITE
  • Prompt: ?50,"Reviewed: ",DTP
  • Line Location: F2+2
Function Call: WRITE
  • Prompt: !?5,$P("10am; 2pm; 8pm",";",K1),":",?13,N(K1)
  • Line Location: F2+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: LP+2
Function Call: WRITE
  • Prompt: ?12
  • Line Location: W0+0
Function Call: WRITE
  • Prompt: ?46
  • Line Location: W0+1
Function Call: WRITE
  • Prompt: !
  • Line Location: W0+2
Function Call: WRITE
  • Prompt: X
  • Line Location: W1+0
Function Call: WRITE
  • Prompt: $E(X,1,KK-2)
  • Line Location: W1+2
Function Call: READ
  • Prompt: "Press return to continue "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: YN
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: !,"Enter a RETURN to Continue."
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: !,PID,?16,$P(Y(0),"^",1),?48,SEX," Age ",AGE,?(79-$L(RM)),RM
  • Line Location: HDR+3
Routine Call
  • %ZIS
  • Line Location:
    • FHORD6+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] FHORD6+5, F0+3, F0+4
^FH(115.2 - [#115.2] SP
^FH(118 - [#118] F2+3
^FH(118.1 - [#118.1] F2+1
^FH(118.2 - [#118.2] LP+2
^FH(119.4 - [#119.4] A0+1
^FH(119.6 - [#119.6] F0+2
^FHPT - [#115] F0+2, F0+7, A0, F1+1, F1+5, F1+8, F2

Label References

Name Line Occurrences
A0 F0+8
F0 FHORD6+8
F1 A0
F2 F1+4
F3 F2+1
FHORD6 FHORD6+8
HDR F0+5, A0+1, F1, F2, F2+4, W0+2
KIL FHORD6+2, FHORD6+6, FHORD6+7, F0+14, A0+1, F1, F2, F2+4
LP F1+8
PAUSE PAUSE+1, HDR+1
SP F0+7
SP1 SP+2
W0 F0+11, W0+2
W1 W0, W0+1

Naked Globals

Name Field # of Occurrence
^( F0+7, F1+8
^(1 F1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% F0+1, KIL+1!
%H KIL+1!
%I KIL+1!
%T KIL+1!
%ZIS FHORD6+6*!, FHORD6+8!, KIL+1!
%ZIS("B" FHORD6+6*
A1 KIL+1!
ADM F0+2, A0, F1+1, F1+5, F1+8, F2, KIL+1!
AGE F0+4*, HDR+3, KIL+1!
ALG F0+6, KIL+1!
ALL KIL+1!
BAG KIL+1!
BID KIL+2!
C KIL+1!
CAL F1+6*, F1+9, KIL+1!
COM F1+1*, F1+6*, F1+10, KIL+1!
CON KIL+1!
CT KIL+1!
D3 KIL+1!
DA KIL+1!
DAS SP*, SP1, SP1+1, KIL+1!
DFN FHORD6+4, FHORD6+5, F0+3, F0+4, KIL+1!
DOB F0+3*, F0+4, KIL+1!
DT F0+1*
DTIME PAUSE+1
DTP F1+3*, F1+6*, F1+7, F2+2*, KIL+1!
>> FHALL FHORD6+2*
FHDFN FHORD6+2, FHORD6+4, FHORD6+5, F0+2, F0+7, A0, F1+1, F1+5, F1+8, F2
, KIL+1!
FHDU KIL+1!
FHLD KIL+1!
>> FHLST FHORD6+7*
>> FHNUM FHORD6+3
FHOR KIL+1!
FHORD F1+1, KIL+1!
>> FHPGM FHORD6+7*
FHPV KIL+1!
FHWF KIL+1!
I KIL+1!
IO FHORD6+8
IO("Q" FHORD6+7
IOF HDR+2
IOP FHORD6+6!, FHORD6+8!, KIL+1!
IOSL A0+1, F1, F2, F2+4, W0+2
IOST PAUSE+1, HDR+2
K F0+7*, F2+3*, SP1+1, KIL+1!
K1 F2+3*, F2+4*, KIL+1!
K2 F2+3*, KIL+1!
KK SP*, SP+1, SP1, SP1+1, W1+1*, W1+2, KIL+1!
L F0+13!, F2+1*, F2+3*, KIL+1!
L1 SP*, SP+1*, SP1, SP1+1, KIL+1!
LST KIL+1!
M F0+7*, F0+10*, F0+11, F0+13!, SP+2, SP+3, SP+4
M1 F0+13!, SP*, SP+2*, SP+3*, SP+4*, SP1, SP1+1
M2 F0+13!
MEAL KIL+1!
>> MM F0+10*, F0+11
N F0+7!, F0+13!, KIL+1!
N( F0+10, F0+11, F2+3*, F2+4, SP1*, SP1+1*
N("" F0+8
NO F2*, F2+1, KIL+1!
NOW F0+1*, F0+4, KIL+1!
>> P1 F0+7*, F0+11*, SP1, SP1+1*
>> P2 F0+11*
>> PG F0+5*, PAUSE+1, HDR+2*
PID HDR+3, KIL+2!
POP FHORD6+6, KIL+2!
Q F2+3*, SP+1*, KIL+2!
QT F0+1*, F0+5*, F0+10, F0+11, F0+14, A0+1, F1, F2, F2+4, W0+2
, PAUSE+1*, HDR+1, KIL+2!
QTY KIL+2!
QUA LP*, LP+1*, LP+2, KIL+2!
>> QUAFI LP+1*
>> QUASE LP+1*
RM F0+4*, HDR+3, KIL+2!
SEX F0+3*, HDR+3, KIL+2!
STR LP*, LP+2, KIL+2!
TF F1+4*, F1+5, F1+8, KIL+2!
TF2 F1+8*, KIL+2!
TIM KIL+2!
TQU F1+6*, F1+9, KIL+2!
TUN LP*, LP+2, KIL+2!
TYP F1+2*, KIL+2!
U F2+3
WARD F0+2*, F0+4, KIL+2!
X F0+4*, F0+7*, A0*, A0+1, F1+2, SP, SP+1, W0*, W0+1*, W1*
, W1+1, W1+2*, KIL+2!
X(0 A0*, F1+3, F1+4, F2
X1 F0+11*, W0*, W0+2, KIL+2!
X2 F0+11*, W0+1*, W0+2, KIL+2!
XY F1+8*, LP, KIL+2!
Y F1, F1+1, F1+5*, F1+6, F2*, F2+1, F2+2, F2+3, KIL+2!
Y(0 F0+3*, HDR+3
YN PAUSE+1*, KIL+2!
Z F2+3*, SP*, KIL+2!
Z1 SP+3*, SP+4*, KIL+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All