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 ;10/16/2006

Source Information

Source file <XUSESIG.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 3 ^DIC  ^DIE  ^DIR  
Kernel 2 $$KSP^XUPARAM  HASH^XUSHSHP  

Caller Graph

Caller Graph Total: 67

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  
IHS Accounts Receivable 14 BARBAD  BARCLU  BAREDP00  BARFPST  BARNCPDP  BARPMUP  BARPMUP2  BARPNP  
BARPPY01  BARPRF  BARPRMKP  BARPST  BARPUC  BARUFLOG  
Outpatient Pharmacy 5 PSODGDG1  PSODGDGI  PSODRDUP  PSOORRD2  PSOREJU1  
Drug Accountability 4 PSADJ  PSAPROC  PSATRAN  PSAVER  
IHS Changes To Pharmacy 3 APSPFUNC  APSQCK  APSQDGDG  
Surgery 3 SROARPT  SROESAD  SRONIN  
Contract Health Management Information System 2 ACHSSIG1  ACHSSIG2  
Kernel 2 XUSESIG  XUSESIG CLEAR  
Lab Service 2 LRAPR  LRAPRES  
Mental Health Social Services 2 AMHEGR  AMHESIG  
Text Integration Utility 2 TIULA1  TIURD2  
Dietetics 1 FHOMSA1  
IHS Changes To Lab 1 BLRALBR  
Integrated Billing 1 IBARXEX1  
Medicine 1 MCESEDT2  
Order Entry Results Reporting 1 ORCSIGN  
Radiology Nuclear Medicine 1 RASIGU  
Third Party Billing 1 ABMUCASH  

Entry Points

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

    External References

    Name Field # of Occurrence
    ^DIC CLEAR+1
    ^DIE A+9, CLEAR+3
    ^DIR CLEAR+2
    $$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: A+4
    Function Call: WRITE
    • Prompt: !,"This option is designed to permit you to enter or change your Initials,"
    • Line Location: A+5
    Function Call: WRITE
    • Prompt: !,"Signature Block Information, Office Phone number, and Voice and",!,"Digital Pagers numbers."
    • Line Location: A+6
    Function Call: WRITE
    • Prompt: !,"In addition, you are permitted to enter a new Electronic Signature Code"
    • Line Location: A+7
    Function Call: WRITE
    • Prompt: !,"or to change an existing code."
    • Line Location: A+8
    Function Call: WRITE
    • Prompt: !!
    • Line Location: A+9
    Function Call: WRITE
    • Prompt: !,"You must have a SIGNATURE BLOCK PRINTED NAME before you can have",!,"an ELECTRONIC SIGNATURE CODE."
    • Line Location: A+10
    Function Call: WRITE
    • Prompt: !,$S(X1:"DONE",1:" OPTION ABORTED."_$C(7))
    • Line Location: A+12
    Function Call: WRITE
    • Prompt: !!,"Your typing will not show."
    • Line Location: NEW+2
    Function Call: READ
    • Timeout: X=""!(X="^")
    • Variable: Q
    • 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
    • Timeout: X=""!(X="^")
    • Variable: G
    • 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
    • Timeout: 60
    • Variable: X
    • 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
    • Timeout: X=""!(X="^")
    • Variable: G
    • 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
    • DIE
    • Line Location:
      • A+9
      • CLEAR+3
    Routine Call
    • DIC
    • Line Location:
      • CLEAR+1
    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] A+3, A+10, A+11, N2+5, N2+6*, SIG+2

    Label References

    Name Line Occurrences
    $$NEW A+12, SIG+8
    N2 N2+1, N2+3, N2+5
    N5 N2+2, N2+3
    OUT A+4, CLEAR+1
    OUT1 A+10, A+11, A+13, CLEAR+2, CLEAR+3
    R N2, N2+2, S2
    S2 A+11, SIG+3, S2+1, S2+2
    S9 S2, S2+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~, A+3*, A+4, A+10, A+11, N2+5, N2+6, OUT1!, SIG+8~*, CLEAR+1*
    DIC OUT1!, CLEAR+1*, CLEAR+3
    DIC(0 CLEAR+1*
    DIE A+2~, A+9*, OUT1!, CLEAR+3*
    >> DIR(0 CLEAR+1*
    DQ OUT1!
    DR A+2~, A+9*, OUT1!, CLEAR+3*
    DUZ A+1, A+3, SIG+2, SIG+8
    I OUT1!
    K A+2~, A+11*, NEW+1~*, N2+3*, OUT1!, SIG+1~, SIG+3*, S2+2*
    LIFE SIG+5~*, SIG+6
    U A+10, N2+5, SIG+2, CLEAR+2
    X NEW+1~, N2, N2+1, N2+2, N2+3, N2+5, N2+6, R*, OUT1!, S2
    , S2+1, S2+2*, S9
    X1 A+2~, A+11*, A+12*, 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*
    >> 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