Routine: TIUPNCV6

Information

TIUPNCV6 ;SLC/DJP ;PNs ==> TIU cnv rtns ;5-7-97

Source Information

Source file <TIUPNCV6.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	^DIC ^DIR
Text Integration Utility	1	$$UPPER^TIULS

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Text Integration Utility	1	TIU GMRPN TITLES

Entry Points

Name	Comments	DBIA/ICR reference
RETIRED	;Title assigned to existing note but RETIRED from further use
HDR	;Header Line for Title Report
NOTR	;Title not found in ^TIU(8925.1
LASTLN	;End of report
SRCH	;Lookup on ^TIU(8925.1, TIU Document Definition File
LNCK	;Check current $Y value for paging
DEVICE	;prompts for device selection
PRINT	;Prints Undefined Title Report
TLSRCH	;Utility to search ^TIU(8925.1 FOR ^GMR(121.2 titles
RETURN	;Issues RETURN prompt
NORING	;Title found in file but not defined as a DOCUMENT
HELP8	;Help text for SEARCH prompt
LOOPT	;Loops through ^GMR(121.2

External References

Name	Field # of Occurrence
^%ZIS	DEVICE+1
HOME^%ZIS	DEVICE+7
^%ZISC	DEVICE+8
^%ZTLOAD	DEVICE+4
^DIC	SRCH+7
^DIR	TLSRCH+12, RETURN+2
$$UPPER^TIULS	SRCH+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: TLSRCH+1
Function Call: WRITE	Prompt: !!?14,"*** TITLE REPORT ***" Line Location: TLSRCH+1
Function Call: WRITE	Prompt: !!?5,"This option will identify TITLES in ^GMR(121.2," Line Location: TLSRCH+2
Function Call: WRITE	Prompt: !?5,"Generic Progress Note Title File which are NOT" Line Location: TLSRCH+3
Function Call: WRITE	Prompt: !?5,"defined in ^TIU(8925.1, TIU Document Definition File." Line Location: TLSRCH+4
Function Call: WRITE	Prompt: !!?5,"It is important for a successful conversion that" Line Location: TLSRCH+5
Function Call: WRITE	Prompt: !?5,"all Progress Note Titles be defined as Documents" Line Location: TLSRCH+6
Function Call: WRITE	Prompt: !?5,"within ^TIU(8925.1. The exceptions to this rule are" Line Location: TLSRCH+7
Function Call: WRITE	Prompt: !?5,"titles which have been retired or inactivated. They" Line Location: TLSRCH+8
Function Call: WRITE	Prompt: !?5,"do not need to be entered in the file." Line Location: TLSRCH+9
Function Call: WRITE	Prompt: !! Line Location: TLSRCH+10
Function Call: WRITE	Prompt: !!,?19,"NO DISCREPANCIES FOUND",!?19,"**************",! Line Location: PRINT+2
Function Call: WRITE	Prompt: !?5,^TMP("TIUTIL",$J,PRT),! Line Location: PRINT+3
Function Call: WRITE	Prompt: ! Line Location: RETURN+1
Function Call: WRITE	Prompt: @IOF Line Location: RETURN+3
Function Call: WRITE	Prompt: !!?12,"**** UNDEFINED TITLE REPORT ****",!! Line Location: HDR+1
Function Call: WRITE	Prompt: !!?12,"**** END OF REPORT ****" Line Location: LASTLN+1
Function Call: WRITE	Prompt: !!?5,"Press <ret> to continue with compare of the Progress" Line Location: HELP8+1
Function Call: WRITE	Prompt: !?5,"Note Title File and the TIU Document Definition File." Line Location: HELP8+2
Function Call: WRITE	Prompt: !?5,"Enter NO or ""^"" to stop this option." Line Location: HELP8+3
Routine Call	%ZIS Line Location: DEVICE+7
Routine Call	DIC Line Location: SRCH+7
Routine Call	DIR Line Location: TLSRCH+12 RETURN+2
Routine Call	%ZIS Line Location: DEVICE+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	DEVICE+1*
CTR	LOOPT+2, LOOPT+4!, NOTR+1, NOTR+2, NORING+1, NORING+2, RETIRED+1, RETIRED+2, PRINT+3
DIC	SRCH+5!*, SRCH+7!
DIC("S"	SRCH+6*
DIC(0	SRCH+5*
DIR	TLSRCH+1!, TLSRCH+10!, TLSRCH+12!, RETURN+1!, RETURN+2!
DIR("?"	TLSRCH+11*
DIR("A"	TLSRCH+10*
DIR("B"	TLSRCH+11*
DIR(0	TLSRCH+10, RETURN+2
>> DIRUT	TLSRCH+12, RETURN+2
GMRPTL	LOOPT+4!, SRCH+2*, SRCH+4, NOTR+2, NORING+2, RETIRED+2
IO	LOOPT+1
IO("Q"	DEVICE+2!
IOF	TLSRCH+1, RETURN+3
IOP	DEVICE+1!
IOSL	LNCK+1, LNCK+2, RETURN+1
IOST	LNCK+1
LKUP	LOOPT+2*, LOOPT+4!, SRCH+2, SRCH+3
POP	DEVICE+1!
PRT	LOOPT+4!, PRINT+3*
TIU	LOOPT+4!
TIU("QUIT"	PRINT+3, LNCK+2, RETURN+2, LASTLN+2
>> TIUFPRIV	SRCH+1*
TIULN	LOOPT+4!, RETURN+1*
TYP	SRCH+4*, SRCH+7!
U	SRCH+2, SRCH+3, SRCH+8
>> X	SRCH+4*
>> Y	TLSRCH+12, SRCH+7, RETURN+3
>> Y(0	SRCH+8
ZTDESC	DEVICE+4*, DEVICE+6!
ZTRTN	DEVICE+4*, DEVICE+6!
ZTSAVE	DEVICE+6!
ZTSAVE("GMRP*"	DEVICE+3*
ZTSAVE("TIU*"	DEVICE+3*
>> ZTSK	DEVICE+5

Customize PDF page

Package: Text Integration Utility

Routine: TIUPNCV6

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Line Occurrences (* Changed, ! Killed)
^GMR(121.2	LOOPT+2, SRCH+2, SRCH+3
^TMP("TIUTIL"	LOOPT+5!, NOTR+2, NORING+2, RETIRED+2*, PRINT+1, PRINT+3

Name	Line Occurrences
DEVICE	TLSRCH+13
HDR	LOOPT+3, LNCK+1, LNCK+2
LASTLN	PRINT+3
LNCK	PRINT+3
LOOPT	DEVICE+8
NORING	SRCH+8
NOTR	SRCH+7
PRINT	LOOPT+3
RETIRED	SRCH+3
RETURN	LNCK+2
SRCH	LOOPT+2