Routine: TIURS1

Call Graph

Call Graph Total: 29

Package	Total	Call Graph
Text Integration Utility	23	SEND^TIUALRT ($$CLASS,CHANGE,CONSCT)^TIUCNSLT $$CLASS^TIUCP $$DEVICE^TIUDEV AUDIT^TIUEDI1 $$DADORKID^TIUGBR $$ASKSIG^TIULA1 $$ASKTITLE^TIULA3 ($$CHKSUM,$$NOW)^TIULC ($$CLINDOC,$$DOCCLASS,$$PNAME,$$PTNAME,DOCPRM)^TIULC1 SETPARM^TIULE $$EMPTYDOC^TIULF FIXLSTNW^TIULM ($$CANDO,$$REQCOSIG,$$REQCPF)^TIULP $$DOCRES^TIULRR $$ISA^TIULX RPC^TIUPD PRFCT^TIUPRF1 WTRMARK^TIURB3 UPRBLD^TIURL ($$ASKCPF,$$ASKCSNR,ES)^TIURS ADDSIG^TIURS1 $$READ^TIUU
Registration	4	EN^VALM (CLEAR,FULL)^VALM1 CNTRL^VALM10 EN^VALM2
Kernel	1	^%ZISC
VA Fileman	1	^DIE

Package	Total	Caller Graph
Text Integration Utility	12	TIUGR TIURA TIURA1 TIURA3 TIURB TIURB3 TIURC TIURC1 TIURD TIURS TIURS1 TIUSRVP2
IHS Mods To Text Integration Utilities	1	BTIURS

Package

Total

Caller Graph

Text Integration Utility

TIUGR TIURA TIURA1 TIURA3 TIURB TIURB3 TIURC TIURC1
TIURD TIURS TIURS1 TIUSRVP2

IHS Mods To Text Integration Utilities

BTIURS

Entry Points

Name	Comments	DBIA/ICR reference
NEWLST(TIULST,TIUDAARY)	; Return TIULST with updated item numbers
CNVPOST1	; Convert Single Posting to another title
ADDSIG(TIUDA,DA)	; Apply extra signatures to a document
ELSIGX
LIST(LIST)	; build print list
CNVPOST	; Change Titles/Convert Postings
TLDIE(DA,TIUTITL)	; Change title of DA to TIUTITL
VMSG(TIULST,TIUDAARY,ACTION)	; Set VALMSG for messagebar, bold changed items
MULTIPRN(TIUSLST,TIUIO)	; ask device
POST1Q	;clean up, linetag put in with *171
ELSIG	; Sign rec

External References

