Routine: TIURS

Package	Total	Call Graph
Text Integration Utility	24	ADD^TIUADD $$ASURG^TIUADSIG SEND^TIUALRT ISCNSLT^TIUCNSLT $$CLASS^TIUCP SIGNIRT^TIUDIRT PRINT^TIUEPRNT $$ASKSIG^TIULA1 $$NOW^TIULC ($$ISADDNDM,$$PERSNAME,$$PNAME,$$POSTSIGN,DOCPRM)^TIULC1 GETTIU^TIULD ($$PERSPRF,SETPARM)^TIULE $$EMPTYDOC^TIULF ($$CANDO,$$REQCOSIG,$$REQCPF)^TIULP ($$ISA,$$ISDS,$$ISPN)^TIULX MAIN^TIUPD $$FLAG^TIUPRPN3 QUE^TIUPXAP1 ($$CHKVST,$$CHKWKL,EDTENC)^TIUPXAP2 $$LNKVST^TIUPXAP3 ADDSIG^TIURS1 ($$HASKIDS,SETKIDS)^TIUSRVLI $$READ^TIUU (CREDIT,REMFLAG)^TIUVSIT
Authorization Subscription	1	$$ISA^USRLM
List Manager	1	FULL^VALM1
RPC Broker	1	$$BROKER^XWBLIB
VA FileMan	1	^DIE

