Routine: FHASN1

Information

FHASN1 ; HISC/REL - Print Status Summary ;5/14/93 10:12

Source file <FHASN1.m>

Name	Line Occurrences
Function Call: READ	Formatting: !! Prompt: "Print by CLINICIAN or WARD? WARD// " Variable: X Timeout: DTIME Line Location: F0+0
Function Call: WRITE	Prompt: *7," Answer with C or W" Line Location: F0+0
Function Call: WRITE	Prompt: ! Line Location: L0+0
Function Call: WRITE	Prompt: ! Line Location: P0+4
Function Call: WRITE	Prompt: !?7,$P(NAM,"~",1),?37 Line Location: P2+0
Function Call: WRITE	Prompt: $J(X,7) Line Location: P2+0
Function Call: WRITE	Prompt: !?16,"N U T R I T I O N S T A T U S S U M M A R Y",?73,"Page ",PG Line Location: HDR+0
Function Call: WRITE	Prompt: !!?(80-$L(DTP)\2),DTP Line Location: HDR+1
Function Call: WRITE	Prompt: !!?7,$S(SRT="C":"CLINICIAN",1:"WARD"),?43,"I II III IV UNC",!?7,LN,! Line Location: HDR+2