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

Package: Dietetics

Routine: FHASN5


Information

FHASN5 ; HISC/NCA - Print Patient's Nutrition Status History ;12/13/93 12:58

Source Information

Source file <FHASN5.m>

Entry Points

Name Comments DBIA/ICR reference
EN2 ; Select Patient to print
A0
A1
D1
D2
P0
Q0
KIL
LP ; Print History list
HD ; Check for end of page
HDR ; Heading for the Nutrition Status History

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!!?5,"Patient has expired."
  • Line Location: EN2+2
Function Call: WRITE
  • Prompt: *7,!!?5,"No status on file for this patient."
  • Line Location: EN2+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A0+0
Function Call: WRITE
  • Prompt: !!,"Select ADMISSION",$S(WARD'="":" (or C for CURRENT)",1:""),": " R X:DTIME G:'$T!(X["^")
  • Line Location: A0+0
Function Call: WRITE
  • Prompt: !
  • Line Location: D1+0
Function Call: WRITE
  • Prompt: *7," [Must Start before Today!] "
  • Line Location: D1+1
Function Call: WRITE
  • Prompt: *7," [Must not be before Admission!]"
  • Line Location: D1+2
Function Call: WRITE
  • Prompt: *7," [Greater than Today?] "
  • Line Location: D2+1
Function Call: WRITE
  • Prompt: *7," [Must not be before Starting Date!] "
  • Line Location: D2+2
Function Call: WRITE
  • Prompt: *7,!?24," [Must not exceed the length of stay of this admission!] "
  • Line Location: D2+3
Function Call: WRITE
  • Prompt: !
  • Line Location: P0+0
Function Call: WRITE
  • Prompt: *7,!,"No Status on file on this Admission."
  • Line Location: Q0+4
Function Call: WRITE
  • Prompt: !?2,TIT
  • Line Location: LP+2
Function Call: WRITE
  • Prompt: ?35
  • Line Location: LP+3
Function Call: WRITE
  • Prompt: DTP
  • Line Location: LP+3
Function Call: WRITE
  • Prompt: ?55,$E($P($G(^VA(200,+Y,0)),"^",1),1,25)
  • Line Location: LP+4
Function Call: WRITE
  • Prompt: ?17,NAM
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?53,DTP,?72,"Page ",PG,!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,LN,!?15,"N U T R I T I O N S T A T U S H I S T O R Y",!!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?2,"Status Level",?35,"Date Entered",?55,"Clinician Who Entered",!
  • Line Location: HDR+5

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