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

Package: Kernel

Routine: XUSESIG


Information

XUSESIG ;SF/RWF - ROUTINE TO ENTER OR CHANGE ELECTRONIC SIGNATURE CODE ; 09 Mar 2017 10:17 AM

Source Information

Source file <XUSESIG.m>

Entry Points

Name Comments DBIA/ICR reference
A ;Called by others from the top. See DBIC #936
A2
NEW() ;Enter a NEW E-Sig code, return 0 for fail, 1 if done, 2 skip.
N2
N4
N5
R
OUT
OUT1
SIG ;Call with DUZ; Return X1="" if fail else hashed ESC.
  • ICR #10050
    • Status: Active
    • Usage: Supported
    S2
    S9
    TEXT ;;
    CLEAR ;Clear (delete) a users ESC to allow entering a new one.

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: "NO ACTION CAN BE TAKEN ON YOUR REQUEST "
    • Line Location: A+1
    Function Call: WRITE
    • Prompt: !,"You don't have an entry in the NEW PERSON file, See your site manager"
    • Line Location: A2+2
    Function Call: WRITE
    • Prompt: !,"This option is designed to permit you to enter or change your Initials,",!
    • Line Location: A2+3
    Function Call: WRITE
    • Prompt: "Signature Block Information, "
    • Line Location: A2+6
    Function Call: WRITE
    • Prompt: "Office Phone number, and Voice and Digital Pagers "
    • Line Location: A2+7
    Function Call: WRITE
    • Prompt: !
    • Line Location: A2+8
    Function Call: WRITE
    • Prompt: "numbers."
    • Line Location: A2+9
    Function Call: WRITE
    • Prompt: !,"In addition, you are permitted to enter a new Electronic Signature Code"
    • Line Location: A2+10
    Function Call: WRITE
    • Prompt: !,"or to change an existing code.",!!
    • Line Location: A2+11
    Function Call: WRITE
    • Prompt: !,"You must have a SIGNATURE BLOCK PRINTED NAME before you can have",!,"an ELECTRONIC SIGNATURE CODE."
    • Line Location: A2+15
    Function Call: WRITE
    • Prompt: !,$S(X1:"DONE",1:" OPTION ABORTED."_$C(7))
    • Line Location: A2+17
    Function Call: WRITE
    • Prompt: !!,"Your typing will not show."
    • Line Location: NEW+2
    Function Call: READ
    • Variable: Q
    • Timeout: X=""!(X="^")
    • Line Location: N2+0
    Function Call: WRITE
    • Prompt: !,"ENTER NEW SIGNATURE CODE: "
    • Line Location: N2+0
    Function Call: WRITE
    • Prompt: *7,!,"Signature code must be 6 to 20 characters in length",!," With no control or lowercase characters.",!
    • Line Location: N2+1
    Function Call: READ
    • Variable: G
    • Timeout: X=""!(X="^")
    • Line Location: N2+2
    Function Call: WRITE
    • Prompt: !,"RE-ENTER SIGNATURE CODE FOR VERIFICATION: "
    • Line Location: N2+2
    Function Call: WRITE
    • Prompt: " CODE NOT VERIFIED, TRY AGAIN.",*7,!
    • Line Location: N2+3
    Function Call: WRITE
    • Prompt: *7,!,"You can't use the same one.",!
    • Line Location: N2+5
    Function Call: READ
    • Variable: X
    • Timeout: 60
    • Line Location: R+0
    Function Call: WRITE
    • Prompt: !," OPTION ABORTED.",*7
    • Line Location: OUT+0
    Function Call: WRITE
    • Prompt: !,"No Electronic Signature code to check."
    • Line Location: SIG+2
    Function Call: WRITE
    • Prompt: !,*7,"Verification with held until new code entered.",!
    • Line Location: SIG+6
    Function Call: WRITE
    • Prompt: !!,"Your Electronic Signature Code has expired, you need to create a new one."
    • Line Location: SIG+7
    Function Call: READ
    • Variable: G
    • Timeout: X=""!(X="^")
    • Line Location: S2+0
    Function Call: WRITE
    • Prompt: !!,"Enter your Current Signature Code: "
    • Line Location: S2+0
    Function Call: WRITE
    • Prompt: !,"Enter your current Electronic Signature Code so it can be verified.",!
    • Line Location: S2+1
    Function Call: WRITE
    • Prompt: " ??",*7
    • Line Location: S2+2
    Function Call: WRITE
    • Prompt: " SIGNATURE VERIFIED"
    • Line Location: S2+3
    Info |  Source |  Entry Points |  Interaction Calls