Routine: TIUPNCVU

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$VERSION^XPDUTL
Text Integration Utility	2	EMERG^TIUPNCV4 $$READ^TIUU
VA Fileman	1	^DIR

Package	Total	Caller Graph
Text Integration Utility	2	TIU GMRPN FINAL TIUPNCV4

Entry Points

Name	Comments	DBIA/ICR reference
ASKCOS()	;Ask for cosigner to be used for notes that are signed but uncosigned and req cosignature
EN	; Entry Point
CONVERT(Y)	;Sets needed variables and calls the convert individual note process
EXPLAIN	;Explain what this option does
CLEAN	;KILL VARIABLES
DEVICE	;Allows user to queue this option
WHY
DQ	;Move through ^GMR(121 and convert any remaining notes

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"YOU MUST INSTALL TIU BEFORE RUNNING THIS OPTION!",$C(7) Line Location: EN+1
Function Call: WRITE	Prompt: !,TIULINE Line Location: WHY+0
Function Call: WRITE	Prompt: !,"Ok, come back when you're sure." Line Location: WHY+2
Function Call: WRITE	Prompt: !!,"It appears as though the Progress Notes conversion is running.",!,"Please run this after the conversion finishes." Line Location: WHY+4
Function Call: WRITE	Prompt: !,"Request ",$S($D(ZTSK):"Queued",1:"Cancelled"),! Line Location: DEVICE+2
Function Call: WRITE	Prompt: !!,"CONVERSION IS COMPLETE!" Line Location: DQ+3
Function Call: WRITE	Prompt: !!,"Total entries processed: ",$P(^GMR(121,0),"^",4),!,"Attempted to convert: ",TIUATC,!,"Converted: ",TIUCVTED Line Location: DQ+4
Function Call: WRITE	Prompt: !,"For notes that are signed but are uncosigned, an expected",!,"cosigner must be identified before notes can be moved to TIU." Line Location: ASKCOS+1
Function Call: WRITE	Prompt: !!,"Please identify a user who will become the expected cosigner for",!,"these notes. The clinical coordinator is recommended.",! Line Location: ASKCOS+2
Function Call: WRITE	Prompt: !,"Once these are moved to TIU the above named cosigner can edit the notes",!,"and put in the correct expected cosigner.",! Line Location: ASKCOS+3
Routine Call	%ZIS Line Location: DEVICE+2
Routine Call	DIR Line Location: ASKCOS+4
Routine Call	%ZIS Line Location: DEVICE+1

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	CONVERT+1
^GMR(121	DQ+2, DQ+4, CONVERT+1, CONVERT+3
^TIU(8925.97 - [#8925.97]	WHY+4, CONVERT+4*

Name	Field # of Occurrence
%ZIS	DEVICE+1*, CLEAN+1!
DIR	CLEAN+1!, ASKCOS+4~
DIR("A"	ASKCOS+4*
DIR(0	ASKCOS+4*
DPTIEN	CONVERT+1~*
EMER	CLEAN+1!, CONVERT+1*
GMRIEN	DQ+2*, CLEAN+1!, CONVERT+3, CONVERT+4
IO("Q"	DEVICE+2, CLEAN+1!
ION	DEVICE+2
IOST	DQ+1, DQ+2
POP	DEVICE+1, CLEAN+1!
TIU	CLEAN+1!
TIUATC	DQ+1, DQ+4, CLEAN+1!, CONVERT+1
TIUCVTED	DQ+1, DQ+4, CLEAN+1!, CONVERT+3
TIUECS	WHY+5*, CLEAN+1!
TIULINE	WHY*, CLEAN+1!
TIURUN	WHY+1*, WHY+2, CLEAN+1!
TIUWN	WHY*, CLEAN+1!
U	WHY+4
Y	CLEAN+1!, CONVERT~, CONVERT+1, ASKCOS+4~, ASKCOS+5
ZTDESC	DEVICE+2*, CLEAN+1!
ZTIO	DEVICE+2*, CLEAN+1!
ZTRTN	DEVICE+2*, CLEAN+1!
ZTSAVE	CLEAN+1!
ZTSAVE("TIUECS"	DEVICE+2*
ZTSK	DEVICE+2, CLEAN+1!

Name	Field # of Occurrence
$T(@(3)	WHY