Routine: ACKQASU7

Information

ACKQASU7 ;HCIOFO/AG - New/Edit Visit Utilities ; 04/01/99

Name	Comments	DBIA/ICR reference
SHOWPCE(ACKGBL)	; display errors from COPYPCE stored in @ACKGBL ; this routine displays on the screen any errors found in the global ; referenced by ACKGBL that were created by COPYPCE^ACKQASU4. ; format for global is @ACKGBL=number or errors ; @ACKGBL@(n)=field^int^ext^message ; returns:- 0 - continue, 1 - user typed '^' to exit
PAUSE	;
ACKAPMNT(ACKVD,ACKVTME,ACKCLIN,ACKPAT)	;
MESSAG	;
OK2

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?2,"ERROR - The following errors occurred while copying the PCE Visit" Line Location: SHOWPCE+13
Function Call: WRITE	Prompt: !?2,"data into QUASAR. The fields in error are displayed below with the" Line Location: SHOWPCE+14
Function Call: WRITE	Prompt: !?2,"reason they were rejected.",! Line Location: SHOWPCE+15
Function Call: WRITE	Prompt: !?2,ACKFLD_":",?13,$E(ACKDTA,1,20) Line Location: SHOWPCE+24
Function Call: WRITE	Prompt: ! Condition for execution: ACKLF Line Location: SHOWPCE+31
Function Call: WRITE	Prompt: ?ACKTAB,ACKTXT Line Location: SHOWPCE+31
Function Call: WRITE	Prompt: !! Line Location: PAUSE+2
Function Call: WRITE	Prompt: ! Line Location: PAUSE+4
Function Call: WRITE	Prompt: !!!,"WARNING -",! Line Location: MESSAG+1
Function Call: WRITE	Prompt: !,"You are Creating a Visit that does not exist within Appointment Management." Line Location: MESSAG+2
Function Call: WRITE	Prompt: !,"This Visit will not be displayed within Appointment Management.",! Line Location: MESSAG+3
Function Call: WRITE	Prompt: !,"Jumping not allowed.",! Line Location: OK2+3