Routine: TIUROR1

Information

TIUROR1 ;SLC/JER - New PATIENT Review screen ; 12/3/00

Source file <TIUROR1.m>

Package	Total	Call Graph
Text Integration Utility	2	EC1^TIURECL INIT^TIUROR
VA Fileman	1	^DIR

Package	Total	Caller Graph
Text Integration Utility	7	TIUR TIUR2 TIUR3 TIURM TIUROR TIURPTTL TIURTITL

Name	Comments	DBIA/ICR reference
RESTORE	; -- restore original All Signed list
ASKCTXT()	; Ask user for new context
BREATHE(ONCE)	; -- Collapse/Re-expand in reverse order to avoid collisions
RELOAD(TIUEXP)	; Reload ^TMP("TIUR",$J,"EXPAND") w IFNs to expand, gotten
LOAD(TIUXCTXT,TIUXCTX2)	; Load ^TMP("TIUR",$J,"EXPAND") w IFNs to expand,
SAVE	; -- Set aside original list

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ASKCTXT+9
Function Call: WRITE	Prompt: "." Line Location: BREATHE+6
Routine Call	DIR Line Location: ASKCTXT+9

Name	Line Occurrences (* Changed, ! Killed)
^TMP("TIUR"	SAVE+2, RESTORE+2, RESTORE+3, RESTORE+4!, RESTORE+5, RESTORE+7, BREATHE+3, RELOAD+5, RELOAD+6, LOAD+7 , LOAD+9*
^TMP("TIURIDX"	SAVE+3, RESTORE+6*
^TMP("TIURSAVE"	SAVE+1!, SAVE+2*, RESTORE+1, RESTORE+5
^TMP("TIURSAVIDX"	SAVE+3*, RESTORE+6

Name	Field # of Occurrence
^("DFN"	RESTORE+2

Name	Field # of Occurrence
DIR	ASKCTXT+1~
DIR("?"	ASKCTXT+7, ASKCTXT+8
DIR("A"	ASKCTXT+4, ASKCTXT+5, ASKCTXT+6*
DIR("B"	ASKCTXT+8*
DIR(0	ASKCTXT+3*
LINENO	LOAD+4~, LOAD+7*, LOAD+8, LOAD+9
ONCE	BREATHE~, BREATHE+5
TIUDA	RELOAD+4~, RELOAD+5, RELOAD+6, LOAD+4~, LOAD+5, LOAD+6*, LOAD+7, LOAD+8, LOAD+9
TIUEXP	RELOAD~
TIUEXP(	RELOAD+3, RELOAD+5
TIUI	BREATHE+1~, BREATHE+2, BREATHE+3, BREATHE+4, BREATHE+5, RELOAD+2~, RELOAD+3, RELOAD+5
TIUJ	RELOAD+4~, RELOAD+5*, RELOAD+6
TIUXCTX2	LOAD~
TIUXCTX2(	LOAD+8*
TIUXCTXT	LOAD~
TIUXCTXT(	LOAD+6
TIUY	ASKCTXT+1~
U	RELOAD+6, LOAD+9
>> VALMBCK	RESTORE+3, RESTORE+7
>> VALMBG	RESTORE+3, RESTORE+7
>> VALMCNT	RESTORE+3, RESTORE+7
Y	ASKCTXT+1~, ASKCTXT+10