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

Package: Dietetics

Routine: FHORD1


Information

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

Source Information

Source file <FHORD1.m>

Entry Points

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

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
  • Variable: X
  • Timeout: DTIME
  • Line Location: F7+5
Function Call: WRITE
  • Prompt: *7,!,"Enter one of the given type of services."
  • Line Location: F7+6
Function Call: READ
  • Formatting: !!
  • Prompt: "Retain Current Diet? N// "
  • Variable: Y
  • Timeout: DTIME
  • Line Location: R1+0
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: R1+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Order a REGULAR Diet? (Y/N) "
  • Variable: Y
  • Timeout: DTIME
  • 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
  • Formatting: !!
  • Prompt: "Is this Correct? Y// "
  • Variable: Y
  • Timeout: DTIME
  • 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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FH(111 - [#111] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call