Routine: TIURB3

Package	Total	Call Graph
Text Integration Utility	5	$$ISADDNDM^TIULC1 $$CANDO^TIULP $$HASIMG^TIURB2 TLDIE^TIURS1 $$READ^TIUU
Uncategorized	1	RESCIND^MAGGSIU4
VA Fileman	1	^DIR

Package

Total

Call Graph

$$ISADDNDM^TIULC1 $$CANDO^TIULP $$HASIMG^TIURB2 TLDIE^TIURS1 $$READ^TIUU

RESCIND^MAGGSIU4

^DIR

Package	Total	Caller Graph
Text Integration Utility	1	TIURS1

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
CKADDA(TIUDA)	; Watermark addendum images
OK2MARK()	; Returns 1 if user oks changing Title to RESCINDED ADVANCE DIRECTIVE; Else 0
AD2RAD(NOTEDA,SELNEWTL)	; Is this note being changed from ADVANCE DIRECTIVE to RESCINDED ADVANCE DIRECTIVE?
WTRMARK(TIUDA,SELTITL,TLCHNGD)	; Watermark image of TIUDA 'Rescinded'

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: OK2MARK+4
Function Call: WRITE	Prompt: !," Title changed. Note has no image to watermark." Line Location: WTRMARK+6
Function Call: WRITE	Prompt: !," Title not changed; image not watermarked." Line Location: WTRMARK+8
Function Call: WRITE	Prompt: !," Title changed. Image for note #",TIUDA," could not be queued for watermarking. Please see" Line Location: WTRMARK+12
Function Call: WRITE	Prompt: !,"Imaging Manager." Line Location: WTRMARK+13
Function Call: WRITE	Prompt: !," Title changed; Image queued for watermarking." Line Location: WTRMARK+15
Function Call: WRITE	Prompt: !,"Checking signed addenda for images to watermark. . ." Line Location: CKADDA+15
Function Call: WRITE	Prompt: !,"No addendum images to watermark." Line Location: CKADDA+24
Function Call: WRITE	Prompt: !,NUMADDA," addendum image(s) queued for watermarking." Line Location: CKADDA+28
Function Call: WRITE	Prompt: !,NUMADDA," addendum image(s) could not be queued for watermarking. Please" Line Location: CKADDA+32
Function Call: WRITE	Prompt: !,"see Imaging Manager." Line Location: CKADDA+33
Routine Call	DIR Line Location: OK2MARK+4

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	WTRMARK+10
^TIU(8925 - [#8925]	AD2RAD+2, CKADDA+4
^TIU(8925.1 - [#8925.1]	AD2RAD+2, AD2RAD+4

Name	Field # of Occurrence
ADDMIEN	CKADDA+1~, CKADDA+4*, CKADDA+5, CKADDA+6
ARRADDA	CKADDA+1~, CKADDA+7
ARRADDA(	CKADDA+6*, CKADDA+11
ARRCAN	CKADDA+1~, CKADDA+14
ARRCAN(	CKADDA+13*, CKADDA+17
DIR	OK2MARK+1~
DIR("A"	OK2MARK+2, OK2MARK+3
DIR("B"	OK2MARK+4*
DIR(0	OK2MARK+4*
HASIMG	CKADDA+1~, CKADDA+2, CKADDA+19, CKADDA+24
IMAGERR	CKADDA+1~, CKADDA+2, CKADDA+21, CKADDA+29, CKADDA+31
IMAGQUED	CKADDA+1~, CKADDA+2, CKADDA+22, CKADDA+25, CKADDA+27
NOTEDA	AD2RAD~, AD2RAD+2
NUMADDA	CKADDA+26~, CKADDA+27, CKADDA+28, CKADDA+30~, CKADDA+31, CKADDA+32
OK2MARK	WTRMARK+1~, WTRMARK+2*
SELNEWTL	AD2RAD~, AD2RAD+4
SELTITL	WTRMARK~, WTRMARK+3, WTRMARK+5, WTRMARK+10
SELTLNM	AD2RAD+1~, AD2RAD+4*, AD2RAD+5
TITLIEN	AD2RAD+1~, AD2RAD+2*
TITLNM	AD2RAD+1~, AD2RAD+2*, AD2RAD+3
TIUDA	WTRMARK~, WTRMARK+3, WTRMARK+4, WTRMARK+5, WTRMARK+7, WTRMARK+10, WTRMARK+12, WTRMARK+14, WTRMARK+16, CKADDA~ , CKADDA+4
TIUI	CKADDA+1~, CKADDA+2, CKADDA+11, CKADDA+12, CKADDA+13
TIUJ	CKADDA+1~, CKADDA+2, CKADDA+17, CKADDA+18, CKADDA+20
>> TIUQUIT	WTRMARK+8*
TIUY	WTRMARK+1~, WTRMARK+10, CKADDA+20~
TIUY(0	WTRMARK+11, CKADDA+21
TLCHNGD	WTRMARK~, WTRMARK+2, WTRMARK+5, WTRMARK+10*
U	AD2RAD+2, AD2RAD+4
X	OK2MARK+1~, WTRMARK+9~, WTRMARK+10*
Y	OK2MARK+1~, OK2MARK+5

Information