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

Package: Dietetics

Routine: FHASN4


Information

FHASN4 ; HISC/NCA - Nutrition Status Matrix (cont.) ;8/3/94 11:11

Source Information

Source file <FHASN4.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Dietetics 4 DTP^FH  (HD,HDR)^FHASN3  PID^FHDPA  PATNAME^FHOMUTL  
VA Fileman 1 (,C,NOW)^%DTC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Dietetics 1 FHASN3  

Entry Points

Name Comments DBIA/ICR reference
F0
Q0 ; Process Screening
Q1 ; Process screening inpatients for status comparison
Q2 ; Unclassified New
Q5 ; Set Classification for Old and New
Q4 ; Unclassified Old
P0 ; Print Summary
P2
CNT ; Count unchanged status
P1
LAST ; Last Total Line
Q3 ; Tabulate status for old

External References

Name Field # of Occurrence
^%DTC Q1+4
C^%DTC Q3+4
NOW^%DTC P0+1
DTP^FH P0+1, P0+2
HD^FHASN3 P0+7, P2
HDR^FHASN3 P0+7
PID^FHDPA Q5+8
PATNAME^FHOMUTL Q5+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: P0+9
Function Call: WRITE
  • Prompt: !,$S(STS=1:"I",STS=2:"II",STS=3:"III",STS=4:"IV",1:"UNC")
  • Line Location: P2+1
Function Call: WRITE
  • Prompt: ?24,$J($P(TOT,"^",STS),7)
  • Line Location: P2+2
Function Call: WRITE
  • Prompt: ?37
  • Line Location: P2+3
Function Call: WRITE
  • Prompt: $J(X,7)
  • Line Location: P2+3
Function Call: WRITE
  • Prompt: $J(X,7)
  • Line Location: P2+4
Function Call: WRITE
  • Prompt: !?1,$P(Y,"^",2),?10,$E($P(Y,"^",1),1,26),?37
  • Line Location: P2+5
Function Call: WRITE
  • Prompt: $J(AST,7)
  • Line Location: P2+6
Function Call: WRITE
  • Prompt: !,LN,!,"Total",?24,$J(SUM,7),?37
  • Line Location: LAST+1
Function Call: WRITE
  • Prompt: $J($P(TOT1,"^",L),7)
  • Line Location: LAST+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM - [#405] Q1+2
^DPT - [#2] Q5+8
^FH(119.6 - [#119.6] Q0+2, P0+5, P1
^FHPT - [#115] Q1+1, Q1+10, Q3+2, Q3+3, Q3+5
^FHPT("AW" F0+1
^TMP($J Q0+1!, Q5+6*, Q5+9*, Q5+10*, P0+5*, P0+7, P0+8!, P1+1*, P1+2*, P2+2
, P2+5

Label References

Name Line Occurrences
CNT Q1+11
F0 Q0+2
LAST P0+7
P0 Q0+3
P1 P0+4
P2 P0+7
Q1 F0+1
Q2 Q1+10, Q1+11
Q3 Q1+13
Q4 Q3+2, Q3+3, Q3+5
Q5 CNT+2, Q3+7

Naked Globals

Name Field # of Occurrence
^( Q1+10, Q3+5, P0+7, P2+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % P0+1
>> %Y Q1+4
>> ADM F0+1*, Q1+1, Q1+2
>> ADTE Q1+1*, Q1+3, Q1+4, Q1+5, Q1+11, Q3+5
>> ANS Q0+1*, P0+7, P2
>> AST P2+6*
>> BID Q5+9
>> CT Q0+1*, Q5+5*, Q5+6, Q5+9, Q5+10, P1+2*, P2+5*
CTN Q0+1!, P0+8!
CTN( Q5+3*, P0+5
CTR Q0+1!, P0+8!
CTR( Q5+1*, P0+5
>> D1 P0+7*, P2+3
>> DFN Q5+7, Q5+8
>> DSCH Q1+2*, Q1+7
DT Q1+3
>> DTE P0+2*, P0+3*
>> DTP P0+1*, P0+2*
>> EDT Q1+3*, Q1+4, Q1+7, Q1+9, Q3+2, P0+2
>> FHDFN F0+1*, Q1+1, Q1+10, Q3+2, Q3+3, Q3+5
>> FHX1 Q1+3, Q1+5, Q1+6, P0+2, P0+3
>> HD P0+1*, P0+3
IOSL P2
>> K P2+3*
>> L P2+6*, LAST+1*
>> L1 Q3+1*, Q3+2*, Q3+3*, Q3+5*
>> LL P1+2*, P2+5*
>> LN P0+1*, LAST+1
N P0+6*, P0+7*, P0+8!
>> NAM P0+5*, P0+6*, P0+7*, P1*, P1+1, P1+2, P2+2, P2+5
>> NEW F0+1*, Q1+12*, CNT+1*, Q2+1*, Q5+1, Q5+2, Q5+4, Q5+6, Q5+9, Q5+10
>> NOM Q1+5, Q1+6, P0+3
>> NOW P0+1*
>> OLD F0+1*, CNT+1*, Q3+6*, Q4+1*, Q5+1, Q5+2, Q5+3, Q5+4, Q5+6, Q5+9
, Q5+10
>> PG P0+1*
S Q0+1!
S( Q5+2*, P0+4, P1+1
>> SDT Q1+3*, Q1+5, Q1+7, Q1+11, Q3+1, Q3+4, Q3+5, P0+2
>> ST P0+4*, P0+7*, P1+1, P1+2
>> STS P0+6*, P0+7*, P2+1, P2+2, P2+4, P2+5
SUM P0+7*, P0+8!, P2+2*, LAST+1
>> THR Q3+4*, Q3+5
TOT P0+7*, P0+8!, P2+2*, P2+4, LAST+2
TOT1 P0+7*, P0+8!, P2+3*, LAST+1
>> W1 Q0+2*, F0, F0+1, Q5+1, Q5+2, Q5+3, Q5+6, Q5+9, Q5+10, P0+4*
, P0+5*, P0+7*, P1, P1+1, P1+2
>> WRDS F0
X Q1+5, Q1+6, Q3+4, P0+8!, P2+3*, P2+4*
>> X1 Q1+4*, Q3+4*
>> X2 Q1+4*, Q3+4*
>> X4 Q1+9*, Q1+10*
>> X5 Q1+10*, Q1+11, Q1+12, CNT+1
>> X6 Q3+3*, Q3+5*, Q3+6
>> Y Q5+8*, Q5+9, P2+5*, P2+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All