Routine: TIUPRPN

Information

TIUPRPN ;SLC/MJC - Print SF 509 Progress Notes ;;7-6-95 9:00pm

Source file <TIUPRPN.m>

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
Text Integration Utility	1	PRINT^TIUPRPN1

Package	Total	Caller Graph
Text Integration Utility	3	TIUPRCN TIUPRPN3 TIUPRPN6

Name	Comments	DBIA/ICR reference
ENTRY	; Entry point to print progress notes-called from ^TIUA
ENTRY1	; Entry point from above
EXIT
DEVICE(TIUFLAG,TIUSPG)	; pick your device

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DEVICE+2
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"Request Queued!",1:"Request Canceled!") Line Location: DEVICE+7
Routine Call	%ZIS Line Location: DEVICE+9
Routine Call	%ZIS Line Location: DEVICE+2

Name	Line Occurrences (* Changed, ! Killed)
^TMP("TIULQ"	ENTRY1+4!, EXIT!
^TMP("TIUPR"	EXIT!

Name	Line Occurrences
ENTRY1	DEVICE+10
EXIT	DEVICE+2, DEVICE+4

Name	Field # of Occurrence
>> %ZIS	DEVICE+2*
D0	ENTRY1+1~
DIROUT	ENTRY1+1~
DIRUT	ENTRY1+1~
DN	ENTRY1+1~
DTOUT	ENTRY1+1~
DUOUT	ENTRY1+1~
IO	DEVICE+10, ENTRY+2
IO("Q"	DEVICE+4!
IOP	DEVICE+2!
IOST	ENTRY1+2
POP	DEVICE+2!
TIUERR	ENTRY1+1~
TIUFLAG	DEVICE~, DEVICE+3, DEVICE+8!, ENTRY1+2, ENTRY1+3, ENTRY1+6
TIUSPG	DEVICE~, DEVICE+3, DEVICE+8!, ENTRY+1~, ENTRY1+2, ENTRY1+3*, ENTRY1+6
Y	ENTRY1+1~
ZTDESC	DEVICE+6*, DEVICE+8!
ZTDTH	DEVICE+8!
ZTIO	DEVICE+8!
>> ZTQUEUED	ENTRY1+5
>> ZTREQ	ENTRY1+5*
ZTRTN	DEVICE+5*, DEVICE+8!
ZTSAVE	DEVICE+8!
ZTSAVE("TIUFLAG"	DEVICE+6*
ZTSAVE("TIUSPG"	DEVICE+6*
ZTSAVE("^TMP(""TIUPR"",$J,"	DEVICE+5*
ZTSK	DEVICE+7, DEVICE+8!