- 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 Feb 18, 2025@23:36:23 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