PRCHQQ ;WISC-RHD/RETURNS AN ESIG ERROR MESSAGE ;1/25/93 09:57
V ;;5.1;IFCAP;;Oct 20, 2000
;Per VHA Directive 10-93-142, this routine should not be modified.
ERR(ROUTINE,ERROR) ;EXTRINSIC CALL TO SET ERROR MESSAGE FOR PRCH* ROUTINES
I ROUTINE'="PRCUESIG" G NEXT
I ERROR=-3 Q "NO SIGNATURE BLOCK IN FILE 200."
I ERROR=-2 Q "TIME OUT OCCURRED DURING SIGNING PROCESS."
I ERROR=-1 Q "USER CANCELLED SIGNING PROCESS."
I ERROR=0 Q "INVALID SIGNATURE ENTERED."
Q "PROBLEM WITH ELECTRONIC SIGNATURE. ERROR= "_ERROR_" CALLING ROUTINE "_ROUTINE
NEXT I ERROR=-4 Q "CAN'T RE-SIGN RECORD."
I ERROR=-3 Q "NO VALID USER NUMBER FOR FILING."
I ERROR=-2 Q "NO SIGNATURE BLOCK IN FILE 200."
I ERROR=-1 Q "A REQUIRED RECORD IS NULL."
EXIT Q "PROBLEM WITH ELECTRONIC SIGNATURE. ERROR= "_ERROR_" CALLING ROUTINE "_ROUTINE
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCHQQ 829 printed Nov 22, 2024@17:20:05 Page 2
PRCHQQ ;WISC-RHD/RETURNS AN ESIG ERROR MESSAGE ;1/25/93 09:57
V ;;5.1;IFCAP;;Oct 20, 2000
+1 ;Per VHA Directive 10-93-142, this routine should not be modified.
ERR(ROUTINE,ERROR) ;EXTRINSIC CALL TO SET ERROR MESSAGE FOR PRCH* ROUTINES
+1 IF ROUTINE'="PRCUESIG"
GOTO NEXT
+2 IF ERROR=-3
QUIT "NO SIGNATURE BLOCK IN FILE 200."
+3 IF ERROR=-2
QUIT "TIME OUT OCCURRED DURING SIGNING PROCESS."
+4 IF ERROR=-1
QUIT "USER CANCELLED SIGNING PROCESS."
+5 IF ERROR=0
QUIT "INVALID SIGNATURE ENTERED."
+6 QUIT "PROBLEM WITH ELECTRONIC SIGNATURE. ERROR= "_ERROR_" CALLING ROUTINE "_ROUTINE
NEXT IF ERROR=-4
QUIT "CAN'T RE-SIGN RECORD."
+1 IF ERROR=-3
QUIT "NO VALID USER NUMBER FOR FILING."
+2 IF ERROR=-2
QUIT "NO SIGNATURE BLOCK IN FILE 200."
+3 IF ERROR=-1
QUIT "A REQUIRED RECORD IS NULL."
EXIT QUIT "PROBLEM WITH ELECTRONIC SIGNATURE. ERROR= "_ERROR_" CALLING ROUTINE "_ROUTINE
+1 QUIT
