Routine: QAOSENT1

Information

QAOSENT1 ;HISC/DAD-ENTER EDIT AN OCCURRENCE (Cont.) ;2/4/93 08:01

Name	Comments	DBIA/ICR reference
ASK	;
EXIT	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"* THIS OCCURRENCE HAS ALREADY BEEN ENTERED ",7 Line Location: QAOSENT1+6
Function Call: WRITE	Prompt: !!?5,"To create another similar occurrence screen record for this" Line Location: QAOSENT1+7
Function Call: WRITE	Prompt: !?5,"patient, enter a UNIQUE DATE AND TIME for the occurrence.",! Line Location: QAOSENT1+8
Function Call: WRITE	Prompt: !!?5,"* A SIMILAR 'DELETED' OCCURRENCE HAS BEEN FOUND ",7,! Line Location: QAOSENT1+11
Function Call: WRITE	Prompt: !?5,"Do you want to continue" Line Location: ASK+1
Function Call: WRITE	Prompt: !!?5,"Please answer Y(es) or N(o)" Line Location: ASK+4
Function Call: WRITE	Prompt: !!,"Answering Y(es) will add a new record to the file." Line Location: ASK+5
Function Call: WRITE	Prompt: !,"Answering N(o) will abort the entry process and allow you to enter" Line Location: ASK+6
Function Call: WRITE	Prompt: !,"a different new record, or you may use the 'Reopen Closed/Deleted" Line Location: ASK+7
Function Call: WRITE	Prompt: !,"Occurrence Screen Record' option to work with the old record.",! Line Location: ASK+8