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

Package: Dietetics

Routine: FHASP


Information

FHASP ; HISC/REL - Nutrition Profile ;11/16/94 16:55

Source Information

Source file <FHASP.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
Dietetics 8 (DTP,EN2,SITE)^FH  (DRUG,LAB)^FHASM4  ^FHASP1  ^FHASP2  ALG^FHCLN  LNE^FHDMP  ^FHDPA  MONUM^FHOMUTL  
Kernel 3 ^%ZIS  ^%ZISC  KILL^XUSCLEAN  
VA Fileman 2 ^%DT  NOW^%DTC  
General Medical Record - Vitals 1 EN6^GMRVUTL  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Dietetics 2 FHASP1  FHASXR1  

Entry Points

Name Comments DBIA/ICR reference
Q1
Q0 ; Print Profile
P0
PAUSE ; Pause For Scroll
HEAD ; Page Header
LAB
L0
KIL ; Final variable kill
FOOT ; Page Footer
HF ; Do Header and Footer

External References

Name Field # of Occurrence
^%DT P0+3
NOW^%DTC Q0+1
^%ZIS L0
^%ZISC L0+2
DTP^FH Q0+6, Q0+15, Q0+20, Q0+43, LAB, HEAD+1
EN2^FH L0+1
SITE^FH FOOT+3
DRUG^FHASM4 Q1
LAB^FHASM4 Q1
^FHASP1 Q1+10
^FHASP2 Q0+6
ALG^FHCLN Q0+16
LNE^FHDMP Q0+16
^FHDPA P0
MONUM^FHOMUTL P0+5
EN6^GMRVUTL Q0+26
KILL^XUSCLEAN L0+1, KIL+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: P0+2
Function Call: WRITE
  • Prompt: !
  • Line Location: L0+0
Function Call: WRITE
  • Prompt: !!,"Status: "
  • Line Location: Q0+5
Function Call: WRITE
  • Prompt: "Outpatient"
  • Line Location: Q0+5
Function Call: WRITE
  • Prompt: "Inpatient admitted ",DTP
  • Line Location: Q0+6
Function Call: WRITE
  • Prompt: !!,"Problem: ",FHPROB,!,"Additional Problem: ",FHADPROB
  • Line Location: Q0+14
Function Call: WRITE
  • Prompt: !!,"Nutrition Status: "
  • Line Location: Q0+15
Function Call: WRITE
  • Prompt: ?20,$P($G(^FH(115.4,RC,0)),"^",2)
  • Line Location: Q0+15
Function Call: WRITE
  • Prompt: ?20,$P($G(^FH(115.4,RC,0)),"^",2)
  • Line Location: Q0+15
Function Call: WRITE
  • Prompt: !!,"Allergies: "
  • Line Location: Q0+16
Function Call: WRITE
  • Prompt: !!?29,"Nutrition Assessments"
  • Line Location: Q0+17
Function Call: WRITE
  • Prompt: !!?5,"No assessments on file."
  • Line Location: Q0+18
Function Call: WRITE
  • Prompt: !!,"Recent Assessments:"
  • Line Location: Q0+19
Function Call: WRITE
  • Prompt: " ",$E(DTP,1,9)
  • Line Location: Q0+20
Function Call: WRITE
  • Prompt: !!,"Vitals Height: "
  • Line Location: Q0+29
Function Call: WRITE
  • Prompt: " (",FHX1,")"
  • Condition for execution: FHX2'="" FHX2 W:FHX1'=""
  • Line Location: Q0+29
Function Call: WRITE
  • Prompt: !,"Last Wt: "
  • Line Location: Q0+35
Function Call: WRITE
  • Prompt: X2," (",X1,")"
  • Condition for execution: WGT
  • Line Location: Q0+35
Function Call: WRITE
  • Prompt: !,"Usual Wt: "
  • Line Location: Q0+37
Function Call: WRITE
  • Prompt: X2," (",X1,")"
  • Condition for execution: UWGT
  • Line Location: Q0+37
Function Call: WRITE
  • Prompt: ?40,"Last Wt/Usual Wt: "
  • Line Location: Q0+37
