Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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: !!
  • Variable: "Press RETURN to continue." R X
  • Timeout: DTIME
  • 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
Info |  Source |  Entry Points |  Interaction Calls