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

Package: Dietetics

Routine: FHORD1


Information

FHORD1 ; HISC/REL/NCA - Diet Order ;3/28/01 10:28

Source Information

Source file <FHORD1.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
Dietetics 10 (DTP,TR)^FH  ALG^FHCLN  ^FHDPA  ^FHORD1A  (C2,CUR,POST,STR)^FHORD7  GETD^FHORD71  ^FHORDR  (ASK,CAN,DIS)^FHORT2  
^FHORX  EL^FHWOR3  
VA Fileman 2 NOW^%DTC  ^DIC  
Kernel 1 MSG^XQOR  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Dietetics 3 FHORD1  FHORD3  FHWOR2  

Entry Points

Name Comments DBIA/ICR reference
F0
F1
FUT ; List future diets
AB
R1
F6
F7
F8
F9
T1
KIL ; Final variable kill
F10
C0
PROC ; Process & file order
D0 ; Process Diet Order
F5

External References

Name Field # of Occurrence
NOW^%DTC D0+4
^DIC F1
DTP^FH T1
TR^FH C0, F7+5, R1, F8, F9
ALG^FHCLN D0+2
^FHDPA F0
^FHORD1A F0+3
C2^FHORD7 T1
CUR^FHORD7 D0+1
POST^FHORD7 PROC+1
STR^FHORD7 PROC+1
GETD^FHORD71 F6+2
^FHORDR PROC+1
ASK^FHORT2 F0+4
CAN^FHORT2 F0+4
DIS^FHORT2 F0+4
^FHORX F6+5
EL^FHWOR3 F0+3
MSG^XQOR F0+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!!," NOT CURRENTLY AN INPATIENT"
  • Line Location: F0+1
Function Call: WRITE
  • Prompt: !!,"An ACTIVE Tubefeeding Order Exists!"
  • Line Location: F0+4
Function Call: WRITE
  • Prompt: !!,"Allergies: ",$S(ALG="":"None on file",1:ALG)
  • Line Location: D0+2
Function Call: WRITE
  • Prompt: !,"Comment: ",COM
  • Line Location: D0+3
Function Call: READ
  • Timeout: DTIME
  • Line Location: C0+0
Function Call: WRITE
  • Prompt: *7
  • Line Location: C0+0
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: C0+0
Function Call: WRITE
  • Prompt: !!,$P(X,"^",$F("TCD",$E(SVC,1))-1),$S($L(SVC)=2:" or ",1:", "),$P(X,"^",$F("TCD",$E(SVC,2))-1)
  • Line Location: F7+3
Function Call: WRITE
  • Prompt: " or ",$P(X,"^",$F("TCD",$E(SVC,3))-1)
  • Condition for execution: $L(SVC)=3
  • Line Location: F7+4
Function Call: WRITE
  • Prompt: ": ",$S(N1="":$E(SVC,1),1:N1),"// "
  • Line Location: F7+4
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: F7+5
Function Call: WRITE
  • Prompt: *7,!,"Enter one of the given type of services."
  • Line Location: F7+6
Function Call: READ
  • Prompt: "Retain Current Diet? N// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: Y
  • Line Location: R1+0
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: R1+0
Function Call: READ
  • Prompt: "Order a REGULAR Diet? (Y/N) "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: Y
  • Line Location: F8+0
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: F8+0
Function Call: WRITE
  • Prompt: !
  • Line Location: F1+0
Function Call: WRITE
  • Prompt: *7,!!,"This conflicts with ",$P(DI(PREC),"^",2),!
  • Line Location: F1+1
Function Call: WRITE
  • Prompt: *7,!!,"You have now selected the maximum of 5 Diet Modifications!"
  • Line Location: F1+2
Function Call: WRITE
  • Prompt: !!,"You have selected the following Diet:",!
  • Line Location: F5+0
Function Call: WRITE
  • Prompt: !?5,$P(DI(D0),U,2)
  • Line Location: F5+1
Function Call: READ
  • Prompt: "Is this Correct? Y// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: Y
  • Line Location: F9+0
Function Call: WRITE
  • Prompt: *7,!," Answer YES to accept diet list; NO to select diets again"
  • Line Location: F9+1
Function Call: WRITE
  • Prompt: !!,"Select new diets ..."
  • Line Location: F9+2
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: F6+0
Function Call: WRITE
  • Prompt: *7,!,"Enter any special instructions of up to 80 characters!"
  • Line Location: F6+1
Function Call: WRITE
  • Prompt: !!," ** INACTIVE DIET PATTERN! **"
  • Line Location: F6+4
Function Call: WRITE
  • Prompt: *7,!!,"Diet Order for this Patient is UNCHANGED -- No order entered!",!
  • Line Location: AB+0
Function Call: WRITE
  • Prompt: !!,"Future Diet Orders:",!
  • Line Location: T1+1
