Routine: RMPRSEC

Customize PDF page

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

Information

RMPRSEC ;PHX/JLT-PROSTHETICS SECURITY CHECK ;10/01/1994

Source Information

Source file <RMPRSEC.m>

Call Graph

Call Graph Total: 2

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

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: 1

Package	Total	Caller Graph
Prosthetics	1	RMPRP2

Entry Points

Name	Comments	DBIA/ICR reference
RO	;REQUESTING OFFICAL SIGNATURE
AP	;APPROVING OFFICIAL SIGNATURE
IP	;INSPECTING OFFICIAL SIGNATURE
EX	;COLLECT SIGNATURE OF EXAMINER
SIG
CHK
ENCODE(X,X1,X2)	;ENCRYPT ELECTRONIC SIGNATURE
DECODE(X,X1,X2)	;DECRYPT ELECTRONIC SIGNATURE
SUM(X)	;CREATE CHECKSUM VALUE FOR STRING
WRT	;WRITE HELP SCREENS FOR ELECTRONIC SIGNATURE PROMPTS

External References

Name	Field # of Occurrence
^DIR	CHK+1
DE^XUSHSHP	DECODE+1
EN^XUSHSHP	ENCODE+1
HASH^XUSHSHP	CHK+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),?5,"YOU DO NOT HAVE AN ELECTRONIC SIGNATURE CODE.",!,?5,"USE THE TBOX OPTION TO ENTER OR CHANGE YOUR SIGNATURE CODE" Line Location: CHK+0
Function Call: WRITE	Prompt: !!,$C(7),?5,"Use the TBOX option to change your Electronic Signature code." Line Location: CHK+5
Function Call: WRITE	Prompt: !!,$C(7),?5,"That is not your Electronic Signature Code. Try again",!! Line Location: CHK+6
Function Call: WRITE	Prompt: !!,?5,$C(7),"Signature Code verified!" Line Location: CHK+7
Routine Call	DIR Line Location: CHK+1

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
CHK	CHK+6
SIG	RO+1, AP+2, IP+1
WRT	CHK+1

Naked Globals

Name	Field # of Occurrence
^(20	CHK, CHK+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIR	RO+1!, AP+2!, IP+1!, EX+3!
DIR("?"	WRT+1*
DIR("??"	WRT+2*
DIR("A"	RO+1, AP+2, IP+1, EX+3
DIR(0	RO+1, AP+2, IP+1, EX+3
>> DIRUT	CHK+4
DUZ	CHK, CHK+6, CHK+7
I	SUM+1~, SUM+2*
>> RMPRC	SIG, CHK+5, CHK+6
>> RMPRSBP	CHK+7*
>> RMPRSBT	CHK+7*
>> RMPRX	CHK+2*, CHK+3
U	CHK+6, CHK+7
X	CHK+2, CHK+6, CHK+7, ENCODE~, ENCODE+1, DECODE~, DECODE+1, SUM~, SUM+2
X1	RO+1, AP+2, IP+1, EX+3, CHK, CHK+4!, CHK+7, ENCODE~, DECODE~
X2	ENCODE~, DECODE~
Y	SUM+1~, SUM+2*, SUM+3