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

Package: Kernel

Routine: XUSERNEW


Information

XUSERNEW ;SF/RWF - ADD NEW USER ;5/13/08 17:19

Source Information

Source file <XUSERNEW.m>

Call Graph

Call Graph Total: 17

Package Total Call Graph
Kernel 9 $$NOW^XLFDT  KEY^XQ6  REACT^XQ84  $$ADD^XQKEY  $$GET^XUPARAM  XUDIE^XUS5  $$LOOKUP^XUSER  CALL^XUSERP  
$$ADDNPI^XUSNPI  
VA Fileman 6 ^DIC  (,UPDATE)^DIE  ^DIK  $$GET1^DIQ  ^DIR  EN2^DIWF  
MailMan 2 NEW^XM  ENLOCAL1^XMVGRP  

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Kernel 4 XUSERBLK  XUSERNEW  XUSERREACT  XUSERREPRINT  
IHS VA Support Files 1 AVA200  
Outpatient Pharmacy 1 PSOPRVW  

Entry Points

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

    External References

    Name Field # of Occurrence
    ^DIC ADD+8
    ^DIE ADD+12, ADD+18, ADD+32
    UPDATE^DIE RE2+2
    ^DIK ADD+22, ADD+24, ADD+26
    $$GET1^DIQ EN+6, RE2+8
    ^DIR KEYS+1, KEYS+7, RE+2, RE2+11, LETTER+5
    EN2^DIWF LETTER+6
    $$NOW^XLFDT ADD+29
    NEW^XM EN+7, RE2+12
    ENLOCAL1^XMVGRP KEYS+8
    KEY^XQ6 KEYS+2
    REACT^XQ84 RE2+13
    $$ADD^XQKEY ADD+35
    $$GET^XUPARAM EN+4, RE2+4, LETTER+3
    XUDIE^XUS5 EN+5, RE2+5
    $$LOOKUP^XUSER REACT+2, REPRINT+1
    CALL^XUSERP ADD+36
    $$ADDNPI^XUSNPI ADD+29

    Interaction Calls

    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: !,"Name components."
    • Line Location: ADD+10
    Function Call: WRITE
    • Prompt: !,"Now for the Identifiers."
    • Line Location: ADD+16
    Function Call: WRITE
    • Prompt: !?5,"<'",$P(^VA(200,DA,0),U),"' DELETED>"
    • Line Location: ADD+21
    Function Call: WRITE
    • Prompt: !,"Key '",Y,"' not allocated"
    • Line Location: ADD+35
    Routine Call
    • DIE
    • Line Location:
      • RE2+2
    Routine Call
    • DIE
    • Line Location:
      • ADD+12
      • ADD+18
      • ADD+32
    Routine Call
    • DIC
    • Line Location:
      • ADD+8
    Routine Call
    • DIR
    • Line Location:
      • KEYS+1
      • KEYS+7
      • RE+2
      • RE2+11
      • LETTER+5

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD(16 ADD+25
    ^DD(3 ADD+23
    ^DIC(16 - [#16] ADD+25
    ^DIC(3 - [#3] ADD+23, ADD+24
    ^DIC(9.2 - [#9.2] LETTER+3
    ^VA(20 - [#20] ADD+12
    ^VA(200 - [#200] KEYS+5, RE2, RE2+6, RE2+7, ADD+9, ADD+14, ADD+18, ADD+21, ADD+27
    ^XMB(3.9 - [#3.9] RE2+12
    ^XTV(8989.3 - [#8989.3] ADD+4
    ^XUSEC("XUSPF200" ADD+5

    Label References

    Name Line Occurrences
    $$ADD EN+2
    AX ADD+8
    EXIT EN+2, EN+5, KEYS+1, RE+3, REACT+2, RE2+5, RE2+11, REPRINT+1, REPRINT+3
    KEYS RE2+14
    LETTER EN+9, REPRINT+2
    RE EN+2
    RE2 RE+3

    Naked Globals

    Name Field # of Occurrence
    ^("NPI" ADD+4
    ^(0 RE2+7

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % ADD+35*
    ASK LETTER~, LETTER+5
    BY LETTER+2~, LETTER+6*
    D0 EXIT!
    DA EN+1~, EN+5*, EXIT!, REACT+1~, RE2+4*, ADD+3~, ADD+9*, ADD+12, ADD+13*, ADD+17*
    , ADD+18, ADD+21, ADD+24, ADD+26*, ADD+27, ADD+29, ADD+32~*, REPRINT+1*, REPRINT+2
    DDER EXIT!
    DDSFILE EXIT!
    DI EXIT!
    DIC EXIT!, REACT+1~, ADD+3~, ADD+7*
    DIC("A" ADD+7*
    DIC("DR" ADD+7*
    DIC(0 ADD+7*
    DICR EXIT!
    DIE EN+1~, EN+5*, EXIT!, REACT+1~, RE2+4*, ADD+3~, ADD+11*, ADD+17*, ADD+32~*
    DIE("NO^" ADD+17*
    DIG EXIT!
    DIH EXIT!
    DIK ADD+3~, ADD+22*, ADD+24*, ADD+26*
    DIR EN+10!, KEYS~, KEYS+6~, EXIT!, RE2+9~, LETTER+2~
    DIR("?" RE2+10*
    DIR("A" KEYS+1*, KEYS+7*, RE+1*, RE2+10*, LETTER+4*
    DIR("B" KEYS+1*, KEYS+7*, RE+1*, RE2+10*
    DIR(0 KEYS+1*, KEYS+7*, RE+1*, RE2+10*, LETTER+4*
    >> DIRUT KEYS+1, KEYS+7, RE+3, RE2+11
    DISYS EXIT!
    DIU EXIT!
    DIV EXIT!
    DIWF EN+1~, EN+10!, LETTER+2~, LETTER+6*
    DIWF(1 LETTER+6*
    DIWT EXIT!
    DLAYGO EXIT!, ADD+3~, ADD+7*
    DQ EXIT!
    DR EN+1~, EN+4*, EXIT!, REACT+1~, RE2+4*, ADD+3~, ADD+4, ADD+11*, ADD+17*, ADD+32~*
    DT RE2+7
    DTOUT EN+1~, EN+5, EXIT!, RE2+5, ADD+13, ADD+19
    DUZ ADD+5
    FDA REACT+1~
    FDA(200 RE2+1*
    FR LETTER+2~, LETTER+6*
    I EXIT!
    K EXIT!
    KEYS ADD~, ADD+34
    NONC ADD~, ADD+9
    NP1 ADD~, ADD+17
    NP2 ADD+3~, ADD+4*, ADD+5*, ADD+17
    TO LETTER+2~, LETTER+6*
    U EN+2, KEYS+5, RE2+6, RE2+7, ADD+8, ADD+14, ADD+21, ADD+23, ADD+24, ADD+25
    X EXIT!
    X1 EXIT!
    XMB EXIT!
    XMDT EN+1~, EN+7!, RE2+12!
    XMDUN KEYS+9!
    XMDUZ KEYS+9!
    XMM EN+1~, EN+7!, RE2+12!
    XMV KEYS+9!
    XMZ EN+1~, EN+7!, EXIT!, RE2+12!*
    XQ6 KEYS~, KEYS+2*, EXIT!
    XQAL KEYS~, KEYS+2*
    XQDA KEYS~, KEYS+2*
    XQFL KEYS~, KEYS+2*, EXIT!
    XQHOLD KEYS~, EXIT!
    XQHOLD( KEYS+2*
    XQKEY KEYS~, EXIT!
    XQKEY(0 KEYS+2*
    XUITNAME ADD+3~, ADD+7*
    XUN EN+1~, EN+3*, EN+5, EN+6, EN+7, EN+9, KEYS+2, KEYS+5, KEYS+8, EXIT!
    , RE+1*, REACT+1~, REACT+2*, RE2, RE2+1, RE2+4, RE2+6, RE2+7, RE2+8, RE2+12
    , RE2+13, LETTER~, LETTER+1, LETTER+6
    XUS1 ADD+3~, ADD+8*, ADD+9, ADD+13*, ADD+14*, ADD+15, ADD+17, ADD+19*, ADD+20*, ADD+24*
    , ADD+25, ADD+26, ADD+28, ADD+32, ADD+34, ADD+35, ADD+36, AX
    XUS2 ADD+3~, ADD+34*
    XUSNPI ADD+27~*, ADD+28, ADD+29*, ADD+31
    XUSOLD EXIT!, REACT+1~, RE2*
    XUTEXT EN+10!, LETTER+2~, LETTER+3*, LETTER+5
    >> XUU LETTER+6*
    >> XUU2 LETTER+6*
    Y EN+1~, EN+2*, EN+3, EN+7*, KEYS+2, KEYS+6~, KEYS+8, EXIT!, RE+1, RE+3
    , RE2+12*, ADD+3~, ADD+8, ADD+13, ADD+19, ADD+34*, ADD+35, LETTER+5*
    Z EXIT!
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All