Function Call: WRITE
  • Prompt: X2," (",X1,")"
  • Condition for execution: UWGT
  • Line Location: Q0+37
Function Call: WRITE
  • Prompt: !,"Target Wt: "
  • Line Location: Q0+39
Function Call: WRITE
  • Prompt: X2," (",X1,")"
  • Condition for execution: IBW
  • Line Location: Q0+39
Function Call: WRITE
  • Prompt: ?40,"Last Wt/TBW: "
  • Line Location: Q0+39
Function Call: WRITE
  • Prompt: X2," (",X1,")"
  • Condition for execution: IBW
  • Line Location: Q0+39
Function Call: WRITE
  • Prompt: !,"Body Mass Index: ",BMI
  • Line Location: Q0+42
Function Call: WRITE
  • Prompt: ?40,"Date Taken: ",DTP
  • Line Location: Q0+43
Function Call: WRITE
  • Prompt: !!?5,"Nutrition Class: "
  • Line Location: Q0+44
Function Call: WRITE
  • Prompt: ?20,$P($G(^FH(115.3,XD,0)),"^",1)
  • Line Location: Q0+44
Function Call: WRITE
  • Prompt: !!?34,"Medications"
  • Line Location: Q1+1
Function Call: WRITE
  • Prompt: !?5,FHCN3
  • Line Location: Q1+3
Function Call: WRITE
  • Prompt: !!?5,"No current medications in selected drug classes."
  • Line Location: Q1+5
Function Call: WRITE
  • Prompt: !!?32,"Laboratory Data"
  • Line Location: Q1+6
Function Call: WRITE
  • Prompt: !!?5,"No selected laboratory data available last ",$S($D(^FH(119.9,1,3)):$P(^(3),"^",2),1:90)," days."
  • Line Location: Q1+9
Function Call: WRITE
  • Prompt: !?5,"Test",?30,"Result units",?51,"Ref. range",?67,"Date",!
  • Line Location: LAB+1
Function Call: WRITE
  • Prompt: !?5,$P(LRTST(K),"^",1),?27,$P(LRTST(K),"^",6),?40,$P(LRTST(K),"^",4),?51,$P(LRTST(K),"^",5),?65,DTP
  • Line Location: LAB+3
Function Call: WRITE
  • Prompt: !,LN,!,DTP,?31,"NUTRITION PROFILE",?73,"Page ",PG,!,LN
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !,NAM,?40,$S(SEX="M":"Male",SEX="F":"Female",1:""),?73,"Age ",AGE,!
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: FOOT+2
Function Call: WRITE
  • Prompt: !,LN,!,NAM
  • Line Location: FOOT+3
Function Call: WRITE
  • Prompt: ?(80-$L(SITE)\2),SITE,?67,"VAF 10-9034"
  • Line Location: FOOT+3
Function Call: WRITE
  • Prompt: ?66,"(Vice SF 509)"
  • Line Location: FOOT+5
Function Call: WRITE
  • Prompt: !,LN,!
  • Line Location: FOOT+6
Function Call: READ
  • Prompt: "Press RETURN to continue. "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: !,"Enter a RETURN to Continue."
  • Line Location: PAUSE+1
