Routine: TIUPRDS

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Text Integration Utility	3	$$ISADDNDM^TIULC1 EXTRACT^TIULQ PRINT^TIUPRDS1

Package	Total	Caller Graph
Text Integration Utility	1	TIURE

Name	Comments	DBIA/ICR reference
DEVICE	; Device handling ; Call with: ZTRTN
QUE	; Queue output
WRITE(TIUFLAG)	; Writes form 10-1000 data to screen or paper.
NOQUE
ENTRY	; Entry point to print queued discharge summary

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"Request Queued!",1:"Request Cancelled!") Line Location: QUE+4
Function Call: WRITE	Prompt: !,"No Document Record Specified.",$C(7) Line Location: ENTRY+6
Function Call: WRITE	Prompt: !,$P(TIUERR,U,2) Line Location: ENTRY+16
Routine Call	%ZIS Line Location: DEVICE+4 QUE+6

Name	Line Occurrences (* Changed, ! Killed)
^TIU(8925 - [#8925]	ENTRY+13
^TMP("TIULQ"	ENTRY+2!, ENTRY+17, ENTRY+19!
^TMP("TIUPR"	ENTRY+6, ENTRY+9, ENTRY+10, ENTRY+12, ENTRY+19!

Name	Line Occurrences
@(	NOQUE
QUE	DEVICE+6

Name	Field # of Occurrence
%	QUE+1~, QUE+2*
%I	WRITE+1~
%T	WRITE+1~
%Y	WRITE+1~
%ZIS	DEVICE+2~, DEVICE+4*
%ZIS("B"	DEVICE+3*
D0	ENTRY+1~
DIROUT	ENTRY+1~, ENTRY+10, ENTRY+12
DIRUT	ENTRY+1~
DN	ENTRY+1~
DTOUT	ENTRY+1~
DUOUT	ENTRY+1~
IO	ENTRY+5
IO("Q"	DEVICE+6, QUE+2!
ION	DEVICE+5, QUE+3
IOP	DEVICE+2~, QUE+6*
POP	WRITE+1~, DEVICE+4
TIU0	ENTRY+1~, ENTRY+13*, ENTRY+14
TIUDA	ENTRY+11~, ENTRY+12, ENTRY+13, ENTRY+14*, ENTRY+15, ENTRY+18, ENTRY+19
>> TIUDEV	DEVICE+3, DEVICE+5*
TIUERR	ENTRY+1~, ENTRY+15, ENTRY+16
TIUFLAG	WRITE~, ENTRY+18
TIUI	ENTRY+1~, ENTRY+10*, ENTRY+12, ENTRY+19
TIUINI	ENTRY+1~, ENTRY+3*
TIUJ	ENTRY+1~, ENTRY+9*, ENTRY+10, ENTRY+12, ENTRY+19
U	ENTRY+14, ENTRY+16
Y	ENTRY+1~
ZTDESC	QUE+3*, QUE+5!
ZTDTH	QUE+1~, QUE+5!
ZTIO	QUE+1~, QUE+3*, QUE+5!
>> ZTQUEUED	ENTRY+4
>> ZTREQ	ENTRY+4*
ZTRTN	WRITE+1~, WRITE+2*, NOQUE, QUE+2, QUE+5!
ZTSAVE	QUE+1~, QUE+2!, QUE+5!
ZTSAVE(	QUE+2*
ZTSK	QUE+1~, QUE+4, QUE+5!

Information