Routine: FHASP2

Information

FHASP2 ; HISC/REL - Nutrition Profile (cont.) ;10/4/93 11:44

Source file <FHASP2.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Adm. Dx: ",$E(X,1,27) Line Location: FHASP2+2
Function Call: WRITE	Prompt: !,"Service: ",$S(TYP="T":"Tray",TYP="D":"Dining Room",1:"Cafeteria") Line Location: F1+2
Function Call: WRITE	Prompt: !,"Expires: ",DTP Line Location: F1+3
Function Call: WRITE	Prompt: !!,"Tubefeed Ordered: ",DTP Line Location: F1+7
Function Call: WRITE	Prompt: !,"Total Quantity: ",TQU," ml",?42,"Total KCAL: ",CAL Line Location: F1+9
Function Call: WRITE	Prompt: !!,"Supplemental Feeding: ",$S('L:"No Order",1:$P(^FH(118.1,L,0),"^",1)) G:'NO Line Location: F2+1
Function Call: WRITE	Prompt: ?50,"Reviewed: ",DTP Line Location: F2+2
Function Call: WRITE	Prompt: !?5,$P("10am; 2pm; 8pm",";",K1),":",?13,N(K1) Line Location: F2+4
Function Call: WRITE	Prompt: !?3,$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