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
Print Page as PDF
Routine: FHORT1

Package: Dietetics

Routine: FHORT1


Information

FHORT1 ; HISC/REL/NCA - Tubefeeding ;8/19/96 14:55 ;

Source Information

Source file <FHORT1.m>

Entry Points

Name Comments DBIA/ICR reference
E0 ; Process tubefeeding
E3
E31
E4
E5
E6
KIL
AB

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"An ACTVE TUBEFEEDING ORDER exists!"
  • Line Location: E0+3
Function Call: READ
  • Formatting: !!
  • Prompt: "Do You Wish to Cancel the Existing Tubefeeding and Enter a New One? Y// "
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: E0+4
Function Call: WRITE
  • Prompt: *7,!!,"No order entered!"
  • Line Location: E0+4
Function Call: WRITE
  • Prompt: !!,"Answer YES to Cancel Existing Order and Enter a New One.",!,"Answer NO to Edit the Existing Tubefeeding Order.",!,"Enter ""^"" to Exit Completely."
  • Line Location: E0+6
Function Call: WRITE
  • Prompt: *7,!!,"Edit the Existing Tubefeeding."
  • Line Location: E0+8
Function Call: WRITE
  • Prompt: !!,*7,"There are FIVE products already!",!,"You may edit them, or delete a product before adding any."
  • Line Location: E0+9
Function Call: WRITE
  • Prompt: !!,"No Tubefeeding Products selected."
  • Line Location: E3+1
Function Call: WRITE
  • Prompt: !
  • Line Location: E3+2
Function Call: WRITE
  • Prompt: !!,"Total Kcal: ",TK,?36,"Total Quantity: ",TC
  • Line Location: E3+11
Function Call: WRITE
  • Prompt: *7,!!,"WARNING: Total amount exceeds 5000ml: ",TC," ml",!,"Please Edit the Tubefeeding and Modify."
  • Line Location: E3+12
Function Call: READ
  • Formatting: !!
  • Prompt: "Is this Correct ? Y// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: E31+0
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: E31+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: E4+0
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: E4+0
Function Call: WRITE
  • Prompt: *7,!,"Enter a comment of up to 160 characters"
  • Line Location: E4+1
Function Call: READ
  • Formatting: !
  • Prompt: "Cancel all current or future tray orders? Y// "
  • Variable: YN
  • Timeout: DTIME
  • Line Location: E5+0
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: E5+0
Function Call: READ
  • Formatting: !
  • Prompt: "Ok to Enter Order? Y// "
  • Variable: YN
  • Timeout: DTIME
  • Line Location: E6+0
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: E6+0
Function Call: WRITE
  • Prompt: *7,!!,"Tubefeeding Order TERMINATED - No order entered!"
  • Line Location: AB+0
Info |  Source |  Entry Points |  Interaction Calls