Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: XUS2

Package: Kernel

Routine: XUS2


Information

XUS2 ;SF/RWF - TO CHECK OR RETURN USER ATTRIBUTES ;2/1/2012

Source Information

Source file <XUS2.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
Kernel 9 ^%ZTER  $$HLNAME^XLFNAME  $$UP^XLFSTR  $$ACCEPT^XUS  ($$AC,$$VC)^XUS4  $$ISUSERCP^XUSAP1  CALL^XUSERP  (,$$EN)^XUSHSH  
(EDIT,USER,XUS2)^XUVERIFY  
VA Fileman 3 CLRMSG^DDS  FILE^DIE  ^DIR  
MailMan 2 NEW^XM  ^XMB  

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
Kernel 7 XUVERIFY  ^DIC(3  ^VA(200  XUS1  XUSRA  XUSRB  XUSRB5  
MSC RPC Broker 1 CIANBRPC  
VistALink Security 1 XOBSCAV1  

Entry Points

Name Comments DBIA/ICR reference
VHELP
YN ;Ask if want to keep
VAUTO ;Auto-get Access codes
AAUTO ;Auto-get Access codes
SVCACCT(XUSDUZ) ;return 1^CONNECTOR PROXY if CP svc acct; 0 if not svc acct
AGEN ;Generate a ACCESS code
DEL ;
USER
DIRUT
CVC ;From XUS1
GET ;Get the user input and convert case.
AASK1 ;
AVHLPTXT(%) ;
  • ICR #4057
    • Status: Active
    • Usage: Controlled Subscription
    AASK ;Ask for Access code
    VC1
    VASK1
    VERED ; VERIFY CODE EDIT From DD
    OUT ;
    VASK ;Ask for Verify Code
    VCHK(S,EC) ;Call with String and Encrypted versions
    BRCVC(XV1,XV2) ;Broker change VC, return 0 if good, '1^msg' if bad.
    CLR ;New line or Clear screenman area
    REASK
    VST(XUH,%) ;
    ACCED ; ACCESS CODE EDIT from DD
    EDIT
    CHK1
    AC1
    AHELP
    NEWCODE
    CHKCUR() ;Check user knows current code, Return 1 if OK to continue
    AST(XUH) ;Change ACCESS CODE and index.
    VGEN ;Generate a VERIFY code

    External References

    Name Field # of Occurrence
    ^%ZTER VST+5, VST+8
    CLRMSG^DDS CLR+3
    FILE^DIE AST+4, VST+4, VST+7
    ^DIR DEL+1, YN+4
    $$HLNAME^XLFNAME VCHK+3
    $$UP^XLFSTR GET+2
    NEW^XM AST+7
    ^XMB AASK1+5
    $$ACCEPT^XUS GET+1
    $$AC^XUS4 AGEN+1, AHELP
    $$VC^XUS4 VHELP, VGEN+1
    $$ISUSERCP^XUSAP1 SVCACCT+1
    CALL^XUSERP VC1+1, BRCVC+5
    ^XUSHSH REASK+1
    $$EN^XUSHSH AASK1+5, VASK1+2, AGEN+1, AHELP, VHELP, VGEN+1, CHK1+1, BRCVC+2, BRCVC+3
    EDIT^XUVERIFY EDIT
    USER^XUVERIFY USER
    XUS2^XUVERIFY AVHLPTXT+4

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: "Enter a new ACCESS CODE <Hidden>: "
    • Line Location: AASK1+1
    Function Call: WRITE
    • Prompt: $C(7),$$AVHLPTXT(1)
    • Line Location: AASK1+3
    Function Call: WRITE
    • Prompt: $C(7),$$AVHLPTXT(1),!
    • Line Location: AASK1+4
    Function Call: WRITE
    • Prompt: $C(7),"This has been used previously as an ACCESS CODE.",!
    • Line Location: AASK1+6
    Function Call: WRITE
    • Prompt: "Please re-type the new code to show that I have it right: "
    • Line Location: REASK+1
    Function Call: WRITE
    • Prompt: "This doesn't match. Try again!",!,$C(7)
    • Line Location: REASK+1
    Function Call: WRITE
    • Prompt: "OK, Access code has been changed!"
    • Line Location: AST+1
    Function Call: WRITE
    • Prompt: !,"The VERIFY CODE has been deleted as a security measure.",!,"You will need to enter a new VERIFY code so the user can sign-on.",$C(7)
    • Line Location: AST+5
    Function Call: WRITE
    • Prompt: !
    • Line Location: CLR+1
    Function Call: WRITE
    • Prompt: !,"OK, remember this code for next time!"
    • Line Location: NEWCODE+0
    Function Call: WRITE
    • Prompt: !,"You must change your VERIFY CODE at this time."
    • Line Location: CVC+3
    Function Call: WRITE
    • Prompt: "Enter a new VERIFY CODE: "
    • Line Location: VASK1+0
    Function Call: WRITE
    • Prompt: $C(7),$P(Y,U,2,9),!
    • Line Location: VASK1+2
    Function Call: WRITE
    • Prompt: !?9
    • Condition for execution: $X>55
    • Line Location: DEL+1
    Function Call: WRITE
    • Prompt: $C(7)," <Nothing Deleted>"
    • Line Location: DEL+1
    Function Call: WRITE
    • Prompt: "The new ACCESS CODE is: ",XUU," This is ",XUK," of 3 tries."
    • Line Location: AGEN+2
    Function Call: WRITE
    • Prompt: !,"Here is an example of an acceptable Access Code: ",XUU,!
    • Line Location: AHELP+1
    Function Call: WRITE
    • Prompt: !,"Here is an example of an acceptable Verify Code: ",XUU,!
    • Line Location: VHELP+1
    Function Call: WRITE
    • Prompt: "The new VERIFY CODE is: ",XUU," This is ",XUK," of 3 tries."
    • Line Location: VGEN+2
    Function Call: WRITE
    • Prompt: !,"O.K. You'll have to keep the next one!",!
    • Line Location: YN+4
    Function Call: WRITE
    • Prompt: !,"Lets stop and you can try later."
    • Line Location: YN+5
    Function Call: WRITE
    • Prompt: !
    • Line Location: OUT+2
    Function Call: WRITE
    • Prompt: "Please enter your CURRENT verify code: "
    • Line Location: CHK1+0
    Function Call: WRITE
    • Prompt: "Sorry that is not correct!",!
    • Line Location: CHK1+2
    Routine Call
    • DDS
    • Line Location:
      • CLR+3
    Routine Call
    • DIE
    • Line Location:
      • AST+4
      • VST+4
      • VST+7
    Routine Call
    • DIR
    • Line Location:
      • DEL+1
      • YN+4

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("EOFF" AASK+1, REASK, VASK+1
    ^%ZOSF("EON" DEL+1, AAUTO+2, VAUTO+2, OUT+2
    ^VA(200 - [#200] AASK1+5, AASK1+6, VCHK+6, VCHK+7, VCHK+8, AGEN+1, AHELP, VHELP, VGEN+1, CHKCUR+2
    , CHK1+1, BRCVC+3
    ^XMB(3.7 - [#3.7] AST+7
    ^XTV(8989.3 - [#8989.3] ACCED+4, VERED+4

    Label References

    Name Line Occurrences
    $$AVHLPTXT AASK1+3, AASK1+4, VCHK+4
    $$CHKCUR VASK+1
    $$SVCACCT VERED+1, VST+6
    $$VCHK VASK1+2, BRCVC+4
    AASK AC1
    AASK1 AASK+3
    AAUTO AC1
    AC1 AC1
    AGEN AAUTO+2, AGEN+1
    AHELP AASK1+3, AHELP
    AST AC1
    CHK1 CHK1+3
    CLR AC1, AASK1+3, AASK1+4, AASK1+6, REASK, REASK+1, VC1, VASK+1, VASK1+2, AGEN+2
    , VGEN+2, YN+6, CHKCUR+3, CHK1+2
    DEL AASK1+2, VASK1+1
    DIRUT AASK1+2, REASK+1, GET+1, VASK+1, VASK1+1, YN+5
    GET AASK1+1, REASK+1, VASK1, CHK1
    OUT AC1, AC1+1, NEWCODE+1, VC1, VC1+2
    REASK AC1, NEWCODE, VC1
    VASK VC1
    VASK1 VASK1+2
    VAUTO VC1
    VC1 VC1
    VGEN VAUTO+2, VGEN+1
    VHELP VASK1+2, VHELP
    VST AST+6, VC1, BRCVC+5
    YN AGEN+3, VGEN+3

    Naked Globals

    Name Field # of Occurrence
    ^( VCHK+6

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % VST~, VST+1, AVHLPTXT~, AVHLPTXT+1
    DA AASK1+5, AST+3, AST+7, CVC+1~, CVC+2*, VERED+1, VERED+4, VC1+1, VCHK+3, VCHK+6
    , VCHK+7, VCHK+8, VST+2, VST+9, VHELP, VGEN+1, CHKCUR+1, CHKCUR+2, CHK1+1, BRCVC+2*
    , BRCVC+5
    >> DDS CLR+1
    >> DDSHBX CLR+3
    DIR ACCED+3~, VERED+1~, YN+1~, OUT+3!
    DIR("?" YN+2*
    DIR("A" DEL+1*, YN+2*, YN+3*
    DIR("B" YN+2*
    DIR(0 DEL+1*, YN+2*
    DIR0 ACCED+3~, VERED+1~
    DIRUT AC1, AASK+3, AASK1+1, REASK+1, DIRUT*, VC1, VASK1, AAUTO+2, VAUTO+2, YN+4
    , OUT+1, OUT+3!, CHK1
    DUOUT OUT+1!*
    DUZ CVC+2, VERED+4, VST+6, VST+9, CHKCUR+1, BRCVC+2, BRCVC+3
    DUZ("NEWCODE" VST+9*
    DX CLR+2~, CLR+3*
    DY CLR+2~, CLR+3*
    EC VCHK~, VCHK+6, VCHK+7, VCHK+8
    ERR AST+2~, VST+2~, VST+5, VST+7!, VST+8
    FDA AST+2~, VST+2~, VST+7!
    FDA(200 AST+4*, VST+4*, VST+7*
    IEN AST+2~, AST+3*, AST+4, VST+2~*, VST+4, VST+6, VST+7
    >> IOXY CLR+3
    NA VCHK+2~, VCHK+3*, VCHK+9
    NA("FIELD" VCHK+3*
    NA("FILE" VCHK+3*
    NA("IENS" VCHK+3*
    PUNC VCHK+2~*
    S VCHK~, VCHK+4, VCHK+5, VCHK+9
    U ACCED+4, VERED+4, VASK1+2, VCHK+6, VCHK+8, VHELP, VGEN+1, CHKCUR+2, CHK1+1
    X ACCED+1*, ACCED+2!, AASK+1~, AASK1+2, AASK1+3, AASK1+4, AASK1+5*, REASK+1, REASK+2, GET+1*
    , GET+2*, CVC+1~, CVC+2*, VERED+2*, VERED+3!, VASK+1~, VASK1+1, VASK1+2*, AGEN+1*, AHELP*
    , VHELP*, VGEN+1*, OUT+3*, CHK1+1
    >> XMB AASK1+5*
    >> XMB(1 AASK1+5*
    >> XMDUN AASK1+5*
    XUAUTO ACCED+3~, ACCED+4*, AC1, AASK1+4, VERED+1~, VERED+4*, VC1, OUT+3!
    XUEX AASK+1~, AASK+2*, AASK+3, AASK1+2*, AASK1+7*
    XUH ACCED+4*, AC1, AASK1+2*, AASK1+5*, AASK1+6, REASK, REASK+1, REASK+2, AST~, AST+4
    , VERED+4*, VC1, VASK1+1*, VASK1+2*, VST~, VST+1, VST+3*, VST+4, VST+6, VST+9
    , AGEN+1*, VGEN+1*, OUT+3!, BRCVC+1~, BRCVC+2*, BRCVC+4, BRCVC+5
    XUI OUT+3!
    XUK ACCED+3~, AC1, REASK*, REASK+1*, REASK+2*, NEWCODE, VC1, AAUTO+1~, AAUTO+2*, AGEN+2
    , VAUTO+1~, VAUTO+2*, VGEN+2, YN+3, YN+4, YN+5, OUT+3!, CHKCUR+3*, CHK1+3*
    XUKO OUT+3!
    >> XUNC VASK1+1
    XUPAT VCHK+2~, VCHK+3*, VCHK+5
    XUSDUZ SVCACCT~, SVCACCT+1
    XUSVCACCT VERED+1~*
    XUSVCMIN VERED+1~*, VCHK+3, VCHK+4, BRCVC+1~*, AVHLPTXT+1
    XUU AASK+1~, AASK1+5*, VASK+1~, VASK1+2*, AGEN+1*, AGEN+2, AHELP*, AHELP+1, VHELP*, VHELP+1
    , VGEN+1*, VGEN+2, OUT+3!, BRCVC+1~
    XV1 BRCVC~, BRCVC+3
    XV2 BRCVC~, BRCVC+2, BRCVC+4
    Y AASK1+2, AST+7*, VASK1+1, VASK1+2*, DEL+1, AAUTO+1~, AAUTO+2, VAUTO+2, YN+2*, YN+4
    , YN+5, BRCVC+4*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All