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

Package: Dietetics

Routine: FHASXR1


Information

FHASXR1 ; HISC/REL - Print Screening (cont) ;4/20/95 08:53

Source Information

Source file <FHASXR1.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Dietetics 6 (DTP,SITE)^FH  LAB^FHASM4  Q0^FHASP  ALG^FHCLN  PID^FHDPA  CUR^FHORD7  
General Medical Record - Vitals 1 EN6^GMRVUTL  
VA Fileman 1 ^%DT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Dietetics 1 FHASXR  

Entry Points

Name Comments DBIA/ICR reference
Q1 ; Print assessment
F2
Q2
Q6
Q3
LAB
HEAD ; Page Header
Q21
PAUSE ; Pause to Scroll
LP
LNE ; Break Line if longer than 56 chars
FOOT ; Page Footer

External References

Name Field # of Occurrence
^%DT Q1+2
DTP^FH Q2+4, Q2+8, F2+1, Q21, Q21+15, Q21+17, Q21+23, LAB, HEAD+1
SITE^FH FOOT+3
LAB^FHASM4 Q3
Q0^FHASP Q6+10
ALG^FHCLN Q1+11
PID^FHDPA Q1+3
CUR^FHORD7 Q2
EN6^GMRVUTL Q21+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"S: Chewing Problems: Y N",?41,"Pre-Admission Diet: ",$E(UL,1,18)
  • Line Location: Q1+7
Function Call: WRITE
  • Prompt: !?4,"Dysphagia: Y N",?41,"Wt. + - ____ # in last ___ months"
  • Line Location: Q1+8
Function Call: WRITE
  • Prompt: !?4,"Appetite: + -",?41,"Nausea: Y N",?58,"Vomiting: Y N"
  • Line Location: Q1+9
Function Call: WRITE
  • Prompt: !?4,"Feeding Assistance Required: Y N",?41,"Diarrhea: Y N",?58,"Constipation: Y N"
  • Line Location: Q1+10
Function Call: WRITE
  • Prompt: !?4,"Food Allergies: "
  • Line Location: Q1+11
Function Call: WRITE
  • Prompt: !?4,$P(FHAP,"^",5)
  • Line Location: Q1+12
Function Call: WRITE
  • Prompt: !!,"O: Current Diet: "
  • Line Location: Q2+0
Function Call: WRITE
  • Prompt: Y
  • Line Location: Q2+0
Function Call: WRITE
  • Prompt: !?4,"Service: ",$S(TYP="T":"Tray",TYP="D":"Dining Room",1:"Cafeteria")
  • Line Location: Q2+3
Function Call: WRITE
  • Prompt: !?4,"Expires: ",DTP
  • Line Location: Q2+4
Function Call: WRITE
  • Prompt: !?4,"Tubefeed Ordered: ",DTP
  • Line Location: Q2+8
Function Call: WRITE
  • Prompt: !?4,"Total Quantity: ",TQU," ml",?42,"Total KCAL: ",CAL
  • Line Location: Q2+10
Function Call: WRITE
  • Prompt: !?4,"Adm. Dx: ",$E(X,1,27)
  • Line Location: F2+0
Function Call: WRITE
  • Prompt: ?41,"Adm. Date: ",?59,DTP
  • Line Location: F2+1
Function Call: WRITE
  • Prompt: !?4,"Age: ",AGE,?18,"Sex: ",SEX,?41,"Prior Assessment:"
  • Line Location: Q21+0
Function Call: WRITE
  • Prompt: ?59,DTP
  • Line Location: Q21+0
Function Call: WRITE
  • Prompt: ?41,"Frame Size:",?59,$S(FRM="S":"Small",FRM="M":"Medium",FRM="L":"Large",1:"")
  • Line Location: Q21+10
Function Call: WRITE
  • Prompt: !?4,"Vitals Weight:"
  • Line Location: Q21+12
Function Call: WRITE
  • Prompt: " (",FHX1,")"
  • Condition for execution: FHX2'="" ?18,FHX2 W:FHX1'=""
  • Line Location: Q21+12
Function Call: WRITE
  • Prompt: ?41,"Weight Taken:"
  • Line Location: Q21+13
Function Call: WRITE
  • Prompt: ?59,DTP
  • Line Location: Q21+16
Function Call: WRITE
  • Prompt: !?4,"Last Weight:"
  • Line Location: Q21+21
Function Call: WRITE
  • Prompt: " (",X1,")"
  • Line Location: Q21+21
Function Call: WRITE
  • Prompt: ?41,"Weight Taken:"
  • Line Location: Q21+22
Function Call: WRITE
  • Prompt: ?18,X2," (",X1,")"
  • Line Location: Q21+25
Function Call: WRITE
  • Prompt: ?41,"Last Weight/Usual Wt: "
  • Line Location: Q21+26
Function Call: WRITE
  • Prompt: ?59,$J(WGT/UWGT*100,3,0),"%"
  • Condition for execution: UWGT
  • Line Location: Q21+26
Function Call: WRITE
  • Prompt: ?18,X2," (",X1,")"
  • Line Location: Q21+28
Function Call: WRITE
  • Prompt: ?41,"Last Weight/TBW:"
  • Line Location: Q21+29
Function Call: WRITE
  • Prompt: ?59,$J(WGT/IBW*100,3,0),"%"
  • Condition for execution: IBW
  • Line Location: Q21+29
Function Call: WRITE
  • Prompt: !?4,"Body Mass Index: ",BMI,?41,"Amputation %:",?59,AMP
  • Line Location: Q21+32
Function Call: WRITE
  • Prompt: !!?32,"Laboratory Data",!?5,"Test",?30,"Result units",?51,"Ref. range",?67,"Date",!
  • Line Location: Q3+1
Function Call: WRITE
  • Prompt: !?5,"No laboratory data available last ",$S($D(^FH(119.9,1,3)):$P(^(3),"^",2),1:90)," days"
  • Line Location: Q3+3
Function Call: WRITE
  • Prompt: !!?4,"Appearance: "
  • Line Location: Q6+0
Function Call: WRITE
  • Prompt: !!,"A: Nutrition Status",?48,"Nutrition Education",!
  • Line Location: Q6+1
Function Call: WRITE
  • Prompt: ?48,E(N)
  • Condition for execution: N<3
  • Line Location: Q6+3
Function Call: WRITE
  • Prompt: !?4,"Comments:"
  • Line Location: Q6+4
Function Call: WRITE
  • Prompt: !!,"P: Nutrition Plan",!
  • Line Location: Q6+5
Function Call: WRITE
  • Prompt: !?4,"___ ",$P(^(KK,0),"^",1)
  • Line Location: Q6+6
Function Call: WRITE
  • Prompt: !?4,"Recommendations:"
  • Line Location: Q6+7
Function Call: WRITE
  • Prompt: !
  • Line Location: Q6+7
Function Call: WRITE
  • Prompt: !?41,$E(UL,1,38)
  • Line Location: Q6+8
Function Call: WRITE
  • Prompt: !?41,"Signature",?68,"Date"
  • Line Location: Q6+9
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+1
Function Call: WRITE
  • Prompt: ALG
  • Line Location: LNE+1
Function Call: WRITE
  • Prompt: $E(ALG,1,L-2)
  • Line Location: LNE+3
Function Call: WRITE
  • Prompt: !?20
  • Line Location: LNE+5
Function Call: WRITE
  • Prompt: !,LN,!,DTP,?30,"NUTRITION SCREENING",?73,"Page ",PG,!,LN
  • Line Location: HEAD+2
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: !,LN,!
  • Line Location: FOOT+6
Function Call: READ
  • Prompt: !!
  • Timeout: DTIME
  • Variable: "Press RETURN to continue." R X
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: !,"Enter a RETURN to Continue."
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: !?7,$P($G(^FH(118.2,TUN,0)),"^",1),", ",$S(STR=4:"Full",STR=1:"1/4",STR=2:"1/2",1:"3/4")," Str., ",QUA
  • Line Location: LP+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM - [#405] F2, F2+1
^DPT - [#2] Q1+2, FOOT+5
^FH(115.4 - [#115.4] Q6+3
^FH(115.5 - [#115.5] Q6+6
^FH(118.2 - [#118.2] LP+1
^FH(119.9 - [#119.9] Q1+4, Q3+3
^FHPT - [#115] Q2, Q2+1, Q2+2, Q2+6, Q2+9, Q21, Q21+1

Label References

Name Line Occurrences
F2 Q2+5
FOOT Q6+10
HEAD Q1+5
LAB Q3+2
LNE Q1+11, LNE+6
LP Q2+9
PAUSE FOOT+1, PAUSE+1
Q21 Q2

Naked Globals

Name Field # of Occurrence
^( Q2+9, Q6+6
^(0 Q6+3
^(1 Q2+2
^(3 Q3+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT Q1+2*
>> A2 Q21+31*
>> ADM Q2, Q2+1, Q2+2, Q2+6, Q2+9, F2, F2+1
>> AGE Q1+3*, Q21
>> ALG Q1+11*, LNE+1, LNE+2, LNE+3, LNE+4*, LNE+5
>> AMP Q21+2*, Q21+32
>> ANS Q1+6*, Q6+10, PAUSE+1*
>> ASN Q21*, Q21+1
>> BMI Q21+30*, Q21+31*, Q21+32
>> CAL Q2+7*, Q2+10
>> COM Q2+2*, Q2+7*, Q2+11
>> DFN Q1+1, Q1+2, Q21+5, FOOT+5
>> DOB Q1+2*, Q1+3
DT Q1+2*, Q1+3, HEAD+1
DTIME PAUSE+1
>> DTP Q2+4*, Q2+7*, Q2+8, F2+1*, Q21*, Q21+14*, Q21+15*, Q21+16, Q21+17*, Q21+23*
, LAB*, LAB+1, HEAD+1*, HEAD+2
>> DWGT Q21+2*, Q21+17, Q21+23
>> E( Q6+3
>> E(1 Q6+2*
>> E(2 Q6+2*
>> FHAP Q1+4*, Q1+12
>> FHDFN Q2, Q2+1, Q2+2, Q2+6, Q2+9, Q21, Q21+1
>> FHDWT Q21+4*, Q21+5*, Q21+15
>> FHHT Q21+4*, Q21+5*, Q21+6, Q21+31
>> FHORD Q2+2
>> FHU Q1+4*
>> FHWWT Q21+4*, Q21+5*, Q21+11, Q21+31
>> FHX1 Q21+4*, Q21+6*, Q21+8, Q21+9*, Q21+11*, Q21+12
>> FHX2 Q21+4*, Q21+6*, Q21+7, Q21+9*, Q21+11*, Q21+12
>> FRM Q21+2*, Q21+10
>> GMRVSTR Q21+5*
>> HGP Q21+2*
>> HGT Q21+2*, Q21+3
>> IBW Q21+2*, Q21+27, Q21+28, Q21+29
IOF Q6+10, HEAD+1
IOSL Q1+5, Q6+7, FOOT+2
IOST Q1+5, Q6+10, HEAD+1, FOOT+1, PAUSE+1
>> K Q3+2*, LAB, LAB+1
>> KK Q6+3*, Q6+6*, Q6+7*, FOOT+2*
>> L LNE+2*, LNE+3, LNE+4
>> LN Q1+5*, HEAD+2, FOOT+3, FOOT+6
>> LRTST( Q3+2, LAB, LAB+1
>> N Q6+3*
>> N1 Q3+2*, Q3+3, LAB*
>> NAM Q1+2*, FOOT+3
>> NP Q6+10
>> PG Q1+5*, HEAD+1*, HEAD+2
>> PID FOOT+4
>> PX Q3*
>> QUA LP*, LP+1
>> S1 Q1+5*
>> SEX Q1+2*, Q21
>> SITE FOOT+3
>> STR LP*, LP+1
>> TF Q2+5*, Q2+6, Q2+9
>> TF2 Q2+9*
>> TQU Q2+7*, Q2+10
>> TUN LP*, LP+1
>> TYP Q2+3*
>> UL Q1+6*, Q1+7, Q6+2, Q6+8
>> UWGT Q21+2*, Q21+24, Q21+25, Q21+26
>> W1 FOOT+5*
>> WARD Q2
>> WGP Q21+2*, Q21+21
>> WGT Q21+2*, Q21+20, Q21+21, Q21+23, Q21+26, Q21+29
>> X Q1+2*, Q2+3, F2*, Q21+5, PAUSE+1*
>> X(0 Q2+1*, Q2+4, Q2+5
>> X1 Q21+3*, Q21+19*, Q21+20*, Q21+21, Q21+24*, Q21+25, Q21+27*, Q21+28, LAB*
>> X2 Q21+3*, Q21+19*, Q21+20*, Q21+21, Q21+24*, Q21+25, Q21+27*, Q21+28
>> XY Q2+9*, LP
>> Y Q1+2*, Q2, Q2+2, Q2+6*, Q2+7, Q21+1*, Q21+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All