Name	Field # of Occurrence
^%ZISC	MULTIPRN+10
^DIE	ADDSIG+4, TLDIE+3
SEND^TIUALRT	ADDSIG+5
$$CLASS^TIUCNSLT	CNVPOST1+19
CHANGE^TIUCNSLT	CNVPOST1+21
CONSCT^TIUCNSLT	CNVPOST1+25
$$CLASS^TIUCP	ELSIG+36
$$DEVICE^TIUDEV	MULTIPRN+8
AUDIT^TIUEDI1	CNVPOST1+33
$$DADORKID^TIUGBR	CNVPOST1+10
$$ASKSIG^TIULA1	ELSIG+69
$$ASKTITLE^TIULA3	CNVPOST1+18
$$CHKSUM^TIULC	CNVPOST1+32
$$NOW^TIULC	ADDSIG+3
$$CLINDOC^TIULC1	CNVPOST1+18
$$DOCCLASS^TIULC1	TLDIE+2
$$PNAME^TIULC1	ELSIG+20
$$PTNAME^TIULC1	ELSIG+39, ELSIG+51
DOCPRM^TIULC1	ELSIG+22
SETPARM^TIULE	ELSIG+2
$$EMPTYDOC^TIULF	ELSIG+59
FIXLSTNW^TIULM	ELSIG+70
$$CANDO^TIULP	ELSIG+23, CNVPOST+13, CNVPOST1+9
$$REQCOSIG^TIULP	ELSIG+48
$$REQCPF^TIULP	ELSIG+36
$$DOCRES^TIULRR	ELSIG+11, CNVPOST+9
$$ISA^TIULX	ELSIG+36, CNVPOST1+20
RPC^TIUPD	ELSIG+81
PRFCT^TIUPRF1	CNVPOST1+26
WTRMARK^TIURB3	CNVPOST1+29
UPRBLD^TIURL	ELSIGX+2, CNVPOST+23
$$ASKCPF^TIURS	ELSIG+41
$$ASKCSNR^TIURS	ELSIG+52
ES^TIURS	ELSIG+80
ADDSIG^TIURS1	ELSIG+79
$$READ^TIUU	ELSIG+14, ELSIG+31, ELSIG+46, ELSIG+57, ELSIG+62, CNVPOST+12, CNVPOST+16, CNVPOST1+13, CNVPOST1+17, CNVPOST1+23
EN^VALM	ELSIG+64, CNVPOST+18
CLEAR^VALM1	ELSIG+5
FULL^VALM1	ELSIG+28, ELSIG+71, ELSIG+82, CNVPOST+5, CNVPOST1+7
CNTRL^VALM10	VMSG+19
EN^VALM2	ELSIG+4, CNVPOST+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Electronic signature not yet enabled." Line Location: ELSIG+3
Function Call: WRITE	Prompt: !!,$C(7),"Ok, no harm done...",! Line Location: ELSIG+13
Function Call: WRITE	Prompt: !!,"Item #",TIUI,": ",$P(ASK,U,2),! Line Location: ELSIG+29
Function Call: WRITE	Prompt: !,"Removed from signature list.",! Line Location: ELSIG+30
Function Call: WRITE	Prompt: !!,"Item #",TIUI,": ",TIUTYPE," for " Line Location: ELSIG+38
Function Call: WRITE	Prompt: $$PTNAME^TIULC1($P(TIU0,U,2))," will need Procedure Summary Code and Date/Time Performed..." Line Location: ELSIG+39
Function Call: WRITE	Prompt: !!,"Item #",TIUI,": MUST have a Procedure Summary Code and Date/Time Performed",!,"before you may sign." Line Location: ELSIG+44
Function Call: WRITE	Prompt: !!,"Removed from signature list.",! Line Location: ELSIG+45
Function Call: WRITE	Prompt: !!,"Item #",TIUI,": ",TIUTYPE," for " Line Location: ELSIG+50
Function Call: WRITE	Prompt: $$PTNAME^TIULC1($P(TIU0,U,2))," will need cosignature..." Line Location: ELSIG+51
Function Call: WRITE	Prompt: !!,"Item #",TIUI,": MUST have a cosigner, before you may sign." Line Location: ELSIG+55
Function Call: WRITE	Prompt: !!,"Removed from signature list.",! Line Location: ELSIG+56
Function Call: WRITE	Prompt: !!,"Item #",TIUI,": This note contains no text and cannot be signed." Line Location: ELSIG+60
Function Call: WRITE	Prompt: !!,"Removed from signature list.",! Line Location: ELSIG+61
Function Call: WRITE	Prompt: !!,"Please specify the device for printing item" Line Location: MULTIPRN+5
Function Call: WRITE	Prompt: $S(TIUPLIST[",":"s",TIUPLIST["-":"s",1:""),": ",TIUPLIST,!! Line Location: MULTIPRN+6
Function Call: WRITE	Prompt: !,"Please finish attaching the interdisciplinary note before changing title.",! Line Location: CNVPOST+2
Function Call: WRITE	Prompt: !!,$C(7),"Ok, no harm done...",! Line Location: CNVPOST+11
Function Call: WRITE	Prompt: !!,$C(7),$P(TIUVIEW,U,2),! Line Location: CNVPOST+15
Function Call: WRITE	Prompt: !!,$C(7),$P(TIUCHTTL,U,2),! Line Location: CNVPOST1+12
Function Call: WRITE	Prompt: !!?5,$C(7),"Another user is editing this entry.",! Line Location: CNVPOST1+16
Routine Call	VALM Line Location: ELSIG+64 CNVPOST+18
Routine Call	DIE Line Location: ADDSIG+4 TLDIE+3

Name	Line Occurrences (* Changed, ! Killed)
^TIU(8925 - [#8925]	ELSIG+15, ELSIG+25, ELSIG+36, ELSIG+40, CNVPOST1+5, CNVPOST1+14, CNVPOST1+31, POST1Q+1
^TIU(8925.7 - [#8925.7]	ELSIG+18
^TMP("TIUR"	VMSG+17, NEWLST+4
^TMP("TIURIDX"	ELSIG+10, ELSIG+75, CNVPOST+8

Name	Line Occurrences
$$LIST	MULTIPRN+4
$$NEWLST	VMSG+7
ELSIGX	ELSIG+3, ELSIG+65
MULTIPRN	ELSIG+72
POST1Q	CNVPOST1+22, CNVPOST1+28, CNVPOST1+29
TLDIE	CNVPOST1+30
VMSG	ELSIGX+4, CNVPOST+25

Name	Field # of Occurrence
^(12	ELSIG+15
^(15	ELSIG+15
^(702	ELSIG+40

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTFIRST	VMSG+1~, VMSG+2*, VMSG+4, VMSG+9, VMSG+13
ACTION	VMSG~, VMSG+2, VMSG+5, VMSG+6*, VMSG+10, VMSG+11, VMSG+14, VMSG+15
ASK	ELSIG+8~, ELSIG+9, ELSIG+23, ELSIG+24, ELSIG+26*, ELSIG+27, ELSIG+29
CHKSUM	CNVPOST1+1~, CNVPOST1+32*, CNVPOST1+33
COSIGNER	ELSIG+8~, ELSIG+17, ELSIG+18, ELSIG+49~, ELSIG+52, ELSIG+53
DA	ADDSIG~, CNVPOST1+2~, TLDIE~
DFN	CNVPOST+7~
DIE	ADDSIG+1~, ADDSIG+2, CNVPOST1+1~, TLDIE+1~
DIROUT	CNVPOST+1~, CNVPOST+6
DR	ADDSIG+1~, ADDSIG+3, CNVPOST1+1~, TLDIE+1~, TLDIE+2
DUZ	ELSIG+18, ELSIG+48, ELSIG+52, ADDSIG+3
IO	MULTIPRN+1~
>> IOINHI	VMSG+19
>> IOINORM	VMSG+19
LINENO	VMSG+1~, VMSG+18*, VMSG+19
LIST	LIST~
LIST(	LIST+2, LIST+3
RSTRCTD	ELSIG+8~, ELSIG+11, ELSIG+12, CNVPOST+7~, CNVPOST+9, CNVPOST+10
SIGNER	ELSIG+8~, ELSIG+16*, ELSIG+18
TIU	ELSIG+63~, CNVPOST+7~
TIU0	ELSIG+7~, ELSIG+15*, ELSIG+19, ELSIG+20, ELSIG+22, ELSIG+36, ELSIG+39, ELSIG+48, ELSIG+51
TIU12	ELSIG+7~, ELSIG+15*, ELSIG+16, ELSIG+17, ELSIG+48
TIU15	ELSIG+7~, ELSIG+15*, ELSIG+48
TIUASK	MULTIPRN+1~
TIUCHNG	ELSIG+1~, ELSIGX+2, CNVPOST+1~, CNVPOST+17, CNVPOST+20, CNVPOST+23, CNVPOST1+5, CNVPOST1+31*
TIUCHNG("ADDM"	ELSIGX
TIUCHNG("DELETE"	ELSIGX
TIUCHNG("RBLD"	ELSIGX*
TIUCHNG("UPDATE"	ELSIGX+1, CNVPOST+22
TIUCHNGD	CNVPOST1+3~, CNVPOST1+29, CNVPOST1+30
TIUCHTTL	CNVPOST1+1~, CNVPOST1+8, CNVPOST1+9, CNVPOST1+10*, CNVPOST1+11, CNVPOST1+12
TIUCLSS	CNVPOST1+1~, CNVPOST1+19*, CNVPOST1+20
TIUCON	CNVPOST1+1~, CNVPOST1+20*, CNVPOST1+21
TIUCPFLD	ELSIG+37~, ELSIG+40, ELSIG+41, ELSIG+42
TIUD0	CNVPOST1+1~, CNVPOST1+5*, CNVPOST1+8, CNVPOST1+18, CNVPOST1+21, CNVPOST1+25, CNVPOST1+26, CNVPOST1+31
TIUDA	ELSIG+8~, ELSIG+11, ELSIG+15, ELSIG+18, ELSIG+22, ELSIG+23, ELSIG+25, ELSIG+36, ELSIG+40, ELSIG+41 , ELSIG+48, ELSIG+52, ELSIG+59, ELSIG+75, ELSIG+76, ELSIG+79, ELSIG+80, ELSIG+81, NEWLST+1~, NEWLST+4* , ADDSIG~, ADDSIG+5, CNVPOST+7~, CNVPOST+9*, CNVPOST+13, CNVPOST+19, CNVPOST1+5, CNVPOST1+9, CNVPOST1+10, CNVPOST1+14 , CNVPOST1+18, CNVPOST1+21, CNVPOST1+25, CNVPOST1+26, CNVPOST1+29, CNVPOST1+30, CNVPOST1+31, CNVPOST1+32, CNVPOST1+33, POST1Q+1
TIUDAARY	ELSIG+1~, ELSIGX+4, VMSG~, VMSG+7, NEWLST~, CNVPOST+1~, CNVPOST+25
TIUDAARY(	ELSIG+76, NEWLST+4, CNVPOST+19
TIUDATA	ELSIG+8~, ELSIG+10, ELSIG+11, ELSIG+75, CNVPOST+7~, CNVPOST+8*, CNVPOST+9
TIUDPRM	ELSIG+7~, ELSIG+22
TIUES	ELSIG+1~, ELSIG+69*, ELSIG+70, ELSIG+80
TIUEVNT	ELSIG+7~, ELSIG+21*, ELSIG+23
>> TIUGLINK	CNVPOST+2
TIUI	ELSIG+1~, ELSIG+5, ELSIG+6, ELSIG+10, ELSIG+29, ELSIG+38, ELSIG+44, ELSIG+50, ELSIG+55, ELSIG+60 , ELSIG+73, ELSIG+75, ELSIG+76, ELSIG+77, ELSIG+78, ELSIG+81, VMSG+1~, VMSG+18, NEWLST+1~, NEWLST+3* , MULTIPRN+1~, MULTIPRN+2, LIST+1~, LIST+2, LIST+3, CNVPOST+1~, CNVPOST+4, CNVPOST+6, CNVPOST+8, CNVPOST+19 , CNVPOST+20
TIUIO	ELSIG+68~, ELSIG+72, ELSIG+81, MULTIPRN~, MULTIPRN+3, MULTIPRN+8, MULTIPRN+9
TIUION	MULTIPRN+1~, MULTIPRN+8*, MULTIPRN+9
TIULNO	NEWLST+1~, NEWLST+3*, NEWLST+4
TIULST	ELSIG+1~, ELSIG+77, ELSIGX+4, VMSG~, VMSG+3, VMSG+7, VMSG+8, VMSG+10, VMSG+11, VMSG+12 , VMSG+15, VMSG+18, NEWLST~, NEWLST+3, CNVPOST+1~, CNVPOST+20*, CNVPOST+25
TIUNLNO	NEWLST+1~, NEWLST+4*, NEWLST+5
TIUNLST	NEWLST+1~, NEWLST+2, NEWLST+5, NEWLST+6
TIUNOCS	CNVPOST1+21, CNVPOST1+22, POST1Q+2!
TIUPLIST	MULTIPRN+1~, MULTIPRN+4*, MULTIPRN+6
TIUPOK	MULTIPRN+1~, MULTIPRN+2, MULTIPRN+3
TIUPOP	ELSIG+7~, ELSIG+9, ELSIG+36, ELSIG+43, ELSIG+48, ELSIG+54*
>> TIUPRM0	ELSIG+2, ELSIG+3
TIUPY	ELSIG+74~, ELSIG+81
TIUQUIT	CNVPOST1+1~, CNVPOST1+28, CNVPOST1+29
TIURJCT	ELSIG+1~
TIUSCRN	MULTIPRN+1~, MULTIPRN+7*, MULTIPRN+8
TIUSLST	ELSIG+1~, ELSIG+65, ELSIG+67, ELSIG+72, MULTIPRN~, MULTIPRN+4
TIUSLST(	ELSIG+73, ELSIG+78, ELSIG+81, MULTIPRN+2
TIUSTAT	ELSIG+7~, ELSIG+19*, ELSIG+21
TIUTITL	CNVPOST1+1~, CNVPOST1+18*, CNVPOST1+20, CNVPOST1+21, CNVPOST1+25, CNVPOST1+26, CNVPOST1+29, CNVPOST1+30, TLDIE~, TLDIE+2
TIUTYPE	ELSIG+7~, ELSIG+20*, ELSIG+38, ELSIG+50
TIUVALMY	ELSIGX+2!, CNVPOST+22, CNVPOST+23!
TIUVIEW	CNVPOST+1~, CNVPOST+7~, CNVPOST+13*, CNVPOST+14, CNVPOST+15
TIUY	ELSIG+63~, LIST+1~, LIST+3*, LIST+4
U	ELSIG+3, ELSIG+11, ELSIG+16, ELSIG+17, ELSIG+19, ELSIG+27, ELSIG+29, ELSIG+36, ELSIG+39, ELSIG+40 , ELSIG+48, ELSIG+51, ELSIG+75, ELSIG+78, ELSIG+81, CNVPOST+9, CNVPOST+15, CNVPOST1+12
>> VALM("RM"	VMSG+19
>> VALMBCK	ELSIGX+3, CNVPOST+24
>> VALMSG	ELSIG+66, ELSIG+70, VMSG+4, VMSG+5, VMSG+10, VMSG+11, VMSG+14, VMSG+15
VALMY	ELSIG+4, ELSIG+5, ELSIGX+2!, CNVPOST+3, CNVPOST+7~, CNVPOST+22, CNVPOST+23!
VALMY(	ELSIG+6, ELSIG+29!, CNVPOST+6
VALMY(0	CNVPOST+5
X	ELSIG+1~, CNVPOST1+2~
X1	ELSIG+1~
XQORM	CNVPOST+7~
>> XQORNOD(0	ELSIG+4, CNVPOST+3
XTRASGNR	ELSIG+8~, ELSIG+18, ELSIG+21, ELSIG+36, ELSIG+48, ELSIG+74~, ELSIG+78, ELSIG+79, ELSIG+80
Y	ELSIG+1~, CNVPOST+1~, CNVPOST1+2~

Customize PDF page

Package: Text Integration Utility

Routine: TIURS1

Information

Source Information

Call Graph

Call Graph Total: 29

Caller Graph

Caller Graph Total: 13

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: