Routine: TIUP113

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC (,$$S)^%ZTLOAD ($$FMADD,$$NOW)^XLFDT MES^XPDUTL
VA Fileman	4	NOW^%DTC ^DIE $$GET1^DIQ ^DIR
Text Integration Utility	2	KILL^TIUDD8 MAIL^TIUP113P
Registration	1	$$SITE^VASITE

Entry Points

Name	Comments	DBIA/ICR reference
NOEX(TIUS,TIUJ)	; -- No exceptions ; Input -- TIUS Choice 2 or 3 ; -- TIUJ Exception entry types A (1) or B (2)
HDR	; -- Header
SETDIV	; -- Automatically set division for documents
PRINT	; -- Print job
UPDATE	; -- Exception entries
SETCHKQ	; Send bulletin and re-set check point
TWOA	; -- Load entries with selection ; Input -- RESULT Institution file (#4) IEN
DEVICE	; -- Device Selection
SETEX(TIUDA,TIUEX)	; -- Load ^XTMP with exception entries ; Input -- TIUDA TIU Document file (#8925) IEN ; TIUEX Exception types: ; 1=Cannot determine DIVISION from Hospital Location ; 2=Attempted to load DIVISION data but entry in use ; (value=1) (see SETRSLT for value=2)
BUILD	; -- Rebuild SEARCH CATEGORIES so DIVISION is selectable
THREEB(TIUS)	; -- Try to load locked entries ; Input -- TIUS Choice 3
EXIT	; -- Exits here if ^ at: DEVICE prompt, ; -- two UPDATE areas, or at End of Page
ASK	; -- End of Page
MAIN	; -- Control unit
EXHDR	; -- Exception entry headers
SETRSLT(TIUDA,RESULT)	; -- Set DIVISION data and ADIV x-ref ; Input -- TIUDA TIU Document file (#8925) IEN ; RESULT Institution file (#4) IEN

External References

Name	Field # of Occurrence
NOW^%DTC	HDR+2
^%ZIS	DEVICE+5
HOME^%ZIS	DEVICE+11
^%ZISC	DEVICE+12
^%ZTLOAD	MAIN+6, UPDATE+33, DEVICE+9
$$S^%ZTLOAD	SETDIV+20, TWOA+10
^DIE	SETRSLT+8
$$GET1^DIQ	PRINT+14
^DIR	UPDATE+22, UPDATE+24, ASK+3
KILL^TIUDD8	BUILD+1
MAIL^TIUP113P	SETCHKQ+5
$$SITE^VASITE	SETDIV+36, UPDATE+25
$$FMADD^XLFDT	SETDIV+8
$$NOW^XLFDT	SETDIV+2, SETCHKQ+1, SETCHKQ+2
MES^XPDUTL	DEVICE+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"PATCH TIU1113" Line Location: MAIN+2
Function Call: WRITE	Prompt: !!,"Load the DIVISION field for TIU DOCUMENT file (#8925) entries.",! Line Location: MAIN+3
Function Call: WRITE	Prompt: !!,"A task has been queued in the background and a bulletin will be sent" Line Location: MAIN+8
Function Call: WRITE	Prompt: !,"to you upon completion of the task or if the task is stopped." Line Location: MAIN+9
Function Call: WRITE	Prompt: !!,"The task number is "_$G(ZTSK)_"." Line Location: MAIN+10
Function Call: WRITE	Prompt: !,"If you did not receive a mail message which indicated the post-" Line Location: UPDATE+1
Function Call: WRITE	Prompt: !,"install COMPLETED, you must invoke MAIN^TIUP113 from Programmer" Line Location: UPDATE+2
Function Call: WRITE	Prompt: !,"mode before following the instructions below.",! Line Location: UPDATE+3
Function Call: WRITE	Prompt: !!,"A task has been queued in the background for Choice 2." Line Location: UPDATE+35
Function Call: WRITE	Prompt: !,"The task number is "_$G(ZTSK)_"." Line Location: UPDATE+36
Function Call: WRITE	Prompt: !!,"...Choice 3 - UPDATING NOW....",!! Line Location: THREEB+3
Function Call: WRITE	Prompt: !,"Choice: ",TIUS,"-type ",$S(TIUJ=2:"B",1:"A") Line Location: NOEX+5
Function Call: WRITE	Prompt: " has no exceptions." Line Location: NOEX+6
Function Call: WRITE	Prompt: !! Line Location: DEVICE+5
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"Request queued",1:"Request Cancelled!") Line Location: DEVICE+9
Function Call: WRITE	Prompt: !!,$P($T(EXHDR+TIUS),";",3) Line Location: PRINT+5
Function Call: WRITE	Prompt: !?4,"No exceptions." Line Location: PRINT+6
Function Call: WRITE	Prompt: !!,$P($T(EXHDR+TIUS),";",3) Line Location: PRINT+8
Function Call: WRITE	Prompt: !?4,TIUDA Line Location: PRINT+9
Function Call: WRITE	Prompt: " ",$P($G(^TIU(8925.6,+TIUST,0)),U) Line Location: PRINT+11
Function Call: WRITE	Prompt: ": ",$$GET1^DIQ(4,TIUIFP,.01) Line Location: PRINT+14
Function Call: WRITE	Prompt: ! Line Location: ASK+2
Function Call: WRITE	Prompt: @IOF,"TIU1113 POST-INSTALL EXCEPTION LIST - Printed: ",TIUNOW Line Location: HDR+3
Function Call: WRITE	Prompt: !!,"Listed below are TIU DOCUMENT entry numbers that did not get " Line Location: HDR+4
Function Call: WRITE	Prompt: "DIVISION data",!,"loaded. If a division name is listed with an " Line Location: HDR+5
Function Call: WRITE	Prompt: "entry number, the record was",!,"in use and the division data " Line Location: HDR+6
Function Call: WRITE	Prompt: "could not be loaded." Line Location: HDR+7
Function Call: WRITE	Prompt: ! Line Location: HDR+8
Function Call: WRITE	Prompt: LNE Line Location: HDR+8
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"OK...please remember to finish the post-install " Line Location: EXIT+3
Function Call: WRITE	Prompt: "by: >D UPDATE^TIUP113" Line Location: EXIT+4
Routine Call	%ZIS Line Location: DEVICE+11
Routine Call	DIE Line Location: SETRSLT+8
Routine Call	DIR Line Location: UPDATE+22 UPDATE+24 ASK+3
Routine Call	%ZIS Line Location: DEVICE+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ
^TIU(8925 - [#8925]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	HDR+2
^SC - [#44]	SETDIV+34
^TIU(8925 - [#8925]	SETDIV+14, SETDIV+23, SETDIV+25, SETDIV+29, SETDIV+33, SETDIV+35, SETRSLT+4, SETRSLT+9, THREEB+7, PRINT+10
^TIU(8925.1 - [#8925.1]	SETDIV+27
^TIU(8925.6 - [#8925.6]	PRINT+11
^XTMP("TIUP113"	SETDIV+2, SETDIV+4, SETDIV+5, SETDIV+8, SETDIV+9, SETDIV+10, SETDIV+11!, SETDIV+17, SETCHKQ+1, SETCHKQ+2* , SETCHKQ+3, SETCHKQ+7, SETEX+6, SETEX+7, SETRSLT+5, SETRSLT+6, TWOA+4, TWOA+6!, TWOA+13, THREEB+4 , THREEB+5, THREEB+7!, THREEB+8, NOEX+4, PRINT+6, PRINT+7, PRINT+13

Label References

Name	Line Occurrences
ASK	PRINT+4, PRINT+8
EXIT	UPDATE+22, UPDATE+24, DEVICE+5
HDR	PRINT+5, PRINT+8
NOEX	UPDATE+28, THREEB+2
PRINT	DEVICE+12
SETEX	SETDIV+29, SETDIV+38
SETRSLT	SETDIV+40, TWOA+5, THREEB+6
THREEB	UPDATE+38

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	HDR+2
%ZIS	DEVICE+5*, DEVICE+10!
DA	SETRSLT+3~, SETRSLT+7*
DIE	SETRSLT+3~, SETRSLT+7*
DIR	UPDATE+4~, UPDATE+24~, ASK+2~
DIR("A"	UPDATE+6, UPDATE+7, UPDATE+8, UPDATE+9, UPDATE+10, UPDATE+11, UPDATE+12, UPDATE+13, UPDATE+14, UPDATE+15 , UPDATE+16, UPDATE+17, UPDATE+18, UPDATE+19, UPDATE+20, UPDATE+21
DIR(0	UPDATE+22, UPDATE+24, ASK+2*
DIRUT	UPDATE+4~, UPDATE+22, UPDATE+24
DR	SETRSLT+3~, SETRSLT+7*
DT	SETDIV+8
DTOUT	UPDATE+4~, ASK+3
DUOUT	UPDATE+4~, ASK+3
IO	DEVICE+12, ASK+1
IO("Q"	DEVICE+6
IO(0	ASK+1
IOF	HDR+3
IOM	HDR+8
IOSL	PRINT+8
IOST	ASK+1
LNE	HDR+1~, HDR+8*
POP	DEVICE+5!
RESULT	SETDIV+31~, SETDIV+36, SETDIV+40, SETRSLT~, SETRSLT+5, UPDATE+5~, UPDATE+25, TWOA+5, THREEB+2~, THREEB+5* , THREEB+6
TIUCHC	UPDATE+5~, UPDATE+22*, UPDATE+23, UPDATE+24, UPDATE+26, UPDATE+27
TIUCNT	SETDIV+1~, SETDIV+15, SETDIV+19, SETDIV+21, TWOA+2~, TWOA+7, TWOA+9, TWOA+11
TIUDA	SETDIV+1~, SETDIV+5, SETDIV+10, SETDIV+14, SETDIV+17, SETDIV+23, SETDIV+25, SETDIV+29, SETDIV+33, SETDIV+35 , SETDIV+38, SETDIV+40, SETEX~, SETEX+6, SETRSLT~, SETRSLT+4, SETRSLT+5, SETRSLT+7, SETRSLT+9, UPDATE+5~ , TWOA+3, TWOA+4, TWOA+5, TWOA+6, THREEB+2, THREEB+4, THREEB+5, THREEB+6, THREEB+7, PRINT+1~ , PRINT+3, PRINT+7*, PRINT+9, PRINT+10, PRINT+13
TIUDIV	UPDATE+5~, UPDATE+25*
TIUDTYP	SETDIV+24~, SETDIV+25*, SETDIV+27
TIUDVHL	SETDIV+31~, SETDIV+32, SETDIV+34, SETDIV+36, SETDIV+37
TIUE	SETDIV+31~, SETDIV+32, SETDIV+35, SETDIV+36, SETDIV+37
TIUEX	SETDIV+24~, SETEX~, SETEX+6, SETEX+7
TIUHL	SETDIV+31~, SETDIV+32, SETDIV+33, SETDIV+34, SETDIV+37
TIUI	UPDATE+5~, UPDATE+26*, UPDATE+27
TIUIFP	SETDIV+31~, SETDIV+32, SETDIV+36, SETDIV+37, UPDATE+25, PRINT+1~, PRINT+13, PRINT+14
TIUJ	UPDATE+5~, NOEX~, NOEX+4, NOEX+5
TIUK	UPDATE+5~, UPDATE+6*
TIUMSG	DEVICE+1~, DEVICE+4
TIUMSG(1	DEVICE+2*
TIUMSG(2	DEVICE+3*
TIUNOEX	UPDATE+5~, UPDATE+28, THREEB+2, NOEX+3, NOEX+7
TIUNOW	HDR+1~, HDR+2*, HDR+3
TIUOUT	UPDATE+5~, UPDATE+6, DEVICE+1~, DEVICE+5, PRINT+1~, PRINT+3, PRINT+4, PRINT+7, PRINT+8, ASK+3* , EXIT+2
TIUS	SETDIV+1~, SETDIV+9, UPDATE+5~, UPDATE+27, UPDATE+28, UPDATE+38, THREEB~, THREEB+2, NOEX~, NOEX+5 , PRINT+1~, PRINT+3*, PRINT+4, PRINT+6, PRINT+7, PRINT+12
TIUST	PRINT+1~, PRINT+10*, PRINT+11
U	SETDIV+8, SETDIV+23, SETDIV+25, SETDIV+27, SETDIV+33, SETDIV+34, SETDIV+35, THREEB+7, PRINT+10, PRINT+11
X	UPDATE+4~, UPDATE+24~, ASK+2~
Y	UPDATE+4~, UPDATE+22, UPDATE+24~, UPDATE+25, ASK+2~, HDR+2*
ZTDESC	MAIN+1~, MAIN+5, UPDATE+29~, UPDATE+32, DEVICE+8*, DEVICE+10!
ZTDTH	DEVICE+10!
ZTIO	MAIN+1~, MAIN+4, UPDATE+29~, UPDATE+30, DEVICE+10!
>> ZTQUEUED	PRINT+2
>> ZTREQ	PRINT+2*
ZTRTN	MAIN+1~, MAIN+4, UPDATE+29~, UPDATE+30, DEVICE+7*, DEVICE+10!
ZTSAVE	MAIN+1~, UPDATE+29~
ZTSAVE("DUZ"	MAIN+4, UPDATE+31
ZTSAVE("RESULT"	UPDATE+31*
ZTSK	MAIN+1~, MAIN+7, MAIN+10, UPDATE+29~, UPDATE+34, UPDATE+36, DEVICE+9, DEVICE+10!
>> ZTSTOP	SETDIV+14, SETDIV+20, SETCHKQ+1, SETCHKQ+7, TWOA+4, TWOA+10, TWOA+13

Customize PDF page

Package: Text Integration Utility

Routine: TIUP113

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items