Package	Total	Caller Graph
Text Integration Utility	14	TIU BROWSE ACTION APPROVE TIU BROWSE ACTION SIGN/COSIGN TIUADD TIUCCRHL7P2 TIUEDIM TIUEDIT TIUEDITR TIUGEDIT TIUHL7U1 TIUPNAPI TIURA TIURS1 TIUSROI TIUSRVP2
Kernel	1	^ORD(101
Order Entry Results Reporting	1	ORCNOTE

Entry Points

Name	Comments	DBIA/ICR reference
ACCEPT(TIUSLST,TIUI)	; Accept for signing
EDSIG(TIUDA,TIUADD,TIUPASK)	; interactive sign
ASKCPF(DA)	;Ask required clinical procedure fields
AGNCP
ASKCPFQ
ASKCSNR(DA,SIGNER)	; Ask cosigner
AGN
ASKCOUT
ES(DA,TIUES,TIUI)	; ^DIE call for /es/
THIRD	;

External References

Name	Field # of Occurrence
^DIE	AGNCP+4, AGN+5, ES+19, ES+25
ADD^TIUADD	EDSIG+53
$$ASURG^TIUADSIG	EDSIG+11
SEND^TIUALRT	ES+26
ISCNSLT^TIUCNSLT	ES+65
$$CLASS^TIUCP	EDSIG+28
SIGNIRT^TIUDIRT	ES+26
PRINT^TIUEPRNT	EDSIG+56
$$ASKSIG^TIULA1	EDSIG+46
$$NOW^TIULC	ES+5
$$ISADDNDM^TIULC1	EDSIG+50, ES+28, ES+70
$$PERSNAME^TIULC1	ASKCSNR+3
$$PNAME^TIULC1	EDSIG+15
$$POSTSIGN^TIULC1	ES+62
DOCPRM^TIULC1	EDSIG+55, ES+4
GETTIU^TIULD	ES+58
$$PERSPRF^TIULE	ASKCSNR+2
SETPARM^TIULE	EDSIG+4
$$EMPTYDOC^TIULF	EDSIG+45
$$CANDO^TIULP	ACCEPT+3, EDSIG+14, THIRD+2
$$REQCOSIG^TIULP	EDSIG+34, THIRD+4
$$REQCPF^TIULP	EDSIG+28
$$ISA^TIULX	EDSIG+28
$$ISDS^TIULX	ASKCSNR+5
$$ISPN^TIULX	EDSIG+18
MAIN^TIUPD	ES+29
$$FLAG^TIUPRPN3	ACCEPT+16
QUE^TIUPXAP1	ES+39, ES+60
$$CHKVST^TIUPXAP2	ES+34
$$CHKWKL^TIUPXAP2	ES+43, ES+46
EDTENC^TIUPXAP2	ES+46
$$LNKVST^TIUPXAP3	ES+55
ADDSIG^TIURS1	EDSIG+48
$$HASKIDS^TIUSRVLI	ES+75
SETKIDS^TIUSRVLI	ES+78
$$READ^TIUU	ACCEPT+8, ACCEPT+13, EDSIG+22, EDSIG+33, EDSIG+38, EDSIG+41, EDSIG+43, EDSIG+45, EDSIG+52, AGNCP+2 , AGN+2, ES+40
CREDIT^TIUVSIT	ES+43
REMFLAG^TIUVSIT	ES+47
$$ISA^USRLM	EDSIG+18, EDSIG+19, EDSIG+20, ES+6
FULL^VALM1	ACCEPT+5, EDSIG+47, ASKCPF+2, ASKCSNR+6
$$BROKER^XWBLIB	ES+52

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Document has changed...",!,$P(TIUSGN,U,2) Line Location: ACCEPT+6
Function Call: WRITE	Prompt: !!,"Item #",TIUI,": Removed from signature list.",! Line Location: ACCEPT+7
Function Call: WRITE	Prompt: !,"Item #",TIUI,": Added to signature list." Line Location: ACCEPT+10
Function Call: WRITE	Prompt: !,$P(ASK,U,2) Line Location: EDSIG+21
Function Call: WRITE	Prompt: !!,"The Procedure Summary Code and Date/Time Performed MUST be entered before",!,"you may sign.",! Line Location: EDSIG+32
Function Call: WRITE	Prompt: !!,"This ",TIUTYPE," MUST have a cosigner before you may sign.",! Line Location: EDSIG+37
Function Call: WRITE	Prompt: !?5,$C(7),"Another user is editing this entry.",! Line Location: EDSIG+43
Function Call: WRITE	Prompt: "" Condition for execution: $$READ^TIUU("EA","Press RETURN to continue...") Line Location: EDSIG+43
Function Call: WRITE	Prompt: !?5,$C(7),"This note contains no text and cannot be signed.",! Line Location: EDSIG+45
Function Call: WRITE	Prompt: "" Condition for execution: $$READ^TIUU("EA","Press RETURN to continue...") Line Location: EDSIG+45
Function Call: WRITE	Prompt: !!,$C(7),"You must designate the Procedure Summary Code and Date/Time Performed...",! Line Location: AGNCP+0
Function Call: WRITE	Prompt: !?5,$C(7),"Another user is editing this entry.",! Line Location: AGNCP+2
Function Call: WRITE	Prompt: "" Condition for execution: $$READ^TIUU("EA","Press RETURN to continue...") Line Location: AGNCP+2
Function Call: WRITE	Prompt: !!,$C(7),"You must designate an ",TIUFLD,"...",! Line Location: AGN+0
Function Call: WRITE	Prompt: !?5,$C(7),"Another user is editing this entry.",! Line Location: AGN+2
Function Call: WRITE	Prompt: "" Condition for execution: $$READ^TIUU("EA","Press RETURN to continue...") Line Location: AGN+2
Function Call: WRITE	Prompt: !! Line Location: ES+38
Function Call: WRITE	Prompt: !! Line Location: ES+41
Routine Call	DIE Line Location: AGNCP+4 AGN+5 ES+19 ES+25

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^TIU(8925 - [#8925]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TIU(8925 - [#8925]	EDSIG+7, EDSIG+28, EDSIG+29, EDSIG+42, EDSIG+46, AGNCP+1, ASKCPFQ, ASKCPFQ+1, ASKCSNR+5, AGN+1 , ASKCOUT, ASKCOUT+1, ES+3, ES+4, ES+5, ES+7, ES+8, ES+22, ES+28, ES+31 , ES+37, ES+52, ES+59, ES+62, ES+65, ES+70, ES+74, THIRD+3
^TIU(8925.7 - [#8925.7]	EDSIG+10

Label References

Name	Line Occurrences
$$ASKCPF	EDSIG+30
$$ASKCSNR	EDSIG+35
ASKCOUT	AGN+2
ASKCPFQ	AGNCP+2
ES	EDSIG+49
THIRD	ES+12

Naked Globals

Name	Field # of Occurrence
^(0	ES+52
^(12	EDSIG+7, ES+7
^(15	EDSIG+7
^(702	EDSIG+29, ASKCPFQ+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ASK	EDSIG+1~, EDSIG+14*, EDSIG+16, EDSIG+21
COSIGNER	EDSIG+1~, EDSIG+9, EDSIG+10, EDSIG+34, EDSIG+35, EDSIG+36, ES+1~, ES+7*, ES+11
CSNEED	ES+2~, ES+8*, ES+10, ES+11, ES+15
CSREQ	ES+1~, ES+7, ES+10, ES+12, ES+14, ES+15, ES+29, ES+70, ES+83
D0	ES+53~
DA	ASKCPF~, AGNCP+1, ASKCPFQ, ASKCPFQ+1, ASKCSNR~, ASKCSNR+5, AGN+1, ASKCOUT, ASKCOUT+1, ES~ , ES+3, ES+4, ES+5, ES+7, ES+8, ES+22, ES+26, ES+27, ES+28*, ES+29 , ES+31, ES+34, ES+37, ES+43, ES+46, ES+47, ES+52, ES+55, ES+58, ES+59 , ES+62, ES+65, ES+70, ES+71, ES+74, ES+75, ES+78, THIRD+2, THIRD+4
DAO	ES+2~
DAORIG	ES+2~, ES+27*, ES+70, ES+71
DFN	ES+53~, ES+59*
DIE	ASKCPF+1~, AGNCP+4, ASKCSNR+1~, AGN+5, ES+1~, ES+19, ES+25
DR	ASKCPF+1~, AGNCP+3, ASKCSNR+1~, AGN+3, AGN+4, ES+1~, ES+14, ES+16, ES+17, ES+18 , ES+20, ES+22, ES+23, ES+24
DT	ES+37
DUZ	EDSIG+10, EDSIG+18, EDSIG+19, EDSIG+20, EDSIG+39, ES+6, ES+10, ES+11, ES+14, ES+16 , ES+17, THIRD+4
ESDT	ES+1~, ES+5*, ES+14, ES+16, ES+17
SEQUENCE	ES+76~, ES+77*
SIGNER	EDSIG+1~, EDSIG+8, EDSIG+10, EDSIG+34, EDSIG+35, EDSIG+39, ASKCSNR~, ASKCSNR+2, ES+1~, ES+7 , ES+10, ES+11
SVCHIEF	ES+1~, ES+6*, ES+10, ES+12
TIU	EDSIG+1~, ES+53~, ES+58
TIU0	EDSIG+1~, EDSIG+7*, EDSIG+12, EDSIG+15, EDSIG+18, EDSIG+28, EDSIG+34, EDSIG+55
TIU12	EDSIG+1~, EDSIG+7*, EDSIG+8, EDSIG+9
TIU15	EDSIG+2~, EDSIG+7*, EDSIG+34
TIUACT	EDSIG+2~, EDSIG+13*, EDSIG+14, EDSIG+50
TIUADD	EDSIG~, EDSIG+6*
TIUADDND	EDSIG+51~, EDSIG+52*, EDSIG+53
>> TIUCHNG	EDSIG+53, ES+25*
TIUCOM	EDSIG+2~, EDSIG+50, EDSIG+51, EDSIG+53
TIUCONS	ES+64~*, ES+65, ES+67
TIUCONT	ES+35~
TIUCPFLD	EDSIG+2~, EDSIG+28, EDSIG+29, EDSIG+30, EDSIG+31
TIUCSPM2	ES+2~, ES+3, ES+12, THIRD+4
TIUCSPRM	ES+2~, ES+3, ES+12, THIRD+2
TIUDA	ACCEPT+2, ACCEPT+3, EDSIG~, EDSIG+7, EDSIG+10, EDSIG+11, EDSIG+14, EDSIG+28, EDSIG+29, EDSIG+30 , EDSIG+34, EDSIG+35, EDSIG+42, EDSIG+45, EDSIG+46, EDSIG+48, EDSIG+49, EDSIG+50, EDSIG+53, EDSIG+55 , EDSIG+56, THIRD+3
TIUDCSNR	ASKCSNR+1~, ASKCSNR+3, ASKCSNR+4
TIUDPRM	EDSIG+2~, EDSIG+55, ES+2~, ES+4, ES+43, ES+46
TIUDPRM(0	ACCEPT+11, ACCEPT+15, EDSIG+56
TIUES	EDSIG+2~, EDSIG+46*, EDSIG+49, ES~
>> TIUEVNT	ACCEPT+2, ACCEPT+3
TIUFLAG	ACCEPT+1~, ACCEPT+16*, ACCEPT+17
TIUFLD	ASKCSNR+1~, ASKCSNR+5*, AGN, AGN+3
TIUI	ACCEPT~, ACCEPT+7, ACCEPT+9, ACCEPT+10, ACCEPT+14, ACCEPT+17, ACCEPT+18, ES~
TIUINT	ES+76~, ES+77*, ES+78
TIUK	ES+76~, ES+77, ES+79
TIUKIDS	ES+76~, ES+77*, ES+78
TIUKIDS(	ES+79
TIUMSG	ACCEPT+1~, ACCEPT+12, ACCEPT+13, EDSIG+1~, EDSIG+40, EDSIG+41
TIUPASK	EDSIG~, EDSIG+54
TIUPR	ACCEPT+1~, ACCEPT+13*, ACCEPT+14, ACCEPT+15
TIUPREF	ASKCSNR+1~, ASKCSNR+2*, ASKCSNR+3
TIUPRINT	ES+1~
>> TIUPRM0	EDSIG+4, EDSIG+5
TIUPRMT	ES+35~
TIUPSIG	ES+2~, ES+62*, ES+79, ES+83
>> TIUQUIT	EDSIG+43*
TIUSBY	ES+22~*, ES+23
TIUSGN	ACCEPT+1~, ACCEPT+2, ACCEPT+3*, ACCEPT+4, ACCEPT+6
>> TIUSIGN	EDSIG+3
TIUSLST	ACCEPT~
TIUSLST(	ACCEPT+9, ACCEPT+14, ACCEPT+17, ACCEPT+18
TIUSTAT	EDSIG+1~, EDSIG+12, EDSIG+13, EDSIG+39, ES+1~, ES+5, ES+10, ES+12, ES+13, ES+17 , ES+20, ES+21
TIUSTIS	ES+2~, ES+74*, ES+75
TIUSTNOW	ES+1~
TIUSTWAS	ES+2~, ES+3*, ES+75
TIUTTL	ES+2~, ES+62*
TIUTYPE	EDSIG+1~, EDSIG+15*, EDSIG+37, EDSIG+40
TIUVSIT	ES+53~, ES+55
TIUY	ASKCPF+1~, ASKCPFQ+1, ASKCPFQ+2, ASKCSNR+1~, ASKCOUT+1, ASKCOUT+2
TYPE	THIRD+1~, THIRD+3*, THIRD+4
U	ACCEPT+6, ACCEPT+11, ACCEPT+15, ACCEPT+17, ACCEPT+18, EDSIG+5, EDSIG+8, EDSIG+9, EDSIG+12, EDSIG+21 , EDSIG+28, EDSIG+29, EDSIG+34, EDSIG+56, ASKCPFQ+1, ASKCSNR+3, ASKCOUT+1, ES+3, ES+5, ES+7 , ES+8, ES+22, ES+28, ES+31, ES+37, ES+52, ES+59, ES+70, ES+74, ES+79
>> VALMAR	EDSIG+23, EDSIG+47
>> VALMBCK	EDSIG+5, EDSIG+17, EDSIG+41*
X	EDSIG+1~
X1	EDSIG+1~
XTRASGNR	ACCEPT+18, EDSIG+2~, EDSIG+10, EDSIG+11, EDSIG+13, EDSIG+28, EDSIG+48, EDSIG+49
>> XWBOS	ES+19, ES+25, ES+36

Customize PDF page

Package: Text Integration Utility

Routine: TIURS

Information

Source Information

Call Graph

Call Graph Total: 28

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 16

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: