Routine: TIURD2

Call Graph

Call Graph Total: 21

Package	Total	Call Graph
Text Integration Utility	15	(ADDENDEL,ALERTDEL,SEND)^TIUALRT DELIRT^TIUDIRT (AUDIT,MERGTEXT)^TIUEDI1 ($$CHKSUM,$$STATUS)^TIULC ($$HASADDEN,$$ISADDNDM,$$ONRTRCT,$$PNAME,$$PTNAME,$$REFDATE,DOCPRM)^TIULC1 GETTIU^TIULD $$REQCOSIG^TIULP $$UPPER^TIULS $$ISDS^TIULX $$WORKOK^TIUPXAP1 (AUDREASS,DELSGNR)^TIURB1 (COPY17,COPYTEXT)^TIURC1 $$REFDTA^TIURD2 $$GETREC^TIUSRVP $$READ^TIUU
Kernel	2	$$NOW^XLFDT SIG^XUSESIG
VA Fileman	2	^DIC ^DIE
IHS Mods To Text Integration Utilities	1	RETRACT^BTIURB
Registration	1	FULL^VALM1

Package	Total	Caller Graph
Text Integration Utility	8	TIURB TIURB2 TIURD TIURD1 TIURD2 TIURD3 TIUSROI TIUSROI1

Package

Total

Caller Graph

Text Integration Utility

TIURB TIURB2 TIURD TIURD1 TIURD2 TIURD3 TIUSROI TIUSROI1

Entry Points

Name	Comments	DBIA/ICR reference
COPYSGNR(TIUDA,TIUCDA,COPYSTAT)	; Copy Add'nal Signers
COPY15(DA,TIUD15)	; Copy 15-node
REMVSIT(DA,TIUOD0)	; Remove VISIT from Retracted Doc
RETRAX
VLOC(LOCDA)	; Resolve location pointer
COPY0(DA,TIUD0,TIU,TIUDAD,STATUS)	; Copy root node
GETSIG()	; Challenge user for Electronic Signature, when appropriate
REFDTAX
ATTACH(TIUDA,TIUDADD)	; Attach TIUDADD as addendum to TIUDA
GETSIGX
COPY12(DA,TIUD12,TIU)	; Copy 12-node
REFDTO(TIUDA,TIU)	; Compute reference date
RTADD	; Retract all addenda
COPY13(DA,TIUD13,TIU,STATUS)	; Copy 13-node
COPY14(DA,TIUD14,TIU)	; Copy 14-node
UPDTADD(TIUDA)	; Addenda for reassigned original are updated
LINKADD(DA,TIUDAD)	; Link addendum (DA) to TIUDAD
REFDTOX
REFDTA(TIUDA,TIUDADD,TIUD0)	; Compute reference date for addenda
STATUS(DA)	; Set original's status to "RETRACTED"
RETRACT(TIUDA,TIUDAD,COPYSTAT,NEWDAD,SKIPADD)	; Retract document

External References

Name	Field # of Occurrence
RETRACT^BTIURB	STATUS+4
^DIC	COPYSGNR+5
^DIE	RETRACT+39, RETRACT+43, REMVSIT+8, LINKADD+2, COPY0+4, COPY12+5, COPY13+9, COPY14+5, COPYSGNR+11, COPY15+6 , STATUS+2, ATTACH+6, ATTACH+8, ATTACH+11, UPDTADD+11, UPDTADD+13, UPDTADD+15
ADDENDEL^TIUALRT	RTADD+4
ALERTDEL^TIUALRT	STATUS+5
SEND^TIUALRT	ATTACH+16, UPDTADD+17
DELIRT^TIUDIRT	STATUS+5
AUDIT^TIUEDI1	RETRACT+44
MERGTEXT^TIUEDI1	RETRACT+41
$$CHKSUM^TIULC	RETRACT+44
$$STATUS^TIULC	RETRACT+29, RETRACT+42
$$HASADDEN^TIULC1	UPDTADD+1
$$ISADDNDM^TIULC1	RTADD+3, REMVSIT+3, ATTACH+15, UPDTADD+6
$$ONRTRCT^TIULC1	RETRACT+49
$$PNAME^TIULC1	RETRACT+14
$$PTNAME^TIULC1	RETRACT+20
$$REFDATE^TIULC1	COPY13+2
DOCPRM^TIULC1	RETRACT+13
GETTIU^TIULD	RETRACT+22
$$REQCOSIG^TIULP	RETRACT+37
$$UPPER^TIULS	RETRACT+29, RETRACT+42
$$ISDS^TIULX	COPY13+2, REFDTA+4
$$WORKOK^TIUPXAP1	COPY0+3
AUDREASS^TIURB1	UPDTADD+19, UPDTADD+22
DELSGNR^TIURB1	STATUS+5
COPY17^TIURC1	RETRACT+40
COPYTEXT^TIURC1	RETRACT+40
$$REFDTA^TIURD2	UPDTADD+14
$$GETREC^TIUSRVP	RETRACT+26
$$READ^TIUU	RETRACT+19, RETRACT+30, GETSIG+5
FULL^VALM1	RETRACT+11
$$NOW^XLFDT	COPY12+2
SIG^XUSESIG	GETSIG+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),"No patient selected..." Line Location: RETRACT+18
Function Call: WRITE	Prompt: ! Line Location: RETRACT+19
Function Call: WRITE	Prompt: !,$C(7),"Patient & Visit required." Line Location: RETRACT+23
Function Call: WRITE	Prompt: !!,$C(7),"A ",TIUTNM," already exists for this visit." Line Location: RETRACT+28
Function Call: WRITE	Prompt: !,"You may not use the reassign function to overwrite an existing ",!,$$UPPER^TIULS($$STATUS^TIULC(DA))," ",TIUTNM,".",! Line Location: RETRACT+29
Function Call: WRITE	Prompt: "" Line Location: RETRACT+30
Function Call: WRITE	Prompt: !,"Removing RETRACTED ",TIUTNM," from original Visit..." Line Location: REMVSIT+7
Function Call: WRITE	Prompt: "." Line Location: ATTACH+16
Function Call: WRITE	Prompt: !!,"Done." Line Location: ATTACH+17
Function Call: WRITE	Prompt: !!,$C(7),"Addenda for this Document will now be updated..." Line Location: UPDTADD+3
Function Call: WRITE	Prompt: "." Line Location: UPDTADD+15
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"You MUST Enter your CORRECT Electronic Signature to Complete this Task...",! Line Location: GETSIG+4
Routine Call	DIE Line Location: RETRACT+39 RETRACT+43 REMVSIT+8 LINKADD+2 COPY0+4 COPY12+5 COPY13+9 COPY14+5 COPYSGNR+11 COPY15+6 STATUS+2 ATTACH+6 ATTACH+8 ATTACH+11 UPDTADD+11 UPDTADD+13 UPDTADD+15
Routine Call	DIC Line Location: COPYSGNR+5

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SC - [#44]	VLOC+1
^TIU(8925 - [#8925]	RETRACT+4, RETRACT+5, RETRACT+6, RETRACT+36*, RETRACT+41!, RETRACT+49, RTADD+2, REMVSIT+4, REMVSIT+5, COPY0+3 , COPY13+2, ATTACH+2, ATTACH+14, REFDTO+2, REFDTA+2, UPDTADD+4, UPDTADD+7, UPDTADD+8, UPDTADD+18, UPDTADD+21 , UPDTADD+22
^TIU(8925.7 - [#8925.7]	COPYSGNR+2, COPYSGNR+4
^TMP("TIURTRCT"	RETRACT+7, RETRACT+45

Label References

Name	Line Occurrences
$$REFDTA	ATTACH+9
$$RETRACT	RTADD+5
ATTACH	ATTACH+16
COPY0	RETRACT+32
COPY12	RETRACT+32
COPY13	RETRACT+33
COPY14	RETRACT+33
COPY15	RETRACT+35
COPYSGNR	RETRACT+34
GETSIGX	GETSIG+3
LINKADD	RETRACT+9, RETRACT+10
REFDTAX	REFDTA+4, REFDTA+5, REFDTA+6
REFDTOX	REFDTO+4, REFDTO+5
REMVSIT	RETRACT+31
RETRAX	RETRACT+9, RETRACT+10, RETRACT+17, RETRACT+23, RETRACT+52
RTADD	RETRACT+8
STATUS	RETRACT+8, RETRACT+48

Name	Field # of Occurrence
^(12	RETRACT+4, ATTACH+2, UPDTADD+7, UPDTADD+8, UPDTADD+18
^(13	RETRACT+4, REFDTO+2, REFDTA+2
^(14	ATTACH+2, UPDTADD+8
^(15	RETRACT+5
^(16	RETRACT+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
COPYSTAT	RETRACT~, RETRACT+7*, RETRACT+8, RETRACT+10, RETRACT+32, RETRACT+33, RETRACT+34, RETRACT+35, RETRACT+36, RETRACT+37 , RTADD+5, COPYSGNR~, COPYSGNR+7
DA	RETRACT+2~, RETRACT+25~, RETRACT+26, RETRACT+29, RETRACT+32, RETRACT+33, RETRACT+34, RETRACT+35, RETRACT+36, RETRACT+40 , RETRACT+41, RETRACT+42, RETRACT+44, RETRACT+45, RETRACT+46, RETRACT+47, REMVSIT~, REMVSIT+3, LINKADD~, COPY0~ , COPY0+3, COPY12~, COPY13~, COPY13+2, COPY14~, COPYSGNR+3~, COPYSGNR+6, COPY15~, STATUS~, STATUS+4 , STATUS+5, ATTACH+1~, ATTACH+3, UPDTADD+2~, UPDTADD+4, UPDTADD+6, UPDTADD+7, UPDTADD+14, UPDTADD+17, UPDTADD+18 , UPDTADD+19, UPDTADD+21, UPDTADD+22
DFN	RETRACT+2~, RETRACT+3~, RETRACT+16*, RETRACT+17, RETRACT+20, RETRACT+26, COPY0+2
DIC	COPYSGNR+3~, COPYSGNR+5*, COPYSGNR+6, STATUS+1~
DIC(0	COPYSGNR+5*
DIE	RETRACT+25~, RETRACT+38~, RETRACT+43, REMVSIT+1~, REMVSIT+8, LINKADD+1~, LINKADD+2, COPY0+1~, COPY12+1~, COPY13+1~* , COPY14+1~, COPYSGNR+3~, COPYSGNR+6, COPY15+1~, STATUS+1~, STATUS+2, ATTACH+1~, ATTACH+3, UPDTADD+5~, UPDTADD+11
DIROUT	RETRACT+2~
DLAYGO	COPYSGNR+3~, COPYSGNR+5*
DR	RETRACT+2~, RETRACT+25~, RETRACT+38~, RETRACT+39, RETRACT+42, REMVSIT+1~, REMVSIT+8, LINKADD+1~, LINKADD+2, COPY0+1~ , COPY0+2, COPY0+3, COPY12+1~, COPY12+2, COPY12+3, COPY12+4, COPY13+1~, COPY13+4, COPY13+5, COPY13+6 , COPY13+7, COPY13+8, COPY14+1~, COPY14+2, COPY14+3, COPY14+4, COPYSGNR+3~, COPYSGNR+6, COPYSGNR+8, COPYSGNR+9 , COPYSGNR+10, COPY15+1~, COPY15+2, COPY15+3, COPY15+4, COPY15+5, STATUS+1~, STATUS+2, ATTACH+1~, ATTACH+4* , ATTACH+5, ATTACH+7, ATTACH+9, ATTACH+10, UPDTADD+5~, UPDTADD+9, UPDTADD+10, UPDTADD+12, UPDTADD+14
DTOUT	RETRACT+2~
DUOUT	RETRACT+2~
DUZ	COPY13+7
LOCDA	VLOC~, VLOC+1
NEWDAD	RETRACT~, RETRACT+9, RETRACT+10
ONRTRCT	RETRACT+3~, RETRACT+49*, RETRACT+50
SKIPADD	RETRACT~, RETRACT+52
STATUS	COPY0~, COPY0+1*, COPY0+2, COPY13~, COPY13+5, COPY13+6, COPY13+7
SVCAT	REMVSIT+1~, REMVSIT+2, REMVSIT+5, REMVSIT+6
TIU	RETRACT+2~, RETRACT+22, RETRACT+24, RETRACT+26, RETRACT+32, RETRACT+33, RETRACT+41, COPY0~, COPY12~, COPY13~ , COPY13+2, COPY14~, REFDTO~
TIU("LDT"	REFDTO+3
TIU("VSTR"	RETRACT+23
TIUCDA	COPYSGNR~, COPYSGNR+5
>> TIUCHNG	ATTACH+17*
TIUCOPY	RETRACT+2~
TIUD0	COPY0~, COPY0+2, ATTACH+1~, ATTACH+2, ATTACH+9, REFDTA~, REFDTA+4, UPDTADD+5~, UPDTADD+8, UPDTADD+9 , UPDTADD+14, UPDTADD+19, UPDTADD+22
TIUD0(0	UPDTADD+7*
TIUD0(1	UPDTADD+18*
TIUD12	COPY12~, COPY12+2, COPY12+3, COPY12+4, ATTACH+1~, ATTACH+2, REFDTO+1~, REFDTO+2, REFDTO+6, UPDTADD+5~ , UPDTADD+8*, UPDTADD+12, UPDTADD+19, UPDTADD+22
TIUD12(0	UPDTADD+7*
TIUD12(1	UPDTADD+18*
TIUD13	COPY13~, COPY13+1, COPY13+4, COPY13+7, COPY13+8, REFDTO+1~, REFDTO+2*, REFDTO+5
TIUD14	COPY14~, COPY14+2, COPY14+3, ATTACH+1~, ATTACH+2, UPDTADD+5~, UPDTADD+8, UPDTADD+10
TIUD15	COPY15~, COPY15+2, COPY15+3, COPY15+4, COPY15+5
TIUDA	RETRACT~, RETRACT+4, RETRACT+5, RETRACT+6, RETRACT+7, RETRACT+8, RETRACT+9, RETRACT+10, RETRACT+13, RETRACT+22 , RETRACT+31, RETRACT+34, RETRACT+37, RETRACT+40, RETRACT+42, RETRACT+48, RETRACT+49, RTADD+2, RTADD+5, COPYSGNR~ , COPYSGNR+2, ATTACH~, ATTACH+2, ATTACH+9, ATTACH+16, REFDTO~, REFDTO+2, REFDTA~, UPDTADD~, UPDTADD+1 , UPDTADD+4, UPDTADD+8, UPDTADD+14
TIUDAD	RETRACT~, RETRACT+32, RETRACT+46, LINKADD~, COPY0~
TIUDAD12	REFDTA+1~, REFDTA+2*, REFDTA+7
TIUDAD13	REFDTA+1~, REFDTA+2*, REFDTA+3, REFDTA+5, REFDTA+6
TIUDADA	ATTACH+1~, ATTACH+13, ATTACH+14, ATTACH+15, ATTACH+16
TIUDADD	RTADD+1~, RTADD+2, RTADD+3, RTADD+4, RTADD+5, ATTACH~, ATTACH+3, ATTACH+9, ATTACH+14, REFDTA~ , REFDTA+2
TIUDPRM	RETRACT+2~, RETRACT+13
TIUDPRM(0	COPY0+3
TIUDT	COPY13+1~*, COPY13+2, COPY13+3, COPY13+5, COPY13+6
TIUI	RETRACT+1~
TIUITEM	RETRACT+25~
TIULMETH	RETRACT+2~
TIUNDAD	RETRACT+3~, RETRACT+46*, RTADD+5
TIUNEW	RETRACT+25~, RETRACT+26, RETRACT+27
TIUNREC	RETRACT+3~, RETRACT+47, RTADD+5, RETRAX
TIUOD0	RETRACT+1~, RETRACT+4*, RETRACT+7, RETRACT+9, RETRACT+16, RETRACT+31, RETRACT+32, REMVSIT~, REMVSIT+2, REMVSIT+4 , REMVSIT+5
TIUOD12	RETRACT+1~, RETRACT+4*, RETRACT+32, RETRACT+37
TIUOD13	RETRACT+1~, RETRACT+4*, RETRACT+33
TIUOD14	RETRACT+1~, RETRACT+5*, RETRACT+33
TIUOD15	RETRACT+1~, RETRACT+5*, RETRACT+35
TIUOD16	RETRACT+1~, RETRACT+5*, RETRACT+36
TIUOD17	RETRACT+1~, RETRACT+6*, RETRACT+40
TIUPAT	RETRACT+1~
TIUPATNM	RETRACT+3~, RETRACT+20*
TIUPOP	REMVSIT+1~, REMVSIT+3, REMVSIT+4
TIURDT	COPY13+1~, COPY13+2, COPY13+3, COPY13+4
TIUSD0	COPYSGNR+3~, COPYSGNR+4*
TIUSDA	COPYSGNR+1~, COPYSGNR+2, COPYSGNR+4
TIUTNM	RETRACT+3~, RETRACT+14*, RETRACT+28, RETRACT+29, REMVSIT+7
TIUTYP	RETRACT+3~, RETRACT+7*, RETRACT+13, RETRACT+14, RETRACT+26, RETRACT+37
TIUVMETH	RETRACT+3~
TIUVSUPP	RETRACT+2~
TIUY	REFDTO+1~, REFDTO+3, REFDTO+4, REFDTO+5, REFDTO+6, REFDTOX, REFDTA+1~, REFDTA+3, REFDTA+5, REFDTA+6 , REFDTA+7, REFDTAX, GETSIG+1~, GETSIG+6*, GETSIGX
U	RETRACT+9, RETRACT+16, RETRACT+37, REMVSIT+2, REMVSIT+4, REMVSIT+5, COPY0+2, COPY0+3, COPY12+2, COPY12+3 , COPY12+4, COPY13+1, COPY13+4, COPY13+7, COPY13+8, COPY14+2, COPY14+3, COPY15+2, COPY15+3, COPY15+4 , COPY15+5, REFDTO+5, REFDTO+6, REFDTA+5, REFDTA+6, REFDTA+7, UPDTADD+9, UPDTADD+10, UPDTADD+12, UPDTADD+21 , UPDTADD+22, VLOC+1
X	COPYSGNR+5*, GETSIG+1~
X1	GETSIG+1~, GETSIG+3
X2	GETSIG+1~
>> Y	COPYSGNR+5, COPYSGNR+6

Customize PDF page

Package: Text Integration Utility

Routine: TIURD2

Information

Source Information

Call Graph

Call Graph Total: 21

Caller Graph

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: