Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Dietetics 3 (DTP,EN2,TR)^FH  PID^FHDPA  PATNAME^FHOMUTL  
Kernel 3 ^%ZIS  ^%ZISC  KILL^XUSCLEAN  
VA Fileman 2 NOW^%DTC  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Dietetics 1 FHASNR4  

Entry Points

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

External References

Name Field # of Occurrence
NOW^%DTC P0+1
^%ZIS L0
^%ZISC L0+2
^DIR EN2+1, HD+1
DTP^FH P0+1, P2+3
EN2^FH L0+1
TR^FH F0
PID^FHDPA Q4+3
PATNAME^FHOMUTL Q4+2
KILL^XUSCLEAN KIL

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Prompt: "Print by CLINICIAN or WARD? WARD// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • 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
Routine Call
  • DIR
  • Line Location:
    • EN2+1
    • HD+1
Routine Call
  • %ZIS
  • Line Location:
    • L0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(405.4 - [#405.4] Q4+3
^DPT - [#2] Q4+3
^FH(115.4 - [#115.4] Q0+3, P0+2
^FH(119.6 - [#119.6] Q0+4, P1, W1+1
^FHPT - [#115] Q1+1, Q1+2, Q4+3, P1+2
^FHPT("AW" Q0+4
^TMP($J Q0+1!, KIL!, P0+2, P0+3, P1+2*, P2
^VA(200 - [#200] P1+1

Label References

Name Line Occurrences
F0 F0
FHASN6 L0+2
HD P2+1
HDR P0+1
KIL EN2+1, F0, L0, L0+1
P0 Q0+5
P1 Q4+4
P2 P0+3, P2+4
Q0 L0+2
Q1 Q0+4
Q2 Q1+1, Q1+2
Q3 Q1+3
W1 Q0+4

Naked Globals

Name Field # of Occurrence
^( Q1+1, P2
^(0 Q1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % P0+1
%ZIS L0*!, L0+2!
%ZIS("B" L0*
>> ADM Q0+4*, Q1+2, Q4+3, P1+2
>> ANS Q0+2*, P0+3, P2+1, HD+1*
>> BID P1+2, P2+2*, P2+3
>> D1 Q1+3*, Q2+1*, Q3+1, P2*, P2+2
>> DFN Q4+2, Q4+3
DIR EN2+1!, HD+1!
DIR("A" EN2+1*
DIR(0 EN2+1*, HD+1*
>> DIROUT EN2+1
>> DIRUT EN2+1
>> DTE Q1+1*, Q1+3*, P1+2*
DTIME F0
>> DTP P0+1*, P2+3*
>> FHDFN Q0+4*, Q1+1, Q1+2, Q4+3, P1+2
>> FHLST L0+1*
>> FHPGM L0+1*
IO L0+2
IO("Q" L0+1
IOF HDR
IOP L0!, L0+2!
IOSL P2+1
IOST HD+1, HDR
>> LN P0+1*, HDR+1
>> NAM P0+3*, P1*, P1+1*, P1+2, P2
>> NOW P0+1*, HDR
>> PAT Q4+3*, P0+3*, P1+2, P2*, P2+3
>> PG P0+1*, HDR*
>> POP L0
>> RM Q4+3*, P1+2, P2+2*, P2+3
>> S1 Q1+3*, Q2+1*, Q4+1
>> SRT F0+1*, Q3+1, P1, P2+3, HDR+1
>> STS EN2+1*, Q0+3, Q4+1, P0+2
>> TIT Q0+2*, Q0+3*, HDR
>> W1 Q0+4*, Q3+1, P0+3*, W1+1
>> W2 P0+3*, P2, P2+3
>> WD Q2+1, W1+1*
>> X F0*, F0+1
>> X2 Q4+3*
>> X3 Q4+3*
>> X5 Q1+1*, Q1+2, Q1+3
>> XX Q3+1*, P1, P1+1
>> Y EN2+1, HD+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All