Routine: TIUPS209

Package	Total	Call Graph
VA Fileman	4	^DIC FILE^DIE $$GET1^DIQ ^DIR
Kernel	2	($$FMADD,$$FMDIFF,$$FMTE,$$NOW)^XLFDT EN^XUTMDEVQ
Registration	1	$$SETSTR^VALM1
Text Integration Utility	1	$$WRAP^TIULS

Package	Total	Caller Graph
Text Integration Utility	1	TIU ACTIVE TITLE CLEANUP

Entry Points

Name	Comments	DBIA/ICR reference
EN	; control segment
RPT	;
ASKUSER(ANS,DIR,TIUQUIT)	; ask the user if they want to update titles now
OMIT	;
UPDATE	; updates status field of TIU Document Title to INACTIVE
RESTART	;
REPORT	;
SPACER(TEXT,LENGTH,REV)	;
GETLAST(TIUDA)	;

External References

Name	Field # of Occurrence
^DIC	OMIT+9
FILE^DIE	UPDATE+2
$$GET1^DIQ	RESTART+31, RESTART+32, RESTART+46, RESTART+55, RESTART+56, OMIT+14
^DIR	ASKUSER+8, OMIT+12, OMIT+16
$$WRAP^TIULS	RESTART+42, RESTART+55
$$SETSTR^VALM1	RESTART+43, RESTART+44, RESTART+45, RESTART+46
$$FMADD^XLFDT	RESTART+9
$$FMDIFF^XLFDT	RESTART+33
$$FMTE^XLFDT	RESTART+45
$$NOW^XLFDT	REPORT+2, RESTART+9, RESTART+10, RESTART+33
EN^XUTMDEVQ	EN+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN+2
Function Call: WRITE	Prompt: !,@LINETXT Line Location: RESTART+35
Function Call: WRITE	Prompt: !,DISPLAY Line Location: RESTART+47
Function Call: WRITE	Prompt: !,?2,$P(TITLE,"\|",DATA) Line Location: RESTART+48
Function Call: WRITE	Prompt: !!,"The following IENs from File #8925.1 have an invalid #.01 Field.",! Line Location: RESTART+50
Function Call: WRITE	Prompt: !,TIUDA Line Location: RESTART+51
Function Call: WRITE	Prompt: !!,"The following IENs from File #8925.1 have an incorrect #.04 Field.",! Line Location: RESTART+53
Function Call: WRITE	Prompt: !,$$SPACER(TIUDA,12)_$P(TITLE,"\|")_" ["_$$GET1^DIQ(8925.1,TIUDA,.04)_"]" Line Location: RESTART+56
Function Call: WRITE	Prompt: !,?14,$P(TITLE,"\|",DATA) Line Location: RESTART+57
Function Call: WRITE	Prompt: !!,"The following DOCUMENT IENs have an incorrect (null or zero) #.01 Field.",! Line Location: RESTART+59
Function Call: WRITE	Prompt: !,$$SPACER(TIUDA,12) Line Location: RESTART+60
Function Call: WRITE	Prompt: $$GET1^DIQ(8925.1,@TMP@("UNK",TIUDA),.01) Line Location: RESTART+60
Function Call: WRITE	Prompt: !!,"All active titles that have not been used in the previous 365 days" Line Location: ASKUSER+11
Function Call: WRITE	Prompt: !,"will be set to INACTIVE.",! Line Location: ASKUSER+12
Function Call: WRITE	Prompt: !,"You may select individual DOCUMENT TITLES that will NOT be set" Line Location: ASKUSER+13
Function Call: WRITE	Prompt: !,"to INACTIVE by this cleanup.",! Line Location: ASKUSER+14
Function Call: WRITE	Prompt: !!,"Enter the DOCUMENT TITLE(S) that will NOT be INACTIVATED",! Line Location: OMIT+4
Function Call: WRITE	Prompt: "during the cleanup process.",!! Line Location: OMIT+5
Function Call: WRITE	Prompt: "Enter RETURN or '^' to finish selections.",! Line Location: OMIT+6
Function Call: WRITE	Prompt: !!,"No selections made.",! Line Location: OMIT+12
Function Call: WRITE	Prompt: !!,$S(TIUCNT>1:"The following DOCUMENT TITLES will NOT be INACTIVATED: ",1:"The following DOCUMENT TITLE will NOT be INACTIVATED: "),!! Line Location: OMIT+13
Function Call: WRITE	Prompt: ?5,$$GET1^DIQ(8925.1,X_",",.01),! Line Location: OMIT+14
Function Call: WRITE	Prompt: !! Line Location: OMIT+16
Routine Call	DIC Line Location: OMIT+9
Routine Call	DIE Line Location: UPDATE+2
Routine Call	DIR Line Location: ASKUSER+8 OMIT+12 OMIT+16

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^TIU(8925.1 - [#8925.1]	Classic Fileman Calls, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TIU(8925 - [#8925]	RESTART+8, RESTART+19, GETLAST+2, GETLAST+6
^TIU(8925.1 - [#8925.1]	RESTART+2, RESTART+7, RESTART+21, RESTART+24, RESTART+30, GETLAST+3
^TMP("TIUPS209"	RESTART+3

Label References

Name	Line Occurrences
$$GETLAST	RESTART+32
$$SPACER	RESTART+44, RESTART+56, RESTART+60
ASKUSER	EN+3, ASKUSER+15
OMIT	ASKUSER+16
RESTART	RESTART+34
UPDATE	RESTART+34

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ANS	EN+1~, EN+3, ASKUSER~, ASKUSER+15
ANS("EXIT"	EN+3, ASKUSER+1, ASKUSER+8*
ANS("INACT"	RESTART+34, ASKUSER+1, ASKUSER+9, ASKUSER+10, ASKUSER+16
CNT	REPORT+1~, RESTART+1*, RESTART+4, RESTART+7, RESTART+11, RESTART+12, RESTART+13, RESTART+14, RESTART+15, RESTART+18 , RESTART+20, RESTART+21, RESTART+22, RESTART+23, RESTART+25, RESTART+26, RESTART+27, RESTART+30, RESTART+31, RESTART+32 , GETLAST+7
DATA	RESTART+38~, RESTART+39, RESTART+40, RESTART+41, RESTART+44, RESTART+45, RESTART+46, RESTART+48, RESTART+55~, RESTART+57*
DIC	OMIT+3~, OMIT+7*
DIC("A"	OMIT+8, OMIT+10
DIC("S"	OMIT+7*
DIC(0	OMIT+8*
DIR	ASKUSER~, ASKUSER+4, OMIT+3~
DIR("?"	ASKUSER+5, ASKUSER+6, ASKUSER+7*
DIR("A"	ASKUSER+4, OMIT+12, OMIT+15*
DIR("B"	ASKUSER+4, OMIT+15
DIR(0	ASKUSER+3, OMIT+12, OMIT+15*
DIRUT	ASKUSER+2~
DISPLAY	RESTART+38~, RESTART+43, RESTART+44, RESTART+45, RESTART+46, RESTART+47
DTOUT	ASKUSER+2~, ASKUSER+8
DUOUT	ASKUSER+2~, ASKUSER+8
ENDDT	REPORT+1~, RESTART+10*, RESTART+17
ENDTIME	REPORT+1~, RESTART+33*
GBL	REPORT+1~, RESTART+2, RESTART+6, RESTART+8, RESTART+17, GETLAST+1~, GETLAST+2*, GETLAST+4
IEN	GETLAST+1~, GETLAST+4, GETLAST+5, GETLAST+6, GETLAST+7
IOF	EN+2
LENGTH	SPACER~, SPACER+3
LINE	REPORT+1~, RESTART+35*
LINETXT	REPORT+1~, RESTART+35*
POP	EN+5~, ASKUSER+2~, OMIT+3~
REV	SPACER~, SPACER+4, SPACER+5
SPACER	SPACER+1~, SPACER+2, SPACER+3, SPACER+4, SPACER+5
ST	GETLAST+1~, GETLAST+4*
STATUS	RESTART+38~, RESTART+41*, RESTART+42
STRDT	REPORT+1~, RESTART+9, RESTART+17
STRTIME	REPORT+1~, REPORT+2*, RESTART+33
TDT	GETLAST+1~, GETLAST+4, GETLAST+5
TEMP	GETLAST+1~
TEMP(	GETLAST+4*, GETLAST+5
TEXT	SPACER~, SPACER+3, SPACER+4, SPACER+5, SPACER+6
TITLE	RESTART+38~, RESTART+42, RESTART+43, RESTART+48, RESTART+55~, RESTART+56, RESTART+57
TIUCNT	OMIT+3~, OMIT+7, OMIT+10, OMIT+12, OMIT+13
TIUCONT	OMIT+1~, OMIT+2, OMIT+17*
TIUD0	RESTART+19~, RESTART+20, RESTART+21, RESTART+22, RESTART+23, RESTART+24, GETLAST+6~, GETLAST+7
TIUD12	RESTART+19~, RESTART+24, GETLAST+6~, GETLAST+8
TIUDA	REPORT+1~, RESTART+16, RESTART+17, RESTART+19, RESTART+20, RESTART+28, RESTART+29, RESTART+30, RESTART+31, RESTART+32 , RESTART+51, RESTART+54, RESTART+55, RESTART+56, RESTART+60, GETLAST~, GETLAST+2, GETLAST+3, UPDATE+1~, UPDATE+2
TIUDESC	EN+5~, EN+6*, EN+7
TIUMSG	UPDATE+1~
TIUOMIT	EN+1~, OMIT+16!
TIUOMIT(	OMIT+10*, OMIT+14, UPDATE+2
TIUQUIT	ASKUSER~, ASKUSER+9, OMIT+1~, OMIT+2, OMIT+9, OMIT+11, OMIT+12, OMIT+16
TIURTN	EN+5~, EN+6*, EN+7
TIUSAVE	EN+5~, EN+7
TIUSAVE("*"	EN+6*
TIUUPDT	UPDATE+1~
TIUUPDT(	UPDATE+2*
TIUX	REPORT+1~, RESTART+5, RESTART+6, RESTART+19~, RESTART+21, RESTART+23, RESTART+36, RESTART+37*, RESTART+39, RESTART+42
TIUY	REPORT+1~, RESTART+5, RESTART+6, RESTART+7, RESTART+37, RESTART+39, RESTART+40, GETLAST+1~, GETLAST+3, GETLAST+8* , GETLAST+9
TMP	REPORT+1~, RESTART+3*, RESTART+7, RESTART+20, RESTART+21, RESTART+22, RESTART+23, RESTART+24, RESTART+29, RESTART+30 , RESTART+31, RESTART+32, RESTART+34, RESTART+37, RESTART+39, RESTART+49, RESTART+51, RESTART+52, RESTART+54, RESTART+58 , RESTART+60, RESTART+61, GETLAST+7, UPDATE+2
TOTTIME	REPORT+1~, RESTART+33*
U	RESTART+7, RESTART+21, RESTART+24, RESTART+30, RESTART+40, RESTART+41, RESTART+45, RESTART+46, GETLAST+3, GETLAST+8 , OMIT+16
X	ASKUSER+2~, OMIT+3~, OMIT+14*
Y	ASKUSER+2~, OMIT+3~, OMIT+9, OMIT+10, OMIT+16
Y(0	ASKUSER+9

Customize PDF page

Package: Text Integration Utility

Routine: TIUPS209

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items