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

Package: Dietetics

Routine: FHASN1


Information

FHASN1 ; HISC/REL - Print Status Summary ;5/14/93 10:12

Source Information

Source file <FHASN1.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  KILL^XUSCLEAN  
Dietetics 1 (DTP,EN2,TR)^FH  
VA Fileman 1 NOW^%DTC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Dietetics 1 FHASNR  

Entry Points

Name Comments DBIA/ICR reference
F0
Q0 ; Process Screening
Q1 ; Tabulate status
Q2 ; Unclassified
W1 ; Get ward parameters
P0 ; Print summary
P2
Q3 ; Set Classification
P1
L0
KIL
HDR

External References

Name Field # of Occurrence
NOW^%DTC P0+1
^%ZIS L0
^%ZISC L0+2
DTP^FH P0+1
EN2^FH L0+1
TR^FH F0
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: !
  • Line Location: P0+4
Function Call: WRITE
  • Prompt: !?7,$P(NAM,"~",1),?37
  • Line Location: P2+0
Function Call: WRITE
  • Prompt: $J(X,7)
  • Line Location: P2+0
Function Call: WRITE
  • Prompt: !?16,"N U T R I T I O N S T A T U S S U M M A R Y",?73,"Page ",PG
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !!?(80-$L(DTP)\2),DTP
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!?7,$S(SRT="C":"CLINICIAN",1:"WARD"),?43,"I II III IV UNC",!?7,LN,!
  • Line Location: HDR+2
Routine Call
  • %ZIS
  • Line Location:
    • L0

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
F0 F0
HDR P0+1, P2
KIL F0, L0, L0+1, L0+2
P0 Q0+3
P1 P0+2
P2 P0+3
Q0 L0+2
Q1 Q0+2
Q2 Q1+1, Q1+2
Q3 Q1+3
W1 Q0+2

Naked Globals

Name Field # of Occurrence
^( Q1+1, P0+3
^(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+2*, Q1+2
>> D1 Q1+3*, Q2+1*, Q3+1, P0+3*, P2
DTIME F0
>> DTP P0+1*, HDR+1
>> FHDFN Q0+2*, Q1+1, Q1+2
>> FHLST L0+1*
>> FHPGM L0+1*
IO L0+2
IO("Q" L0+1
IOF HDR
IOP L0!, L0+2!
IOSL P2
IOST HDR
>> K P2*
>> LN P0+1*, HDR+2
>> NAM P0+3*, P1*, P1+1*, P1+2, P2
>> NOW P0+1*
>> PG P0+1*, HDR*
>> POP L0
S Q0+1!
S( Q3+1*, P0+2, P1+2
>> S1 Q1+3*, Q2+1*, Q3+1
>> SRT F0+1*, Q3+1, P1, HDR+2
>> W1 Q0+2*, Q3+1, P0+2*, P0+3*, P1, P1+1, P1+2, W1+1
>> WD Q2+1, W1+1*
>> X F0*, F0+1, Q3+1*, P2*
>> X5 Q1+1*, Q1+2, Q1+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All