Routine: TIUPNCV7

Package	Total	Call Graph
VA Fileman	2	^DIK ^DIR
Kernel	1	($$FMDIFF,$$FMTE,$$NOW)^XLFDT

Package	Total	Caller Graph
Text Integration Utility	2	TIU GMRPN HALT TIU GMRPN MONITOR

Entry Points

Name	Comments	DBIA/ICR reference
HELP10	;Help text for GMRP IEN prompt
AGAIN	;Redisplay monitor information
RETURN	;Issues RETURN prompt
MONITOR	;Monitor progress notes conversion
PNHALT	;Options allows site to stop conversion
FIX	;Will back records out of ^TIU(8925
DISPLAY	;Displays known information
HALTHELP	;Help Prompt for Halt action
SETVAR	;Using File ^TIU(8925.97, to set and compute variables

External References

Name	Field # of Occurrence
^DIK	FIX+5
^DIR	PNHALT+9, RETURN+3
$$FMDIFF^XLFDT	SETVAR+6, SETVAR+7
$$FMTE^XLFDT	SETVAR+4
$$NOW^XLFDT	SETVAR+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"Enter the Internal Entry Number (IEN)) of the last progress" Line Location: HELP10+1
Function Call: WRITE	Prompt: !?5,"note you want to convert. By entering an IEN, you can run" Line Location: HELP10+2
Function Call: WRITE	Prompt: !?5,"this conversion while users continue to use the Progress Note" Line Location: HELP10+3
Function Call: WRITE	Prompt: !?5,"options." Line Location: HELP10+4
Function Call: WRITE	Prompt: !!?5,"To complete the conversion, use the RESTART option." Line Location: HELP10+5
Function Call: WRITE	Prompt: !!,"COMPLETED... "_CTR_" RECORDS DELETED." Line Location: FIX+6
Function Call: WRITE	Prompt: !!?12,"**** REQUEST TO HALT CONVERSION ****",! Line Location: PNHALT+1
Function Call: WRITE	Prompt: !!?5,"The Progress Note Conversion is not currently running.",! Line Location: PNHALT+3
Function Call: WRITE	Prompt: !!?5,"Progress Note Conversion has been stopped." Line Location: PNHALT+5
Function Call: WRITE	Prompt: !?5,"Use the RESTART option to begin again.",! Line Location: PNHALT+6
Function Call: WRITE	Prompt: !! Line Location: PNHALT+7
Function Call: WRITE	Prompt: !!?5,"Okay. Conversion will continue to run.",! Line Location: PNHALT+10
Function Call: WRITE	Prompt: !!?15,"!!!!!!!! CONVERSION STOPPED !!!!!!!!",! Line Location: PNHALT+12
Function Call: WRITE	Prompt: !?5,"Last Progress Note record processed is: ^GMR(121,"_TIUPNLST Line Location: PNHALT+14
Function Call: WRITE	Prompt: !!?5,"Answering ""YES"" to this question will stop the Progress Note" Line Location: HALTHELP+1
Function Call: WRITE	Prompt: !?5,"Conversion before completion. ""NO"" will allow the conversion" Line Location: HALTHELP+2
Function Call: WRITE	Prompt: !?5,"to continue.",! Line Location: HALTHELP+3
Function Call: WRITE	Prompt: !!?12,"**** MONITORING PROGRESS NOTE CONVERSION ****",! Line Location: MONITOR+2
Function Call: WRITE	Prompt: !?5,"This conversion has been run..." Line Location: MONITOR+4
Function Call: WRITE	Prompt: !?5,"This option is only for use during the running of the Progress" Line Location: MONITOR+5
Function Call: WRITE	Prompt: !?5,"Notes conversion from ^GMR(121 to ^TIU(8925." Line Location: MONITOR+6
Function Call: WRITE	Prompt: @IOF Line Location: AGAIN+6
Function Call: WRITE	Prompt: !!?12,"** MONITORING PROGRESS NOTE CONVERSION **",! Line Location: AGAIN+6
Function Call: WRITE	Prompt: !?5," Conversion began: ",TIME Line Location: DISPLAY+1
Function Call: WRITE	Prompt: !?5," Starting record: ",START Line Location: DISPLAY+2
Function Call: WRITE	Prompt: !?5," Processing record: ",CURRENT Line Location: DISPLAY+3
Function Call: WRITE	Prompt: !?5," Records processed: ",CNTR Line Location: DISPLAY+4
Function Call: WRITE	Prompt: !?5,"Current # of error: ",ERRORS Line Location: DISPLAY+5
Function Call: WRITE	Prompt: !?5," Elapsed time: ",ETIME Line Location: DISPLAY+6
Function Call: WRITE	Prompt: !?5," Notes per hour: ",$P(PERHR,".") Line Location: DISPLAY+7
Function Call: WRITE	Prompt: !?5," Days left: ",$E(DAYS,1,5) Line Location: DISPLAY+8
Function Call: WRITE	Prompt: !?5," Hours left: ",$E(LEFT,1,5) Line Location: DISPLAY+9
Function Call: WRITE	Prompt: !!?2,"Notes left to convert: ",REMAIN1 Line Location: DISPLAY+10
Function Call: WRITE	Prompt: !! Line Location: DISPLAY+11
Function Call: WRITE	Prompt: ! Line Location: RETURN+2
Routine Call	DIR Line Location: PNHALT+9 RETURN+3

Name	Line Occurrences (* Changed, ! Killed)
^GMR(121	SETVAR+10, SETVAR+12
^TIU(8925 - [#8925]	FIX+3, FIX+4, SETVAR+10
^TIU(8925.97 - [#8925.97]	PNHALT+2, PNHALT+4, PNHALT+11*, PNHALT+13, MONITOR+3, SETVAR+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BK	FIX+3*, FIX+4, FIX+5
BYE	AGAIN+1~, AGAIN+5, RETURN+3*
CNTR	AGAIN+1~, SETVAR+3*, SETVAR+9, DISPLAY+4
>> CTR	FIX+2, FIX+5, FIX+6
CURRENT	AGAIN+1~, SETVAR+2*, SETVAR+12, DISPLAY+3
>> DA	FIX+5*
>> DAYS	SETVAR+11*, DISPLAY+8
>> DIK	FIX+2*
DIR	PNHALT+7!, PNHALT+9!, RETURN+1~
DIR("?"	PNHALT+9*
DIR("A"	PNHALT+8*
DIR("B"	PNHALT+9*
DIR(0	PNHALT+7, RETURN+3
>> DIRUT	PNHALT+10, RETURN+3
ERRORS	AGAIN+1~, SETVAR+3*, DISPLAY+5
ESECS	AGAIN+2~, SETVAR+7*, SETVAR+8
ETIME	AGAIN+1~, SETVAR+6*, DISPLAY+6
IOF	AGAIN+6
IOSL	RETURN+2
LEFT	AGAIN+2~, SETVAR+11*, DISPLAY+8, DISPLAY+9
MIN	AGAIN+2~, SETVAR+8*, SETVAR+9
NODE	AGAIN+1~, SETVAR+1*, SETVAR+2, SETVAR+3
NTIME	AGAIN+1~, SETVAR+5*, SETVAR+6, SETVAR+7
NUM	AGAIN+2~, SETVAR+10*, SETVAR+11
PERHR	AGAIN+2~, SETVAR+9*, SETVAR+11, DISPLAY+7
PERMIN	AGAIN+1~, SETVAR+9*
>> REMAIN1	SETVAR+12*, DISPLAY+10
START	AGAIN+1~, SETVAR+2*, DISPLAY+2
STIME	AGAIN+1~, SETVAR+2*, SETVAR+4, SETVAR+6, SETVAR+7
TIME	AGAIN+1~, SETVAR+4*, DISPLAY+1
>> TIU("HERE"	FIX+3
>> TIULN	RETURN+2*
TIUPNLST	PNHALT+13*, PNHALT+14, PNHALT+15!
U	FIX+4, PNHALT+2, PNHALT+4, PNHALT+11, PNHALT+13, MONITOR+3, SETVAR+2, SETVAR+3, SETVAR+10, SETVAR+12
Y	PNHALT+10, RETURN+1~

Customize PDF page

Package: Text Integration Utility

Routine: TIUPNCV7

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: