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

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 3 ^DIC  ^DIE  ^DIR  
Kernel 2 $$KSP^XUPARAM  HASH^XUSHSHP  
Toolkit 1 $$GET^XPAR  

Caller Graph

Caller Graph Total: 66

Package Total Caller Graph
Controlled Substances 21 PSDADJ  PSDDWK  PSDGSRV  PSDNRGS  PSDNTT  PSDNTTPC  PSDOPT  PSDOPT0  
PSDORD1  PSDORN1  PSDORN2  PSDORP1  PSDREC1  PSDREC2  PSDREC3  PSDRF  
PSDRF4  PSDRFR  PSDRFS  PSDRFW  PSDTRV  
Outpatient Pharmacy 10 PSOCROC  PSODGAL1  PSODGDG1  PSODGDGI  PSODGDGP  PSODOSUN  PSODOSUT  PSOORRD2  
PSOREJU1  PSOSPMKY  
Drug Accountability 4 PSADJ  PSAPROC  PSATRAN  PSAVER  
PAID 4 PRSPEAF  PRSPEAX  PRSPESR1  PRSPSAP  
Engineering 3 ENTIRC  ENTIRS  ENTIRX  
Surgery 3 SROARPT  SROESAD  SRONIN  
Text Integration Utility 3 TIUDTBPN  TIULA1  TIURD2  
Kernel 2 XUSESIG  XUSESIG CLEAR  
Lab Service 2 LRAPR  LRAPRES  
Mental Health 2 STAFF COMMENTS ENTRY DATE  YSASSN  
Prosthetics 2 RMPR5NDL  RMPRPIYL  
Asists 1 OOPSEMP1  
Dietetics 1 FHOMSA1  
E Claims Management Engine 1 BPSPRRX7  
Inpatient Medications 1 PSJCROC  
Integrated Billing 1 IBARXEX1  
Medicine 1 MCESEDT2  
National Drug File 1 PSNOSKEY  
Order Entry Results Reporting 1 ORCSIGN  
Patient Data Exchange 1 VAQAUT  
Radiology Nuclear Medicine 1 RASIGU  

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.

    External References

    Name Field # of Occurrence
    ^DIC CLEAR+1
    ^DIE A2+14, CLEAR+3
    ^DIR CLEAR+2
    $$GET^XPAR A2+5
    $$KSP^XUPARAM SIG+5
    HASH^XUSHSHP N2+4, S2+2

    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
    Routine Call
    • DIC
    • Line Location:
      • CLEAR+1
    Routine Call
    • DIE
    • Line Location:
      • A2+14
      • CLEAR+3
    Routine Call
    • DIR
    • Line Location:
      • CLEAR+2

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("EOFF" R
    ^%ZOSF("EON" R
    ^DD(200 N2+7
    ^VA(200 - [#200] A2+1, A2+15, A2+16, N2+5, N2+6*, SIG+2

    Label References

    Name Line Occurrences
    $$NEW A2+17, SIG+8
    N2 N2+1, N2+3, N2+5
    N5 N2+2, N2+3
    OUT A2+2, CLEAR+1
    OUT1 A2+15, A2+16, A2+18, CLEAR+2, CLEAR+3
    R N2N2+2, S2
    S2 A2+16, SIG+3, S2+1, S2+2
    S9 S2S2+2

    Naked Globals

    Name Field # of Occurrence
    ^( N2+7

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % OUT1!
    A OUT1!
    D OUT1!
    D0 OUT1!
    DA A+2*, A2+1*, A2+2, A2+15, A2+16, N2+5, N2+6, OUT1!, SIG+8~*, CLEAR+1*
    DIC OUT1!, CLEAR+1*, CLEAR+3
    DIC(0 CLEAR+1*
    DIE A2~, A2+12*, OUT1!, CLEAR+3*
    >> DIR(0 CLEAR+1*
    DQ OUT1!
    DR A2~, A2+12*, A2+13*, OUT1!, CLEAR+3*
    DUZ A+1, A+2, SIG+2, SIG+8
    I OUT1!
    K A2~, A2+16*, NEW+1~*, N2+3*, OUT1!, SIG+1~, SIG+3*, S2+2*
    LIFE SIG+5~*, SIG+6
    U A2+15, N2+5, SIG+2, CLEAR+2
    X NEW+1~, N2N2+1, N2+2, N2+3, N2+5, N2+6, R*, OUT1!, S2
    S2+1, S2+2*, S9
    X1 A2~, A2+16*, A2+17*, NEW+1~, N2+2*, N2+3, OUT1!, SIG+2*, SIG+3, SIG+6
    SIG+8*, S2+2, S9*
    X2 SIG+1~, SIG+2*, SIG+6*
    >> XUS N2+7*
    XUSGBLK A2+4~*, A2+5*, A2+6, A2+8, A2+13, OUT1!
    >> Y CLEAR+1, CLEAR+2
    Z OUT1!
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All