Routine: TIUPNCV4

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Text Integration Utility	5	DRIVER^TIUPNCV (INTRO,MAIL)^TIUPNCV5 MAIN^TIUPNCV8 $$ASKCOS^TIUPNCVU $$READ^TIUU
Kernel	3	^%ZISC ^%ZTLOAD $$NOW^XLFDT
MailMan	2	KILL^XM ^XMB
VA Fileman	1	^DIR

Package	Total	Caller Graph
Text Integration Utility	5	TIU GMRPN CONVERT TIU GMRPN RESTART TIU GMRPN SINGLE TIUPNCV TIUPNCVU

Package

Total

Caller Graph

Text Integration Utility

TIU GMRPN CONVERT TIU GMRPN RESTART TIU GMRPN SINGLE TIUPNCV TIUPNCVU

Entry Points

Name	Comments	DBIA/ICR reference
ENINDY	;Entry of IEN
INDY	;Converts individual Progress Notes based on IEN in ^GMR(121
HELP4	;Help for INDY prompt
EMERG	;Emergency entrance - must pass "Y" and "EMER"
HELP2	;Help for RESTART prompt
HELP3	;Help for IEN prompt
HELP1	;Help for are you sure prompt
REPORT	;sends bulletin to initiator of conversion
ENTRY	;Entry point to set-up conversion
KILINDY	;Cleans up the debris
PNDEVICE	;Permits site to queue conversion
RESTART	;Permit restarting of conversion from last successfully processed note.

External References

Name	Field # of Occurrence
^%ZISC	PNDEVICE+6
^%ZTLOAD	PNDEVICE+4
^DIR	ENTRY+7, RESTART+7, ENINDY+3
DRIVER^TIUPNCV	ENTRY+11
INTRO^TIUPNCV5	ENTRY+4
MAIL^TIUPNCV5	RESTART+11
MAIN^TIUPNCV8	EMERG+4
$$ASKCOS^TIUPNCVU	ENINDY+5
$$READ^TIUU	ENTRY+8
$$NOW^XLFDT	RESTART+15
KILL^XM	REPORT+7
^XMB	REPORT+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"DUZ must be defined as an active user!",! Line Location: ENTRY+2
Function Call: WRITE	Prompt: !!,"Conversion has been completed.",! Line Location: ENTRY+5
Function Call: WRITE	Prompt: ! Line Location: ENTRY+6
Function Call: WRITE	Prompt: !!?9,$C(7),"Progress Notes Conversion Running in Foreground",! Line Location: ENTRY+10
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"Request Queued!",1:"Request Cancelled."),! Line Location: PNDEVICE+5
Function Call: WRITE	Prompt: ! Line Location: RESTART+1
Function Call: WRITE	Prompt: @IOF Line Location: RESTART+2
Function Call: WRITE	Prompt: !!?10,"**** RESTART PROGRESS NOTE/TIU CONVERSION ****",!! Line Location: RESTART+3
Function Call: WRITE	Prompt: !?5,"Conversion has NOT been previously run",!?5,"Please use the CONVERT PROGRESS NOTE option." Line Location: RESTART+5
Function Call: WRITE	Prompt: !!?5,"A mail message documenting discrepancies encountered during " Line Location: RESTART+8
Function Call: WRITE	Prompt: !,?5,"processing will be sent to you.",! Line Location: RESTART+9
Function Call: WRITE	Prompt: !!,"Restarting Progress Note Conversion at Record #"_GMRPST_"...",! Line Location: RESTART+13
Function Call: WRITE	Prompt: @IOF Line Location: INDY+2
Function Call: WRITE	Prompt: !!?18,"*** INDIVIDUAL RECORD CONVERSION ***",! Line Location: INDY+2
Function Call: WRITE	Prompt: !,"Entry ",Y," not found in file 121",$C(7) Line Location: ENINDY+4
Function Call: WRITE	Prompt: !!,"***Progress Note "_GMRPIFN_" NOT converted***",! Line Location: EMERG+6
Function Call: WRITE	Prompt: ^GMR(121,"ERROR",GMRPIFN),! Line Location: EMERG+7
Function Call: WRITE	Prompt: !!,"Enter Yes if you're ready to start the conversion." Line Location: HELP1+1
Function Call: WRITE	Prompt: !,"Press return or enter NO to stop this process." Line Location: HELP1+2
Function Call: WRITE	Prompt: !!?5,"Enter YES to re-start/re-queue the conversion." Line Location: HELP2+1
Function Call: WRITE	Prompt: !?5,"Press <ret> or enter NO to stop this option." Line Location: HELP2+2
Function Call: WRITE	Prompt: !!?5,"The default is the next expected Internal File Number (IEN)" Line Location: HELP3+1
Function Call: WRITE	Prompt: " for a note." Line Location: HELP3+2
Function Call: WRITE	Prompt: !?5,"If another starting point is required, enter the IEN for that" Line Location: HELP3+3
Function Call: WRITE	Prompt: " note." Line Location: HELP3+4
Function Call: WRITE	Prompt: !?5,"Enter ""^"" to stop option without processing." Line Location: HELP3+5
Function Call: WRITE	Prompt: !!?5,"Enter the Internal Entry Number (IEN) of the single Progress" Line Location: HELP4+1
Function Call: WRITE	Prompt: !?5,"you wish to convert to TIU.",! Line Location: HELP4+2
Routine Call	DIR Line Location: ENTRY+7 RESTART+7 ENINDY+3

Name	Line Occurrences (* Changed, ! Killed)
^GMR(121	RESTART+16*, ENINDY+4, ENINDY+5, EMERG+2, EMERG+5, EMERG+7
^TIU(8925.97 - [#8925.97]	ENTRY+5, RESTART+4, RESTART+14*

Name	Line Occurrences
ENINDY	ENINDY+4, EMERG+2, KILINDY+3
KILINDY	EMERG+5
PNDEVICE	ENTRY+9, RESTART+18

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PNDEVICE+1~
BADREC	KILINDY+1!
DIC	ENTRY+1~
DIR	RESTART+2!, RESTART+6!, ENINDY+1!, ENINDY+3!, KILINDY+1!
DIR("?"	ENTRY+7, RESTART+7, ENINDY+3*
DIR("A"	ENTRY+6, RESTART+6, ENINDY+2*
DIR("B"	ENTRY+7, RESTART+7
DIR(0	ENTRY+6, RESTART+6, ENINDY+1*
>> DIRUT	ENTRY+7, RESTART+7, ENINDY+3
DUZ	ENTRY+2, ENTRY+3, REPORT+1, RESTART+10
>> EMER	EMERG+2, EMERG+3, EMERG+8, KILINDY+2
ERRCTR	REPORT+6, REPORT+7!
>> GMRPCTR	REPORT+3, EMERG+1*
GMRPIFN	EMERG+1*, EMERG+2!, EMERG+3, EMERG+5, EMERG+6, EMERG+7, EMERG+8, KILINDY+1!
>> GMRPST	RESTART+12, RESTART+13, RESTART+15, RESTART+16
GMRPST1	RESTART+4*, RESTART+5!, RESTART+12
IOF	RESTART+2, INDY+2
NEWNODE	EMERG+3*, KILINDY+1!
>> RESTARTD	RESTART+15*, RESTART+16
TIU	ENTRY+4!, ENTRY+5!
TIU("DUZ"	ENTRY+3, RESTART+10
TIU("INDY"	EMERG+1*, EMERG+2!, KILINDY+1!
TIU("QUIT"	ENTRY+4
TIUCTR	REPORT+5, EMERG+1*, KILINDY+1!
>> TIUECS	ENINDY+5*
TIUEND	REPORT+5, REPORT+7!
>> TIUFPRIV	INDY+1*
TIUQUEUE	ENTRY+1~, ENTRY+8*, ENTRY+9
TIUSTRT	REPORT+5, REPORT+7!
>> TIUUSER	REPORT+1*, REPORT+2
U	ENTRY+5, RESTART+4, RESTART+14, ENINDY+5
>> XMB	REPORT+3*
>> XMB(1	REPORT+5*
>> XMB(2	REPORT+5*
>> XMB(3	REPORT+5*
>> XMB(4	REPORT+6*
>> XMDUZ	REPORT+4*
>> XMTEXT	REPORT+6*
>> XMY(	REPORT+2*
>> Y	ENTRY+7, RESTART+7, ENINDY+4, ENINDY+5, EMERG+1
ZTDESC	PNDEVICE+1~, PNDEVICE+3, RESTART+17
ZTDTH	PNDEVICE+1~
ZTIO	PNDEVICE+1~, PNDEVICE+4*
ZTRTN	PNDEVICE+1~, PNDEVICE+4*
ZTSAVE	PNDEVICE+1~
ZTSAVE("GMRP*"	PNDEVICE+2*
ZTSAVE("TIU*"	PNDEVICE+2*
ZTSK	PNDEVICE+1~, PNDEVICE+5

Customize PDF page

Package: Text Integration Utility

Routine: TIUPNCV4

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: