Routine: TIUCNFIX

Information

TIUCNFIX ; SLC/MAM - Resolve Upload Filing Errors for Consults ;05/06/02

Name	Comments	DBIA/ICR reference
CNFIX	; Consults Filing Error Resolution Code ; Requires: TIUEVNT - 8925.4 Upload Log Event IEN ; Requires: TIUTYPE - IEN of Docmt Def whose Filing Error ; Resolution Code is being invoked. ; Taken from alert or filing error.
CNFIXX
GETCHECK(SUCCESS,TIUTYPE,TIUFLDS,DFN,TITLDA,TIU)	; Get and check data ; Get from user: Patient, Visit, Document Title, Consult
PAT
GETCNSLT(SUCCESS,TIUTYPE,TIUFLDS,CHANGEPT,TIUCNNBR)	; Get consult

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," OK, changing document to a progress note..." Line Location: CNFIX+32
Function Call: WRITE	Prompt: !!,"Filing error could not be resolved." Line Location: CNFIXX+9
Function Call: WRITE	Prompt: !,$P(SUCCESS,U,2) Line Location: CNFIXX+10
Function Call: WRITE	Prompt: !,"If you wish to try a different approach, edit the buffered data directly",!,"and refile it, or simply exit and try again later.",! Line Location: CNFIXX+11
Function Call: WRITE	Prompt: !!,"This patient has no consult requests; please make sure you have the" Line Location: GETCNSLT+8
Function Call: WRITE	Prompt: !,"correct patient." Line Location: GETCNSLT+9
Function Call: WRITE	Prompt: !!,"To upload into a consult title, you must select a request." Line Location: GETCNSLT+17