Routine: XMPSEC

Package	Total	Call Graph
MailMan	2	($$ENCSTR,$$KEYOK,ADJUST,CRE8KEY,LOADCODE)^XMJMCODE (MOVEBODY,SENDMSG)^XMXSEND
VA Fileman	2	FILE^DIE ^DIR

Package

Total

Call Graph

MailMan

($$ENCSTR,$$KEYOK,ADJUST,CRE8KEY,LOADCODE)^XMJMCODE (MOVEBODY,SENDMSG)^XMXSEND

VA Fileman

FILE^DIE ^DIR

Package	Total	Caller Graph
MailMan	5	XMASEC XMD XMJMS XMP2 XMP2A

Package

Total

Caller Graph

MailMan

XMASEC XMD XMJMS XMP2 XMP2A

Entry Points

Name	Comments	DBIA/ICR reference
P0
PSTORE(XMZ,XMKEY,XMHINT)	;
PSECURE(XMZ,XMABORT)	; Secure the PackMan message
CSCRAM(XMSTR)	;
CNTEG	; Skip processing XXXINTEG program
PSECIT(XMZ)	;
PSCRAM(XMZ,I,XMSTR,XMTVAL)	;
PNTEG(XMZ,I,XMSTR)	;
FAIL	;
VAL(XMSTR,XMTVAL)	;
PQSEC(XMOK,XMABORT)	;
CHECK	;FROM XMP2

External References

Name	Field # of Occurrence
FILE^DIE	PSTORE+5
^DIR	PQSEC+7
$$ENCSTR^XMJMCODE	XMPSEC+10, CSCRAM+9, PSTORE+4, PSECIT+5, PSCRAM+1, PNTEG+3
$$KEYOK^XMJMCODE	XMPSEC+7
ADJUST^XMJMCODE	PSECURE+7
CRE8KEY^XMJMCODE	PSECURE+4
LOADCODE^XMJMCODE	PSECURE+6
MOVEBODY^XMXSEND	PSECIT+13
SENDMSG^XMXSEND	FAIL+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This message has been secured!" Line Location: XMPSEC+5
Function Call: WRITE	Prompt: !,"Checking the package's integrity... (This may take some time.)",! Line Location: XMPSEC+8
Function Call: WRITE	Prompt: ! Condition for execution: $X>75 Line Location: P0+4
Function Call: WRITE	Prompt: "." Line Location: P0+4
Function Call: WRITE	Prompt: !,"<<< DONE >>>",! Line Location: P0+6
Function Call: WRITE	Prompt: "." Line Location: CSCRAM+4
Function Call: WRITE	Prompt: ! Condition for execution: $X>70 Line Location: CSCRAM+6
Function Call: WRITE	Prompt: $J($E(XMA0,1,9),10) Line Location: CSCRAM+6
Function Call: WRITE	Prompt: !,$P($E(XMSTR,5,99),U) Line Location: CSCRAM+7
Function Call: WRITE	Prompt: !!,"******** ",$J(XMA0,10)," has failed !!!!!!!!!!!",!! Line Location: CSCRAM+10
Function Call: WRITE	Prompt: !!,"Securing the message now. This may take a while.",! Line Location: PSECURE+5
Function Call: WRITE	Prompt: $J($P(XMSTR," ",2),10) Line Location: PSCRAM+4
Routine Call	DIE Line Location: PSTORE+5
Routine Call	DIR Line Location: PQSEC+7

Name	Line Occurrences (* Changed, ! Killed)
^XMB(3.9 - [#3.9]	XMPSEC+9, P0, FAIL+3, FAIL+5, CNTEG+2, PSECIT+2, PSECIT+3, PSECIT+5, PSECIT+7, PSCRAM+1 , PSCRAM+6, PNTEG+1, PNTEG+2, PNTEG+3*

Name	Line Occurrences
CNTEG	CSCRAM+2
CSCRAM	P0+3
FAIL	XMPSEC+10, P0+7, CHECK+3, CHECK+6
PNTEG	PSCRAM+2
PQSEC	PSECURE+3
PSCRAM	PSECIT+10
PSECIT	PSECURE+9
PSTORE	PSECURE+8
VAL	P0+5, PSECIT+11

Name	Field # of Occurrence
^(	XMPSEC+10, P0+1, CNTEG+2, PSECIT+8, PNTEG+2
^(0	P0+2, PSECIT+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIR	PQSEC+1~
DIR("?"	PQSEC+5, PQSEC+6
DIR("A"	PQSEC+3*
DIR("B"	PQSEC+4*
DIR(0	PQSEC+2*
>> DIRUT	PQSEC+8
I	XMPSEC+4~, XMPSEC+9, XMPSEC+10, XMPSEC+11, P0, P0+1, VAL+1~, VAL+3, CNTEG+2, PSECIT+1~ , PSECIT+2, PSECIT+3, PSECIT+5, PSECIT+6, PSECIT+7, PSECIT+8, PSECIT+10, PSCRAM~, PSCRAM+1, PSCRAM+2 , PSCRAM+6, PNTEG~, PNTEG+1, PNTEG+2*, PNTEG+3
>> P(	FAIL+6
U	XMPSEC+7, XMPSEC+10, CSCRAM+5, CSCRAM+7, CSCRAM+9, FAIL+3, FAIL+5, CHECK+2, CHECK+4, CHECK+5 , PSECIT+5, PSCRAM+1, PSCRAM+6, PNTEG+1
X	CHECK+2, CHECK+4*, CHECK+5, CHECK+6, CNTEG+1, PQSEC+1~
>> XCF	CHECK+1
>> XMA0	XMPSEC+7, CSCRAM+3, CSCRAM+5, CSCRAM+6, CSCRAM+10
XMABORT	PSECURE~, PSECURE+2, PSECURE+3, PSECURE+4, PQSEC~, PQSEC+8
>> XMB0	P0+4, CSCRAM+1*, CSCRAM+3
>> XMDUZ	FAIL+7, FAIL+8
XMFDA	PSTORE+1~
XMFDA(	PSTORE+3, PSTORE+4
XMFROM	FAIL+1~, FAIL+5*, FAIL+6
XMHINT	PSECURE+1~, PSECURE+4, PSECURE+8, PSTORE~, PSTORE+3
XMIENS	PSTORE+1~, PSTORE+2*, PSTORE+3, PSTORE+4
>> XMINIT	CHECK+5*
>> XMINTEG	CNTEG+1*
XMKEY	PSECURE+1~, PSECURE+4, PSECURE+7, PSECURE+8, PSTORE~, PSTORE+4
XMLVAL	VAL+1~, VAL+2, VAL+3, VAL+4
XMNO	PSECURE+1~, PSECURE+3, PQSEC+9*
XMOK	PQSEC~
>> XMPAKMAN("XMRW"	CSCRAM+9, PSCRAM+1, PNTEG+3
>> XMPASS	XMPSEC+6, XMPSEC+7, XMPSEC+10, P0+7, CSCRAM+11, FAIL+2*, FAIL+4, CHECK+3, CHECK+6
XMSECURE	XMPSEC+7, PSECURE+1~
XMSTR	XMPSEC+4~, P0+2, P0+3, P0+5, VAL~, VAL+3, VAL+4, CSCRAM~, CSCRAM+1, CSCRAM+2 , CSCRAM+3, CSCRAM+4, CSCRAM+5, CSCRAM+6, CSCRAM+7, CSCRAM+9, PSECIT+1~, PSECIT+3, PSECIT+4, PSECIT+5 , PSECIT+9, PSECIT+10, PSECIT+11, PSCRAM~, PSCRAM+1, PSCRAM+2, PSCRAM+4, PSCRAM+6, PNTEG~, PNTEG+1 , PNTEG+2*, PNTEG+3
XMSTR(1	PSECIT+12*
XMTEXT	FAIL+1~
XMTEXT(1	FAIL+3*
XMTEXT(2	FAIL+4*
XMTO	FAIL+1~, FAIL+8
XMTO(	FAIL+6, FAIL+7
XMTVAL	XMPSEC+4~, XMPSEC+11, P0+5, VAL~, VAL+4, CSCRAM+3, CSCRAM+9, CSCRAM+11, PSECIT+1~, PSECIT+10 , PSECIT+11, PSCRAM~, PSCRAM+1, PSCRAM+5*
XMZ	XMPSEC+7, XMPSEC+9, P0, FAIL+3, FAIL+5, CNTEG+2, PSECURE~, PSECURE+8, PSECURE+9, PSTORE~ , PSTORE+2, PSECIT~, PSECIT+2, PSECIT+3, PSECIT+5, PSECIT+7, PSECIT+10, PSECIT+13, PSCRAM~, PSCRAM+1 , PSCRAM+2, PSCRAM+6, PNTEG~, PNTEG+1, PNTEG+2, PNTEG+3
Y	PQSEC+1~, PQSEC+9

Customize PDF page

Package: MailMan

Routine: XMPSEC

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: