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

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

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

Name	Field # of Occurrence
^(	N2+7

Local Variables

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

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

Customize PDF page

Package: Kernel

Routine: XUSESIG

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 67

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: