Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: PRPFSIG

Package: Integrated Patient Fund

Routine: PRPFSIG


Information

PRPFSIG ;WISC@ALTOONA/CTB/TEN-ROUTINE TO ENTER OR CHANGE ELECTRONIC SIGNATURE CODE ;7/15/97 9:56 AM

Source Information

Source file <PRPFSIG.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;3.0;PATIENT FUNDS;**6,7**;JUNE 1, 1989
ENCODE(X,X1,X2)
DECODE(X,X1,X2)
HASH(X)
SUM(X) ;CREATE CHECKSUM VALUE FOR STRING
ESIG(USERNUM,MESSAGE) ;interogate user for electronic signature code
NOW() ;Extrinsic function to return current time

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You have no signature code on file. Please contact your IRM staff for assistance.",*7,!
  • Line Location: ESIG+8
Function Call: WRITE
  • Prompt: !,"Enter ELECTRONIC SIGNATURE CODE: "
  • Line Location: ESIG+11
Function Call: READ
  • Variable: X
  • Timeout: 60
  • Line Location: ESIG+12
Function Call: WRITE
  • Prompt: ?60,"Thank you."
  • Line Location: ESIG+16
Function Call: WRITE
  • Prompt: !,"Sorry, but that's not your correct electronic signature code."
  • Line Location: ESIG+17
Info |  Source |  Entry Points |  Interaction Calls