Routine: PRPFSIG

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

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>

Call Graph

Call Graph Total: 2

Package	Total	Call Graph
Kernel	1	(DE,EN,HASH)^XUSHSHP
VA FileMan	1	NOW^%DTC

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 4

Package	Total	Caller Graph
Integrated Patient Fund	4	PRPFDST PRPFPOST PRPFPUR1 PRPFSIG1

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

External References

Name	Field # of Occurrence
NOW^%DTC	NOW+2
DE^XUSHSHP	DECODE
EN^XUSHSHP	ENCODE
HASH^XUSHSHP	HASH

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("EOFF"	ESIG+12
^%ZOSF("EON"	ESIG+12
^VA(200 - [#200]	ESIG+7

Label References

Name	Line Occurrences
$$HASH	ESIG+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	NOW+1~, NOW+3
%H	NOW+1~
%I	NOW+1~
I	SUM+1~, SUM+2*
MESSAGE	ESIG~, ESIG+8, ESIG+20
OUT	ESIG+6~, ESIG+9, ESIG+10!, ESIG+13, ESIG+14, ESIG+16, ESIG+18, ESIG+20
SIGCODE	ESIG+6~, ESIG+7*, ESIG+8, ESIG+16
USERNUM	ESIG~, ESIG+7
X	ENCODE~, DECODE~, HASH~, SUM~, SUM+2, ESIG+6~, ESIG+12, ESIG+14, ESIG+15, ESIG+16 , NOW+1~
X1	ENCODE~, DECODE~
X2	ENCODE~, DECODE~
Y	SUM+1~, SUM+2*, SUM+3
ZZI	ESIG+6~, ESIG+9*