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

Package: Dietetics

Routine: FHMTK3


Information

FHMTK3 ; HISC/NCA - Enter/Edit Patient Diet Pattern ;2/21/96 07:59

Source Information

Source file <FHMTK3.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; Enter/Edit patient Diet Pattern
R1
R2
R2A
R3
R4
R5
KIL
RET ; Returns a selected Pattern

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Production Diet: ",$P($G(^FH(116.2,+PD,0)),"^",1)
  • Line Location: EN1+9
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+10
Function Call: READ
  • Timeout: DTIME
  • Line Location: R1+0
Function Call: WRITE
  • Prompt: *7,!,"Select B for Breakfast, N for Noon, or E for Evening"
  • Line Location: R1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: R2+0
Function Call: WRITE
  • Prompt: !!,$P($G(^FH(114.1,RC,0)),"^",1)," added",!
  • Line Location: R2+6
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: R2A+0
Function Call: WRITE
  • Prompt: " ...Done"
  • Line Location: R2A+1
Function Call: WRITE
  • Prompt: *7,!,"Press Return to take Default or ""@"" to Delete"
  • Line Location: R2A+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: R3+0
Function Call: WRITE
  • Prompt: *7," Enter a number between 0-9.99."
  • Line Location: R3+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter/Edit More? Y// "
  • Variable: Y
  • Timeout: DTIME
  • Line Location: R4+0
Function Call: WRITE
  • Prompt: *7,!," Answer YES to continue modifying Diet Pattern; NO to continue and store patient's pattern"
  • Line Location: R4+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Is this Correct to store? Y// "
  • Variable: Y
  • Timeout: DTIME
  • Line Location: R5+0
Function Call: WRITE
  • Prompt: *7,!," Answer YES to accept patient's Diet Pattern; NO to modify again"
  • Line Location: R5+1
Function Call: WRITE
  • Prompt: !!,"Storing Patient's Diet Pattern ..."
  • Line Location: R5+2
Function Call: WRITE
  • Prompt: !
  • Line Location: RET+1

FileMan Files Accessed Via FileMan Db Call

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