Routine: QAOSENTR

Information

QAOSENTR ;HISC/JES,DAD-ENTER EDIT AN OCCURRENCE ;6/24/93 15:41

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"Do you wish to see list of open occurrences" Line Location: ASK+1
Function Call: WRITE	Prompt: ! Line Location: ENTER+1
Function Call: WRITE	Prompt: !!?5,"Is this the correct date (Y/N)" Line Location: DAGAIN+1
Function Call: WRITE	Prompt: ! Line Location: DAGAIN+3
Function Call: WRITE	Prompt: ! Line Location: DAGAIN+5
Function Call: WRITE	Prompt: *7,!!?5,"You cannot enter an occurrence for this patient, who died on ",QADDEAD,".",! Line Location: DAGAIN+8
Function Call: WRITE	Prompt: *7,!!?5,"You cannot enter more than one death for the same patient.",! Line Location: DAGAIN+9
Function Call: WRITE	Prompt: !!?5,"This occurrence has not yet been entered into the system" Line Location: NOTHERE+1
Function Call: WRITE	Prompt: !?5,"Do you wish to go back to the enter step (Y/N)",*7 Line Location: NOTHERE+2
Function Call: WRITE	Prompt: !!?5,"Do you wish to make any corrections to this entry (Y/N)",*7 Line Location: ASKEDIT+1
Function Call: WRITE	Prompt: ! Line Location: EDIT+1
Function Call: WRITE	Prompt: *7,!!?5,"Do you wish to start review process for this entry (Y/N)" Line Location: ASKREVU+1
Function Call: WRITE	Prompt: ! Line Location: ENLOOK+1
Function Call: WRITE	Prompt: ! Line Location: ENLOOK+1
Function Call: WRITE	Prompt: !?5,"* NO OPEN OCCURRENCES FOUND *" Line Location: ENLOOK+10
Function Call: WRITE	Prompt: !?5,$P(PRINTEE,"^",1),?30,$P(PRINTEE,"^",2),?50,$P(PRINTEE,"^",3) Line Location: ENLOOK+14