Routine: XUSERNEW

Information

XUSERNEW ;SF/RWF - ADD NEW USER ;11/1/22 14:04

Name	Comments	DBIA/ICR reference
EN	;Add
KEYS
EXIT
RE	;Jump from new user to reactivate
REACT	;SEA/WDE-REACTIVATE A USER
RE2
ADD(NP1,KEYS,NONC)	;Common point to do DIC call for adding a new person.	ICR #10053 Status: Active Usage: Supported
AX
REPRINT	;Reprint letter
LETTER(XUN,ASK)	;Print access letter

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Without a VERIFY code the user will not be able to sign-on!",$C(7),! Line Location: EN+6
Function Call: WRITE	Prompt: ! Line Location: EN+9
Function Call: WRITE	Prompt: !!,"No ACCESS CODE has been entered.",$C(7),! Line Location: RE2+6
Function Call: WRITE	Prompt: !!,"User is still TERMINATED.",$C(7),! Line Location: RE2+7
Function Call: WRITE	Prompt: !,"Without a VERIFY code the user will not be able to sign-on!",$C(7),! Line Location: RE2+8
Function Call: WRITE	Prompt: ! Line Location: ADD+10
Function Call: WRITE	Prompt: !,"Name components." Line Location: ADD+13
Function Call: WRITE	Prompt: !,"Now for the Identifiers." Line Location: ADD+19
Function Call: WRITE	Prompt: !?5,"<'",$P(^VA(200,DA,0),U),"' DELETED>" Line Location: ADD+24
Function Call: WRITE	Prompt: !,"Key '",Y,"' not allocated" Line Location: ADD+38