Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PRCHQQ

PRCHQQ.m

Go to the documentation of this file.
  1. PRCHQQ ;WISC-RHD/RETURNS AN ESIG ERROR MESSAGE ;1/25/93 09:57
  1. V ;;5.1;IFCAP;;Oct 20, 2000
  1. ;Per VHA Directive 10-93-142, this routine should not be modified.
  1. ERR(ROUTINE,ERROR) ;EXTRINSIC CALL TO SET ERROR MESSAGE FOR PRCH* ROUTINES
  1. I ROUTINE'="PRCUESIG" G NEXT
  1. I ERROR=-3 Q "NO SIGNATURE BLOCK IN FILE 200."
  1. I ERROR=-2 Q "TIME OUT OCCURRED DURING SIGNING PROCESS."
  1. I ERROR=-1 Q "USER CANCELLED SIGNING PROCESS."
  1. I ERROR=0 Q "INVALID SIGNATURE ENTERED."
  1. Q "PROBLEM WITH ELECTRONIC SIGNATURE. ERROR= "_ERROR_" CALLING ROUTINE "_ROUTINE
  1. NEXT I ERROR=-4 Q "CAN'T RE-SIGN RECORD."
  1. I ERROR=-3 Q "NO VALID USER NUMBER FOR FILING."
  1. I ERROR=-2 Q "NO SIGNATURE BLOCK IN FILE 200."
  1. I ERROR=-1 Q "A REQUIRED RECORD IS NULL."
  1. EXIT Q "PROBLEM WITH ELECTRONIC SIGNATURE. ERROR= "_ERROR_" CALLING ROUTINE "_ROUTINE
  1. Q