Routine: TIUPRPN6

Information

TIUPRPN6 ;SLC/MJC-Print PNs-Most Current Admission ; 6/26/01

Name	Comments	DBIA/ICR reference
ADM	;prints PNs for LAST admission to either date of discharge or NOW
NOTES(TIUDFN)	;get the notes for the admission
NOTESX	;
HELP	;help for yes/no print all notes for admission question

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ADM+7
Function Call: WRITE	Prompt: !!?5,$C(7),"There are no signed " Line Location: ADM+8
Function Call: WRITE	Prompt: "progress notes on file for this patient.",! Line Location: ADM+9
Function Call: WRITE	Prompt: !!?5,$C(7),"I don't have any record of an admission " Line Location: NOTES+3
Function Call: WRITE	Prompt: "for this patient.",!?5,"Select another patient." Line Location: NOTES+4
Function Call: WRITE	Prompt: !!,"Patient was admitted: ",$P(ADMDT,U,2) Line Location: NOTES+6
Function Call: WRITE	Prompt: !!,"Searching for the notes " Line Location: NOTES+24
Function Call: WRITE	Prompt: !!,"No SIGNED notes found in this date " Line Location: NOTES+34
Function Call: WRITE	Prompt: "range for this patient." Line Location: NOTES+35
Function Call: WRITE	Prompt: !!,">> "_CTR_" note"_$S(CTR>1:"s",1:"")_" found.",! Line Location: NOTES+36
Function Call: WRITE	Prompt: !!?5,"Answer YES and all the progress notes for this admission will " Line Location: HELP+1
Function Call: WRITE	Prompt: !?5,"be printed in CONTIGUOUS format." Line Location: HELP+2
Function Call: WRITE	Prompt: !!?5,"Answer NO and you will be asked to select a date range for " Line Location: HELP+3
Function Call: WRITE	Prompt: !?5,"this patient." Line Location: HELP+4