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

Package: Dietetics

Routine: FHASN6


Information

FHASN6 ; HISC/NCA - List Inpats By Nutrition Status Level ;3/1/95 10:58

Source Information

Source file <FHASN6.m>

Entry Points

Name Comments DBIA/ICR reference
EN2 ; Select Status to print
F0
L0
Q0 ; Process Screening
KIL
Q1 ; Tabulate status
Q2 ; Unclassified
Q3 ; Set Classification
Q4 ; Store Status
P0 ; Print summary
P1
P15
P2
W1 ; Get ward parameters
HD ; Check for end of page
HDR

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "Print by CLINICIAN or WARD? WARD// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: F0+0
Function Call: WRITE
  • Prompt: *7," Answer with C or W"
  • Line Location: F0+0
Function Call: WRITE
  • Prompt: !
  • Line Location: L0+0
Function Call: WRITE
  • Prompt: !!,"There are No current inpatients with ",$S(STS<5:$P($G(^FH(115.4,+STS,0)),"^",2),1:"Unclassified")," nutrition status.",!!
  • Line Location: P0+2
Function Call: WRITE
  • Prompt: !
  • Line Location: P0+3
Function Call: WRITE
  • Prompt: NAM
  • Line Location: P0+3
Function Call: WRITE
  • Prompt: !
  • Line Location: P0+4
Function Call: WRITE
  • Prompt: ?15,RM
  • Condition for execution: SRT="W"
  • Line Location: P2+3
Function Call: WRITE
  • Prompt: ?28,PAT,?53,BID,?62
  • Line Location: P2+3
Function Call: WRITE
  • Prompt: DTP,!!
  • Line Location: P2+3
Function Call: WRITE
  • Prompt: !,NOW,?72,"Page ",PG,!!?(80-$L(TIT)\2),TIT
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !!,$S(SRT="W":"Ward Room",1:"Clinician"),?28,"Patient",?53,"ID#",?62,"Date Entered",!,LN,!
  • Line Location: HDR+1
Info |  Source |  Entry Points |  Interaction Calls