Routine: TIUPS155

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
Text Integration Utility	2	($$CLASS,ROLLBACK)^TIUCNSLT $$ISA^TIULX
Consult Request Tracking	1	GET^GMRCTIU
MailMan	1	^XMD
VA Fileman	1	$$GET1^DIQ

Package

Total

Call Graph

(,HOME)^%ZIS ^%ZISC ^%ZTLOAD

($$CLASS,ROLLBACK)^TIUCNSLT $$ISA^TIULX

GET^GMRCTIU

^XMD

$$GET1^DIQ

Name	Comments	DBIA/ICR reference
HDR	; --Header for report--
PRT
LINK	; Updates the GMR global with the amended consult note. Stores in XTMP global ; Rollsback retracted note from ^GMR(123 node 50
PRINT	; -- Device Selection
MAIL	; Send mail message
ADDSP(TIUY)	; Add space to name for display.

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"Request queued",1:"Request Cancelled!") Line Location: PRINT+6
Function Call: WRITE	Prompt: ! Line Location: LINK+35
Function Call: WRITE	Prompt: !,"There are no records to print." Line Location: LINK+36
Function Call: WRITE	Prompt: ! Line Location: LINK+38
Function Call: WRITE	Prompt: !,?2,"TIU1.0155 Amended Note - Consult Clean Up Report" Line Location: HDR+2
Function Call: WRITE	Prompt: !!,"The following consult(s) have been updated to display and print amended" Line Location: HDR+3
Function Call: WRITE	Prompt: !,"notes on the Consult Tab." Line Location: HDR+4
Function Call: WRITE	Prompt: !!,"Patient",?22,"Consult Request",?45,"Consult No.",! Line Location: HDR+5
Routine Call	%ZIS Line Location: PRINT+8
Routine Call	%ZIS Line Location: PRINT+2

FileNo	Call Tags
^GMR(123 - [#123]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	LINK+27
^GMR(123 - [#123]	LINK+22
^TIU(8925 - [#8925]	LINK+15, LINK+17, LINK+18, LINK+19, LINK+25, LINK+26, LINK+31
^XTMP("TIUP155"	LINK+29*, MAIL+4, MAIL+5

Name	Field # of Occurrence
%ZIS	PRINT+2*, PRINT+7!
ADSP	ADDSP+2~, ADDSP+3*, ADDSP+4
CNSERV	LINK+3~, LINK+28*, LINK+34
CNSLT	LINK+3~, LINK+13, LINK+15, LINK+17, LINK+22, LINK+28, LINK+29, LINK+33, LINK+34
CNT	ADDSP+2~, ADDSP+4*
DUZ	MAIL+6
FLAG	LINK+2~, LINK+22*, LINK+23
GMRCSTAT	LINK+2~, LINK+30*, LINK+33
IO	PRINT+9
IO("Q"	PRINT+3!
LEN	ADDSP+2~, ADDSP+3*
POP	PRINT+2!
SPC	ADDSP+2~, ADDSP+3*, ADDSP+4
STATUS	LINK+2~, LINK+18*, LINK+30
TIUAUTH	LINK+2~, LINK+31*, LINK+33
TIUCNT	LINK+3~, LINK+13, LINK+24, LINK+29, LINK+36
TIUDA	LINK+2~, LINK+16, LINK+17, LINK+18, LINK+19, LINK+22, LINK+25, LINK+26, LINK+31, LINK+33
TIUDA2	LINK+2~, LINK+21, LINK+22
TIUODA	LINK+3~, LINK+25*, LINK+32
TIUPT	LINK+3~, LINK+26*, LINK+27
TIUPT1	LINK+3~, LINK+27*, LINK+29, LINK+34
TIUY	LINK+3~, LINK+19, LINK+20, ADDSP~, ADDSP+3, ADDSP+4, ADDSP+5
U	LINK+12*, LINK+18, LINK+25, LINK+26, LINK+27, LINK+31
XMDUZ	MAIL+2~, MAIL+3*
XMSUB	MAIL+2~, MAIL+3*
XMTEXT	MAIL+2~, MAIL+4, MAIL+5
XMTXT	MAIL+2~
XMTXT(1	MAIL+4*
XMTXT(2	MAIL+4*
XMTXT(3	MAIL+4*
XMY	MAIL+2~
XMY(	MAIL+6*
XMY("G.PATIEN	T SAFETY NOTIFICATIONS" , MAIL+7*
ZTDESC	PRINT+5*, PRINT+7!
ZTDTH	PRINT+7!
ZTIO	PRINT+7!
>> ZTQUEUED	LINK+11
>> ZTREQ	LINK+11*
ZTRTN	PRINT+4*, PRINT+7!
ZTSAVE	PRINT+7!
ZTSK	PRINT+6, PRINT+7!

Information