Function Call: WRITE
  • Prompt: !?5,DTP,?25,Y
  • Line Location: T1+2
Routine Call
  • DIC
  • Line Location:
    • F1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FH(111 - [#111] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FH(111 - [#111] F8+1
^FH(111.1 - [#111.1] F6+5
^FH(119.6 - [#119.6] F7
^FH(119.9 - [#119.9] F6+5
^FHPT - [#115] F0+4, D0+3, F7, F7+2, F7+9, FUT+1, T1

Label References

Name Line Occurrences
AB C0, F7+5, R1, F8, F1, F5, F9, F6+2
C0 C0
D0 F0+2
F0 F0+5
F1 F8, F8+1, F1, F1+1, F1+2, F9+2
F10 R1+2
F5 F8+1, F1, F1+2
F6 F9, F6+1
F7 F7+6
F8 F7+1, F7+8, F7+9, R1+1, F8
F9 F9+1
FUT D0+4
KIL F0, F0+1, F0+2
PROC F0+2
R1 R1
T1 FUT+1

Naked Globals

Name Field # of Occurrence
^( FUT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% D0+4!, KIL+1!
%DT KIL+1!
%H D0+4!, KIL+1!
%I D0+4!, KIL+1!
%T KIL+1!
A1 KIL+1!
A2 KIL+1!
ADM F0+1, F0+4, D0+3, F7, F7+2, F7+9, KIL+1!, FUT+1, T1
>> ALG D0+2
ALL F0*, KIL+1!
C KIL+1!
COM D0+3*, F6*, F6+1, KIL+1!
CORD KIL+1!, FUT+1*, FUT+2
CT C0, KIL+1!, FUT+1*, T1+1, T1+2*
D0 F5+1*, F6+3*, KIL+1!
D1 R1+2*, F6+2, KIL+1!
D2 R1+1*, KIL+1!
D3 R1+1*, F5+1*, KIL+1!
D4 R1+1*, F5+1*, PROC+1, KIL+1!
DA KIL+1!
DFN F0, F0+2, AB*, KIL+1!
DI F8!, F9+2!, KIL+1!
DI( F8+1*, F1+1, F1+2*, F5+1, F6+3
DIC F1!*, KIL+1!
DIC("S" F1*
DIC(0 F1*
>> DTE F0+3*
DTIME C0, F7+5, R1, F8, F9
>> DTOUT F1
DTP KIL+1!, T1*, T1+2
>> EDT F0+3*
>> EVT F6+5*
FHD F0+4*, KIL+1!
FHDAY KIL+1!
FHDFN F0, F0+2, F0+4, D0+3, F7, F7+2, F7+9, AB*, KIL+1!, FUT+1
, T1
FHDU KIL+1!
>> FHEVTX F6+3*, F6+5
FHK KIL+2!
FHK1 KIL+2!
FHLD F10*, KIL+1!
FHMSG KIL+2!
FHNEW KIL+2!
FHOE KIL+2!
FHOLD KIL+2!
FHOR R1+1*, F6+3*, F6+5, KIL+1!
FHORD D0+3, F7+8, F7+9, KIL+1!, FUT+1*, FUT+2*, T1
FHPAR KIL+1!
FHPV KIL+1!
FHSAV KIL+1!
FHSAV1 KIL+1!
FHWF F0+3, F8, F9, F10, KIL+1!
FLG KIL+1!
I KIL+1!
J KIL+1!
K KIL+1!
K1 KIL+2!
K2 KIL+2!
KK KIL+1!, FUT+1*, T1
KK1 KIL+2!
LC KIL+2!
M KIL+2!
MSG F0+3!
N1 F7+2*, F7+4, F7+5, F7+8, F7+9*, R1+1, F8*, F8+1*, F1+2*, F5
, F9+2*, F6+3*, KIL+1!
NOW D0+4*, R1+2, KIL+1!, FUT+1
PREC F8+1*, F1+1*, F1+2, KIL+2!
QUA KIL+2!
>> SDT F0+3*
>> SERV F0+3*
STR KIL+2!
SVC F7*, F7+1*, F7+2, F7+3, F7+4, F7+5, F7+6, KIL+2!
TF F0+4*, KIL+2!
TUN KIL+2!
TYP F7+1*, F7+7*, F7+8, KIL+2!
U F8+1, F1, F1+1, F5+1, F6+3
WARD KIL+2!
>> WKD F0+3*
WRD F7*, KIL+2!
X C0*, F7+3*, F7+4, F7+5*, F7+6, F7+7, R1*, F8*, F1, F9*
, KIL+2!
X1 KIL+2!
X2 KIL+2!
XMKK KIL+2!
Y D0+1, R1*, R1+1, F8*, F8+1, F1, F1+2, F9*, F9+1, F9+2
, KIL+2!, T1+2
Y(0 F8+1*, F1+1, F1+2
Z KIL+2!
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 |  Naked Globals |  Local Variables |  All