Routine Call
  • %ZIS
  • Line Location:
    • L0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM - [#405] Q0+6
^DPT - [#2] Q0+2, FOOT+5
^FH(115.3 - [#115.3] Q0+44
^FH(115.4 - [#115.4] Q0+15
^FH(119.9 - [#119.9] Q0+1, Q1+9
^FHPT - [#115] Q0+7, Q0+10, Q0+12, Q0+13, Q0+20, Q0+21

Label References

Name Line Occurrences
FHASP L0+2
FOOT HF+1
HEAD Q0+4, HF+1
HF Q1+3, Q1+7
KIL P0, L0
LAB Q1+7
P0 L0+1
PAUSE FOOT+1, PAUSE+1
Q0 L0+2
Q1 Q0+18

Naked Globals

Name Field # of Occurrence
^( Q0+7, Q0+20
^("DI" Q0+13
^(3 Q0+1, Q0+12, Q1+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % Q0+1
%DT P0+2*, P0+3!
%DT("A" P0+2*
%DT("B" P0+3*
%DT(0 P0+3*
%ZIS L0*!, L0+2!
%ZIS("B" L0*
>> A2 Q0+41*
>> ADM P0*, Q0+6
>> AGE Q0+3*, HEAD+3
>> ALG Q0+16*
>> ALL P0*
>> ANS Q0+4*, Q1+3, Q1+4, Q1+7, Q1+8, HF+1, PAUSE+1*
>> ASE Q0+7*
>> ASN Q0+10*, Q0+12, Q0+13, Q0+18, Q0+21
>> BMI Q0+40*, Q0+41*, Q0+42
>> DFN P0, Q0+2, Q0+26, FOOT+5
>> DOB Q0+2*, Q0+3
DT Q0+1*, HEAD+1
DTIME PAUSE+1
>> DTOUT P0+3
>> DTP Q0+6*, Q0+7*, Q0+15, Q0+20*, Q0+43*, LAB*, LAB+3, HEAD+1*, HEAD+2
>> FHADPROB Q0+9*, Q0+11*, Q0+13*, Q0+14
>> FHCN3 Q1+2*, Q1+3
>> FHDFN Q0+7, Q0+10, Q0+12, Q0+13, Q0+20, Q0+21
>> FHDVT Q0+25*, Q0+26*, Q0+27*, Q0+43
>> FHET P0+4*
>> FHHT Q0+25*, Q0+26*, Q0+28, Q0+41
>> FHLST L0+1*
>> FHNUM P0+5
>> FHPGM L0+1*
>> FHPROB Q0+9*, Q0+11*, Q0+12*, Q0+14
>> FHU Q0+1*
>> FHWWT Q0+25*, Q0+26*, Q0+32, Q0+33, Q0+41
FHX1 Q0+25*, Q0+28*, Q0+29, Q0+30!, Q0+31*, Q0+32*, Q0+33
FHX2 Q0+25*, Q0+28*, Q0+29, Q0+30!, Q0+31*, Q0+32*, Q0+33
>> GMRVSTR Q0+26*
>> HGT Q0+23
>> IBW Q0+38, Q0+39
IO L0+2
IO("Q" L0+1
IOF HEAD+1
IOP L0!, L0+2!
IOSL Q0+4, FOOT+2
IOST Q0+4, HEAD+1, FOOT+1, PAUSE+1
>> K Q0+20*, Q0+22*, Q1+7*, LAB, LAB+3
>> KK FOOT+2*
>> LN Q0+4*, HEAD+2, FOOT+3, FOOT+6
>> LRTST( Q1+7, LAB, LAB+3
>> N1 Q0+20*, Q0+22*, Q1+1*, Q1+3*, Q1+5, Q1+7*, Q1+9, LAB+1, LAB+2*
>> N2 Q1+2*
>> NAM Q0+2*, HEAD+3, FOOT+3
>> NOW Q0+1*, Q0+3
>> PG Q0+4*, HEAD+1*, HEAD+2
>> PID FOOT+4
>> POP L0
>> PSCNS( Q1+2
>> PX Q1*
>> RC Q0+7*, Q0+15
>> S1 Q0+4*, Q1+3, Q1+7
>> SEX Q0+2*, HEAD+3
>> SITE FOOT+3
U Q0+12, Q0+13
>> UWGT Q0+36, Q0+37
>> W1 FOOT+5*
>> WARD P0, Q0+5, Q1
>> WGT Q0+34, Q0+35, Q0+37, Q0+39
>> X P0+3, Q0+26, Q0+27, PAUSE+1*
>> X1 Q0+23*, Q0+34*, Q0+35, Q0+36*, Q0+37, Q0+38*, Q0+39, LAB*
>> X2 Q0+23*, Q0+34*, Q0+35, Q0+36*, Q0+37, Q0+38*, Q0+39
>> XD Q0+44
>> Y P0+4, Q0+2*, Q0+7*, Q0+21*, Q0+22
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All