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

Package: Dietetics

Routine: FHMTK6


Information

FHMTK6 ; HISC/NCA/RTK/FAI - History of Diet Patterns ;10/20/04 07:12

Source Information

Source file <FHMTK6.m>

Entry Points

Name Comments DBIA/ICR reference
A0
P0
P1
R5
ADM
LIS
KIL
PSE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"NO ADMISSIONS ON FILE!"
  • Line Location: FHMTK6+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A0+0
Function Call: WRITE
  • Prompt: !!,"No Diet Pattern for this Admission!"
  • Line Location: P0+2
Function Call: READ
  • Formatting: !!
  • Prompt: "Detailed Display of which Pattern #? "
  • Variable: X
  • Timeout: DTIME
  • Line Location: P1+0
Function Call: WRITE
  • Prompt: *7," Enter Pattern # to List"
  • Line Location: P1+0
Function Call: WRITE
  • Prompt: !!,"No Pattern Saved for this Diet!"
  • Line Location: P1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: P1+2
Function Call: WRITE
  • Prompt: !!?25,"Pattern Entered By: ",$E($P($G(^VA(200,+CLERK,0)),"^",1),1,30),!
  • Line Location: P1+5
Function Call: READ
  • Formatting: !!
  • Prompt: "Do You Want to Store this Pattern As the Patient's Individual Pattern? N// "
  • Variable: Y
  • Timeout: DTIME
  • Line Location: R5+0
Function Call: WRITE
  • Prompt: *7,!," Answer YES to Store this Pattern as the patient's Diet Pattern; NO, not to store."
  • Line Location: R5+1
Function Call: WRITE
  • Prompt: !!,"Storing Patient's Diet Pattern ..."
  • Line Location: R5+2
Function Call: WRITE
  • Prompt: *7,!!,"NOT CURRENTLY AN INPATIENT!",!
  • Line Location: ADM+1
Function Call: WRITE
  • Prompt: !!,"Pat Date/Time Entered Diet Pattern",!
  • Line Location: LIS+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Press RETURN to Continue "
  • Variable: X
  • Timeout: DTIME
  • Line Location: PSE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: PSE+0
Function Call: WRITE
  • Prompt: !,"Enter a RETURN to Continue."
  • Line Location: PSE+0

FileMan Files Accessed Via FileMan Db Call

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